Name | Value |
---|---|
NAME | CONSULTATION FOOTER |
ROWS | 13 |
FIELDS |
|
COMPILED CODE | W ?0,"","The patient was examined Yes___ No___" W !?0,"PATIENT'S ID.: ",$$NAME^ORU($G(ORPNAME),"LAST, FIRST MI") W ?51,"","CONSULTATION SHEET" W !?15,"",$$SSN^ORU($G(ORPSSN),"") W ?51,"","STANDARD FORM 513 (Rev 9-77)" W !?15,"",$G(ORPLOC) W ?25,"",$G(ORPRMBED) W ?51,"","Prescribed by GSA/ICMR" W !?51,"","FIRNIR (41 CFR) 201-45.505" W !?51,"","513-108" W !?0,"","The patient's medical record was reviewed Yes___ No___" K X,ORPLINE,ORPLINE,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED W !?0,"","Significant findings Yes___ No___" W !?0,"",$G(ORPLINE) W !?0,"","SIGNATURE & TITLE:" W ?62,"","| DATE:" W !?0,"",$G(ORPLINE) W !?0,"","ID #: _______ | ORGANIZATION: _______________ | REG #: ______ | WARD: ________" W !?0,"",$G(ORPLINE) |
SILENT CODE | S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,""_"Significant findings Yes___ No___",.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 D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,""_"SIGNATURE & TITLE:",.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X S X=$$S^ORU4(0,.CCNT,""_"The patient was examined Yes___ No___",.CCNT) S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(62,.CCNT,""_"| DATE:",.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 D LN^ORU4 S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(0,.CCNT,""_"ID #: _______ | ORGANIZATION: _______________ | REG #: ______ | WARD: ________",.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,""_$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,"PATIENT'S ID.: "_$$NAME^ORU4($G(ORPNAME),"LAST, FIRST MI",.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)="" D LN^ORU4 S X=$$S^ORU4(51,.CCNT,""_"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)="" S X=$$S^ORU4(15,.CCNT,""_$$SSN^ORU4($G(ORPSSN),"",.ORHOOT,15,.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(51,.CCNT,""_"STANDARD FORM 513 (Rev 9-77)",.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(15,.CCNT,""_$G(ORPLOC),.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(25,.CCNT,""_$G(ORPRMBED),.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(51,.CCNT,""_"Prescribed by GSA/ICMR",.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X D LN^ORU4 S X=$$S^ORU4(0,.CCNT,""_"The patient's medical record was reviewed Yes___ No___",.CCNT) S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)="" S X=$$S^ORU4(51,.CCNT,""_"FIRNIR (41 CFR) 201-45.505",.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(51,.CCNT,""_"513-108",.CCNT) I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X K X,ORPLINE,ORPLINE,ORPLINE,ORPNAME,ORPSSN,ORPLOC,ORPRMBED 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)="" |