CONSULTATION FOOTER (1011)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME CONSULTATION FOOTER
ROWS 13
FIELDS
  • SSN of Patient
    ROW:   10
    COLUMN:   16
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   10
    COLUMN:   52
    LITERAL TEXT:   STANDARD FORM 513 (Rev 9-77)
  • LOCATION of Patient
    ROW:   11
    COLUMN:   16
    CAPTION (Optional):   NONE
  • ROOM/BED of Patient
    ROW:   11
    COLUMN:   26
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   11
    COLUMN:   52
    LITERAL TEXT:   Prescribed by GSA/ICMR
  • FREE TEXT
    ROW:   12
    COLUMN:   52
    LITERAL TEXT:   FIRNIR (41 CFR) 201-45.505
  • FREE TEXT
    ROW:   13
    COLUMN:   52
    LITERAL TEXT:   513-108
  • HORIZONTAL LINE
    ROW:   4
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   5
    COLUMN:   1
    LITERAL TEXT:   SIGNATURE & TITLE:
  • FREE TEXT
    ROW:   5
    COLUMN:   63
    LITERAL TEXT:   | DATE:
  • HORIZONTAL LINE
    ROW:   6
    COLUMN:   1
    CAPTION (Optional):   NONE
  • HORIZONTAL LINE
    ROW:   8
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   7
    COLUMN:   1
    LITERAL TEXT:   ID #: _______ | ORGANIZATION: _______________ | REG #: ______ | WARD: ________
  • FREE TEXT
    ROW:   1
    COLUMN:   1
    LITERAL TEXT:   The patient was examined Yes___ No___
  • FREE TEXT
    ROW:   2
    COLUMN:   1
    LITERAL TEXT:   The patient's medical record was reviewed Yes___ No___
  • FREE TEXT
    ROW:   3
    COLUMN:   1
    LITERAL TEXT:   Significant findings Yes___ No___
  • NAME of Patient
    ROW:   9
    COLUMN:   1
    CAPTION (Optional):   PATIENT'S ID.:
    FORMAT:   LAST, FIRST MI
  • FREE TEXT
    ROW:   9
    COLUMN:   52
    LITERAL TEXT:   CONSULTATION SHEET
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)=""