FH OUTPT MEAL TICKET (1036)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME FH OUTPT MEAL TICKET
ROWS 40
ORDER TEXT LENGTH 50
SINGLE NO
FIELDS
  • NAME of Patient
    ROW:   3
    COLUMN:   1
    CAPTION (Optional):   Name of Pt:
    FORMAT:   FIRST LAST
  • FREE TEXT
    ROW:   30
    COLUMN:   1
    LITERAL TEXT:   ALTERING OR COPYING THIS MEAL VOUCHER IS PROHIBITED.
  • FH SPEC MEAL ESIG NAME
    ROW:   5
    COLUMN:   40
    CAPTION (Optional):   E/S Name :
  • FH SPEC MEAL ESIG TITLE
    ROW:   6
    COLUMN:   40
    CAPTION (Optional):   E/S Title:
  • FH SPEC MEAL ESIG DATE
    ROW:   7
    COLUMN:   40
    CAPTION (Optional):   E/S Date :
  • FH SPEC MEAL LAST4 SSN
    ROW:   3
    COLUMN:   30
    SUPPRESS CAPTION:   YES
  • FH SPEC MEAL LOCATION
    ROW:   3
    COLUMN:   40
    CAPTION (Optional):   Req Loc :
  • REQUESTING PHYSICIAN
    ROW:   4
    COLUMN:   40
    CAPTION (Optional):   Req Phys :
  • START DATE
    ROW:   4
    COLUMN:   1
    CAPTION (Optional):   Start Date:
  • STOP DATE
    ROW:   5
    COLUMN:   1
    CAPTION (Optional):   Stop Date :
  • ORDER TEXT
    ROW:   10
    COLUMN:   1
    CAPTION (Optional):   Pt Authorized a:
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