Name | Value |
---|---|
NAME | WORK COPY FORMAT |
ROWS | 4 |
ORDER TEXT LENGTH | 36 |
FIELDS |
|
COMPILED CODE | W ?0,"",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY HR:MIN") W ?18,"",$$TMPWRAP^ORU($G(OROOT),"36") W ?59,"",$G(ORPES) W !?19,"Start: ",$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY HR:MIN") W ?59,"",$G(ORPDOT) W ! W ! K X,ORPODT,OROOT,ORPES,ORPSTRT,ORPDOT |
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(19,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY HR:MIN",.ORHOOT,19,.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 D LN^ORU4 D LN^ORU4 K X,ORPODT,OROOT,ORPES,ORPSTRT,ORPDOT S X=$$S^ORU4(0,.CCNT,""_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY HR:MIN",.ORHOOT,0,.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(18,.CCNT,""_$$TMPWRAP^ORU4($G(OROOT),"36",.ORHOOT,18,.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(ORPES),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X |