CHART COPY FOOTER (1007)    OE/RR PRINT FORMATS (100.23)

• HORIZONTAL LINE
  ROW:   2
  COLUMN:   1
  CAPTION (Optional):   NONE
• FREE TEXT
  ROW:   3
  COLUMN:   45
  LITERAL TEXT:   |
• CURRENT DATE/TIME
  ROW:   5
  COLUMN:   23
  CAPTION (Optional):   Date:
  FORMAT:   MM/DD/CCYY HR:MIN
• FREE TEXT
  ROW:   4
  COLUMN:   45
  LITERAL TEXT:   | MEDICAL RECORD
• NAME of Patient
  ROW:   4
  COLUMN:   2
  CAPTION (Optional):   NONE
  FORMAT:   LAST, FIRST MI
• SSN of Patient
  ROW:   4
  COLUMN:   29
  CAPTION (Optional):   NONE
• FREE TEXT
  ROW:   5
  COLUMN:   45
  CAPTION (Optional):   NONE
  LITERAL TEXT:   |
• LOCATION of Patient
  ROW:   5
  COLUMN:   4
  CAPTION (Optional):   Loc:
• FREE TEXT
  ROW:   6
  COLUMN:   45
  CAPTION (Optional):   NONE
  LITERAL TEXT:   | D O C T O R ' S O R D E R S
• FREE TEXT
  ROW:   7
  COLUMN:   45
  CAPTION (Optional):   NONE
  LITERAL TEXT:   |
• FREE TEXT
  ROW:   8
  COLUMN:   45
  CAPTION (Optional):   NONE
  LITERAL TEXT:   | VA FORM 10-1158
• FREE TEXT
  ROW:   9
  COLUMN:   45
  CAPTION (Optional):   NONE
  LITERAL TEXT:   |__________________________________

W !
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,ORPDTT
W !?0,"",$G(ORPLINE)
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 ?22,"Date: ",$$DATE^ORU($G(ORPDTT),"MM/DD/CCYY HR:MIN")
W ?44,"","|"

D LN^ORU4
D LN^ORU4
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
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
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(22,.CCNT,"Date: "_$$DATE^ORU4($G(ORPDTT),"MM/DD/CCYY HR:MIN",.ORHOOT,22,.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
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
D LN^ORU4
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
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)
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,ORPDTT
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