WORK COPY FOOTER (1025)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME WORK COPY FOOTER
ROWS 8
FIELDS
  • HORIZONTAL LINE
    ROW:   1
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   2
    COLUMN:   45
    LITERAL TEXT:   |
  • FREE TEXT
    ROW:   3
    COLUMN:   45
    LITERAL TEXT:   |
  • ROOM/BED of Patient
    ROW:   5
    COLUMN:   4
    CAPTION (Optional):   Room/Bed:
  • NAME of Patient
    ROW:   3
    COLUMN:   2
    CAPTION (Optional):   NONE
    FORMAT:   LAST, FIRST MI
  • SSN of Patient
    ROW:   3
    COLUMN:   29
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   4
    COLUMN:   45
    CAPTION (Optional):   NONE
    LITERAL TEXT:   |
  • LOCATION of Patient
    ROW:   4
    COLUMN:   4
    CAPTION (Optional):   Loc:
  • FREE TEXT
    ROW:   5
    COLUMN:   45
    CAPTION (Optional):   NONE
    LITERAL TEXT:   | **** W O R K C O P Y ****
  • FREE TEXT
    ROW:   6
    COLUMN:   45
    CAPTION (Optional):   NONE
    LITERAL TEXT:   |
  • FREE TEXT
    ROW:   7
    COLUMN:   45
    CAPTION (Optional):   NONE
    LITERAL TEXT:   |__________________________________
COMPILED CODE 
W ?0,"",$G(ORPLINE)
W !?44,"","|"
W !?44,"","|__________________________________"
W !
K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED
W !?44,"","|"
W !?1,"",$$NAME^ORU($G(ORPNAME),"LAST, FIRST MI")
W ?28,"",$$SSN^ORU($G(ORPSSN),"")
W ?44,"","|"
W !?3,"Loc: ",$G(ORPLOC)
W ?44,"","|"
W !?3,"Room/Bed:",$G(ORPRMBED)
W ?44,"","|   ****  W O R K   C O P Y  ****"
SILENT CODE 
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(1,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"LAST, FIRST MI",.ORHOOT,1,.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(28,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,28,.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(44,.CCNT,""_"|",.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,""_$G(ORPLINE),.CCNT)
S X=$$S^ORU4(3,.CCNT,"Loc: "_$G(ORPLOC),.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(44,.CCNT,""_"|",.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(3,.CCNT,"Room/Bed:"_$G(ORPRMBED),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S X=$$S^ORU4(44,.CCNT,""_"|   ****  W O R K   C O P Y  ****",.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(44,.CCNT,""_"|",.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(44,.CCNT,""_"|__________________________________",.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
D LN^ORU4
K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(44,.CCNT,""_"|",.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)=""