Routine: DGRP6CL

Package	Total	Call Graph
Registration	7	GET^DGENOEIF GETMSE^DGMSEUTL (ADDCFL,CKDT,EDCFL,LOOPCNF)^DGRP6CL1 $$ISVALID^DGRP6CL2 $$GETDT^DGRPMS $$SSNNM^DGRPU CLEAR^VALM1
VA Fileman	3	^DIE $$EXTERNAL^DILFD ^DIR
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	6	DGRP6 DGRP6CL1 DGRP6CL2 DGRP6EF DGRPCE DGRPE

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
LEB	;;.3221//NO;S:X'="Y" Y="@67";.3222;Q;.3223;@67;
GULF	;;.32201//NO;S:X'="Y" Y="@610";.322011;Q;.322012;@610;
OIF	;;
SOM	;;.322016//NO;S:X'="Y" Y="@611";.322017;Q;.322018;@611;
SVCCOMP(X)	; Returns display text for service component
EN1	; Entry from conf subscreen off reg screen 6 ; Routine loops until exit/quit from subscreen
EN2	; Consistency checker re-edit entrypoint for OEF/OIF data
GETMSE	;Get Military Service Data and store in DGMSE array (DG5.3797)
YN(DGRPX,X)	;Format Yes/No fld in $P(DGRPX,U,X)
YUG	;;.322019//NO;S:X'="Y" Y="@615";.32202;Q;.322021;@615;
CLLST(DFN,DGCONF,DGPOSS,DGMSE)	; ; For patient DFN: ; Returns DGCONF array: DGCONF(conf loc)= Start dt^End dt ; or, for multiple OEF/OIF/ UNKNOWN OEF/OIF: DGCONF(conf loc-ien) = ; Start dt ^ End dt ^ Site source ^ Lock flag ; DGCONF(conflict loc,1)=1 if dts inconsistent w/mse dts ; DGPOSS = array of possible conflict locations, based on service ; episode dts DGPOSS(conf loc)="" ; DGMSE = array of military svc episodes ; DGMSE(1-n)=fr dt^to dt^branch ien^comp code
DAT(DGRPX,X,Z1)	; Format dt in $P(DGRPX,U,X) for a length of Z1
GREN	;;.3224//NO;S:X'="Y" Y="@68";.3225;Q;.3226;@68;
UNK	;;
VIET	;;.32101//NO;S:X'="Y" Y="@64";.32104;.32105;@64;
OEF	;;
PAN	;;.3227//NO;S:X'="Y" Y="@69";.3228;Q;.3229;@69;
EN(DFN,QUIT)	; Entry from reg screen 6

External References

Name	Field # of Occurrence
GET^DGENOEIF	CLLST+19, EN2+2
GETMSE^DGMSEUTL	GETMSE+5
ADDCFL^DGRP6CL1	EN1+68, EN1+72
CKDT^DGRP6CL1	CLLST+24, CLLST+27, CLLST+28
EDCFL^DGRP6CL1	EN1+75, EN1+80
LOOPCNF^DGRP6CL1	EN1+51
$$ISVALID^DGRP6CL2	EN1+33, EN1+42
$$GETDT^DGRPMS	CLLST+24, CLLST+28
$$SSNNM^DGRPU	EN1+16
^DIE	EN1+65, EN2+9
$$EXTERNAL^DILFD	EN1+21, EN2+8
^DIR	EN1+58, EN1+69, EN1+70, EN1+79
CLEAR^VALM1	EN1+2
$$FMTE^XLFDT	DAT+3, EN1+22, EN1+44

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"WARNING - THIS CONFLICT IS INCONSISTENT WITH MILITARY SERVICE DATA",! Line Location: EN1+64
Function Call: WRITE	Prompt: !!,"OEF/OIF CONFLICT: ",$$EXTERNAL^DILFD(2.3215,.01,"",$P(DGX,U))," FROM: "_$$EXTERNAL^DILFD(2.3215,.02,"",$P(DGX,U,2))," TO: "_$$EXTERNAL^DILFD(2.3215,.03,"",$P(DGX,U,3)) Line Location: EN2+8
Routine Call	DIE Line Location: EN1+65 EN2+9
Routine Call	DIR Line Location: EN1+58 EN1+69 EN1+70 EN1+79

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	EXTERNAL^DILFD
2.3215	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	EN1+48
^DPT - [#2]	GETMSE+4, GETMSE+9, EN1+12, EN1+15, EN1+36, EN2+7

Label References

Name	Line Occurrences
$$DAT	EN1+46
$$SVCCOMP	EN1+21
$$YN	EN1+36
CLLST	EN1+5
EN1	EN1+81
GETMSE	CLLST+14
QUIT	EN1+59

Naked Globals

Name	Field # of Occurrence
^(	GETMSE+9, EN1+12
^(0	EN1+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EN+1~, EN1+65!, EN2+6~, EN2+9
DA(1	EN2+9*
DFN	CLLST~, CLLST+19, CLLST+24, CLLST+28, GETMSE+4, GETMSE+5, GETMSE+9, EN~, EN1+5, EN1+12 , EN1+15, EN1+16, EN1+36, EN1+65, EN1+68, EN1+72, EN1+75, EN1+80, EN2+2, EN2+7 , EN2+9
DG	EN1+4~, EN1+33, EN1+36, EN1+42
DG32	GETMSE+3~, GETMSE+9*, GETMSE+12, GETMSE+13
DG321	EN1+4~, EN1+12*
DG322	EN1+4~, EN1+12*
DG3291	GETMSE+3~, GETMSE+9*, GETMSE+13
DGCONF	CLLST~, CLLST+12!, CLLST+23, CLLST+24, CLLST+27, CLLST+28, EN+1~, EN1+3!, EN1+5, EN1+32 , EN1+33, EN1+35, EN1+36, EN1+37, EN1+38, EN1+40, EN1+41, EN1+42, EN1+43, EN1+44 , EN1+46, EN1+47, EN1+49, EN1+51, EN1+61, EN1+63, EN1+64, EN1+67, EN1+68, EN1+69 , EN1+70, EN1+72, EN1+75, EN1+76, EN1+77, EN1+80
DGCONF(	CLLST+18, CLLST+23, CLLST+24, CLLST+25, CLLST+26, CLLST+28, EN1+11, EN1+36, EN1+37, EN1+41 , EN1+43, EN1+44*, EN1+46, EN1+47, EN1+49, EN1+64, EN1+68, EN1+69, EN1+70, EN1+75 , EN1+77, EN1+80
DGCONF1	EN+1~, EN1+40*, EN1+44
DGCONFS	EN+1~, EN1+3!, EN1+38*, EN1+40
DGCONFS(	EN1+11*, EN1+38, EN1+40
DGCONFX	CLLST+21~, CLLST+23*, CLLST+24, CLLST+25, CLLST+26
DGCT	EN1+4~, EN1+14, EN1+16, EN1+17, EN1+18, EN1+20, EN1+21, EN1+22, EN1+23, EN1+24 , EN1+25, EN1+36, EN1+45, EN1+46, EN1+49, EN1+50, EN1+52, EN1+53*
DGCTX	EN1+4~, EN1+8, EN1+36, EN1+41
DGDISP	EN1+3!, EN1+35*, EN1+36
DGEG	EN1+4~, EN1+30, EN1+34, EN1+36, EN1+37
DGEGS	EN1+4~, EN1+31*, EN1+32
DGIEN	EN1+39~, EN1+40*, EN1+44
DGM	EN1+4~, EN1+32, EN1+40, EN1+44, EN1+45, EN1+46
DGMSE	CLLST~, CLLST+24, CLLST+27, CLLST+28, EN+1~, EN1+3!, EN1+5
DGMSE(	GETMSE+7, GETMSE+13, EN1+19, EN1+21, EN1+22
DGMSE(0	EN1+18
DGMSG	EN+1~, EN1+3!, EN1+8, EN1+11, EN1+53
DGOEIF	EN2+1~, EN2+2
DGOEIF(	EN2+4
DGOEIF("COUNT"	EN2+3
DGOEIF("OEF"	EN2+3
DGOEIF("OIF"	EN2+3
DGPOSS	CLLST~, CLLST+12!, CLLST+24, CLLST+27, CLLST+28, EN+1~, EN1+3!, EN1+5, EN1+33, EN1+42 , EN1+51
DGPOSS(	EN1+37
DGQUIT	EN2+1~, EN2+5, EN2+9
>> DGRPV	EN1+6, EN1+7, EN1+37
>> DGRPVV(6	EN1+6, EN1+7
DGRPX	YN~, YN+1, DAT~, DAT+2
DGUN	EN1+39~, EN1+43*, EN1+44, EN1+49, EN1+50
DGX	EN1+4~, EN2+6~, EN2+7*, EN2+8
DGX1	EN1+4~
DGXREF	EN1+74~
DGXREF(	EN1+77*, EN1+80
DGY	EN1+4~, EN1+60*, EN1+61, EN1+62, EN1+63, EN1+66, EN1+67
DGY1	EN1+4~, EN1+60*, EN1+68, EN1+72
DGZ	CLLST+11~, CLLST+18, CLLST+19, CLLST+20, CLLST+23, GETMSE+3~, GETMSE+6, GETMSE+7, GETMSE+11, GETMSE+13 , EN1+4~, EN1+38, EN1+40, EN2+1~, EN2+5*, EN2+7, EN2+9
DGZ(	EN2+4*, EN2+5
DGZ("FR"	CLLST+22
DGZ("IEN"	CLLST+20
DGZ("LOC"	CLLST+23
DGZ("LOCK"	CLLST+26
DGZ("SITE"	CLLST+25
DGZ("TO"	CLLST+22
DGZ0	CLLST+11~, CLLST+20, CLLST+22, CLLST+23, CLLST+25, CLLST+26, GETMSE+3~, GETMSE+11, GETMSE+12, GETMSE+13
DGZ1	GETMSE+3~, GETMSE+10, GETMSE+13
DIE	EN+1~, EN1+65!, EN2+6~, EN2+9
DIPA	EN+1~
DIQUIET	CLLST+11~, CLLST+12*
DIR	EN+1~, EN1+4~, EN1+51, EN1+58!, EN1+69!, EN1+70!, EN1+74~, EN1+79!
DIR("?"	EN1+56*
DIR("A"	EN1+16, EN1+17, EN1+18, EN1+20, EN1+21, EN1+22, EN1+23, EN1+24, EN1+25, EN1+36 , EN1+41, EN1+46, EN1+49, EN1+50, EN1+52, EN1+53, EN1+54, EN1+69, EN1+70, EN1+76
DIR("B"	EN1+57, EN1+69, EN1+70*
DIR(0	EN1+14, EN1+37, EN1+55, EN1+69, EN1+70, EN1+76, EN1+77, EN1+78
DR	EN+1~, EN1+65!, EN2+6~, EN2+9
DTOUT	EN1+4~, EN1+59, EN1+71
DUOUT	EN1+4~, EN1+59, EN1+71
FRTO	CLLST+11~, CLLST+24, CLLST+28
IEN	EN1+74~, EN1+75*
LOOP	EN1+4~
MSE	GETMSE+3~, GETMSE+5, GETMSE+6, GETMSE+7
MSE(	GETMSE+7
QUIT	EN~, EN1+59*
SSN	EN1+4~, EN1+15*
STA	EN1+39~, EN1+47, EN1+48, EN1+49
U	CLLST+23, CLLST+24, CLLST+25, CLLST+26, CLLST+28, GETMSE+7, GETMSE+12, GETMSE+13, DAT+2, EN1+21 , EN1+22, EN1+32, EN1+44, EN1+47, EN1+48, EN1+49, EN1+63, EN1+67, EN1+77, EN2+8
X	YN~, YN+1, DAT~, DAT+2, EN1+4~, EN1+15*, EN1+74~, EN2+6~, SVCCOMP~, SVCCOMP+1
Y	EN1+4~, EN1+59, EN1+60, EN1+70*, EN1+72, EN1+73, EN1+74~, EN1+80, EN2+1~, EN2+9
Z	DAT+1~, DAT+2, DAT+3, DAT+4, DAT+5, EN1+4~, EN1+9, EN1+11, EN1+19, EN1+20 , EN1+21, EN1+22, EN1+77, EN2+1~, EN2+4*
Z0	EN1+4~, EN1+11, EN1+77, EN2+1~, EN2+4*
Z1	DAT~, DAT+4, EN1+4~
Z2	EN1+4~, EN1+11*

Marked Items

Customize PDF page

Package: Registration

Routine: DGRP6CL

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 6

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