CHART COPY 1 (1004)    OE/RR PRINT FORMATS (100.23)

• STATUS OF ORDER
  ROW:   1
  COLUMN:   1
  CAPTION (Optional):   NONE
• NAME of Patient
  ROW:   4
• ORDER TEXT
  ROW:   1
  COLUMN:   3
  CAPTION (Optional):   NONE
  FORMAT:   45
• START DATE
  ROW:   1
  COLUMN:   58
  CAPTION (Optional):   Start:
• STOP DATE
  ROW:   2
  COLUMN:   58
  CAPTION (Optional):   Stop:
• ORDER DATE
  ROW:   3
  COLUMN:   57
  CAPTION (Optional):   Ord'd:
• REQUESTING PHYSICIAN
  ROW:   4
  COLUMN:   5
• ELECTRONIC SIGNATURE NAME
  ROW:   4
  COLUMN:   25
  CAPTION (Optional):   NONE

W ?0,"",$G(ORPSTAT)
K X,ORPSTAT,OROOT,ORPSTRT,ORPSTOP,ORPODT,ORPRPHY,ORPES
W ?2,"",$$TMPWRAP^ORU($G(OROOT),"45")
W ?57,"Start: ",$$DATE^ORU($G(ORPSTRT),"")
W !?57,"Stop: ",$$DATE^ORU($G(ORPSTOP),"")
W !?56,"Ord'd: ",$$DATE^ORU($G(ORPODT),"")
W !?4,"PHY: ",$$NAME^ORU($G(ORPRPHY),"")
W ?24,"",$G(ORPES)
W !

S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(57,.CCNT,"Stop: "_$$DATE^ORU4($G(ORPSTOP),"",.ORHOOT,57,.GCNT,.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(56,.CCNT,"Ord'd: "_$$DATE^ORU4($G(ORPODT),"",.ORHOOT,56,.GCNT,.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(ORPSTAT),.CCNT)
S X=$$S^ORU4(4,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,4,.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(24,.CCNT,""_$G(ORPES),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
K X,ORPSTAT,OROOT,ORPSTRT,ORPSTOP,ORPODT,ORPRPHY,ORPES
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(2,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"45",.ORHOOT,2,.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(57,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,57,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X