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

Source Information

Source file <DGLOCK1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 4 ($$NATCODE,$$NATNAME)^DGENELA  $$VET1^DGENPTA  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: 15

Package Total Caller Graph
Registration 9 DGRPTX27  DGRPX7  DGRPX75  DGRPXC  DGRPXCR  DGRPXR  DGRPXX7  DGRPXX71  
DGRPXX72  
Albany OIFO 3 A1CKC  A1CKC2  A1CKC3  
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
WW2ELIG(DFN) ;DG*5.3*1098 - Determine if patient can have WORLD WAR II as a PATIENT ELIGIBILITIES
POS ;Screen
POS1
POSH
SC
ECD ;primary eligibility code input transform
ECDS

External References

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

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] ECPOSH
^DPT - [#2] AOD+1, COMD+1, INED+1, IRD+1, POWD+1, TADD+1, VND+1, SVDEL+2, EC, WW2ELIG+18
, WW2ELIG+19, POS1POSHSCECD+3, ECD+19, ECD+20, ECD+22, ECD+24, ECD+29
^XUSEC("DG ELIGIBILITY" POS1

Label References

Name Line Occurrences
$$WW2ELIG HUDCK+18
ECDS ECD+18, ECD+19, ECD+20, ECD+22
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, POSHSC
ECD+3
^(0 ECPOS+1, POS1POSH

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, HUDCK+18
, WW2ELIG~, WW2ELIG+12, WW2ELIG+18, WW2ELIG+19, WW2ELIG+25, POSHSCECD+3, ECD+6, ECD+11
ECD+19, ECD+20, ECD+22, ECD+24, ECD+29, ECDS+17
DGACTIVE HUDCK+11~, HUDCK+15, HUDCK+16*
DGBEGDT WW2ELIG+14~, WW2ELIG+17*, WW2ELIG+20*, WW2ELIG+22
DGCOV ECD+2~, ECD+6*, ECDS+17
DGDATA WW2ELIG+14~, WW2ELIG+17*, WW2ELIG+19*, WW2ELIG+20, WW2ELIG+21
DGEC EC*!, EC+1!, HUDCK~, HUDCK+12, HUDCK+13, HUDCK+15, HUDCK+18, POS+1!, POSH*, POSH+1!
DGENDDT WW2ELIG+14~, WW2ELIG+17*, WW2ELIG+21*, WW2ELIG+22
DGEPNUM WW2ELIG+14~, WW2ELIG+17*, WW2ELIG+18*, WW2ELIG+19
DGNODE ECD+2~, ECD+24*, ECD+25, ECD+26, ECD+27, ECD+28
DGPC ECD+2~, ECD+19*
DGSCON SC*!, SC+1!
DGSER ECD+2~, ECD+3*, ECD+19
DGVT ECD+2~, ECD+3*, ECD+4, ECD+18
DGWWII WW2ELIG+14~, WW2ELIG+17*, WW2ELIG+18, WW2ELIG+22*, WW2ELIG+23
DGX SVDEL+2, SVDEL+3!
DGXX ECD+2~, ECD+19*, ECD+21*, ECD+23*, ECD+25*, ECD+26*, ECD+27*, ECD+28*, ECD+29*, ECD+30
DIC POS+1!*, ECDS!*
DIC("S" POS+1*, ECD+9*, ECD+11*, ECD+13*, ECD+15*, ECD+17*, ECD+19*, ECD+20*, ECD+22*, ECD+30*
>> DIE POS+1, ECDS
DUZ POS1
>> I ECD+28*
U AOD+1, COMD+1, INED+1, IRD+1, POWD+1, TADD+1, VND+1, SVDEL+2, EC, WW2ELIG+20
, WW2ELIG+21, POS+1, POS1POSHSCECD+3, ECD+19, ECD+22
X AOD+1!, COMD+1!, INED+1!, IRD+1!, POWD+1!, TADD+1!, VND+1!, SVDEL+2!, EC!, POS+1*!
POS1POS1+1!, SC!, ECD+4!, ECDS*!, ECDS+3!, ECDS+5!, ECDS+6!, ECDS+8!, ECDS+10!
ECDS+12!, ECDS+14!, ECDS+17
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