RX FOOTER (1021)    OE/RR PRINT FORMATS (100.23)

• 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:   | PHARMACY COPY
• ROOM/BED of Patient
  ROW:   5
  COLUMN:   4
  CAPTION (Optional):   Room/Bed:
• CURRENT DATE
  ROW:   4
  COLUMN:   28
• 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:   |__________________________________

W ?0,"",$G(ORPLINE)
W ?44,"","|  D O C T O R ' S   O R D E R S"
W !?44,"","|"
W !?44,"","|  VA FORM 10-1158"
W !?44,"","|__________________________________"
K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,ORPRMBED
W !?44,"","|"
W !?1,"",$$NAME^ORU($G(ORPNAME),"LAST, FIRST MI")
W ?28,"",$$SSN^ORU($G(ORPSSN),"")
W ?44,"","|         PHARMACY COPY"
W !?3,"Loc: ",$G(ORPLOC)
W ?27,"Date: ",$$DATE^ORU($G(ORPDT),"")
W ?44,"","|"
W !?3,"Room/Bed: ",$G(ORPRMBED)

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,""_"|         PHARMACY COPY",.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),"",.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(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
K X,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPDT,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)=""