Name | Value |
---|---|
NAME | SHORT |
ROWS | 1 |
ORDER TEXT LENGTH | 57 |
FIELDS |
|
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 |