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 |