Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGRP6CL

Package: Registration

Routine: DGRP6CL


Information

DGRP6CL ;ALB/TMK,LBD - REGISTRATION SCREEN 6 FIELDS Conflict locations ; 6/23/09 4:08pm

Source Information

Source file <DGRP6CL.m>

Call Graph

Call Graph Total: 11

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  

Caller Graph

Caller Graph Total: 6

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 (DG*5.3*797)
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

Name Field # of Occurrence
$T(@DGCONF EN1+65
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All