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,ARF - REGISTRATION SCREEN 6 FIELDS Conflict locations ; 6/23/09 4:08pm

Source Information

Source file <DGRP6CL.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 6 GET^DGENOEIF  GETMSE^DGMSEUTL  (ADDCFL,CKDT,EDCFL,LOOPCNF)^DGRP6CL1  $$ISVALID^DGRP6CL2  $$GETDT^DGRPMS  $$SSNNM^DGRPU  
VA FileMan 4 ^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  
List Manager 1 CLEAR^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

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

Entry Points

Name Comments DBIA/ICR reference
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
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)
DAT(DGRPX,X,Z1) ; Format dt in $P(DGRPX,U,X) for a length of Z1
EN(DFN,QUIT) ; Entry from reg screen 6
EN1 ; Entry from conf subscreen off reg screen 6
; Routine loops until exit/quit from subscreen
QUIT
EN2 ; Consistency checker re-edit entrypoint for OEF/OIF data
SVCCOMP(X) ; Returns display text for service component
VIET ;;.32101//NO;S:X'="Y" Y="@64";.32104;.32105;@64;
LEB ;;.3221//NO;S:X'="Y" Y="@67";.3222;Q;.3223;@67;
GREN ;;.3224//NO;S:X'="Y" Y="@68";.3225;Q;.3226;@68;
PAN ;;.3227//NO;S:X'="Y" Y="@69";.3228;Q;.3229;@69;
GULF ;;.32201//NO;S:X'="Y" Y="@610";.322011;Q;.322012;@610;
SOM ;;.322016//NO;S:X'="Y" Y="@611";.322017;Q;.322018;@611;
YUG ;;.322019//NO;S:X'="Y" Y="@615";.32202;Q;.322021;@615;
OEF ;;
OIF ;;
UNK ;;

External References

Name Field # of Occurrence
GET^DGENOEIF CLLST+19, EN2+2
GETMSE^DGMSEUTL GETMSE+5
ADDCFL^DGRP6CL1 EN1+77, EN1+81
CKDT^DGRP6CL1 CLLST+24, CLLST+27, CLLST+28
EDCFL^DGRP6CL1 EN1+84, EN1+89
LOOPCNF^DGRP6CL1 EN1+60
$$ISVALID^DGRP6CL2 EN1+42, EN1+51
$$GETDT^DGRPMS CLLST+24, CLLST+28
$$SSNNM^DGRPU EN1+16
^DIE EN1+74, EN2+9
$$EXTERNAL^DILFD EN1+30, EN2+8
$$GET1^DIQ EN1+18, EN1+20, EN1+22
^DIR EN1+67, EN1+78, EN1+79, EN1+88
CLEAR^VALM1 EN1+2
$$FMTE^XLFDT DAT+3, EN1+19, EN1+31, EN1+53
$$UP^XLFSTR EN1+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"WARNING - THIS CONFLICT IS INCONSISTENT WITH MILITARY SERVICE DATA",!
  • Line Location: EN1+73
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+74
    • EN2+9
Routine Call
  • DIR
  • Line Location:
    • EN1+67
    • EN1+78
    • EN1+79
    • EN1+88

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] EXTERNAL^DILFD,  GET1^DIQ
2.3215 EXTERNAL^DILFD
^DG(391 - [#391] GET1^DIQ

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$DAT EN1+55
$$SVCCOMP EN1+30
$$YN EN1+45
CLLST EN1+5
EN1 EN1+90
GETMSE CLLST+14
QUIT EN1+68

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EN+1~, EN1+74*!, 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+16, EN1+18, EN1+20, EN1+22, EN1+45, EN1+74, EN1+77, EN1+81, EN1+84, EN1+89
, EN2+2, EN2+7, EN2+9
DG EN1+4~, EN1+42*, EN1+45, EN1+51*
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+41*
, EN1+42, EN1+44, EN1+45, EN1+46, EN1+47, EN1+49*, EN1+50, EN1+51, EN1+52, EN1+53
, EN1+55, EN1+56, EN1+58, EN1+60, EN1+70*, EN1+72*, EN1+73, EN1+76*, EN1+77, EN1+78
, EN1+79, EN1+81, EN1+84, EN1+85, EN1+86, EN1+89
DGCONF( CLLST+18*, CLLST+23*, CLLST+24*, CLLST+25*, CLLST+26*, CLLST+28*, EN1+11, EN1+45, EN1+46, EN1+50
, EN1+52, EN1+53*, EN1+55, EN1+56, EN1+58, EN1+73, EN1+77, EN1+78, EN1+79, EN1+84
, EN1+86, EN1+89
DGCONF1 EN+1~, EN1+49*, EN1+53
DGCONFS EN+1~, EN1+3!, EN1+47*, EN1+49
DGCONFS( EN1+11*, EN1+47, EN1+49
DGCONFX CLLST+21~, CLLST+23*, CLLST+24, CLLST+25, CLLST+26
DGCT EN1+4~, EN1+14*, EN1+22*, EN1+23*, EN1+26*, EN1+27*, EN1+29*, EN1+30*, EN1+31, EN1+32*
, EN1+33*, EN1+34*, EN1+45*, EN1+54*, EN1+55, EN1+58, EN1+59, EN1+61*, EN1+62*
DGCTX EN1+4~, EN1+8*, EN1+45*, EN1+50
DGDISP EN1+3!, EN1+44*, EN1+45
DGDOB EN1+15~, EN1+18*, EN1+19*, EN1+22
DGEG EN1+4~, EN1+39*, EN1+43*, EN1+45, EN1+46
DGEGS EN1+4~, EN1+40*, EN1+41
DGIEN EN1+48~, EN1+49*, EN1+53
DGM EN1+4~, EN1+41*, EN1+49*, EN1+53, EN1+54, EN1+55
DGMSE CLLST~, CLLST+24, CLLST+27, CLLST+28, EN+1~, EN1+3!, EN1+5
DGMSE( GETMSE+7*, GETMSE+13*, EN1+28, EN1+30, EN1+31
DGMSE(0 EN1+27
DGMSG EN+1~, EN1+3!, EN1+8*, EN1+11*, EN1+62
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+42, EN1+51
, EN1+60
DGPOSS( EN1+46
DGPTYPE EN1+15~, EN1+20*, EN1+21*, EN1+23
DGQUIT EN2+1~, EN2+5*, EN2+9*
>> DGRPV EN1+6, EN1+7, EN1+46
>> DGRPVV(6 EN1+6*, EN1+7*
DGRPX YN~, YN+1, DAT~, DAT+2
DGSSN EN1+15~, EN1+17*, EN1+23
DGSSNSTR EN1+15~, EN1+16*, EN1+17, EN1+22, EN1+23
DGUN EN1+48~, EN1+52*, EN1+53, EN1+58, EN1+59
DGX EN1+4~, EN2+6~, EN2+7*, EN2+8
DGX1 EN1+4~
DGXREF EN1+83~
DGXREF( EN1+86*, EN1+89
DGY EN1+4~, EN1+69*, EN1+70, EN1+71, EN1+72, EN1+75, EN1+76
DGY1 EN1+4~, EN1+69*, EN1+77, EN1+81
DGZ CLLST+11~, CLLST+18*, CLLST+19, CLLST+20*, CLLST+23, GETMSE+3~, GETMSE+6*, GETMSE+7*, GETMSE+11*, GETMSE+13
, EN1+4~, EN1+47*, EN1+49, 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+74*!, EN2+6~, EN2+9*
DIPA EN+1~
DIQUIET CLLST+11~, CLLST+12*
DIR EN+1~, EN1+4~, EN1+60, EN1+67!, EN1+78!, EN1+79!, EN1+83~, EN1+88!
DIR("?" EN1+65*
DIR("A" EN1+22*, EN1+23*, EN1+26*, EN1+27*, EN1+29*, EN1+30*, EN1+31*, EN1+32*, EN1+33*, EN1+34*
, EN1+45*, EN1+50*, EN1+55*, EN1+58*, EN1+59*, EN1+61*, EN1+62*, EN1+63*, EN1+78*, EN1+79*
, EN1+85*
DIR("B" EN1+66*, EN1+78*, EN1+79*
DIR(0 EN1+14*, EN1+46*, EN1+64*, EN1+78*, EN1+79*, EN1+85*, EN1+86*, EN1+87*
DR EN+1~, EN1+74*!, EN2+6~, EN2+9*
DTOUT EN1+4~, EN1+68, EN1+80
DUOUT EN1+4~, EN1+68, EN1+80
FRTO CLLST+11~, CLLST+24*, CLLST+28*
IEN EN1+83~, EN1+84*
LOOP EN1+4~
MSE GETMSE+3~, GETMSE+5, GETMSE+6*, GETMSE+7*
MSE( GETMSE+7
QUIT EN~, EN1+68*
SSN EN1+4~
STA EN1+48~, EN1+56*, EN1+57*, EN1+58
U CLLST+23, CLLST+24, CLLST+25, CLLST+26, CLLST+28, GETMSE+7, GETMSE+12, GETMSE+13, DAT+2, EN1+30
, EN1+31, EN1+41, EN1+53, EN1+56, EN1+57, EN1+58, EN1+72, EN1+76, EN1+86, EN2+8
X YN~, YN+1, DAT~, DAT+2, EN1+4~, EN1+83~, EN2+6~, SVCCOMP~, SVCCOMP+1
Y EN1+4~, EN1+68, EN1+69, EN1+79*, EN1+81, EN1+82, EN1+83~, EN1+89, EN2+1~, EN2+9
Z DAT+1~, DAT+2*, DAT+3*, DAT+4*, DAT+5, EN1+4~, EN1+9*, EN1+11, EN1+28*, EN1+29
, EN1+30, EN1+31, EN1+86*, EN2+1~, EN2+4*
Z0 EN1+4~, EN1+11*, EN1+86*, EN2+1~, EN2+4*
Z1 DAT~, DAT+4, EN1+4~
Z2 EN1+4~, EN1+11*

Marked Items

Name Field # of Occurrence
$T(@DGCONF EN1+74
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