Name | Value |
---|---|
NAME | CONSULTATION HEADER |
ROWS | 3 |
FIELDS |
|
COMPILED CODE | W ?0,"",$G(ORPLINE) W !?0,""," MEDICAL RECORD | CONSULTATION SHEET" W !?0,"",$G(ORPLINE) K X,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 K X,ORPLINE,ORPLINE 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,""_" MEDICAL RECORD | CONSULTATION SHEET",.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)="" |