DGENUPL4 ;ALB/CJM,RTK,ISA,KWP,ISD/GSN,PHH,RGL,PJR,BRM,TDM,TMK,EG,BAJ,HM,JAM - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ;6/28/11 4:36pm
Source file <DGENUPL4.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 14 | ($$FINDCUR,$$GET)^DGENA $$GET^DGENCDA $$CHECK^DGENCDA1 $$UPD^DGENDBS ($$GET,$$NATCODE)^DGENELA $$CHECK^DGENELA1 $$GET^DGENOEIF ($$GET,$$INPAT)^DGENPTA $$CHECK^DGENPTA1 ADDERROR^DGENUPL (ADDMSG,NOTIFY,SCVET)^DGENUPL3 ($$CDCHECK,AO)^DGENUPL9 EP^DGENUPLB $$IFREG^DGREG |
| Kernel | 1 | $$FMTE^XLFDT |
| VA FileMan | 1 | $$GET1^DIQ |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UOBJECTS(DFN,DGPAT,DGELG,DGCDIS,DGOEIF,MSGID,ERRCOUNT,MSGS,OLDPAT,OLDELG,OLDCDIS,OLDOEIF) | ;
|
|
| ADD | ;
|
|
| MERGE | ;
|
|
| CHECK() | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$FINDCUR^DGENA | CHECK+18 |
| $$GET^DGENA | CHECK+19 |
| $$GET^DGENCDA | UOBJECTS+32 |
| $$CHECK^DGENCDA1 | CHECK+26 |
| $$UPD^DGENDBS | ADD+21 |
| $$GET^DGENELA | UOBJECTS+32 |
| $$NATCODE^DGENELA | MERGE+52, MERGE+57, MERGE+58, MERGE+59, MERGE+64, MERGE+70 |
| $$CHECK^DGENELA1 | CHECK+26 |
| $$GET^DGENOEIF | UOBJECTS+32 |
| $$GET^DGENPTA | UOBJECTS+32 |
| $$INPAT^DGENPTA | CHECK+13 |
| $$CHECK^DGENPTA1 | CHECK+26 |
| ADDERROR^DGENUPL | UOBJECTS+33, CHECK+22, CHECK+29 |
| ADDMSG^DGENUPL3 | UOBJECTS+97, UOBJECTS+98, UOBJECTS+101, UOBJECTS+102, UOBJECTS+105, UOBJECTS+106, UOBJECTS+109, UOBJECTS+112, UOBJECTS+118, CHECK+22 |
| NOTIFY^DGENUPL3 | CHECK+22 |
| SCVET^DGENUPL3 | ADD+10 |
| $$CDCHECK^DGENUPL9 | UOBJECTS+37 |
| AO^DGENUPL9 | MERGE+72 |
| EP^DGENUPLB | UOBJECTS+119 |
| $$IFREG^DGREG | CHECK+10 |
| $$GET1^DIQ | MERGE+62, MERGE+65 |
| $$FMTE^XLFDT | UOBJECTS+97, UOBJECTS+98, UOBJECTS+102 |
| FileNo | Call Tags |
|---|---|
| ^DIC(8 - [#8] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(27.18 - [#27.18] | UOBJECTS+53, UOBJECTS+74 |
| ^DG(391 - [#391] | ADD+14 |
| ^DGEN(27.17 - [#27.17] | MERGE+39 |
| ^DIC(21 - [#21] | ADD+15 |
| ^DIC(8 - [#8] | MERGE+64 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALIVE | CHECK+2~, CHECK+7, CHECK+10*, CHECK+13*, CHECK+19*, CHECK+22 |
| CDEXT | MERGE+34~, MERGE+37*, MERGE+38, MERGE+39, MERGE+41 |
| CDPROC | MERGE+34~, MERGE+35*, MERGE+36, MERGE+39 |
| CURENR | CHECK+17~, CHECK+19 |
| CURENR("DATE" | CHECK+19 |
| CURENR("STATUS" | CHECK+19 |
| CURIEN | CHECK+17~, CHECK+18*, CHECK+19 |
| DATA | ADD+5~, ADD+21 |
| DATA( | ADD+18* |
| DFN | UOBJECTS~, UOBJECTS+32, ADD+21, CHECK+10, CHECK+13, CHECK+18 |
| DGCDIS | UOBJECTS~, UOBJECTS+89!* |
| DGCDIS( | MERGE+27, MERGE+28, MERGE+29, MERGE+31, MERGE+32 |
| DGCDIS("EXT" | MERGE+37 |
| DGCDIS("PROC" | MERGE+35 |
| DGCDIS("VCD" | UOBJECTS+115, UOBJECTS+118 |
| DGCDIS3 | UOBJECTS+28~, UOBJECTS+89, MERGE+11!*, CHECK+26 |
| DGCDIS3( | MERGE+28*, MERGE+32* |
| DGCDIS3("COND" | MERGE+11! |
| DGCDIS3("DIAG" | MERGE+11! |
| DGCDIS3("EXT" | MERGE+11!, MERGE+41* |
| DGCDIS3("PROC" | MERGE+11! |
| DGELG | UOBJECTS~, UOBJECTS+88!* |
| DGELG( | MERGE+44 |
| DGELG("ELIG" | MERGE+52, MERGE+57, MERGE+58, MERGE+69 |
| DGELG("MOH" | UOBJECTS+42*, UOBJECTS+44*, UOBJECTS+46*, UOBJECTS+48 |
| DGELG("MOHAWRDDATE" | UOBJECTS+42*, UOBJECTS+44*, UOBJECTS+46*, UOBJECTS+48* |
| DGELG("MOHEXEMPDATE" | UOBJECTS+42*, UOBJECTS+44*, UOBJECTS+46*, UOBJECTS+48* |
| DGELG("MOHSTATDATE" | UOBJECTS+42* |
| DGELG("MTSTA" | MERGE+14 |
| DGELG("POW" | UOBJECTS+105, UOBJECTS+106 |
| DGELG("RATEDIS" | MERGE+49 |
| DGELG("SC" | UOBJECTS+109 |
| DGELG("VAPEN" | UOBJECTS+64, UOBJECTS+65 |
| DGELG3 | UOBJECTS+28~, UOBJECTS+88, MERGE+8*, CHECK+26 |
| DGELG3( | MERGE+44* |
| DGELG3("ELIG" | MERGE+52*, MERGE+59, MERGE+62, MERGE+63, MERGE+64!, MERGE+65!, MERGE+70* |
| DGELG3("ELIGENTBY" | ADD+6* |
| DGELG3("ELIGSTA" | CHECK+25 |
| DGELG3("ELIGVERIF" | ADD+18 |
| DGELG3("MTSTA" | MERGE+14* |
| DGELG3("POS" | ADD+15* |
| DGELG3("POW" | MERGE+10* |
| DGELG3("RATEDIS" | ADD+7*, MERGE+48!, MERGE+49* |
| DGELG3("SC" | ADD+13 |
| DGENR | CHECK+2~ |
| DGOEIF | UOBJECTS~ |
| DGPAT | UOBJECTS~, UOBJECTS+87!*, CHECK+22 |
| DGPAT( | UOBJECTS+55*, UOBJECTS+58, UOBJECTS+68, UOBJECTS+71, MERGE+18 |
| DGPAT("DEATH" | UOBJECTS+96, UOBJECTS+97, UOBJECTS+100 |
| DGPAT("INELDATE" | UOBJECTS+112, MERGE+23* |
| DGPAT("INELDEC" | MERGE+21* |
| DGPAT("INELREA" | MERGE+22* |
| DGPAT("MOH" | UOBJECTS+41*, UOBJECTS+43*, UOBJECTS+45*, UOBJECTS+47 |
| DGPAT("MOHAWRDDATE" | UOBJECTS+41*, UOBJECTS+43*, UOBJECTS+45*, UOBJECTS+47* |
| DGPAT("MOHEXEMPDATE" | UOBJECTS+41*, UOBJECTS+43*, UOBJECTS+45*, UOBJECTS+47* |
| DGPAT("MOHSTATDATE" | UOBJECTS+41* |
| DGPAT("PALOCK" | UOBJECTS+60*, UOBJECTS+71*, UOBJECTS+74* |
| DGPAT("PENAEFDT" | UOBJECTS+54 |
| DGPAT("PENAREAS" | UOBJECTS+74 |
| DGPAT("PENTRMDT" | UOBJECTS+54 |
| DGPAT("PILOCK" | UOBJECTS+59*, UOBJECTS+64*, UOBJECTS+65*, UOBJECTS+68* |
| DGPAT("SSN" | UOBJECTS+33, CHECK+22, CHECK+29 |
| DGPAT3 | UOBJECTS+28~, UOBJECTS+87, MERGE+8*, CHECK+26 |
| DGPAT3( | MERGE+18* |
| DGPAT3("DEATH" | CHECK+7, CHECK+19 |
| DGPAT3("INELDATE" | ADD+13 |
| DGPAT3("PATYPE" | ADD+14* |
| DGPAT3("POWI" | MERGE+10 |
| DGPAT3("VETERAN" | ADD+14* |
| DT | CHECK+13 |
| ERRCOUNT | UOBJECTS~, UOBJECTS+33, CHECK+22, CHECK+29 |
| ERRMSG | CHECK+2~, CHECK+4*, CHECK+26, CHECK+29 |
| >> ERROR | ADD+21 |
| HEC | MERGE+7~ |
| HEC( | MERGE+57*, MERGE+58*, MERGE+64 |
| ISOTH | MERGE+7~, MERGE+62*, MERGE+65 |
| LIEN | MERGE+34~, MERGE+39*, MERGE+40, MERGE+41 |
| LOC | MERGE+7~ |
| LOC( | MERGE+59*, MERGE+70 |
| MSGID | UOBJECTS~, UOBJECTS+33, CHECK+22, CHECK+29 |
| MSGS | UOBJECTS~, UOBJECTS+97, UOBJECTS+98, UOBJECTS+101, UOBJECTS+102, UOBJECTS+105, UOBJECTS+106, UOBJECTS+109, UOBJECTS+112, UOBJECTS+118 , CHECK+22 |
| NATCODE | MERGE+7~, MERGE+57*, MERGE+58*, MERGE+59* |
| OLDCDIS | UOBJECTS~, UOBJECTS+32, MERGE+11 |
| OLDCDIS("VCD" | UOBJECTS+115, UOBJECTS+118 |
| OLDELG | UOBJECTS~, UOBJECTS+32, MERGE+8 |
| OLDELG("MOH" | UOBJECTS+42, UOBJECTS+44, UOBJECTS+46 |
| OLDELG("POW" | UOBJECTS+105, UOBJECTS+106 |
| OLDELG("SC" | UOBJECTS+109 |
| OLDOEIF | UOBJECTS~, UOBJECTS+32 |
| OLDPAT | UOBJECTS~, UOBJECTS+32, MERGE+8 |
| OLDPAT("DEATH" | UOBJECTS+96, UOBJECTS+98, UOBJECTS+100, UOBJECTS+102, CHECK+7 |
| OLDPAT("INELDATE" | UOBJECTS+112 |
| OLDPAT("MOH" | UOBJECTS+41, UOBJECTS+43, UOBJECTS+45 |
| OLDPAT("PALOCK" | UOBJECTS+60 |
| OLDPAT("PENAEFDT" | UOBJECTS+54 |
| OLDPAT("PENAREAS" | UOBJECTS+53 |
| OLDPAT("PILOCK" | UOBJECTS+59 |
| SUB | UOBJECTS+55~*, UOBJECTS+58~*, UOBJECTS+68~*, UOBJECTS+71~*, ADD+5~, ADD+7*, MERGE+7~, MERGE+17*, MERGE+18*, MERGE+26* , MERGE+27*, MERGE+28, MERGE+29, MERGE+31, MERGE+32, MERGE+33, MERGE+44*, MERGE+58*, MERGE+59*, MERGE+63* , MERGE+64, MERGE+65, MERGE+68*, MERGE+69*, MERGE+70 |
| SUB2 | MERGE+7~, MERGE+30*, MERGE+31*, MERGE+32, MERGE+35, MERGE+37, MERGE+41 |
| SUCCESS | UOBJECTS+28~, UOBJECTS+29*, UOBJECTS+34*, UOBJECTS+37*, UOBJECTS+38, UOBJECTS+83*, UOBJECTS+84, UOBJECTS+91, UOBJECTS+120, CHECK+2~ , CHECK+3*, CHECK+7*, CHECK+25, CHECK+28*, CHECK+30 |
| TYPE | ADD+5~ |
| U | UOBJECTS+32, UOBJECTS+53, UOBJECTS+74 |
