Routine: BIUTLFIX

Package	Total	Call Graph
Immunization Tracking	6	(DIC,FDIE)^BIFMAN SNOMED^BIRPC4 ($$IMMVG,$$VCOMPS)^BIUTL2 DIRZ^BIUTL3 ($$TXDT,SETVARS)^BIUTL5 KGBL^BIUTL8
IHS VA Utilities	1	^XBKVAR
Kernel	1	XREF^XQORM

Entry Points

Name	Comments	DBIA/ICR reference
NULLACT	;EP
RELCONT	;EP
ONE	;EP
BADPATS	;EP
LISTQUIT	;EP
SNOMED	;PEP - Back-populate SNOMED Codes to all Contraindications.
FIX(BIIEN)	;EP
ACTIVE	;EP
CHGPTR(BICHG)	;EP
LOTNUM	;EP
CURCOM	;EP
BADINACT	; EP
LISTMENU	;EP
BUILD	;EP

External References

Name	Field # of Occurrence
DIC^BIFMAN	ONE+3
FDIE^BIFMAN	CHGPTR+17
SNOMED^BIRPC4	SNOMED+20
$$IMMVG^BIUTL2	SNOMED+16
$$VCOMPS^BIUTL2	SNOMED+10
DIRZ^BIUTL3	NULLACT+13
$$TXDT^BIUTL5	BUILD+24
SETVARS^BIUTL5	BUILD+23, CHGPTR+5
KGBL^BIUTL8	CHGPTR+6
^XBKVAR	LISTMENU+5, BADINACT+3, LOTNUM+2, RELCONT+3, NULLACT+4
XREF^XQORM	FIX+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select the Protocol you wish to fix.",! Line Location: ONE+2
Function Call: WRITE	Prompt: !,"NO : ",BITOTN Line Location: ACTIVE+10
Function Call: WRITE	Prompt: !,"YES: ",BITOTY Line Location: ACTIVE+11
Function Call: WRITE	Prompt: !!,"COUNT: ",BICOUNT Line Location: CHGPTR+20
Function Call: WRITE	Prompt: !,"ERRORS: ",BIECOUNT Line Location: CHGPTR+21
Function Call: WRITE	Prompt: !!?5,"Total changed: ",TOTAL,!?5,"Done.",! Line Location: CURCOM+43
Function Call: WRITE	Prompt: !,"BAD DATES: ",M Line Location: BADINACT+11
Function Call: WRITE	Prompt: !,"ZERO ACTIVE: ",P Line Location: BADINACT+12
Function Call: WRITE	Prompt: !!,"All Lot Numbers have been Inactivated.",! Line Location: LOTNUM+10
Function Call: WRITE	Prompt: !!?5,"Checking Lot Numbers for null Status..." Line Location: NULLACT+5
Function Call: WRITE	Prompt: !!?5,"Done. ",M," Lot Numbers have been fixed." Line Location: NULLACT+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	CURCOM+6, CURCOM+8, CURCOM+11, CURCOM+17, CURCOM+18, CURCOM+23, CURCOM+25, CURCOM+29, CURCOM+40*
^AUPNVIMM - [#9000010.11]	CHGPTR+8, CHGPTR+10, CHGPTR+13
^AUPNVIMM(0	CHGPTR+6
^AUTTCOM - [#9999999.05]	CURCOM+21, CURCOM+25, CURCOM+39
^AUTTCOM("B"	CURCOM+34, CURCOM+35
^AUTTIML - [#9999999.41]	LOTNUM+4, LOTNUM+5, LOTNUM+7, LOTNUM+9, NULLACT+7, NULLACT+8, NULLACT+10, NULLACT+12
^BIP - [#9002084]	BADPATS+4, BADPATS+5, ACTIVE+7, ACTIVE+8, ACTIVE+9, BADINACT+7, BADINACT+8, BADINACT+9
^BIPC - [#9002084.11]	SNOMED+2, SNOMED+3, SNOMED+5
^BITN - [#9002084.94]	RELCONT+7, RELCONT+9, RELCONT+10, RELCONT+11*
^MIKE(	CHGPTR+13*
^MIKE("ERR"	CHGPTR+18*
^MIKE(0	CHGPTR+6*
^ORD(101 - [#101]	LISTMENU+8, LISTMENU+10, FIX+1, LISTQUIT+3, LISTQUIT+5, LISTQUIT+9, LISTQUIT+11, LISTQUIT+12, LISTQUIT+14*

Label References

Name	Line Occurrences
FIX	LISTMENU+11, LISTQUIT+15, ONE+5
LISTQUIT	LISTMENU+6

Naked Globals

Name	Field # of Occurrence
^(0	BADPATS+5, ACTIVE+8, ACTIVE+9, BADINACT+8, BADINACT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AUTTCOM("B"	CURCOM+37
BICHG	CHGPTR~, CHGPTR+12
BICOUNT	CHGPTR+7~, CHGPTR+11, CHGPTR+20
BICRIEN	SNOMED+4~, SNOMED+7*, SNOMED+20
BIECOUNT	CHGPTR+7~, CHGPTR+18, CHGPTR+21
BIERR	CHGPTR+9~*, CHGPTR+17, CHGPTR+18
BIFLD	CHGPTR+16~, CHGPTR+17
BIFLD(	CHGPTR+16*
BIIEN	SNOMED+2~, SNOMED+3, SNOMED+5, SNOMED+20, LISTMENU+10~, LISTMENU+11, FIX~, FIX+1, FIX+2
BIN	LISTQUIT+3~, LISTQUIT+4, LISTQUIT+5, LISTQUIT+9, LISTQUIT+11, LISTQUIT+14, LISTQUIT+15, CHGPTR+7~, CHGPTR+8*, CHGPTR+10 , CHGPTR+13, CHGPTR+17
BITOTN	ACTIVE+4~, ACTIVE+6, ACTIVE+8, ACTIVE+10
BITOTY	ACTIVE+4~, ACTIVE+6, ACTIVE+9, ACTIVE+11
BIVGRP	SNOMED+16~*, SNOMED+18, SNOMED+20
BIVIEN	SNOMED+4~, SNOMED+6*, SNOMED+10, SNOMED+12
>> BIX0	BUILD+25*
>> BIX1	BUILD+28*
>> BIX10	BUILD+40*
>> BIX11	BUILD+41, BUILD+42
>> BIX12	BUILD+45*
>> BIX13	BUILD+47*
>> BIX14	BUILD+48*
>> BIX15	BUILD+49, BUILD+50
>> BIX16	BUILD+52*
>> BIX17	BUILD+53*
>> BIX18	BUILD+54, BUILD+55
>> BIX19	BUILD+57*
>> BIX2	BUILD+29*
>> BIX20	BUILD+58*
>> BIX21	BUILD+59, BUILD+61, BUILD+62*
>> BIX22	BUILD+63*
>> BIX23	BUILD+66*
>> BIX24	BUILD+67*
>> BIX25	BUILD+68, BUILD+69
>> BIX26	BUILD+70*
>> BIX27	BUILD+71*
>> BIX28	BUILD+73, BUILD+74, BUILD+75*
>> BIX29	BUILD+76*
>> BIX3	BUILD+30, BUILD+31
>> BIX30	BUILD+79*
>> BIX31	BUILD+84*
>> BIX32	BUILD+85*
>> BIX33	BUILD+86, BUILD+87
>> BIX34	BUILD+88*
>> BIX35	BUILD+89*
>> BIX36	BUILD+90, BUILD+91, BUILD+92*
>> BIX37	BUILD+93*
>> BIX38	BUILD+94*
>> BIX39	BUILD+95*
>> BIX4	BUILD+32*
>> BIX5	BUILD+33*
>> BIX6	BUILD+34*
>> BIX7	BUILD+35, BUILD+36
>> BIX8	BUILD+38*
>> BIX9	BUILD+39*
BIXDT	BUILD+24!*
BIY	SNOMED+4~, SNOMED+5*, SNOMED+6, SNOMED+7
CC	CURCOM+16~, CURCOM+18, CURCOM+21, CURCOM+23, CURCOM+25
DFN	CURCOM+4~, CURCOM+5, CURCOM+6, CURCOM+8, CURCOM+11, CURCOM+17, CURCOM+18, CURCOM+23, CURCOM+25, CURCOM+29 , CURCOM+40
DT	BUILD+24, ACTIVE+8, LOTNUM+7
I	SNOMED+8~, SNOMED+14*
M	BADINACT+4~, BADINACT+5, BADINACT+8, BADINACT+11, NULLACT+6~, NULLACT+12, NULLACT+13
N	LISTMENU+7~, LISTMENU+8, LISTMENU+9, LISTMENU+10, LISTQUIT+8~, LISTQUIT+9, LISTQUIT+11, LISTQUIT+14, BADPATS+3, BADPATS+4 , BADPATS+5, ACTIVE+5, ACTIVE+7, ACTIVE+8, ACTIVE+9, CHGPTR+18, CURCOM+16~, CURCOM+17, CURCOM+18, BADINACT+4~ , BADINACT+6, BADINACT+7, BADINACT+8, BADINACT+9, LOTNUM+3~, LOTNUM+4, LOTNUM+5, LOTNUM+7, LOTNUM+9, RELCONT+4~* , RELCONT+7, RELCONT+9, RELCONT+10, RELCONT+11, NULLACT+6~, NULLACT+7*, NULLACT+8, NULLACT+10, NULLACT+12
P	BADINACT+4~, BADINACT+5, BADINACT+9, BADINACT+12
TOTAL	CURCOM+4~, CURCOM+5, CURCOM+26, CURCOM+41*, CURCOM+43
U	SNOMED+6, SNOMED+7, LISTQUIT+5, LISTQUIT+11, LISTQUIT+12, LISTQUIT+14, ACTIVE+8, ACTIVE+9, CHGPTR+10, CURCOM+5* , CURCOM+11, CURCOM+18, CURCOM+23, CURCOM+25, CURCOM+29, CURCOM+40, BADINACT+8, BADINACT+9, RELCONT+9, RELCONT+10 , RELCONT+11
X	SNOMED+8~, SNOMED+10, SNOMED+12, SNOMED+14, LISTQUIT+10~, LISTQUIT+11, LISTQUIT+12, CURCOM+7~, CURCOM+29, CURCOM+30 , CURCOM+34, CURCOM+35, CURCOM+37
>> XQORM	FIX+2*
Y	SNOMED+8~, SNOMED+14, SNOMED+16, LISTQUIT+10~, LISTQUIT+12, LISTQUIT+13, ONE+3, ONE+4, ONE+5, CURCOM+7~ , CURCOM+35, CURCOM+37, CURCOM+39, CURCOM+40, RELCONT+4~, RELCONT+6, RELCONT+11

Customize PDF page

Package: Immunization Tracking

Routine: BIUTLFIX

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: