RAHLEXF ;HIRMFO/BNT - RAD/NUC MED HL7 Exceptions filer;01/06/99
Source file <RAHLEXF.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 3 | DD^%DT FIND^DIC UPDATE^DIE | 
| Health Level Seven | 2 | $$GETAPP^HLCS2 $$FMDATE^HLFNC | 
| MailMan | 1 | ^XMD | 
| Package | Total | Caller Graph | 
|---|---|---|
| Radiology Nuclear Medicine | 2 | RAHLTCPB RAHLTCPX | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN1 | ; Entry point called from Bridge routine. | |
| ENX(HLRADT,RAMSG) | ; Entry point called from Bridge routine. | |
| EXIT | ; Kill variables and return to bridge routine.. | |
| MAIL(SAN,SAF,RAERR,RACN,RADFN,RADT,RAUSR) | ; Send mail message with error text. | |
| RAERR | ; Build array and update Exceptions File. | 
| FileNo | Call Tags | 
|---|---|
| ^VA(200 - [#200] | FIND^DIC | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DPT - [#2] | MAIL+16 | 
| ^TMP("RARPT-HL7" | EN1+7, EN1+32 | 
| ^TMP("RARPT-REC" | ENX+11, ENX+15, ENX+25, EN1+11, EN1+15, EN1+25 | 
| ^XMB(3.8 - [#3.8] | MAIL+42 | 
| Name | Line Occurrences | 
|---|---|
| EXIT | ENX+40, EN1+40 | 
| ENX+38, EN1+38 | |
| RAERR | ENX+35, EN1+35 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> HL("SAF" | ENX+38, EN1+38 | 
| >> HL("SAN" | ENX+22, EN1+22 | 
| >> HLMTIENS | MAIL+30 | 
| HLRADT | ENX~, ENX+7*, ENX+8, EN1+1~, EN1+7*, EN1+8 | 
| RACN | MAIL~, MAIL+19*, MAIL+32 | 
| RADFN | MAIL~, MAIL+16 | 
| RADT | ENX+1~, ENX+8*, ENX+38, EN1+1~, EN1+8*, EN1+38, RAERR+1, MAIL~, MAIL+21*, MAIL+29 , EXIT+1! | 
| RAERR | ENX+19, ENX+38, EN1+19, EN1+38, MAIL~, MAIL+36 | 
| RAERRX | ENX+1~, ENX+19*, EN1+1~, EN1+19*, RAERR+3, EXIT+1! | 
| RAERTXT | MAIL+11~ | 
| RAERTXT(1 | MAIL+28* | 
| RAERTXT(10 | MAIL+38* | 
| RAERTXT(11 | MAIL+39* | 
| RAERTXT(2 | MAIL+29*, MAIL+30* | 
| RAERTXT(3 | MAIL+31* | 
| RAERTXT(4 | MAIL+32* | 
| RAERTXT(5 | MAIL+33* | 
| RAERTXT(6 | MAIL+34* | 
| RAERTXT(7 | MAIL+35* | 
| RAERTXT(8 | MAIL+36* | 
| RAERTXT(9 | MAIL+37* | 
| RAEX | ENX+1~, EN1+1~, EXIT+1! | 
| RAEX(0 | RAERR+1*, RAERR+2*, RAERR+3*, RAERR+4*, RAERR+5*, RAERR+6*, RAERR+7* | 
| RAEXFIL | ENX+1~, ENX+4*, EN1+1~, EN1+4*, RAERR+1, RAERR+2, RAERR+3, RAERR+4, RAERR+5, RAERR+6 , RAERR+7, EXIT+1! | 
| RALNGCS | ENX+1~, ENX+15*, ENX+16*, ENX+38, EN1+1~, EN1+15*, EN1+16*, EN1+38, RAERR+5, EXIT+1! | 
| RAMGP | MAIL+11~, MAIL+13*, MAIL+14, MAIL+38, MAIL+42 | 
| RAMSG | ENX~, EN1+1~, EN1+32*, RAERR+7, EXIT+1! | 
| >> RAOUT("DILIST" | ENX+28, ENX+29, EN1+28, EN1+29 | 
| RAPT | ENX+1~, ENX+11*, ENX+12*, ENX+38, EN1+1~, EN1+11*, EN1+12*, EN1+38, RAERR+4, MAIL+16* , MAIL+17*, MAIL+32, EXIT+1! | 
| >> RASUB | ENX+11, ENX+15, ENX+25, EN1+11, EN1+15, EN1+25 | 
| RAUSR | ENX+1~, ENX+25*, ENX+26, ENX+27, ENX+29*, ENX+38, EN1+1~, EN1+25*, EN1+26, EN1+27 , EN1+29*, EN1+38, RAERR+6, MAIL~, MAIL+20*, MAIL+39, MAIL+43, EXIT+1! | 
| SAF | MAIL~, MAIL+22*, MAIL+26, MAIL+29 | 
| SAN | MAIL~, MAIL+13, MAIL+22 | 
| SFAC | ENX+1~, ENX+22*, ENX+38, EN1+1~, EN1+22*, EN1+38, RAERR+2, EXIT+1! | 
| X | ENX+1~, ENX+8*, EN1+1~, EN1+8*, EXIT+1! | 
| XMDUZ | MAIL+11~, MAIL+24* | 
| XMSUB | MAIL+11~, MAIL+26* | 
| >> XMTEXT | MAIL+40* | 
| XMY | MAIL+11~ | 
| XMY( | MAIL+43* | 
| XMY("G." | MAIL+42* | 
| Y | ENX+1~, EN1+1~, MAIL+11~, MAIL+21*, EXIT+1! |