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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGLOCK1

Package: Registration

Routine: DGLOCK1


Information

DGLOCK1 ;ALB/MRL - PATIENT FILE DATA EDIT CHECK ; 28 JUL 86

Source Information

Source file <DGLOCK1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 2 $$NATNAME^DGENELA  SV1^DGLOCK  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Registration 8 DGRPTX24  DGRPTX39  DGRPX7  DGRPX710  DGRPX73  DGRPXC  ^DPT  DGRPXR  
Integrated Billing 1 IBXSC11  

Entry Points

Name Comments DBIA/ICR reference
ECD ;primary eligibility code input transform
AOD ;AO Delete
POSH
ECDS
POS ;Screen
INED ;Ineligible Delete
VND ;Viet Svc Delete
EC
SVDEL ;Panama, Grenada, Lebanon, Persian Gulf Svc Delete
SC
TADD ;Temp Add Delete
IRD ;ION Rad Delete
COMD ;Combat Delete
POWD ;POW Delete
POS1

External References

Name Field # of Occurrence
$$NATNAME^DGENELA ECDS+3
SV1^DGLOCK POS+1
^DIC POS+1, ECDS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,*7,"Can't delete as long as Agent Orange exposure is indicated."
  • Line Location: AOD+1
Function Call: WRITE
  • Prompt: !?4,*7,"Can't delete as long as Combat Service is indicated."
  • Line Location: COMD+1
Function Call: WRITE
  • Prompt: !?4,*7,"Can't delete this field as long as 'INELIGIBLE DATE' is on file."
  • Line Location: INED+1
Function Call: WRITE
  • Prompt: !?4,*7,"Can't delete as long as Ionizing Radiation exposure is indicated."
  • Line Location: IRD+1
Function Call: WRITE
  • Prompt: !?4,*7,"Still identified as former POW...Change status to delete."
  • Line Location: POWD+1
Function Call: WRITE
  • Prompt: !?4,*7,"Answer NO to the 'WANT TO ENTER TEMPORARY ADDRESS' prompt, then delete."
  • Line Location: TADD+1
Function Call: WRITE
  • Prompt: !?4,*7,"Can't delete as long as Vietnam Service is still indicated."
  • Line Location: VND+1
Function Call: WRITE
  • Prompt: !?4,*7,"Can't delete as long as ",$S(DGX=1:"Lebanon",DGX=4:"Grenada",DGX=7:"Panama",1:"Persian Gulf")," is still indicated."
  • Line Location: SVDEL+2
Function Call: WRITE
  • Prompt: !?4,*7,"Eligibility Code is 'NSC'...Can't be YES."
  • Line Location: EC+0
Function Call: WRITE
  • Prompt: !?5,*7,"Applicant is too young to have served in that period of service.",!?5,"See your supervisor if you require assistance."
  • Line Location: POS1+1
Function Call: WRITE
  • Prompt: " is not defined. Must be defined in order",!?5,"to enter a POS."
  • Line Location: POSH+0
Function Call: WRITE
  • Prompt: !?4,*7,"Not possible, applicant is not service-connected."
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: !?4,*7,"'VETERAN (Y/N)' prompt must be answered to select an Eligibility Code'"
  • Line Location: ECD+4
Routine Call
  • DIC
  • Line Location:
    • POS+1
    • ECDS

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(21 - [#21] POS+1, POS1
^DIC(8 - [#8] EC, POSH
^DPT - [#2] AOD+1, COMD+1, INED+1, IRD+1, POWD+1, TADD+1, VND+1, SVDEL+2, EC, POS1
, POSH, SC, ECD+3, ECD+6, ECD+7, ECD+9, ECD+11, ECD+16
^XUSEC("DG ELIGIBILITY" POS1

Label References

Name Line Occurrences
ECDS ECD+5, ECD+6, ECD+7, ECD+9
POS1 POS+1
POSH POS+1

Naked Globals

Name Field # of Occurrence
^( AOD+1, COMD+1, INED+1, IRD+1, POWD+1, TADD+1, VND+1, SVDEL+2, POSH, SC
, ECD+3
^(0 EC, POS+1, POS1, POSH

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA POS1
>> DFN AOD+1, COMD+1, INED+1, IRD+1, POWD+1, TADD+1, VND+1, SVDEL+2, EC, POSH
, SC, ECD+3, ECD+6, ECD+7, ECD+9, ECD+11, ECD+16
DGEC EC*!, EC+1!, POS+1!, POSH*, POSH+1!
DGNODE ECD+2~, ECD+11*, ECD+12, ECD+13, ECD+14, ECD+15
DGPC ECD+2~, ECD+6*
DGSCON SC*!, SC+1!
DGSER ECD+2~, ECD+3*, ECD+6
DGVT ECD+2~, ECD+3*, ECD+4, ECD+5
DGX SVDEL+2, SVDEL+3!
DGXX ECD+2~, ECD+6*, ECD+8*, ECD+10*, ECD+12*, ECD+13*, ECD+14*, ECD+15*, ECD+16*, ECD+17
DIC POS+1!*, ECDS!*
DIC("S" POS+1*, ECD+5*, ECD+6*, ECD+7*, ECD+9*, ECD+17*
>> DIE POS+1, ECDS
DUZ POS1
>> I ECD+15*
U AOD+1, COMD+1, INED+1, IRD+1, POWD+1, TADD+1, VND+1, SVDEL+2, EC, POS+1
, POS1, POSH, SC, ECD+3, ECD+6, ECD+9
X AOD+1!, COMD+1!, INED+1!, IRD+1!, POWD+1!, TADD+1!, VND+1!, SVDEL+2!, EC!, POS+1*!
, POS1, POS1+1!, SC!, ECD+4!, ECDS*!, ECDS+3!
XX POS1*!, POS1+1!
>> Y POS+1, ECDS
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All