Routine: AUT98P26

Information

AUT98P26 ; IHS/OIT/FBD - AUT V98.1 PATCH 26 ENVIRONMENT CHECKS AND POST-INIT PROCESS;

Source file <AUT98P26.m>

Package	Total	Call Graph
VA Fileman	3	(,IX)^DIC ^DIE ENALL^DIK
Kernel	2	$$CJ^XLFSTR ($$VERSION,MES)^XPDUTL
Utility Tables	2	CVTALL^AUTCVIT CVTALL^AUTEMTP

Name	Comments	DBIA/ICR reference
PRE	;PATCH 26 PRE-INIT CHECKS AND PROCESSES
SORRY(X)	;
IMES	;
MTPOP
PTXUP	;UPDATE 'PROVIDER TAXONOMY' WITH INFORMATION FROM '3P PROVIDER TAXONOMY'
PTXSCAN()	;PRE-SCAN OF PROVIDER TYPES SPECIFIED IN '3P PROVIDER TAXONOMY' FILE
AUSC	;POST-UPDATE CLEANUP
INSTALLD(AUTSTAL)	;EP - Determine if patch AUTSTAL was installed, where ; AUTSTAL is the name of the INSTALL. E.g "AG6.011".
POST	;PATCH 26 POST-INIT PROCESSES
ITPOP	;INSURER / INSURER TYPE FIELD POPULATION

Name	Field # of Occurrence
CVTALL^AUTCVIT	ITPOP+2
CVTALL^AUTEMTP	MTPOP+2
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
^DIE	PTXUP+19
ENALL^DIK	AUSC+5
$$CJ^XLFSTR	AUT98P26+8, AUT98P26+9, AUT98P26+11, AUT98P26+12, AUT98P26+14, AUT98P26+15, AUT98P26+20, AUT98P26+21, AUT98P26+22, PRE+1 , PRE+4, PTXSCAN+12, POST+1, POST+7, MTPOP+1, MTPOP+3, ITPOP+1, ITPOP+3, IMES+1, SORRY+4
$$VERSION^XPDUTL	AUT98P26+8, AUT98P26+11, AUT98P26+14
MES^XPDUTL	AUT98P26+8, AUT98P26+9, AUT98P26+11, AUT98P26+12, AUT98P26+14, AUT98P26+15, AUT98P26+20, AUT98P26+21, AUT98P26+22, PRE+1 , PRE+4, PTXSCAN+12, POST+1, POST+7, MTPOP+1, MTPOP+3, ITPOP+1, ITPOP+3, IMES+1

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: PTXUP+19
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^AUTTPTAX - [#99999.01]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ABMPTAX - [#9002274.95]	PTXSCAN+5, PTXSCAN+7, PTXUP+8, PTXUP+9, PTXUP+10, PTXUP+11
^ABMPTAX("B"	PTXUP+7
^AUTTPTAX - [#99999.01]	PTXUP+5, PTXUP+6
^AUTTPTAX("AUSC"	AUSC+2!
^DIC(7 - [#7]	PTXSCAN+8, PTXUP+9, PTXUP+10, PTXUP+11

Name	Field # of Occurrence
AUTSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
AUTY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
DA	PTXUP+3~, PTXUP+12!, PTXUP+13*, PTXUP+19!
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	INSTALLD+5*
DIE	PTXUP+3~, PTXUP+12!, PTXUP+13*, PTXUP+19!
DIFQ	SORRY+1!
DIK	AUSC+1!, AUSC+3*
DIK(1	AUSC+4*
DR	PTXUP+3~, PTXUP+12!, PTXUP+14, PTXUP+15, PTXUP+16, PTXUP+17*, PTXUP+18, PTXUP+19!
FLAG	PTXSCAN+2~, PTXSCAN+3, PTXSCAN+9, PTXSCAN+13
IOM	IMES+1, SORRY+4
MSG	PTXSCAN+2~, PTXSCAN+11*, PTXSCAN+12
NUCC	PTXUP+3~, PTXUP+6*, PTXUP+7
P3TXIEN	PTXUP+3~, PTXUP+7*, PTXUP+8, PTXUP+9, PTXUP+10, PTXUP+11
PERC	PTXUP+3~, PTXUP+8*, PTXUP+14
PIECE	PTXSCAN+2~, PTXSCAN+6*, PTXSCAN+7, PTXSCAN+10
PRVC1	PTXUP+3~, PTXUP+9*, PTXUP+15
PRVC2	PTXUP+3~, PTXUP+10*, PTXUP+16
PRVC3	PTXUP+3~, PTXUP+11*, PTXUP+17
PRVCODE	PTXSCAN+2~, PTXSCAN+7*, PTXSCAN+8, PTXSCAN+11
PTXIEN	PTXSCAN+2~, PTXSCAN+4, PTXSCAN+5, PTXSCAN+7, PTXSCAN+11, PTXUP+3~, PTXUP+4, PTXUP+5, PTXUP+6, PTXUP+13
SPEC	PTXSCAN+2~, PTXSCAN+10*, PTXSCAN+11
U	PTXSCAN+7, PTXUP+6, PTXUP+8, PTXUP+9, PTXUP+10, PTXUP+11
X	AUT98P26+6, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	AUT98P26+6*
>> XPDDIQ("XPZ1"	AUT98P26+5*
>> XPDDIQ("XPZ2"	AUT98P26+5*
>> XPDENV	AUT98P26+5
>> XPDQUIT	SORRY+2, SORRY+3
Y	INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1