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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGLOCK3

Package: Registration

Routine: DGLOCK3


Information

DGLOCK3 ;ALB/BOK,BAJ,JAM - PATIENT FILE MUMPS TRIGGER/DATA EDIT CHECKS ; 01/23/2006

Source Information

Source file <DGLOCK3.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 EN^DDIOL  $$FIND1^DIC  YN^DICN  FILE^DIE  $$GET1^DIQ  
Registration 2 EN^DGCLEAR  LOADCONF^DGREGTE2  

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

Package Total Caller Graph
Registration 1 DGREGTE2  

Entry Points

Name Comments DBIA/ICR reference
KILL
KILL1
S1
S2
CAD ;Confidential Address Edit
; DG*5.3*1143 - Active? field is not set into DB during address edit, do not check it
CADD ;Confidential Address Delete
ASK
ASK1 ;
; DG*5.3*1040 - Set DGTMOT on timeout. Calling routine checks for this variable to process timeout and cleanup this variable
; DG*5.3*1143 - quit on timeout
CADM ;Delete data from Confidential Address Categories
CADD1 ;Confidential Address Delete
COV(DGELG) ; Rule for deleting COLLATERAL OF VET eligibility code DG*5.3*1014;jam;
; Cannot delete COV if there is an active CCP assigned to the Patient
; Invoked by:
; DELETE TEST - .361 (PRIMARY ELIGIBILITY)
; - .01 (ELIGIBILITY CODE) of the PATIENT ELIGIBILITIES subfile (.0361)
; Input: DGELG - Eligibility code being deleted (Optional - defaults to Primary Elig Code, field .361)

External References

Name Field # of Occurrence
EN^DDIOL CADD1+3, COV+15
EN^DGCLEAR ASK1+16
LOADCONF^DGREGTE2 ASK1+8
$$FIND1^DIC COV+9
YN^DICN ASK
FILE^DIE ASK1+21
$$GET1^DIQ COV+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Do you want to delete all confidential address data"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"Answer 'Y'es to remove confidential address information, 'N'o to leave data in file"
  • Line Location: ASK+0
Routine Call
  • DIC
  • Line Location:
    • COV+9
Routine Call
  • DIE
  • Line Location:
    • ASK1+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(8 - [#8] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 KILL, KILL1
^DPT - [#2] KILL, CADD+5, CADM+1, CADM+4, CADD1+2, COV+12, COV+14

Label References

Name Line Occurrences
ASK ASK
CADM ASK1+18
KILL S1+1, S2+1
KILL1 KILL

Naked Globals

Name Field # of Occurrence
^( KILL*, KILL1, CADD+5, CADD1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*, ASK1+10, ASK1+14
>> %Y ASK
>> DFN KILL, CADD+5, ASK1+16, CADM+1, CADM+4, CADM+5, CADD1+2, COV+7, COV+12, COV+14
>> DGADDEDIT(4 ASK1+12*
>> DGADDGRP4("DELETE" ASK1+10*
DGBZ S1!, S1+1!, S2!, S2+1!
DGBZ( KILL, S1*, S2*
DGCCP COV+10~, COV+11*, COV+12*, COV+14
DGELG COV~, COV+7*, COV+9
DGERR ASK1+17~
DGFDA ASK1+17~
DGFDA( CADM+5*
DGFLG COV+10~, COV+11*, COV+12, COV+14*, COV+15
DGIEN CADM+2~, CADM+3*, CADM+4*, CADM+5
DGIZ KILL*, KILL1, S1+1!, S2+1!
DGJZ KILL1*, S1+1!, S2+1!
DGKZ KILL*, S1*, S1+1!, S2*, S2+1!
>> DGRTAON ASK1+6
>> DGTMOT ASK1+3*
DGX KILL*, KILL+1, ASK1+19~, ASK1+20*, ASK1+22
>> DTOUT ASK1+3
U CADD1+2
X KILL*, KILL+1*, ASK1+20, ASK1+22*, CADD1+3!, COV+15!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All