Name | Value |
---|---|
NAME | DOCTOR'S ORDERS |
ROWS | 4 |
ORDER TEXT LENGTH | 33 |
FIELDS |
|
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 |