Name | Value |
---|---|
NAME | FH OUTPT MEAL TICKET |
ROWS | 40 |
ORDER TEXT LENGTH | 50 |
SINGLE | NO |
FIELDS |
|
COMPILED CODE | W ! W !?39,"E/S Title: ",$G(ORPDOT) W !?39,"E/S Date : ",$$DATETIME^ORU($G(ORPESD),"") W ! W ! W !?0,"Pt Authorized a: ",$$TMPWRAP^ORU($G(OROOT),"") W ! W ! W ! W ! W ! W ! W ! W ! W ! W ! W ! W ! W ! W ! W ! W ! W !?0,"Name of Pt: ",$$NAME^ORU($G(ORPNAME),"FIRST LAST") W ! W ! W ! W ! W !?0,"","ALTERING OR COPYING THIS MEAL VOUCHER IS PROHIBITED." W ! W ! W ! W ! W ! W ?29,$S($L($G(ORPLAST4)):"",1:""),$G(ORPLAST4) W ! W ! W ! W ! W ! K X,ORPNAME,ORPLAST4,ORPRLOC,ORPSTRT,ORPRPHY,ORPSTOP,ORPES,ORPDOT,ORPESD,OROOT W ?39,"Req Loc : ",$G(ORPRLOC) W !?0,"Start Date: ",$$DATE^ORU($G(ORPSTRT),"") W ?39,"Req Phys : ",$$NAME^ORU($G(ORPRPHY),"") W !?0,"Stop Date : ",$$DATE^ORU($G(ORPSTOP),"") W ?39,"E/S Name : ",$G(ORPES) |
SILENT CODE | D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(39,.CCNT,"Req Loc : "_$G(ORPRLOC),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,"Start Date: "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(39,.CCNT,"Req Phys : "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,39,.GCNT,.CCNT),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,"Stop Date : "_$$DATE^ORU4($G(ORPSTOP),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(39,.CCNT,"E/S Name : "_$G(ORPES),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(39,.CCNT,"E/S Title: "_$G(ORPDOT),.CCNT) D LN^ORU4 I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(39,.CCNT,"E/S Date : "_$$DATETIME^ORU4($G(ORPESD),"",.ORHOOT,39,.GCNT,.CCNT),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 D LN^ORU4 D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,"Pt Authorized a: "_$$TMPWRAP^ORU4($G(OROOT),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT) S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 S X=$$S^ORU4(0,.CCNT,"Name of Pt: "_$$NAME^ORU4($G(ORPNAME),"FIRST LAST",.ORHOOT,0,.GCNT,.CCNT),.CCNT) D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,""_"ALTERING OR COPYING THIS MEAL VOUCHER IS PROHIBITED.",.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" D LN^ORU4 D LN^ORU4 D LN^ORU4 D LN^ORU4 K X,ORPNAME,ORPLAST4,ORPRLOC,ORPSTRT,ORPRPHY,ORPSTOP,ORPES,ORPDOT,ORPESD,OROOT S X=$$S^ORU4(29,.CCNT,$S($L($G(ORPLAST4)):"",1:"")_$G(ORPLAST4),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X |