Routine: BYIMIMM1

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

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FILE+8
Function Call: WRITE	Prompt: "/" Line Location: SET1+5
Function Call: WRITE	Prompt: ! Line Location: SELECT+6
Function Call: WRITE	Prompt: @IOF Line Location: PARAM+6
Function Call: WRITE	Prompt: !!,"UPDATE Data Exchange Parameters for ",$P(^DIC(4,DA,0),U) Line Location: PARAM+7
Function Call: WRITE	Prompt: ! Line Location: PARAM+8
Function Call: WRITE	Prompt: @IOF Line Location: PADD+6
Function Call: WRITE	Prompt: !!,"ADD Data Exchange Parameter Site" Line Location: PADD+7
Function Call: WRITE	Prompt: ! Line Location: PADD+8
Routine Call	VALM Line Location: VALM+4
Routine Call	DIE Line Location: PARAM+9
Routine Call	DIC Line Location: ID+23 ID+34 ID+42 PADD+9
Routine Call	DIR Line Location: FILE+9 I1+16 SELECT+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls
^BYIMPARA - [#90480]	Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name	Field # of Occurrence
^(	ID+5, IMM+3, FMINIT+13
^(0	ID+5, NI1+41*, VISIT+27, LOCIN+7

Local Variables

Legend:

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

Marked Items

Customize PDF page

Package: IHS Immunizations Interface

Routine: BYIMIMM1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items