Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls