Routine: AUTPOS1

Information

AUTPOS1 ; IHS/DIRM/JDM/DFM - POST INIT; [ 03/04/98 8:10 AM ]

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE ENALL^DIK ^DIR
IHS VA Utilities	2	^XBFMK ^XBKVAR
Utility Tables	1	RECODE^AUTPOS2

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Utility Tables	1	AUTINIT

Entry Points

Name	Comments	DBIA/ICR reference
MEAS	;add cpt code to tonometry measurement type
SKINTEST	;
EXAM	;
EOJ2	;
EOJ	;
RCAT	;update recode category 9999999.081, field .01
IMMCPT	;
IMM	;add cpt codes to immunization entries
UPDATE	;EP - update fields in AUT dictionaries
SKCPT	;
RCDC	;
EXAMCPT	;;
REINDEX1	;
PPT	;EP - add presentation types to presentation type file
INJ02	;
PPTTYPE	; presentation types
HF	;
RECINJ	;update .02 and .04 of RECODE INJURY FILE
MEASTYPE	;

External References

Name	Field # of Occurrence
RECODE^AUTPOS2	UPDATE+11
^DIC	MEASTYPE+2, MEASTYPE+3, MEASTYPE+6, MEASTYPE+7, MEASTYPE+8, HF+5, HF+6, HF+7, RCAT+4, PPT+4
^DIE	IMM+4, MEAS+3, MEASTYPE+4, MEASTYPE+5, SKINTEST+4, EXAM+4, RECINJ+9
ENALL^DIK	REINDEX1+2, REINDEX1+4
^DIR	UPDATE+5
^XBFMK	EOJ+3
^XBKVAR	UPDATE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"SORRY, YOU MUST HAVE PROGRAMMER ACCESS (Variable DUZ(0) must = '@'.)",!,"POST INITS NOT RUN - PLEASE DO SO LATER BY RUNNING RTN '^AUTPOS1' (D ^AUTPOS1)." Line Location: UPDATE+2
Function Call: WRITE	Prompt: !!,"Many AUT tables will now be updated. This will take a while.",! Line Location: UPDATE+3
Function Call: WRITE	Prompt: !,"Please have your aux port printer turned ON. THANKS." Line Location: UPDATE+4
Function Call: WRITE	Prompt: !!,"BYE - POST INIT NOT RUN - PLEASE RUN IT LATER BY RUNNING ^AUTPOS1." Line Location: UPDATE+7
Function Call: WRITE	Prompt: !!,"All done with AUTT post init.",! Line Location: EOJ+4
Function Call: WRITE	Prompt: !,"Re-indexing a new index on RECODE INJURY" Line Location: REINDEX1+1
Function Call: WRITE	Prompt: !,"Re-indexing a new index on RECODE APC/ICD" Line Location: REINDEX1+3
Function Call: WRITE	Prompt: !,"Adding CPT codes to immunization table." Line Location: IMM+1
Function Call: WRITE	Prompt: !,"updating immunization ",AUTVAL,"failed. Notify database mgr. of incomplete Immunization file.." Line Location: IMM+4
Function Call: WRITE	Prompt: !,"Adding CPT code to measurement types." Line Location: MEAS+1
Function Call: WRITE	Prompt: !,"Could not find Tonometry measurement type. Skipping Tonometry Measurement update." Line Location: MEAS+2
Function Call: WRITE	Prompt: !,"Could not enter CPT code in tonometry file. Notify database mgr." Line Location: MEAS+3
Function Call: WRITE	Prompt: !,"Adding Measurement Types (Edema and Presentation)",! Line Location: MEASTYPE+1
Function Call: WRITE	Prompt: !,"Adding a few new health factors" Line Location: HF+1
Function Call: WRITE	Prompt: !,"Adding CPT code to skin test entries." Line Location: SKINTEST+1
Function Call: WRITE	Prompt: !,"updating skin test code ",AUTVAL,"failed. Notify database mgr. of incomplete SKIN TEST file." Line Location: SKINTEST+4
Function Call: WRITE	Prompt: !,"Adding CPT code to exam entries." Line Location: EXAM+1
Function Call: WRITE	Prompt: !,"Updating exam ",AUTVAL,"failed. Notify database mgr. of incomplete EXAM file." Line Location: EXAM+4
Function Call: WRITE	Prompt: !,"Adding APC Recode Categories to Recode Category File.." Line Location: RCAT+1
Function Call: WRITE	Prompt: "ADDING of Category ",AUTVAL," failed.. skipping. Notify Database Manager." Line Location: RCAT+4
Function Call: WRITE	Prompt: !,"Adding Narrative and E-Codes to APC Injury code table..." Line Location: RECINJ+1
Function Call: WRITE	Prompt: !!,"Can't find ICD code ",$P(AUTX,";;",3)," for APC code ",AUTVAL Line Location: RECINJ+5
Function Call: WRITE	Prompt: !,"Can't find entry ",AUTVAL," to edit.",! Line Location: RECINJ+7
Function Call: WRITE	Prompt: !,"Editing APC INJURY Code ",AUTVAL," failed, notify database mgr. of incomplete RECODE INJURY file." Line Location: RECINJ+9
Function Call: WRITE	Prompt: !,"Adding Pregnancy Presentation Types to Presentation Type file..." Line Location: PPT+1
Function Call: WRITE	Prompt: !,"Adding Presentation Type ",X," failed. Notify database mgr. of incomplete PRESENTATION TYPE file.",! Line Location: PPT+4
Routine Call	DIE Line Location: IMM+4 MEAS+3 MEASTYPE+4 MEASTYPE+5 SKINTEST+4 EXAM+4 RECINJ+9
Routine Call	DIC Line Location: MEASTYPE+2 MEASTYPE+3 MEASTYPE+6 MEASTYPE+7 MEASTYPE+8 HF+5 HF+6 HF+7 RCAT+4 PPT+4
Routine Call	DIR Line Location: UPDATE+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTIMM - [#9999999.14]	Classic Fileman Calls
^AUTTEXAM - [#9999999.15]	Classic Fileman Calls
^AUTTHF - [#9999999.64]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTEXAM("C"	EXAM+3
^AUTTIMM("C"	IMM+3
^AUTTMSR("B"	MEAS+2, MEASTYPE+4, MEASTYPE+5
^AUTTRIJ("B"	RECINJ+7
^AUTTSK("C"	SKINTEST+3
^ICD9("AB"	RECINJ+4

Label References

Name	Line Occurrences
EOJ	UPDATE+19
EXAM	UPDATE+15
HF	UPDATE+17
IMM	UPDATE+14
MEAS	UPDATE+8
MEASTYPE	UPDATE+9
PPT	UPDATE+18
RCAT	UPDATE+10
RECINJ	UPDATE+12
REINDEX1	UPDATE+13
SKINTEST	UPDATE+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AUTCAT	RECINJ+3*, RECINJ+8, EOJ2+1!
AUTCPT	EOJ+1!
AUTICD	RECINJ+4, RECINJ+5, RECINJ+6, RECINJ+8, EOJ2+1!
AUTJ	EOJ+1!, IMM+2, SKINTEST+2, EXAM+2, RCAT+3, RECINJ+2, PPT+3
AUTMOD	EOJ+1!
AUTT	EOJ+1!, IMM+2, SKINTEST+2, EXAM+2, RCAT+3, RECINJ+2, PPT+3
AUTTXT	EOJ+1!
AUTVAL	EOJ+1!, IMM+2, IMM+3, IMM+4, SKINTEST+2, SKINTEST+3, SKINTEST+4, EXAM+2, EXAM+3, EXAM+4 , RCAT+3, RCAT+4, RECINJ+2, RECINJ+5, RECINJ+7, RECINJ+9, PPT+3, PPT+4, EOJ2+1!
AUTX	EOJ+1!, IMM+2, IMM+4, SKINTEST+2, SKINTEST+4, EXAM+2, EXAM+4, RCAT+3, RECINJ+2, RECINJ+3 , RECINJ+4, RECINJ+5, PPT+3, PPT+4, EOJ2+1!
AUTY	EOJ+1!, IMM+3, IMM+4, SKINTEST+3, SKINTEST+4, EXAM+3*, EXAM+4
D	EOJ+2!
D0	MEASTYPE+2!, MEASTYPE+3!, MEASTYPE+6!, MEASTYPE+7!, MEASTYPE+8!, HF+5!, HF+6!, HF+7!
DA	UPDATE+5!, IMM+4, MEAS+2, MEASTYPE+2!, MEASTYPE+3!, MEASTYPE+4, MEASTYPE+5, MEASTYPE+6!, MEASTYPE+7!, MEASTYPE+8! , HF+5!, HF+6!, HF+7!, SKINTEST+4, EXAM+4, RCAT+6!, RECINJ+7*, PPT+4!, PPT+6!
DD	EOJ+2!, MEASTYPE+2!, MEASTYPE+3!, MEASTYPE+6!, MEASTYPE+7!, MEASTYPE+8!, HF+5!, HF+6!, HF+7!, RCAT+6! , PPT+6!
DIC	EOJ+2!, MEASTYPE+2!, MEASTYPE+3!, MEASTYPE+6!, MEASTYPE+7!, MEASTYPE+8!, HF+5!, HF+6!, HF+7!, RCAT+2* , RCAT+6!, PPT+2*, PPT+6!
DIC("DR"	MEASTYPE+2, MEASTYPE+3, MEASTYPE+6, MEASTYPE+7, MEASTYPE+8, PPT+4
DIC(0	MEASTYPE+2, MEASTYPE+3, MEASTYPE+6, MEASTYPE+7, MEASTYPE+8, HF+5, HF+6, HF+7, RCAT+2, PPT+2
>> DIE	IMM+4, MEAS+3, MEASTYPE+4, MEASTYPE+5, SKINTEST+4, EXAM+4, RECINJ+8*
>> DIK	REINDEX1+2, REINDEX1+4
>> DIK(1	REINDEX1+2, REINDEX1+4
DIR	UPDATE+5!
DIR("A"	UPDATE+5*
DIR("B"	UPDATE+5*
DIR(0	UPDATE+5*
>> DIRUT	UPDATE+6
DIU	EOJ+2!
DLAYGO	EOJ+2!, MEASTYPE+2!, MEASTYPE+3!, MEASTYPE+6!, MEASTYPE+7!, MEASTYPE+8!, HF+5!, HF+6!, HF+7!, RCAT+6! , PPT+4*, PPT+6!
DR	EOJ+2!, IMM+4, MEAS+3, MEASTYPE+4, MEASTYPE+5, SKINTEST+4, EXAM+4, RCAT+6!, RECINJ+8*, PPT+6!
DUZ(0	UPDATE+2
X	EOJ+2!, MEASTYPE+2, MEASTYPE+3, MEASTYPE+6, MEASTYPE+7, MEASTYPE+8, HF+5, HF+6, HF+7, RCAT+4* , PPT+4*
Y	UPDATE+7, EOJ+2!, IMM+4, MEAS+3, SKINTEST+4, EXAM+4, RCAT+4, RECINJ+9, PPT+4

Marked Items

Name	Field # of Occurrence
$T(@AUTT+AUTJ	IMM+2, SKINTEST+2, EXAM+2, RCAT+3, RECINJ+2, PPT+3

Customize PDF page

Package: Utility Tables

Routine: AUTPOS1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items