Routine: BYIMIMM5

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE ^DIK ^DIR
IHS Immunizations Interface	3	($$DUZ,DEX,FN)^BYIMIMM SEL^BYIMIMM3 ($$NEW,$$SLASH)^BYIMIMM6

Package	Total	Caller Graph
IHS Immunizations Interface	3	BYIMIMM BYIMIMM3 BYIMIMM4

Name	Comments	DBIA/ICR reference
BRIDGE	;EP;TO MONITOR HL7 BRIDGE
STAT	;EP;TO DETERMINE BRIDGE STATUS
CANC	;
RXA1
CDEL	;DELETE COMPONENTS
RXAE1
CE(DA,SEG)
COMPSPEC	;EP;TO SPECIFY MESSAGE COMPONENT CONTENT
HOSTCMD	;
TSPEC	;SELECT SPECIFICATIONS FOR TEST EXPORT
RXASEL	;SELECT ADDITION SITE
RXADEL	;DELETE SITE
ASSET(AS)	;EP;SITE STATE VARIABLES
RXAACT	;ADDITIONAL SITE ACTION
RXAEDIT	;EDIT SITE
END	;
T2	;INCLUDE ONLY ADMINISTERED IMMUNIZATIONS
T3	;EXCLUDE PREVIOUSLY EXPORTED IMMUNIZATIONS
T1	;SELECT TEST EXPORT DATE
START	;
TSHOW	;SHOW TEST EXPORT CRITERIA
RXA(BYIMDA)	;EP;TO SET THE IIS CODE FOR RXA-11.4
CLEAN	;EP;CLEAN UP AFTER TEST EXPORT
CS	;REPEAT
CD	;
CDISP	;EP;DISPLAY COMPONENTS FOR PRIMARY SITE
RXASEL1
CEDIT	;EDIT COMPONENTS
RXAADD	;SELECT FACILITIES FOR STATE RXA CODE
AGECHK(UIF)	;EP;
RXADISP	;DISPLAY EXISTING IIS RXA CODES
CSEL	;EP;TO DISPLAY AND ADD/EDIT COMPONENTS
TEST	;EP;CREATE & SEND TEST MESSAGES
CAS(AS)	;EP;DISPLAY COMPONENTS FOR ADDITIONAL EXPORT SITES
CADD	;ADD ADDITIONAL COMPONENTS
CHDR(SITE)	;DISPLAY COMPONENT HEADER

Name	Field # of Occurrence
$$DUZ^BYIMIMM	RXAADD+21, RXADISP+4, TEST+16, TEST+69, TEST+85, CDISP+1, CDISP+4, CAS+1, CAS+5, CADD+8 , CE
DEX^BYIMIMM	TEST+86
FN^BYIMIMM	TEST+83
SEL^BYIMIMM3	TEST+14
$$NEW^BYIMIMM6	TEST+67
$$SLASH^BYIMIMM6	ASSET+9
^DIC	RXA+11, RXAADD+7
FILE^DICN	RXAADD+25, CADD+18
^DIE	RXAE1+4, CE+5
^DIK	RXADEL+16
^DIR	RXA+30, RXAACT+7, RXAADD+15, RXADEL+11, RXASEL+6, TEST+11, TEST+32, TEST+43, TSPEC+17, T1+6 , T2+8, T3+10, CADD+4, CADD+12, CEDIT+5, CSEL+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Some state Immunization Information Systems (IIS) require facilities to send" Line Location: RXA+19
Function Call: WRITE	Prompt: !,"a code to identify the facility at which the immunization was administered or" Line Location: RXA+20
Function Call: WRITE	Prompt: !,"identify the vaccine inventory location instead of the facility name." Line Location: RXA+21
Function Call: WRITE	Prompt: !!,"If you need to add state IIS assigned code(s) please enter 'Y' below." Line Location: RXA+22
Function Call: WRITE	Prompt: !,"You will be prompted to select the name of your facility and then" Line Location: RXA+23
Function Call: WRITE	Prompt: !,"enter the state assigned code." Line Location: RXA+24
Function Call: WRITE	Prompt: !! Line Location: RXA+29
Function Call: WRITE	Prompt: !! Line Location: RXAACT+6
Function Call: WRITE	Prompt: ! Line Location: RXAADD+6
Function Call: WRITE	Prompt: ! Line Location: RXAADD+14
Function Call: WRITE	Prompt: @IOF Line Location: RXADISP+19
Function Call: WRITE	Prompt: !?5,"State IIS Assigned Administered-at or Vaccine Inventory Location Code" Line Location: RXADISP+20
Function Call: WRITE	Prompt: !!?10,"NO." Line Location: RXADISP+21
Function Call: WRITE	Prompt: ?15,"Facility" Line Location: RXADISP+22
Function Call: WRITE	Prompt: ?59,"IIS Code" Line Location: RXADISP+23
Function Call: WRITE	Prompt: !?10,"---",?15,"------------------------------",?59,"--------------------" Line Location: RXADISP+24
Function Call: WRITE	Prompt: !!,"Edit IIS Facility Code for: ",$P($G(^DIC(4,DA,0)),U) Line Location: RXAE1+3
Function Call: WRITE	Prompt: !?10,X Line Location: RXADEL+5
Function Call: WRITE	Prompt: ! Line Location: RXADEL+10
Function Call: WRITE	Prompt: !! Line Location: RXASEL+5
Function Call: WRITE	Prompt: @IOF Line Location: TEST+5
Function Call: WRITE	Prompt: !!?10,"Select group of patients for TEST export" Line Location: TEST+6
Function Call: WRITE	Prompt: !! Line Location: TEST+10
Function Call: WRITE	Prompt: @IOF Line Location: TEST+19
Function Call: WRITE	Prompt: !!?10,"TEST export option" Line Location: TEST+20
Function Call: WRITE	Prompt: !!?10,"An export file will be created for" Line Location: TEST+21
Function Call: WRITE	Prompt: !?10,CHILD," ",$S(YEARS=19:"18 years of age or under.",1:"of all ages.") Line Location: TEST+22
Function Call: WRITE	Prompt: !! Line Location: TEST+23
Function Call: WRITE	Prompt: !! Line Location: TEST+42
Function Call: WRITE	Prompt: @IOF Line Location: TSPEC+2
Function Call: WRITE	Prompt: !!?10,"Default TEST export criteria" Line Location: TSPEC+3
Function Call: WRITE	Prompt: !! Line Location: TSPEC+16
Function Call: WRITE	Prompt: !!!?10,"TEST Export Criteria:" Line Location: TSHOW+1
Function Call: WRITE	Prompt: !!,"Start date: ",BYIMEDAT(0) Line Location: TSHOW+2
Function Call: WRITE	Prompt: !! Line Location: TSHOW+3
Function Call: WRITE	Prompt: "Only administered" Line Location: TSHOW+6
Function Call: WRITE	Prompt: " and ",! Line Location: TSHOW+7
Function Call: WRITE	Prompt: "never exported" Line Location: TSHOW+10
Function Call: WRITE	Prompt: !,"immunizations will be included in the test export." Line Location: TSHOW+11
Function Call: WRITE	Prompt: !! Line Location: T1+5
Function Call: WRITE	Prompt: ! Line Location: T2+7
Function Call: WRITE	Prompt: ! Line Location: T3+9
Function Call: WRITE	Prompt: @IOF Line Location: CHDR+1
Function Call: WRITE	Prompt: !!?15,"HL7 State Specified Message Components" Line Location: CHDR+2
Function Call: WRITE	Prompt: !?15,"For: ",SITE Line Location: CHDR+3
Function Call: WRITE	Prompt: !!?27,"Sub-" Line Location: CHDR+4
Function Call: WRITE	Prompt: !,"NO",?5,"Segment",?15,"Component",?27,"Component",?39,"Value" Line Location: CHDR+5
Function Call: WRITE	Prompt: !,"--",?5,"-------",?15,"---------",?27,"---------",?39,"--------------------------" Line Location: CHDR+6
Function Call: WRITE	Prompt: !! Line Location: CADD+3
Function Call: WRITE	Prompt: !! Line Location: CEDIT+4
Function Call: WRITE	Prompt: !!,"Edit ",SEG," info",! Line Location: CE+4
Function Call: WRITE	Prompt: !! Line Location: CSEL+4
Routine Call	DIE Line Location: RXAE1+4 CE+5
Routine Call	DIC Line Location: RXA+11 RXAADD+7
Routine Call	DIR Line Location: RXA+30 RXAACT+7 RXAADD+15 RXADEL+11 RXASEL+6 TEST+11 TEST+32 TEST+43 TSPEC+17 T1+6 T2+8 T3+10 CADD+4 CADD+12 CEDIT+5 CSEL+5

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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	TEST+65
^AUPNVIMM - [#9000010.11]	TEST+61, TEST+79
^AUPNVIMM("AC"	TEST+76
^AUPNVIMM("AD"	TEST+50, TEST+59
^AUPNVSIT - [#9000010]	TEST+53, TEST+58
^AUPNVSIT(9999999999	TEST+49
^AUTTSITE(1	RXA+2
^BYIMEXP("D"	CLEAN+5!, CLEAN+9*
^BYIMPARA - [#90480]	RXA+3, RXA+6, RXA+15, RXA+18, RXAACT+1, RXAACT+2, RXADISP+4, RXADEL+3, TEST+16, TEST+69 , TEST+85, CDISP+4, CAS+1, CAS+5, CADD+8, ASSET+2, ASSET+3, ASSET+4, ASSET+6, ASSET+7 , ASSET+8
^BYIMPARA(0	RXA+3, RXAADD+20, CADD+15, CE+1
^BYIMTMP("TEST ALL"	CLEAN+7, CLEAN+9, CLEAN+10!
^BYIMTMP("TEST"	CLEAN+3, CLEAN+5!
^BYIMTMP($J	TEST+46!, TEST+66, TEST+70*
^DIC(4 - [#4]	RXA+7, RXAADD+10, RXADISP+5, RXAE1+3, RXADEL+4, CDISP+1
^DPT - [#2]	TEST+64, TEST+68
^INTHU - [#4001]	AGECHK+5, AGECHK+7

Name	Line Occurrences
@(	TSPEC+21
CADD	CSEL+9
CD	CDISP+18, CAS+18
CDEL	CSEL+10
CDISP	CS+1, CSEL+1
CE	CADD+20, CEDIT+9
CEDIT	CSEL+8
CHDR	CDISP+2, CAS+2
CS	COMPSPEC+3
CSEL	CS+3
RXA1	RXA+18
RXAACT	RXA1+2
RXAADD	RXAACT+1, RXAACT+11
RXADEL	RXAACT+12
RXADISP	RXAACT+3
RXAEDIT	RXAACT+10
RXASEL	RXAEDIT+1, RXADEL+1
RXASEL1	RXASEL+1
TSHOW	TSPEC+8, TSPEC+23
TSPEC	TEST+37

Name	Field # of Occurrence
^(	RXADISP+4, CDISP+4, CAS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGE	ASSET+32*
AS	CAS~, CAS+1, CAS+5, ASSET~, ASSET+1, ASSET+5, ASSET+6, ASSET+7, ASSET+8
BYIMADM	TEST+58, TEST+67, TSPEC+1!, TSPEC+6, TSPEC+22, TSHOW+4, T2+2, T2+11, T2+12, T2+13*
BYIMALL	TEST+67, TSPEC+1!, TSPEC+7, TSPEC+22, TSHOW+8, T3+4, T3+13, T3+14
BYIMDA	RXA~, RXA+1, RXA+2, RXA+3, RXA+5, RXA+6, RXA+7, RXA+12, RXA+13, RXA+14 , RXA+15, RXA+16, RXA+18, RXAACT+1, RXAACT+2, RXAE1, RXAE1+2, RXADEL+3, RXADEL+14, RXADEL+15
>> BYIMDUZ	ASSET+1, ASSET+2, ASSET+3, ASSET+4, ASSET+5, ASSET+6, ASSET+7, ASSET+8
BYIMEDAT	TEST+55, TEST+67, TSPEC+1!, TSPEC+4, TSPEC+22, T1+9
BYIMEDAT(0	TSPEC+5, TSHOW+2, T1+9
BYIMFILE	TEST+4!
>> BYIMJ	RXADISP+18, RXASEL+1, RXASEL+3, CD+11, CEDIT+2
BYIMQUIT	END+2, RXA+17~, RXA1+1, RXA1+2, RXAACT+2, RXAACT+9, RXAADD+8, RXAADD+17, RXAADD+26, COMPSPEC+2 , COMPSPEC+3, CSEL+7*
BYIMRXA	RXA+17~
BYIMRXA(	RXADISP+17*, RXASEL1+1, RXASEL1+2
BYIMTEST	TEST+35!, TEST+36*, TEST+40, TEST+50, TEST+81
BYIMX	RXA1~, RXAADD+1~, RXAADD+9*, RXAADD+19
BYIMY	RXAADD+1~, RXAADD+10, RXAADD+13, RXAADD+18, RXAADD+23, TSPEC+20*, TSPEC+21
>> CHILD	TEST+18*, TEST+22
>> COMP	CDISP+6, CDISP+8, CDISP+17, CAS+7, CAS+17
>> COMP(	CD+10*, CEDIT+8
>> COMP(0	CS+2
>> CPT	ASSET+30*
D19	AGECHK+3~, AGECHK+11*, AGECHK+12
DA	RXAEDIT+2, RXAE1+3, RXAE1+5!, RXADEL+2, RXADEL+3, RXADEL+17!, RXASEL1+2, CE~, CE+2
DA(1	RXAADD+20, RXAE1, RXADEL+14, CADD+15, CADD+16, CE+1*
DAT	TEST+52~, TEST+53*, TEST+54, TEST+55
DDATE	TEST+84~, TEST+85*
>> DDDATE	TEST+85*
DFN	TEST+47~, TEST+62*, TEST+63, TEST+64, TEST+65, TEST+66, TEST+67, TEST+68, TEST+70, TEST+76
>> DIC	RXA+8, RXAADD+2, RXAADD+21, CADD+16
>> DIC("A"	RXA+10, RXAADD+5
>> DIC("DR"	RXAADD+23*
>> DIC(0	RXA+9, RXAADD+3, RXAADD+22, CADD+17
DIE	RXAE1+2, RXAE1+5!, CE
DIK	RXADEL+15*, RXADEL+17!
>> DINUM	RXAADD+24*
DIR	END+1!, RXA+25!, RXA+31!, RXAACT+4!, RXAACT+8!, RXAADD+11!, RXAADD+16!, RXADEL+6!, RXADEL+12!, RXASEL+2! , RXASEL+7!, TEST+4!, TEST+12!, TEST+24!, TEST+33!, TEST+38!, TEST+44!, TSPEC+9!, TSPEC+18!, T1+2! , T1+7!, T2+3!, T2+9!, T3+5!, T3+11!, CADD+5!, CEDIT+1!, CEDIT+6!, CSEL+2!, CSEL+6!
DIR("A"	RXA+27, RXAADD+13, RXADEL+8, RXASEL+4, TEST+8, TEST+29, TEST+30, TEST+40, TSPEC+11, TSPEC+12 , TSPEC+13, TSPEC+14, TSPEC+15, T1+4, T2+5, T3+7, CADD+2, CADD+10, CEDIT+3*
DIR("B"	RXA+28, RXADEL+9, TEST+9, TEST+31, TEST+41, T2+6, T3+8*
DIR(0	RXA+26, RXAACT+5, RXAADD+12, RXADEL+7, RXASEL+3, TEST+7, TEST+27, TEST+39, TSPEC+10, T1+3 , T2+4, T3+6, CADD+1, CADD+9, CEDIT+2, CSEL+3
DISP	RXA+17~, RXADISP+1~
DISP(	RXADISP+14, RXADISP+15, RXADISP+16*, RXADISP+26, RXADISP+27
DOB	TEST+47~, TEST+68, TEST+69, AGECHK+3~, AGECHK+9, AGECHK+10, AGECHK+12
DR	RXAE1+1, RXAE1+5!, CE+3
DT	TEST+69, AGECHK+11
>> ESSN	ASSET+31*
>> FE	ASSET+27*
HL7CMD	END+1!
HL7FUNC	END+1!
HL7JOBN	END+1!
HL7NAME	END+1!
IMM	TEST+74~, TEST+75, TEST+76, TEST+79, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+5, CLEAN+6, CLEAN+7 , CLEAN+9, CLEAN+10
>> IN1	ASSET+29*
IOF	RXADISP+19, TEST+5, TEST+19, TSPEC+2, CHDR+1
IVIS	TEST+78~, TEST+79*, TEST+80
J	RXADISP+1~, RXADISP+2, RXADISP+8, RXADISP+10, RXADISP+13, RXADISP+14, RXADISP+15, RXADISP+16, RXADISP+17, RXADISP+18 , RXADISP+25, RXADISP+26, RXADISP+27, TEST+47~, TEST+48, TEST+50, TEST+71, TSPEC+21*
>> JJ	CD+1, CD+8, CD+9, CD+10, CD+11
>> JX	TEST+72, TEST+77
>> JY	TEST+73*
>> MSGCNT	TEST+81*
MSH	AGECHK+3~, AGECHK+5*, AGECHK+6
>> PATH	ASSET+9*
>> PI	ASSET+28*
PID	AGECHK+3~, AGECHK+7*, AGECHK+8, AGECHK+9
>> QUIT	CS+2*
SCOMP	CDISP+7, CDISP+8, CDISP+17, CAS+3~, CAS+8, CAS+17
SEG	CDISP+5, CDISP+10, CDISP+11, CDISP+12, CDISP+13, CDISP+14, CDISP+15, CDISP+16, CDISP+17, CAS+3~ , CAS+6, CAS+10, CAS+11, CAS+12, CAS+13, CAS+14, CAS+15, CAS+16, CAS+17, CADD+7* , CADD+10, CADD+14, CADD+20, CEDIT+8*, CE~, CE+4
SITE	CDISP+1, CDISP+2, CAS+1, CAS+2, CHDR~, CHDR+3
>> SR	TSPEC+21*
U	RXA+3, RXA+7, RXAADD+10, RXADISP+5, RXADISP+16, RXAE1+3, RXADEL+4, TEST+16, TEST+58, TEST+62 , TEST+68, TEST+69, TEST+79, T2+10, T3+12, CDISP+1, CDISP+5, CDISP+6, CDISP+7, CDISP+9 , CAS+1, CAS+6, CAS+7, CAS+8, CAS+9, CAS+17, CD+9, CD+10, CEDIT+8, ASSET+9 , ASSET+10, ASSET+11, ASSET+12, ASSET+13, ASSET+14, ASSET+15, ASSET+16, ASSET+17, ASSET+18, ASSET+19 , ASSET+20, ASSET+21, ASSET+22, ASSET+23, ASSET+24, ASSET+25, ASSET+26, ASSET+27, ASSET+28, ASSET+29 , ASSET+30, ASSET+31, ASSET+32
UIF	AGECHK~, AGECHK+4, AGECHK+5, AGECHK+7
VAL	CDISP+9, CDISP+17, CAS+3~, CAS+9, CAS+17, CD+7*, CD+9, CD+10
VIS	TEST+47~, TEST+49, TEST+50, TEST+53, TEST+58, TEST+59, TEST+70
X	HOSTCMD+1, HOSTCMD+2, END+1!, RXAADD+17, RXAADD+18, RXAADD+19, RXAADD+24, RXADISP+1~, RXADISP+3, RXADISP+4 , RXADISP+5, RXADISP+7, RXADISP+11, RXADISP+12, RXADISP+15, RXADISP+16, RXADISP+17, RXADEL+3, RXADEL+4, RXADEL+5 , RXADEL+8, TEST+47~, TEST+59, TEST+60, TEST+61, TEST+62, T1+8, T2+10, T3+12, CDISP+3* , CDISP+4, CDISP+9, CAS+3~, CAS+4, CAS+5, CAS+17, CD+2, CD+3, CD+5, CD+7 , CD+9, CD+10, CADD+8, CADD+14
X(	RXADISP+9*, RXADISP+12, RXADISP+16, RXADISP+17
>> X0	ASSET+2, ASSET+6, ASSET+9, ASSET+13, ASSET+20, ASSET+27, ASSET+28, ASSET+29, ASSET+30, ASSET+32
>> X1	ASSET+3, ASSET+7, ASSET+10, ASSET+11, ASSET+12, ASSET+14, ASSET+15, ASSET+19
>> X6	ASSET+4, ASSET+8, ASSET+16, ASSET+17, ASSET+18, ASSET+21, ASSET+22, ASSET+23, ASSET+24, ASSET+25 , ASSET+26, ASSET+31
XX	TEST+47~, TEST+82*, CAS+3~
XX(	CDISP+17, CAS+17, CD+3, CD+5, CD+7
XX("BHS"	ASSET+10, ASSET+11, ASSET+12, ASSET+13, ASSET+14, ASSET+15
XX("FHS"	ASSET+10, ASSET+11, ASSET+12, ASSET+13, ASSET+14, ASSET+15
XX("MSH"	ASSET+10, ASSET+11, ASSET+12, ASSET+13, ASSET+14, ASSET+15, ASSET+16, ASSET+17, ASSET+18, ASSET+19 , ASSET+20, ASSET+21
XX("PD1"	ASSET+23, ASSET+24, ASSET+25*
XX("PID"	ASSET+22*
XX("RXA"	ASSET+26*
Y	RXA+12, RXA+13, RXA+32, RXAACT+9, RXAACT+10, RXAACT+11, RXAACT+12, RXAADD+8, RXAADD+9, RXAADD+10 , RXAADD+26, RXADISP+1~, RXADISP+4, RXADISP+9, RXADEL+13, RXASEL+1, RXASEL1, RXASEL1+1, RXASEL1+2, TEST+13 , TEST+14, TEST+15~, TEST+16, TEST+17, TEST+18, TEST+34, TEST+36, TEST+45, TEST+47~, TSPEC+19 , TSPEC+20, T1+9, T2+12, T3+13, CDISP+4, CDISP+5, CDISP+6, CDISP+7, CDISP+9, CAS+3~ , CAS+5, CAS+6, CAS+7, CAS+8, CAS+9, CD+4, CD+5*, CD+7, CD+9, CADD+6 , CADD+13, CADD+19, CADD+20, CEDIT+7, CEDIT+8, CEDIT+9, CSEL+7, CSEL+8, CSEL+9, CSEL+10
Y(0	T1+9, CADD+7
>> YEARS	TEST+17*, TEST+22
Z	RXADISP+1~, RXADISP+5, RXADISP+6, RXADISP+7, RXADISP+9, TEST+47~, CAS+3~, CD+6, CD+7, CD+9

Customize PDF page

Package: IHS Immunizations Interface

Routine: BYIMIMM5

Information

Source Information

Call Graph

Call Graph Total: 8

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: