Routine: DGRPE1

Package	Total	Call Graph
Registration	8	LINE^DGEN SETCLNO^DGENCLEA $$UPD^DGENDBS 133^DGMTDD5 XMY^DGMTUTL DEACTIVE^DGOTHEL RESMVQ^DGREGCP1 $$YN1316^DGRPE1
VA FileMan	4	YN^DICN (,FILE,UPDATE)^DIE $$GET1^DIQ ^DIR
Kernel	1	$$NOW^XLFDT
MailMan	1	^XMD

Package	Total	Caller Graph
Registration	3	DGADDUTL DGRPE DGRPE1

Entry Points

Name	Comments	DBIA/ICR reference
S
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;
1001	;;.152;S:X="" Y="@101";.1651;.1653;.1654;.307;.1656;@101;
1002	;;.153;S:X="" Y="@102";.1657:.1659;.16;@102;
1101	;;.3611;.3612;.3614;.3615;
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;
MSG
BULL	; Rated Disabilities update bulletin
DR	;
EFF	;
VETTYPE	;
DR207	; DG5.31085 - Prompt for PREFERRED LANGUAGE (#2.07,.02) ; DG5.31093; Add X,Y to NEW variables below - the call to ^DIR uses these vars
DR104()	;DG5.31111-Prompt for the PAGER NUMBER (#.135) field of the PATIENT file #2 only if currently populated
YN1316(DFN)	;Email address indicator - DG5.3865
P1316	;
DR115(DGEDIT)	; DG5.31143 - Editing for cell phone and email ; This tag is called when Real-time updates are enabled from 115^DGRPE and from PSOPAT^DGADDUTL for PSO PAT option ; Input: DGEDIT (optional) - if NULL both cell and email are prompted ; - "C" - edit cell phone ; - "E" - edit email (not coded at this time since no need for it.) ; Output: - Array DGADDGRP5 (must be NEW'd in the calling program - e.g. screen 1.1 logic) will contain updated email or phone ; - DGADDEDIT(5) (must be NEW'd in the calling program) is a flag to indicate thar an edit has occurred
ASKPH
EMI
EMAIL	; DG5.31143 Enter email address
DR11	;clt; DG5.3941 - Called from line tag 112 if Perm address in the patient file is empty ; Check if the user wants to copy Residential Address to Perm ; DG5.31143 - Quit if we already have data in the Mailing Address local array (when RTA updates are ON)
DR111	; Set DR string for Confidential Address categories ; DG5.31143 - this tag no longer used. This code is now done in DGREGTE2 when editing Confidential Address

External References

Name	Field # of Occurrence
LINE^DGEN	BULL+12, BULL+13, BULL+14, BULL+15, BULL+16, BULL+17, BULL+18
SETCLNO^DGENCLEA	DGRPE1+14
$$UPD^DGENDBS	DGRPE1+20
133^DGMTDD5	EMAIL+11
XMY^DGMTUTL	BULL+7
DEACTIVE^DGOTHEL	DGRPE1+10
RESMVQ^DGREGCP1	DR11+13
$$YN1316^DGRPE1	EMI+1
YN^DICN	P1316+3
^DIE	DGRPE1+9
FILE^DIE	EFF+3, P1316+12
UPDATE^DIE	DR207+16, DR104+46
$$GET1^DIQ	DGRPE1+10, DR207+5, DR104+8
^DIR	DR207+8, DR104+26, DR104+36, ASKPH+4, EMAIL+6
$$NOW^XLFDT	DR207+14, EMI+7
^XMD	BULL+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Patient is not a veteran. Can't enter rated disabilities",! Line Location: MSG+0
Function Call: WRITE	Prompt: $C(7),!!,"No language was entered.",! Line Location: DR207+10
Function Call: WRITE	Prompt: " <NOTHING DELETED>" Line Location: DR104+43
Function Call: WRITE	Prompt: !,"DOES THE PATIENT HAVE AN EMAIL ADDRESS? Y/N" Line Location: P1316+2
Function Call: WRITE	Prompt: !," If the patient has a valid Email Address, please answer with 'Yes'.",!," If no Email Address please answer with 'No'." Line Location: P1316+6
Function Call: WRITE	Prompt: !," EXIT NOT ALLOWED ??" Line Location: P1316+7
Function Call: WRITE	Prompt: !,*7,"Answer must be 10 numbers in length with an optional 'X' and 1-6 digit",!,"extension number allowed.",!! Line Location: ASKPH+10
Function Call: WRITE	Prompt: !," Exit not allowed" Line Location: EMAIL+8
Function Call: WRITE	Prompt: !!,*7,"Enter the applicant's email address [6-72 characters].",! Line Location: EMAIL+11
Function Call: WRITE	Prompt: !,"The Patient has no Mailing Address." Line Location: DR11+12
Routine Call	DIE Line Location: DGRPE1+9
Routine Call	DIE Line Location: EFF+3 P1316+12
Routine Call	DIE Line Location: DR207+16 DR104+46
Routine Call	DIR Line Location: DR207+8 DR104+26 DR104+36 ASKPH+4 EMAIL+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.07	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(391 - [#391]	VETTYPE+2
^DPT - [#2]	DGRPE1+16, BULL+8, DR+2, EFF+1, VETTYPE+1, DR207+3, DR207+4, ASKPH+17, EMI+7, DR11+6
^XMB(3.8 - [#3.8]	BULL+5

Label References

Name	Line Occurrences
ASKPH	ASKPH+10
EMAIL	EMI+5, EMAIL+8, EMAIL+11
EMI	EMI+5
P1316	P1316+6, P1316+7
S	DGRPE1+6

Naked Globals

Name	Field # of Occurrence
^("TYPE"	VETTYPE+2
^("VET"	VETTYPE+1
^(0	VETTYPE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	YN1316+1~, P1316+1*, P1316+6, P1316+7, P1316+8
DA	DR115+10~, ASKPH+3, EMAIL+1~, EMAIL+5
>> DATA	DGRPE1+20
>> DATA(	DGRPE1+18, DGRPE1+19
DFN	DGRPE1+10, DGRPE1+16, DGRPE1+20, BULL+8, DR+2, EFF+1, EFF+2, VETTYPE+1, DR207+3, DR207+4 , DR207+5, DR207+14, DR207+15, DR104+8, DR104+27, YN1316~, P1316+10, P1316+11, ASKPH+3, ASKPH+17 , EMI+1, EMI+7, EMAIL+5, DR11+6, DR11+13
>> DGADDEDIT(5	ASKPH+13!, ASKPH+17, EMI+7, EMI+9!
>> DGADDGRP1(	DR11+6
>> DGADDGRP2(	DR11+3
DGADDGRP5	EMI+9!
DGADDGRP5(	ASKPH+2, ASKPH+15, EMI+3, EMI+5, EMI+7, EMAIL+4, EMAIL+22
DGBULL	BULL+4~
DGCT	DGRPE1+9!, S+1*
DGDATE	DR207+2~, DR207+3*, DR207+4
DGDR	DGRPE1+6, DGRPE1+9!
DGDRD	DGRPE1+6*, DGRPE1+9!, S, S+1
DGDRS	DGRPE1+9!, S, S+1*
DGEDIT	DR115~, DR115+9, ASKPH+19
>> DGELG	DGRPE1+16*, DGRPE1+18, DGRPE1+19
DGELIG	DGRPE1+10~*
DGERR	DR207+2~, DR104+12~
DGFDA	EFF+4!, DR207+2~, DR104+11~
DGFDA(	DR207+14, DR207+15
DGFDA(2	EFF+2, DR104+27
DGLANGNM	DR207+2~, DR207+5*, DR207+7, DR207+12
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+6, DGRPE1+7
DGSCPC	DR+1!, DR+2*, EFF+1, EFF+4!
>> DGSSN	BULL+8*, BULL+13
DGSUB	DR207+2~, DR207+4*, DR207+5
>> DGTMOT	DR104+30, DR104+39, P1316+5, ASKPH+5, EMI+1, EMI+5, EMAIL+7*, DR11+9
DGVAL	DR115+10~, ASKPH+9, ASKPH+10, ASKPH+11!, EMAIL+10*, EMAIL+11, EMAIL+14!, EMAIL+16!, EMAIL+18!, EMAIL+20!
DGX	EMAIL+20~*
DGXEL	DGRPE1+17~, DGRPE1+18*, DGRPE1+19
DIE	DGRPE1+9!
DIE("NO^"	YN1316+2*
DIFROM	BULL+4~
DIR	DR207+2~, DR104+13~, DR104+26!, DR104+36!, DR115+10~, ASKPH+7!, EMAIL+1~
DIR("A"	DR104+36*
DIR("B"	DR207+7, DR104+36, ASKPH+2, EMAIL+4
DIR(0	DR207+8, DR104+26, DR104+36, ASKPH, EMAIL+2*
DIROUT	DR104+23~, DR104+33, DR104+40, DR115+10~, ASKPH+6, EMAIL+1~, EMAIL+8
DIRUT	DR104+22~
DR	DGRPE1+7*, DGRPE1+9!
DR(2	DR+3, DR111+2
DTOUT	DR104+20~, DR104+30, DR104+39, P1316+5, DR115+10~, ASKPH+5, EMAIL+1~, EMAIL+7, DR11+8
DUOUT	DR104+21~, DR104+33, DR104+40, DR115+10~, ASKPH+6, EMAIL+1~, EMAIL+8
FDA	P1316+9~
FDA(2	P1316+11*
I	DGRPE1+6*, DGRPE1+9!
IENS	P1316+9~, P1316+11*
J	DGRPE1+6*, DGRPE1+9!
J1	DGRPE1+6*, DGRPE1+9!
RSLT	YN1316+1~, P1316+8*, P1316+11, P1316+13
U	DGRPE1+18, DGRPE1+19, DR+2, EFF+1
VA	BULL+4~
VAERR	BULL+4~
X	DR207+2~, DR104+16~, DR104+36~, DR104+43, DR115+10~, EMI+1*, EMI+3, EMI+5, EMAIL+1~
XMDUZ	BULL+4~
XMSUB	BULL+4~, BULL+10*
XMTEXT	BULL+4~, BULL+9*
Y	VETTYPE+1, VETTYPE+2, DR207+2~, DR207+10, DR207+11, DR207+12, DR207+15, DR104+17~, DR104+27, DR104+36~ , DR115+10~, ASKPH+9, ASKPH+15, ASKPH+17, EMAIL+1~, EMAIL+10, EMAIL+22

Marked Items

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

Customize PDF page

Package: Registration

Routine: DGRPE1

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items