Routine: BYIMIMM

Package	Total	Call Graph
IHS Immunizations Interface	5	(HFSA,LOG)^BYIMIMM4 CLEAN^BYIMIMM5 ($$NEW,HFSA,NOPATH,PATH,PAUSE)^BYIMIMM6 ^BYIMPORT ALL^BYIMRT
VA Fileman	3	NOW^%DTC FILE^DICN ^DIR
Kernel	2	$$DEL^%ZISH ^%ZTLOAD
IHS Generic Interface System	1	^INHF

Package	Total	Caller Graph
IHS Immunizations Interface	8	BYIMIMM2 BYIMIMM3 BYIMIMM4 BYIMIMM5 BYIMIMM6 BYIMRT BYIMSEG1 BYIMSEGS
IHS Generic Interface System	1	IS00011

Name	Comments	DBIA/ICR reference
DEX	;EP;TO CREATE ACTUAL HL7 MESSAGES
STRIP(Z)	;REMOVE CONTROLL CHARACTERS
CLEAN	;CLEAN OUT MESSAGES WITH NO RXA SEGMENT, BLANK RXR AND OBX SEGMENTS
MSG(BYIMMVAR)
EOJ	;EP;kills variables
DE	;EP;IMMUNIZATION EXPORT
BACK
MPORT	;EP;run the import package utility
DATE	;EP;SELECT EXPORT DATE
PATH	;EP;SET PATH
HFSA	;EP;TO PROCESS EXPORT
LE	;PROCESS SEQUENTIAL EXPORT
HFSARES	;EP;RESTART EXPORT WHEN FILE NOT CREATED
RES1	;CLEAR CURRENT EXPORT QUEUE
NOPATH	;EP;NO PATH MESSAGE
IMMCNT(DFN)	;COUNT PT IMMS TO BE EXPORTED
NLE	;PROCESS FIRST EXPORT
FN	;EP;SET FILE NAME
DUZ()	;PRIMARY PARAM SITE
ADDEX	;EP;PROCESS ADDITIONAL EXPORT SITES
PAUSE	;EP;FOR PAUSE READ
ZIS
DATE19	;SET AGE FOR EXPORT
HEADER	;this is the header record
IMZIS
ENV	;EP;
FOOTER	;this is the header record
READY	;EP;
OUT
V04(BYIMVST,BYIMALL,BYIMADM,DDDATE)
RESTART	;EP;
D1	;PROCESS WHEN DATE IDENTIFIED

Name	Field # of Occurrence
NOW^%DTC	HEADER+3
$$DEL^%ZISH	RESTART+13
^%ZTLOAD	ZIS+5, IMZIS+5
HFSA^BYIMIMM4	HFSARES+13
LOG^BYIMIMM4	HFSARES+17, LE+34
CLEAN^BYIMIMM5	HFSA+23
$$NEW^BYIMIMM6	LE+25
HFSA^BYIMIMM6	HFSA+10
NOPATH^BYIMIMM6	NOPATH+1
PATH^BYIMIMM6	LE+33, PATH+1
PAUSE^BYIMIMM6	PAUSE+1
^BYIMPORT	MPORT+8
ALL^BYIMRT	DATE+23
FILE^DICN	ENV+9
^DIR	DATE+30, RESTART+4, D1+26, D1+38
^INHF	V04+11, HEADER+12, FOOTER+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: M," minutes" Line Location: OUT+6
Function Call: WRITE	Prompt: ", ",S," seconds" Line Location: OUT+7
Function Call: WRITE	Prompt: !!,"Immunization data export still in process." Line Location: READY+29
Function Call: WRITE	Prompt: " (",J,")" Line Location: READY+36
Function Call: WRITE	Prompt: !,"Global ^INXPORT missing, please restore and the global." Line Location: MPORT+2
Function Call: WRITE	Prompt: !,"Importing GIS "_$G(BYIMIT)_" Supplement "_$G(BYIMIPK) Line Location: MPORT+6
Function Call: WRITE	Prompt: ", developing site "_$G(BYIMIST) Line Location: MPORT+7
Function Call: WRITE	Prompt: !,"Finished Importing GIS Supplement " Line Location: MPORT+9
Function Call: WRITE	Prompt: !!,"Do you want to restart the export?" Line Location: RESTART+2
Function Call: WRITE	Prompt: @IOF Line Location: D1+8
Function Call: WRITE	Prompt: !!,"The last Immunization export ran on: ",DDATE Line Location: D1+9
Function Call: WRITE	Prompt: !!,"This export will include: ",! Line Location: D1+12
Function Call: WRITE	Prompt: !!,"who have had a visit since the last export." Line Location: D1+20
Function Call: WRITE	Prompt: !,"You can enter another date for the export." Line Location: D1+21
Function Call: WRITE	Prompt: ! Line Location: D1+25
Function Call: WRITE	Prompt: ! Line Location: D1+36
Routine Call	DIR Line Location: DATE+30 RESTART+4 D1+26 D1+38

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BYIMPARA - [#90480]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	LE+11, NLE+7
^AUPNVIMM("AC"	IMMCNT+4
^AUPNVSIT - [#9000010]	V04+3, LE+7, NLE+12, NLE+13
^AUPNVSIT("AC"	NLE+10
^AUPNVSIT("APCIS"	LE+4, LE+6
^AUTTLOC - [#9999999.06]	LE+29, FN+1
^AUTTSITE(1	ENV+3, ENV+8, DATE+4, DATE+5, DUZ+4
^BYIMEXP("D"	IMMCNT+6
^BYIMPARA - [#90480]	ENV+4, ENV+12, ENV+13, DE+10, DATE+4, DATE+6, DATE+7, DATE+9, DATE+10, DATE+14 , DATE+15, DATE+43, DATE+44, HFSA+2, HFSARES+15, HFSARES+16, DATE19+2, LE+30, LE+35, DUZ+4 , DUZ+5
^BYIMPARA("B"	ENV+14*
^BYIMTMP("BYIMFILE"	DATE+42*, HFSARES+19!
^BYIMTMP("LOG"	DEX+6!, DEX+21, IMMCNT+5, IMMCNT+6*
^BYIMTMP("NUM"	DEX+22, HFSA+11, HFSARES+4, HFSARES+5!, HFSARES+18!, READY+15, READY+27
^BYIMTMP($J	DATE+33!, DEX+8, DEX+13, DEX+24!, LE+10, LE+26, LE+28, NLE+14, NLE+15
^DD("DD"	D1+2, D1+5, D1+31
^DIC(4 - [#4]	HEADER+8
^DPT - [#2]	LE+11, LE+12, NLE+7, NLE+8
^DPT("ADOB"	NLE+4, NLE+6
^INLHDEST(	HFSA+9, HFSA+18, HFSA+20, HFSA+25, HFSA+27, HFSARES+3, READY+9, READY+24, READY+26, HEADER+2! , RES1+2!, CLEAN+5, CLEAN+7, CLEAN+9, CLEAN+17!
^INLHSCH(0	READY+3, READY+5, READY+32, READY+34, RES1+5, RES1+7, RES1+8!
^INRHD("B"	HFSA+7, HFSARES+1, READY+8, HEADER+1, RES1+1, CLEAN+2
^INTHU - [#4001]	READY+6, READY+35, RES1+8, CLEAN+12, CLEAN+14!, CLEAN+15!
^INTHU(0	HEADER+10, HEADER+11, HEADER+13, FOOTER+1
^INXPORT(	MPORT+4, MPORT+5
^INXPORT(""	MPORT+1, MPORT+3
^TMP($J	HFSA+25, HFSA+27

Label References

Name	Line Occurrences
$$DUZ	DE+10, DATE+4, DATE+7, DATE+10, DATE+14, DATE+15, DATE+43, DATE+44, HFSA+2, HFSARES+15 , HFSARES+16, HEADER+8, DATE19+2, LE+29, LE+30, LE+35, FN+1
$$IMMCNT	DEX+20
$$MSG	V04+1, V04+13
$$V04	DEX+16
CLEAN	HFSA+26
D1	DATE+16
DATE19	DATE+11
DEX	LE+39, NLE+17
EOJ	V04+12, HEADER+14, FOOTER+3
FN	DATE+41, HFSARES+12, RESTART+12
FOOTER	HFSA+22
HEADER	DEX+2
HFSA	HFSA+6, HFSA+21
HFSARES	HFSARES+14, RESTART+7
LE	DATE+43
NLE	DATE+44
NOPATH	DE+5, DATE+38, OUT+10, HFSARES+10, RESTART+11
PATH	DE+4, DATE+37, OUT+9, HFSARES+9, V04+2, RESTART+10
PAUSE	ZIS+8, OUT+15, LE+38
READY	DE+10, HFSA+5
RES1	ZIS+10, RESTART+9
RESTART	DE+12

Naked Globals

Name	Field # of Occurrence
^(	DATE+15, LE+30*, CLEAN+12
^("BYIMFILE"	HFSARES+5!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HEADER+4
AGE	DE+2~, DATE19+5*, D1+4
AGE19	DE+2~, DATE19+5*
>> AGE65	DATE19+7*
>> AGE99	DATE19+9*
>> ASUFAC	FN+1*, FN+2
BYIMADM	DATE+3, DEX+4, DEX+16, V04~, V04+8, LE+20, LE+25, NLE+3
BYIMADT	EOJ+1!
BYIMALL	DATE+3, DEX+3, DEX+16, V04~, V04+7, LE+19, LE+25, NLE+1~, NLE+2, IMMCNT+5
BYIMCNT	DE+1~
BYIMDA	ENV+2~, ENV+3, ENV+4, ENV+11, ENV+12, ENV+13, ENV+14
BYIMDATE	DE+3~, D1+29*
BYIMDUZ	DATE+2~
BYIMDUZ(	DATE+3*
BYIMDUZ(2	LE+40, NLE+18
>> BYIMEXT	FN+2
>> BYIMFAIL	DATE+39, HFSARES+11, HFSARES+14, HFSARES+15, RESTART+8
BYIMFILE	DE+1~, DATE+42, OUT+11, HFSARES+13, HFSARES+17, RESTART+13, LE+29, LE+34, FN+2
BYIMIPK	MPORT+5*, MPORT+6, MPORT+10!
BYIMIST	MPORT+4*, MPORT+5, MPORT+7, MPORT+10!
BYIMIT	MPORT+3*, MPORT+4, MPORT+5, MPORT+6, MPORT+10!
BYIMJOB	DE+1~, DEX+23*
BYIMMVAR	MSG~, MSG+1, MSG+2, MSG+3, MSG+4, MSG+5, MSG+6
>> BYIMPAR	V04+10*, V04+11
BYIMPAT	V04+3*, V04+4, V04+6, EOJ+1!
BYIMQUIT	DE+2~, DE+6!, DE+7, DE+11, DATE+1!, DATE+16, DATE+22, DATE+32, DATE+34~, ZIS+9 , HFSA+6!, READY+3, READY+5, READY+6, READY+7, RESTART+6, RES1+3~, RES1+5, RES1+7, D1+28* , D1+40*
BYIMRMSG	DE+1~, MSG+1, MSG+2, MSG+3, MSG+4, MSG+5, MSG+6, MSG+7
>> BYIMTEST	HFSA+2, HFSA+23, HFSARES+15, HFSARES+16, LE+30, LE+35, FN+2
BYIMVAIN	EOJ+1!
BYIMVST	V04~, V04+1, V04+3, V04+5, EOJ+1!
BYIMX	DE+1~
BYIMY	DE+1~
>> CHILD	OUT+1, DATE19+4*
D19	DE+1~, DATE+12, DATE+15, DATE+18, DATE19+11, LE+3, LE+4, LE+6, NLE+4, NLE+6 , D1+29, D1+37, D1+38
DA	ENV+5!, ENV+10!, DE+1~, DEX+13, DEX+14, DEX+16, LE+5, LE+6*, LE+7, LE+26
DATE	DE+1~, DATE+2~, DATE+12, DATE+14, DATE+15, DATE+16, DATE+17, DATE+18, NLE+13, D1+1 , D1+29
DATE19	DE+1~, DATE+18, DATE19+6*, DATE19+11, LE+23, LE+24
>> DATE65	DATE19+8*, DATE19+11, LE+24
>> DATE99	DATE+18, DATE19+10*, DATE19+11
DD	ENV+5!, ENV+10!
DD19	DE+1~, D1+6*, D1+11
DDATE	DE+1~, LE+21, D1+3, D1+9, D1+23, D1+24
DDDATE	DE+1~, DEX+5, DEX+16, V04~, V04+9, LE+1, LE+25, D1+1*
DE	DE+8~, DE+9*, READY+13
DEND	DE+3~, LE+2, LE+4, D1+32, D1+34, D1+35, D1+41*
DEST	DE+1~, HFSA+7, HFSA+9, HFSA+10, HFSA+18, HFSA+20, HFSA+25, HFSA+27, HFSARES+1, HFSARES+3 , HFSARES+13, READY+8, READY+9, READY+24, READY+26, HEADER+1, HEADER+2, RES1+1, RES1+2, CLEAN+1~ , CLEAN+2, CLEAN+3, CLEAN+5, CLEAN+7, CLEAN+9, CLEAN+17
DFN	DATE+34~, DEX+7, DEX+8, DEX+13, DEX+20, DEX+21, LE+8, LE+9, LE+10, LE+11 , LE+12, LE+25, LE+26, NLE+5, NLE+6*, NLE+7, NLE+8, NLE+10, NLE+14, NLE+15 , IMMCNT~, IMMCNT+4, IMMCNT+5, IMMCNT+6
DFNCNT	DE+2~, DEX+7, DEX+19, DEX+22, HFSA+12, HFSARES+6, HFSARES+17, LE+31*, LE+34
DIC	ENV+5!, ENV+6*, ENV+10!, DE+1~
DIC(0	ENV+7*
DIE	ENV+5!, ENV+10!, DE+1~
DIK	ENV+5!, ENV+10!, DE+1~
DINUM	ENV+5!, ENV+8*, ENV+10!
DIR	DE+1~, DATE+31!, RESTART+5!, D1+27!, D1+39!
DIR("A"	DATE+27, D1+23, D1+34*
DIR("B"	DATE+28, RESTART+3, D1+24, D1+35
DIR(0	DATE+26, RESTART+1, D1+22, D1+33
DLAYGO	ENV+5!, ENV+10!
DO	ENV+5!, ENV+10!
DR	ENV+5!, ENV+10!, DE+1~
DT	HFSA+2, HFSARES+15, HFSARES+16, DATE19+6, DATE19+8, DATE19+10, LE+29, LE+30, LE+35, D1+4 , D1+30, D1+37, D1+38, FN+2
DTIME	HEADER+10
DUZ(	DATE+6, DATE+9, LE+40, NLE+18
DUZ(2	DATE+3
ENC	DE+1~, HEADER+7*
EVDT	DE+1~, HEADER+5*
FACILITY	DE+1~, HEADER+9*
I	STRIP+1~, STRIP+2*
IMMCNT	DE+2~, DEX+7, DEX+20, DEX+22, OUT+1, HFSA+13, HFSARES+7, HFSARES+17, LE+32*, LE+34
INA	DE+1~, HEADER+12, FOOTER+2
INA("ENC"	HEADER+6*
INA("EVDT"	HEADER+4*
INA("FACILITY"	HEADER+8*
INDA	V04+4, V04+11, HEADER+11, HEADER+12, FOOTER+1*, FOOTER+2, EOJ+1!
INDA("BYIMADM"	V04+8*
INDA("BYIMALL"	V04+7*
INDA("DDDATE"	V04+9*
INDA(2	V04+6*
INDA(9000010	V04+5*
>> INHF	V04+13
IOF	D1+8
IPATH	DE+1~
J	HFSA+15~, HFSA+16, HFSA+20, HFSA+21, READY+20~, READY+22, READY+26, READY+27, READY+30, READY+35 , READY+36
M	OUT+3~, OUT+4*, OUT+6
MSG	DE+1~, DEX+16*, DEX+17
MSGCNT	DE+2~, DATE+34~, DEX+7, DEX+18, DEX+22, OUT+1
NUM	DE+1~, HFSA+11, HFSA+12, HFSA+13, HFSA+14, HFSA+21, HFSARES+4, HFSARES+6, HFSARES+7, HFSARES+8 , READY+14~, READY+15*, READY+20~
OPATH	DE+1~, DE+5, DATE+38, OUT+10, OUT+12, HFSARES+10, HFSARES+13, HFSARES+17, RESTART+11, RESTART+13 , LE+34
PRI	HFSA+8~, HFSA+9, HFSA+10, HFSA+18, HFSA+20, HFSARES+2~, HFSARES+3, READY+20~, READY+21*, READY+24 , READY+26
QUIT	CLEAN+1~, CLEAN+10, CLEAN+13, CLEAN+16
READY	HFSA+3~, HFSA+4*, READY+9
S	OUT+3~, OUT+5*, OUT+7
U	DATE+15, DEX+22, ZIS+6, HFSA+12, HFSA+13, HFSARES+6, HFSARES+7, HFSARES+15, HFSARES+16, READY+27 , V04+3, HEADER+8, HEADER+11, FOOTER+1, MSG+6, DATE19+2, LE+8, LE+23, LE+24, LE+29 , LE+30, LE+35, NLE+9, FN+1
VALMBCK	DE+1~, BACK*
WRITING	DE+8~, DE+11, READY+11*
X	ENV+1, ENV+8, DATE+2~, DATE+5, DATE+6, DATE+8, DATE+9, DATE+13, DATE+14, DATE+15 , DATE+34~, ZIS+2, ZIS+6, HFSA+15~, HFSA+17, HFSA+18, HFSA+20, READY+1~, READY+2, READY+3 , READY+5, READY+20~, READY+23, READY+24, READY+26, READY+31, READY+32, READY+34, RES1+3~, RES1+4* , RES1+5, RES1+7, RES1+8, LE+7, LE+8, LE+12, LE+13, LE+14, LE+16, LE+23 , LE+24, NLE+8, NLE+9, NLE+10, NLE+11, NLE+12, NLE+13, NLE+15, CLEAN+1~, CLEAN+4 , CLEAN+5, CLEAN+7, CLEAN+9, CLEAN+17, IMMCNT+1~, IMMCNT+3, IMMCNT+4, IMMCNT+5, IMMCNT+6, DUZ+1~ , DUZ+3, DUZ+4, DUZ+5
XPDDIQ	DE+1~
XPDDIQ(	ENV+1*
XX	DATE+34~, DATE+35, DEX+25, OUT+4, OUT+5, CLEAN+1~, CLEAN+12*, CLEAN+13, CLEAN+14, CLEAN+15
Y	ENV+11, DATE+2~, DATE+3, DATE+6, DATE+9, DATE+32, DATE+34~, HFSA+15~, HFSA+19, HFSA+20* , READY+1~, READY+4, READY+5, READY+6, READY+20~, READY+25, READY+26, READY+33, READY+34, READY+35 , RESTART+6, RESTART+13, RES1+3~, RES1+6, RES1+7, RES1+8, DATE19+1~, DATE19+2, DATE19+3, DATE19+4 , LE+40, NLE+18, D1+1, D1+3, D1+4, D1+6, D1+28, D1+29, D1+30, D1+32 , D1+37, D1+40, D1+41, CLEAN+1~, CLEAN+6, CLEAN+7, CLEAN+9, CLEAN+17, IMMCNT+1~, IMMCNT+2* , IMMCNT+5, IMMCNT+6, IMMCNT+7, DUZ+1~, DUZ+2, DUZ+4, DUZ+5*, DUZ+6
>> YEARS	DATE+18, OUT+1, DATE19+3*, DATE19+11, LE+23, LE+24, D1+10, D1+13, D1+15, D1+18
Z	DATE+2~, DATE+34~, READY+1~, STRIP~, STRIP+2, STRIP+3, RES1+3~, CLEAN+1~, CLEAN+8, CLEAN+9* , CLEAN+12, CLEAN+14, CLEAN+15, CLEAN+17, IMMCNT+1~, DUZ+1~
ZTDESC	DE+1~, ZIS+1, IMZIS+1
ZTDTC	DE+1~, ZIS+4, IMZIS+4
ZTIO	DE+1~, ZIS+3, IMZIS+2
ZTQUEUED	DE+1~, DE+7, DATE+19, DATE+22, DEX+15, OUT, READY+10, READY+13, READY+28, LE+27 , LE+36, NLE+16, D1+7
ZTRTN	DE+1~, ZIS, IMZIS
ZTSAVE	DE+1~
ZTSAVE(	ZIS+2*
ZTSAVE("BYIMJOB"	IMZIS+3*
ZZ	DATE+34~, CLEAN+1~, CLEAN+11, CLEAN+12, CLEAN+14, CLEAN+15

Customize PDF page

Package: IHS Immunizations Interface

Routine: BYIMIMM

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: