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