Routine: ENAEMS

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN	;
POST	;
MS10	; measure #10
MS19	; measure #19
EXIT	;
RPT	; ; Construct Email text file
MAIL(MN)	; ; Send report to mail group member and patch installer
MAILGRP	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"AEMS/MERS WORK ORDER PERFORMANCE EXTRACT",!!! Line Location: BEGIN+3
Function Call: WRITE	Prompt: !!,"Please enter 4 digits Fiscal Year",!! Line Location: BEGIN+7
Function Call: WRITE	Prompt: !!,"Processing ... " Line Location: BEGIN+8

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("PROD"	MAIL+2
^%ZOSF("UCI"	MAIL+2
^DIC(6910 - [#6910]	POST+8
^ENG(6914 - [#6914]	MS10+2, MS10+4, MS10+5, MS10+6
^ENG(6920 - [#6920]	MS19+1, MS19+2, MS19+4, MS19+6, MS19+7
^TMP("ENAEMS#10"	POST+4!, MS10+14, MS10+17*, EXIT+1!, RPT+3, RPT+4, RPT+5, RPT+6
^TMP("ENAEMS#19"	POST+4!, MS19+13, MS19+16*, EXIT+1!, RPT+10, RPT+11
^VA(200 - [#200]	MAIL+7

Name	Field # of Occurrence
A1	POST+1~, MS10+13, MS10+16, MS19+15*
AA	POST+1~, MS10+6, MS10+7, MS10+11, MS10+14, MS10+16, MS10+17, MS19+13, MS19+15, MS19+16 , RPT+6, RPT+7, RPT+11*, RPT+12
AA(	MS19+15
AA(1	MS19+13*
AA(2	MS19+13*
BB	POST+1~
BB(	MS10+13*, MS10+16
BB(1	MS10+14*
DIFROM	POST+2~
DTIME	BEGIN+4
DUZ	MAIL+7
END	POST+2~, POST+8, POST+9, MAIL+3, MAIL+5
FDT	POST+1~, RPT+9!, MAIL+9
FDT(	RPT+7, RPT+12, MAIL+9*
FY	BEGIN+2~, BEGIN+4, BEGIN+5, BEGIN+6, BEGIN+7, POST+3~*, POST+6, RPT+7, RPT+12, MAIL+10
FYB	POST+2~, POST+6*, MS10+7, MS19+10
FYE	POST+2~, POST+6*, MS10+7, MS19+10
I	POST+1~, MS10+2, MS10+4, MS10+5, MS10+6, MS19+1, MS19+2, MS19+4, MS19+6, MS19+7 , MAIL+5*
J	POST+1~, MS10+5, MS10+6, MAIL+2, MAIL+3, MAIL+5*
K	POST+1~, MS10+6*, MS10+8, MS10+10, MS10+13
LC	POST+1~, RPT+2, RPT+7, RPT+9, RPT+12, MAIL+9
MN	MAIL~, MAIL+10
OSTA	POST+1~, MS10+4, MS10+14, MS10+17, RPT+3, RPT+4, RPT+5, RPT+6, RPT+7
PMST	POST+1~, MS10+10*
QT	POST+1~, MS10+11, MS10+14, MS10+17, MS19+11, MS19+13, MS19+16, RPT+4, RPT+5, RPT+6 , RPT+7, RPT+9, RPT+10*, RPT+11, RPT+12
STA	POST+1~, POST+8, POST+10, MS10+4, RPT+7, RPT+12, MAIL+10
TP	POST+1~, MS10+8, MS10+9, MS10+10, MS10+14, MS10+17, MS19+4, RPT+5*, RPT+6, RPT+7
U	POST+1~, POST+6*, POST+8, MS10+4, MS10+8, MS10+10, MS10+13, MS19+6, MS19+7
X	POST+1~, MS19+13, RPT+2*, RPT+7, RPT+11, RPT+12
X1	POST+2~, MS19+7*, MS19+9, MS19+10, MS19+11
X2	POST+2~, MS19+6*, MS19+8, MS19+9
XMSUB	POST+2~, MAIL+10*
XMTEXT	POST+2~, MAIL+11*
XMY	POST+2~
XMY(	MAIL+5, MAIL+7
Y	POST+1~, MAIL+3*, MAIL+5

Name	Field # of Occurrence
$T(MAILGRP+I	MAIL+5