Name | Value |
---|---|
NAME | LAB SERVICE COPY HEADER |
ROWS | 5 |
FIELDS |
|
COMPILED CODE | W ?0,"",$G(ORPLINE) W !?1,"","SERVICE COPY | L A B O R A T O R Y S E R V I C E" W !?0,"",$G(ORPLINE) W !?1,"","Status Item Ordered Ord'd Requestor Start" W !?0,"",$G(ORPLINE) K X,ORPLINE,ORPLINE,ORPLINE |
SILENT CODE | S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.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(1,.CCNT,""_"Status Item Ordered Ord'd Requestor Start",.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(ORPLINE),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X S X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT) K X,ORPLINE,ORPLINE,ORPLINE 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(1,.CCNT,""_"SERVICE COPY | L A B O R A T O R Y S E R V I C E",.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)="" |