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 |