Routine: BCSVUT

Package	Total	Call Graph
VA Fileman	3	(FILE,UPDATE,WP)^DIE IX1^DIK $$GET1^DIQ
IHS Code Set Versioning	1	^BCSVMP

Package	Total	Caller Graph
IHS Code Set Versioning	1	BCSVMD

Entry Points

Name	Comments	DBIA/ICR reference
VER801(IEN,INACT)	;
UNLCKFLS	;
AGECON80(AGE,IEN,FLD)	;
RPALL	;
RP80	;
LCKFILES	;
AGECON(AGE)	;
VER81(IEN,INACT)	;
VER803(IEN,INACT)	; ; Nothing to do here.
UPDFWT	; Update IENS for Fiscal Weights and Trims on file 80.2
CONVERT(IEN)	; ; Convert IEN from IHS format into VA format.
NEWBEIEN(BEIEN)	;
VERSION(IEN,FUNC,INACT)	; Place information into versioning mutiples for unmapped entries. ; Entries that are not mapped will be inactivated.
VER811(IEN,INACT)	; ; Nothing to do.
UPDCODES	;
VER802(IEN,INACT)	;
VER80(IEN,INACT)	;
UPDBEFY	; Update Breakeven Fiscal Year/Quarter IEN'S in file 80.2
VER813(IEN,INACT)	;
RP802	;
RP801	;

External References

Name	Field # of Occurrence
^BCSVMP	UPDCODES+5
FILE^DIE	VER801+11, VER801+19, VER801+22, VER80+14, VER80+22, VER80+25, VER802+14, VER802+17, VER81+11, VER81+20 , VER81+23, VER813+11, UPDCODES+44, RP802+7
UPDATE^DIE	VER801+8, VER801+14, VER801+17, VER80+7, VER80+11, VER80+17, VER80+20, VER802+7, VER802+12, VER81+8 , VER81+14, VER81+19, VER813+8, VER813+14, UPDCODES+26
WP^DIE	VER813+17
IX1^DIK	UPDCODES+47
$$GET1^DIQ	AGECON80+4, VER801+3, VER801+4, VER801+5, VER801+21, VER80+2, VER80+3, VER80+4, VER80+24, VER802+4 , VER802+16, VER81+2, VER81+5, VER81+22, VER813+2, VER813+5, UPDCODES+43, RP802+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICD9 - [#80]	GET1^DIQ
^ICD0 - [#80.1]	GET1^DIQ
^ICD - [#80.2]	GET1^DIQ
80.266	GET1^DIQ
^ICPT - [#81]	GET1^DIQ
^DIC(81.1 - [#81.1]	GET1^DIQ
^DIC(81.3 - [#81.3]	GET1^DIQ
81.362	WP^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	LCKFILES+3, UNLCKFLS+3
^DIC(81.3 - [#81.3]	VER813+3, VER813+4
^ICD - [#80.2]	UPDFWT+3, UPDFWT+4, UPDFWT+7, UPDFWT+8!, UPDFWT+9, UPDFWT+10, UPDBEFY+3, UPDBEFY+4, UPDBEFY+7, UPDBEFY+8! , UPDBEFY+9, UPDBEFY+10, VER802+2, VER802+3, RP802+2, RP802+3
^ICD0 - [#80.1]	RP801+2, RP801+5, RP801+6, RP801+18, RP801+20, RP801+22, RP801+24, RP801+26, RP801+27, RP801+29* , RP801+49, RP801+51!, RP801+52!
^ICD9 - [#80]	UPDCODES+37, UPDCODES+38, RP80+2, RP80+4, RP80+5, RP80+6, RP80+8, RP80+13, RP80+14!, RP80+15* , RP80+17, RP80+18, RP80+21!, RP80+22, RP80+25, RP80+27, RP80+33, RP80+35, RP80+37, RP80+38 , RP80+39, RP80+40, RP80+41, RP80+44!, RP80+45, RP80+46!, RP80+47, RP80+48, RP80+49, RP80+52
^ICD9("ACC"	RP80+21!, RP80+23!, RP80+28, RP80+29!, RP80+31!, RP80+32
^ICPT - [#81]	VER81+3, VER81+4, UPDCODES+25, UPDCODES+40, UPDCODES+41
^TMP("BCSVUT"	RP80+7, RP80+11, RP80+12, RP80+13*, RP80+15, RP80+16!
^TMP($J	VER813+4*
^XCSV(	UPDCODES+13, UPDCODES+16, UPDCODES+17, UPDCODES+29, UPDCODES+30, UPDCODES+33, UPDCODES+44
^XCSV("ICD"	VER802+14, RP802+6, RP801+15, RP801+28, RP801+43, RP80+36, RP80+42
^XCSV("ICD0"	VER801+19
^XCSV("ICD9"	VER80+22, RP80+9, RP80+19, RP80+29
^XCSV("ICM"	RP801+8, RP801+34, RP80+51
^XCSV("ICPT"	VER81+20

Label References

Name	Line Occurrences
$$AGECON	AGECON80+7, UPDCODES+37, UPDCODES+38, UPDCODES+40, UPDCODES+41
$$CONVERT	UPDFWT+5
$$NEWBEIEN	UPDBEFY+5
@(	VERSION+5
RP80	RPALL+1
RP801	RPALL+1
RP802	RPALL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTDT	VER801+1~, VER801+5, VER801+6, VER801+7, VER801+13, VER80+1~, VER80+4, VER80+5, VER80+10, VER80+16 , VER802+1~, VER802+4, VER802+5, VER802+6, VER81+1~, VER81+5, VER81+6, VER81+7, VER81+13, VER813+1~ , VER813+5, VER813+6, VER813+7, VER813+13
AGE	AGECON~, AGECON+1, AGECON+2, AGECON80~, AGECON80+6, AGECON80+7
AGEHI	UPDCODES+2~, UPDCODES+35, UPDCODES+38, UPDCODES+41*
AGELOW	UPDCODES+2~, UPDCODES+35, UPDCODES+37, UPDCODES+40*
BEFYIEN	UPDBEFY+1~, UPDBEFY+4*, UPDBEFY+5, UPDBEFY+7, UPDBEFY+8
BEIEN	NEWBEIEN~, NEWBEIEN+2, NEWBEIEN+3, NEWBEIEN+4
CNT	RP801+1~, RP801+19, RP801+21, RP801+22, RP80+1~, RP80+8, RP80+10, RP80+13
>> CNTLP	RP801+20*
>> CURPTR	UPDCODES+43*, UPDCODES+44
DA	UPDCODES+1~, UPDCODES+47*, UPDCODES+48!
DAT	UPDCODES+1~, UPDCODES+6*, UPDCODES+7, UPDCODES+8
DATA	RP801+1~, RP801+4!, RP801+6*, RP80+1~
DATA(	RP801+7, RP801+8, RP801+13, RP801+14
DATA(0	RP801+9
DATA71	RP801+4!, RP801+5*, RP801+52
DATA71(	RP801+31, RP801+32, RP801+33, RP801+37!, RP801+38!, RP801+39, RP801+40, RP801+41, RP801+42, RP801+44! , RP801+46, RP801+47!, RP801+48
DD	LCKFILES+1~, LCKFILES+2, LCKFILES+3, UNLCKFLS+1~, UNLCKFLS+2, UNLCKFLS+3
DESC	VER801+1~, VER801+4, VER801+16, VER80+1~, VER80+3, VER80+19, VER802+1~, VER813+1~
DESCARY	VER81+1~
DESCARY(	VER802+3, VER802+10, VER802+11, VER81+4, VER81+17, VER81+18
DIAG	VER80+1~, VER80+2*, VER80+13
DIK	UPDCODES+1~, UPDCODES+45, UPDCODES+46, UPDCODES+48!
DNODE	VER802+1~, VER802+2, VER802+3, VER81+1~, VER81+3, VER81+4, VER813+3*, VER813+4
DT	VER801+6, VER801+21, VER80+5, VER80+24, VER802+5, VER802+16, VER81+6, VER81+22, VER813+6
EFFDT	VER80+1~, VER80+4, VER80+5, VER80+6
FDA	VER801+1~, VER801+8!, VER801+12!, VER801+18!, VER80+1~, VER80+7!, VER80+11!, VER80+15!, VER80+17!, VER80+21! , VER802+1~, VER802+13!, VER81+1~, VER81+12!, VER81+14!, VER81+19!, VER813+1~, VER813+12!, VER813+14!, UPDCODES+1~ , UPDCODES+26!, UPDCODES+44!, RP802+7!
FDA(	VER801+7, VER801+10, VER801+13, VER801+16, VER801+20, VER801+21, VER80+6, VER80+9, VER80+10, VER80+13 , VER80+16, VER80+19, VER802+6, VER802+11, VER802+15, VER802+16, VER81+7, VER81+10, VER81+13, VER81+18 , VER813+7, VER813+10, VER813+13, UPDCODES+19, UPDCODES+20, UPDCODES+21, UPDCODES+44, RP802+7
FDA(80	VER80+23, VER80+24
FDA(81	VER81+21, VER81+22
FIL	UPDCODES+1~
FILDAT	UPDCODES+1~, UPDCODES+8*
FLD	AGECON80~, AGECON80+2, UPDCODES+1~, UPDCODES+16*, UPDCODES+19, UPDCODES+22, UPDCODES+24
FUNC	VERSION~, VERSION+2, VERSION+4*, VERSION+5
FYIEN	UPDFWT+1~, UPDFWT+4*, UPDFWT+5, UPDFWT+7, UPDFWT+8
GLOBPATH	UPDCODES+2~, UPDCODES+10, UPDCODES+11, UPDCODES+29, UPDCODES+45, UPDCODES+46
I	UPDCODES+25~, RP801+12, RP801+14, RP801+17, RP801+25, RP801+27, RP801+29, RP80+1~, RP80+34, RP80+35 , RP80+37
ICDIEN	UPDFWT+1~, UPDFWT+2, UPDFWT+3, UPDFWT+4, UPDFWT+7, UPDFWT+8, UPDFWT+9, UPDFWT+10, UPDBEFY+1~, UPDBEFY+2* , UPDBEFY+3*, UPDBEFY+4, UPDBEFY+7, UPDBEFY+8, UPDBEFY+9, UPDBEFY+10
IEN	CONVERT~, CONVERT+2, CONVERT+3, AGECON80~, AGECON80+4, VERSION~, VERSION+4, VER801~, VER801+3, VER801+4 , VER801+5, VER801+7, VER801+10, VER801+13, VER801+16, VER801+19, VER801+20, VER801+21, VER80~, VER80+2 , VER80+3, VER80+4, VER80+6, VER80+9, VER80+10, VER80+13, VER80+16, VER80+19, VER80+22, VER80+23 , VER80+24, VER802~, VER802+2, VER802+3, VER802+4, VER802+6, VER802+11, VER802+14, VER802+15, VER802+16 , VER803~, VER81~, VER81+2, VER81+3, VER81+4, VER81+5, VER81+7, VER81+10, VER81+13, VER81+18 , VER81+20, VER81+21, VER81+22, VER811~, VER813~, VER813+2, VER813+3, VER813+4, VER813+5, VER813+7 , VER813+10, VER813+13, VER813+17, RP802+1~, RP802+2, RP802+3, RP802+4, RP802+7, RP801+1~, RP801+2 , RP801+5, RP801+6, RP801+18, RP801+20, RP801+22, RP801+24, RP801+26, RP801+27, RP801+29, RP801+49 , RP801+51, RP801+52, RP80+1~, RP80+2*, RP80+4, RP80+5, RP80+6, RP80+8, RP80+13, RP80+14 , RP80+15, RP80+17, RP80+18, RP80+21, RP80+22, RP80+23, RP80+25, RP80+27, RP80+28, RP80+29 , RP80+31, RP80+32, RP80+33, RP80+35, RP80+37, RP80+38, RP80+39, RP80+40, RP80+41, RP80+44 , RP80+45, RP80+46, RP80+47, RP80+48, RP80+49, RP80+52
IHSAGE	AGECON80+1~, AGECON80+4, AGECON80+5, AGECON80+7, AGECON80+8
IHSFLD	AGECON80+1~, AGECON80+2*, AGECON80+3, AGECON80+4
INACT	VERSION~, VERSION+3*, VERSION+4, VER801~, VER801+19, VER80~, VER80+9, VER80+22, VER802~, VER802+14 , VER803~, VER81~, VER81+20, VER811~, VER813~
J	UPDCODES+1~, UPDCODES+4, RP80+1~, RP80+3, RP80+4, RP80+5, RP80+6, RP80+8, RP80+13, RP80+14 , RP80+15
LASTITEM	UPDFWT+1~, UPDFWT+9, UPDFWT+10, UPDBEFY+1~, UPDBEFY+9, UPDBEFY+10
LINE	UPDCODES+1~, UPDCODES+5*, UPDCODES+6
LOOP	VER802+1~, VER802+9, VER802+10, VER802+11, VER81+1~, VER81+16, VER81+17, VER81+18, RP801+1~, RP801+7* , RP801+8, RP801+13, RP801+14
MDCPTR	RP801+1~, RP801+8*
NAME	VER813+1~, VER813+2*, VER813+10
NEWBEIEN	UPDBEFY+1~, UPDBEFY+5*, UPDBEFY+6, UPDBEFY+7, NEWBEIEN+1~
NEWDAT	RP801+1~, RP801+4!, RP801+51
NEWDAT(	RP801+11, RP801+17
NEWDAT(""	RP801+49
NEWDAT(0	RP801+9, RP801+22, RP801+49*
NEWFYIEN	UPDFWT+1~, UPDFWT+5*, UPDFWT+6, UPDFWT+7, NEWBEIEN+1~
NEWIEN	NEWBEIEN+1~, NEWBEIEN+2, NEWBEIEN+3, VER801+1~, VER801+9, VER801+12!, VER801+15, VER801+18!, VER80+1~, VER80+8 , VER80+12, VER80+15!, VER80+18, VER80+21!, VER802+1~, VER802+8, VER802+13!, VER81+1~, VER81+9, VER81+12! , VER81+15, VER813+1~, VER813+9, VER813+12!, VER813+16, UPDCODES+1~, UPDCODES+15!, UPDCODES+48!
NEWIEN(1	VER801+10, VER801+16, VER80+9, VER80+13, VER80+19, VER802+11, VER81+10, VER81+18, VER813+10, VER813+17 , UPDCODES+22, UPDCODES+24, UPDCODES+25*, UPDCODES+28, UPDCODES+29, UPDCODES+30, UPDCODES+33, UPDCODES+37, UPDCODES+38, UPDCODES+40 , UPDCODES+41, UPDCODES+43, UPDCODES+44, UPDCODES+47
NEWPTR	RP801+1~, RP801+8*, RP801+10, RP801+11, RP801+17
NIEN	RP80+1~, RP80+29*, RP80+30, RP80+32
NIEN2PTR	RP801+1~, RP801+34*, RP801+38, RP801+39, RP801+40
NIEN3PTR	RP801+1~, RP801+43*, RP801+44, RP801+45, RP801+46, RP801+48
NPTR	RP80+1~, RP80+9, RP80+11, RP80+19, RP80+20, RP80+21, RP80+22, RP80+23, RP80+42, RP80+43 , RP80+44, RP80+45, RP80+47, RP80+51, RP80+52
NVAL	RP802+1~, RP802+6, RP802+7, RP801+1~, RP801+15, RP801+16, RP801+17, RP801+28, RP801+29, RP80+1~ , RP80+36, RP80+37
ODAT	RP80+1~, RP80+49*, RP80+50
OPTR	RP80+1~, RP80+18, RP80+19, RP80+20, RP80+21, RP80+23, RP80+41, RP80+42, RP80+43, RP80+44 , RP80+46, RP80+50*, RP80+51
OVAL	RP802+1~, RP802+4*, RP802+5, RP802+6
P3	RP80+1~, RP80+12*, RP80+13
PROC	VER801+1~, VER801+3*, VER801+10
QUIT	UPDCODES+1~, UPDCODES+3, UPDCODES+4, UPDCODES+7
SHNAME	VER81+1~, VER81+2*, VER81+10
SIEN	RP801+24, RP801+26, RP801+27, RP801+29, RP80+1~, RP80+8, RP80+9, RP80+17, RP80+18, RP80+21 , RP80+22, RP80+25, RP80+28, RP80+29, RP80+30, RP80+31, RP80+33, RP80+35, RP80+37, RP80+38* , RP80+39, RP80+40, RP80+41, RP80+44, RP80+45, RP80+46, RP80+47, RP80+48*, RP80+49, RP80+52
SIEN1	RP801+1~, RP801+31*, RP801+32, RP801+33, RP801+37, RP801+38, RP801+39, RP801+40, RP801+41, RP801+42 , RP801+44, RP801+46, RP801+47, RP801+48
SIEN2	RP801+1~, RP801+32, RP801+33, RP801+37, RP801+38, RP801+39, RP801+40, RP801+41, RP801+42, RP801+44 , RP801+46, RP801+47, RP801+48, RP80+1~, RP80+40, RP80+41, RP80+44, RP80+45, RP80+46, RP80+47
SIEN2PTR	RP801+1~, RP801+33*, RP801+34, RP801+37
SIEN3	RP801+1~, RP801+41*, RP801+42, RP801+44, RP801+46, RP801+47, RP801+48
SIEN3PTR	RP801+1~, RP801+42*, RP801+43, RP801+45, RP801+47
SSCNT	RP80+1~, RP80+24, RP80+26, RP80+27
SUBIEN	RP802+1~, RP802+3*, RP802+4, RP802+7
U	UPDFWT+10, UPDBEFY+10, UPDCODES+37, UPDCODES+38, UPDCODES+40, UPDCODES+41, RP801+14, RP801+17, RP801+22, RP801+27 , RP801+29, RP801+49, RP80+13, RP80+27, RP80+35, RP80+37, RP80+50, RP80+52
VADAT	UPDCODES+1~, UPDCODES+8*, UPDCODES+9
VAIEN	UPDCODES+1~, UPDCODES+12, UPDCODES+13, UPDCODES+16, UPDCODES+17, UPDCODES+29, UPDCODES+30
VAL	RP801+1~, RP801+14, RP801+15, RP801+27, RP801+28, RP80+1~, RP80+35*, RP80+36
VAXFIL	UPDCODES+1~, UPDCODES+9*, UPDCODES+19, UPDCODES+20, UPDCODES+21, UPDCODES+22, UPDCODES+23, UPDCODES+36, UPDCODES+39, UPDCODES+42 , UPDCODES+44
VAXLOC	UPDCODES+1~, UPDCODES+9*, UPDCODES+10, UPDCODES+11, UPDCODES+13, UPDCODES+16, UPDCODES+17, UPDCODES+29, UPDCODES+30, UPDCODES+33 , UPDCODES+44
>> Z2	RP801+18*
ZNODE	RP80+1~, RP80+6, RP80+7, RP80+39

Customize PDF page

Package: IHS Code Set Versioning

Routine: BCSVUT

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items