Routine: DG53147P

Information

DG53147P ;ALB/RMO/CJM - National Enrollment Post Install Updates; 10/14/97

Source file <DG53147P.m>

Package	Total	Call Graph
Kernel	2	($$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
VA FileMan	2	EN^DIEZ $$ROUSIZE^DILF
MailMan	1	^XMD
Registration	1	$$SITE^VASITE

Name	Comments	DBIA/ICR reference
EN	;
COMP	;-- Re-compile input templates
FIX	;fix DD for rated disabilities multiple
NOTIFY	; -- ; This function will generate a notification message that the facility has installed the patch in a production account.
TEMP	;

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("PROD"	NOTIFY+6
^%ZOSF("UCI"	NOTIFY+6
^DD(2.04	FIX+1!, FIX+2*
^DIE - [#.402]	COMP+12
^DIE("B"	COMP+8
^VA(200 - [#200]	NOTIFY+22

Name	Field # of Occurrence
DGCOUNT	COMP+2~, COMP+5*
DGMAX	COMP+2~, COMP+3*, COMP+16
DGNAME	COMP+2~, COMP+5*, COMP+8, COMP+15
DIFROM	NOTIFY+3~
DMAX	COMP+2~, COMP+16*
DUZ	NOTIFY+15, NOTIFY+22
IVMSITE	NOTIFY+3~, NOTIFY+11*, NOTIFY+13, NOTIFY+20, NOTIFY+21
IVMTEXT	NOTIFY+3~
IVMTEXT(1	NOTIFY+20*
IVMTEXT(2	NOTIFY+21*
IVMTEXT(3	NOTIFY+22*
IVMTEXT(4	NOTIFY+23*
IVMTEXT(5	NOTIFY+24*
X	COMP+2~, COMP+12*, COMP+13, COMP+15
XMDUZ	NOTIFY+3~, NOTIFY+14*
XMSUB	NOTIFY+3~, NOTIFY+13*
XMTEXT	NOTIFY+3~, NOTIFY+19*
XMY	NOTIFY+3~
XMY(	NOTIFY+15*
XMY("G.ENROLL	MENT EXTRACT@IVM.DOMAIN.EXT" , NOTIFY+16*
Y	COMP+2~, COMP+8*, COMP+9, COMP+12, NOTIFY+3~, NOTIFY+6

Name	Field # of Occurrence
$T(TEMP+DGCOUNT	COMP+5