GENERIC ORDER LABEL (1022)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME GENERIC ORDER LABEL
ROWS 6
COLUMNS 80
FIELDS
  • REQUESTING PHYSICIAN
    ROW:   4
    COLUMN:   1
    SUPPRESS CAPTION:   YES
  • START DATE
    ROW:   1
    COLUMN:   1
    CAPTION (Optional):   Start Date:
    FORMAT:   MM/DD/CCYY
    SUPPRESS CAPTION:   YES
  • ORDER TEXT
    ROW:   2
    COLUMN:   1
    CAPTION (Optional):   NONE
    FORMAT:   38
    SUPPRESS CAPTION:   YES
  • DOB of Patient
    ROW:   2
    COLUMN:   55
    CAPTION (Optional):   NONE
  • AGE of Patient
    ROW:   2
    COLUMN:   66
    CAPTION (Optional):   NONE
  • NAME of Patient
    ROW:   1
    COLUMN:   41
    CAPTION (Optional):   NONE
    FORMAT:   LAST,FIRST MI
  • SSN of Patient
    ROW:   2
    COLUMN:   41
    CAPTION (Optional):   NONE
  • LOCATION of Patient
    ROW:   4
    COLUMN:   58
    CAPTION (Optional):   NONE
  • ROOM/BED of Patient
    ROW:   3
    COLUMN:   58
    CAPTION (Optional):   NONE
COMPILED CODE
W ?0,$S($L($G(ORPSTRT)):"Start Date: ",1:""),$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY")
W !
W !
K X,ORPSTRT,ORPNAME,OROOT,ORPSSN,ORPDOB,ORPAGE,ORPRMBED,ORPRPHY,ORPLOC
W ?40,"",$$NAME^ORU($G(ORPNAME),"LAST,FIRST MI")
W !?0,$S($L($G(OROOT)):"",1:""),$$TMPWRAP^ORU($G(OROOT),"38")
W ?40,"",$$SSN^ORU($G(ORPSSN),"")
W ?54,"",$$DOB^ORU($G(ORPDOB),"")
W ?65,"",$$AGE^ORU($G(ORPAGE),"")
W !?57,"",$G(ORPRMBED)
W !?0,$S($L($G(ORPRPHY)):"PHY: ",1:""),$$NAME^ORU($G(ORPRPHY),"")
W ?57,"",$G(ORPLOC)
SILENT CODE
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
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(40,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,40,.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,""_$$DOB^ORU4($G(ORPDOB),"",.ORHOOT,54,.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(65,.CCNT,""_$$AGE^ORU4($G(ORPAGE),"",.ORHOOT,65,.GCNT,.CCNT),.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
S X=$$S^ORU4(0,.CCNT,$S($L($G(ORPSTRT)):"Start Date: ",1:"")_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY",.ORHOOT,0,.GCNT,.CCNT),.CCNT)
D LN^ORU4
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(57,.CCNT,""_$G(ORPRMBED),.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(0,.CCNT,$S($L($G(ORPRPHY)):"PHY: ",1:"")_$$NAME^ORU4($G(ORPRPHY),"",.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(57,.CCNT,""_$G(ORPLOC),.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,ORPSTRT,ORPNAME,OROOT,ORPSSN,ORPDOB,ORPAGE,ORPRMBED,ORPRPHY,ORPLOC
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(40,.CCNT,""_$$NAME^ORU4($G(ORPNAME),"LAST,FIRST MI",.ORHOOT,40,.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(0,.CCNT,$S($L($G(OROOT)):"",1:"")_$$TMPWRAP^ORU4($G(OROOT),"38",.ORHOOT,0,.GCNT,.CCNT),.CCNT)