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

Package Total Call Graph
VA FileMan 5 EN^DDIOL  $$FIND1^DIC  YN^DICN  FILE^DIE  $$GET1^DIQ  
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: 2

Package Total Caller Graph
Integrated Billing 1 PATIENT ELIGIBILITIES  
Registration 1 ^DPT  

Entry Points

Name Comments DBIA/ICR reference
KILL
KILL1
S1
S2
CAD ;Confidential Address Edit
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
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 CAD+2, CADD1+3, COV+15
EN^DGCLEAR ASK1+4
$$FIND1^DIC COV+9
YN^DICN ASK
FILE^DIE CADD+8, ASK1+8
$$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:
    • CADD+8
    • ASK1+8

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 KILLKILL1
^DPT - [#2] KILLCAD+1, CADD+2, CADM+1, CADM+4, CADD1+2, COV+12, COV+14

Label References

Name Line Occurrences
ASK ASK
CADM CADD+4, ASK1+5
KILL S1+1, S2+1
KILL1 KILL

Naked Globals

Name Field # of Occurrence
^( KILL*, KILL1CAD+1, CADD+2, CADD1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*, ASK1+3
>> %Y ASK
>> DFN KILLCAD+1, CADD+2, ASK1+4, CADM+1, CADM+4, CADM+5, CADD1+2, COV+7, COV+12
, COV+14
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 CADD+3~
DGFDA CADD+3~, CADD+5
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*, KILL1S1+1!, S2+1!
DGJZ KILL1*, S1+1!, S2+1!
DGKZ KILL*, S1*, S1+1!, S2*, S2+1!
>> DGTMOT ASK1+2*
DGX KILL*, KILL+1, CADD+6~, CADD+7*, CADD+9, ASK1+6~, ASK1+7*, ASK1+9
>> DTOUT ASK1+2
U CAD+1, CADD1+2
X KILL*, KILL+1*, CAD+2!, CADD+7, CADD+9*, ASK1+7, ASK1+9*, 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