Routine: IB20P361

Information

IB20P361 ;BP/TJH - Preinit routine for IB*2.0*361 ; 12/14/2006

Source file <IB20P361.m>

Package	Total	Call Graph
VA FileMan	2	FILE^DICN IX^DIK
Kernel	1	(BMES,MES)^XPDUTL

Name	Comments	DBIA/ICR reference
EN	; entry point
ERRCD	; add new error codes to 350.8
ERRCDX	;
SEXFILL	; fill INSURED'S SEX field with value where possible
T1
T2
TXT	; text of error messages to add

FileNo	Call Tags
^IBE(350.8 - [#350.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	T1+2, T1+4, T1+5, T1+8, T1+9, T1+11*
^IBE(350.8 - [#350.8]	ERRCD+5, ERRCD+8*

Name	Line Occurrences
ERRCD	EN+1
SEXFILL	EN+2

Name	Field # of Occurrence
DA	ERRCD+1~, ERRCD+8*
DIC	ERRCD+1~, ERRCD+3*
DIC(0	ERRCD+3*
DIK	ERRCD+1~, ERRCD+3*
DO	ERRCD+1~, ERRCD+6!
END	SEXFILL+3~, T2*, T2+2
IBA	ERRCD+1~, ERRCDX+1
IBA(1	ERRCD+11*
IBA(2	ERRCD+10*
IBA(3	ERRCD+11*
IBC	ERRCD+1~, ERRCD+3, ERRCD+8, ERRCD+10
IBDA	SEXFILL+3~, T1+7, T1+8, T1+9, T1+11
IBDFN	SEXFILL+3~, T1+1, T1+2, T1+4, T1+5, T1+8, T1+9, T1+11
IBSPSX	SEXFILL+3~, T1+6*, T1+11
IBT	ERRCD+1~, ERRCD+4*, ERRCD+5, ERRCD+7, ERRCD+8
IBVTSX	SEXFILL+3~, T1+5*, T1+6, T1+11
IBWHOSE	SEXFILL+3~, T1+9*, T1+10, T1+11
IBX	ERRCD+1~, ERRCD+4*
MIN	SEXFILL+3~, T2+2*, T2+3
MSG	SEXFILL+3~, T2+3*, T2+4
PCTR	SEXFILL+3~, T1, T1+3, T2+3
SEC	SEXFILL+3~, T2+2*, T2+3
START	SEXFILL+3~, T1*, T2+2
TT	SEXFILL+3~, T2+2*
U	T1+5, T1+9, T1+11
X	ERRCD+1~, ERRCD+7*
Y	ERRCD+1~, ERRCD+8

Name	Field # of Occurrence
$T(TXT+IBX	ERRCD+4