Routine: XDRRMRG0

Name	Comments	DBIA/ICR reference
SCRN2(DA2)	;Check if user part of ancillary service mailgrp.
EN	;
END
CHKSTAT(DA,NAME)	;Check ancillary Service Determination fld.
SETARY	;REM - 9/9/96 Sets the R array for the text of the mail msg.
SEND	;REM - 9/9/96 using mail msgs instead of alerts.
SCRN(NAME,DA)	;Screen ancillary service with no data.

Name	Line Occurrences (* Changed, ! Killed)
^VA(15 - [#15]	EN+9, EN+10, SCRN+4
^VA(15.1 - [#15.1]	EN+12, EN+13
^XMB(3.8 - [#3.8]	SCRN2+4, SCRN2+5

Name	Field # of Occurrence
^(0	SCRN+2, SCRN2+3
^(2	SCRN+3

Name	Field # of Occurrence
DA	CHKSTAT~, CHKSTAT+2, CHKSTAT+3, SCRN~, SCRN+4
DA2	SCRN2~
DFNFR	EN+1~, EN+10, EN+11, EN+14, EN+15, SEND+2, SEND+4, SETARY+3, SETARY+5
DFNTO	EN+1~, EN+10, EN+11, EN+14, EN+15, SEND+2, SEND+4, SETARY+4, SETARY+6
DIC	EN+3!, EN+4!, EN+6!, EN+7!
DIC("A"	EN+6*
DIC("S"	EN+3, EN+6
DIC(0	EN+4, EN+7
DIR	END!, END+2!
DIR("A"	END*
DIR("B"	END*
DIR(0	END*
>> DIRUT	END+3
DUZ	SCRN2+5
IEN	SCRN+1~, SCRN+3*, SCRN+4
NAME	CHKSTAT~, CHKSTAT+2, SCRN~, SCRN+3
PRIFILE	EN+1~, EN+2*, EN+12, EN+13
>> R(	SETARY+7, SETARY+8
>> R(1	SETARY+5*
>> R(2	SETARY+6*
SSNFR	SETARY+1~, SETARY+3*, SETARY+5
SSNTO	SETARY+1~, SETARY+4*, SETARY+6
U	EN+5, EN+10, EN+11, EN+14, SCRN+2, SCRN+4, SCRN2+3, SEND+4, SETARY+5, SETARY+6
X	EN+1~, EN+9, EN+10, EN+11, CHKSTAT+1~, CHKSTAT+2, CHKSTAT+3, SCRN2+1~, SCRN2+4*, SCRN2+5
XDRAID	EN+1~, EN+5*, EN+15, SEND+2
XDRDA	EN+1~, EN+12*, EN+13
XDRFILE	EN+1~, EN+5*, EN+14
XDRFLG	SCRN2+1~, SCRN2+2, SCRN2+3, SCRN2+4, SCRN2+5, SCRN2+6
>> XDRGL	SEND+1, SEND+4, SETARY+2, SETARY+5, SETARY+6
XDRGRP	SCRN2+1~, SCRN2+3*, SCRN2+4, SCRN2+5, SEND+6
XDRNAME	EN+1~, EN+5*, EN+8, EN+12, EN+14, SEND+4, SETARY+8
XDRNOD2	EN+1~, EN+13*, EN+14
XDRY	EN+1~, EN+7*, EN+8, EN+9, EN+10, EN+14, EN+17
>> XMCHAN	SEND+6*
>> XMDUZ	SEND+6*
>> XMSUB	SEND+4*
XQADATA	EN+1~, EN+14*
>> XQAID	EN+15, EN+17, SEND+2*
>> XQAMSG	SEND+4*
>> XQAROU	SEND+3*
Y	EN+1~, EN+4, EN+5, EN+7, END+3
Y(0	EN+5
ZXQAID	EN+1~, EN+15*, EN+17

Information