Routine: APCS2P4

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

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;
IMES	;
LAB	;EP
HLO	;--register the app in HLO
LAB1	;
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: APCS2P4+8
Function Call: WRITE	Prompt: !,"Creating ",APCSX," Taxonomy..." Line Location: LAB1+3
Function Call: WRITE	Prompt: !!,"ERROR IN CREATING ",APCSX," TAX" Line Location: LAB1+5
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: HLO+8
Routine Call	DIC Line Location: LAB1+4 INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

Name	Line Occurrences (* Changed, ! Killed)
^ATXLAB - [#9002228]	LAB1+6, LAB1+7
^ATXLAB("B"	LAB1+1
^DIC(9.4 - [#9.4]	HLO+3
^HLD(779.2 - [#779.2]	HLO+2

Name	Field # of Occurrence
^(0	LAB1+6*

Name	Field # of Occurrence
APCLSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
APCLY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> APCSDA	LAB1+1*, LAB1+2
>> APCSTX	LAB1+6*, LAB1+7, LAB1+8
>> APCSX	LAB+1*, LAB1+1, LAB1+3, LAB1+4, LAB1+5, LAB1+6
>> D	INSTALLD+5*
DA	LAB1+4!, LAB1+8*
DIADD	LAB1+4*!
DIC	LAB1+4!, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC(0	LAB1+4, INSTALLD+5
DIFQ	SORRY+1!
>> DIK	LAB1+8*
DLAYGO	LAB1+4*!
DT	LAB1+6
DUZ	LAB1+6
FDA	HLO+1~
FDA(	HLO+6, HLO+7
FERR	HLO+1~
FIENS	HLO+1~, HLO+5*
I	LAB1+4!
IOM	IMES+1, SORRY+4
PCCI	HLO+1~, HLO+3*, HLO+4, HLO+7
U	LAB1+6
X	APCS2P4+7, LAB1+4, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11*, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	APCS2P4+7*
>> XPDDIQ("XPZ1"	APCS2P4+6*
>> XPDDIQ("XPZ2"	APCS2P4+6*
>> XPDENV	APCS2P4+6
>> XPDQUIT	SORRY+2, SORRY+3
Y	LAB1+5, LAB1+6, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1