| 1 | DGRPCTRG ;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
|
|---|
| 6 | EECHG ; 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
|
|---|
| 13 | EECONF(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 | ;
|
|---|
