Routine: DGLOCK3

Information

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

Source file <DGLOCK3.m>

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

Name	Comments	DBIA/ICR reference
KILL
KILL1
S1
S2
CAD	;Confidential Address Edit
CADD	;Confidential Address Delete
ASK
ASK1	; ; DG5.31040 - 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 DG5.31014;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)

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

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

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

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

Name	Field # of Occurrence
>> %	ASK*, ASK1+3
>> %Y	ASK
>> DFN	KILL, CAD+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*, KILL1, S1+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!