BYIMIMM1 ;IHS/CIM/THL - IMMUNIZATION DATA EXCHANGE;
Source file <BYIMIMM1.m>
Package | Total | Call Graph |
---|---|---|
IHS Immunizations Interface | 4 | (INSET,KILL,MATCH,NCNT)^BYIMIMM2 DIRECT^BYIMIMM3 (LOG,LOT)^BYIMIMM4 (ADDLOT,NOPATH,PATH,PAUSE)^BYIMIMM6 |
VA Fileman | 4 | ^DIC FILE^DICN ^DIE ^DIR |
Registration | 3 | EN^VALM TERM^VALM0 CLEAR^VALM1 |
Immunization Tracking | 2 | ADDEDIT^BIRPC3 ADDLOT^BIRPC5 |
Kernel | 1 | ($$OPEN,$$STATUS,CLOSE)^%ZISH |
MailMan | 1 | ^XMB |
Package | Total | Caller Graph |
---|---|---|
IHS Immunizations Interface | 3 | BYIMIMM2 BYIMIMM4 BYIMRT |
Name | Comments | DBIA/ICR reference |
---|---|---|
CONVERT | ;CONVERT INACTIVE VACCINE TO ACTIVE EQUIVALENT
|
|
NEWIMM | ;ADD NEW IMMUNIZATION
|
|
HDR | ;EP;FOR LIST HEADER
|
|
S1 | ;FOR AUTOADD TO SET ADD ARRAY
|
|
DIRECT | ;DIRECT FIND OF PATIENT
|
|
FMINIT | ;EP;PUT NEW IMMUNIZATIONS INTO TMP STORAGE FOR
|
|
DEL | ;EP;DEL IMMUNIZATIONS FROM THE STATE REGISTRY LIST
|
|
FILE | ;ENTER FILE NAME OF IMPORT FILE
|
|
NI1 | ;NEW IMMUNIZATION
|
|
FM | ;SET DISPLAY GLOBAL
|
|
SELECT | ;SELECT CHILD TO ADD
|
|
SET | ;EP;ID PATIENTS AND SET NEW IMMUNIZATIONS
|
|
ADDIM | ;EP;PROCESS ADDITIONAL IMPORT FILES
|
|
I1 | ;EP;FOR AUTO IMPORT MODE
|
|
IN(IPATH,FILE) | ;EP;TO PROCESS INCOMING FILE
|
|
LOCIN(LOC) | ;PROCESS LOCATION DATA FOR FACILITY NAME OR CODE
|
|
ADDIM1 | ;PROCESS EACH ADDIONAL IMPORT SITE
|
|
VALM(BYIMVALM) | ;EP; -- main entry point for list templates
|
|
IMPORT | ;EP;IMMUNIZATION IMPORT
|
|
PADD | ;EP;TO ADD PARAMETER SITE
|
|
VISIT | ;FIND OR CREATE VISIT
|
|
READ(IPATH,FILE) | ||
IMM | ;COMPARE INCOMING IMMUNIZATIONS WITH EXISTING IMMUNIZATIONS
|
|
PARAM | ;EP;TO UPDATE PARAMETERS
|
|
BACK | ||
START | ;EP;
|
|
ADD | ;EP;ADD NEW IMMUNIZATIONS FROM THE STATE REGISTRY
|
|
ID | ;ID PATIENT
|
|
DUZ | ;SET DUZ FOR VISIT 'CREATED BY USER'
|
|
SET1(INHDA) | ;EP;TO PROCESS INCOMING HL7 MESSAGE
|
Name | Field # of Occurrence |
---|---|
$$OPEN^%ZISH | I1+1, READ+5 |
$$STATUS^%ZISH | READ+14 |
CLOSE^%ZISH | I1+8, READ+15 |
ADDEDIT^BIRPC3 | VISIT+18 |
ADDLOT^BIRPC5 | NI1+34, NI1+36, NI1+37 |
INSET^BYIMIMM2 | READ+14 |
KILL^BYIMIMM2 | IMM+30, NI1+54 |
MATCH^BYIMIMM2 | IN+8, ADDIM1+8 |
NCNT^BYIMIMM2 | I1+20 |
DIRECT^BYIMIMM3 | DIRECT+1 |
LOG^BYIMIMM4 | IN+7, ADDIM1+7 |
LOT^BYIMIMM4 | NI1+38 |
ADDLOT^BYIMIMM6 | VISIT+44 |
NOPATH^BYIMIMM6 | FILE+3 |
PATH^BYIMIMM6 | FILE+2, IMPORT+4, PARAM+10 |
PAUSE^BYIMIMM6 | I1+7, VISIT+41 |
^DIC | ID+23, ID+34, ID+42, PADD+9 |
FILE^DICN | ID+55, DUZ+9 |
^DIE | PARAM+9 |
^DIR | FILE+9, I1+16, SELECT+7 |
EN^VALM | VALM+4 |
TERM^VALM0 | VALM+2 |
CLEAR^VALM1 | ADD+4, VALM+3, VALM+5 |
^XMB | VISIT+34 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^VA(200 - [#200] | Classic Fileman Calls |
^BYIMPARA - [#90480] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNPAT - [#9000001] | ID+59, ID+63 |
^AUPNVIMM - [#9000010.11] | IMM+25 |
^AUPNVIMM("AC" | IMM+24 |
^AUPNVSIT - [#9000010] | IMM+26 |
^AUTTIML - [#9999999.41] | NI1+41, NI1+46*, VISIT+22 |
^AUTTIMM - [#9999999.14] | VISIT+28, FM+5 |
^AUTTIMM("C" | NI1+52, FM+3 |
^AUTTLOC("C" | ID+14 |
^BISITE - [#9002084.02] | LOCIN+7 |
^BYIMPARA - [#90480] | SET+1, ADDIM+4, ADDIM+5 |
^BYIMPARA("NMNAME" | ID+48 |
^BYIMPARA("RXA" | LOCIN+3, LOCIN+4 |
^BYIMTMP($J | READ+11!, READ+16, READ+18!, SET+3, NI1+3, NI1+50!, FMINIT+1!, FM+4*, FM+6*, FM+15* , FM+16*, HDR+1*, HDR+8*, HDR+15*, VALM+6! |
^BYIMXTMP("BYIM" | SET+5, IMM+18*, IMM+22*, IMM+29!, NI1+49!, FMINIT+5, FMINIT+7, FMINIT+9, FMINIT+11, FMINIT+13 |
^DIC(4 - [#4] | PARAM+7, PADD+5, LOCIN+5, LOCIN+6, LOCIN+7, LOCIN+8, LOCIN+11, LOCIN+15, LOCIN+16 |
^DPT - [#2] | ID+68, VISIT+27 |
^INTHU - [#4001] | ID+5, IMM+3 |
^VA(200 - [#200] | DUZ+4 |
Name | Line Occurrences |
---|---|
ADDIM | IN+9 |
ADDIM1 | ADDIM+7 |
BACK | FMINIT+16 |
CONVERT | IMM+10, NI1+21 |
DIRECT | ID+45 |
DUZ | VISIT+3 |
FILE | IMPORT+2 |
FM | FMINIT+13 |
FMINIT | SET+6 |
ID | SET1+1 |
IMM | SET1+4 |
IN | I1+21 |
LOCIN | VISIT+4 |
NEWIMM | ADD+5 |
NI1 | NEWIMM+6 |
PADD | PARAM+2 |
READ | IN+5, ADDIM1+5 |
S1 | IN+6, ADDIM1+6 |
SELECT | ADD+2 |
SET | READ+17 |
SET1 | SET+3 |
VALM | START+2 |
VISIT | NI1+43 |
Name | Field # of Occurrence |
---|---|
^( | ID+5, IMM+3, FMINIT+13 |
^(0 | ID+5, NI1+41*, VISIT+27, LOCIN+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%X | VISIT+25~ |
%Y | VISIT+25~ |
A | FMINIT+2~, FMINIT+6*, FMINIT+7*, FMINIT+9, FMINIT+11, FMINIT+13, FM+11, FM+16 |
ADDIMCNT | IMPORT+1~, IN+4*, IN+7, VISIT+42*, ADDIM1+4*, ADDIM1+7 |
>> APCDALVR("APCDAFLG" | NI1+39! |
>> AUPNLK("ALL" | ID+21*, ID+32* |
>> AUPNLK("INAC" | ID+22*, ID+33* |
AUTO | IMPORT+1~ |
AUTOADD | I1+3, IN+6, IN+8, IN+10!, SET+1*, ADDIM1+6, ADDIM1+8 |
AUTOIMP | I1+9, IN+3, IN+8, IN+10!, READ+7, ADDIM1+1, ADDIM1+8 |
B | FMINIT+2~, FMINIT+8*, FMINIT+9*, FMINIT+11, FMINIT+13, FM+16 |
BYIMAS | ADDIM+1~, ADDIM+3*, ADDIM+4*, ADDIM+5 |
>> BYIMCNT | SET+7*, FM+29* |
BYIMDA | PARAM+1~, PADD+11*, ADDIM+2*, ADDIM+4, ADDIM+5 |
>> BYIMDATA | NI1+35*, NI1+36, VISIT+8*, VISIT+9*, VISIT+10*, VISIT+11*, VISIT+12*, VISIT+13*, VISIT+14*, VISIT+15* , VISIT+16*, VISIT+17*, VISIT+18 |
BYIMDUZ | NI1+40~, NI1+42*, NI1+45, VISIT+1!, VISIT+2*, VISIT+24 |
BYIMERR | IMPORT+1~, NI1+36, NI1+39!, NI1+47, VISIT+7*, VISIT+18, VISIT+20, VISIT+22*, VISIT+23*, VISIT+32 , VISIT+37 |
BYIMIMM | IMPORT+1~, IN+4*, ADDIM1+4* |
BYIMJ | IMPORT+1~, SET+7, SELECT+1, SELECT+4, S1+2, FMINIT+14* |
BYIMPAUS | NEWIMM+1!, VISIT+35 |
BYIMQUIT | FILE+1!, FILE+11*, IMPORT+3, I1+2, I1+6*, I1+18*, I1+19, READ+8*, SET1+2!, ID+6* , ID+47*, ID+66!, ID+67*, ID+68*, ADD+1!, ADD+3!, SELECT+9*, VISIT+21! |
BYIMVALM | START+1*, START+2, VALM~, VALM+4 |
BYIMX | IMPORT+1~, NI1+3*, NI1+48 |
BYIMY | IMM+1~, IMM+3*, IMM+4, IMM+5, IMM+12, IMM+14, IMM+16, IMM+17, SELECT+10* |
BYIMY( | S1+2*, NEWIMM+4, NEWIMM+5 |
C | FMINIT+2~, FMINIT+10*, FMINIT+11*, FMINIT+13, FM+3, FM+4, FM+8, FM+16 |
DA | IMPORT+1~, ID+24!, ID+35!, ID+43!, PARAM+1~, PARAM+3, PARAM+7, PARAM+11!, PADD+1!, PADD+10! , PADD+11*, DUZ+1!, DUZ+10! |
DA(1 | ID+50* |
DATE | IMPORT+1~, FM+2*, FM+14 |
DD | PARAM+11!, PADD+1!, PADD+10!, DUZ+1!, DUZ+10! |
DEL | DEL+1~, DEL+2*, SELECT+2, SELECT+5, NI1+43, NI1+47 |
>> DFN | ID+58*, ID+59, ID+63, ID+68, IMM+18, IMM+22, IMM+24, IMM+29, NI1+18*, VISIT+9 , VISIT+27, VISIT+44 |
DFNCNT | IMPORT+1~, IN+4*, IN+7, SET1+3*, ADDIM1+4*, ADDIM1+7 |
DIC | IMPORT+1~, ID+18*, ID+24!, ID+29*, ID+35!, ID+39*, ID+43!, ID+51*, PARAM+1~, PARAM+11! , PADD+1!, PADD+2*, PADD+10!, DUZ+1!, DUZ+6*, DUZ+10! |
DIC("A" | PADD+4* |
DIC("B" | PADD+5* |
DIC("DR" | ID+54*, DUZ+8* |
DIC("S" | ID+20*, ID+31*, ID+41* |
DIC(0 | ID+19*, ID+30*, ID+40*, ID+52*, PADD+3*, DUZ+7* |
DIE | IMPORT+1~, PARAM+1~, PARAM+4*, PARAM+11!, PADD+1!, PADD+10!, DUZ+1!, DUZ+10! |
DIK | IMPORT+1~, PARAM+11!, PADD+1!, PADD+10!, DUZ+1!, DUZ+10! |
DINUM | ID+24!, ID+35!, ID+43!, PARAM+11!, PADD+1!, PADD+10!, DUZ+1!, DUZ+10! |
DIR | FILE+10!, I1+17!, SELECT+8! |
DIR("A" | FILE+5*, FILE+6*, FILE+7*, I1+13*, SELECT+5* |
DIR("B" | I1+14* |
DIR(0 | FILE+4*, I1+12*, SELECT+4* |
DLAYGO | IMPORT+1~, ID+24!, ID+35!, ID+43!, PARAM+11!, PADD+1!, PADD+10!, DUZ+1!, DUZ+10! |
DO | PARAM+11!, PADD+1!, PADD+10!, DUZ+1!, DUZ+10! |
DOB | IMPORT+1~, ID+15*, ID+48, ID+54, IMM+18, IMM+22, IMM+29, NI1+27*, FMINIT+4*, FMINIT+5* , FMINIT+7, FMINIT+9, FMINIT+11, FMINIT+13, FM+10, FM+16 |
DR | IMPORT+1~, ID+24!, ID+35!, ID+43!, PARAM+1~, PARAM+5*, PARAM+11!, PADD+1!, PADD+10!, DUZ+1! , DUZ+10! |
DUZ | NI1+42, VISIT+2 |
DUZ( | SET+4*, ID+1*, ID+14*, ID+25*, ID+65*, VISIT+19* |
DUZ(2 | SET+1, ID+14, ID+50, ID+51, ID+59, ID+64, VISIT+16, PADD+5, ADDIM+2, LOCIN+7 , LOCIN+11 |
FACILITY | IMPORT+1~, ID+10*, ID+14 |
FILE | FILE+12*, I1+1, I1+4, I1+21, IN~, IN+5, IN+7, READ~, READ+5, READ+7 , ID+54, ADDIM1+5, ADDIM1+7 |
>> FULLNAME | ID+13*, ID+48, ID+53 |
HRN | IMPORT+1~, ID+9*, ID+17 |
I | READ+1~, READ+14* |
IMM | IMPORT+1~, IMM+9*, IMM+11, NI1+20*, NI1+33, NI1+35, NI1+52, VISIT+28, CONVERT+1*, CONVERT+2* , CONVERT+3*, FM+5*, FM+6, FM+8*, FM+12 |
IMM( | IMM+21 |
IMM(0 | IMM+19 |
IMMCNT | IMPORT+1~, IN+4*, IMM+8*, ADDIM1+4* |
INHDA | IMPORT+1~, SET+2*, SET+3*, SET1~, ID+5, IMM+3, IMM+18, IMM+22 |
IO | READ+14 |
IOF | PARAM+6, PADD+6 |
IPATH | FILE+3, FILE+6, IMPORT+5, I1+1, I1+5, I1+21, IN~, IN+5, IN+7, READ~ , READ+5, READ+7, ADDIM+6*, ADDIM1+5, ADDIM1+7 |
IVDA | IMPORT+1~, NI1+22*, NI1+38, VISIT+10, VISIT+28, VISIT+44, FM+3*, FM+4, FM+5, FM+16 |
J | READ+1~, READ+4*, ID+2~, ID+4*, ID+5*, ID+8*, IMM+2*, IMM+3*, S1+1~, S1+2* , FMINIT+2~, FMINIT+3*, FMINIT+14, FMINIT+15, FM+7*, FM+9, FM+15, FM+16 |
JJ | IMPORT+1~, NEWIMM+6* |
LOC | IMPORT+1~, NI1+23*, NI1+25*, NI1+26*, VISIT+4, VISIT+13, LOCIN~, LOCIN+1*, LOCIN+3, LOCIN+4 , LOCIN+5, LOCIN+6* |
>> LOC2 | NI1+24*, NI1+25, VISIT+13, LOCIN+6 |
>> LOCDA | VISIT+12, LOCIN+2*, LOCIN+3*, LOCIN+4*, LOCIN+5*, LOCIN+6*, LOCIN+7*, LOCIN+8, LOCIN+17* |
LOT | IMM+1~, IMM+16*, IMM+18, NI1+28*, NI1+33, NI1+35, NI1+38 |
>> LOTDA | NI1+29*, NI1+36, NI1+41, VISIT+22, VISIT+43, VISIT+44 |
>> MAN | IMM+17*, IMM+18, NI1+31*, NI1+38 |
>> MM | ID+54 |
MSGCNT | IMPORT+1~, IN+4*, READ+2*, ADDIM1+4* |
MSHX | IMPORT+1~ |
>> MVX | NI1+30*, NI1+33, NI1+35 |
NAME | IMPORT+1~, ID+13*, IMM+18, IMM+22, IMM+29, NI1+17* |
NEWIMCNT | IMPORT+1~, IN+4*, IN+7, FMINIT+15*, ADDIM1+4*, ADDIM1+7 |
NEWLOT | NI1+1!, NI1+40~, NI1+41*, NI1+46! |
NODFNCNT | IMPORT+1~, IN+4*, IN+7, ID+56*, ADDIM1+4*, ADDIM1+7 |
NUM | IMPORT+1~, NI1+2*, NI1+3, NI1+50 |
OLDDUZ | SET+4!, ID+1!, ID+60!, VISIT+19! |
OLDDUZ( | ID+14*, ID+64* |
OLDDUZ(2 | SET+4, ID+1, ID+25, ID+63, ID+67, VISIT+19, LOCIN+7 |
>> OLDIMM | CONVERT+1*, CONVERT+2*, CONVERT+3* |
OPATH | READ+1~ |
P | VISIT+5~, VISIT+6*, VISIT+8, VISIT+9, VISIT+10, VISIT+11, VISIT+12, VISIT+13, VISIT+14, VISIT+15 , VISIT+16, VISIT+17 |
PID | IMPORT+1~, ID+3*, ID+5*, ID+6, ID+7, ID+11, ID+15, ID+16, ID+27, ID+37 |
>> PIDX | ID+7*, ID+8 |
RX | READ+12~, READ+13*, READ+14 |
RXACNT | IMPORT+1~, IN+4*, IN+7, READ+3*, ADDIM1+4*, ADDIM1+7 |
SEX | IMPORT+1~, ID+16*, ID+48, ID+54 |
STATUS | IMPORT+1~, READ+14* |
T | IMPORT+1~, FM+9*, FM+10*, FM+11*, FM+12*, FM+13*, FM+14*, FM+15, FM+29, HDR+2* , HDR+3*, HDR+4*, HDR+5*, HDR+6*, HDR+7*, HDR+8, HDR+9*, HDR+10*, HDR+11*, HDR+12* , HDR+13*, HDR+14*, HDR+15 |
U | FILE+11, SET+1, ID+8, ID+12, ID+28, ID+38, IMM+5, IMM+13, IMM+17, IMM+18 , IMM+22, IMM+26, NI1+17, NI1+18, NI1+19, NI1+20, NI1+22, NI1+23, NI1+24, NI1+27 , NI1+28, NI1+30, NI1+31, NI1+32, NI1+41, NI1+46, NI1+49, VISIT+22, VISIT+27, VISIT+28 , VISIT+35, FM+1, FM+5, FM+13, FM+16, PARAM+7, PADD+5, ADDIM+6, LOCIN+6, LOCIN+7 , LOCIN+8, LOCIN+11, LOCIN+16 |
>> UIF | ID+54 |
VALMBCK | IMPORT+1~, BACK* |
VALMCC | IMPORT+1~, VALM+1* |
VALMCNT | IMPORT+1~, FMINIT+14*, HDR+1 |
VDATE | IMPORT+1~, NI1+19*, NI1+51, VISIT+11, VISIT+30, VISIT+44 |
>> VOL | IMM+14*, IMM+15*, IMM+18, NI1+32*, VISIT+15 |
X | FILE+11, FILE+12, READ+1~, READ+14, ID+8*, ID+9, ID+10, ID+11*, ID+12*, ID+13 , ID+17*, ID+27*, ID+28*, ID+37*, ID+38*, ID+53*, IMM+1~, IMM+12*, IMM+13*, IMM+18 , IMM+22, IMM+23*, IMM+24*, IMM+25, S1+1~, NI1+3*, NI1+4, NI1+17, NI1+18, NI1+19 , NI1+20, NI1+22, NI1+23, NI1+24, NI1+27, NI1+28, NI1+30, NI1+31, NI1+32, NI1+44* , NI1+45, NI1+48*, NI1+49, VISIT+24*, VISIT+25~, VISIT+29~, VISIT+30*, VISIT+31, FMINIT+2~, FMINIT+12* , FMINIT+13*, DUZ+2~, DUZ+3*, DUZ+4, DUZ+13*, ADDIM+5*, ADDIM+6, LOCIN+10~, LOCIN+11*, LOCIN+12 , LOCIN+16 |
X1 | IMPORT+1~ |
X2 | IMPORT+1~ |
XMB | VISIT+25~, VISIT+26* |
XMB(1 | VISIT+27*, VISIT+38 |
XMB(2 | VISIT+28*, VISIT+39 |
XMB(3 | VISIT+31*, VISIT+40 |
XMB(4 | VISIT+32* |
XMDT | VISIT+25~ |
XMDUZ | VISIT+25~, VISIT+33* |
XX | ID+61~, ID+62*, ID+63*, ID+65, NEWIMM+2~, NEWIMM+3*, NEWIMM+4*, NEWIMM+5, FM+1*, FM+2 , FM+16 |
XXX | FMINIT+2~, FMINIT+13*, FM+1, FM+13, FM+16 |
Y | I1+1*, I1+2, I1+18, READ+1~, READ+5*, READ+6, ID+26, ID+36, ID+44, ID+46 , ID+57*, ID+58, IMM+1~, IMM+5*, IMM+6, IMM+7, IMM+9, IMM+11*, IMM+18, IMM+20* , IMM+21*, IMM+22, IMM+25*, IMM+26, IMM+27*, IMM+28, IMM+29, SELECT+9, SELECT+10, S1+1~ , NI1+52*, NI1+53, FMINIT+2~, PADD+11, DUZ+2~, DUZ+4*, DUZ+5, DUZ+11*, DUZ+12*, DUZ+13 , LOCIN+10~, LOCIN+14*, LOCIN+15*, LOCIN+16 |
Y1 | VISIT+25~ |
YY | IMPORT+1~, NEWIMM+5*, NEWIMM+6 |
Z | SET+4*, ID+1*, ID+14*, ID+25*, ID+64*, ID+65*, IMM+1~, IMM+4*, IMM+7, IMM+18 , IMM+22, IMM+26*, IMM+28, IMM+29, S1+1~, NI1+51*, NI1+53, VISIT+19*, FMINIT+2~, DUZ+2~ , LOCIN+10~, LOCIN+13*, LOCIN+15, LOCIN+16*, LOCIN+17 |
ZTQUEUED | IMPORT+1~, IMPORT+6, I1+3, IN+8, SET1+5, VISIT+35, ADDIM1+2, ADDIM1+3, ADDIM1+8 |
ZZ | IMM+1~, NEWIMM+6*, NI1+2 |
Name | Field # of Occurrence |
---|---|
$T(ADDLOT^BIRPC5 | NI1+34, NI1+37 |