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

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)

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

FileMan Files Accessed Via FileMan Db Call

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