PSO7P684 ;WILM/BDB - Pre Install routine for patch PSO*7*684 ;4/22/2022
Source file <PSO7P684.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 6 | POSTAL^XIPUTIL ($$FMADD,$$FMTE,$$NOW)^XLFDT DECODE^XLFJSON $$UP^XLFSTR (BMES,MES)^XPDUTL $$PROD^XUPROD |
VA FileMan | 3 | (FILE,UPDATE)^DIE ^DIK ($$GET1,GETS)^DIQ |
Outpatient Pharmacy | 2 | $$P545CHK7^PSO7E684 $$DETOXCHK^PSODEAUT |
MailMan | 1 | ^XMD |
Web Services Client | 1 | ($$GET,$$GETREST)^XOBWLIB |
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ; Pre-Install Entry Point
|
|
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,DEA,EXCNT) | ; -- Log import issues
|
|
DEAFILE(DEA,NPIEN,PHANDLE,FG,DEAIEN,EXCNT) | ; -- 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(EXCNT,MIGRCNT,LIFE) |
Name | Field # of Occurrence |
---|---|
FILE^DIE | DEAFILE+72 |
UPDATE^DIE | DEAFILE+68, NPFILE+6 |
^DIK | PRE+37, PRE+39 |
$$GET1^DIQ | INITLOAD+12 |
GETS^DIQ | DEAFILE+36 |
$$P545CHK7^PSO7E684 | PRE+17 |
$$DETOXCHK^PSODEAUT | DEAFILE+9 |
POSTAL^XIPUTIL | DEAFILE+30 |
$$FMADD^XLFDT | INITXTMP+3 |
$$FMTE^XLFDT | TMPMSG+7, TMPMSG+11, TMPMSG+12, TMPMSG+13, TMPMSG+14 |
$$NOW^XLFDT | INITXTMP+2, TMPMSG+4 |
DECODE^XLFJSON | GET+23 |
$$UP^XLFSTR | DEAFILE+3 |
^XMD | TMPMSG+23 |
$$GET^XOBWLIB | GET+11 |
$$GETREST^XOBWLIB | GET+8 |
BMES^XPDUTL | PRE+6, PRE+13, PRE+28, INITLOAD+16, INITLOAD+17, INITLOAD+18, INITLOAD+19, INITLOAD+20, INITLOAD+34, INITLOAD+35 , INITLOAD+36, INITLOAD+37 |
MES^XPDUTL | PRE+7, PRE+8, PRE+9, PRE+14, PRE+29, PRE+30, PRE+31, PRE+32 |
$$PROD^XUPROD | PRE+17, PRE+20 |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ, GETS^DIQ |
^XTV(8991.9 - [#8991.9] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP($J | INITLOAD+7*, INITLOAD+32! |
^VA(200 - [#200] | PRE+34, PRE+35, PRE+36, INITLOAD+9, INITLOAD+10 |
^XTMP( | PRE+11, PRE+17, PRE+21*, PRE+22, PRE+24*, PRE+43*, PRE+44, INITLOAD+4!, LOG+3, LOG+4* , INITXTMP+5*, INITXTMP+6*, TMPMSG+4*, TMPMSG+6!, TMPMSG+11, TMPMSG+12, TMPMSG+13*, TMPMSG+14*, TMPMSG+15*, TMPMSG+16* , TMPMSG+17*, TMPMSG+18*, TMPMSG+19*, TMPMSG+20*, TMPMSG+21* |
^XTMP("PSODEAWB" | TMPMSG+3 |
^XTMP("PSODEAWB-" | INITLOAD+4 |
^XTMP("PSOXMD" | TMPMSG+6 |
^XTV(8991.9 - [#8991.9] | PRE+38, INITLOAD+27 |
^XUSEC("PSDMGR" | TMPMSG+8 |
Name | Line Occurrences |
---|---|
$$DEAFILE | INITLOAD+28 |
$$GET | INITLOAD+21 |
$$INITXTMP | INITLOAD+6, TMPMSG+5 |
INITLOAD | PRE+42 |
LOG | INITLOAD+23, INITLOAD+24, INITLOAD+25, INITLOAD+26, INITLOAD+27, INITLOAD+28, INITLOAD+30, DEAFILE+53, DEAFILE+62 |
NPFILE | INITLOAD+29 |
TMPMSG | INITLOAD+33 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BAC | DEAFILE+2~, DEAFILE+8*, DEAFILE+9 |
BEGDT | INITXTMP+1~, INITXTMP+2*, INITXTMP+3, INITXTMP+4, INITXTMP+5, INITXTMP+6 |
CNT | LOG+1~, TMPMSG+1~ |
DA | PRE+27~, PRE+36*, PRE+39*! |
DA(1 | PRE+37* |
DATA | GET+1~, GET+16* |
DEA | PRE+27~, PRE+33*, PRE+34*, PRE+35, PRE+36, INITLOAD+1~, INITLOAD+8*, INITLOAD+9*, INITLOAD+10, INITLOAD+18 , INITLOAD+20, INITLOAD+21, INITLOAD+23, INITLOAD+24, INITLOAD+25, INITLOAD+26, INITLOAD+27, INITLOAD+28, INITLOAD+29, INITLOAD+30 , GET~, GET+2, GET+5, LOG~, LOG+3, LOG+4, DEAFILE~, DEAFILE+6, DEAFILE+9, DEAFILE+53 , DEAFILE+62, NPFILE~, NPFILE+3 |
DEAIEN | PRE+27~, PRE+38*, PRE+39, INITLOAD+1~, INITLOAD+28!, INITLOAD+29, DEAFILE~, DEAFILE+5, DEAFILE+70*, DEAFILE+71 , DEAFILE+72, NPFILE~, NPFILE+2, NPFILE+5 |
DIFROM | TMPMSG+23~! |
DIK | PRE+37*!, PRE+39*! |
DS | DEAFILE+3~*, DEAFILE+53, DEAFILE+56, DEAFILE+57, DEAFILE+58, DEAFILE+59, DEAFILE+60, DEAFILE+61, DEAFILE+62 |
DT | TMPMSG+7 |
DUPDXDEA | DEAFILE+2~ |
DUZ | DEAFILE+72, TMPMSG+23 |
ED | DEAFILE+2~ |
ERRCODE | INITLOAD+11~, INITLOAD+22*, INITLOAD+23, INITLOAD+24 |
ERRORS | GET+1~ |
EXCNT | INITLOAD+1~, INITLOAD+3*, INITLOAD+23, INITLOAD+24, INITLOAD+25, INITLOAD+26, INITLOAD+27, INITLOAD+28, INITLOAD+30, INITLOAD+33 , LOG~, LOG+5*, DEAFILE~, DEAFILE+53, DEAFILE+62, TMPMSG~, TMPMSG+19 |
EXCNUM | LOG+3~*, LOG+4 |
EXREAS | TMPMSG+1~ |
FDA | DEAFILE+2~, NPFILE+1~ |
FDA(1 | DEAFILE+6*, DEAFILE+7*, DEAFILE+9*, DEAFILE+20*, DEAFILE+21*, DEAFILE+22*, DEAFILE+23*, DEAFILE+24*, DEAFILE+25*, DEAFILE+26* , DEAFILE+27*, DEAFILE+32*, DEAFILE+34*, DEAFILE+47*, DEAFILE+48*, DEAFILE+49*, DEAFILE+50*, DEAFILE+51*, DEAFILE+52*, DEAFILE+56* , DEAFILE+57*, DEAFILE+58*, DEAFILE+59*, DEAFILE+60*, DEAFILE+61*, DEAFILE+64*, DEAFILE+66*, NPFILE+3*, NPFILE+4*, NPFILE+5* |
FDA(2 | DEAFILE+72* |
FG | INITLOAD+1~, INITLOAD+11~, INITLOAD+21, INITLOAD+23, INITLOAD+24, INITLOAD+25, INITLOAD+26, INITLOAD+27, INITLOAD+28, INITLOAD+30 , GET~, LOG~, DEAFILE~, DEAFILE+53, DEAFILE+62 |
FG("additionalCompanyInfo" | DEAFILE+24 |
FG("address1" | DEAFILE+25 |
FG("address2" | DEAFILE+26 |
FG("businessActivityCode" | INITLOAD+26, DEAFILE+7, DEAFILE+8 |
FG("businessActivitySubcode" | GET+26*, DEAFILE+7, DEAFILE+8 |
FG("city" | DEAFILE+27 |
FG("drugSchedule" | DEAFILE+3 |
FG("expirationDate" | DEAFILE+20 |
FG("name" | INITLOAD+25, DEAFILE+23 |
FG("zipCode" | DEAFILE+30, DEAFILE+34 |
FILERR | INITLOAD+11~, INITLOAD+29, INITLOAD+30, NPFILE~, NPFILE+7* |
FLD | LOG+1~ |
HANDPSO | PRE+1~*, PRE+11, PRE+17, PRE+21, PRE+22, PRE+24, PRE+43, PRE+44, INITLOAD+1~, INITLOAD+2* |
IENROOT | DEAFILE+2~, NPFILE+1~ |
IENROOT(1 | DEAFILE+70 |
IENS | LOG+1~, DEAFILE+2~, DEAFILE+5*, DEAFILE+6, DEAFILE+7, DEAFILE+9, DEAFILE+20, DEAFILE+21, DEAFILE+22, DEAFILE+23 , DEAFILE+24, DEAFILE+25, DEAFILE+26, DEAFILE+27, DEAFILE+32, DEAFILE+34, DEAFILE+47, DEAFILE+48, DEAFILE+49, DEAFILE+50 , DEAFILE+51, DEAFILE+52, DEAFILE+56, DEAFILE+57, DEAFILE+58, DEAFILE+59, DEAFILE+60, DEAFILE+61, DEAFILE+64, DEAFILE+66 , DEAFILE+70 |
LIFE | INITLOAD~, INITLOAD+5*, INITLOAD+6, INITLOAD+33, INITXTMP~, INITXTMP+3, TMPMSG~, TMPMSG+5 |
MIGRCNT | INITLOAD+1~, INITLOAD+3*, INITLOAD+31*, INITLOAD+33, TMPMSG~, TMPMSG+16 |
MSGROOT | DEAFILE+2~, DEAFILE+69, NPFILE+1~, NPFILE+7 |
MSGROOT("DIERR" | DEAFILE+69, NPFILE+7 |
NAMESPC | INITXTMP~, INITXTMP+4*, INITXTMP+5, INITXTMP+6, INITXTMP+7 |
NPDATA | INITLOAD+1~ |
NPDETOX | DEAFILE+2~ |
NPIEN | PRE+27~, PRE+35*, PRE+36, PRE+37, INITLOAD+1~, INITLOAD+10*, INITLOAD+12, INITLOAD+18, INITLOAD+23, INITLOAD+24 , INITLOAD+25, INITLOAD+26, INITLOAD+27, INITLOAD+28, INITLOAD+29, INITLOAD+30, LOG~, LOG+3, LOG+4, DEAFILE~ , DEAFILE+36, DEAFILE+38, DEAFILE+39, DEAFILE+40, DEAFILE+41, DEAFILE+42, DEAFILE+43, DEAFILE+44, DEAFILE+47, DEAFILE+48 , DEAFILE+49, DEAFILE+50, DEAFILE+51, DEAFILE+52, DEAFILE+53, DEAFILE+62, NPFILE~, NPFILE+2, NPFILE+3, NPFILE+4 , NPFILE+5, TMPMSG+8* |
NPNAME | INITLOAD+1~, INITLOAD+12*, INITLOAD+13, INITLOAD+20, INITLOAD+25 |
OBJ | TMPMSG+1~ |
PATH | GET+1~ |
PHANDLE | INITLOAD+1~, INITLOAD+6*, INITLOAD+23, INITLOAD+24, INITLOAD+25, INITLOAD+26, INITLOAD+27, INITLOAD+28, INITLOAD+30, LOG~ , LOG+3, LOG+4, DEAFILE~, DEAFILE+53, DEAFILE+62, TMPMSG+1~, TMPMSG+3*, TMPMSG+4, TMPMSG+11, TMPMSG+12 |
PSOASTER | PRE+4~*, PRE+6, PRE+9, INITLOAD+14~, INITLOAD+15*, INITLOAD+16, INITLOAD+19 |
PSOCNT | TMPMSG+1~ |
PSODASH | TMPMSG+1~, TMPMSG+2* |
PSODONE | TMPMSG+1~, TMPMSG+12*, TMPMSG+14 |
PSOERR | GET+1~, GET+11 |
PSOLDHNDL | INITLOAD+1~, INITLOAD+4* |
PSOLDXMD | TMPMSG+1~, TMPMSG+6* |
PSOSTART | TMPMSG+1~, TMPMSG+11*, TMPMSG+13 |
PSOTEXT | TMPMSG+9!, TMPMSG+24! |
PSOXMD | TMPMSG+1~, TMPMSG+5*, TMPMSG+13, TMPMSG+14, TMPMSG+15, TMPMSG+16, TMPMSG+17, TMPMSG+18, TMPMSG+19, TMPMSG+20 , TMPMSG+21, TMPMSG+23 |
PURGDT | INITXTMP+1~, INITXTMP+3*, INITXTMP+5 |
REASON | LOG~, LOG+4 |
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+21*, INITLOAD+22, INITLOAD+23, INITLOAD+24, INITLOAD+28*, GET+1~, GET+11*, GET+12, DEAFILE+2~, DEAFILE+4* , DEAFILE+69*, DEAFILE+71*, DEAFILE+73 |
SCH200 | DEAFILE+2~ |
SCH200(200 | DEAFILE+38, DEAFILE+39, DEAFILE+40, DEAFILE+41, DEAFILE+42, DEAFILE+43, DEAFILE+44, DEAFILE+47, DEAFILE+48, DEAFILE+49 , DEAFILE+50, DEAFILE+51, DEAFILE+52 |
SCH200ST | DEAFILE+2~, DEAFILE+37*, DEAFILE+39*, DEAFILE+40*, DEAFILE+41*, DEAFILE+42*, DEAFILE+43*, DEAFILE+44*, DEAFILE+53, DEAFILE+62 |
SCHCNT | DEAFILE+2~, DEAFILE+38*, DEAFILE+46, DEAFILE+55 |
SCHFLD | DEAFILE+2~, DEAFILE+38* |
SERVER | GET+1~, GET+3*, GET+8 |
SERVICE | GET+1~, GET+4*, GET+8 |
TITLE | INITXTMP~, INITXTMP+5 |
TR | LOG+1~ |
XIP | DEAFILE+2~, DEAFILE+30 |
XIP("STATE" | DEAFILE+31 |
XMDUZ | TMPMSG+1~, TMPMSG+7* |
XMSUB | TMPMSG+1~, TMPMSG+7* |
XMTEXT | TMPMSG+23*, TMPMSG+24! |
XMY | TMPMSG+8! |
XMY( | TMPMSG+8*, TMPMSG+23* |
>> XPDABORT | PRE+5*, PRE+12* |
>> XPDQUES("PRE1" | PRE+20 |
XSTATE | DEAFILE+2~, DEAFILE+31*, DEAFILE+32 |
>> ZTQUEUED | PRE+3 |