Routine: ATX51P20

Information

ATX51P20 ; IHS/CMI/LAB - PCC Suite v5.1 patch 20 environment check ; 31 Jan 2017 10:42 AM

Source file <ATX51P20.m>

Name	Comments	DBIA/ICR reference
PRE	;
SORRY(X)	;
IMES	;
RO(T,S)	;
INSTALLD(ATXSTAL)	;EP - Determine if patch ATXSTAL was installed, where ; ATXSTAL is the name of the INSTALL. E.g "AG6.011".
NS(T,L)	;
POST	;
SETTAXRN	;EP

Name	Field # of Occurrence
^ATXF7	POST+1
^DIC	INSTALLD+9, INSTALLD+12
IX^DIC	INSTALLD+6
$$CJ^XLFSTR	ATX51P20+9, ATX51P20+10, IMES+1, SORRY+4
$$VERSION^XPDUTL	ATX51P20+9
MES^XPDUTL	ATX51P20+9, ATX51P20+10, SETTAXRN+6, SETTAXRN+9, IMES+1

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
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

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	SETTAXRN+6, SETTAXRN+7, SETTAXRN+8, SETTAXRN+9
^ATXAX("B"	SETTAXRN+2, SETTAXRN+3

Name	Field # of Occurrence
ATXSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> ATXTDA	SETTAXRN+3*, SETTAXRN+4, SETTAXRN+6, SETTAXRN+7, SETTAXRN+8, SETTAXRN+9
>> ATXTFI	SETTAXRN+2*, SETTAXRN+3, SETTAXRN+5, SETTAXRN+9
ATXY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	INSTALLD+5*
DIFQ	SORRY+1!
>> F	SETTAXRN+8*, SETTAXRN+9
IOM	IMES+1, SORRY+4
L	NS~
S	RO~, RO+8
T	RO~, RO+1, RO+2, RO+3, RO+4, RO+5, RO+6, RO+7, NS~, NS+2 , NS+3, NS+5, NS+6, NS+7, NS+11
U	SETTAXRN+6, SETTAXRN+7, SETTAXRN+8, SETTAXRN+9
X	ATX51P20+7, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	ATX51P20+7*
>> XPDDIQ("XPZ1"	ATX51P20+6*
>> XPDDIQ("XPZ2"	ATX51P20+6*
>> XPDENV	ATX51P20+6
>> XPDQUIT	SORRY+2, SORRY+3
Y	INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1