Routine: DG284PT1

Information

DG284PT1 ;alb/sek-DG*5.3*284 post-install utilities ;4/20/2000

Source file <DG284PT1.m>

Package	Total	Call Graph
Kernel	1	($$DT,$$FMTE)^XLFDT
VA Fileman	1	(FILE,WP)^DIE

Package	Total	Caller Graph
Registration	2	DG284PT DG284PT2

Name	Comments	DBIA/ICR reference
ERRS(FILE,RECORD,ERRORS)
F31	; fields in 408.31 to be edited...
COUNT(DATE)	; update process tracking mechanisms... ; DATE = inverse date from "AID" x-ref in 408.31
F21	; fields in 408.21 to be edited...
F22	; fields in 408.22 to be edited...
EDIT(FILE,IEN,ERR)	; edit records... ; FILE = file number to be edited ; IEN = record number to be edited ; ERR = passed by reference as 0, returned as 1 if errors ; occured during DBS call
BLDSTR(NSTR,STR,COL,NSL)
SRCE(X)	; get source of test... ; X = pointer to 408.34 ; returns SOURCE OF INCOME TEST

FileNo	Call Tags
^DGMT(408.31 - [#408.31]	WP^DIE

Name	Line Occurrences (* Changed, ! Killed)
^DG(408.34 - [#408.34]	SRCE+3
^XTMP("DGMTPAT"	COUNT+4*
^XTMP("DGMTPERR"	ERRS+8, ERRS+11

Name	Line Occurrences
ERRS	EDIT+17, EDIT+27

Name	Field # of Occurrence
%	COUNT+2~
COL	BLDSTR~, BLDSTR+7
DATE	COUNT~, COUNT+3
DGMTEDIT	EDIT+5~, EDIT+21!
DGMTEDIT(	EDIT+9, EDIT+12
DGMTEDIT(1	EDIT+22*
DGMTEDIT(2	EDIT+23*
DGMTEDIT(3	EDIT+24*
DGMTERR	EDIT+5~, EDIT+15!, EDIT+17, EDIT+25!, EDIT+27
DGMTFLD	EDIT+5~, EDIT+8, EDIT+9, ERRS+4~, ERRS+7, ERRS+8, ERRS+11
DGMTIY	COUNT+2~, COUNT+3*, COUNT+4
DGMTTEXT	EDIT+5~, EDIT+6*
DGMTX	ERRS+4~, ERRS+5, ERRS+6, ERRS+7, ERRS+10, ERRS+11
DGMTY	ERRS+4~, ERRS+9, ERRS+10, ERRS+11
DIERR	EDIT+5~, EDIT+15!, EDIT+17, EDIT+25!, EDIT+27
ERR	EDIT~, EDIT+17, EDIT+27
ERRORS	ERRS~
ERRORS("DIERR"	ERRS+6, ERRS+7, ERRS+10, ERRS+11
FILE	EDIT~, EDIT+6, EDIT+9, EDIT+12, EDIT+17, EDIT+20, EDIT+27, ERRS~, ERRS+8, ERRS+11
I	EDIT+5~, EDIT+7*
IEN	EDIT~, EDIT+9, EDIT+12, EDIT+17, EDIT+26, EDIT+27
NSL	BLDSTR~, BLDSTR+7
NSTR	BLDSTR~, BLDSTR+7
RECORD	ERRS~, ERRS+8, ERRS+11
STR	BLDSTR~, BLDSTR+7
X	SRCE~, SRCE+3

Name	Field # of Occurrence
$T(@DGMTTEXT+I	EDIT+7, EDIT+8