BYIMIMM6 ;IHS/CIM/THL - IMMUNIZATION DATA EXCHANGE;
Source file <BYIMIMM6.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 5 | DD^%DT (C,NOW)^%DTC FILE^DICN ^DIE ^DIR | 
| IHS Immunizations Interface | 2 | $$DUZ^BYIMIMM $$SCRN^BYIMIMM6 | 
| IHS Generic Interface System | 1 | $$VER^INHB | 
| Kernel | 1 | $$PROD^XUPROD | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| HFSA(DEST,PRI) | ;EP;TO FIND HL7 MESSAGE THAT HAVEN'T BEEN EXPORTED | |
| REDIT | ;EP;TO EDIT RELATIONSHIP CROSS OVER | |
| RDISPLAY | ;EP;TO DISPLAY BYIM/CDC RELATIONSHIP CROSS OVER | |
| P8PREPB | ;SET BACK TO PRE-P8PREP VALUES | |
| SLASH(PATH) | ;ENSURE PATH HAS TERMINATING SLASH | |
| P8PREP | ;SET UP FOR P8 TESTING | |
| MENU | ;EP;HEADER DISPLAY | |
| RUPD | ;EP;TO UPDATE IZ RELATIONSHIP FILE FROM RELATIONSHIP FILE | |
| NOPATH | ;EP;NO PATH MESSAGE | |
| ADDLOT(DFN,IVDA,LOTDA,VDATE) | ;EP;TO ADD LOT NUMBER | |
| RD | ;RELATIONSHIP LIST DISPLAY | |
| PAUSE | ;EP;FOR PAUSE READ | |
| M1 | ;MENU DISPLAY | |
| RDHEAD | ; | |
| M2 | ;VERSION 2.0 HEADER | |
| NEW(DFN,BYIMALL,BYIMADM,DDDATE) | ;EP;DETERMINE IF PATIENT HAS IMMS THAT HAVEN'T BEEN EXPORTED | |
| PATH | ;EP;SET PATH | |
| RLSH | ;EP;TO DISPLAY AND EDIT RELATIONSHIP | |
| SCRN(INDA) | ;EP;TO SCREEN IMM'S TO INCLUDE IN EXPORT | |
| BKGTST | ;TEST BACKGROUND EXPORT | 
| Name | Field # of Occurrence | 
|---|---|
| DD^%DT | M1+16, M1+21 | 
| C^%DTC | P8PREP+12 | 
| NOW^%DTC | BKGTST+4 | 
| $$DUZ^BYIMIMM | M1+10, SCRN+19, HFSA+12, HFSA+14, PATH+2, PATH+3, PATH+4, PATH+45, NOPATH+3, NOPATH+8 , P8PREP+59, P8PREP+62, NEW+7 | 
| $$SCRN^BYIMIMM6 | NEW+11 | 
| FILE^DICN | RUPD+11, BKGTST+19 | 
| ^DIE | ADDLOT+17, REDIT+16 | 
| ^DIR | REDIT+6, PAUSE+6, P8PREP+33 | 
| $$VER^INHB | M2+15, M2+16, M2+20, M2+21 | 
| $$PROD^XUPROD | P8PREP+6 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^DIC(19.2 - [#19.2] | Classic Fileman Calls | 
| ^AUPNVIMM - [#9000010.11] | Classic Fileman Calls | 
| ^BYIMREL - [#90480.6] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^%ZIS(1 - [#3.5] | M2+8 | 
| ^%ZIS(2 - [#3.2] | M2+9 | 
| ^AUPNVIMM - [#9000010.11] | ADDLOT+9, ADDLOT+10, ADDLOT+11, SCRN+6, SCRN+7, SCRN+21, P8PREP+38, P8PREP+45, P8PREP+50 | 
| ^AUPNVIMM("AC" | ADDLOT+7, NEW+10 | 
| ^AUPNVSIT - [#9000010] | ADDLOT+12, SCRN+8, P8PREP+18, P8PREP+51 | 
| ^AUPNVSIT("B" | P8PREP+15, P8PREP+17 | 
| ^AUTTIMM - [#9999999.14] | SCRN+21 | 
| ^AUTTLOC - [#9999999.06] | PATH+45, NOPATH+3, NOPATH+8 | 
| ^AUTTRLSH - [#9999999.36] | RUPD+3, RUPD+14, RDISPLAY+9, RDISPLAY+10, REDIT+12 | 
| ^BIP - [#9002084] | P8PREP+47, P8PREP+48*, P8PREP+49*, P8PREPB+5* | 
| ^BIPXX( | P8PREP+47*, P8PREPB+5! | 
| ^BYIMCDC - [#90480.7] | RDISPLAY+12, RDHEAD+7 | 
| ^BYIMCDC("C" | RUPD+4 | 
| ^BYIMEXP("D" | SCRN+16, SCRN+17, SCRN+21*, P8PREP+40*, P8PREP+43!, P8PREPB+2! | 
| ^BYIMMM("MID" | HFSA+22, HFSA+25* | 
| ^BYIMPARA - [#90480] | SCRN+19, HFSA+12*, HFSA+14, PATH+2, PATH+3, PATH+4, P8PREP+59!, P8PREP+62*, NEW+7 | 
| ^BYIMREL - [#90480.6] | RUPD+3, RDISPLAY+8, REDIT+11 | 
| ^BYIMREL(9999999999 | REDIT+3 | 
| ^BYIMTMP("DEST" | P8PREP+53! | 
| ^BYIMTMP("EXP FAIL" | P8PREP+53! | 
| ^BYIMTMP("LE" | HFSA+2!, HFSA+12*, HFSA+24, HFSA+31! | 
| ^BYIMTMP("NUM" | HFSA+28*, HFSA+30* | 
| ^BYIMTMP("OF" | HFSA+3!, HFSA+8*, HFSA+21, HFSA+27*, HFSA+32! | 
| ^DD(90480 | PATH+22 | 
| ^DIC(19 - [#19] | M1+13, M1+18, BKGTST+15 | 
| ^DIC(19.2 - [#19.2] | M1+14, M1+15, M1+19, M1+20 | 
| ^DIC(4 - [#4] | M1+10 | 
| ^DIC(9.4 - [#9.4] | M1+3, M1+4, M1+5, M1+6 | 
| ^DPT - [#2] | P8PREP+19 | 
| ^INLHDEST( | HFSA+6, HFSA+8, HFSA+26*, P8PREP+53! | 
| ^INLHSCH("ACT" | P8PREP+53! | 
| ^INLHSCH(0 | P8PREP+55, P8PREP+57! | 
| ^INRHD("B" | P8PREP+52 | 
| ^INTHU - [#4001] | HFSA+8, HFSA+18, HFSA+30, P8PREP+57 | 
| ^TMP("ADM" | SCRN+4! | 
| ^TMP($J | P8PREP+40*, P8PREPB+2, P8PREPB+3! | 
| Name | Line Occurrences | 
|---|---|
| $$SLASH | PATH+7, PATH+9, PATH+11, PATH+13 | 
| M1 | MENU+3 | 
| M2 | MENU+4 | 
| PATH | M1+1 | 
| PAUSE | RDISPLAY+2, RDISPLAY+15, NOPATH+9, P8PREP+66 | 
| RD | RDISPLAY+3 | 
| RDHEAD | RDISPLAY+1 | 
| RDISPLAY | RLSH+3 | 
| REDIT | RLSH+4 | 
| RUPD | RLSH+2 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | SCRN+19, HFSA+12, HFSA+18, HFSA+30, RUPD+3, RDISPLAY+8, RDHEAD+7 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> % | BKGTST+5 | 
| >> ASUFAC | PATH+45* | 
| >> BOFF | M2+13*, M2+18, M2+22 | 
| >> BON | M2+12*, M2+15, M2+20 | 
| >> BYIM("MSH3.1" | HFSA+14*, HFSA+15*, HFSA+19, PATH+28* | 
| >> BYIM("MSH3.2" | PATH+29* | 
| >> BYIM("MSH3.3" | PATH+30* | 
| >> BYIM("MSH4.1" | PATH+27* | 
| >> BYIM("MSH4.2" | PATH+31* | 
| >> BYIM("MSH4.3" | PATH+32* | 
| >> BYIM("MSH5.1" | PATH+36* | 
| >> BYIM("MSH5.2" | PATH+37* | 
| >> BYIM("MSH5.3" | PATH+38* | 
| >> BYIM("MSH6" | PATH+33* | 
| >> BYIM("PD13.1" | PATH+34* | 
| >> BYIM("PD13.2" | PATH+35* | 
| BYIMADM | SCRN+5~, SCRN+11*, SCRN+14, SCRN+15, SCRN+16, SCRN+17, NEW~, NEW+6 | 
| BYIMALL | SCRN+5~, SCRN+10*, SCRN+14, SCRN+15, SCRN+16, SCRN+17, NEW~, NEW+5 | 
| >> BYIMATYP | PATH+42* | 
| >> BYIMBDG | PATH+24* | 
| >> BYIMCVX | PATH+19* | 
| >> BYIMDATE | SCRN+19*, SCRN+20 | 
| >> BYIMDVOL | PATH+44* | 
| >> BYIMESSN | PATH+40* | 
| >> BYIMEXT | PATH+15*, PATH+16* | 
| >> BYIMHIST | PATH+39* | 
| >> BYIMIN1 | PATH+17* | 
| >> BYIMJ | REDIT+10*, REDIT+11, REDIT+12, REDIT+13 | 
| >> BYIMMSH8 | PATH+26* | 
| BYIMPAUS | RDISPLAY+4~, RDISPLAY+5*, RDISPLAY+8, PAUSE+8* | 
| >> BYIMQT | PATH+25* | 
| BYIMQUIT | RLSH+1!, RLSH+4, REDIT+8*, NOPATH+1*, P8PREP+3!, P8PREP+7*, P8PREP+26!, P8PREP+27*, P8PREP+35*, BKGTST+3! | 
| >> BYIMVER | M1+9, PATH+23* | 
| DA | ADDLOT+13~, ADDLOT+14*, ADDLOT+18!, RUPD+6!, RUPD+12!, REDIT+13*, P8PREP+56*, P8PREP+57* | 
| >> DAT | P8PREP+44*, P8PREP+50*, P8PREP+51*, P8PREP+58, P8PREP+61, P8PREP+62, P8PREP+65 | 
| DD | ADDLOT+13~, ADDLOT+18! | 
| DDATE | SCRN+5~, SCRN+12*, SCRN+18 | 
| DDDATE | NEW~, NEW+7 | 
| DEST | HFSA~, HFSA+1, HFSA+6, HFSA+8, HFSA+26, P8PREP+52*, P8PREP+53 | 
| DFN | ADDLOT~, ADDLOT+7, NEW~, NEW+10 | 
| DIC | ADDLOT+13~, ADDLOT+18!, RUPD+6!, RUPD+8*, RUPD+12!, BKGTST+17* | 
| DIC("DR" | RUPD+10*, BKGTST+14* | 
| DIC(0 | RUPD+9*, BKGTST+18* | 
| DIE | ADDLOT+13~, ADDLOT+16*, ADDLOT+18!, REDIT+15* | 
| DIK | ADDLOT+13~, ADDLOT+18! | 
| DINUM | ADDLOT+13~, ADDLOT+18!, RUPD+6!, RUPD+7*, RUPD+12! | 
| DIR | REDIT+2!, REDIT+7!, PAUSE+3!, PAUSE+7!, P8PREP+26!, P8PREP+34! | 
| DIR("A" | REDIT+4*, PAUSE+5*, P8PREP+29* | 
| DIR("B" | P8PREP+30* | 
| DIR(0 | REDIT+3*, PAUSE+4*, P8PREP+28* | 
| DLAYGO | ADDLOT+13~, ADDLOT+18! | 
| DO | ADDLOT+13~, ADDLOT+18! | 
| DR | ADDLOT+13~, ADDLOT+15*, ADDLOT+18!, RUPD+6!, RUPD+12!, REDIT+14* | 
| DT | HFSA+12, P8PREP+11 | 
| EXP | MENU+2~, M1+13*, M1+14*, M1+15*, M1+16*, M1+17*, M2+5 | 
| FORMAT | MENU+2~ | 
| >> HL7 | M1+9*, M2+6 | 
| IMM | SCRN+5~, SCRN+6*, SCRN+8, SCRN+9, SCRN+21 | 
| IMM12 | SCRN+5~, SCRN+7*, SCRN+18, SCRN+20 | 
| IMP | MENU+2~, M1+18*, M1+19*, M1+20*, M1+21*, M1+22*, M2+6 | 
| INDA | SCRN~, SCRN+6, SCRN+7, SCRN+16, SCRN+17, SCRN+21, NEW+4~, NEW+9*, NEW+10*, NEW+11 | 
| INDA("BYIMADM" | SCRN+11, NEW+6* | 
| INDA("BYIMALL" | SCRN+10, NEW+5* | 
| INDA("DDATE" | SCRN+12, NEW+7* | 
| IO("HOME" | M2+8 | 
| IOF | MENU+1, RDHEAD+1, RD+1, NOPATH+2 | 
| IOST | PAUSE+1 | 
| >> IPATH | PATH+8*, PATH+9* | 
| IVDA | ADDLOT~, ADDLOT+9 | 
| >> J | P8PREP+36*, P8PREP+39*, P8PREP+40, P8PREP+42 | 
| JJ | RDISPLAY+4~, RDISPLAY+6*, RDISPLAY+14*, RDISPLAY+15 | 
| LOC | MENU+2~, M1+10*, M2+4 | 
| LOTDA | ADDLOT~, ADDLOT+15 | 
| >> ON | M2+8*, M2+9*, M2+10, M2+11, M2+12, M2+13 | 
| >> OPATH | PATH+6*, PATH+7* | 
| OUTPUT | MENU+2~ | 
| >> P | P8PREP+45*, P8PREP+47, P8PREP+48, P8PREP+49 | 
| PAC | MENU+2~, M1+2*, M1+3*, M1+4, M1+5, M1+6 | 
| PAH | MENU+2~, M1+2*, M1+5*, M1+6*, M1+7 | 
| PATH | SLASH~, SLASH+2, SLASH+3, SLASH+4*, SLASH+5*, SLASH+6 | 
| PRI | HFSA~, HFSA+1, HFSA+6, HFSA+8, HFSA+26 | 
| >> QPATH | PATH+10*, PATH+11* | 
| >> RPATH | PATH+12*, PATH+13* | 
| >> RVOFF | M2+11*, M2+17, M2+23 | 
| >> RVON | M2+10*, M2+15, M2+20 | 
| >> S1 | BKGTST+6*, BKGTST+11*, BKGTST+13 | 
| >> S2 | BKGTST+7*, BKGTST+8*, BKGTST+9*, BKGTST+10*, BKGTST+11*, BKGTST+12*, BKGTST+13 | 
| >> START | BKGTST+5*, BKGTST+6, BKGTST+7, BKGTST+13*, BKGTST+14, BKGTST+20*, BKGTST+21*, BKGTST+22* | 
| STOP | P8PREP+4~, P8PREP+5*, P8PREP+15, P8PREP+17, P8PREP+20*, P8PREP+21 | 
| T | SCRN+5~, SCRN+13*, SCRN+14*, SCRN+15*, SCRN+16*, SCRN+17*, SCRN+18*, SCRN+20*, SCRN+21*, SCRN+22 | 
| U | M1+4, M1+10, M1+15, M1+20, ADDLOT+10, ADDLOT+11, M2+10, M2+11, M2+12, M2+13 , SCRN+8, SCRN+9, SCRN+15, SCRN+16, SCRN+18, SCRN+19, SCRN+20, SCRN+21, HFSA+12, HFSA+14 , HFSA+19, HFSA+28, HFSA+30, RUPD+3, RUPD+14, RDISPLAY+12, RDISPLAY+13, REDIT+8, REDIT+12, RDHEAD+8 , PATH+6, PATH+8, PATH+10, PATH+12, PATH+15, PATH+17, PATH+19, PATH+21, PATH+22, PATH+24 , PATH+25, PATH+26, PATH+27, PATH+28, PATH+29, PATH+30, PATH+31, PATH+32, PATH+33, PATH+34 , PATH+35, PATH+36, PATH+37, PATH+38, PATH+39, PATH+40, PATH+42, PATH+44, PATH+45, NOPATH+3 , NOPATH+8, P8PREP+19, P8PREP+45, P8PREP+48, P8PREP+49, P8PREP+50, P8PREP+62 | 
| VDATE | ADDLOT~, ADDLOT+12 | 
| VER | MENU+2~, M1+2*, M1+4*, M1+5, M1+7*, M1+8*, M2+5 | 
| VIS | SCRN+5~, SCRN+8*, SCRN+15, SCRN+16 | 
| X | M1+11~, M1+12*, ADDLOT+6~, ADDLOT+7*, ADDLOT+8, ADDLOT+9, ADDLOT+10, ADDLOT+11, ADDLOT+14, M2+1~ , M2+2*, M2+3, SCRN+19~*, HFSA+4~, HFSA+5*, HFSA+6*, HFSA+8, HFSA+9*, HFSA+12*, HFSA+17* , HFSA+18*, HFSA+21, HFSA+26, HFSA+27, HFSA+30, RUPD+1~, RUPD+5*, RUPD+7, RDISPLAY+4~, REDIT+8 , REDIT+9, REDIT+10, RDHEAD+5~, RDHEAD+6*, RDHEAD+7*, PATH+1~, PATH+21*, PATH+23, PAUSE+8, SLASH+2* , SLASH+3, SLASH+4, SLASH+5, P8PREP+4~, P8PREP+13, P8PREP+14*, P8PREP+15*, P8PREP+17, P8PREP+37*, P8PREP+38* , P8PREP+40, P8PREP+41, P8PREP+43, P8PREP+44, P8PREP+45, P8PREP+48, P8PREP+49, P8PREP+54*, P8PREP+55, P8PREP+57 , P8PREP+58*, P8PREP+59*, BKGTST+15*, BKGTST+16, P8PREPB+1*, P8PREPB+2*, P8PREPB+4*, P8PREPB+5* | 
| X0 | PATH+1~, PATH+2*, PATH+6, PATH+8, PATH+15, PATH+17, PATH+19, PATH+21, PATH+24, PATH+25 , PATH+26, PATH+27 | 
| >> X1 | PATH+3*, PATH+10, PATH+12, PATH+28, PATH+29, PATH+30, PATH+31, PATH+32, PATH+33, P8PREP+11* | 
| >> X14 | P8PREP+13*, P8PREP+15 | 
| >> X2 | P8PREP+11* | 
| >> X6 | PATH+4*, PATH+34, PATH+35, PATH+36, PATH+37, PATH+38, PATH+39, PATH+40, PATH+42, PATH+44 | 
| XX | HFSA+4~, HFSA+8*, HFSA+16*, HFSA+26, RUPD+1~, RUPD+2*, RUPD+3*, RUPD+5, RUPD+14, RDISPLAY+4~ , RDISPLAY+7*, RDISPLAY+8*, RDISPLAY+9, RDISPLAY+10, RDISPLAY+11 | 
| Y | M1+16*, M1+21*, ADDLOT+6~, ADDLOT+11*, ADDLOT+12, HFSA+4~, HFSA+7*, HFSA+8*, HFSA+23*, HFSA+24 , HFSA+29*, HFSA+30*, RUPD+1~, RUPD+3*, RUPD+4, RDISPLAY+4~, RDISPLAY+8*, RDISPLAY+12, RDHEAD+5~, RDHEAD+7* , RDHEAD+8, PATH+22*, PATH+23, P8PREP+4~, P8PREP+16*, P8PREP+17*, P8PREP+18, P8PREP+35, NEW+4~, NEW+8* , NEW+10, NEW+11*, NEW+12 | 
| YY | RUPD+1~, RDISPLAY+4~ | 
| Z | ADDLOT+6~, HFSA+4~, HFSA+18*, HFSA+19, HFSA+20, HFSA+22, HFSA+23, HFSA+25, RUPD+1~, RUPD+4* , RUPD+10, RDISPLAY+4~, RDISPLAY+9*, RDISPLAY+13, RDHEAD+5~, P8PREP+4~, P8PREP+18*, P8PREP+19, P8PREP+55* | 
| >> Z21 | RDISPLAY+10*, RDISPLAY+13 | 
| >> ZTQUEUED | RUPD+13, NOPATH+1 | 
| ZZ | RUPD+1~, RDISPLAY+4~ |