©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
RAHLRS ;HIRMFO/CRT/PDW - Resend HL7 messages for selected cases ;01/19/08 12:40
Source file <RAHLRS.m>
| Package | Total | Call Graph |
|---|---|---|
| Radiology Nuclear Medicine | 4 | ^RACNLU (1,CANCEL,REG,RPT)^RAHLRPC SETVARS^RAPSET1 HLXMSG^RARTE5 |
| VA Fileman | 4 | ^%DT EN^DDIOL $$GET1^DIQ ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 1 | RA HL7 MESSAGE RESEND |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETVARS | ; Setup key Rad/Nuc Med variables
|
|
| RESEND(RADFN,RADTI,RACNI,QUIT) | ; re-send exam message(s) to HL7 subscribers
|
|
| OK(RADFN,RADTI,RACNI) | ; Get User to confirm continue
|
|
| RAED(RADFN,RADTI,RACNI) | ; identify correct ^RAHLRPC entry point(s)
|
|
| RACNLU(RADFN,RADTI,RACNI) | ; Select Case Number
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | RESEND+5 |
| EN^DDIOL | RESEND+11, RESEND+14, RESEND+18, RESEND+21, OK+7 |
| $$GET1^DIQ | RAED+8, RAED+10, RAED+11, RAED+15, RAED+22, RAED+25, OK+4 |
| ^DIR | OK+9 |
| ^RACNLU | RACNLU+4 |
| 1^RAHLRPC | RESEND+19 |
| CANCEL^RAHLRPC | RESEND+15 |
| REG^RAHLRPC | RESEND+12 |
| RPT^RAHLRPC | RESEND+24 |
| SETVARS^RAPSET1 | SETVARS+2, SETVARS+4 |
| HLXMSG^RARTE5 | RESEND+23 |
| FileNo | Call Tags |
|---|---|
| 70.03 | GET1^DIQ |
| ^RA(72 - [#72] | GET1^DIQ |
| ^RARPT - [#74] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(72 - [#72] | RAED+20, RAED+21 |
| ^RADPT - [#70] | RESEND+17* |
| Name | Line Occurrences |
|---|---|
| $$OK | RESEND+8 |
| $$RACNLU | RAHLRS+10 |
| $$RAED | RESEND+7 |
| RESEND | RAHLRS+11 |
| SETVARS | RAHLRS+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DIR("A" | OK+8* |
| >> DIR("B" | OK+9* |
| >> DIR(0 | OK+9* |
| DT | RESEND+5* |
| DUZ | SETVARS+2, SETVARS+3 |
| QUIT | RAHLRS+10, RAHLRS+11, RESEND~, RESEND+4*, RESEND+8*, RESEND+9 |
| >> RACCESS( | SETVARS+2, SETVARS+3 |
| RACNI | RAHLRS+6~, RAHLRS+10, RAHLRS+11, RACNLU~, RESEND~, RESEND+7, RESEND+8, RESEND+17, RAED~, RAED+8 , OK~, OK+4 |
| RADFN | RAHLRS+6~, RAHLRS+10, RAHLRS+11, RACNLU~, RACNLU+3*, RESEND~, RESEND+7, RESEND+8, RESEND+17, RAED~ , RAED+8, OK~, OK+4 |
| RADTI | RAHLRS+6~, RAHLRS+10, RAHLRS+11, RACNLU~, RACNLU+3*, RESEND~, RESEND+7, RESEND+8, RESEND+17, RAED~ , RAED+8, OK~, OK+4 |
| RAED | RESEND+2~, RESEND+7*, RESEND+10, RESEND+13, RESEND+16, RESEND+20 |
| RAEXMDUN | RESEND+19~ |
| RAEXST | OK+2~, OK+4*, OK+8 |
| >> RAIMGTY | RAHLRS+8, SETVARS+4 |
| RAIMTYP | RAED+3~, RAED+10*, RAED+20, RAED+21 |
| RANOSCRN | RACNLU+2~* |
| RAORD | RAED+3~, RAED+11*, RAED+13, RAED+20*, RAED+21 |
| RARPST | RESEND+2~, RESEND+23, RAED+4*, RAED+25*, RAED+26 |
| RARPT | RAHLRS+6~, RAED+24, RAED+25 |
| RASSSX | RESEND+2~ |
| RASTAT | RAED+3~, RAED+4*, RAED+8*, RAED+10, RAED+11, RAED+15, RAED+21*, RAED+22 |
| RETURN | RAED+3~, RAED+6*, RAED+13*, RAED+16*, RAED+18, RAED+20, RAED+22*, RAED+26*, RAED+28 |
| X | RAHLRS+6~, RAHLRS+10*, RACNLU+5, OK+2~, OK+6*, OK+7 |
| XQUIT | SETVARS+4! |
| >> Y | RESEND+5, OK+10, OK+11 |