Routine: XUINP313

Information

XUINP313 ;ISF/RWF - Post-init for patch XU*8*313 ;07/14/2003 14:41 [ 07/29/2004 9:01 AM ]

Package	Total	Call Graph
Kernel	3	$$DT^XLFDT MES^XPDUTL DEQUE^XUSERP
VA Fileman	2	FILE^DICN ^DIR

Name	Comments	DBIA/ICR reference
PRE	;Check if OK for pre-init to add national items back
TYPE(X)	;EF. Return option type, Pass IFN.
LK(X)	;Lookup Option Name
PRETEST	;Test the pre-init
TEST	;Test Terminate event
POST	;Run Terminate event for users after 6/10/2003
PROC	;Process
ADD(MENU,OPT,SYN,ORD)	;EF. Add options to a menu

Name	Line Occurrences (* Changed, ! Killed)
^DD(19	ADD+9
^DIC(19 - [#19]	LK+1, PRE+7, ADD+8, ADD+11, TYPE+1
^VA(200 - [#200]	PROC+3

Name	Field # of Occurrence
D	PROC+1~, PROC+3*
D0	ADD+2~, ADD+9*
DA	ADD+2~
DA(1	ADD+9*
DATE	POST+1~, POST+4, TEST+1~, TEST+14, PROC+3
DIC	ADD+2~, ADD+9*
DIC("P"	ADD+9*
DIC(0	ADD+9*
DIR	TEST+1~, TEST+10!, PRETEST+1~
DIR("A"	TEST+2, TEST+3, TEST+4, TEST+5, TEST+6, TEST+7, TEST+12, PRETEST+2
DIR("B"	TEST+2, TEST+12, PRETEST+2*
DIR(0	TEST+2, TEST+11, PRETEST+2*
DLAYGO	ADD+2~, ADD+9*
DR	ADD+2~
DT	POST+1~, POST+3, TEST+15, PROC+3
DTOUT	TEST+1~
DUOUT	TEST+1~
I	PRE+1~, PRE+5*
LIST	PRE+1~, PRE+3*, PRE+5
MENU	PRE+1~, PRE+4*, PRE+7, ADD~, ADD+1, ADD+3
MSG	PRE+1~, PRE+5, PRE+6, PRE+7, PRE+8
OPT	PRE+1~, PRE+5*, PRE+6, PRE+8, ADD~, ADD+1, ADD+6
ORD	ADD~
SYN	ADD~
X	PROC+3, LK~, LK+1, PRE+1~, PRE+6, PRE+7, PRE+8, ADD+2~, ADD+9, TYPE~ , TYPE+1
XPD1	ADD+2~, ADD+3*, ADD+5, ADD+8, ADD+9, ADD+11
XPD2	ADD+2~, ADD+6*, ADD+8, ADD+9, ADD+11
XPD3	ADD+2~, ADD+11*, ADD+12
>> XPDQUES("POS001"	POST+2
>> XPDQUES("POS002"	POST+4
>> XPDQUES("PRE001"	PRETEST+4*, PRE+2
XUDA	PROC+1~, PROC+2, PROC+3, PROC+4
XUIEN	PROC+1~
XUIFN	PROC+1~
Y	POST+1~, POST+2*, TEST+1~, TEST+9, TEST+14, PRETEST+3, PRETEST+4