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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 29

Package Total Caller Graph
Registration 12 DGLOCK1  DGPTX11  DGRPTX  DGRPTX27  DGRPX7  DGRPX75  DGRPXC  DGRPXCR  
DGRPXR  DGRPXX7  DGRPXX71  DGRPXX72  
HINQ 5 DVBHCE  DVBHCE18  DVBHCE19  DVBHCE20  DVBHCE5  
Integrated Billing 5 IBXS11  IBXSC11  IBXSC114  IBXSC117  IBXSC121  
Albany OIFO 3 A1CKC  A1CKC2  A1CKC3  
Graphics 3 GRPX7  GRPX71  GRPX78  
Automated Medical Information Exchange 1 DVBAXA  

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

External References

Name Field # of Occurrence
EN^DDIOL FFP+1, EV+1, EV2+4, SV1VET+2, PTDT+2, POWV+2, DOBDOD+5, DEATH+8, DEATH+12
DEATH+16, BIRTH+11, BIRTH+19, MSE+4
EN^DGCLEAR ASK+3
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, SV1MV+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, SV1MV+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, SV1MV+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+3
>> %Y ASK
>> DA BIRTH+3, BIRTH+5, MSE+4
DFN EV+1, EV2+2, EV2+3, SV1MV+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+3, 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*
>> DGTMOT ASK+2*
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
>> DTOUT ASK+2
DUZ FFP+1, EK+1, EV+1, SV1MV+2
>> EASAPP BIRTH+1
PC SVED+7~, SVED+9*, SVED+10*, SVED+14, SVED+16
U EV+1, EV2+2, EV2+3, SV1MV+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