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

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 EN^DDIOL  YN^DICN  
Registration 1 EN^DGCLEAR  

Caller Graph

Caller Graph Total: 34

Package Total Caller Graph
Registration 13 DGLOCK1  DGPTX11  DGRPTX  DGRPTX11  DGRPTX13  DGRPX7  DGRPX77  DGRPXC  
DGRPXCR  DGRPXR  DGRPXX7  DGRPXX71  DGRPXX72  
HINQ 7 DVBHCE  DVBHCE1  DVBHCE15  DVBHCE18  DVBHCE19  DVBHCE20  DVBHCE8  
Integrated Billing 5 IBXS11  IBXSC11  IBXSC114  IBXSC117  IBXSC121  
Albany OIFO 3 A1CKC  A1CKC8  A1CKC9  
Automated Medical Information Exchange 3 DVBAXA  DVBAXA21  DVBAXA5  
Graphics 3 GRPX7  GRPX71  GRPX78  

Entry Points

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

External References

Name Field # of Occurrence
EN^DDIOL FFP+1, EV+1, EV2+4, SV1, VET+2, PTDT+2, POWV+2, DOBDOD+5, DEATH+8, DEATH+12
, DEATH+16, BIRTH+11, BIRTH+19, MSE+4
EN^DGCLEAR ASK+1
YN^DICN ASK

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 PTDT+4, INEL+4, INCOM+3, INCOM2+3, DEATH+3, BIRTH+7
^DG(391 - [#391] VET+1
^DGEN(27.11 - [#27.11] BIRTH+17, BIRTH+18
^DPT - [#2] EV+1, EV2+2, EV2+3, SV1, MV+2, VET+1, VET+2, VAGE+1, AO+1, EC+1
, COM+1, INE+1, IR+1, POW+1, SER1+1, SER2+1, TAD+1, TADD+1, VN+1, SVED+9
, PTDT+2, PTDT+5, PTDT+7, PTDT+8, POWV+2, INEL+3, INCOM+4, INCOM+6, INCOM+7, INCOM2+4
, INCOM2+6, INCOM2+7, DEATH+5, DEATH+7, DEATH+11, DEATH+15, BIRTH+9, BIRTH+10, BIRTH+13, BIRTH+15
, MSE+4
^XUSEC("DG ELIGIBILITY" EK+1, EV+1, SV1, MV+2
^XUSEC("DGFFP ACCESS" FFP+1

Label References

Name Line Occurrences
ASK ASK
DOBDOD PTDT+6, PTDT+9, INEL+5, INCOM+5, INCOM+8, INCOM2+5, INCOM2+8, DEATH+5
EK INE+1
SV AO+1, EC+1, COM+1, IR+1, POW+1, SER1+1, SER2+1, VN+1, OEIF+1, SVED+6
VET SV+1, MV+1, MSE+3

Naked Globals

Name Field # of Occurrence
^( EV+1, EV2+2, SV1, MV+2, AO+1, EC+1, COM+1, INE+1, IR+1, POW+1
, SER1+1, SER2+1, TAD+1, TADD+1, VN+1, PTDT+2
^("TYPE" VET+1
^("VET" VET+2
^(0 VET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*, ASK+1
>> %Y ASK
>> DA BIRTH+3, BIRTH+5, MSE+4
DFN EV+1, EV2+2, EV2+3, SV1, MV+2, VET+1, VET+2, VAGE+1, AO+1, EC+1
, COM+1, INE+1, IR+1, POW+1, SER1+1, SER2+1, TAD+1, TADD+1, ASK+1, VN+1
, SVED+9, PTDT+2, PTDT+5, PTDT+7, PTDT+8, POWV+2, INEL+3, INCOM+4, INCOM+6, INCOM+7
, INCOM2+4, INCOM2+6, INCOM2+7, DEATH+5, DEATH+7, DEATH+11, DEATH+15, BIRTH+4~, BIRTH+5*, BIRTH+9
, BIRTH+10, BIRTH+13, BIRTH+15, BIRTH+17, MSE+4
>> DGADDF BIRTH+1
DGDATA VAGE+1*, VAGE+2!, VAGE+3!
DGENR BIRTH+14~, BIRTH+15*, BIRTH+16, BIRTH+17, BIRTH+18
DGFLD PTDT+3~, PTDT+4*, PTDT+6, PTDT+9, INEL+2~, INEL+4*, INEL+5, INCOM+2~, INCOM+3*, INCOM+5
, INCOM+8, INCOM2+2~, INCOM2+3*, INCOM2+5, INCOM2+8, DOBDOD~, DOBDOD+3, DOBDOD+5, DEATH+2~, DEATH+3*
, DEATH+5, DEATH+8, DEATH+12, DEATH+16, BIRTH+6~, BIRTH+7*, BIRTH+11, BIRTH+19
DGOK SVED+7~, SVED+8*, SVED+9*, SVED+11
DGPC SVED+7~, SVED+14*, SVED+15, SVED+16
DGSV SVED+7~, SVED+9*, SVED+15*
DGVV VET+1*, VET+2, VET+3!
DGX SVED+6!, SVED+9, SVED+15, SVED+18!, DOBDOD~, DOBDOD+4, DOBDOD+5
>> DPTIDS( VAGE+1
DT VAGE+1
DUZ FFP+1, EK+1, EV+1, SV1, MV+2
>> EASAPP BIRTH+1
PC SVED+7~, SVED+9*, SVED+10*, SVED+14, SVED+16
U EV+1, EV2+2, EV2+3, SV1, MV+2, VAGE+1, AO+1, EC+1, COM+1, INE+1
, IR+1, POW+1, SER1+1, SER2+1, TAD+1, VN+1, SVED+9, SVED+15, PTDT+2, PTDT+4
, PTDT+5, PTDT+7, PTDT+8, POWV+2, INEL+3, INEL+4, INCOM+3, INCOM+4, INCOM+6, INCOM+7
, INCOM2+3, INCOM2+4, INCOM2+6, INCOM2+7, DEATH+3, DEATH+5, DEATH+7, DEATH+11, DEATH+15, BIRTH+7
, BIRTH+9, BIRTH+10, BIRTH+13, BIRTH+15, BIRTH+17, BIRTH+18, MSE+4
X FFP+1!, EK+1!, EV+1!, EV2+4!, SV+1, SV1!, MV+1, MV+2!, VET+2!, VAGE+1*
, VAGE+2!, VAGE+3*, AO+1!, EC+1!, EC+2!, COM+1!, INE+1!, IR+1!, POW+1!, SER1+1!
, SER2+1!, TAD+1!, VN+1!, SVED+6, SVED+12, SVED+17!, PTDT+2!, PTDT+5, PTDT+8, POWV+2!
, INEL+3, INCOM+4, INCOM+7, INCOM2+4, INCOM2+7, DOBDOD+6!, DEATH+1, DEATH+5, DEATH+7, DEATH+9!
, DEATH+11, DEATH+13!, DEATH+15, DEATH+17!, BIRTH+2, BIRTH+9, BIRTH+10, BIRTH+11!, BIRTH+18, BIRTH+20!
, MSE+3, MSE+4!
X1 VAGE+1*, VAGE+2!, VAGE+3!
X2 VAGE+1*, VAGE+2!, VAGE+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All