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

Package: Registration

Routine: DGLOCK


Information

DGLOCK ;ALB/MRL,ERC,BAJ,LBD - PATIENT FILE DATA EDIT CHECKS ; 2/14/11 4:36pm

Source Information

Source file <DGLOCK.m>

Entry Points

Name Comments DBIA/ICR reference
FFP ; DGFFP Access key required
EK ;EKey Rqrd
EV ;EK rqrd if Elig Ver
EV2 ;if elig is ver Discharged Due to Disability can't be edited - DG 672
SV ;EK Rqrd if Svc Rcrd Ver
SV1
MV ;EK Rqrd if Money Ver
VET ;Veteran
VAGE ;Vet Age
AO ;Agent Orange
EC ;SW Asia Contaminants - name change from Env. Contam. DG*5.3*688
COM ;Combat
INE ;Ineligible
IR ;ION Rad
POW ;Prisoner of War
SER1 ;NTL Svc
SER2 ;NNTL
TAD ;Temp Add Edit
TADD ;Temp Address Delete?
ASK
VN ;Viet Svc
OEIF ;OIF/ OEF/ UNKNOWN OEF/OIF Svc
SVED ;Lebanon, Grenada, Panama, Persian Gulf & Yugoslavia svc edit
; (from and to dates)
PTDT
POWV
INEL ;check ineligible date - cannot be before DOB
INCOM ;check date ruled incompetent (VA) - cannot be before DOB
INCOM2 ;check date ruled incompetent (civil - cannot be before DOB
DOBDOD(DGFLD,DGX) ;called from subroutines to check if
DEATH ;new date constraints added with ESR 3.1 - DG*5.3*754
BIRTH ;checks for DOB added with DG*5.3*754
MSE ;Military Service Episode data cannot be edited once it has been

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,$C(7),"Eligibility Key required to edit this field."
  • Line Location: EK+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"Monetary Benefits verified...Eligibility Key required to edit this field."
  • Line Location: MV+2
Function Call: WRITE
  • Prompt: !?4,$C(7),"Applicant is TOO YOUNG to be a veteran...ONLY ",X," YEARS OLD!!",!?4,"See your supervisor if you require assistance."
  • Line Location: VAGE+2
Function Call: WRITE
  • Prompt: !?4,$C(7),"Exposure to Agent Orange not indicated...NO EDITING!"
  • Line Location: AO+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"Southwest Asia Conditions not indicated...NO EDITING!"
  • Line Location: EC+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"Date must be on or after 8/2/1990!"
  • Line Location: EC+2
Function Call: WRITE
  • Prompt: !?4,$C(7),"Service in Combat Zone not indicated...NO EDITING!"
  • Line Location: COM+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"Requirement for 'Ineligible patient' data not indicated...NO EDITING!"
  • Line Location: INE+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"Exposure to Ionizing Radiation is not indicated...NO EDITING!"
  • Line Location: IR+1
Function Call: WRITE
  • Prompt: !?5,$C(7),"Not identified as a former Prisoner of War...NO EDITING!"
  • Line Location: POW+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"Other Periods of Service are not indicated...NO EDITING!"
  • Line Location: SER1+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"Third Period of Service is not indicated...NO EDITING!"
  • Line Location: SER2+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"Requirement for Temporary Address data not indicated...NO EDITING!"
  • Line Location: TAD+1
Function Call: WRITE
  • Prompt: !,"Do you want to delete all temporary address data"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"Answer 'Y'es to remove temporary address information, 'N'o to leave data in file"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?4,$C(7),"Service in Republic of Vietnam not indicated...NO EDITING!"
  • Line Location: VN+1
Function Call: WRITE
  • Prompt: $S(DGSV=1:"Lebanon",DGSV=4:"Grenada",DGSV=7:"Panama",DGSV=10:"Persian Gulf",DGSV=16:"Somalia",DGSV=19:"Yugoslavia",1:"")
  • Line Location: SVED+15
Info |  Source |  Entry Points |  Interaction Calls