Routine: DGRP7CC

Information

DGRP7CC ;BAJ,EG - REGISTRATION SCREEN 7/CROSS REFERENCE CLEANUP ;10/24/2006

Source file <DGRP7CC.m>

Package	Total	Call Graph
Registration	1	$$UPD^DGENDBS
VA Fileman	1	^DIK

Package	Total	Caller Graph
Registration	4	DGRPTX DGRPX7 DGRPXR ^DPT

Name	Comments	DBIA/ICR reference
NVETNSC	;;SC LESS THAN 50%;SERVICE CONNECTED 50% to 100%;NSC, VA PENSION;AID & ATTENDANCE;HOUSEBOUND;ALLIED VETERAN;
EN	; entry point
OELIG(DFN)	;remove sc codes from other eligibility
DELSVC(DFN)	; Delete Service Connected Conditions
DATA	;These are the fields to be changed
CHNGD(DFN)

Name	Field # of Occurrence
$$UPD^DGENDBS	EN+13
^DIK	DELSVC+3, OELIG+8

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	CHNGD+4, CHNGD+7
^DIC(8 - [#8]	OELIG+5
^DPT - [#2]	EN+8!, EN+18*, CHNGD+3, CHNGD+7, DELSVC+3, OELIG+3, OELIG+4

Name	Field # of Occurrence
CNT	EN+3~, EN+9*
DA	EN+4, DELSVC+1~, DELSVC+3, OELIG+1~, OELIG+3, OELIG+4
DA(1	OELIG+7*
DATA	EN+3~, EN+13
DATA(	EN+11*
DE	OELIG+1~
DFN	EN+5, EN+8, EN+15, EN+17, EN+18, CHNGD~, CHNGD+3, CHNGD+7, DELSVC~, DELSVC+2 , DELSVC+3, OELIG~, OELIG+2, OELIG+3, OELIG+4, OELIG+7
DGENDA	EN+3~, EN+4*, EN+13
DIK	DELSVC+1~, DELSVC+2, OELIG+1~, OELIG+2
ERROR	EN+3~, EN+13
FIELD	EN+3~, EN+9*, EN+10, EN+11
IEN	OELIG+1~, OELIG+4*, OELIG+5
OLD	OELIG+1~
U	CHNGD+4, CHNGD+7
VAL	EN+3~, EN+10, EN+11, OELIG+1~, OELIG+5, OELIG+6
X	EN+3~, EN+13, EN+17, CHNGD+1~, CHNGD+3, CHNGD+4, CHNGD+7, CHNGD+10
Y	CHNGD+1~
Y(0	CHNGD+4
Y(1	CHNGD+4, CHNGD+7
Y(2	CHNGD+7*

Name	Field # of Occurrence
$T(DATA+CNT	EN+9
$T(NVETNSC	OELIG+6