Routine: DG53289

Information

DG53289 ;ALB/RMM - Means Test Workload Cleanup Utility ; 23 Aug 2000 7:00 AM

Source file <DG53289.m>

Package	Total	Call Graph
Registration	4	MAIL^DG53289M $$UPD^DGENDBS $$LST^DGMTU $$SITE^VASITE
Kernel	2	($$DT,$$FMTE,$$NOW)^XLFDT ($$COMCP,$$NEWCP,$$PARCP,$$UPCP,$$VERCP,BMES,MES)^XPDUTL
VA Fileman	1	C^%DTC

Name	Comments	DBIA/ICR reference
PRE	; ; Pre-install set up checkpoint and tracking global...
RECCHK	; Process Control Body
EN	; Begin Processing...
SETARR	; Setup an array with Means Test info
COUNT(DATE)	; Update process tracking counter ; Input: ; DATE = inverse of the date from "AID" x-ref in 408.31
EN1	; Begin processing ; Write message to installation device and to INSTALL file (#9.7)
SETREC(IY,REC31,ERRS)	; The record met all criteria, now set the PRIMARY
CHKREC(DGDFN)	; Validate each year by the earliest record

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	RECCHK+9, RECCHK+12, RECCHK+17, RECCHK+19, SETARR+3, SETARR+10
^XTMP("DG-"	PRE+10, PRE+14*
^XTMP("DG-MT-ERR"	CHKREC+12*
^XTMP("DG-MT-IY"	COUNT+5*

Name	Field # of Occurrence
%	PRE+2~, PRE+6, EN+1~, EN+3, EN+4, EN+5, RECCHK+28, CHKREC+14*
ARR	RECCHK+1~, RECCHK+11!
ARR(	SETARR+6, SETARR+7, SETARR+8, SETARR+10, CHKREC+3, CHKREC+5, CHKREC+6, CHKREC+7, CHKREC+8, CHKREC+16!
DATA	SETREC+2~, SETREC+6
DATA(2	SETREC+5*
DATE	COUNT~, COUNT+4
DGDFN	RECCHK+1~, RECCHK+5, RECCHK+6, RECCHK+9*, RECCHK+12, RECCHK+14, RECCHK+17, RECCHK+24, SETARR+6, SETARR+7 , SETARR+8, SETARR+10, CHKREC~, CHKREC+3, CHKREC+5, CHKREC+6, CHKREC+7, CHKREC+8, CHKREC+14, CHKREC+16
DGMTIDT	RECCHK+1~, RECCHK+10, RECCHK+12, RECCHK+14, RECCHK+15*, RECCHK+17, SETARR+5, SETARR+7
DT	PRE+11, RECCHK+10
ERROR	SETREC+2~, SETREC+6
ERRS	RECCHK+1~, CHKREC+10, CHKREC+12!, SETREC~
ERRS(	SETREC+7*
FILERR	RECCHK+1~, RECCHK+23, CHKREC+12, SETREC+7
I	PRE+2~, PRE+9*, PRE+10, PRE+14
INCYR	CHKREC+1~, CHKREC+2, CHKREC+3, CHKREC+5, CHKREC+6, CHKREC+7, CHKREC+8, CHKREC+10, CHKREC+16
IY	SETREC~, SETREC+4, COUNT+4*, COUNT+5
IYR	SETARR+1~, SETARR+5*, SETARR+6, SETARR+7, SETARR+8, SETARR+10
LSTMT	RECCHK+1~, RECCHK+14*, RECCHK+15
MTIEN	RECCHK+1~, RECCHK+16, RECCHK+17, RECCHK+19, SETARR+3, SETARR+7, SETARR+10
MTSTAT	RECCHK+1~, RECCHK+16, RECCHK+19, RECCHK+20
REC31	CHKREC+1~, CHKREC+4, CHKREC+5, CHKREC+7, CHKREC+8, CHKREC+10, SETREC~, SETREC+6, SETREC+7
STA	RECCHK+1~, RECCHK+7*
U	RECCHK+15, RECCHK+19, SETARR+10
X	PRE+2~, PRE+14
X1	PRE+2~, PRE+11*
X2	PRE+2~, PRE+12*
>> XPDNM	PRE+3, EN+3, RECCHK+5, RECCHK+6, RECCHK+28, CHKREC+14
YR	RECCHK+1~