CHART COPY 3 (1027)    OE/RR PRINT FORMATS (100.23)

• ORDER DATE
  ROW:   1
  COLUMN:   1
  CAPTION (Optional):   NONE
• NATURE OF ORDER
  ROW:   2
  COLUMN:   4
  CAPTION (Optional):   NONE
• ORDER TEXT
  ROW:   1
  COLUMN:   16
  CAPTION (Optional):   NONE
  FORMAT:   60
• VERIFYING NURSE INITIALS
  ROW:   3
  COLUMN:   4
  CAPTION (Optional):   Nurse:
• VERIFYING CLERK INITIALS
  ROW:   4
  COLUMN:   4
  CAPTION (Optional):   Clerk:
• START DATE
  ROW:   3
  COLUMN:   20
  CAPTION (Optional):   Start:
• REQUESTING PHYSICIAN
  ROW:   3
  COLUMN:   55
  CAPTION (Optional):   Req :
• STOP DATE
  ROW:   4
  COLUMN:   20
  CAPTION (Optional):   Stop :
• ELECTRONIC SIGNATURE NAME
  ROW:   4
  COLUMN:   55
  CAPTION (Optional):   NONE

W ?0,"",$$DATE^ORU($G(ORPODT),"")
W !
W !
K X,ORPODT,OROOT,ORPNAT,ORPVNI,ORPSTRT,ORPRPHY,ORPVCI,ORPSTOP,ORPES
W ?15,"",$$TMPWRAP^ORU($G(OROOT),"60")
W !?3,"",$G(ORPNAT)
W !?3,"Nurse: ",$G(ORPVNI)
W ?19,"Start: ",$$DATE^ORU($G(ORPSTRT),"")
W ?54,"Req  : ",$$NAME^ORU($G(ORPRPHY),"")
W !?3,"Clerk: ",$G(ORPVCI)
W ?19,"Stop : ",$$DATE^ORU($G(ORPSTOP),"")
W ?54,"",$G(ORPES)

S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
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,"Nurse: "_$G(ORPVNI),.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(19,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,19,.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(54,.CCNT,"Req  : "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,54,.GCNT,.CCNT),.CCNT)
S X=$$S^ORU4(0,.CCNT,""_$$DATE^ORU4($G(ORPODT),"",.ORHOOT,0,.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(3,.CCNT,"Clerk: "_$G(ORPVCI),.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(19,.CCNT,"Stop : "_$$DATE^ORU4($G(ORPSTOP),"",.ORHOOT,19,.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(54,.CCNT,""_$G(ORPES),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
D LN^ORU4
K X,ORPODT,OROOT,ORPNAT,ORPVNI,ORPSTRT,ORPRPHY,ORPVCI,ORPSTOP,ORPES
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(15,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"60",.ORHOOT,15,.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(3,.CCNT,""_$G(ORPNAT),.CCNT)