Routine: BYIMIMM6

Package	Total	Call Graph
VA Fileman	5	DD^%DT (C,NOW)^%DTC FILE^DICN ^DIE ^DIR
IHS Immunizations Interface	2	$$DUZ^BYIMIMM $$SCRN^BYIMIMM6
IHS Generic Interface System	1	$$VER^INHB
Kernel	1	$$PROD^XUPROD

Package	Total	Caller Graph
IHS Immunizations Interface	10	BYIMIMM BYIMIMM1 BYIMIMM2 BYIMIMM3 BYIMIMM4 BYIMIMM5 BYIMIMM6 BYIMMU2 BYIMRT BYIMSEGS

Entry Points

Name	Comments	DBIA/ICR reference
HFSA(DEST,PRI)	;EP;TO FIND HL7 MESSAGE THAT HAVEN'T BEEN EXPORTED
REDIT	;EP;TO EDIT RELATIONSHIP CROSS OVER
RDISPLAY	;EP;TO DISPLAY BYIM/CDC RELATIONSHIP CROSS OVER
P8PREPB	;SET BACK TO PRE-P8PREP VALUES
SLASH(PATH)	;ENSURE PATH HAS TERMINATING SLASH
P8PREP	;SET UP FOR P8 TESTING
MENU	;EP;HEADER DISPLAY
RUPD	;EP;TO UPDATE IZ RELATIONSHIP FILE FROM RELATIONSHIP FILE
NOPATH	;EP;NO PATH MESSAGE
ADDLOT(DFN,IVDA,LOTDA,VDATE)	;EP;TO ADD LOT NUMBER
RD	;RELATIONSHIP LIST DISPLAY
PAUSE	;EP;FOR PAUSE READ
M1	;MENU DISPLAY
RDHEAD	;
M2	;VERSION 2.0 HEADER
NEW(DFN,BYIMALL,BYIMADM,DDDATE)	;EP;DETERMINE IF PATIENT HAS IMMS THAT HAVEN'T BEEN EXPORTED
PATH	;EP;SET PATH
RLSH	;EP;TO DISPLAY AND EDIT RELATIONSHIP
SCRN(INDA)	;EP;TO SCREEN IMM'S TO INCLUDE IN EXPORT
BKGTST	;TEST BACKGROUND EXPORT

External References

Name	Field # of Occurrence
DD^%DT	M1+16, M1+21
C^%DTC	P8PREP+12
NOW^%DTC	BKGTST+4
$$DUZ^BYIMIMM	M1+10, SCRN+19, HFSA+12, HFSA+14, PATH+2, PATH+3, PATH+4, PATH+45, NOPATH+3, NOPATH+8 , P8PREP+59, P8PREP+62, NEW+7
$$SCRN^BYIMIMM6	NEW+11
FILE^DICN	RUPD+11, BKGTST+19
^DIE	ADDLOT+17, REDIT+16
^DIR	REDIT+6, PAUSE+6, P8PREP+33
$$VER^INHB	M2+15, M2+16, M2+20, M2+21
$$PROD^XUPROD	P8PREP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: MENU+1
Function Call: WRITE	Prompt: !?80-$L(X)\2,X Line Location: M2+3
Function Call: WRITE	Prompt: !?80-$L(LOC)\2,LOC Line Location: M2+4
Function Call: WRITE	Prompt: !!?7,VER,?47,EXP Line Location: M2+5
Function Call: WRITE	Prompt: !?7,HL7,?47,IMP Line Location: M2+6
Function Call: WRITE	Prompt: !?2,"OUTPUT CONTROLLER: " Line Location: M2+14
Function Call: WRITE	Prompt: $S($$VER^INHB(1):"RUNNING",1:"NOT RUNNING-Contact IT support") Line Location: M2+16
Function Call: WRITE	Prompt: @RVOFF Line Location: M2+17
Function Call: WRITE	Prompt: @BOFF Line Location: M2+18
Function Call: WRITE	Prompt: !?2,"FORMAT CONTROLLER: " Line Location: M2+19
Function Call: WRITE	Prompt: $S($$VER^INHB(2):"RUNNING",1:"NOT RUNNING-Contact IT support") Line Location: M2+21
Function Call: WRITE	Prompt: @BOFF Line Location: M2+22
Function Call: WRITE	Prompt: @RVOFF Line Location: M2+23
Function Call: WRITE	Prompt: !!,"Select No. to Edit" Line Location: REDIT+1
Function Call: WRITE	Prompt: ! Line Location: REDIT+5
Function Call: WRITE	Prompt: !!,"No. ",BYIMJ," isn't defined." Line Location: REDIT+11
Function Call: WRITE	Prompt: !!?10,"RPMS - RELATIONSHIP entry selected: ",$P($G(^AUTTRLSH(BYIMJ,0)),U) Line Location: REDIT+12
Function Call: WRITE	Prompt: @IOF Line Location: RDHEAD+1
Function Call: WRITE	Prompt: !!?10,"CDC HL7 Table 0063 Codes and Descriptions" Line Location: RDHEAD+2
Function Call: WRITE	Prompt: !!,"Code",?10,"Description" Line Location: RDHEAD+3
Function Call: WRITE	Prompt: !,"-------",?10,"------------------------------" Line Location: RDHEAD+4
Function Call: WRITE	Prompt: @IOF Line Location: RD+1
Function Call: WRITE	Prompt: !?10,"BYIM Immunization Data Exchange" Line Location: RD+2
Function Call: WRITE	Prompt: !?10,"Local RELATIONSHIP entry and CDC HL7 Table 0063 Code" Line Location: RD+3
Function Call: WRITE	Prompt: !?10,"(NOTE: Local RELATIONSHIP without CDC HL7 code will be sent as 'OTH')" Line Location: RD+4
Function Call: WRITE	Prompt: !!,?10,"CDC HL7",?52,"Local HL7" Line Location: RD+5
Function Call: WRITE	Prompt: !,"No.",?10,"Code",?20,"Local RELATIONSHIP Description",?52,"Code" Line Location: RD+6
Function Call: WRITE	Prompt: !,"----",?10,"---",?20,"------------------------------",?52,"---------" Line Location: RD+7
Function Call: WRITE	Prompt: @IOF Line Location: NOPATH+2
Function Call: WRITE	Prompt: !!,"You are logged into site: ",$P($G(^AUTTLOC($$DUZ^BYIMIMM(),0)),U,2) Line Location: NOPATH+3
Function Call: WRITE	Prompt: !!,"Directory path information was missing." Line Location: NOPATH+4
Function Call: WRITE	Prompt: !,"Please contact your Site Manager. There must be entries in the" Line Location: NOPATH+5
Function Call: WRITE	Prompt: !!?10,"PATH FOR OUTNBOUND MESSAGES field and the" Line Location: NOPATH+6
Function Call: WRITE	Prompt: !?10,"PATH FOR INBOUND MESSAGES field of the" Line Location: NOPATH+7
Function Call: WRITE	Prompt: !?10,"IZ PARAMETERS file for ",$P($G(^AUTTLOC($$DUZ^BYIMIMM(),0)),U,2) Line Location: NOPATH+8
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: !!,"The patch 8 preparation process should ONLY be run on a TEST database." Line Location: P8PREP+31
Function Call: WRITE	Prompt: ! Line Location: P8PREP+32
Function Call: WRITE	Prompt: "P1" Line Location: P8PREP+48
Function Call: WRITE	Prompt: "P0" Line Location: P8PREP+49
Function Call: WRITE	Prompt: !!,"Patch 8 testing prep complete." Line Location: P8PREP+60
Function Call: WRITE	Prompt: !!,"The BYIM IZ AUTO EXPORT option will run in background shortly." Line Location: BKGTST+23
Function Call: WRITE	Prompt: !,"Please check your '.../requests' folder for the new file in about 10 minutes." Line Location: BKGTST+24
Routine Call	DIE Line Location: ADDLOT+17 REDIT+16
Routine Call	DIR Line Location: REDIT+6 PAUSE+6 P8PREP+33

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19.2 - [#19.2]	Classic Fileman Calls
^AUPNVIMM - [#9000010.11]	Classic Fileman Calls
^BYIMREL - [#90480.6]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	M2+8
^%ZIS(2 - [#3.2]	M2+9
^AUPNVIMM - [#9000010.11]	ADDLOT+9, ADDLOT+10, ADDLOT+11, SCRN+6, SCRN+7, SCRN+21, P8PREP+38, P8PREP+45, P8PREP+50
^AUPNVIMM("AC"	ADDLOT+7, NEW+10
^AUPNVSIT - [#9000010]	ADDLOT+12, SCRN+8, P8PREP+18, P8PREP+51
^AUPNVSIT("B"	P8PREP+15, P8PREP+17
^AUTTIMM - [#9999999.14]	SCRN+21
^AUTTLOC - [#9999999.06]	PATH+45, NOPATH+3, NOPATH+8
^AUTTRLSH - [#9999999.36]	RUPD+3, RUPD+14, RDISPLAY+9, RDISPLAY+10, REDIT+12
^BIP - [#9002084]	P8PREP+47, P8PREP+48, P8PREP+49, P8PREPB+5*
^BIPXX(	P8PREP+47*, P8PREPB+5!
^BYIMCDC - [#90480.7]	RDISPLAY+12, RDHEAD+7
^BYIMCDC("C"	RUPD+4
^BYIMEXP("D"	SCRN+16, SCRN+17, SCRN+21, P8PREP+40, P8PREP+43!, P8PREPB+2!
^BYIMMM("MID"	HFSA+22, HFSA+25*
^BYIMPARA - [#90480]	SCRN+19, HFSA+12, HFSA+14, PATH+2, PATH+3, PATH+4, P8PREP+59!, P8PREP+62, NEW+7
^BYIMREL - [#90480.6]	RUPD+3, RDISPLAY+8, REDIT+11
^BYIMREL(9999999999	REDIT+3
^BYIMTMP("DEST"	P8PREP+53!
^BYIMTMP("EXP FAIL"	P8PREP+53!
^BYIMTMP("LE"	HFSA+2!, HFSA+12*, HFSA+24, HFSA+31!
^BYIMTMP("NUM"	HFSA+28, HFSA+30
^BYIMTMP("OF"	HFSA+3!, HFSA+8, HFSA+21, HFSA+27, HFSA+32!
^DD(90480	PATH+22
^DIC(19 - [#19]	M1+13, M1+18, BKGTST+15
^DIC(19.2 - [#19.2]	M1+14, M1+15, M1+19, M1+20
^DIC(4 - [#4]	M1+10
^DIC(9.4 - [#9.4]	M1+3, M1+4, M1+5, M1+6
^DPT - [#2]	P8PREP+19
^INLHDEST(	HFSA+6, HFSA+8, HFSA+26*, P8PREP+53!
^INLHSCH("ACT"	P8PREP+53!
^INLHSCH(0	P8PREP+55, P8PREP+57!
^INRHD("B"	P8PREP+52
^INTHU - [#4001]	HFSA+8, HFSA+18, HFSA+30, P8PREP+57
^TMP("ADM"	SCRN+4!
^TMP($J	P8PREP+40*, P8PREPB+2, P8PREPB+3!

Label References

Name	Line Occurrences
$$SLASH	PATH+7, PATH+9, PATH+11, PATH+13
M1	MENU+3
M2	MENU+4
PATH	M1+1
PAUSE	RDISPLAY+2, RDISPLAY+15, NOPATH+9, P8PREP+66
RD	RDISPLAY+3
RDHEAD	RDISPLAY+1
RDISPLAY	RLSH+3
REDIT	RLSH+4
RUPD	RLSH+2

Naked Globals

Name	Field # of Occurrence
^(	SCRN+19, HFSA+12, HFSA+18, HFSA+30, RUPD+3, RDISPLAY+8, RDHEAD+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BKGTST+5
>> ASUFAC	PATH+45*
>> BOFF	M2+13*, M2+18, M2+22
>> BON	M2+12*, M2+15, M2+20
>> BYIM("MSH3.1"	HFSA+14, HFSA+15, HFSA+19, PATH+28*
>> BYIM("MSH3.2"	PATH+29*
>> BYIM("MSH3.3"	PATH+30*
>> BYIM("MSH4.1"	PATH+27*
>> BYIM("MSH4.2"	PATH+31*
>> BYIM("MSH4.3"	PATH+32*
>> BYIM("MSH5.1"	PATH+36*
>> BYIM("MSH5.2"	PATH+37*
>> BYIM("MSH5.3"	PATH+38*
>> BYIM("MSH6"	PATH+33*
>> BYIM("PD13.1"	PATH+34*
>> BYIM("PD13.2"	PATH+35*
BYIMADM	SCRN+5~, SCRN+11*, SCRN+14, SCRN+15, SCRN+16, SCRN+17, NEW~, NEW+6
BYIMALL	SCRN+5~, SCRN+10*, SCRN+14, SCRN+15, SCRN+16, SCRN+17, NEW~, NEW+5
>> BYIMATYP	PATH+42*
>> BYIMBDG	PATH+24*
>> BYIMCVX	PATH+19*
>> BYIMDATE	SCRN+19*, SCRN+20
>> BYIMDVOL	PATH+44*
>> BYIMESSN	PATH+40*
>> BYIMEXT	PATH+15, PATH+16
>> BYIMHIST	PATH+39*
>> BYIMIN1	PATH+17*
>> BYIMJ	REDIT+10*, REDIT+11, REDIT+12, REDIT+13
>> BYIMMSH8	PATH+26*
BYIMPAUS	RDISPLAY+4~, RDISPLAY+5, RDISPLAY+8, PAUSE+8
>> BYIMQT	PATH+25*
BYIMQUIT	RLSH+1!, RLSH+4, REDIT+8, NOPATH+1, P8PREP+3!, P8PREP+7, P8PREP+26!, P8PREP+27, P8PREP+35*, BKGTST+3!
>> BYIMVER	M1+9, PATH+23*
DA	ADDLOT+13~, ADDLOT+14, ADDLOT+18!, RUPD+6!, RUPD+12!, REDIT+13, P8PREP+56, P8PREP+57
>> DAT	P8PREP+44, P8PREP+50, P8PREP+51*, P8PREP+58, P8PREP+61, P8PREP+62, P8PREP+65
DD	ADDLOT+13~, ADDLOT+18!
DDATE	SCRN+5~, SCRN+12*, SCRN+18
DDDATE	NEW~, NEW+7
DEST	HFSA~, HFSA+1, HFSA+6, HFSA+8, HFSA+26, P8PREP+52*, P8PREP+53
DFN	ADDLOT~, ADDLOT+7, NEW~, NEW+10
DIC	ADDLOT+13~, ADDLOT+18!, RUPD+6!, RUPD+8, RUPD+12!, BKGTST+17
DIC("DR"	RUPD+10, BKGTST+14
DIC(0	RUPD+9, BKGTST+18
DIE	ADDLOT+13~, ADDLOT+16, ADDLOT+18!, REDIT+15
DIK	ADDLOT+13~, ADDLOT+18!
DINUM	ADDLOT+13~, ADDLOT+18!, RUPD+6!, RUPD+7*, RUPD+12!
DIR	REDIT+2!, REDIT+7!, PAUSE+3!, PAUSE+7!, P8PREP+26!, P8PREP+34!
DIR("A"	REDIT+4, PAUSE+5, P8PREP+29*
DIR("B"	P8PREP+30*
DIR(0	REDIT+3, PAUSE+4, P8PREP+28*
DLAYGO	ADDLOT+13~, ADDLOT+18!
DO	ADDLOT+13~, ADDLOT+18!
DR	ADDLOT+13~, ADDLOT+15, ADDLOT+18!, RUPD+6!, RUPD+12!, REDIT+14
DT	HFSA+12, P8PREP+11
EXP	MENU+2~, M1+13, M1+14, M1+15, M1+16, M1+17*, M2+5
FORMAT	MENU+2~
>> HL7	M1+9*, M2+6
IMM	SCRN+5~, SCRN+6*, SCRN+8, SCRN+9, SCRN+21
IMM12	SCRN+5~, SCRN+7*, SCRN+18, SCRN+20
IMP	MENU+2~, M1+18, M1+19, M1+20, M1+21, M1+22*, M2+6
INDA	SCRN~, SCRN+6, SCRN+7, SCRN+16, SCRN+17, SCRN+21, NEW+4~, NEW+9, NEW+10, NEW+11
INDA("BYIMADM"	SCRN+11, NEW+6*
INDA("BYIMALL"	SCRN+10, NEW+5*
INDA("DDATE"	SCRN+12, NEW+7*
IO("HOME"	M2+8
IOF	MENU+1, RDHEAD+1, RD+1, NOPATH+2
IOST	PAUSE+1
>> IPATH	PATH+8, PATH+9
IVDA	ADDLOT~, ADDLOT+9
>> J	P8PREP+36, P8PREP+39, P8PREP+40, P8PREP+42
JJ	RDISPLAY+4~, RDISPLAY+6, RDISPLAY+14, RDISPLAY+15
LOC	MENU+2~, M1+10*, M2+4
LOTDA	ADDLOT~, ADDLOT+15
>> ON	M2+8, M2+9, M2+10, M2+11, M2+12, M2+13
>> OPATH	PATH+6, PATH+7
OUTPUT	MENU+2~
>> P	P8PREP+45*, P8PREP+47, P8PREP+48, P8PREP+49
PAC	MENU+2~, M1+2, M1+3, M1+4, M1+5, M1+6
PAH	MENU+2~, M1+2, M1+5, M1+6*, M1+7
PATH	SLASH~, SLASH+2, SLASH+3, SLASH+4, SLASH+5, SLASH+6
PRI	HFSA~, HFSA+1, HFSA+6, HFSA+8, HFSA+26
>> QPATH	PATH+10, PATH+11
>> RPATH	PATH+12, PATH+13
>> RVOFF	M2+11*, M2+17, M2+23
>> RVON	M2+10*, M2+15, M2+20
>> S1	BKGTST+6, BKGTST+11, BKGTST+13
>> S2	BKGTST+7, BKGTST+8, BKGTST+9, BKGTST+10, BKGTST+11, BKGTST+12, BKGTST+13
>> START	BKGTST+5, BKGTST+6, BKGTST+7, BKGTST+13, BKGTST+14, BKGTST+20, BKGTST+21, BKGTST+22*
STOP	P8PREP+4~, P8PREP+5, P8PREP+15, P8PREP+17, P8PREP+20, P8PREP+21
T	SCRN+5~, SCRN+13, SCRN+14, SCRN+15, SCRN+16, SCRN+17, SCRN+18, SCRN+20, SCRN+21, SCRN+22
U	M1+4, M1+10, M1+15, M1+20, ADDLOT+10, ADDLOT+11, M2+10, M2+11, M2+12, M2+13 , SCRN+8, SCRN+9, SCRN+15, SCRN+16, SCRN+18, SCRN+19, SCRN+20, SCRN+21, HFSA+12, HFSA+14 , HFSA+19, HFSA+28, HFSA+30, RUPD+3, RUPD+14, RDISPLAY+12, RDISPLAY+13, REDIT+8, REDIT+12, RDHEAD+8 , PATH+6, PATH+8, PATH+10, PATH+12, PATH+15, PATH+17, PATH+19, PATH+21, PATH+22, PATH+24 , PATH+25, PATH+26, PATH+27, PATH+28, PATH+29, PATH+30, PATH+31, PATH+32, PATH+33, PATH+34 , PATH+35, PATH+36, PATH+37, PATH+38, PATH+39, PATH+40, PATH+42, PATH+44, PATH+45, NOPATH+3 , NOPATH+8, P8PREP+19, P8PREP+45, P8PREP+48, P8PREP+49, P8PREP+50, P8PREP+62
VDATE	ADDLOT~, ADDLOT+12
VER	MENU+2~, M1+2, M1+4, M1+5, M1+7, M1+8, M2+5
VIS	SCRN+5~, SCRN+8*, SCRN+15, SCRN+16
X	M1+11~, M1+12, ADDLOT+6~, ADDLOT+7, ADDLOT+8, ADDLOT+9, ADDLOT+10, ADDLOT+11, ADDLOT+14, M2+1~ , M2+2, M2+3, SCRN+19~, HFSA+4~, HFSA+5, HFSA+6, HFSA+8, HFSA+9, HFSA+12, HFSA+17* , HFSA+18, HFSA+21, HFSA+26, HFSA+27, HFSA+30, RUPD+1~, RUPD+5, RUPD+7, RDISPLAY+4~, REDIT+8 , REDIT+9, REDIT+10, RDHEAD+5~, RDHEAD+6, RDHEAD+7, PATH+1~, PATH+21, PATH+23, PAUSE+8, SLASH+2 , SLASH+3, SLASH+4, SLASH+5, P8PREP+4~, P8PREP+13, P8PREP+14, P8PREP+15, P8PREP+17, P8PREP+37, P8PREP+38 , P8PREP+40, P8PREP+41, P8PREP+43, P8PREP+44, P8PREP+45, P8PREP+48, P8PREP+49, P8PREP+54, P8PREP+55, P8PREP+57 , P8PREP+58, P8PREP+59, BKGTST+15, BKGTST+16, P8PREPB+1, P8PREPB+2, P8PREPB+4, P8PREPB+5
X0	PATH+1~, PATH+2*, PATH+6, PATH+8, PATH+15, PATH+17, PATH+19, PATH+21, PATH+24, PATH+25 , PATH+26, PATH+27
>> X1	PATH+3, PATH+10, PATH+12, PATH+28, PATH+29, PATH+30, PATH+31, PATH+32, PATH+33, P8PREP+11
>> X14	P8PREP+13*, P8PREP+15
>> X2	P8PREP+11*
>> X6	PATH+4*, PATH+34, PATH+35, PATH+36, PATH+37, PATH+38, PATH+39, PATH+40, PATH+42, PATH+44
XX	HFSA+4~, HFSA+8, HFSA+16, HFSA+26, RUPD+1~, RUPD+2, RUPD+3, RUPD+5, RUPD+14, RDISPLAY+4~ , RDISPLAY+7, RDISPLAY+8, RDISPLAY+9, RDISPLAY+10, RDISPLAY+11
Y	M1+16, M1+21, ADDLOT+6~, ADDLOT+11, ADDLOT+12, HFSA+4~, HFSA+7, HFSA+8, HFSA+23, HFSA+24 , HFSA+29, HFSA+30, RUPD+1~, RUPD+3, RUPD+4, RDISPLAY+4~, RDISPLAY+8, RDISPLAY+12, RDHEAD+5~, RDHEAD+7* , RDHEAD+8, PATH+22, PATH+23, P8PREP+4~, P8PREP+16, P8PREP+17, P8PREP+18, P8PREP+35, NEW+4~, NEW+8 , NEW+10, NEW+11*, NEW+12
YY	RUPD+1~, RDISPLAY+4~
Z	ADDLOT+6~, HFSA+4~, HFSA+18, HFSA+19, HFSA+20, HFSA+22, HFSA+23, HFSA+25, RUPD+1~, RUPD+4 , RUPD+10, RDISPLAY+4~, RDISPLAY+9, RDISPLAY+13, RDHEAD+5~, P8PREP+4~, P8PREP+18, P8PREP+19, P8PREP+55*
>> Z21	RDISPLAY+10*, RDISPLAY+13
>> ZTQUEUED	RUPD+13, NOPATH+1
ZZ	RUPD+1~, RDISPLAY+4~

Customize PDF page

Package: IHS Immunizations Interface

Routine: BYIMIMM6

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: