Routine: DGRPE1

Package	Total	Call Graph
Registration	3	LINE^DGEN $$UPD^DGENDBS XMY^DGMTUTL
MailMan	1	^XMD
VA Fileman	1	(,FILE)^DIE

Package	Total	Caller Graph
Registration	1	DGRPE

Entry Points

Name	Comments	DBIA/ICR reference
VETTYPE	;
BULL	; Rated Disabilities update bulletin
701	;;391;D SC7^DGRPV;1901;.301;S:X'="Y" Y=.313;.302;.313;.312;
702	;;.361;D AAC1^DGLOCK2 S:DGAAC(1)']"" Y=361;.309;361;.323;D ^DGYZODS;S:'DGODS Y=.36265;11500.02;11500.03;.36265;S:X='"Y" Y="@72";.3626;@72;
703	;;.3731;
EFF	;
S
1102	;;.306;
1103	;;.322;
1104	;;D VETTYPE^DGRPE1;D MSG^DGRPE1 S Y=0;@114;K DGRDCHG;D DR^DGRPE1;.302;.3721;D EFF^DGRPE1;D:$G(DGRDCHG) BULL^DGRPE1;K DGRDCHG;
1101	;;.3611;.3612;.3614;.3615;
MSG
DR	;
1002	;;.153;S:X="" Y="@102";.1657:.1659;.16;@102;
1001	;;.152;S:X="" Y="@101";.1651;.1653;.1654;.307;.1656;@101;

Name	Field # of Occurrence
LINE^DGEN	BULL+12, BULL+13, BULL+14, BULL+15, BULL+16, BULL+17, BULL+18
$$UPD^DGENDBS	DGRPE1+14
XMY^DGMTUTL	BULL+7
^DIE	DGRPE1+8
FILE^DIE	EFF+3
^XMD	BULL+19

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Patient is not a veteran. Can't enter rated disabilities",! Line Location: MSG+0
Routine Call	DIE Line Location: DGRPE1+8
Routine Call	DIE Line Location: EFF+3

Name	Line Occurrences (* Changed, ! Killed)
^DG(391 - [#391]	VETTYPE+2
^DPT - [#2]	DGRPE1+10, BULL+8, DR+2, EFF+1, VETTYPE+1
^XMB(3.8 - [#3.8]	BULL+5

Name	Line Occurrences
S	DGRPE1+5

Name	Field # of Occurrence
>> DATA	DGRPE1+14
>> DATA(	DGRPE1+12, DGRPE1+13
>> DFN	DGRPE1+10, DGRPE1+14, BULL+8, DR+2, EFF+1, EFF+2, VETTYPE+1
DGBULL	BULL+4~
DGCT	DGRPE1+8!, S+1*
DGDR	DGRPE1+5, DGRPE1+8!
DGDRD	DGRPE1+5*, DGRPE1+8!, S, S+1
DGDRS	DGRPE1+8!, S, S+1*
>> DGELG	DGRPE1+10*, DGRPE1+12, DGRPE1+13
DGFDA	EFF+4!
DGFDA(2	EFF+2*
DGLINE	BULL+4~, BULL+11*, BULL+12, BULL+13, BULL+14, BULL+15, BULL+16, BULL+17, BULL+18
DGMGRP	BULL+4~, BULL+5*, BULL+6, BULL+7
DGNAME	BULL+4~, BULL+8*, BULL+12
>> DGRPS	DGRPE1+5, DGRPE1+6
DGSCPC	DR+1!, DR+2*, EFF+1, EFF+4!
>> DGSSN	BULL+8*, BULL+13
DGXEL	DGRPE1+11~, DGRPE1+12*, DGRPE1+13
DIE	DGRPE1+8!
DIFROM	BULL+4~
DR	DGRPE1+6*, DGRPE1+8!
DR(2	DR+3*
I	DGRPE1+5*, DGRPE1+8!
J	DGRPE1+5*, DGRPE1+8!
J1	DGRPE1+5*, DGRPE1+8!
U	DGRPE1+12, DGRPE1+13, DR+2, EFF+1
VA	BULL+4~
VAERR	BULL+4~
XMDUZ	BULL+4~
XMSUB	BULL+4~, BULL+10*
XMTEXT	BULL+4~, BULL+9*
>> Y	VETTYPE+1, VETTYPE+2

Name	Field # of Occurrence
$T(@J1	DGRPE1+5