DOCTORS ORDERS FOOTER (1016)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME DOCTORS ORDERS FOOTER
ROWS 8
FIELDS
  • HORIZONTAL LINE
    ROW:   1
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   2
    COLUMN:   45
    LITERAL TEXT:   |
  • CURRENT DATE
    ROW:   4
    COLUMN:   28
    FORMAT:   MM/DD/CCYY
  • FREE TEXT
    ROW:   3
    COLUMN:   45
    LITERAL TEXT:   | MEDICAL RECORD
  • WHEN PRINTED
    ROW:   7
    COLUMN:   3
  • ROOM/BED of Patient
    ROW:   5
    COLUMN:   4
    CAPTION (Optional):   Room/Bed:
    SUPPRESS CAPTION:   NO
  • 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:   | D O C T O R ' S O R D E R S
  • FREE TEXT
    ROW:   6
    COLUMN:   45
    CAPTION (Optional):   NONE
    LITERAL TEXT:   |
  • FREE TEXT
    ROW:   7
    COLUMN:   45
    CAPTION (Optional):   NONE
    LITERAL TEXT:   | VA FORM 10-1158
  • FREE TEXT
    ROW:   8
    COLUMN:   45
    CAPTION (Optional):   NONE
    LITERAL TEXT:   |__________________________________
COMPILED CODE
W ?0,"",$G(ORPLINE)
W ?44,"","|  D O C T O R ' S   O R D E R S"
W !?44,"","|"
W !?2,"",$G(ORPMAN)
W ?44,"","|  VA FORM 10-1158"
W !?44,"","|__________________________________"
K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,ORPRMBED,ORPMAN
W !?44,"","|"
W !?1,"",$$NAME^ORU($G(ORPNAME),"LAST, FIRST MI")
W ?28,"",$$SSN^ORU($G(ORPSSN),"")
W ?44,"","|         MEDICAL RECORD"
W !?3,"Loc: ",$G(ORPLOC)
W ?27,"Date: ",$$DATE^ORU($G(ORPDT),"MM/DD/CCYY")
W ?44,"","|"
W !?3,"Room/Bed:",$G(ORPRMBED)
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,""_"|         MEDICAL RECORD",.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(27,.CCNT,"Date: "_$$DATE^ORU4($G(ORPDT),"MM/DD/CCYY",.ORHOOT,27,.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)=""
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
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)=""
S X=$$S^ORU4(44,.CCNT,""_"|  D O C T O R ' S   O R D E R S",.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
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(2,.CCNT,""_$G(ORPMAN),.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,""_"|  VA FORM 10-1158",.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
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,ORPRMBED,ORPMAN
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)=""