Routine: BYIMIMM2

Package	Total	Call Graph
IHS Immunizations Interface	5	$$DUZ^BYIMIMM I1^BYIMIMM1 LOC^BYIMIMM3 (PATH,PAUSE)^BYIMIMM6 ZIS^BYIMXIS
VA Fileman	5	(,NOW)^%DTC ^DIC FILE^DICN ^DIK ^DIR
IHS Generic Interface System	1	EN^INHSGZ
Kernel	1	$$LIST^%ZISH

Package	Total	Caller Graph
IHS Immunizations Interface	1	BYIMIMM1

Entry Points

Name	Comments	DBIA/ICR reference
NONAME	;EP;TO DISPLAY NO MATCH REPORT
T106
READ
S1	;SELECT PATIENT AND DATE
AUTOIMP	;EP;TO AUTOMATICALLY IMPORT IMMUNIZATIONS
NEWMSG	;CREATE NEW INTHU ENTRY
K1	;KILL TEMP GLOBAL IF EQUIVALENT IMM ON FILE
T17
KILL	;EP;KILL TEMP GLOBAL ENTRY IF THERE IS EXACT MATCH OR MATCH FOR
T45
T38
T20
P4	;EP;FOR VERSION 2.0 PATCH 4
NN	;EP;TO SELECT DEVICE FOR THE NO MATCH REPORT
T50
T52
P5	;EP;FOR VERSION 2.0 PATCH 5
FLIP	;EP;FLIP OLD HIPAA FORMAT TO NEW
P10	;EP;
T6
P9	;EP;FOR VERSION 2.0 PATCH 9
NN1	;NO NAME HEADER
T107
SZIS	;SELECT DEVICE AND DISPLAY REPORT
NONAME1	;
P8	;EP;FOR VERSION 2.0 PATCH 8
T104
P2	;EP;FOR PATCH 2 POST INSTALL PROCESSING
P3	;EP;FOR VERSION 2.0 PATCH 3
T120
P6	;EP;FOR VERSION 2.0 PATCH 6
P7	;EP;FOR VERSION 2.0 PATCH 7
T8
SHOW	;EP;TO SHOW ALL EXPORTS FOR SELECTED PATIENT
SHEAD	;EP;HEADER FOR EXPORT LIST DISPLAY
T7
T121
T5
T2
T1
T28
SCREEN	;EP;ADD SCREEN CALL TO HL7 MESSAGE
T21
N1
NCNT	;COUNT NEW IMMS PRIOR TO NEW IMPORT
T85
MATCH	;EP;COUNT NUMBER OF MATCHES
F1
SDATE	;SELECT EXPORT DATE
T43
T42
INSET	;EP;TO PROCESS INCOMING HL7 MESSAGES
SDISP	;EP;SHOW DISPLAY OF PATIENT'S IMMUNIZATIONS EXPORTED
T44
V3	;EP;FOR VERSION 3.0 POST INSTALL RE-INDEX
T110
T10
SKILL	;KILL SHOW VARIABLES
T84
T83
SPAT	;SELECT SHOW PATIENT

External References

Name	Field # of Occurrence
^%DTC	K1+12, K1+18
NOW^%DTC	NEWMSG+1
$$LIST^%ZISH	AUTOIMP+7
$$DUZ^BYIMIMM	MATCH+26, NONAME1+8, NONAME1+9, NONAME1+26, NONAME1+29, N1+19, NN1+3, AUTOIMP+3, AUTOIMP+4, AUTOIMP+16 , AUTOIMP+17, SDISP+6, P5+20
I1^BYIMIMM1	AUTOIMP+19
LOC^BYIMIMM3	P2+2
PATH^BYIMIMM6	AUTOIMP+5
PAUSE^BYIMIMM6	MATCH+25, N1+20, READ+1
ZIS^BYIMXIS	NN+35, SZIS+2
^DIC	SPAT+7
FILE^DICN	F1+13, NEWMSG+7
^DIK	NONAME1+30, P2+15
^DIR	NN+7, NONAME1+17, SDATE+3
EN^INHSGZ	P5+17, SCREEN+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Import information:" Line Location: MATCH+16
Function Call: WRITE	Prompt: !,"-------------------" Line Location: MATCH+17
Function Call: WRITE	Prompt: !,"Number of immunizations already listed in IZAD prior to this import" Line Location: MATCH+18
Function Call: WRITE	Prompt: !,"that need to be reviewed to be added to RPMS: ",BYIMNCNT Line Location: MATCH+19
Function Call: WRITE	Prompt: !,"Number of patients in this import file.....: ",MSGCNT Line Location: MATCH+20
Function Call: WRITE	Prompt: !,"Number of immunizations in this import file: ",RXACNT Line Location: MATCH+21
Function Call: WRITE	Prompt: !,"Number of immunizations in this import that can be added to RPMS..: ",K Line Location: MATCH+22
Function Call: WRITE	Prompt: !,"Number of immunizations in this import that can't be added to RPMS: ",RXACNT-K Line Location: MATCH+23
Function Call: WRITE	Prompt: !,"(No Patient match or immunization already in RPMS)",! Line Location: MATCH+24
Function Call: WRITE	Prompt: @IOF Line Location: NN+2
Function Call: WRITE	Prompt: !?10,"Select sequence for NO MATCH report" Line Location: NN+3
Function Call: WRITE	Prompt: ! Line Location: NONAME1+16
Function Call: WRITE	Prompt: @IOF Line Location: NONAME1+31
Function Call: WRITE	Prompt: !,J,?4,X Line Location: N1+12
Function Call: WRITE	Prompt: ?35 Line Location: N1+13
Function Call: WRITE	Prompt: ?13 Line Location: N1+14
Function Call: WRITE	Prompt: Y,?44,Z,?53,SEX Line Location: N1+15
Function Call: WRITE	Prompt: " (",$S(MM]"":MM,1:"NAME")," MISMATCH)" Line Location: N1+18
Function Call: WRITE	Prompt: ! Line Location: N1+20
Function Call: WRITE	Prompt: !!,"Patients for whom there is no matching patient in RPMS: (TOTAL: ",JJ,")" Line Location: NN1+4
Function Call: WRITE	Prompt: !!,"#",?4,NMX Line Location: NN1+5
Function Call: WRITE	Prompt: ?35 Line Location: NN1+6
Function Call: WRITE	Prompt: ?13 Line Location: NN1+7
Function Call: WRITE	Prompt: NMY Line Location: NN1+8
Function Call: WRITE	Prompt: ?44,NMZ,?53,"SEX" Line Location: NN1+9
Function Call: WRITE	Prompt: !,"---",?4,NMXX Line Location: NN1+10
Function Call: WRITE	Prompt: ?35 Line Location: NN1+11
Function Call: WRITE	Prompt: ?13 Line Location: NN1+12
Function Call: WRITE	Prompt: NMYY Line Location: NN1+13
Function Call: WRITE	Prompt: ?44,"--------",?53,"---" Line Location: NN1+14
Function Call: WRITE	Prompt: !!,"Please standby and do not interrupt this process..." Line Location: FLIP+1
Function Call: WRITE	Prompt: !,@IOF Line Location: SPAT+5
Function Call: WRITE	Prompt: !!,?10,"Select the patient to review:",!! Line Location: SPAT+6
Function Call: WRITE	Prompt: ! Condition for execution: VIS]"" Line Location: SDISP+26
Function Call: WRITE	Prompt: "V IMMUNIZATION has been deleted" Line Location: SDISP+26
Function Call: WRITE	Prompt: @IOF Line Location: SHEAD+1
Function Call: WRITE	Prompt: !!,"Immunization Export summary for: " Line Location: SHEAD+2
Function Call: WRITE	Prompt: !,NAME,?30,"DOB: ",$E(DOB,5,6),"/",$E(DOB,7,8),"/",$E(DOB,1,4),?47,"HRN: ",HRN Line Location: SHEAD+3
Function Call: WRITE	Prompt: !!?5,"Export Date",?18,"Immunization",?40,"Admin Date" Line Location: SHEAD+4
Function Call: WRITE	Prompt: !?5,"-----------",?18,"--------------------",?40,"----------" Line Location: SHEAD+5
Function Call: WRITE	Prompt: "." Line Location: INSET+12
Routine Call	DIC Line Location: SPAT+7
Routine Call	DIR Line Location: NN+7 NONAME1+17 SDATE+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^INTHU - [#4001]	Classic Fileman Calls
^BYIMEXP - [#90480.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	SDISP+6
^AUPNVIMM - [#9000010.11]	F1+5, SDISP+20, SDISP+23, SDISP+26
^AUPNVSIT - [#9000010]	SDISP+20
^AUTTIMM - [#9999999.14]	SDISP+23, KILL+3, KILL+9
^AUTTIMM(107	KILL+5
^AUTTIMM(133	KILL+4
^BYIMEXP - [#90480.1]	SDISP+11, V3+8
^BYIMEXP("AC"	F1+7
^BYIMEXP("B"	SDISP+10
^BYIMEXP("D"	V3+4, V3+9*
^BYIMPARA - [#90480]	MATCH+26, NONAME1+6, NONAME1+8, NONAME1+9, NN1+3, AUTOIMP+3, AUTOIMP+4, AUTOIMP+17, FLIP+4, F1+1 , F1+2, F1+4, F1+15!, P5+20*
^BYIMPARA("FILE"	AUTOIMP+16
^BYIMPARA("NMNAME"	P2+8, P2+10, P2+13
^BYIMTEMP(	F1+1*
^BYIMTMP(	P2+6
^BYIMTMP($J	NEWMSG+11*
^BYIMXTMP("BYIM"	MATCH+4, MATCH+6, MATCH+8, MATCH+10, MATCH+12, NONAME+3!, N1+19, K1+5, K1+6, K1+7! , K1+8, K1+9, K1+14!, K1+15, K1+20!, NCNT+4, NCNT+6, NCNT+8, NCNT+10, NCNT+12
^DIC(9.4 - [#9.4]	P2+3, V3+2, V3+3*
^DPT - [#2]	SDISP+4, SDISP+5
^DPT("B"	N1+17
^INRHS("B"	P5+12
^INTHL7F - [#4012]	P6+3!
^INTHL7F("B"	P6+2
^INTHL7M - [#4011]	P5+10, P5+13, SCREEN+6, SCREEN+8*
^INTHL7M("B"	P5+6, SCREEN+2
^INTHL7S("B"	SCREEN+4
^INTHU - [#4001]	INSET+11, INSET+13, INSET+14*

Label References

Name	Line Occurrences
@(	KILL+13
F1	FLIP+4
K1	KILL+14
N1	NONAME1+10
NEWMSG	INSET+10
NN1	NONAME1+2
NONAME1	NONAME+2
READ	SDISP+29
S1	SHOW+2
SCREEN	P10+1
SHEAD	SDISP+7, SDISP+29
SKILL	S1+1
SPAT	S1+2
SZIS	S1+4
T20	T1

Naked Globals

Name	Field # of Occurrence
^(	K1+14!, K1+20!, P2+6!, P5+10, P5+20, V3+8
^("VERSION"	P2+3*
^(4	P5+10*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NEWMSG+2
A	MATCH+1~, MATCH+5, MATCH+6, MATCH+8, MATCH+10, MATCH+12, NCNT+1~, NCNT+5, NCNT+6, NCNT+8 , NCNT+10, NCNT+12
AUTOADD	AUTOIMP+2~, AUTOIMP+4*
AUTOIMP	AUTOIMP+2~, AUTOIMP+3*
B	MATCH+1~, MATCH+7, MATCH+8, MATCH+10, MATCH+12, NCNT+1~, NCNT+7, NCNT+8, NCNT+10, NCNT+12
BYIMDATE	SKILL+1!, SDATE+6*
BYIMDFN	FLIP+2~, F1+5, F1+6, F1+7, F1+12, S1+3, SKILL+1!, SPAT+10, SDISP+4, SDISP+5 , SDISP+6, SDISP+10
>> BYIMJ	INSET+14, NEWMSG+10
>> BYIMNCNT	MATCH+14, MATCH+19, NCNT+2, NCNT+13
BYIMQUIT	NONAME+1!, NONAME+2, NONAME1+11, NONAME1+12, NONAME1+13, NONAME1+19, N1+20, AUTOIMP+1!, AUTOIMP+14~, AUTOIMP+17 , AUTOIMP+18!, SHOW+1!, SHOW+2, SPAT+9, SDISP+10, SDISP+30!, READ+1
>> BYIMRTN	NN+34, SZIS+1
BYIMX	NONAME1+1~, INSET+6*, INSET+11, INSET+13, INSET+14
BYIMX(	NONAME1+27, N1+11*
BYIMY	NONAME1+20~, NONAME1+21*
BYIMY(	NONAME1+23, NONAME1+24
C	MATCH+1~, MATCH+9, MATCH+10, MATCH+12, NCNT+1~, NCNT+9, NCNT+10, NCNT+12
DA	NONAME1+27, NONAME1+28, AUTOIMP+14~, AUTOIMP+15, AUTOIMP+16, AUTOIMP+17, F1+8!, F1+14!, SKILL+1!, SPAT+8! , NEWMSG+3!, NEWMSG+8!, P2+12, P2+13*
DA(1	NONAME1+26, P2+9, P2+10*, P2+13, P2+14
>> DAT	SDISP+13, SDISP+19, SDISP+25
DATE	FLIP+2~, F1, F1+2, F1+4, F1+7, F1+11, F1+15
DD	F1+8!, F1+14!, NEWMSG+3!, NEWMSG+8!
>> DFN	NONAME1+5, NONAME1+6, NONAME1+8, N1+7, N1+8, N1+9, K1+5, K1+6, K1+7, K1+8 , K1+9, K1+14, K1+15, K1+20
DIC	F1+8!, F1+9, F1+14!, SKILL+1!, SPAT+1, SPAT+8!, NEWMSG+3!, NEWMSG+4*, NEWMSG+8!
DIC("A"	SPAT+3*
DIC("DR"	F1+11*
DIC("S"	SPAT+4*
DIC(0	F1+10, SPAT+2, NEWMSG+5*
DIE	F1+8!, F1+14!, SKILL+1!, NEWMSG+3!, NEWMSG+8!
DIK	NONAME1+29, F1+8!, F1+14!, NEWMSG+3!, NEWMSG+8!, P2+14
DINUM	F1+8!, F1+14!, SPAT+8!, NEWMSG+3!, NEWMSG+8!
DIR	NN+4!, NN+8!, NONAME1+18!, AUTOIMP+2~, AUTOIMP+7*, SKILL+1!, SDATE+4!
DIR(	AUTOIMP+10
DIR("A"	NN+6, NONAME1+15, SDATE+2*
DIR(0	NN+5, NONAME1+14, SDATE+1*
DLAYGO	F1+8!, F1+14!, SPAT+8!, NEWMSG+3!, NEWMSG+6*, NEWMSG+8!
DO	F1+8!, F1+14!, NEWMSG+3!, NEWMSG+8!, KILL+2~, KILL+11*, KILL+13
DOB	MATCH+1~, MATCH+3, MATCH+4, MATCH+6, MATCH+8, MATCH+10, MATCH+12, N1+1, N1+2, N1+7 , N1+8, SDISP+5, SHEAD+3, K1+5, K1+6, K1+7, K1+8, K1+9, K1+14, K1+15 , K1+20, NCNT+1~, NCNT+3, NCNT+4*, NCNT+6, NCNT+8, NCNT+10, NCNT+12
DR	F1+8!, F1+14!, SKILL+1!, SPAT+8!, NEWMSG+3!, NEWMSG+8!
DT	SDATE+1, P5+20
FILE	N1+3, N1+7, N1+9, AUTOIMP+2~, AUTOIMP+8, AUTOIMP+12*, AUTOIMP+13, AUTOIMP+16
FILE(	AUTOIMP+10*, AUTOIMP+12
>> HRN	SDISP+6*, SHEAD+3
IMM	FLIP+2~, F1+3, F1+4, F1+5, F1+11, F1+15, SDISP+14*, SDISP+15, SDISP+20, SDISP+23 , SDISP+26
>> INAM	SDISP+23*, SDISP+25
>> INGALL	P5+15, SCREEN+10
>> INHDA	INSET+11, INSET+13, INSET+14, NEWMSG+9*, NEWMSG+11
>> INSS	P5+16*
IO	NONAME1+13, N1+20
IO("HOME"	NONAME1+13, N1+20
IOF	NN+2, NONAME1+31, SPAT+5, SHEAD+1
IOST	SDISP+29
>> IPATH	AUTOIMP+6, AUTOIMP+7
J	NONAME1+1~, NONAME1+3, N1+10, N1+11, N1+12, N1+19, N1+20, SDISP+8, SDISP+28, SDISP+29 , INSET+9, P2+11, P2+13, V3+5~, V3+6, V3+10*, V3+11
JJ	NONAME1+1~, NONAME1+11, NONAME1+14, NONAME1+20~, NONAME1+25, NN1+1, NN1+3*, NN1+4
K	MATCH+1~, MATCH+2, MATCH+13, MATCH+14, MATCH+22, MATCH+23, KILL+2~, K1+5
KILL	KILL+2~, KILL+3, KILL+4, KILL+5, KILL+6, KILL+7, KILL+8, KILL+10, K1+1, K1+2* , K1+3, K1+4, K1+5, T2, T5, T6, T7, T8, T8+1, T8+2* , T10, T17, T20, T20+1, T21, T28, T28+1, T38, T42, T43 , T44, T45, T45+1, T45+2, T50, T50+1, T52, T83, T84, T85 , T104, T104+1, T106, T106+1, T107, T107+1, T110, T110+1, T110+2, T120 , T120+1, T120+2, T121, T121+1
>> MES	N1+6*
>> MESS	P5+6*, P5+7, P5+10, P5+13, P5+14
>> MM	N1+5*, N1+18
>> MSGCNT	MATCH+20, INSET+8*
MSH	INSET+1~, INSET+2*, INSET+3, INSET+5, INSET+7, INSET+13, INSET+14
>> MSHX	INSET+3*, INSET+4
>> NAME	N1, N1+8, N1+9, SDISP+4, SHEAD+3, K1+5, K1+6, K1+7, K1+8, K1+9 , K1+14, K1+15, K1+20, P2+7, P2+8, P2+10, P2+13
NMDATE	NN+1~
NMDOB	NN+1~
NMX	NN+1~, NN+15, NN+23, NN+31*, NN1+5
NMXREF	NN+1~, NN+11, NN+19, NN+27*, NONAME1+6, NONAME1+8, N1+7, N1+8, N1+9, N1+13 , N1+14, NN1+6, NN1+7, NN1+11, NN1+12
NMXX	NN+1~, NN+12, NN+20, NN+28*, NN1+10
NMY	NN+1~, NN+16, NN+24, NN+32*, NN1+8
NMYY	NN+1~, NN+13, NN+21, NN+29*, NN1+13
NMZ	NN+1~, NN+17, NN+25, NN+33*, NN1+9
NMZZ	NN+1~, NN+14, NN+22, NN+30*
>> RXACNT	MATCH+21, MATCH+23, INSET+14*
>> SCR	P5+12*, P5+13, P5+16
>> SEG	P5+8, P5+10, P5+11
>> SEX	N1+4*, N1+15
TMP	P2+4~, P2+5, P2+6
>> TYPE	SDISP+2*, SDISP+12
U	NONAME1+6, NONAME1+8, NONAME1+13, N1, N1+1, N1+3, N1+4, N1+5, N1+6, N1+19 , N1+20, AUTOIMP+3, AUTOIMP+4, AUTOIMP+17, F1+5, SDISP+4, SDISP+5, SDISP+6, SDISP+12, SDISP+13 , SDISP+14, SDISP+20, SDISP+23, KILL+3, KILL+4, KILL+5, KILL+9, K1+1, K1+2, K1+3 , K1+4, P2+3, P5+13, P5+20, V3+3, V3+8, V3+9
>> VIS	SDISP+20, SDISP+22, SDISP+24*, SDISP+25, SDISP+26
X	MATCH+11, MATCH+12, N1+7, N1+8, N1+9, N1+12, N1+17, N1+20, NN1+2, NN1+3* , F1+12, SDISP+11, SDISP+12, SDISP+13, SDISP+14, READ+1, INSET+2, INSET+3, INSET+6, NEWMSG+2* , KILL+2~, KILL+12, KILL+13, K1+13, K1+14, K1+19, K1+20, NCNT+11, NCNT+12, P5+9 , P5+10, P5+18~, P5+19, P5+20, P6+1~, P6+2, P6+3, P9+1, SCREEN+1~, SCREEN+2 , SCREEN+3, SCREEN+6, SCREEN+8, SCREEN+9, V3+1~, V3+2, V3+3, V3+5~, V3+7, V3+8* , V3+9
>> X1	K1+9, K1+10, K1+15, K1+16
>> X2	K1+11, K1+17
XPAT	N1+16~, N1+17*, N1+18
>> XPDDIQ(	P9+1*
XX	NONAME1+1~, NONAME1+20~, NONAME1+22, NONAME1+23, NONAME1+24, AUTOIMP+9, AUTOIMP+10, AUTOIMP+11, AUTOIMP+12, FLIP+2~ , FLIP+3, FLIP+4, F1+1, F1+2, F1+4, F1+15, SKILL+1!, SDISP+9, SDISP+10, SDISP+11
XXX	NONAME1+1~, NONAME1+4, NONAME1+6, NONAME1+8, N1+20, READ~
Y	NN+9, NN+10, NN+18, NN+26, NONAME1+9, NONAME1+19, NONAME1+21, N1, N1+1, N1+3 , N1+4, N1+5, N1+6, N1+7, N1+8, N1+9, N1+15, SPAT+9, SPAT+10, SDATE+5 , SDATE+6, NEWMSG+9, KILL+3, KILL+4, KILL+5, KILL+6, KILL+7, KILL+8, KILL+9, KILL+10 , KILL+11, K1+1, K1+2, K1+3, K1+4, K1+5, K1+6, K1+7, K1+8, K1+9 , K1+14, K1+15, K1+20, P5+14, P6+1~, SCREEN+1~, SCREEN+4, SCREEN+5, SCREEN+6, SCREEN+9* , V3+5~, V3+8*, V3+9
YY	NONAME1+1~, NONAME1+7, NONAME1+8, NONAME1+9, NONAME1+24*, NONAME1+25, N1+11, N1+19
Z	N1+7, N1+8, N1+9, N1+15, K1+6, K1+7, K1+9, K1+11, K1+14, K1+15 , K1+17, K1+20, P6+1~, SCREEN+1~, SCREEN+6, SCREEN+7, SCREEN+8, V3+5~
ZA	KILL+2~
ZB	KILL+2~
>> ZTQUEUED	NONAME1+12, N1+20, READ+1, INSET+12
ZZ	NONAME1+25, NONAME1+27, KILL+2~, K1+9, K1+14, K1+15*, K1+20

Customize PDF page

Package: IHS Immunizations Interface

Routine: BYIMIMM2

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

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