Routine: DGRPLE

Information

DGRPLE ;WAS/ERC/RMM,ALB/CKN - REGISTRATION EDITS OF PURPLE HEART FIELDS ; 11/22/05 4:13pm

Source Information

Source file <DGRPLE.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC ^DIE GETS^DIQ ^DIR
Registration	3	($$ADD,$$UPD)^DGENDBS ADDMSG^DGENUPL3 ($$PRIM,$$SITE)^VASITE
Kernel	1	$$NOW^XLFDT

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Registration	5	DGENPTA1 DGRPE DGRPTI DGRPTX17 DGRPTX18

Entry Points

Name	Comments	DBIA/ICR reference
CHANGE(DGPH1,DGPH2,DGPH3,DGPHDFN)	;Check to see if the entry has changed ; Input: ; DGPH1 - PH Indicator ; DGPH2 - PH Status ; DGPH3 - PH Remarks ; DGPHDFN- Patient file IEN
EDITPH1(DGUSER)	; ; Input: DGUSER - Person filing Purple Heart changes
DIV()	;Get Institution Name
EDITPOW(DG1,DG2,DG3,DG4,DGDFN)	;entry from enrollment for HEC updates ; DGDFN - Patient File IEN ; DG1 - POW Indicator ; DG2 - POW Confinement Location ; DG3 - POW From Date ; DG4 - POW To Date ; Update POW data from HEC - DG5.3653
REDIE(DGPCE)	; make sure value in PH Status and PH Remarks consistent ; with value of PH Indicator
EDITPH(DG1,DG2,DG3,DGDFN)	;entry from enrollment for HEC updates ; DGDFN - Patient File IEN ; DG1 - PH Indicator ; DG2 - PH Status ; DG3 - PH Remarks
MULTDIV()	;User selects from active divisions
EDITPH2(DG1,DG2,DG3,DG4)	;stuff PH values into the PH multiple of file #2
AUDITQ

External References

Name	Field # of Occurrence
NOW^%DTC	EDITPH+20, EDITPH2+5
$$ADD^DGENDBS	EDITPH+23
$$UPD^DGENDBS	EDITPOW+22, EDITPH+11
ADDMSG^DGENUPL3	EDITPOW+23, EDITPH+12, EDITPH+24
^DIC	EDITPH2+8
^DIE	REDIE+5
GETS^DIQ	CHANGE+25
^DIR	MULTDIV+11
$$PRIM^VASITE	DIV+11
$$SITE^VASITE	DIV+12
$$NOW^XLFDT	EDITPOW+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIV+11
^DPT - [#2]	EDITPOW+9, EDITPH+15, EDITPH+16, EDITPH1+7, REDIE+6, CHANGE+23
^VA(200 - [#200]	EDITPH1+5

Label References

Name	Line Occurrences
$$CHANGE	EDITPH+18, EDITPH1+13
$$MULTDIV	DIV+11
AUDITQ	CHANGE+24, CHANGE+26
EDITPH2	EDITPH1+13
REDIE	EDITPH1+10, EDITPH1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EDITPH+6~, EDITPH+21, EDITPH2+5
CURPOW	EDITPOW+7~, EDITPOW+9*, EDITPOW+10, EDITPOW+11
DA	EDITPH2+1, EDITPH2+2~, REDIE+2~, REDIE+4*
DA(1	EDITPH2+4*
DATA	EDITPOW+7~, EDITPOW+22, EDITPOW+24!, EDITPH+6~, EDITPH+11, EDITPH+13!, EDITPH+23, EDITPH+25!
DATA(	EDITPOW+12, EDITPOW+16, EDITPOW+19, EDITPOW+20, EDITPOW+21, EDITPH+8, EDITPH+9, EDITPH+10, EDITPH+21*
DATA(1	EDITPH+21*
DATA(2	EDITPH+21*
DATA(3	EDITPH+21*
DATA(4	EDITPH+22*
>> DFN	EDITPH1+7, EDITPH1+13, EDITPH2+1*, EDITPH2+3, EDITPH2+4, REDIE+4, REDIE+6
DG	EDITPH1+6~
DG(	EDITPH1+12*
DG(1	EDITPH+8*, EDITPH+18, EDITPH+21, EDITPH1+13
DG(2	EDITPH+9*, EDITPH+18, EDITPH+21, EDITPH1+13
DG(3	EDITPH+10*, EDITPH+18, EDITPH+21, EDITPH1+13
DG1	EDITPOW~, EDITPOW+12, EDITPOW+16, EDITPOW+19, EDITPOW+20, EDITPOW+21, EDITPOW+24!, EDITPH~, EDITPH+8, EDITPH+9 , EDITPH+10, EDITPH2~
DG2	EDITPOW~, EDITPOW+19, EDITPOW+24!, EDITPH~, EDITPH+9, EDITPH2~
DG3	EDITPOW~, EDITPOW+20, EDITPOW+24!, EDITPH~, EDITPH+10, EDITPH2~
DG4	EDITPOW~, EDITPOW+21, EDITPOW+24!, EDITPH2~
DGARR	CHANGE+13~
DGARR(	CHANGE+27
DGCHG	CHANGE+12~, CHANGE+21, CHANGE+24, CHANGE+26, CHANGE+29, AUDITQ
DGDFN	EDITPOW~, EDITPOW+8, EDITPOW+9, EDITPH~, EDITPH+7, EDITPH+15, EDITPH+16, EDITPH+18, EDITPH+22
DGDIV	DIV+10~, DIV+11*, DIV+12
DGENDA	EDITPOW+7~, EDITPOW+8, EDITPOW+22, EDITPOW+24!, EDITPH+6~, EDITPH+7, EDITPH+11, EDITPH+13!, EDITPH+23, EDITPH+25!
DGENDA(1	EDITPH+22*
DGERR	CHANGE+15~, CHANGE+26
DGFILE	CHANGE+17~, CHANGE+22*, CHANGE+25, CHANGE+27
DGI	CHANGE+18~, CHANGE+28*, CHANGE+30, CHANGE+31
DGIEN	CHANGE+16~, CHANGE+23*, CHANGE+24, CHANGE+25, CHANGE+27
DGNAM	DIV+10~, DIV+13*, DIV+14
DGPCE	REDIE~, REDIE+3
DGPH1	CHANGE~, CHANGE+31
DGPH2	CHANGE~
DGPH3	CHANGE~
DGPHARR	EDITPH+6~, EDITPH+16, EDITPH1+6~, EDITPH1+7, EDITPH1+10, EDITPH1+11, EDITPH1+12, REDIE+6*
DGPHDFN	CHANGE~, CHANGE+23, CHANGE+25, CHANGE+27
DGPHINC	CHANGE+20!, CHANGE+31*
DGPHVAL	CHANGE+14~, CHANGE+27*
DGPHVAL(	CHANGE+28, CHANGE+31
DGSTN	DIV+10~, DIV+12*, DIV+13
DGUSER	EDITPH+6~, EDITPH+16, EDITPH+22, EDITPH1~, EDITPH1+5, EDITPH1+13
DGX	EDITPH1+6~, EDITPH1+12*
DIC	EDITPH2+2~, EDITPH2+3*
DIC("DR"	EDITPH2+7*
DIC(0	EDITPH2+6*
DIE	EDITPH2+2~, REDIE+2~, REDIE+3*
DIR	MULTDIV+7~
DIR("A"	MULTDIV+9*
DIR("S"	MULTDIV+10*
DIR(0	MULTDIV+8*
DR	REDIE+2~, REDIE+3*
DUZ	EDITPH1+5
ERROR	EDITPOW+7~, EDITPOW+22, EDITPOW+24!, EDITPH+6~, EDITPH+11, EDITPH+13!, EDITPH+23, EDITPH+25!
>> MSGS	EDITPOW+23, EDITPH+12, EDITPH+24
POW	EDITPOW+7~
POW(	EDITPOW+10, EDITPOW+11, EDITPOW+16
U	DIV+13, EDITPH1+5, EDITPH1+10, EDITPH1+11, EDITPH1+12
X	MULTDIV+7~, EDITPH2+5*
Y	MULTDIV+7~, MULTDIV+12

Customize PDF page

Package: Registration

Routine: DGRPLE

Call Graph Total: 9

Caller Graph Total: 5