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,ARF,JAM - PATIENT FILE DATA EDIT CHECK ; 28 JUL 86

Source Information

Source file <DGLOCK1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 3 ($$NATCODE,$$NATNAME)^DGENELA  SV1^DGLOCK  REMOVE^DGRP1152U  
VA FileMan 2 ^DIC  $$GET1^DIQ  
Kernel 1 $$NOW^XLFDT  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Registration 9 DGRPTX27  DGRPX7  DGRPX79  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
HUDCK(DGEC) ; DG*5.3*1075; Check for when HUD-VASH eligibility code can be used
; Called by the Input Transform and SCREEN of ELIGIBILITY field (#.01) of the PATIENT ELIGIBILITIES subfile of PATIENT file (#2)
; Input:
; DGEC - (required) Eligibility Code
POS ;Screen
POS1
POSH
SC
ECD ;primary eligibility code input transform
ECDS

External References

Name Field # of Occurrence
$$NATCODE^DGENELA HUDCK+11, ECDS+5, ECDS+6, ECDS+8, ECDS+10
$$NATNAME^DGENELA ECDS+3
SV1^DGLOCK POS+1
REMOVE^DGRP1152U ECDS+13
^DIC POS+1, ECDS
$$GET1^DIQ ECD+6, ECD+11
$$NOW^XLFDT HUDCK+14
$$GET^XPAR HUDCK+13

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+15, ECD+16, ECD+18, ECD+20, ECD+25
^XUSEC("DG ELIGIBILITY" POS1

Label References

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