LONG (1009)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME LONG
ROWS 3
ORDER TEXT LENGTH 30
FIELDS
  • STATUS OF ORDER
    ROW:   1
    COLUMN:   4
    CAPTION (Optional):   NONE
  • START DATE
    ROW:   2
    COLUMN:   62
    CAPTION (Optional):   NONE
    FORMAT:   HR:MIN
  • STOP DATE
    ROW:   2
    COLUMN:   73
    CAPTION (Optional):   NONE
    FORMAT:   HR:MIN
  • ORDER TEXT
    ROW:   1
    COLUMN:   8
    CAPTION (Optional):   NONE
    FORMAT:   30
  • ORDER DATE
    ROW:   1
    COLUMN:   37
    CAPTION (Optional):   NONE
    FORMAT:   MM/DD/CCYY
  • REQUESTING PHYSICIAN
    ROW:   1
    COLUMN:   48
    CAPTION (Optional):   NONE
    FORMAT:   LAST,FI
  • START DATE
    ROW:   1
    COLUMN:   59
    CAPTION (Optional):   NONE
    FORMAT:   MM/DD/CCYY
  • STOP DATE
    ROW:   1
    COLUMN:   70
    CAPTION (Optional):   NONE
    FORMAT:   MM/DD/CCYY
  • ORDER DATE
    ROW:   2
    COLUMN:   40
    CAPTION (Optional):   NONE
    FORMAT:   HR:MIN
COMPILED CODE
W ?3,"",$G(ORPSTAT)
W !
K X,ORPSTAT,OROOT,ORPODT,ORPRPHY,ORPSTRT,ORPSTOP,ORPODT,ORPSTRT,ORPSTOP
W ?7,"",$$TMPWRAP^ORU($G(OROOT),"30")
W ?36,"",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY")
W ?47,"",$$NAME^ORU($G(ORPRPHY),"LAST,FI")
W ?58,"",$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY")
W ?69,"",$$DATE^ORU($G(ORPSTOP),"MM/DD/CCYY")
W !?39,"",$$DATE^ORU($G(ORPODT),"HR:MIN")
W ?61,"",$$DATE^ORU($G(ORPSTRT),"HR:MIN")
W ?72,"",$$DATE^ORU($G(ORPSTOP),"HR:MIN")
SILENT CODE
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(47,.CCNT,""_$$NAME^ORU4($G(ORPRPHY),"LAST,FI",.ORHOOT,47,.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(58,.CCNT,""_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY",.ORHOOT,58,.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(69,.CCNT,""_$$DATE^ORU4($G(ORPSTOP),"MM/DD/CCYY",.ORHOOT,69,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
S X=$$S^ORU4(3,.CCNT,""_$G(ORPSTAT),.CCNT)
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(39,.CCNT,""_$$DATE^ORU4($G(ORPODT),"HR:MIN",.ORHOOT,39,.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(61,.CCNT,""_$$DATE^ORU4($G(ORPSTRT),"HR:MIN",.ORHOOT,61,.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(72,.CCNT,""_$$DATE^ORU4($G(ORPSTOP),"HR:MIN",.ORHOOT,72,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
K X,ORPSTAT,OROOT,ORPODT,ORPRPHY,ORPSTRT,ORPSTOP,ORPODT,ORPSTRT,ORPSTOP
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(7,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"30",.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(36,.CCNT,""_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY",.ORHOOT,36,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X