RAHLRPT ;HISC/CAH AISC/SAW-Compiles HL7 'ORU' Message Type ; 4/26/01 10:40am
Source file <RAHLRPT.m>
Package | Total | Call Graph |
---|---|---|
Radiology Nuclear Medicine | 4 | (,EN)^RAHLRPT1 (INIT,PID,RESEND,SETUP)^RAHLRPTT GETHLP^RAHLRS1 (INIT,OBX11,OBXMOD,OBXPRC,OBXTCM)^RAHLRU |
Health Level Seven | 2 | ($$HLDATE,$$HLNAME)^HLFNC GENERATE^HLMA |
Kernel | 2 | $$FMTHL7^XLFDT ($$PATCH,$$VERSION)^XPDUTL |
VA Fileman | 2 | $$GET1^DIQ ^DIWP |
Registration | 1 | DEM^VADPT |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Called from RA RPT and RA RPT 2.3 protocol entry action
; Input variables: ; RADFN=file 2 IEN (DFN) ; RADTI=file 70 Exam subrecord IEN (reverse date/time) ; RACNI=file 70 Case subrecord IEN ; RARPT=file 74 Report IEN ; RASSS=List of Subscribers passed into GENERATE^HLMA will be set into HLP array. ; Output variables: ; HLA("HLS", array containing HL7 msg ; RATELREL = 1 Indicates that the text: 'Released for local dictation by National Teleradiology' ; has been included in Impression or Report section ; RATELX = Text used as indication of Release for local dictation... if not set use defauld above... ; RATELE = 1 If RANOSEND is Teleradiology type vendor |
|
OBXMOD | ;Compile 'OBX' Segment for Modifiers
|
|
OBXTCM | ;Compile 'OBX' Segment for Tech Comments
|
|
OBXDIA2 | ||
OBXDIA | ;Compile 'OBX' Segment for Diagnostic Code
|
|
RATELREL | ;Release the study for local reading
|
|
EXIT | ; set HL7 message type & return to RA RPT protocol
|
|
OBXRPT | ;Compile 'OBX' Segment for Radiology Report Text
|
|
OBXPRC | ;Compile 'OBX' Segment for Procedure
|
|
NEW | ; new variables
|
|
OBXIMP | ;Compile 'OBX' segment for Impression
|
|
OBR | ;Compile 'OBR' Segment
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | OBR+7, OBR+25, OBR+30, OBR+34, OBR+41, OBR+46 |
^DIWP | OBXIMP+3, OBXRPT+3 |
$$HLDATE^HLFNC | OBR+6, OBR+21 |
$$HLNAME^HLFNC | OBR+8, OBR+26, OBR+31, OBR+35, OBR+42, OBR+47 |
GENERATE^HLMA | EXIT+8 |
^RAHLRPT1 | NEW+9 |
EN^RAHLRPT1 | NEW+9 |
INIT^RAHLRPTT | EN+21 |
PID^RAHLRPTT | NEW+18 |
RESEND^RAHLRPTT | EXIT+2 |
SETUP^RAHLRPTT | NEW+18 |
GETHLP^RAHLRS1 | EXIT+7 |
INIT^RAHLRU | NEW+4 |
OBX11^RAHLRU | OBXDIA+9, OBXDIA2+10, OBXIMP+1, OBXIMP+4, OBXRPT+1, OBXRPT+4 |
OBXMOD^RAHLRU | OBXMOD+1 |
OBXPRC^RAHLRU | OBXPRC+1 |
OBXTCM^RAHLRU | OBXTCM+1 |
DEM^VADPT | NEW+12 |
$$FMTHL7^XLFDT | OBR+19 |
$$PATCH^XPDUTL | OBXDIA+3, OBXDIA2+4 |
$$VERSION^XPDUTL | OBXDIA+3, OBXDIA2+4 |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4 - [#4] | OBR+13 |
^DIC(42 - [#42] | OBR+9 |
^RA(78.3 - [#78.3] | OBXDIA+1, OBXDIA2+1 |
^RA(79.1 - [#79.1] | OBR+12 |
^RADPT - [#70] | EN+26, EN+27, OBR+11, OBR+38, OBR+39, OBR+40, OBXDIA+10, OBXDIA2 |
^RARPT - [#74] | OBR+45, OBR+46, OBR+48, OBXIMP+1, OBXIMP+3, OBXRPT+1, OBXRPT+3 |
^SC - [#44] | OBR+9, OBR+13 |
^UTILITY($J | OBXIMP+2!, OBXIMP+4, OBXRPT+2!, OBXRPT+4 |
Name | Line Occurrences |
---|---|
EXIT | NEW+9, NEW+13 |
NEW | EN+29 |
OBR | NEW+18 |
OBXDIA | NEW+18 |
OBXDIA2 | OBXDIA2+11 |
OBXIMP | NEW+18 |
OBXMOD | NEW+18 |
OBXPRC | NEW+18 |
OBXRPT | NEW+18 |
OBXTCM | NEW+18 |
RATELREL | OBXIMP+3, OBXRPT+3 |
Name | Field # of Occurrence |
---|---|
^( | OBXDIA2+1, OBXIMP+3, OBXIMP+4, OBXRPT+3, OBXRPT+4 |
^(0 | OBR+9, OBXIMP+3, OBXIMP+4, OBXRPT+3, OBXRPT+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | NEW+2~, NEW+12* |
DIWF | NEW+2~, OBXIMP+2*, OBXRPT+2* |
DIWL | NEW+2~, OBXIMP+2*, OBXIMP+4, OBXRPT+2*, OBXRPT+4 |
DIWR | NEW+2~, OBXIMP+2*, OBXRPT+2* |
EID | NEW+3~ |
HL | NEW+3~, NEW+5 |
HL("" | NEW+6 |
HL("MTN" | EXIT+3* |
HL("VER" | NEW+9 |
HLA | NEW+3~ |
HLA("HLS" | OBR+54*, OBR+55*, OBXDIA+4*, OBXDIA+8*, OBXDIA2+5*, OBXDIA2+9*, OBXIMP+1*, OBXIMP+4*, OBXRPT+1*, OBXRPT+4* |
HLARYTYP | EXIT+4~, EXIT+5*, EXIT+8 |
>> HLDT1 | OBR+21 |
HLECH | NEW+3~, OBR+1, OBR+5, OBR+6, OBR+8, OBR+13, OBR+27, OBR+32, OBR+36, OBR+43 , OBR+48, OBXDIA+4, OBXDIA+8, OBXDIA2+5, OBXDIA2+9, OBXIMP+1, OBXIMP+4, OBXRPT+1, OBXRPT+4 |
HLEID | EXIT+4~, EXIT+5*, EXIT+7, EXIT+8 |
HLFORMAT | EXIT+4~, EXIT+5*, EXIT+8 |
HLFS | NEW+3~, OBR+6, OBR+9, OBR+13, OBR+14, OBR+19, OBR+22, OBR+24, OBR+27, OBR+29 , OBR+32, OBR+36, OBR+38, OBR+43, OBR+45, OBR+48, OBR+51, OBR+54, OBXDIA+4, OBXDIA+8 , OBXDIA2+5, OBXDIA2+9, OBXIMP+1, OBXIMP+4, OBXRPT+1, OBXRPT+4 |
HLMTIEN | EXIT+4~, EXIT+5*, EXIT+8 |
HLP | EXIT+4~, EXIT+6*, EXIT+7, EXIT+8 |
HLP("ERRTEXT" | NEW+13* |
HLP("PRIORITY" | EXIT+5* |
HLQ | NEW+3~, OBR+6 |
>> HLRESLT | EXIT+8 |
INT | NEW+3~ |
OBR36 | NEW+3~, OBR+18*, OBR+19 |
RA20 | OBR+11~, OBR+12*, OBR+13 |
RACN0 | EN+20~, EN+22, OBR+7, OBR+8, OBR+9, OBR+29, OBR+30, OBR+32, OBR+33, OBR+34 , OBR+36, OBXDIA+1, OBXDIA+4 |
RACN00 | OBR+11~*, OBR+12, OBR+13 |
RACNI | EN+25~, EN+28*, NEW+9, EXIT+2, OBR+6, OBR+38, OBR+39, OBR+40, OBXDIA+10, OBXDIA2 |
RACPT | NEW+2~ |
RACPTNDE | NEW+2~, OBR+1 |
>> RADFN | EN+26, EN+27, NEW+9, NEW+12, EXIT+2, OBR+11, OBR+38, OBR+39, OBR+40, OBXDIA+10 , OBXDIA2 |
RADTE0 | NEW+2~, OBR+6 |
RADTECN | NEW+2~, OBR+6 |
>> RADTI | EN+26, EN+27, NEW+9, EXIT+2, OBR+6, OBR+11, OBR+18, OBR+38, OBR+39, OBR+40 , OBXDIA+10, OBXDIA2 |
RADTV | NEW+2~, OBR+21*!, OBR+22 |
>> RAEID | NEW+9, EXIT+5 |
RAI | NEW+2~, OBXDIA+1*, OBXDIA+4, OBXDIA+8, OBXIMP+3*, OBXIMP+4*, OBXRPT+3*, OBXRPT+4* |
RAII | EN+25~*, EN+26*, EN+27, EN+28 |
RAN | NEW+2~, NEW+3~, NEW+14*, OBR+53*, OBR+54, OBR+55, OBXDIA+2*, OBXDIA+4, OBXDIA+8, OBXDIA2+3* , OBXDIA2+5, OBXDIA2+9, OBXIMP+1*, OBXIMP+4*, OBXMOD+1*, OBXPRC+1*, OBXRPT+1*, OBXRPT+4* |
RAOBR4 | NEW+2~, OBR+1*, OBR+5*, OBR+6 |
RAPART | OBR+51~*, OBR+52!, OBR+54! |
RAPART(1 | OBR+51*, OBR+54 |
RAPART(2 | OBR+51*, OBR+54 |
RAPRCNDE | NEW+2~, OBR+1 |
RAPROC | NEW+2~, OBR+1 |
RAPROCIT | NEW+2~ |
RAPRV | NEW+2~, OBR+7*, OBR+8 |
>> RARPT | OBR+45, OBR+46, OBR+48, OBXIMP+1, OBXIMP+3, OBXRPT+1, OBXRPT+3 |
RARPT0 | NEW+2~, OBR+6, OBR+21, OBR+22, OBR+24, OBR+25, OBR+27 |
RASET | EN+20~, EN+24* |
>> RASSS | EXIT+6 |
>> RASSSX( | EXIT+7 |
RATELE | EN+20~, RATELREL+1 |
RATELREL | EN+20~, EXIT+2, RATELREL+1* |
RATELX | EN+20~, RATELREL+1 |
RAVADM | NEW+3!, EXIT+9! |
RAVADM(3 | NEW+15* |
U | EN+22, EN+27, OBR+1, OBR+12, OBR+13, OBXDIA2+1 |
VADM | NEW+3~ |
VADM(1 | NEW+13 |
VADM(3 | NEW+15 |
VAERR | NEW+3~ |
X | NEW+3~, OBXDIA2+1*, OBXDIA2+2, OBXDIA2+5, OBXDIA2+9, OBXIMP+3*, OBXRPT+3*, RATELREL+1 |
X0 | NEW+3~ |
X1 | NEW+3~, OBR+6*, OBR+8*, OBR+9*, OBR+13*, OBR+14*, OBR+19*, OBR+22*, OBR+24*, OBR+27* , OBR+29*, OBR+32*, OBR+36*, OBR+38*, OBR+43*, OBR+45*, OBR+48*, OBR+51, OBR+55 |
X2 | NEW+3~, OBR+25*, OBR+26, OBR+30*, OBR+31, OBR+34*, OBR+35, OBR+39*, OBR+40*, OBR+41 , OBR+43, OBR+46*, OBR+47, OBXDIA+11*, OBXDIA2*, OBXDIA2+1 |
XX2 | NEW+3~, OBR+41*, OBR+42 |
Y | NEW+3~, OBR+6*, OBR+8*, OBR+26*, OBR+27, OBR+31*, OBR+32, OBR+35*, OBR+36, OBR+42* , OBR+43, OBR+47*, OBR+48, OBXDIA2+1*, OBXDIA2+5 |
>> ZTQUEUED | NEW+1 |
>> ZTREQ | NEW+1* |
Name | Field # of Occurrence |
---|---|
$T(^RAHLRPT1 | NEW+9 |