source: WorldVistAEHR/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVMCDD.m@ 1525

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

initial load of WorldVistAEHR

File size: 3.2 KB
Line 
1IVMCDD ;ALB/CJM - DATA DICTIONARY FUNCTIONS ; 01/30/2004
2 ;;2.0;INCOME VERIFICATION MATCH;**17,89**;21-OCT-94
3 ;
4FUTMT(IVMPAT,MTIEN) ;
5 ;Sets the "AC" x-ref on the IVM Patient file
6 ;Input -
7 ; IVMPAT - ien of IVM Patient file record
8 ; MTIEN - ien of record in Annual Means Test file
9 ;
10 Q:'$G(IVMPAT)
11 Q:'$G(MTIEN)
12 Q:'(+$G(^DGMT(408.31,MTIEN,0)))
13 Q:+$G(^DGMT(408.31,MTIEN,0))'>DT
14 S ^IVM(301.5,"AC",+$G(^DGMT(408.31,MTIEN,0)),IVMPAT,MTIEN)=""
15 Q
16 ;
17NOFUTMT(IVMPAT,MTIEN) ;
18 ;Kill logic for the "AC" x-ref on the IVM Patient file
19 ;Input -
20 ; IVMPAT - ien of IVM Patient file record
21 ; MTIEN - ien of record in Annual Means Test file
22 ;
23 Q:'$G(IVMPAT)
24 Q:'$G(MTIEN)
25 Q:'(+$G(^DGMT(408.31,MTIEN,0)))
26 K ^IVM(301.5,"AC",+$G(^DGMT(408.31,MTIEN,0)),IVMPAT,MTIEN)
27 Q
28 ;
29FUTRX(IVMPAT,MTIEN) ;
30 ;Sets the "AD" x-ref on the IVM Patient file
31 ;Input -
32 ; IVMPAT - ien of IVM Patient file record
33 ; MTIEN - ien of record in Annual Means Test file
34 ;
35 Q:'$G(IVMPAT)
36 Q:'$G(MTIEN)
37 Q:'(+$G(^DGMT(408.31,MTIEN,0)))
38 Q:+$G(^DGMT(408.31,MTIEN,0))'>DT
39 S ^IVM(301.5,"AD",+$G(^DGMT(408.31,MTIEN,0)),IVMPAT,MTIEN)=""
40 Q
41 ;
42NOFUTRX(IVMPAT,MTIEN) ;
43 ;Kill logic for the "AD" x-ref on the IVM Patient file
44 ;Input -
45 ; IVMPAT - ien of IVM Patient file record
46 ; MTIEN - ien of record in Annual Means Test file
47 ;
48 Q:'$G(IVMPAT)
49 Q:'$G(MTIEN)
50 Q:'(+$G(^DGMT(408.31,MTIEN,0)))
51 K ^IVM(301.5,"AD",+$G(^DGMT(408.31,MTIEN,0)),IVMPAT,MTIEN)
52 Q
53AESET(IVMPAT,MTIEN) ;
54 ;Sets the "AE" x-ref on the IVM Patient file
55 ;Input -
56 ; IVMPAT - ien of IVM Patient file record
57 ; MTIEN - ien of record in Annual Means Test file
58 ;
59 ;s ^IVM(301.5,"AE",dfn,date of means test,means test ien,ivm patient ien)
60 Q:'$G(IVMPAT)
61 Q:'$G(MTIEN)
62 Q:'(+$G(^IVM(301.5,IVMPAT,0)))
63 Q:'(+$G(^DGMT(408.31,MTIEN,0)))
64 Q:+$G(^DGMT(408.31,MTIEN,0))'>DT
65 S ^IVM(301.5,"AE",+$G(^IVM(301.5,IVMPAT,0)),+$G(^DGMT(408.31,MTIEN,0)),MTIEN,IVMPAT)=""
66 Q
67 ;
68AEKILL(IVMPAT,MTIEN) ;
69 ;Kill logic for the "AE" x-ref on the IVM Patient file
70 ;Input -
71 ; IVMPAT - ien of IVM Patient file record
72 ; MTIEN - ien of record in Annual Means Test file
73 ;
74 ;K ^IVM(301.5,"AE",dfn,date of means test,means test ien,ivm patient ien)
75 Q:'$G(IVMPAT)
76 Q:'$G(MTIEN)
77 Q:'(+$G(^DGMT(408.31,MTIEN,0)))
78 Q:'(+$G(^IVM(301.5,IVMPAT,0)))
79 K ^IVM(301.5,"AE",+$G(^IVM(301.5,IVMPAT,0)),+$G(^DGMT(408.31,MTIEN,0)),MTIEN,IVMPAT)
80 Q
81 ;
82AFSET(IVMPAT,MTIEN) ;
83 ;Sets the "AF" x-ref on the IVM Patient file
84 ;Input -
85 ; IVMPAT - ien of IVM Patient file record
86 ; MTIEN - ien of record in Annual Means Test file
87 ;
88 ;s ^IVM(301.5,"AF",dfn,date of copay test,copay test ien,ivm patient ien)
89 Q:'$G(IVMPAT)
90 Q:'$G(MTIEN)
91 Q:'(+$G(^DGMT(408.31,MTIEN,0)))
92 Q:'(+$G(^IVM(301.5,IVMPAT,0)))
93 Q:+$G(^DGMT(408.31,MTIEN,0))'>DT
94 S ^IVM(301.5,"AF",+$G(^IVM(301.5,IVMPAT,0)),+$G(^DGMT(408.31,MTIEN,0)),MTIEN,IVMPAT)=""
95 Q
96 ;
97AFKILL(IVMPAT,MTIEN) ;
98 ;Kill logic for the "AF" x-ref on the IVM Patient file
99 ;Input -
100 ; IVMPAT - ien of IVM Patient file record
101 ; MTIEN - ien of record in Annual Means Test file
102 ;
103 ;K ^IVM(301.5,"AF",dfn,date of copay test,copay test ien,ivm patient ien)
104 Q:'$G(IVMPAT)
105 Q:'$G(MTIEN)
106 Q:'(+$G(^DGMT(408.31,MTIEN,0)))
107 Q:'(+$G(^IVM(301.5,IVMPAT,0)))
108 K ^IVM(301.5,"AF",+$G(^IVM(301.5,IVMPAT,0)),+$G(^DGMT(408.31,MTIEN,0)),MTIEN,IVMPAT)
109 Q
Note: See TracBrowser for help on using the repository browser.