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~ |