DGLOCK3 ;ALB/BOK,BAJ,JAM - PATIENT FILE MUMPS TRIGGER/DATA EDIT CHECKS ; 01/23/2006
Source file <DGLOCK3.m>
| 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) |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DIC(8 - [#8] | FIND1^DIC |
