Routine: BADEECP1

Package

Total

Call Graph

$$FIND1^DIC (,FILE,UPDATE)^DIE

COMPLETE^BADEMRG

($$PATCH,$$VERSION,BMES)^XPDUTL

EN^XPAR

Name	Comments	DBIA/ICR reference
PRE	;EP - Pre-init
RENXPAR(OLD,NEW)	; Rename parameter
GETSC(SC)	;EP
CKPATCH	;Only add protocol if BPM patch 1 is installed
GETHLOC(SIEN)	;EP
ENV	;EP
POST	;EP
REGPROT(P,C,SEQ,ERR)	;EP
MES(TXT,QUIT)	;EP

Name	Field # of Occurrence
COMPLETE^BADEMRG	POST+23
$$FIND1^DIC	RENXPAR+3, RENXPAR+4, REGPROT+4, REGPROT+5, GETSC+2
^DIE	POST+18
FILE^DIE	RENXPAR+7
UPDATE^DIE	REGPROT+9
EN^XPAR	POST+2, POST+3, POST+4, POST+5, POST+6, POST+7
$$PATCH^XPDUTL	CKPATCH+2, CKPATCH+3
$$VERSION^XPDUTL	POST+21
BMES^XPDUTL	MES+1, POST+23, POST+25, CKPATCH+2, CKPATCH+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	POST+15
^SC("ASTOP"	GETHLOC+3
^XPD(9.7 - [#9.7]	ENV+4, ENV+6, ENV+7, ENV+13, ENV+15, ENV+16

Name	Field # of Occurrence
AIEN	REGPROT+1~, REGPROT+5*, REGPROT+6, REGPROT+7
C	REGPROT~, REGPROT+3, REGPROT+5
DA	POST+13~, POST+15*, POST+16
DIE	POST+13~, POST+17*
DR	POST+13~, POST+17*
ERR	REGPROT~, REGPROT+3, REGPROT+6
FDA	RENXPAR+1~, REGPROT+1~
FDA(	RENXPAR+6, REGPROT+7, REGPROT+8*
FIL	RENXPAR+1~, RENXPAR+2*, RENXPAR+3, RENXPAR+4, RENXPAR+6
>> I	POST+12*, POST+15
IEN	RENXPAR+1~, RENXPAR+4*, RENXPAR+5, RENXPAR+6
IENARY	REGPROT+1~
IENARY(1	REGPROT+4*, REGPROT+6, REGPROT+7, REGPROT+8
IN	ENV+1~, ENV+3, ENV+4, ENV+6, ENV+12, ENV+13, ENV+15
INSTDA	ENV+1~, ENV+3, ENV+6, ENV+7, ENV+12, ENV+15, ENV+16
>> MENU(	POST+15
>> MENU(1	POST+9*
>> MENU(2	POST+10*
>> MENU(3	POST+11*
>> MSG	POST+14*
NEW	RENXPAR~, RENXPAR+3, RENXPAR+6
OLD	RENXPAR~, RENXPAR+4
P	REGPROT~, REGPROT+3, REGPROT+4
PATCH	ENV+1~, CKPATCH+1*, CKPATCH+2, CKPATCH+3
PIEN	REGPROT+1~
QUIT	MES~, MES+2
RES	GETSC+1~, GETSC+2, GETSC+3, GETHLOC+1~, GETHLOC+3, GETHLOC+4
SC	GETSC~, GETSC+2
SEQ	REGPROT~, REGPROT+8
SIEN	GETHLOC~, GETHLOC+2, GETHLOC+3
STAT	ENV+1~, ENV+7, ENV+8, ENV+16, ENV+17
TXT	MES~, MES+1
U	ENV+7, ENV+16
XMRG	POST+1~, POST+21*, POST+23
>> XPDABORT	MES+2*
>> XPDDIQ("XPZ1"	ENV+10, ENV+19
>> XPDDIQ("XPZ2"	ENV+10, ENV+19

Information