Routine: EC2P100

Information

EC2P100 ;ALB/MRY - PATCH EC*2.0*100 Post-Init Rtn ;01/07/2009

Source file <EC2P100.m>

Package	Total	Call Graph
Kernel	2	($$LKOPT,OUT,RENAME)^XPDMENU (BMES,MES)^XPDUTL
VA FileMan	2	^DIC $$GET1^DIQ
Toolkit	1	EN^XPAR

Name	Comments	DBIA/ICR reference
ENV	;environment check
PROGCHK(XPDABORT)	;checks for necessary programmer variables
POST	;
OPTION	;move [ec night] into [ec pce feed], if exists. Then, disable.
RENOPT(ECOLD,ECNEW)	;rename option
DISOPT(MENU)	;Disable Options
MAILGP	;add users of ECXMGR key to ECMGR mailgroup
VOBS	;;Install utility objects

Name	Field # of Occurrence
^DIC	MAILGP+3, MAILGP+6
$$GET1^DIQ	MAILGP+6
EN^XPAR	VOBS+3, VOBS+4, VOBS+5, VOBS+8, VOBS+9, VOBS+10, VOBS+13, VOBS+14, VOBS+15, VOBS+18 , VOBS+19, VOBS+20, VOBS+23, VOBS+24, VOBS+25, VOBS+28, VOBS+29, VOBS+30
$$LKOPT^XPDMENU	RENOPT+7, RENOPT+8, RENOPT+9, DISOPT+1
OUT^XPDMENU	DISOPT+8
RENAME^XPDMENU	RENOPT+10
BMES^XPDUTL	PROGCHK+3, DISOPT+9, MAILGP+1, VOBS+1
MES^XPDUTL	PROGCHK+4, PROGCHK+5, PROGCHK+6, DISOPT+6, MAILGP+7, VOBS+6, VOBS+11, VOBS+16, VOBS+21, VOBS+26 , VOBS+31

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^XMB(3.8 - [#3.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(3.8	MAILGP+4
^XUSEC("ECXMGR"	MAILGP+5

Name	Field # of Occurrence
DA	MAILGP+2~
DA(1	MAILGP+4*
DIC	MAILGP+2~, MAILGP+3, MAILGP+4
DIC("P"	MAILGP+4*
DIC(0	MAILGP+3, MAILGP+4
DT	PROGCHK+2
DUZ	PROGCHK+2
DUZ(0	PROGCHK+2
ECDUZ	MAILGP+2~, MAILGP+5*, MAILGP+6
>> ECMENU	OPTION+2*
ECMSG	DISOPT+2~, DISOPT+3!
ECMSG(1	DISOPT+4*
ECMSG(2	DISOPT+5*
ECNEW	RENOPT~, RENOPT+7, RENOPT+9, RENOPT+10
ECOLD	RENOPT~, RENOPT+8, RENOPT+9, RENOPT+10
>> ECXMSG	DISOPT+6
MENU	DISOPT~, DISOPT+1, DISOPT+5, DISOPT+8, DISOPT+9
U	PROGCHK+2
X	MAILGP+2~, MAILGP+3, MAILGP+6, MAILGP+7
XPDABORT	ENV+1, ENV+2, ENV+3!, PROGCHK~, PROGCHK+7
>> Y	MAILGP+4, MAILGP+7