| 1 | DGRTRIG ;EG - RELATIONSHIP FILE TRIGGERS ;09/12/2005 12:05 PM
|
|---|
| 2 | ;;5.3;Registration;**656**;Aug 13, 1994;Build 9
|
|---|
| 3 | ;
|
|---|
| 4 | ;trigger patient transmsission status (file # 301.5) if edit to Income Relation file # 408.22
|
|---|
| 5 | E40822(IEN) ;
|
|---|
| 6 | ;input IEN of file # 408.22
|
|---|
| 7 | I '$G(IEN) Q
|
|---|
| 8 | N X,DFN
|
|---|
| 9 | S X=$G(^DGMT(408.22,IEN,0)) I X="" Q
|
|---|
| 10 | S DFN=$P(X,"^",1)
|
|---|
| 11 | I DFN="" Q
|
|---|
| 12 | D EVENT^IVMPLOG(DFN)
|
|---|
| 13 | Q
|
|---|
| 14 | ;trigger patient transmission status (file # 301.5) if edit to Income Person file # 408.13
|
|---|
| 15 | E40813(IEN) ;
|
|---|
| 16 | ;input IEN of file # 408.13
|
|---|
| 17 | I '$G(IEN) Q
|
|---|
| 18 | N X,DFN
|
|---|
| 19 | S DFN=$O(^DGPR(408.12,"C",+IEN_";DGPR(408.13,",0)) I 'DFN Q
|
|---|
| 20 | S X=$G(^DGPR(408.12,DFN,0)) I X="" Q
|
|---|
| 21 | S DFN=$P(X,"^",1) I DFN="" Q
|
|---|
| 22 | D EVENT^IVMPLOG(DFN)
|
|---|
| 23 | Q
|
|---|
| 24 | ;trigger patient transmission status (file # 301.5) if edit to Patient Relation file # 408.12
|
|---|
| 25 | E40812(IEN) ;
|
|---|
| 26 | ;input IEN of file # 408.12
|
|---|
| 27 | N X,DFN
|
|---|
| 28 | I '$G(IEN) Q
|
|---|
| 29 | S X=$G(^DGPR(408.12,IEN,0)) I X="" Q
|
|---|
| 30 | S DFN=$P(X,"^",1) I DFN="" Q
|
|---|
| 31 | D EVENT^IVMPLOG(DFN)
|
|---|
| 32 | Q
|
|---|
| 33 | ;trigger patient transmission status (file # 301.5) if edit to MST History file # 29.11
|
|---|
| 34 | E2911(IEN) ;
|
|---|
| 35 | ;input IEN of file # 29.11
|
|---|
| 36 | N X,DFN
|
|---|
| 37 | I '$G(IEN) Q
|
|---|
| 38 | S X=$G(^DGMS(29.11,IEN,0)) I X="" Q
|
|---|
| 39 | S DFN=$P(X,"^",2) I DFN="" Q
|
|---|
| 40 | D EVENT^IVMPLOG(DFN)
|
|---|
| 41 | Q
|
|---|
| 42 | ;trigger patient transmission status (file # 301.5) if edit to Beneficiary Travel Certification file # 292.2
|
|---|
| 43 | E3922(IEN) ;
|
|---|
| 44 | ;input IEN of file # 392.2
|
|---|
| 45 | N X,DFN
|
|---|
| 46 | I '$G(IEN) Q
|
|---|
| 47 | S X=$G(^DGBT(392.2,IEN,0)) I X="" Q
|
|---|
| 48 | S DFN=$P(X,"^",2) I DFN="" Q
|
|---|
| 49 | D EVENT^IVMPLOG(DFN)
|
|---|
| 50 | Q
|
|---|
| 51 | ;trigger patient transmission status (file # 301.5) if edit to Patient Enrollment # 27.11
|
|---|
| 52 | E2711(IEN) ;
|
|---|
| 53 | ;input IEN of file # 27.11
|
|---|
| 54 | I '$G(IEN) Q
|
|---|
| 55 | N X,DFN
|
|---|
| 56 | S X=$G(^DGEN(27.11,IEN,0)) I X="" Q
|
|---|
| 57 | S DFN=$P(X,"^",2) I DFN="" Q
|
|---|
| 58 | D EVENT^IVMPLOG(DFN)
|
|---|
| 59 | Q
|
|---|
| 60 | ;trigger patient transmission status (file # 301.5) if edit to Billing Patient # 354
|
|---|
| 61 | E354(IEN) ;
|
|---|
| 62 | ;input IEN of file # 354
|
|---|
| 63 | I '$G(IEN) Q
|
|---|
| 64 | N X,DFN
|
|---|
| 65 | S X=$G(^IBA(354,IEN,0)) I X="" Q
|
|---|
| 66 | S DFN=$P(X,"^",1) I DFN="" Q
|
|---|
| 67 | D EVENT^IVMPLOG(DFN)
|
|---|
| 68 | Q
|
|---|
| 69 | ;trigger patient transmission status (file # 301.5) if edit to Annual Means Test # 408.31
|
|---|
| 70 | E40831(IEN) ;
|
|---|
| 71 | ;input IEN of file # 408.31
|
|---|
| 72 | I '$G(IEN) Q
|
|---|
| 73 | N X,DFN
|
|---|
| 74 | S X=$G(^DGMT(408.31,IEN,0)) I X="" Q
|
|---|
| 75 | S DFN=$P(X,"^",2) I DFN="" Q
|
|---|
| 76 | D EVENT^IVMPLOG(DFN)
|
|---|
| 77 | Q
|
|---|
| 78 | ;trigger patient transmission status (file # 301.5) if edit to Individual Annual Income # 408.21
|
|---|
| 79 | E40821(IEN) ;
|
|---|
| 80 | ;input IEN of file 408.21
|
|---|
| 81 | I '$G(IEN) Q
|
|---|
| 82 | N X,DFN
|
|---|
| 83 | S X=$G(^DGMT(408.21,IEN,0)) I X="" Q
|
|---|
| 84 | S DFN=$P(X,"^",2) I DFN="" Q
|
|---|
| 85 | D E40812(DFN)
|
|---|
| 86 | Q
|
|---|
