DGRPCTRG ;ALB/BAJ - CONFIDENTIAL ADDRESS TRIGGER AXEE141 ;May 17, 2006
;;5.3;Registration;**653**;Aug 13, 1993;Build 2
;;**653 BAJ May 1,2006 Modifications to Confidential address to support functionality moved
;;from EVC Release 2 to EVC Release 1
Q
EECHG ; entry point
; this tag is called by a trigger in the CONFIDENTIAL ADDRESS CATEGORY FIELD (#2.141)
; If the ELIGIBILITY/ENROLLMENT Category has been added, changed, or deleted, X will equal 1
; A Z07 must be sent anytime the E/E Category is modified on a confidential address
Q:'$G(DFN)
I X=1 D EVENT^IVMPLOG(DFN)
Q
EECONF(DFN) ; used to identify E/E Confidential Category
; This tag is called by all Confidential Address fields and files a Z07 message if true:
; I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG
;
; if there is no active E/E Category on file for this Confidential Address, return 0
N ISEE,ACT
S ISEE=0
I '$G(DFN) Q ISEE
I '$D(^DPT(DFN,.14,"B",1)) Q ISEE
S ACT=+$O(^DPT(DFN,.14,"B",1,""))
S ISEE=$P(^DPT(DFN,.14,ACT,0),U,2)="Y"
Q ISEE
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRPCTRG 1051 printed Dec 13, 2024@02:56:08 Page 2
DGRPCTRG ;ALB/BAJ - CONFIDENTIAL ADDRESS TRIGGER AXEE141 ;May 17, 2006
+1 ;;5.3;Registration;**653**;Aug 13, 1993;Build 2
+2 ;;**653 BAJ May 1,2006 Modifications to Confidential address to support functionality moved
+3 ;;from EVC Release 2 to EVC Release 1
+4 QUIT
EECHG ; entry point
+1 ; this tag is called by a trigger in the CONFIDENTIAL ADDRESS CATEGORY FIELD (#2.141)
+2 ; If the ELIGIBILITY/ENROLLMENT Category has been added, changed, or deleted, X will equal 1
+3 ; A Z07 must be sent anytime the E/E Category is modified on a confidential address
+4 if '$GET(DFN)
QUIT
+5 IF X=1
DO EVENT^IVMPLOG(DFN)
+6 QUIT
EECONF(DFN) ; used to identify E/E Confidential Category
+1 ; This tag is called by all Confidential Address fields and files a Z07 message if true:
+2 ; I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG
+3 ;
+4 ; if there is no active E/E Category on file for this Confidential Address, return 0
+5 NEW ISEE,ACT
+6 SET ISEE=0
+7 IF '$GET(DFN)
QUIT ISEE
+8 IF '$DATA(^DPT(DFN,.14,"B",1))
QUIT ISEE
+9 SET ACT=+$ORDER(^DPT(DFN,.14,"B",1,""))
+10 SET ISEE=$PIECE(^DPT(DFN,.14,ACT,0),U,2)="Y"
+11 QUIT ISEE
+12 ;
