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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call