Routine: APCL3026

Information

APCL3026 ; IHS/CMI/LAB - environment check ;

Source file <APCL3026.m>

Package	Total	Call Graph
Kernel	3	$$FMADD^XLFDT $$CJ^XLFSTR ($$VERSION,MES)^XPDUTL
VA Fileman	2	(,IX)^DIC ^DIE

Name	Comments	DBIA/ICR reference
PRE	;
IMES	;
CLINICS	;
SORRY(X)	;
INSTALLD(APCLSTAL)	;EP - Determine if patch APCLSTAL was installed, where ; APCLSTAL is the name of the INSTALL. E.g "AG6.011".
POST	;
OPTIONS	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"version 2.0 of BJPC is required" Line Location: APCL3026+8
Function Call: WRITE	Prompt: !,"version 9.0 of BGP is required" Line Location: APCL3026+9
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: POST+3
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
^APCLCNTL - [#9001003]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCLCNTL("B"	POST+2
^APCLILIC("B"	POST+9*
^APCLILIC(1	POST+8*

Name	Field # of Occurrence
APCLSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> APCLX	POST+5*, POST+6
APCLY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
DA	POST+2*, POST+3!
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	INSTALLD+5*
DIE	POST+3*!
DIFQ	SORRY+1!
DR	POST+3*!
DT	POST+5, POST+8
IOM	IMES+1, SORRY+4
U	POST+8
X	APCL3026+7, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	APCL3026+7*
>> XPDDIQ("XPZ1"	APCL3026+6*
>> XPDDIQ("XPZ2"	APCL3026+6*
>> XPDENV	APCL3026+6
>> XPDQUIT	SORRY+2, SORRY+3
Y	INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1