SHORT (1008)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME SHORT
ROWS 1
ORDER TEXT LENGTH 57
FIELDS
  • STATUS OF ORDER
    ROW:   1
    COLUMN:   4
    CAPTION (Optional):   NONE
  • ORDER TEXT
    ROW:   1
    COLUMN:   8
    CAPTION (Optional):   NONE
    FORMAT:   57
  • ORDER DATE
    ROW:   1
    COLUMN:   69
    CAPTION (Optional):   NONE
  • NAME of Patient
    ROW:   2
    COLUMN:   2
    CAPTION (Optional):   NAME
    FORMAT:   LAST,FIRST MI
COMPILED CODE 
W ?3,"",$G(ORPSTAT)
W ?7,"",$$TMPWRAP^ORU($G(OROOT),"57")
W ?68,"",$$DATE^ORU($G(ORPODT),"")
K X,ORPSTAT,OROOT,ORPODT
SILENT CODE 
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
K X,ORPSTAT,OROOT,ORPODT
S X=$$S^ORU4(3,.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(7,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"57",.ORHOOT,7,.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(68,.CCNT,""_$$DATE^ORU4($G(ORPODT),"",.ORHOOT,68,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X