Routine: DGRP6CL1

Package	Total	Call Graph
Registration	5	($$DAT,$$YN)^DGRP6CL $$ISVALID^DGRP6CL2 $$GETCNFDT^DGRPDT $$VALCON^DGRPMS $$SITE^VASITE
VA Fileman	4	FILE^DICN ^DIE ^DIK ^DIR

Package	Total	Caller Graph
Registration	1	DGRP6CL

Entry Points

Name	Comments	DBIA/ICR reference
LOOPCNF(DGCONF,DGPOSS,DIR)	; Loop thru non-OEF/OIF conflicts ; DGCONF,DGPOSS = arrays from DGRP6CL containing conflict data ; Returns DIR array for screen display of conflicts
NOCHG	;Only from,to dates can be chged on locally entered OEF/OIF conflict data
HELP(SET)	;Help text for reader prompt for conflict to add/edit/delete
EDCFL(DFN,IEN,VEDIT)	; Edit OEF/OIF conflict from/to dates only or delete entry
CKDT(DGCONF,DGMSE,DGPOSS)	; Check dates for conflict in DGCONF(DGCONF)= ; fr date^to date are valid against military service episodes (DGMSE) ; for the patient and if no dates, if the MSE's would support that ; conflict being entered. ; Assume DFN exists ; FUNCTION returns ; DGCONF(DGCONF,1)=1 if MSE inconsistency found,0 if none ; Also returns DGPOSS(DGCONF) if patient has no dates for the ; conflict, but the MSE's indicate entry of the conflict would ; not be inconsistent.
ADDCFL(DFN,DGY,DGCONF,SRC)	; Add a new OEF/OIF conflict entry ; DFN = patient ien ; DGY = 1 for OIF, 2 for OEF, 3 for UNKNOWN OEF/OIF ; DGCONF = the conflict record being added (OEF/OIF/ UNKNOWN OEF/OIF) ; SRC = 1 if HEC data (locked) or 0 if site entered ; If SRC is passed by reference, it must contain the values needed ; to 'stuff' a new record into the file at the fld # subscript level ; SRC(.02)=from dt SRC(.03)=to dt SRC(.04)=1 if HEC source of data ; SRC("OK") is returned as 1 if filing was successful or as the ; reason why the data was not filed if unsuccessful
DELCFL(DFN)	; Delete all existing OEF/OIF episodes for a patient ; DFN = patient ien

External References

Name	Field # of Occurrence
$$DAT^DGRP6CL	LOOPCNF+8, LOOPCNF+9, LOOPCNF+10, LOOPCNF+11, LOOPCNF+12, LOOPCNF+13, LOOPCNF+14
$$YN^DGRP6CL	LOOPCNF+8, LOOPCNF+9, LOOPCNF+10, LOOPCNF+11, LOOPCNF+12, LOOPCNF+13, LOOPCNF+14
$$ISVALID^DGRP6CL2	LOOPCNF+6
$$GETCNFDT^DGRPDT	CKDT+12
$$VALCON^DGRPMS	CKDT+22
FILE^DICN	ADDCFL+23
^DIE	EDCFL+6
^DIK	DELCFL+3, ADDCFL+26
^DIR	ADDCFL+28, NOCHG+2, HELP+7
$$SITE^VASITE	ADDCFL+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"WARNING - THIS CONFLICT IS INCONSISTENT WITH MILITARY SERVICE DATA",! Line Location: EDCFL+2
Function Call: WRITE	Prompt: !!,"Adding NEW "_DGCONF_" conflict data ...",! Line Location: ADDCFL+17
Function Call: WRITE	Prompt: ! Line Location: NOCHG+2
Function Call: WRITE	Prompt: ! Line Location: NOCHG+2
Function Call: WRITE	Prompt: !!,"Those conflicts with a number enclosed in brackets ""[]"" are valid",!,"for the veteran while those enclosed in arrows ""<>"" are not.",! Line Location: HELP+2
Function Call: WRITE	Prompt: !,$J("",5),"Select one of the following:",! Line Location: HELP+3
Function Call: WRITE	Prompt: !,$J("",15),$E($P(Z0,":")_$J("",10),1,10)_$P(Z0,":",2) Line Location: HELP+4
Function Call: WRITE	Prompt: ! Line Location: HELP+5
Routine Call	DIE Line Location: EDCFL+6
Routine Call	DIR Line Location: ADDCFL+28 NOCHG+2 HELP+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DELCFL+3, EDCFL+3, EDCFL+4, ADDCFL+24

Naked Globals

Name	Field # of Occurrence
^(	DELCFL+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CRNG	CKDT+11~, CKDT+12*, CKDT+17
DA	DELCFL+2~, DELCFL+3, EDCFL+1~, EDCFL+5, ADDCFL+11~, ADDCFL+26*
DA(1	DELCFL+3, EDCFL+5, ADDCFL+23, ADDCFL+26
DD	ADDCFL+11~, ADDCFL+23!
DFN	DELCFL~, DELCFL+3, EDCFL~, EDCFL+3, EDCFL+4, EDCFL+5, ADDCFL~, ADDCFL+23, ADDCFL+24, ADDCFL+26 , CKDT+22
DG	DELCFL+2~, DELCFL+3, LOOPCNF+6, LOOPCNF+7
>> DG321	LOOPCNF+8
>> DG322	LOOPCNF+9, LOOPCNF+10, LOOPCNF+11, LOOPCNF+12, LOOPCNF+13, LOOPCNF+14
DGCONF	ADDCFL~, ADDCFL+17, CKDT~, CKDT+12, CKDT+13, CKDT+14, CKDT+16, CKDT+18, CKDT+22, CKDT+23 , LOOPCNF~, LOOPCNF+6*, LOOPCNF+7
DGCONF(	CKDT+13, CKDT+14, CKDT+22, CKDT+23, LOOPCNF+6, LOOPCNF+7
>> DGCT	LOOPCNF+7*, LOOPCNF+8, LOOPCNF+9, LOOPCNF+10, LOOPCNF+11, LOOPCNF+12, LOOPCNF+13, LOOPCNF+14
DGFORCE	ADDCFL+11~, ADDCFL+12*, ADDCFL+13, ADDCFL+16, ADDCFL+20, ADDCFL+27, ADDCFL+28, ADDCFL+29
DGMSE	CKDT~
DGMSE(	CKDT+16, CKDT+17
DGMSE(""	CKDT+21
DGOK	CKDT+11~, CKDT+20, CKDT+21, CKDT+22*, CKDT+23
DGPOSS	CKDT~, LOOPCNF~, LOOPCNF+6
DGPOSS(	CKDT+16, CKDT+18*
DGX	LOOPCNF+3~, LOOPCNF+4*, LOOPCNF+5
DGX1	LOOPCNF+3~, LOOPCNF+5*, LOOPCNF+6, LOOPCNF+7, LOOPCNF+8, LOOPCNF+9, LOOPCNF+10, LOOPCNF+11, LOOPCNF+12, LOOPCNF+13 , LOOPCNF+14
DGY	ADDCFL~, ADDCFL+14
DIC	ADDCFL+11~, ADDCFL+23*
DIC("DR"	ADDCFL+14, ADDCFL+18, ADDCFL+21*
DIC(0	ADDCFL+23*
DIE	EDCFL+1~, EDCFL+5*
DIK	DELCFL+2~, DELCFL+3, ADDCFL+11~, ADDCFL+26
DIPA	EDCFL+1~
DIPA(	EDCFL+4*, EDCFL+5
DIR	ADDCFL+11~, ADDCFL+28!, NOCHG+1~, NOCHG+2!, HELP+6~, LOOPCNF~
DIR("A"	ADDCFL+28, NOCHG+2, HELP+7, LOOPCNF+7, LOOPCNF+8, LOOPCNF+9, LOOPCNF+10, LOOPCNF+11, LOOPCNF+12, LOOPCNF+13 , LOOPCNF+14*
DIR(0	ADDCFL+28, NOCHG+2, HELP+7, LOOPCNF+6
DO	ADDCFL+11~, ADDCFL+23!
DR	EDCFL+1~, EDCFL+5*
DT	CKDT+22
DUZ(2	ADDCFL+18
FAIL	CKDT+11~, CKDT+21*, CKDT+22, CKDT+23
IEN	EDCFL~, EDCFL+3, EDCFL+4, EDCFL+5
LOOP	LOOPCNF+3~, LOOPCNF+5*
SET	HELP~, HELP+4
SRC	ADDCFL~, ADDCFL+14
SRC(	ADDCFL+13, ADDCFL+21
SRC(""	ADDCFL+12
SRC("OK"	ADDCFL+13, ADDCFL+27, ADDCFL+29*
U	EDCFL+3, ADDCFL+25, CKDT+13, CKDT+17, CKDT+22, LOOPCNF+5
VEDIT	EDCFL~, EDCFL+2
X	DELCFL+2~, EDCFL+1~, ADDCFL+11~, ADDCFL+14*, ADDCFL+15, NOCHG+1~, HELP+6~
Y	DELCFL+2~, EDCFL+1~, ADDCFL+11~, ADDCFL+24, ADDCFL+26, NOCHG+1~, HELP+6~
Z	CKDT+11~, CKDT+16, CKDT+17, CKDT+22, HELP+1~, HELP+4*
Z0	ADDCFL+11~, ADDCFL+24, ADDCFL+25, HELP+1~, HELP+4

Customize PDF page

Package: Registration

Routine: DGRP6CL1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: