DGRTRIG ;EG - RELATIONSHIP FILE TRIGGERS ;09/12/2005 12:05 PM
;;5.3;Registration;**656**;Aug 13, 1994;Build 9
;
;trigger patient transmsission status (file # 301.5) if edit to Income Relation file # 408.22
E40822(IEN) ;
;input IEN of file # 408.22
I '$G(IEN) Q
N X,DFN
S X=$G(^DGMT(408.22,IEN,0)) I X="" Q
S DFN=$P(X,"^",1)
I DFN="" Q
D EVENT^IVMPLOG(DFN)
Q
;trigger patient transmission status (file # 301.5) if edit to Income Person file # 408.13
E40813(IEN) ;
;input IEN of file # 408.13
I '$G(IEN) Q
N X,DFN
S DFN=$O(^DGPR(408.12,"C",+IEN_";DGPR(408.13,",0)) I 'DFN Q
S X=$G(^DGPR(408.12,DFN,0)) I X="" Q
S DFN=$P(X,"^",1) I DFN="" Q
D EVENT^IVMPLOG(DFN)
Q
;trigger patient transmission status (file # 301.5) if edit to Patient Relation file # 408.12
E40812(IEN) ;
;input IEN of file # 408.12
N X,DFN
I '$G(IEN) Q
S X=$G(^DGPR(408.12,IEN,0)) I X="" Q
S DFN=$P(X,"^",1) I DFN="" Q
D EVENT^IVMPLOG(DFN)
Q
;trigger patient transmission status (file # 301.5) if edit to MST History file # 29.11
E2911(IEN) ;
;input IEN of file # 29.11
N X,DFN
I '$G(IEN) Q
S X=$G(^DGMS(29.11,IEN,0)) I X="" Q
S DFN=$P(X,"^",2) I DFN="" Q
D EVENT^IVMPLOG(DFN)
Q
;trigger patient transmission status (file # 301.5) if edit to Beneficiary Travel Certification file # 292.2
E3922(IEN) ;
;input IEN of file # 392.2
N X,DFN
I '$G(IEN) Q
S X=$G(^DGBT(392.2,IEN,0)) I X="" Q
S DFN=$P(X,"^",2) I DFN="" Q
D EVENT^IVMPLOG(DFN)
Q
;trigger patient transmission status (file # 301.5) if edit to Patient Enrollment # 27.11
E2711(IEN) ;
;input IEN of file # 27.11
I '$G(IEN) Q
N X,DFN
S X=$G(^DGEN(27.11,IEN,0)) I X="" Q
S DFN=$P(X,"^",2) I DFN="" Q
D EVENT^IVMPLOG(DFN)
Q
;trigger patient transmission status (file # 301.5) if edit to Billing Patient # 354
E354(IEN) ;
;input IEN of file # 354
I '$G(IEN) Q
N X,DFN
S X=$G(^IBA(354,IEN,0)) I X="" Q
S DFN=$P(X,"^",1) I DFN="" Q
D EVENT^IVMPLOG(DFN)
Q
;trigger patient transmission status (file # 301.5) if edit to Annual Means Test # 408.31
E40831(IEN) ;
;input IEN of file # 408.31
I '$G(IEN) Q
N X,DFN
S X=$G(^DGMT(408.31,IEN,0)) I X="" Q
S DFN=$P(X,"^",2) I DFN="" Q
D EVENT^IVMPLOG(DFN)
Q
;trigger patient transmission status (file # 301.5) if edit to Individual Annual Income # 408.21
E40821(IEN) ;
;input IEN of file 408.21
I '$G(IEN) Q
N X,DFN
S X=$G(^DGMT(408.21,IEN,0)) I X="" Q
S DFN=$P(X,"^",2) I DFN="" Q
D E40812(DFN)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRTRIG 2514 printed Apr 09, 2024@21:41:55 Page 2
DGRTRIG ;EG - RELATIONSHIP FILE TRIGGERS ;09/12/2005 12:05 PM
+1 ;;5.3;Registration;**656**;Aug 13, 1994;Build 9
+2 ;
+3 ;trigger patient transmsission status (file # 301.5) if edit to Income Relation file # 408.22
E40822(IEN) ;
+1 ;input IEN of file # 408.22
+2 IF '$GET(IEN)
QUIT
+3 NEW X,DFN
+4 SET X=$GET(^DGMT(408.22,IEN,0))
IF X=""
QUIT
+5 SET DFN=$PIECE(X,"^",1)
+6 IF DFN=""
QUIT
+7 DO EVENT^IVMPLOG(DFN)
+8 QUIT
+9 ;trigger patient transmission status (file # 301.5) if edit to Income Person file # 408.13
E40813(IEN) ;
+1 ;input IEN of file # 408.13
+2 IF '$GET(IEN)
QUIT
+3 NEW X,DFN
+4 SET DFN=$ORDER(^DGPR(408.12,"C",+IEN_";DGPR(408.13,",0))
IF 'DFN
QUIT
+5 SET X=$GET(^DGPR(408.12,DFN,0))
IF X=""
QUIT
+6 SET DFN=$PIECE(X,"^",1)
IF DFN=""
QUIT
+7 DO EVENT^IVMPLOG(DFN)
+8 QUIT
+9 ;trigger patient transmission status (file # 301.5) if edit to Patient Relation file # 408.12
E40812(IEN) ;
+1 ;input IEN of file # 408.12
+2 NEW X,DFN
+3 IF '$GET(IEN)
QUIT
+4 SET X=$GET(^DGPR(408.12,IEN,0))
IF X=""
QUIT
+5 SET DFN=$PIECE(X,"^",1)
IF DFN=""
QUIT
+6 DO EVENT^IVMPLOG(DFN)
+7 QUIT
+8 ;trigger patient transmission status (file # 301.5) if edit to MST History file # 29.11
E2911(IEN) ;
+1 ;input IEN of file # 29.11
+2 NEW X,DFN
+3 IF '$GET(IEN)
QUIT
+4 SET X=$GET(^DGMS(29.11,IEN,0))
IF X=""
QUIT
+5 SET DFN=$PIECE(X,"^",2)
IF DFN=""
QUIT
+6 DO EVENT^IVMPLOG(DFN)
+7 QUIT
+8 ;trigger patient transmission status (file # 301.5) if edit to Beneficiary Travel Certification file # 292.2
E3922(IEN) ;
+1 ;input IEN of file # 392.2
+2 NEW X,DFN
+3 IF '$GET(IEN)
QUIT
+4 SET X=$GET(^DGBT(392.2,IEN,0))
IF X=""
QUIT
+5 SET DFN=$PIECE(X,"^",2)
IF DFN=""
QUIT
+6 DO EVENT^IVMPLOG(DFN)
+7 QUIT
+8 ;trigger patient transmission status (file # 301.5) if edit to Patient Enrollment # 27.11
E2711(IEN) ;
+1 ;input IEN of file # 27.11
+2 IF '$GET(IEN)
QUIT
+3 NEW X,DFN
+4 SET X=$GET(^DGEN(27.11,IEN,0))
IF X=""
QUIT
+5 SET DFN=$PIECE(X,"^",2)
IF DFN=""
QUIT
+6 DO EVENT^IVMPLOG(DFN)
+7 QUIT
+8 ;trigger patient transmission status (file # 301.5) if edit to Billing Patient # 354
E354(IEN) ;
+1 ;input IEN of file # 354
+2 IF '$GET(IEN)
QUIT
+3 NEW X,DFN
+4 SET X=$GET(^IBA(354,IEN,0))
IF X=""
QUIT
+5 SET DFN=$PIECE(X,"^",1)
IF DFN=""
QUIT
+6 DO EVENT^IVMPLOG(DFN)
+7 QUIT
+8 ;trigger patient transmission status (file # 301.5) if edit to Annual Means Test # 408.31
E40831(IEN) ;
+1 ;input IEN of file # 408.31
+2 IF '$GET(IEN)
QUIT
+3 NEW X,DFN
+4 SET X=$GET(^DGMT(408.31,IEN,0))
IF X=""
QUIT
+5 SET DFN=$PIECE(X,"^",2)
IF DFN=""
QUIT
+6 DO EVENT^IVMPLOG(DFN)
+7 QUIT
+8 ;trigger patient transmission status (file # 301.5) if edit to Individual Annual Income # 408.21
E40821(IEN) ;
+1 ;input IEN of file 408.21
+2 IF '$GET(IEN)
QUIT
+3 NEW X,DFN
+4 SET X=$GET(^DGMT(408.21,IEN,0))
IF X=""
QUIT
+5 SET DFN=$PIECE(X,"^",2)
IF DFN=""
QUIT
+6 DO E40812(DFN)
+7 QUIT
