DOCTOR'S ORDERS (1010)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME DOCTOR'S ORDERS
ROWS 4
ORDER TEXT LENGTH 33
FIELDS
  • ORDER TEXT
    ROW:   1
    COLUMN:   22
    CAPTION (Optional):   NONE
    FORMAT:   33
  • ELECTRONIC SIGNATURE TITLE
    ROW:   2
    COLUMN:   60
    CAPTION (Optional):   NONE
  • START DATE
    ROW:   2
    COLUMN:   21
    FORMAT:   MM/DD/CCYY HR:MIN
    SUPPRESS CAPTION:   YES
  • LAB URGENCY
    ROW:   4
    COLUMN:   35
    SUPPRESS CAPTION:   YES
  • CONSULT URGENCY
    ROW:   4
    COLUMN:   36
    SUPPRESS CAPTION:   YES
  • STATUS OF ORDER
    ROW:   1
    COLUMN:   19
    CAPTION (Optional):   NONE
  • ORDER DATE
    ROW:   1
    COLUMN:   1
    CAPTION (Optional):   NONE
    FORMAT:   MM/DD/CCYY HR:MIN
  • ELECTRONIC SIGNATURE NAME
    ROW:   1
    COLUMN:   60
    CAPTION (Optional):   NONE
COMPILED CODE 
W ?0,"",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY HR:MIN")
K X,ORPODT,ORPSTAT,OROOT,ORPES,ORPSTRT,ORPDOT,ORPURG,ORPCURG
W ?18,"",$G(ORPSTAT)
W ?21,"",$$TMPWRAP^ORU($G(OROOT),"33")
W ?59,"",$G(ORPES)
W !?20,$S($L($G(ORPSTRT)):"Start: ",1:""),$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY HR:MIN")
W ?59,"",$G(ORPDOT)
W !
W !?34,$S($L($G(ORPURG)):"Urgency: ",1:""),$G(ORPURG)
W ?35,$S($L($G(ORPCURG)):"URG: ",1:""),$G(ORPCURG)
SILENT CODE 
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(59,.CCNT,""_$G(ORPES),.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(20,.CCNT,$S($L($G(ORPSTRT)):"Start: ",1:"")_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY HR:MIN",.ORHOOT,20,.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(59,.CCNT,""_$G(ORPDOT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S X=$$S^ORU4(0,.CCNT,""_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY HR:MIN",.ORHOOT,0,.GCNT,.CCNT),.CCNT)
D LN^ORU4
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(34,.CCNT,$S($L($G(ORPURG)):"Urgency: ",1:"")_$G(ORPURG),.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(35,.CCNT,$S($L($G(ORPCURG)):"URG: ",1:"")_$G(ORPCURG),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
K X,ORPODT,ORPSTAT,OROOT,ORPES,ORPSTRT,ORPDOT,ORPURG,ORPCURG
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(18,.CCNT,""_$G(ORPSTAT),.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(21,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"33",.ORHOOT,21,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X