Routine: DG53426

Package	Total	Call Graph
Registration	5	$$EN^DG53426D (CAT1A,CAT1AP,CAT1B,CAT1BR,NOCAT2)^DG53426M (CAT2P,CAT3,CAT4,NOCAT3,NOCAT4)^DG53426N ($$AGTP,MTDA)^DG53426U ($$LST,$$LVMT)^DGMTU
Kernel	2	($$DT,$$FMTE,$$NOW)^XLFDT ($$NEWCP,$$UPCP,$$VERCP,BMES,MES)^XPDUTL
VA FileMan	1	C^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
EN	; MAIN ENTRY POINT
INIT	; Initialize tracking globals and associated checkpoints.
EN1	; control the logic from this point.
PSI	; MAIN SEARCH ENGINE
PSII	; Phase II - Process data from Phase I search. Parse the data ; according to which group it belongs to, the groups are:
CAT1A	; This tag will process those veterans who are in Category 1 ; - Subcategory 1a - Vets who are in a REQUIRED status but have ; a previous test after 10/5/99 of Cat C or ; pending Adjudication & have agreed to Pay. ; REQUIRED test will be purged (Event driver is ; invoked). ; - Subcategory 1b - Vets who are in a REQUIRED status but have ; a previous test before 10/6/99 or Cat C or ; Pending Adjudication & have agreed to pay. ; (No action taken on these folks other than to ; report them to site for further action -- remain ; in a REQUIRED status.)
CAT1B	; Process Cat 1b tests - See DG53426U for info on classification.
CAT2	; Process Cat 2 vets - See DG53426U for info on classification.
CAT3	; Process Cat 3 vets - See DG53426U for info on classification.
CAT4	; Process Cat 4 vets - See DG53426U for info on classification.

Name	Field # of Occurrence
C^%DTC	INIT+13
$$EN^DG53426D	CAT1A+25, CAT2+15
CAT1A^DG53426M	CAT1A+14
CAT1AP^DG53426M	CAT1A+31
CAT1B^DG53426M	CAT1B+3
CAT1BR^DG53426M	CAT1B+7
NOCAT2^DG53426M	CAT2+4
CAT2P^DG53426N	CAT2+21
CAT3^DG53426N	CAT3+8
CAT4^DG53426N	CAT4+8
NOCAT3^DG53426N	CAT3+4
NOCAT4^DG53426N	CAT4+4
$$AGTP^DG53426U	PSII+17
MTDA^DG53426U	PSI+23
$$LST^DGMTU	PSI+13
$$LVMT^DGMTU	PSI+19
$$DT^XLFDT	INIT+14
$$FMTE^XLFDT	EN1+2, PSI+3, PSI+27, PSII+23, CAT1A+12, CAT1A+15, CAT1A+31, CAT1B+1, CAT1B+4, CAT1B+8 , CAT2+2, CAT2+5, CAT2+21, CAT3+2, CAT3+5, CAT3+9, CAT4+2, CAT4+5, CAT4+9
$$NOW^XLFDT	EN1+2, PSI+3, PSI+27, PSII+23, CAT1A+12, CAT1A+15, CAT1A+31, CAT1B+1, CAT1B+4, CAT1B+8 , CAT2+2, CAT2+5, CAT2+21, CAT3+2, CAT3+5, CAT3+9, CAT4+2, CAT4+5, CAT4+9
$$NEWCP^XPDUTL	INIT+6, INIT+8
$$UPCP^XPDUTL	PSII+20
$$VERCP^XPDUTL	INIT+5, INIT+7, INIT+20
BMES^XPDUTL	EN1+2, PSI+1, PSI+3, PSI+4, PSI+27, PSII+12, PSII+23, CAT1A+12, CAT1A+15, CAT1A+31 , CAT1B+1, CAT1B+4, CAT1B+8, CAT2+2, CAT2+5, CAT2+21, CAT3+2, CAT3+5, CAT3+9, CAT4+2 , CAT4+5, CAT4+9
MES^XPDUTL	EN1+2, PSI+2

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	CAT1A+21, CAT1A+22, CAT1A+23, CAT1A+24, CAT2+11, CAT2+12, CAT2+13, CAT2+14
^DPT - [#2]	PSI+7, PSI+9
^TMP("P-REQ"	CAT1A+24, CAT1A+31, CAT2+14, CAT2+21
^TMP($J	INIT+1!, EN1+2, PSII+11, PSII+15, PSII+17, PSII+18*, PSII+21!, CAT1A+13, CAT1A+17, CAT1A+19 , CAT1A+20, CAT1B+2, CAT1B+6, CAT2+3, CAT2+7, CAT2+9, CAT2+10, CAT3+3, CAT3+7, CAT4+3 , CAT4+7
^XTMP("DG-"	INIT+12, INIT+14, INIT+15
^XTMP("DG-DFN"	INIT+1!, INIT+16, INIT+21, PSII+19*
^XTMP("DG-REQIEN"	INIT+1!, INIT+16, INIT+22

Name	Field # of Occurrence
%	INIT+2~, INIT+6, INIT+8, INIT+20, INIT+23, INIT+24, PSII+20*
CAT	PSII+13~, PSII+17*, PSII+18
DFN	PSI+5~, PSI+6, PSI+7, PSI+9, PSI+13, PSI+19, PSI+23, PSII+13~, PSII+14, PSII+15 , PSII+17, PSII+18, PSII+20, PSII+21, CAT1A+18~, CAT1A+19, CAT1A+20, CAT1A+21, CAT1A+22, CAT1A+24 , CAT2+8~, CAT2+9, CAT2+10, CAT2+11, CAT2+12, CAT2+14
DGCDAT	CAT1A+18~, CAT1A+20, CAT1A+21, CAT2+8~, CAT2+10, CAT2+11
DGCNT	PSI+5~, PSI+7, PSI+8, PSII+13~, PSII+15, PSII+16
DGDOA	PSI+5~, PSI+9*, PSI+11
DGMTDT	PSI+5~, PSI+6, CAT1A+18~, CAT1A+21, CAT1A+22, CAT2+8~, CAT2+11*, CAT2+12
DGMTI	PSII+13~, PSII+14, PSII+17
DGMTLST	PSI+12~, PSI+13*
DGMTLVT	PSI+18~, PSI+19*
DGMTLVTS	PSI+18~, PSI+19*, PSI+20
DGMTSTAT	PSI+12~, PSI+13*, PSI+16
DT	INIT+13
I	INIT+2~, INIT+11*, INIT+12, INIT+14, INIT+15
IEN	CAT1A+18~, CAT1A+22, CAT1A+23, CAT1A+24, CAT1A+25, CAT2+8~, CAT2+12, CAT2+13, CAT2+14, CAT2+15
MTIEN	PSI+5~, PSI+6*
U	INIT+14, PSI+9, PSI+13, PSI+19, CAT1A+20, CAT1A+23, CAT2+10, CAT2+13
X	INIT+2~, INIT+14
X1	INIT+2~, INIT+13*
X2	INIT+2~, INIT+13*
>> XPDNM	INIT+4, INIT+16, INIT+20, PSII+20
>> ZTQUEUED	PSI+8, PSII+16