Name | Value |
---|---|
NAME | CHART COPY 1 |
ROWS | 5 |
ORDER TEXT LENGTH | 45 |
FIELDS |
|
COMPILED CODE | W ?0,"",$G(ORPSTAT) K X,ORPSTAT,OROOT,ORPSTRT,ORPSTOP,ORPODT,ORPRPHY,ORPES W ?2,"",$$TMPWRAP^ORU($G(OROOT),"45") W ?57,"Start: ",$$DATE^ORU($G(ORPSTRT),"") W !?57,"Stop: ",$$DATE^ORU($G(ORPSTOP),"") W !?56,"Ord'd: ",$$DATE^ORU($G(ORPODT),"") W !?4,"PHY: ",$$NAME^ORU($G(ORPRPHY),"") W ?24,"",$G(ORPES) W ! |
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(57,.CCNT,"Stop: "_$$DATE^ORU4($G(ORPSTOP),"",.ORHOOT,57,.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(56,.CCNT,"Ord'd: "_$$DATE^ORU4($G(ORPODT),"",.ORHOOT,56,.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,""_$G(ORPSTAT),.CCNT) S X=$$S^ORU4(4,.CCNT,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,4,.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(24,.CCNT,""_$G(ORPES),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 K X,ORPSTAT,OROOT,ORPSTRT,ORPSTOP,ORPODT,ORPRPHY,ORPES 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(2,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"45",.ORHOOT,2,.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,"Start: "_$$DATE^ORU4($G(ORPSTRT),"",.ORHOOT,57,.GCNT,.CCNT),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X |