Name | Value |
---|---|
NAME | DOCTOR'S ORDERS HEADER |
ROWS | 8 |
FIELDS |
|
COMPILED CODE | W ?0,"",$G(ORPLINE) K X,ORPLINE,ORPLINE,ORPLINE,ORPLINE W !?0,""," MEDICAL RECORD | D O C T O R ' S O R D E R S" W !?0,"",$G(ORPLINE) W !?0,"","NOTE: Physician's signature must accompany each entry including standing orders" W !?0,"","Date and time for instituting and discontinuing the orders must be recorded" W !?0,"",$G(ORPLINE) W !?1,"","DATE & TIME | O R D E R S | SIGNATURES" W !?0,"",$G(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(0,.CCNT,""_"NOTE: Physician's signature must accompany each entry including standing orders",.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,""_"Date and time for instituting and discontinuing the orders must be recorded",.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) 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 D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(1,.CCNT,""_"DATE & TIME | O R D E R S | SIGNATURES",.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)="" I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X S X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X K X,ORPLINE,ORPLINE,ORPLINE,ORPLINE D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,""_" MEDICAL RECORD | D O C T O R ' S O R D E R S",.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)="" |