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

Package: Registration

Routine: DGLOCK2


Information

DGLOCK2 ;ALB/MRL - PATIENT FILE DATA EDIT CHECKS ; 28 Jan 2002 2:37 PM

Source Information

Source file <DGLOCK2.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 EN^DDIOL  ^DIC  

Caller Graph

Caller Graph Total: 22

Package Total Caller Graph
Registration 20 DGRP7  DGRPTX11  DGRPTX14  DGRPTX17  DGRPTX22  DGRPTX23  DGRPTX24  DGRPTX35  
DGRPTX36  DGRPTX37  DGRPTX38  DGRPTX39  DGRPX710  DGRPX73  DGRPX74  DGRPX75  
DGRPX76  DGRPX77  DGRPXC  ^DPT  
Integrated Billing 2 IBXSC21  IBXSC22  

Entry Points

Name Comments DBIA/ICR reference
EMD ;Emp Delete
DOL
DD ;Desig Delete
K2 ;NOK2 Add
EMW
AAC
E2D ;Emer2 Delete
SED ;Sp Emp Delete
TOTCHK(DFN) ;Returns 1 if Any of 4 'Received' YES/NO amounts =YES
E1 ;Emer Add
K2D ;NOK2 Delete
E2 ;Emer2 Add
EM ;Emp Add
D ;Desig Add
TOTCKDEL ;ERROR MESSAGE IF DELETE .36295
AAC1 ;Agency/Country Screen
MAR ;Married or Separated
K1 ;NOK Add
SDD ;Spouse/Dependent Delete
EM1
TOTCKMSG ;ERROR MESSAGE FOR ABOVE
K1D ;NOK Delete
DOL2
DOL1
E1D ;Emer Delete
SE ;Sp Emp Add

External References

Name Field # of Occurrence
EN^DDIOL SDD+2
^DIC AAC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,*7,"'NEXT OF KIN' name must be specified to enter/edit this field"
  • Line Location: K1+2
Function Call: WRITE
  • Prompt: !?4,*7,"Can't be deleted as long as 'NEXT OF KIN' is specified"
  • Line Location: K1D+2
Function Call: WRITE
  • Prompt: !?4,*7,"'NEXT OF KIN-2' name must be specified to enter/edit this field"
  • Line Location: K2+2
Function Call: WRITE
  • Prompt: !?4,*7,"Can't be deleted as long as 'NEXT OF KIN-2' is specified"
  • Line Location: K2D+2
Function Call: WRITE
  • Prompt: !?4,*7,"'EMERGENCY CONTACT' name must be specified to enter/edit this field"
  • Line Location: E1+2
Function Call: WRITE
  • Prompt: !?4,*7,"Can't be deleted as long as 'EMERGENCY CONTACT' is specified"
  • Line Location: E1D+2
Function Call: WRITE
  • Prompt: !?4,*7,"'EMERGENCY CONTACT-2' name must be specified to enter/edit this field"
  • Line Location: E2+2
Function Call: WRITE
  • Prompt: !?4,*7,"Can't be deleted as long as 'EMERGENCY CONTACT-2' is specified"
  • Line Location: E2D+2
Function Call: WRITE
  • Prompt: !?4,*7,"'DESIGNEE' name must be specified to enter/edit this field"
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !?4,*7,"Can't be deleted as long as 'DESIGNEE' is specified"
  • Line Location: DD+2
Function Call: WRITE
  • Prompt: !?4,*7,"'EMPLOYMENT STATUS' must be specified to enter/edit this field"
  • Line Location: EMW+0
Function Call: WRITE
  • Prompt: !?4,*7,"'EMPLOYER NAME' must be specified to enter/edit this field"
  • Line Location: EM1+2
Function Call: WRITE
  • Prompt: !?4,*7,"Can't be deleted as long as 'EMPLOYER NAME' is specified"
  • Line Location: EMD+2
Function Call: WRITE
  • Prompt: !?4,*7,"'SPOUSES EMPLOYER' name must be specified to enter/edit this field"
  • Line Location: SE+2
Function Call: WRITE
  • Prompt: !?4,*7,"Can't be deleted as long as 'SPOUSES EMPLOYER' is specified"
  • Line Location: SED+2
Function Call: WRITE
  • Prompt: !?4,*7,"NOT POSSIBLE...Applicant is not Married."
  • Line Location: MAR+2
Function Call: WRITE
  • Prompt: " ($",X,")"
  • Line Location: DOL2+0
Function Call: WRITE
  • Prompt: !,?4,*7,"Must Receive A&A, HB, Pension, or Disability Benefits."
  • Line Location: TOTCKMSG+1
Function Call: WRITE
  • Prompt: !,?4,*7,"Delete by indicating receipt of A&A, HB, Pension, & Disability as 'NO'."
  • Line Location: TOTCKDEL+1
Routine Call
  • DIC
  • Line Location:
    • AAC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPR(408.13 - [#408.13] SDD+2
^DIC(11 - [#11] MAR+2
^DIC(8 - [#8] AAC1+1
^DPT - [#2] K1+2, K1D+2, K2+2, K2D+2, E1+2, E1D+2, E2+2, E2D+2, D+2, DD+2
, EM+1, EM1+1, EM1+2, EMD+2, SE+2, SED+2, MAR+2, AAC1+1, TOTCHK+3

Label References

Name Line Occurrences
$$TOTCHK TOTCKDEL+1
AAC1 AAC
DOL1 DOL1
DOL2 DOL
E1 E2+2
EMW EM+1, EM1+1
K1 K2+2
MAR SE+2

Naked Globals

Name Field # of Occurrence
^( K1+2, K1D+2, K2+2, K2D+2, E1+2, E1D+2, E2+2, E2D+2, D+2, DD+2
, EM+1, EM1+1, EMD+2, SE+2, SED+2
^("VET" AAC1+1
^(0 SDD+2, MAR+2, AAC1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA K1+1, K1D+1, K2+1, K2D+1, E1+1, E1D+1, E2+1, E2D+1, D+1, DD+1
, SDD+1, SDD+2, EM+1, EM1, EMD+1, SE+1, SED+1, MAR+1, TOTCHK+2, TOTCKDEL+1
DFN K1+1~*, K1+2, K1D+1~*, K1D+2, K2+1~*, K2+2, K2D+1~*, K2D+2, E1+1~*, E1+2
, E1D+1~*, E1D+2, E2+1~*, E2+2, E2D+1~*, E2D+2, D+1~*, D+2, DD+1~*, DD+2
, EM1~*, EM1+1, EM1+2, EMD+1~*, EMD+2, SE+1~*, SE+2, SED+1~*, SED+2, MAR+1~*
, MAR+2, AAC1+1, TOTCHK~, TOTCHK+2*, TOTCHK+3, TOTCKDEL+1*
>> DGAAC AAC1+1*
>> DGAAC(1 AAC1+1*
DIC AAC!*
DIC("S" AAC*
>> DIE AAC
U K1+2, K1D+2, K2+2, K2D+2, E1+2, E1D+2, E2+2, E2D+2, D+2, DD+2
, SDD+2, EM+1, EM1+1, EM1+2, EMD+2, SE+2, SED+2, MAR+2, AAC1+1, TOTCHK+3
X K1+2!, K1D+2!, K2+2!, K2D+2!, E1+2!, E1D+2!, E2+2!, E2D+2!, D+2!, DD+2!
, SDD+2!, EMW!, EM1+2!, EMD+2!, SE+2!, SED+2!, MAR+2!, AAC*!, DOL*, DOL1*
, DOL1+1*, DOL2*, TOTCKDEL+1!
>> Y AAC
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All