Name | Value |
---|---|
NAME | LONG |
ROWS | 3 |
ORDER TEXT LENGTH | 30 |
FIELDS |
|
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 |