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

Package: Registration

Routine: DGLOCK1


Information

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

Source Information

Source file <DGLOCK1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 3 $$NATNAME^DGENELA  SV1^DGLOCK  REMOVE^DGRP1152U  
VA FileMan 2 ^DIC  $$GET1^DIQ  

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

Package Total Caller Graph
Registration 10 ^DPT  DGRPTX  DGRPX7  DGRPX73  DGRPXC  DGRPXCR  DGRPXR  DGRPXX7  
DGRPXX71  DGRPXX72  
Albany OIFO 3 A1CKC  A1CKC2  A1CKC3  
Graphics 3 GRPX7  GRPX71  GRPX78  
HINQ 3 DVBHCE  DVBHCE20  DVBHCE5  
Integrated Billing 2 IBXS11  IBXSC11  
Automated Medical Information Exchange 1 DVBAXA  

Entry Points

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

External References

Name Field # of Occurrence
$$NATNAME^DGENELA ECDS+3
SV1^DGLOCK POS+1
REMOVE^DGRP1152U ECDS+6
^DIC POS+1, ECDS
$$GET1^DIQ ECD+6

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ

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+8, ECD+9, ECD+11, ECD+13, ECD+18
^XUSEC("DG ELIGIBILITY" POS1

Label References

Name Line Occurrences
ECDS ECD+7, ECD+8, ECD+9, ECD+11
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+8, ECD+9, ECD+11, ECD+13, ECD+18, ECDS+6
DGCOV ECD+2~, ECD+6*, ECDS+6
DGEC EC*!, EC+1!, POS+1!, POSH*, POSH+1!
DGNODE ECD+2~, ECD+13*, ECD+14, ECD+15, ECD+16, ECD+17
DGPC ECD+2~, ECD+8*
DGSCON SC*!, SC+1!
DGSER ECD+2~, ECD+3*, ECD+8
DGVT ECD+2~, ECD+3*, ECD+4, ECD+7
DGX SVDEL+2, SVDEL+3!
DGXX ECD+2~, ECD+8*, ECD+10*, ECD+12*, ECD+14*, ECD+15*, ECD+16*, ECD+17*, ECD+18*, ECD+19
DIC POS+1!*, ECDS!*
DIC("S" POS+1*, ECD+7*, ECD+8*, ECD+9*, ECD+11*, ECD+19*
>> DIE POS+1, ECDS
DUZ POS1
>> I ECD+17*
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+8, ECD+11
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!, ECDS+6
XX POS1*!, POS1+1!
>> Y POS+1, ECDS
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  | All