PSO7P529 ;ALB/BI - DEA INITIAL IMPORT ;5/5/21 06:52
Source file <PSO7P529.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INITLOAD(LIFE) | ; -- main entry point for DEA INITIAL IMPORT
|
|
| GET(FG,DEA) | ; Function to Get the Remote DEA information, Return in FG.
|
|
| LOG(FG,NPIEN,PHANDLE,REASON) | ; -- Log import issues
|
|
| DEAFILE(DEA,NPIEN,PHANDLE,FG,DEAIEN) | ; -- File the import data in DEA NUMBERS FILE #8991.9
; POSTAL^XIPUTL used in agreement with Integration Agreement: 3618 |
|
| NPFILE(DEA,NPIEN,DEAIEN,FILERR) | ; -- File the DEA NUMBER in the NEW PERSON FILE #200.
|
|
| INITXTMP(NAMESPC,TITLE,LIFE) | ||
| TMPMSG |
| Name | Field # of Occurrence |
|---|---|
| FILE^DIE | DEAFILE+72 |
| UPDATE^DIE | DEAFILE+68, NPFILE+6 |
| $$GET1^DIQ | INITLOAD+10, DEAFILE+12 |
| GETS^DIQ | LOG+2, DEAFILE+35 |
| $$DETOXCHK^PSODEAUT | DEAFILE+9, DEAFILE+13, DEAFILE+14 |
| $$DETOXDUP^PSODEAUT | DEAFILE+16 |
| POSTAL^XIPUTIL | DEAFILE+29 |
| $$FMADD^XLFDT | INITXTMP+3 |
| $$FMTE^XLFDT | TMPMSG+6 |
| $$NOW^XLFDT | INITXTMP+2 |
| DECODE^XLFJSON | GET+23 |
| $$LJ^XLFSTR | TMPMSG+13, TMPMSG+21, TMPMSG+22, TMPMSG+26, TMPMSG+29, TMPMSG+30, TMPMSG+33, TMPMSG+34, TMPMSG+35, TMPMSG+37 , TMPMSG+39 |
| $$UP^XLFSTR | DEAFILE+3 |
| ^XMD | TMPMSG+49 |
| $$GET^XOBWLIB | GET+11 |
| $$GETREST^XOBWLIB | GET+8 |
| BMES^XPDUTL | INITLOAD+11, INITLOAD+23, INITLOAD+24, INITLOAD+25, INITLOAD+26 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ, GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | INITLOAD+5*, INITLOAD+21! |
| ^VA(200 - [#200] | INITLOAD+7, INITLOAD+9 |
| ^XTMP( | INITLOAD+2!, LOG+4*, LOG+5*, LOG+6*, LOG+7*, INITXTMP+5*, TMPMSG+5!, TMPMSG+10, TMPMSG+11, TMPMSG+15* , TMPMSG+19*, TMPMSG+21*, TMPMSG+22*, TMPMSG+26*, TMPMSG+29*, TMPMSG+30*, TMPMSG+33*, TMPMSG+34*, TMPMSG+35*, TMPMSG+37* , TMPMSG+41*, TMPMSG+42*, TMPMSG+48* |
| ^XTMP("PSODEAWB" | TMPMSG+3 |
| ^XTMP("PSODEAWB-" | INITLOAD+2 |
| ^XTMP("PSOXMD" | TMPMSG+5 |
| ^XTV(8991.9 - [#8991.9] | INITLOAD+18 |
| ^XUSEC("PSDMGR" | TMPMSG+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BAC | DEAFILE+2~, DEAFILE+8*, DEAFILE+9, DEAFILE+13, DEAFILE+14 |
| BEGDT | INITXTMP+1~, INITXTMP+2*, INITXTMP+3, INITXTMP+4, INITXTMP+5 |
| CMPDETOX | DEAFILE+15~*, DEAFILE+16 |
| CNT | LOG+1~, LOG+4*, LOG+5, LOG+6, LOG+7, TMPMSG+1~, TMPMSG+10*, TMPMSG+11, TMPMSG+12 |
| DATA | GET+1~, GET+16* |
| DEA | INITLOAD+1~, INITLOAD+6*, INITLOAD+7*, INITLOAD+9, INITLOAD+11, INITLOAD+12, INITLOAD+18, INITLOAD+19, INITLOAD+20, GET~ , GET+2, GET+5, DEAFILE~, DEAFILE+6, DEAFILE+9, DEAFILE+14, DEAFILE+16, NPFILE~, NPFILE+3 |
| DEAIEN | INITLOAD+1~, INITLOAD+19!, INITLOAD+20, DEAFILE~, DEAFILE+5, DEAFILE+70*, DEAFILE+71, DEAFILE+72, NPFILE~, NPFILE+2 , NPFILE+5 |
| DEAWORK | TMPMSG+9~, TMPMSG+12, TMPMSG+45* |
| DIFROM | TMPMSG+49~! |
| DS | DEAFILE+3~*, DEAFILE+52, DEAFILE+55, DEAFILE+56, DEAFILE+57, DEAFILE+58, DEAFILE+59, DEAFILE+60, DEAFILE+61 |
| DT | TMPMSG+6 |
| DUPDXDEA | DEAFILE+2~, DEAFILE+16 |
| DUZ | DEAFILE+72, TMPMSG+49 |
| ED | DEAFILE+2~ |
| ERRCODE | INITLOAD+8~, INITLOAD+13*, INITLOAD+14, INITLOAD+15 |
| ERRORS | GET+1~ |
| EXREAS | TMPMSG+1~, TMPMSG+13*, TMPMSG+14, TMPMSG+15, TMPMSG+16, TMPMSG+39*, TMPMSG+40, TMPMSG+41, TMPMSG+42 |
| EXREAS1 | TMPMSG+14~*, TMPMSG+15, TMPMSG+16, TMPMSG+40~*, TMPMSG+41, TMPMSG+42 |
| FDA | DEAFILE+2~, NPFILE+1~ |
| FDA(1 | DEAFILE+6*, DEAFILE+7*, DEAFILE+9*, DEAFILE+15, DEAFILE+17*, DEAFILE+19*, DEAFILE+20*, DEAFILE+21*, DEAFILE+22*, DEAFILE+23* , DEAFILE+24*, DEAFILE+25*, DEAFILE+26*, DEAFILE+31*, DEAFILE+33*, DEAFILE+46*, DEAFILE+47*, DEAFILE+48*, DEAFILE+49*, DEAFILE+50* , DEAFILE+51*, DEAFILE+55*, DEAFILE+56*, DEAFILE+57*, DEAFILE+58*, DEAFILE+59*, DEAFILE+60*, DEAFILE+63*, DEAFILE+66*, NPFILE+3* , NPFILE+4*, NPFILE+5* |
| FDA(2 | DEAFILE+72* |
| FG | INITLOAD+1~, INITLOAD+8~, INITLOAD+12, INITLOAD+14, INITLOAD+15, INITLOAD+16, INITLOAD+17, INITLOAD+18, INITLOAD+19, INITLOAD+20 , GET~, LOG~, LOG+6, DEAFILE~, DEAFILE+13, DEAFILE+14, DEAFILE+16, DEAFILE+52, DEAFILE+61 |
| FG("additionalCompanyInfo" | DEAFILE+23 |
| FG("address1" | DEAFILE+24 |
| FG("address2" | DEAFILE+25 |
| FG("businessActivityCode" | INITLOAD+17, DEAFILE+7, DEAFILE+8 |
| FG("businessActivitySubcode" | GET+26*, DEAFILE+7, DEAFILE+8 |
| FG("city" | DEAFILE+26 |
| FG("drugSchedule" | DEAFILE+3 |
| FG("expirationDate" | DEAFILE+19 |
| FG("name" | INITLOAD+16, DEAFILE+22 |
| FG("zipCode" | DEAFILE+29, DEAFILE+33 |
| FILERR | INITLOAD+8~, INITLOAD+20, NPFILE~, NPFILE+7* |
| FLD | LOG+1~ |
| IENROOT | DEAFILE+2~, NPFILE+1~ |
| IENROOT(1 | DEAFILE+70 |
| IENS | LOG+1~, LOG+3*, LOG+6, DEAFILE+2~, DEAFILE+5*, DEAFILE+6, DEAFILE+7, DEAFILE+9, DEAFILE+15, DEAFILE+17 , DEAFILE+19, DEAFILE+20, DEAFILE+21, DEAFILE+22, DEAFILE+23, DEAFILE+24, DEAFILE+25, DEAFILE+26, DEAFILE+31, DEAFILE+33 , DEAFILE+46, DEAFILE+47, DEAFILE+48, DEAFILE+49, DEAFILE+50, DEAFILE+51, DEAFILE+55, DEAFILE+56, DEAFILE+57, DEAFILE+58 , DEAFILE+59, DEAFILE+60, DEAFILE+63, DEAFILE+66, DEAFILE+70 |
| LIFE | INITLOAD~, INITLOAD+3*, INITLOAD+4, INITXTMP~, INITXTMP+3, TMPMSG+4 |
| MSGROOT | DEAFILE+2~, DEAFILE+69, NPFILE+1~, NPFILE+7 |
| MSGROOT("DIERR" | DEAFILE+69, NPFILE+7 |
| NAMESPC | INITXTMP~, INITXTMP+4*, INITXTMP+5, INITXTMP+6 |
| NPDATA | INITLOAD+1~ |
| NPDETOX | DEAFILE+2~, DEAFILE+12*, DEAFILE+13, DEAFILE+14 |
| NPIEN | INITLOAD+1~, INITLOAD+9*, INITLOAD+10, INITLOAD+14, INITLOAD+15, INITLOAD+16, INITLOAD+17, INITLOAD+18, INITLOAD+19, INITLOAD+20 , LOG~, LOG+2, LOG+5, DEAFILE~, DEAFILE+12, DEAFILE+13, DEAFILE+14, DEAFILE+16, DEAFILE+35, DEAFILE+37 , DEAFILE+38, DEAFILE+39, DEAFILE+40, DEAFILE+41, DEAFILE+42, DEAFILE+43, DEAFILE+46, DEAFILE+47, DEAFILE+48, DEAFILE+49 , DEAFILE+50, DEAFILE+51, DEAFILE+52, DEAFILE+61, NPFILE~, NPFILE+2, NPFILE+3, NPFILE+4, NPFILE+5, TMPMSG+7* |
| NPNAME | INITLOAD+1~, INITLOAD+10*, INITLOAD+11, INITLOAD+16 |
| OBJ | TMPMSG+1~, TMPMSG+11!* |
| OBJ("Exception" | TMPMSG+13, TMPMSG+39 |
| OBJ("LOCAL" | TMPMSG+12, TMPMSG+21, TMPMSG+22, TMPMSG+24, TMPMSG+29, TMPMSG+30, TMPMSG+33, TMPMSG+34, TMPMSG+35, TMPMSG+37 , TMPMSG+45 |
| OBJ("WS" | TMPMSG+24, TMPMSG+26 |
| PATH | GET+1~ |
| PHANDLE | INITLOAD+1~, INITLOAD+4*, INITLOAD+14, INITLOAD+15, INITLOAD+16, INITLOAD+17, INITLOAD+18, INITLOAD+19, INITLOAD+20, LOG~ , LOG+4, LOG+5, LOG+6, LOG+7, DEAFILE~, DEAFILE+13, DEAFILE+14, DEAFILE+16, DEAFILE+52, DEAFILE+61 , TMPMSG+1~, TMPMSG+3*, TMPMSG+10, TMPMSG+11 |
| PSOCNT | TMPMSG+1~, TMPMSG+8*, TMPMSG+15*, TMPMSG+16*, TMPMSG+17*, TMPMSG+19, TMPMSG+20*, TMPMSG+21, TMPMSG+22, TMPMSG+25* , TMPMSG+26, TMPMSG+28*, TMPMSG+29, TMPMSG+30, TMPMSG+32*, TMPMSG+33, TMPMSG+34, TMPMSG+35, TMPMSG+37*, TMPMSG+41* , TMPMSG+42*, TMPMSG+44*, TMPMSG+47*, TMPMSG+48 |
| PSODASH | TMPMSG+1~, TMPMSG+2*, TMPMSG+19, TMPMSG+48 |
| PSOERR | GET+1~, GET+11 |
| PSOLDHNDL | INITLOAD+1~, INITLOAD+2* |
| PSOLDXMD | TMPMSG+1~, TMPMSG+5* |
| PSOTEXT | TMPMSG+8!, TMPMSG+50! |
| PSOTEXT( | TMPMSG+16* |
| PSOXMD | TMPMSG+1~, TMPMSG+4*, TMPMSG+15, TMPMSG+19, TMPMSG+21, TMPMSG+22, TMPMSG+26, TMPMSG+29, TMPMSG+30, TMPMSG+33 , TMPMSG+34, TMPMSG+35, TMPMSG+37, TMPMSG+41, TMPMSG+42, TMPMSG+48, TMPMSG+49 |
| PURGDT | INITXTMP+1~, INITXTMP+3*, INITXTMP+5 |
| REASON | LOG~, LOG+7 |
| REQUEST | GET+1~, GET+8*, GET+11 |
| RESOURCE | GET+1~, GET+5*, GET+11 |
| RESPJSON | GET+1~, GET+17*, GET+18*, GET+19*, GET+20 |
| RESPONSE | GET+1~, GET+15* |
| SC | INITLOAD+12*, INITLOAD+13, INITLOAD+14, INITLOAD+15, INITLOAD+19*, GET+1~, GET+11*, GET+12, DEAFILE+2~, DEAFILE+4* , DEAFILE+69*, DEAFILE+71*, DEAFILE+73 |
| SCH200 | DEAFILE+2~ |
| SCH200(200 | DEAFILE+37, DEAFILE+38, DEAFILE+39, DEAFILE+40, DEAFILE+41, DEAFILE+42, DEAFILE+43, DEAFILE+46, DEAFILE+47, DEAFILE+48 , DEAFILE+49, DEAFILE+50, DEAFILE+51 |
| SCH200ST | DEAFILE+2~, DEAFILE+36*, DEAFILE+38*, DEAFILE+39*, DEAFILE+40*, DEAFILE+41*, DEAFILE+42*, DEAFILE+43*, DEAFILE+52, DEAFILE+61 |
| SCHCNT | DEAFILE+2~, DEAFILE+37*, DEAFILE+45, DEAFILE+54 |
| SCHFLD | DEAFILE+2~, DEAFILE+37* |
| SERVER | GET+1~, GET+3*, GET+8 |
| SERVICE | GET+1~, GET+4*, GET+8 |
| TITLE | INITXTMP~, INITXTMP+5 |
| TR | LOG+1~ |
| TR(200 | LOG+3, LOG+6 |
| XIP | DEAFILE+2~, DEAFILE+29 |
| XIP("STATE" | DEAFILE+30 |
| XMDUZ | TMPMSG+1~, TMPMSG+6* |
| XMSUB | TMPMSG+1~, TMPMSG+6* |
| XMTEXT | TMPMSG+49*, TMPMSG+50! |
| XMY | TMPMSG+7! |
| XMY( | TMPMSG+7*, TMPMSG+49* |
| XSTATE | DEAFILE+2~, DEAFILE+30*, DEAFILE+31 |