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
|