Name | Value |
---|---|
NAME | LAB REQUISITION New & reprint,WC,SP |
ROWS | 14 |
FIELDS |
|
COMPILED CODE | W ! W ?29,"Start: ",$$DATE^ORU($G(ORPSTRT),"MM/DD/CCYY HR:MIN") W ! W !?0,"Test: ",$$TMPWRAP^ORU($G(OROOT2),"70") W ?49,"",$G(ORPURG) W ! W !?0,"","Time of Collection:_____________" W !?0,"Collection Sample: ",$G(ORPCOT) W !?0,"",$$TEXT^ORU($G(ORUT),"70") W !?0,"",$$TEXT^ORU($G(OROT),"70") W !?0,"WARD COMMENTS: ",$$TEXT^ORU($G(OROOT6),"") W !?14,"",$G(ORPCB) K X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6 W ?29,"ORD: ",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY HR:MIN") W !?14,"LB #",$G(ORPLB) W ?29,"LOC: ",$G(ORPRLOC) W !?0,"",$$NAME^ORU($G(ORPNAME),"") W ?29,"",$$SSN^ORU($G(ORPSSN),"") W !?0,"Entered By: ",$$NAME^ORU($G(ORPEB),"") W !?0,"PHY: ",$$NAME^ORU($G(ORPRPHY),"") |
SCREEN | I $$LBSCREEN^ORPR07A($G(ORIFN),$G(OACTION),$G(ORRACT),"NW","WCSP") |
SILENT CODE | D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(14,.CCNT,"LB #"_$G(ORPLB),.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(29,.CCNT,"LOC: "_$G(ORPRLOC),.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,""_$$NAME^ORU4($G(ORPNAME),"",.ORHOOT,0,.GCNT,.CCNT),.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(29,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,29,.GCNT,.CCNT),.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,"Entered By: "_$$NAME^ORU4($G(ORPEB),"",.ORHOOT,0,.GCNT,.CCNT),.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,"PHY: "_$$NAME^ORU4($G(ORPRPHY),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT) S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" 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(29,.CCNT,"Start: "_$$DATE^ORU4($G(ORPSTRT),"MM/DD/CCYY HR:MIN",.ORHOOT,29,.GCNT,.CCNT),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,"Test: "_$$TMPWRAP^ORU4($G(OROOT2),"70",.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(14,.CCNT,""_$G(ORPCB),.CCNT) S X=$$S^ORU4(49,.CCNT,""_$G(ORPURG),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,""_"Time of Collection:_____________",.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,"Collection Sample: "_$G(ORPCOT),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X 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,""_$$TEXT^ORU4($G(ORUT),"70",.ORHOOT,0,.GCNT,.CCNT),.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,""_$$TEXT^ORU4($G(OROT),"70",.ORHOOT,0,.GCNT,.CCNT),.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:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,"WARD COMMENTS: "_$$TEXT^ORU4($G(OROOT6),"",.ORHOOT,0,.GCNT,.CCNT),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X K X,ORPCB,ORPODT,ORPLB,ORPRLOC,ORPNAME,ORPSSN,ORPEB,ORPRPHY,ORPSTRT,OROOT2,ORPURG,ORPCOT,ORUT,OROT,OROOT6 S X=$$S^ORU4(29,.CCNT,"ORD: "_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY HR:MIN",.ORHOOT,29,.GCNT,.CCNT),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 |