CONSULTATION BODY (1013)    OE/RR PRINT FORMATS (100.23)

Name Value
NAME CONSULTATION BODY
ROWS 18
FIELDS
  • CONSULTANT
    ROW:   3
    COLUMN:   1
    CAPTION (Optional):   TO:
  • FREE TEXT
    ROW:   13
    COLUMN:   30
    LITERAL TEXT:   CONSULTATION REPORT
  • FREE TEXT
    ROW:   10
    COLUMN:   1
    LITERAL TEXT:   REQUESTED BY:
  • FREE TEXT
    ROW:   10
    COLUMN:   32
    LITERAL TEXT:   | APPROVED:
  • REQUEST TYPE
    ROW:   1
    COLUMN:   1
    CAPTION (Optional):   NONE
  • ELECTRONIC SIGNATURE NAME
    ROW:   11
    COLUMN:   1
    CAPTION (Optional):   NONE
  • FREE TEXT
    ROW:   10
    COLUMN:   44
    LITERAL TEXT:   | PLACE:
  • FREE TEXT
    ROW:   10
    COLUMN:   64
    LITERAL TEXT:   | URGENCY:
  • FREE TEXT
    ROW:   11
    COLUMN:   32
    LITERAL TEXT:   | _________
  • REASON FOR REQUEST
    ROW:   6
    COLUMN:   1
    CAPTION (Optional):   NONE
    FORMAT:   78
  • FREE TEXT
    ROW:   5
    COLUMN:   1
    LITERAL TEXT:   REASON FOR REQUEST (Complaints and findings)
  • HORIZONTAL LINE
    ROW:   2
    COLUMN:   1
    CAPTION (Optional):   NONE
  • HORIZONTAL LINE
    ROW:   4
    COLUMN:   1
    CAPTION (Optional):   NONE
  • HORIZONTAL LINE
    ROW:   7
    COLUMN:   1
    CAPTION (Optional):   NONE
  • PROVISIONAL DIAGNOSIS
    ROW:   8
    COLUMN:   1
    CAPTION (Optional):   PROVISIONAL DIAG:
  • HORIZONTAL LINE
    ROW:   9
    COLUMN:   1
    CAPTION (Optional):   NONE
  • HORIZONTAL LINE
    ROW:   12
    COLUMN:   1
    CAPTION (Optional):   NONE
  • HORIZONTAL LINE
    ROW:   14
    COLUMN:   1
    CAPTION (Optional):   NONE
  • PLACE OF CONSULTATION
    ROW:   11
    COLUMN:   44
    CAPTION (Optional):   |
  • CONSULT URGENCY
    ROW:   11
    COLUMN:   64
    CAPTION (Optional):   |
  • REQUESTING PHYSICIAN
    ROW:   10
    COLUMN:   15
    CAPTION (Optional):   NONE
    FORMAT:   LAST, FI MI
  • PROCEDURE/CONSULT TYPE
    ROW:   1
    COLUMN:   20
    CAPTION (Optional):   NONE
  • ORDER DATE
    ROW:   3
    COLUMN:   58
    CAPTION (Optional):   | REQUESTED:
    FORMAT:   MM/DD/CCYY
  • REQUESTING LOCATION
    ROW:   3
    COLUMN:   29
    CAPTION (Optional):   | FROM:
COMPILED CODE 
W ?0,"",$G(ORPCTYPE)
W !?0,"",$G(ORPLINE)
W !?0,"PROVISIONAL DIAG: ",$G(ORPDX)
W !?0,"",$G(ORPLINE)
W !?0,"","REQUESTED BY:"
W ?14,"",$$NAME^ORU($G(ORPRPHY),"LAST, FI MI")
W ?31,"","| APPROVED:"
W ?43,"","| PLACE:"
W ?63,"","| URGENCY:"
W !?0,"",$G(ORPES)
W ?31,"","| _________"
W ?19,"",$G(ORPCPROC)
W ?43,"| ",$G(ORPLACE)
W ?63,"| ",$G(ORPCURG)
W !?0,"",$G(ORPLINE)
W !?29,"","CONSULTATION REPORT"
W !?0,"",$G(ORPLINE)
W !
W !
W !
W !
W !?0,"",$G(ORPLINE)
K X,ORPCTYPE,ORPCPROC,ORPLINE,ORPCTO,ORPRLOC,ORPODT,ORPLINE,OROOT3,ORPLINE,ORPDX,ORPLINE,ORPRPHY,ORPES,ORPLACE,ORPCURG,ORPLINE,ORPLINE
W !?0,"TO: ",$G(ORPCTO)
W ?28,"| FROM: ",$G(ORPRLOC)
W ?57,"| REQUESTED: ",$$DATE^ORU($G(ORPODT),"MM/DD/CCYY")
W !?0,"",$G(ORPLINE)
W !?0,"","REASON FOR REQUEST (Complaints and findings)"
W !?0,"",$$WORD^ORU($G(OROOT3),"78")
SILENT CODE 
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
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,"TO: "_$G(ORPCTO),.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(28,.CCNT,"| FROM: "_$G(ORPRLOC),.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(57,.CCNT,"| REQUESTED: "_$$DATE^ORU4($G(ORPODT),"MM/DD/CCYY",.ORHOOT,57,.GCNT,.CCNT),.CCNT)
S X=$$S^ORU4(0,.CCNT,""_$G(ORPCTYPE),.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,""_"REASON FOR REQUEST (Complaints and findings)",.CCNT)
I $D(@ORHOOT@(GCNT,0)),$D(X) S @ORHOOT@(GCNT,0)=@ORHOOT@(GCNT,0)_X
D LN^ORU4
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(0,.CCNT,""_$$WORD^ORU4($G(OROOT3),"78",.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,""_$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,"PROVISIONAL DIAG: "_$G(ORPDX),.CCNT)
S:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
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,""_"REQUESTED BY:",.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(19,.CCNT,""_$G(ORPCPROC),.CCNT)
S X=$$S^ORU4(14,.CCNT,""_$$NAME^ORU4($G(ORPRPHY),"LAST, FI MI",.ORHOOT,14,.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(31,.CCNT,""_"| APPROVED:",.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(43,.CCNT,""_"| PLACE:",.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(63,.CCNT,""_"| URGENCY:",.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(ORPES),.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(31,.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(43,.CCNT,"| "_$G(ORPLACE),.CCNT)
D LN^ORU4
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(63,.CCNT,"| "_$G(ORPCURG),.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:'$D(@ORHOOT@(GCNT,0)) @ORHOOT@(GCNT,0)=""
S X=$$S^ORU4(29,.CCNT,""_"CONSULTATION REPORT",.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
D LN^ORU4
D LN^ORU4
D LN^ORU4
S X=$$S^ORU4(0,.CCNT,""_$G(ORPLINE),.CCNT)
K X,ORPCTYPE,ORPCPROC,ORPLINE,ORPCTO,ORPRLOC,ORPODT,ORPLINE,OROOT3,ORPLINE,ORPDX,ORPLINE,ORPRPHY,ORPES,ORPLACE,ORPCURG,ORPLINE,ORPLINE