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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGENCLEA

Package: Registration

Routine: DGENCLEA


Information

DGENCLEA ;ALB/JLS - Camp Lejeune Eligibility API - Retrieve Eligibility ;11/28/14 4:25pm

Source Information

Source file <DGENCLEA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 4 AUTOUPD^DGENA2  $$VET^DGENPTA  GETMSE^DGMSEUTL  $$SITE^VASITE  
VA FileMan 2 ^%DTC  ^DIR  
Kernel 1 ($$FMTH,$$HTFM,$$NOW)^XLFDT  

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: 3

Package Total Caller Graph
Registration 3 DGRP61  DGRP6EF  DGRPE1  

Entry Points

Name Comments DBIA/ICR reference
CLE(DFN) ;
ADDEDTCL(DFN) ; DG*5.3*909 Enter/Edit Camp Lejeune Indicator
AECL2
SAVECL(DFN,DGCLIND,DGCLDAT,DGSITE,DGSOURCE) ; DG*5.3*909 Save CL-V info
; Check if CL-V Indicator already No or Yes, then use old date.
SETCLNO ; DG*5.3*909 Set Camp Lejeune to No when no longer CL Eligible

External References

Name Field # of Occurrence
^%DTC CLE+29
AUTOUPD^DGENA2 SETCLNO+5
$$VET^DGENPTA CLE+3
GETMSE^DGMSEUTL CLE+10
^DIR AECL2+18
$$SITE^VASITE AECL2+24, SETCLNO+4
$$FMTH^XLFDT CLE+18
$$HTFM^XLFDT CLE+29
$$NOW^XLFDT AECL2+25, SETCLNO+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Camp Lejeune indicator cannot be deleted if already "
  • Line Location: AECL2+20
Function Call: WRITE
  • Prompt: "indicated.",!,"Enter '^' to exit.",!
  • Line Location: AECL2+21
Routine Call
  • DIR
  • Line Location:
    • AECL2+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(8 - [#8] CLE+7
^DPT - [#2] CLE+6, CLE+10, CLE+11, AECL2+3, SAVECL+2, SAVECL+5*, SETCLNO+1, SETCLNO+2

Label References

Name Line Occurrences
$$CLE SETCLNO+3
AECL2 AECL2+19
SAVECL AECL2+25, SETCLNO+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN CLE~, CLE+3, CLE+6, CLE+10, CLE+11, ADDEDTCL~, AECL2+3, AECL2+25, SAVECL~, SAVECL+2
, SAVECL+5, SETCLNO+1, SETCLNO+2, SETCLNO+3, SETCLNO+4, SETCLNO+5
DGCLDAT SAVECL~, SAVECL+4*, SAVECL+5
DGCLE CLE+14~, CLE+15*, CLE+16, CLE+32*, CLE+33, SETCLNO+3~*
DGCLIND AECL2~, AECL2+22*, AECL2+23, AECL2+25, SAVECL~, SAVECL+5
DGCLOLD AECL2~, AECL2+3*, AECL2+4
DGCLSRDT CLE+14~, CLE+15*, CLE+29*, CLE+31
DGCLVREC SAVECL+2~*, SAVECL+3, SAVECL+4
DGENTDT CLE+14~, CLE+17*, CLE+18*, CLE+26, CLE+27*, CLE+29
DGEXITDT CLE+14~, CLE+17*, CLE+18*, CLE+26, CLE+28*, CLE+29
DGLOOP CLE+14~, CLE+16*, CLE+18
DGMSE CLE+1!, CLE+9~, CLE+10, CLE+11*, CLE+12
DGMSE( CLE+16, CLE+18
DGPRIEL CLE+5~, CLE+6*, CLE+7
DGSITE AECL2~, AECL2+24*, AECL2+25, SAVECL~, SAVECL+5
DGSOURCE SAVECL~, SAVECL+5
DGTYPE CLE+14~, CLE+17*, CLE+18*, CLE+21
DIR AECL2+1!, AECL2+18!
DIR("?" AECL2+6*, AECL2+7*, AECL2+8*, AECL2+9*, AECL2+10*, AECL2+11*, AECL2+12*, AECL2+13*, AECL2+14*, AECL2+15*
, AECL2+16*, AECL2+17*
DIR("A" AECL2+2*
DIR("B" AECL2+4*, AECL2+5!
DIR(0 AECL2+1*
U CLE+6, CLE+7, AECL2+3, AECL2+23, AECL2+24, SAVECL+3, SAVECL+4, SAVECL+5, SETCLNO+1, SETCLNO+4
X CLE+29, AECL2~, AECL2+19
X1 CLE+14~, CLE+17*, CLE+29*
X2 CLE+14~, CLE+17*, CLE+29*
Y AECL2~, AECL2+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All