WORK COPY FORMAT (1023)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME WORK COPY FORMAT
ROWS 4
ORDER TEXT LENGTH 36
FIELDS
  • ORDER TEXT
    ROW:   1
    COLUMN:   19
    CAPTION (Optional):   NONE
    FORMAT:   36
  • ELECTRONIC SIGNATURE TITLE
    ROW:   2
    COLUMN:   60
    CAPTION (Optional):   NONE
  • START DATE
    ROW:   2
    COLUMN:   20
    FORMAT:   MM/DD/CCYY HR:MIN
  • 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")
W ?18,"",$$TMPWRAP^ORU($G(OROOT),"36")
W ?59,"",$G(ORPES)
W !?19,"Start: ",$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY HR:MIN")
W ?59,"",$G(ORPDOT)
W !
W !
K X,ORPODT,OROOT,ORPES,ORPSTRT,ORPDOT
SILENT CODE 
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(19,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY HR:MIN",.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(59,.CCNT,""_$G(ORPDOT),.CCNT)
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,ORPES,ORPSTRT,ORPDOT
S X=$$S^ORU4(0,.CCNT,""_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY HR:MIN",.ORHOOT,0,.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(18,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"36",.ORHOOT,18,.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(ORPES),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X