OUTPUT TRANSFORM: S VALUE=$S(VALUE="1":"EXPIRED",VALUE="2":"OVERDUE",VALUE="3":"REFUSED ADMISSION",VALUE="4":"NO AVAILABLE BEDS",VALUE="5":"OTHER",1:"")
GET ACTION: S VALUE=$P(VPRADM,U,15)
AdmittingDX
SEQUENCE: 5
ITEM TYPE: SIMPLE FIELD
FILE NUMBER: 41.1
FIELD NUMBER: 4
GET ACTION: S VALUE=$P($G(VPRADM),U,4)
IsSurgeryPlanned
SEQUENCE: 6
ITEM TYPE: SIMPLE FIELD
FILE NUMBER: 41.1
FIELD NUMBER: 6
RETURN INTERNAL VALUE: YES
OUTPUT TRANSFORM: S VALUE=$S(VALUE="Y":"true",VALUE="N":"false",1:"")