RGADTP1 ;BIR/DLR-ADT PROCESSOR TO RETRIGGER A08 or A04 MESSAGES WITH AL/AL (COMMIT/APPLICATION) ACKNOWLEDGEMENTS - CONTINUED ;7/19/21 12:43
Source file <RGADTP1.m>
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Master Patient Index VistA | 3 | MPIFA24 MPIFA37 MPIFA43 |
| Clinical Information Resource Network | 1 | RGADTP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PIDP(MSG,ARRAY,HL) | ;process PID segment
|
|
| IDSARR | ;parse ids ;**61 MVI_2970 (dri)
|
|
| NAMARR | ;parse legal and alias names ;**61 MVI_2970 (dri)
|
|
| QTON(X) | ;**71,Story 841921 (mko): Convert two quotes to null
|
|
| COUNTRY(CNTRY) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | COUNTRY+5 |
| $$GET1^DIQ | COUNTRY+7 |
| $$FMDATE^HLFNC | PIDP+77, PIDP+126 |
| $$FMNAME^HLFNC | PIDP+71, NAMARR+11, NAMARR+20 |
| $$GETFLAG^MPIFNAMC | NAMARR+21 |
| $$FMTNAME^RGADTP3 | NAMARR+27 |
| $$COUNTY^RGRSPARS | PIDP+98 |
| $$FREE^RGRSPARS | PIDP+71, PIDP+72, PIDP+90, PIDP+91, PIDP+92, PIDP+93, PIDP+94, PIDP+96, PIDP+99, PIDP+100 , PIDP+102, PIDP+107, PIDP+126, COUNTRY+2 |
| $$MARITAL^RGRSPARS | PIDP+114 |
| $$RELIG^RGRSPARS | PIDP+121 |
| $$STATE^RGRSPARS | PIDP+95, PIDP+105 |
| $$IEN^XUAF4 | PIDP+48 |
| FileNo | Call Tags |
|---|---|
| ^HL(779.004 - [#779.004] | FIND1^DIC, GET1^DIQ |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | PIDP+35~, PIDP+36*, PIDP+38*, PIDP+53~, PIDP+54*, PIDP+56*, IDSARR+3, NAMARR+3 |
| AA | PIDP+48~*, PIDP+49 |
| ACNT | PIDP+35~, PIDP+36*, IDSARR+16* |
| ADDR | PIDP+86~, PIDP+88*, PIDP+90*, PIDP+91, PIDP+92, PIDP+93, PIDP+94, PIDP+95, PIDP+96, PIDP+102 , PIDP+104, PIDP+105, PIDP+107 |
| ADRTYPE | PIDP+86~, PIDP+88*, PIDP+89, PIDP+101 |
| AL | PIDP+48~*, PIDP+49 |
| ALIAS | NAMARR+22~, NAMARR+27 |
| ALIAS("FIRST" | NAMARR+24* |
| ALIAS("MIDDLE" | NAMARR+25* |
| ALIAS("SUFFIX" | NAMARR+26* |
| ALIAS("SURNAME" | NAMARR+23* |
| ALIASNC | NAMARR+18~, NAMARR+19*, NAMARR+20*, NAMARR+23, NAMARR+24, NAMARR+25, NAMARR+26, NAMARR+29 |
| ALIASNM | NAMARR+18~, NAMARR+20*, NAMARR+21, NAMARR+27*, NAMARR+28 |
| ALISWKD | PIDP+53~, PIDP+54*, NAMARR+2*, NAMARR+3* |
| ARRAY | PIDP~ |
| ARRAY( | PIDP+91*, PIDP+92*, PIDP+93*, PIDP+94*, PIDP+95*, PIDP+96*, PIDP+98*, PIDP+99*, PIDP+100*, PIDP+114* , PIDP+121*, PIDP+126*, IDSARR+11* |
| ARRAY("ALIAS" | IDSARR+16*, NAMARR+28*, NAMARR+29* |
| ARRAY("CLAIMN" | PIDP+21*, IDSARR+19* |
| ARRAY("DFN" | PIDP+21*, IDSARR+13* |
| ARRAY("DFNLOC" | IDSARR+13* |
| ARRAY("FIN" | IDSARR+23* |
| ARRAY("FIRST" | NAMARR+7* |
| ARRAY("ICN" | PIDP+21*, IDSARR+11* |
| ARRAY("ITIN" | IDSARR+26* |
| ARRAY("MBI" | PIDP+117* |
| ARRAY("MIDDLE" | NAMARR+8* |
| ARRAY("MMN" | PIDP+70*, PIDP+71*, PIDP+72* |
| ARRAY("MPIDOB" | PIDP+76*, PIDP+77* |
| ARRAY("MPIDOD" | PIDP+126* |
| ARRAY("MPISSITE" | IDSARR+11* |
| ARRAY("NAME" | NAMARR+11* |
| ARRAY("OID" | PIDP+43*, PIDP+45*, PIDP+46*, PIDP+47, PIDP+48, PIDP+49*, IDSARR+12* |
| ARRAY("POBCITY" | PIDP+102*, PIDP+108* |
| ARRAY("POBCOUNTRY" | PIDP+104*, PIDP+107, PIDP+111* |
| ARRAY("POBPROVINCE" | PIDP+105*, PIDP+107*, PIDP+110* |
| ARRAY("POBSTATE" | PIDP+105*, PIDP+106*, PIDP+107*, PIDP+109* |
| ARRAY("PREFERREDNAME" | NAMARR+15* |
| ARRAY("PREFIX" | NAMARR+9* |
| ARRAY("SEX" | PIDP+82* |
| ARRAY("SSN" | PIDP+21*, IDSARR+15* |
| ARRAY("SUFFIX" | NAMARR+10* |
| ARRAY("SURNAME" | NAMARR+6* |
| ARRAY("TIN" | IDSARR+22* |
| CNT | PIDP+19~, PIDP+35~, PIDP+36*, PIDP+42*, PIDP+43*, PIDP+45, PIDP+46*, PIDP+85*, IDSARR+12* |
| CNTRY | COUNTRY~, COUNTRY+2, COUNTRY+5 |
| CNTRYCDE | COUNTRY+1~, COUNTRY+7*, COUNTRY+8 |
| CNTRYF | COUNTRY+1~, COUNTRY+2*, COUNTRY+3, COUNTRY+4 |
| CNTRYIEN | COUNTRY+1~, COUNTRY+5*, COUNTRY+6, COUNTRY+7 |
| CNTYCODE | PIDP+97~*, PIDP+98 |
| COMP | PIDP+19~, PIDP+22*, PIDP+48, PIDP+70, PIDP+71, PIDP+72, PIDP+88, PIDP+91, PIDP+92, PIDP+93 , PIDP+94, PIDP+95, PIDP+96, PIDP+102, PIDP+104, PIDP+105, PIDP+107, IDSARR+5, IDSARR+6, NAMARR+4 , NAMARR+6, NAMARR+7, NAMARR+8, NAMARR+9, NAMARR+10, NAMARR+11, NAMARR+13, NAMARR+15, NAMARR+17, NAMARR+19 , NAMARR+20, NAMARR+23, NAMARR+24, NAMARR+25, NAMARR+26, NAMARR+29 |
| HL | PIDP~ |
| HL("ECH" | PIDP+20, PIDP+22, PIDP+71 |
| HL("FS" | PIDP+20, PIDP+23, PIDP+24, PIDP+26 |
| HL("Q" | PIDP+71, PIDP+72, PIDP+76, PIDP+81, PIDP+108, PIDP+109, PIDP+110, PIDP+111, PIDP+117, IDSARR+15 , IDSARR+22, IDSARR+23, IDSARR+26, NAMARR+15 |
| HLECH | PIDP+19~, PIDP+20*, PIDP+71* |
| HLFS | PIDP+19~, PIDP+20* |
| >> I | NAMARR+19* |
| ID | PIDP+1~, PIDP+19~, PIDP+35~, PIDP+48~*, PIDP+49, IDSARR+1*, IDSARR+3*, IDSARR+5, IDSARR+6*, IDSARR+11 , IDSARR+12, IDSARR+13, IDSARR+15, IDSARR+16, IDSARR+19, IDSARR+22, IDSARR+23, IDSARR+26 |
| IDCNT | PIDP+53~, PIDP+54*, NAMARR+28, NAMARR+29, NAMARR+30* |
| IDS | PIDP+1~, PIDP+19~, PIDP+35~, PIDP+37*, PIDP+38*, IDSARR+1 |
| IDSWKD | PIDP+35~, PIDP+36*, IDSARR+2*, IDSARR+3* |
| LASTID | PIDP+35~, PIDP+37*, PIDP+38*, IDSARR+1, IDSARR+3 |
| LASTNAM | PIDP+53~, PIDP+55*, PIDP+56*, NAMARR+1, NAMARR+3 |
| LNGTH | PIDP+19~, PIDP+23*, PIDP+24*, PIDP+25 |
| LNGTH1 | PIDP+19~, PIDP+28*, PIDP+30* |
| LNGTH2 | PIDP+19~, PIDP+28*, PIDP+30* |
| MPIJ | PIDP+19~ |
| MSG | PIDP~, PIDP+23 |
| MSG( | PIDP+24, PIDP+26 |
| NAME | PIDP+19~, PIDP+53~, NAMARR+1*, NAMARR+3*, NAMARR+4, NAMARR+6, NAMARR+7, NAMARR+8, NAMARR+9, NAMARR+10 , NAMARR+11, NAMARR+13, NAMARR+15, NAMARR+17, NAMARR+19 |
| NAMES | PIDP+53~, PIDP+55*, PIDP+56*, NAMARR+1 |
| NXT | PIDP+19~, PIDP+26*, PIDP+28*, PIDP+29, PIDP+30*, PIDP+31 |
| PID | PIDP+19~ |
| PID( | PIDP+23*, PIDP+27, PIDP+28*, PIDP+29*, PIDP+30*, PIDP+31* |
| PID(12 | PIDP+87, PIDP+88 |
| PID(13 | PIDP+97 |
| PID(14 | PIDP+99 |
| PID(15 | PIDP+100 |
| PID(17 | PIDP+114 |
| PID(18 | PIDP+121 |
| PID(25 | PIDP+117 |
| PID(30 | PIDP+126 |
| PID(4 | PIDP+34, PIDP+37, PIDP+38, IDSARR+3 |
| PID(5 | PIDP+41, PIDP+43, PIDP+44, PIDP+45, PIDP+46 |
| PID(6 | PIDP+52, PIDP+55, PIDP+56, NAMARR+3 |
| PID(7 | PIDP+70 |
| PID(8 | PIDP+76*, PIDP+77 |
| PID(9 | PIDP+81*, PIDP+82 |
| PID1 | PIDP+19~ |
| PIDAA | PIDP+1~, PIDP+19~, PIDP+35~, IDSARR+5*, IDSARR+9, IDSARR+12, IDSARR+14, IDSARR+18, IDSARR+21, IDSARR+25 |
| PIDNTC | PIDP+1~, PIDP+19~, PIDP+35~, IDSARR+5*, IDSARR+10, IDSARR+13, IDSARR+15, IDSARR+16, IDSARR+19, IDSARR+22 , IDSARR+23, IDSARR+26 |
| PIDSITE | PIDP+19~, PIDP+35~, IDSARR+5*, IDSARR+11, IDSARR+12, IDSARR+13 |
| PIDXDT | PIDP+19~, PIDP+35~, IDSARR+5*, IDSARR+11, IDSARR+12, IDSARR+15, IDSARR+16 |
| PNAME | NAMARR+14~, NAMARR+15* |
| REP | PIDP+19~, PIDP+22*, PIDP+37, PIDP+38, PIDP+43, PIDP+45, PIDP+46, PIDP+55, PIDP+56, PIDP+87 , PIDP+88, IDSARR+1, IDSARR+3, NAMARR+1, NAMARR+3 |
| SEQ | PIDP+19~, PIDP+23*, PIDP+25*, PIDP+27, PIDP+28, PIDP+29, PIDP+30, PIDP+31 |
| SEQ1 | PIDP+19~, PIDP+24*, PIDP+25*, PIDP+28*, PIDP+29, PIDP+30 |
| SUBCOMP | PIDP+19~, PIDP+22*, PIDP+48, IDSARR+5 |
| X | PIDP+19~, PIDP+24*, PIDP+26, PIDP+35~, PIDP+43*, PIDP+46*, PIDP+47*, PIDP+48, PIDP+49, PIDP+53~ , PIDP+87*, PIDP+88, IDSARR+1*, IDSARR+3, NAMARR+1*, NAMARR+3, QTON~, QTON+1 |
| Y | PIDP+19~, PIDP+25*, PIDP+26, PIDP+44*, PIDP+45, PIDP+46 |