source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPCTRG.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1DGRPCTRG ;ALB/BAJ - CONFIDENTIAL ADDRESS TRIGGER AXEE141 ;May 17, 2006
2 ;;5.3;Registration;**653**;Aug 13, 1993;Build 2
3 ;;**653 BAJ May 1,2006 Modifications to Confidential address to support functionality moved
4 ;;from EVC Release 2 to EVC Release 1
5 Q
6EECHG ; entry point
7 ; this tag is called by a trigger in the CONFIDENTIAL ADDRESS CATEGORY FIELD (#2.141)
8 ; If the ELIGIBILITY/ENROLLMENT Category has been added, changed, or deleted, X will equal 1
9 ; A Z07 must be sent anytime the E/E Category is modified on a confidential address
10 Q:'$G(DFN)
11 I X=1 D EVENT^IVMPLOG(DFN)
12 Q
13EECONF(DFN) ; used to identify E/E Confidential Category
14 ; This tag is called by all Confidential Address fields and files a Z07 message if true:
15 ; I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG
16 ;
17 ; if there is no active E/E Category on file for this Confidential Address, return 0
18 N ISEE,ACT
19 S ISEE=0
20 I '$G(DFN) Q ISEE
21 I '$D(^DPT(DFN,.14,"B",1)) Q ISEE
22 S ACT=+$O(^DPT(DFN,.14,"B",1,""))
23 S ISEE=$P(^DPT(DFN,.14,ACT,0),U,2)="Y"
24 Q ISEE
25 ;
Note: See TracBrowser for help on using the repository browser.