Procedure CodigosResultHeaderHttp(Codigo)

//HTTP status code Description
//200 Success request
//400 Bad Request
//401 Unauthorized Request
//402 Payment Required
//500 Internal Server Error

resultado is string = ""

IF Codigo = 200 THEN
resultado = "Success request"
ELSE IF Codigo = 400 THEN
resultado = "Bad Request"
ELSE IF Codigo = 401 THEN
resultado = "Unauthorized Request"
ELSE IF Codigo = 402 THEN
resultado = "Payment Required"
ELSE IF Codigo = 500 THEN
resultado = "Internal Server Error"
END

RESULT resultado