Routine: APCD20P9

Package	Total	Call Graph
Kernel	3	$$CJ^XLFSTR $$ADD^XPDMENU MES^XPDUTL
VA Fileman	3	(,IX)^DIC FILE^DICN ^DIK
IHS VA Utilities	1	^XBFMK
Patient Care Component	1	^APCDBUL9

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: "Attempt to add DELETE DUPE PRIM PROV option failed." Line Location: POST+2
Function Call: WRITE	Prompt: "Attempt to add OTHER REPORTS option failed." Line Location: POST+4
Function Call: WRITE	Prompt: "Attempt to add GROWTH CHARTS OPTION option failed." Line Location: POST+6
Function Call: WRITE	Prompt: !!,"Adding WCE mnemonic failed." Line Location: WCE+10
Function Call: WRITE	Prompt: !!,"Adding AKBP mnemonic failed." Line Location: WCE+15
Function Call: WRITE	Prompt: !!,"Adding RHC mnemonic failed." Line Location: WCE+20
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

Name	Line Occurrences (* Changed, ! Killed)
^APCDTKW("B"	WCE+6, WCE+11, WCE+16
^DIE - [#.402]	PRE+4, PRE+6, WCE+3, WCE+5
^DIE("B"	PRE+3, PRE+5, WCE+2, WCE+4

Name	Field # of Occurrence
APCDSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
APCDY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> D	INSTALLD+5*
D0	WCE+8!, WCE+13!, WCE+18!, WCE+21!
DA	PRE+1*, PRE+2!
DD	WCE+8!, WCE+13!, WCE+18!, WCE+21!
DIC	WCE+7, WCE+12, WCE+17, WCE+21!, INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11
DIC("DR"	WCE+7, WCE+12, WCE+17*
DIC(0	WCE+7, WCE+12, WCE+17, INSTALLD+5
DIFQ	SORRY+1!
DIK	PRE+1*, PRE+2!
DO	WCE+8!, WCE+13!, WCE+18!, WCE+21!
IOM	IMES+1, SORRY+4
X	APCD20P9+6, PRE+3, PRE+4, PRE+5, PRE+6, POST+1, POST+2, POST+3, POST+4, POST+5 , POST+6, WCE+2, WCE+3, WCE+4, WCE+5, WCE+7, WCE+12, WCE+17, INSTALLD+3~, INSTALLD+4 , INSTALLD+8, INSTALLD+11, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	APCD20P9+6*
>> XPDDIQ("XPZ1"	APCD20P9+5*
>> XPDDIQ("XPZ2"	APCD20P9+5*
>> XPDENV	APCD20P9+5
>> XPDQUIT	SORRY+2, SORRY+3
Y	WCE+10, WCE+15, WCE+20, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1