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

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

initial load of WorldVistAEHR

File size: 2.4 KB
RevLine 
[613]1DGRTRIG ;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
5E40822(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
15E40813(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
25E40812(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
34E2911(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
43E3922(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
52E2711(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
61E354(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
70E40831(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
79E40821(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
Note: See TracBrowser for help on using the repository browser.