Routine: AUT98P25

Package	Total	Call Graph
VA Fileman	3	(,IX)^DIC FILE^DICN (,UPDATE)^DIE
Kernel	2	$$CJ^XLFSTR ($$VERSION,MES)^XPDUTL
IHS VA Utilities	1	$$VAL^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
LANG	;PERFORM LANGUAGE FILE UPDATE(S)
ADDHF(VISIT,HF,HFDA)	;add this v health factor to visit
ECOG	;POPULATE ECOG CATEGORY & HEALTH FACTORS
CODE	;now update all HF Codes per Floyd's spreadsheet
HFDATA	;
INSTYP	;UPDATE INSURER TYPE FILE
IMES	;
SORRY(X)	;
INSTALLD(AUTSTAL)	;EP - Determine if patch AUTSTAL was installed, where ; AUTSTAL is the name of the INSTALL. E.g "AG6.011".
GOTHF(VISIT,HF)	;is this hf already attached to this visit?
POST	;PATCH 25 POST-INIT PROCESS
HF	;

External References

Name	Field # of Occurrence
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
FILE^DICN	LANG+3, HF+8, HF+12, HF+16, HF+38, ECOG+2, ECOG+5, INSTYP+2, CODE+13
^DIE	HF+4, HF+21, HF+24, HF+27, HF+31, HF+34, HF+44, HF+49, HF+54, CODE+8
UPDATE^DIE	ADDHF+27
$$VAL^XBDIQ1	HFDATA+6, HFDATA+12, HFDATA+18, GOTHF+3
$$CJ^XLFSTR	AUT98P25+8, AUT98P25+9, AUT98P25+11, AUT98P25+12, AUT98P25+14, AUT98P25+15, IMES+1, SORRY+4
$$VERSION^XPDUTL	AUT98P25+8, AUT98P25+11, AUT98P25+14
MES^XPDUTL	AUT98P25+8, AUT98P25+9, AUT98P25+11, AUT98P25+12, AUT98P25+14, AUT98P25+15, LANG+1, LANG+4, LANG+5, HF+9 , HF+13, HF+17, HF+39, HF+43, HF+45, HF+48, HF+50, HF+53, HF+55, ECOG+3 , ECOG+6, INSTYP+3, CODE+14, ADDHF+28, IMES+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: ADDHF+29
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: ADDHF+27
Routine Call	DIE Line Location: HF+4 HF+21 HF+24 HF+27 HF+31 HF+34 HF+44 HF+49 HF+54 CODE+8
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^AUTTINTY - [#9999999.181]	Classic Fileman Calls
^AUTTHF - [#9999999.64]	Classic Fileman Calls
^AUTTLANG - [#9999999.99]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVHF - [#9000010.23]	HFDATA+5, HFDATA+9, HFDATA+11, HFDATA+15, HFDATA+17, HFDATA+21, HFDATA+23, GOTHF+3, ADDHF+8, ADDHF+10 , ADDHF+11, ADDHF+12, ADDHF+13, ADDHF+14, ADDHF+15, ADDHF+16, ADDHF+17, ADDHF+18, ADDHF+19, ADDHF+20 , ADDHF+21, ADDHF+22, ADDHF+23, ADDHF+24, ADDHF+25, ADDHF+26
^AUPNVHF("AD"	GOTHF+3
^AUPNVSIT - [#9000010]	ADDHF+2
^AUTTHF - [#9999999.64]	HF+4, HF+31, HF+34
^AUTTHF("B"	HF+3, HF+7, HF+11, HF+15, HF+20, HF+23, HF+26, HF+30, HF+33, HF+37 , HF+42, HF+47, HF+52, ECOG+1, CODE+5, CODE+11, CODE+12, ADDHF+7
^AUTTINTY("B"	INSTYP+1
^AUTTLANG("B"	LANG+2
^AUTTXHF(	CODE+1, CODE+2, CODE+3, CODE+4

Label References

Name	Line Occurrences
$$GOTHF	HFDATA+9, HFDATA+11, HFDATA+15, HFDATA+17, HFDATA+21, HFDATA+23
$$INSTALLD	AUT98P25+17
ADDHF	HFDATA+9, HFDATA+11, HFDATA+15, HFDATA+17, HFDATA+21, HFDATA+23
IMES	INSTALLD+7, INSTALLD+10, INSTALLD+14
SORRY	AUT98P25+8, AUT98P25+11, AUT98P25+14, AUT98P25+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AUTC	CODE+12*, CODE+13
>> AUTDA	HFDATA+5*, HFDATA+6, HFDATA+9, HFDATA+11, HFDATA+12, HFDATA+15, HFDATA+17, HFDATA+18, HFDATA+21, HFDATA+23
AUTERRR	ADDHF+4~, ADDHF+28
AUTFDA	ADDHF+4~
AUTFDA(	ADDHF+7, ADDHF+8, ADDHF+9, ADDHF+10, ADDHF+11, ADDHF+12, ADDHF+13, ADDHF+14, ADDHF+15, ADDHF+16 , ADDHF+17, ADDHF+18, ADDHF+19, ADDHF+20, ADDHF+21, ADDHF+22, ADDHF+23, ADDHF+24, ADDHF+25, ADDHF+26
>> AUTHF	CODE+2*, CODE+5
>> AUTHFC	CODE+3*, CODE+7
>> AUTHFN	CODE+4*, CODE+7
AUTIENS	ADDHF+4~, ADDHF+6*, ADDHF+7, ADDHF+8, ADDHF+9, ADDHF+10, ADDHF+11, ADDHF+12, ADDHF+13, ADDHF+14 , ADDHF+15, ADDHF+16, ADDHF+17, ADDHF+18, ADDHF+19, ADDHF+20, ADDHF+21, ADDHF+22, ADDHF+23, ADDHF+24 , ADDHF+25, ADDHF+26
>> AUTNEW	HFDATA+8, HFDATA+9, HFDATA+10, HFDATA+11, HFDATA+14, HFDATA+15, HFDATA+16, HFDATA+17, HFDATA+20, HFDATA+21 , HFDATA+22, HFDATA+23, GOTHF+3
>> AUTPCX	HF+36, HF+37, HF+38, HF+39, HF+41, HF+42, HF+43, HF+45, HF+46, HF+47 , HF+48, HF+50, HF+51, HF+52, HF+53, HF+55, ECOG+4, ECOG+5, ECOG+6, CODE+1 , CODE+2, CODE+3, CODE+4, CODE+14
AUTPIEN	ADDHF+4~
AUTSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
AUTY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
DA	HF+3, HF+4!, HF+20, HF+21!, HF+23, HF+24!, HF+26, HF+27!, HF+30, HF+31! , HF+33, HF+34!, HF+42, HF+43, HF+44!, HF+47, HF+48, HF+49!, HF+52, HF+53 , HF+54!, CODE+5, CODE+6, CODE+7, CODE+9!
DIADD	LANG+3!, HF+8!, HF+12!, HF+16!, HF+38!, ECOG+2!, ECOG+5!, INSTYP+2!, CODE+13*!
DIC	LANG+3!, HF+8!, HF+12!, HF+16!, HF+38!, ECOG+2!, ECOG+5!, INSTYP+2!, CODE+13!, INSTALLD+3~ , INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC("DR"	LANG+3, HF+8, HF+12, HF+16, HF+38, ECOG+2, ECOG+5, INSTYP+2, CODE+13*
DIC(0	LANG+3, HF+8, HF+12, HF+16, HF+38, ECOG+2, ECOG+5, INSTYP+2, CODE+13, INSTALLD+5
DIE	HF+4!, HF+21!, HF+24!, HF+27!, HF+31!, HF+34!, HF+44!, HF+49!, HF+54!, CODE+7 , CODE+9!
DIFQ	SORRY+1!
DITC	ADDHF+4~, ADDHF+5*
DLAYGO	LANG+3!, HF+8!, HF+12!, HF+16!, HF+38!, ECOG+2!, ECOG+5!, INSTYP+2!, CODE+13*!
DR	HF+4!, HF+21!, HF+24!, HF+27!, HF+31!, HF+34!, HF+44!, HF+49!, HF+54!, CODE+7 , CODE+9!
DT	HF+4, HF+31, HF+34
G	GOTHF+1~, GOTHF+2, GOTHF+3, GOTHF+4
HF	GOTHF~, ADDHF~, ADDHF+7, ADDHF+28
HFDA	ADDHF~, ADDHF+8, ADDHF+10, ADDHF+11, ADDHF+12, ADDHF+13, ADDHF+14, ADDHF+15, ADDHF+16, ADDHF+17 , ADDHF+18, ADDHF+19, ADDHF+20, ADDHF+21, ADDHF+22, ADDHF+23, ADDHF+24, ADDHF+25, ADDHF+26
IOM	IMES+1, SORRY+4
U	HF+4, HF+31, HF+34, HFDATA+9, HFDATA+11, HFDATA+15, HFDATA+17, HFDATA+21, HFDATA+23, CODE+2 , CODE+3, CODE+4, ADDHF+8, ADDHF+10, ADDHF+11, ADDHF+12, ADDHF+13, ADDHF+14, ADDHF+15, ADDHF+16 , ADDHF+17, ADDHF+18, ADDHF+19, ADDHF+20, ADDHF+21, ADDHF+22, ADDHF+23, ADDHF+24, ADDHF+25, ADDHF+26
VISIT	GOTHF~, GOTHF+3, ADDHF~, ADDHF+1, ADDHF+2, ADDHF+9, ADDHF+28
X	AUT98P25+6, LANG+3!, HF+8!, HF+12!, HF+16!, HF+38!, ECOG+2!, ECOG+5!, INSTYP+2!, CODE+13! , GOTHF+1~, GOTHF+3, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	AUT98P25+6*
>> XPDDIQ("XPZ1"	AUT98P25+5*
>> XPDDIQ("XPZ2"	AUT98P25+5*
>> XPDENV	AUT98P25+5
>> XPDQUIT	SORRY+2, SORRY+3
Y	LANG+4, HF+9, HF+13, HF+17, HF+39, HF+45, HF+50, HF+55, ECOG+3, ECOG+6 , INSTYP+3, CODE+14, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1

Customize PDF page

Package: Utility Tables

Routine: AUT98P25

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: