source: FOIAVistA/trunk/g/IVM.zwr@ 1226

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

initial load of FOIAVistA 6/30/08 version
File size: 11.0 KB
Line 
1Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
2Cache 13-Sep-2008 18:35:03 ZWR
3^IVM(301.5,0)="IVM PATIENT^301.5IP^^"
4^IVM(301.6,0)="IVM TRANSMISSION LOG^301.6IP^^"
5^IVM(301.61,0)="IVM BILLING TRANSMISSION^301.61^^"
6^IVM(301.62,0)="IVM FINANCIAL QUERY LOG^301.62IP^^"
7^IVM(301.63,0)="IVM EXTRACT MANAGEMENT^301.63A^^"
8^IVM(301.7,0)="IVM ADDRESS CHANGE LOG^301.7D^^"
9^IVM(301.9,0)="IVM SITE PARAMETER^301.9^1^1"
10^IVM(301.9,1,0)="050^23^^^^2960823^^^92^ELIGIBILITY ALERT@IVM.VA.GOV"
11^IVM(301.9,1,15)="1"
12^IVM(301.9,1,20)="1"
13^IVM(301.9,"B","050",1)=""
14^IVM(301.91,0)="IVM REASONS FOR NOT UPLOADING INSURANCE^301.91I^9^9"
15^IVM(301.91,1,0)="1^ALREADY HAVE INSURANCE POLICY"
16^IVM(301.91,2,0)="2^DATA APPEARS TO BE INCORRECT"
17^IVM(301.91,3,0)="3^INSURANCE COMPANY CLOSED"
18^IVM(301.91,4,0)="4^POLICY PLAN TYPE IS HMO"
19^IVM(301.91,5,0)="5^POLICY PLAN TYPE IS PPO"
20^IVM(301.91,6,0)="6^POLICY COVERAGE EXPIRED"
21^IVM(301.91,7,0)="7^POLICY BENEFITS FULLY USED"
22^IVM(301.91,8,0)="8^BENEFITS NOT AVAILABLE"
23^IVM(301.91,9,0)="9^COVERAGE FOR SPOUSE ONLY"
24^IVM(301.91,"B",1,1)=""
25^IVM(301.91,"B",2,2)=""
26^IVM(301.91,"B",3,3)=""
27^IVM(301.91,"B",4,4)=""
28^IVM(301.91,"B",5,5)=""
29^IVM(301.91,"B",6,6)=""
30^IVM(301.91,"B",7,7)=""
31^IVM(301.91,"B",8,8)=""
32^IVM(301.91,"B",9,9)=""
33^IVM(301.91,"C","ALREADY HAVE INSURANCE POLICY",1)=""
34^IVM(301.91,"C","BENEFITS NOT AVAILABLE",8)=""
35^IVM(301.91,"C","COVERAGE FOR SPOUSE ONLY",9)=""
36^IVM(301.91,"C","DATA APPEARS TO BE INCORRECT",2)=""
37^IVM(301.91,"C","INSURANCE COMPANY CLOSED",3)=""
38^IVM(301.91,"C","POLICY BENEFITS FULLY USED",7)=""
39^IVM(301.91,"C","POLICY COVERAGE EXPIRED",6)=""
40^IVM(301.91,"C","POLICY PLAN TYPE IS HMO",4)=""
41^IVM(301.91,"C","POLICY PLAN TYPE IS PPO",5)=""
42^IVM(301.92,0)="IVM DEMOGRAPHIC UPLOAD FIELDS^301.92^37^34"
43^IVM(301.92,1,0)="DATE OF BIRTH^PID07^1^2^.03^1"
44^IVM(301.92,1,1)="S Y=$P(VADM(3),""^"",1)"
45^IVM(301.92,1,2)="S Y=$P(VADM(3),""^"",1) D:Y D^DIQ"
46^IVM(301.92,2,0)="SEX^PID08^1^2^.02^1"
47^IVM(301.92,2,1)="S Y=$P(VADM(5),""^"",1)"
48^IVM(301.92,2,2)="S Y=$P(VADM(5),""^"",2)"
49^IVM(301.92,3,0)="GUARDIAN (VA)^ZGD03^0^2"
50^IVM(301.92,3,1)="S DR=.2912 D LOOK^IVMPREC9"
51^IVM(301.92,3,2)="S DR=.2912 D LOOK^IVMPREC9"
52^IVM(301.92,4,0)="STREET ADDRESS [LINE 1]^PID111^1^2^.111^^^1"
53^IVM(301.92,4,1)="S Y=$P(VAPA(1),""^"")"
54^IVM(301.92,4,2)="S Y=$P(VAPA(1),""^"")"
55^IVM(301.92,5,0)="STREET ADDRESS [LINE 2]^PID112^1^2^.112^^^1"
56^IVM(301.92,5,1)="S Y=$P(VAPA(2),""^"")"
57^IVM(301.92,5,2)="S Y=VAPA(2)"
58^IVM(301.92,7,0)="CITY^PID113^1^2^.114^^^1"
59^IVM(301.92,7,1)="S Y=$P(VAPA(4),""^"")"
60^IVM(301.92,7,2)="S Y=$P(VAPA(4),""^"")"
61^IVM(301.92,8,0)="STATE^PID114^1^2^.115^1^^1"
62^IVM(301.92,8,1)="S Y=$P(VAPA(5),""^"")"
63^IVM(301.92,8,2)="S Y=$P(VAPA(5),""^"",2)"
64^IVM(301.92,9,0)="ZIP+4^PID115^1^2^.1112^1^^1"
65^IVM(301.92,9,1)="S Y=$P(VAPA(11),""^"")"
66^IVM(301.92,9,2)="S Y=$P(VAPA(11),""^"",2)"
67^IVM(301.92,10,0)="COUNTY^PID12^1^2^.117^^^1"
68^IVM(301.92,10,1)="S Y=$P($G(^DIC(5,+VAPA(5),1,+VAPA(7),0)),""^"",3)"
69^IVM(301.92,10,2)="S Y=$P(VAPA(7),""^"",2)"
70^IVM(301.92,11,0)="PHONE NUMBER [RESIDENCE]^PID13^1^2^.131^^^1"
71^IVM(301.92,11,1)="S Y=$P(VAPA(8),""^"")"
72^IVM(301.92,11,2)="S Y=$P(VAPA(8),""^"")"
73^IVM(301.92,14,0)="RATED INCOMPETENT?^ZPD08^0^2^.293^1^1^^0"
74^IVM(301.92,14,1)="S DR=.293 D LOOK^IVMPREC9"
75^IVM(301.92,14,2)="S DR=.293 D LOOK^IVMPREC9"
76^IVM(301.92,15,0)="DATE OF DEATH^ZPD09^1^2^.351^1^^^0"
77^IVM(301.92,15,1)="S Y=$P($G(^DPT(DFN,.35)),""^"")"
78^IVM(301.92,15,2)="S Y=$P($G(^DPT(DFN,.35)),""^"") D:Y D^DIQ"
79^IVM(301.92,16,0)="ELIGIBLE FOR MEDICAID?^ZPD12^0^2^.381^1^1^^1"
80^IVM(301.92,16,1)="S DR=.381 D LOOK^IVMPREC9"
81^IVM(301.92,16,2)="S DR=.381 D LOOK^IVMPREC9"
82^IVM(301.92,17,0)="DATE MEDICAID LAST ASKED?^ZPD13^0^2^.382^1"
83^IVM(301.92,17,1)="S DR=.382 D LOOK^IVMPREC9"
84^IVM(301.92,17,2)="S DR=.382 D LOOK^IVMPREC9,D^DIQ:Y"
85^IVM(301.92,18,0)="INSTITUTION (VA)^ZGD04^0^2^.2911^1"
86^IVM(301.92,18,1)="S DR=.2911 D LOOK^IVMPREC9 S Y=$P($G(^DIC(4,+Y,0)),""^"")"
87^IVM(301.92,18,2)="S DR=.2911 D LOOK^IVMPREC9 S Y=$P($G(^DIC(4,+Y,0)),""^"")"
88^IVM(301.92,19,0)="RELATIONSHIP (VA)^ZGD05^0^2"
89^IVM(301.92,19,1)="S DR=.2913 D LOOK^IVMPREC9"
90^IVM(301.92,19,2)="S DR=.2913 D LOOK^IVMPREC9"
91^IVM(301.92,20,0)="STREET ADDRESS [LINE 1] (VA)^ZGD061^0^2"
92^IVM(301.92,20,1)="S DR=.2914 D LOOK^IVMPREC9"
93^IVM(301.92,20,2)="S DR=.2914 D LOOK^IVMPREC9"
94^IVM(301.92,21,0)="STREET ADDRESS [LINE 2] (VA)^ZGD062^0^2"
95^IVM(301.92,21,1)="S DR=.2915 D LOOK^IVMPREC9"
96^IVM(301.92,21,2)="S DR=.2915 D LOOK^IVMPREC9"
97^IVM(301.92,22,0)="CITY (VA)^ZGD063^0^2"
98^IVM(301.92,22,1)="S DR=.2916 D LOOK^IVMPREC9"
99^IVM(301.92,22,2)="S DR=.2916 D LOOK^IVMPREC9"
100^IVM(301.92,23,0)="STATE (VA)^ZGD064^0^2^.115^1^1"
101^IVM(301.92,23,1)="S DR=.2917 D LOOK^IVMPREC9"
102^IVM(301.92,23,2)="S DR=.2917 D LOOK^IVMPREC9"
103^IVM(301.92,24,0)="ZIP (VA)^ZGD065^0^2"
104^IVM(301.92,24,1)="S DR=.2918 D LOOK^IVMPREC9"
105^IVM(301.92,24,2)="S DR=.2918 D LOOK^IVMPREC9"
106^IVM(301.92,25,0)="PHONE (VA)^ZGD07^0^2"
107^IVM(301.92,25,1)="S DR=.2919 D LOOK^IVMPREC9"
108^IVM(301.92,25,2)="S DR=.2919 D LOOK^IVMPREC9"
109^IVM(301.92,26,0)="DATE RULED INCOMPETENT (VA)^ZGD08^0^2^.291^1"
110^IVM(301.92,26,1)="S DR=.291 D LOOK^IVMPREC9"
111^IVM(301.92,26,2)="S DR=.291 D LOOK^IVMPREC9,D^DIQ:Y"
112^IVM(301.92,27,0)="PRIMARY ELIGIBILITY CODE^ZEL02^0^2^.361^1^1^^1"
113^IVM(301.92,27,1)="D ELIG^VADPT S Y=+VAEL(1) K VAEL,VAERR"
114^IVM(301.92,27,2)="D ELIG^VADPT S Y=+VAEL(1) K VAEL,VAERR"
115^IVM(301.92,28,0)="CLAIM FOLDER NUMBER^ZEL06^0^2^^^^^1"
116^IVM(301.92,28,1)="S DR=.313 D LOOK^IVMPREC9"
117^IVM(301.92,28,2)="S DR=.313 D LOOK^IVMPREC9"
118^IVM(301.92,29,0)="ELIGIBILITY STATUS^ZEL10^0^2^.3611^1^1^^1"
119^IVM(301.92,29,1)="S DR=.3611 D LOOK^IVMPREC9"
120^IVM(301.92,29,2)="S DR=.3611 D LOOK^IVMPREC9"
121^IVM(301.92,30,0)="CLAIM FOLDER LOCATION^ZEL07^0^2^^^^^1"
122^IVM(301.92,30,1)="S DR=.314 D LOOK^IVMPREC9 Q:Y="""" S Y=$P($G(^DIC(4,Y,99)),""^"")_$P($G(^DIC(4,Y,0)),""^"")"
123^IVM(301.92,30,2)="S DR=.314 D LOOK^IVMPREC9 Q:Y="""" S Y=$P($G(^DIC(4,Y,99)),""^"")_$P($G(^DIC(4,Y,0)),""^"")"
124^IVM(301.92,31,0)="ELIGIBILITY STATUS DATE^ZEL11^0^2^.3612^1^^^1"
125^IVM(301.92,31,1)="S DR=.3612 D LOOK^IVMPREC9"
126^IVM(301.92,31,2)="S DR=.3612 D LOOK^IVMPREC9,D^DIQ:Y"
127^IVM(301.92,32,0)="ELIGIBILITY VERIF. METHOD^ZEL13^0^2^^^^^1"
128^IVM(301.92,32,1)="S DR=.3615 D LOOK^IVMPREC9"
129^IVM(301.92,32,2)="S DR=.3615 D LOOK^IVMPREC9"
130^IVM(301.92,33,0)="ADDRESS CHANGE DT/TM^RF171^1^2^.118^1^1^1"
131^IVM(301.92,33,1)="S DR=.118 D LOOK^IVMPREC9"
132^IVM(301.92,33,2)="S DR=.118 D LOOK^IVMPREC9"
133^IVM(301.92,34,0)="ADDRESS CHANGE SOURCE^RF162^1^2^.119^1^1^1"
134^IVM(301.92,34,1)="S DR=.119 D LOOK^IVMPREC9"
135^IVM(301.92,34,2)="S DR=.119 D LOOK^IVMPREC9"
136^IVM(301.92,35,0)="ADDRESS CHANGE SITE^RF161^1^2^.12^1^1^1"
137^IVM(301.92,35,1)="S DR=.12 D LOOK^IVMPREC9"
138^IVM(301.92,35,2)="S DR=.12 D LOOK^IVMPREC9"
139^IVM(301.92,36,0)="SOURCE OF NOTIFICATION^ZPD31^1^2^.353^1^1^0"
140^IVM(301.92,36,1)="S DR=.353 D LOOK^IVMPREC9"
141^IVM(301.92,36,2)="S DR=.353 D LOOK^IVMPREC9"
142^IVM(301.92,37,0)="DATE OF DEATH LAST UPDATED^ZPD32^1^2^.354^1^1^0"
143^IVM(301.92,37,1)="S DR=.354 D LOOK^IVMPREC9"
144^IVM(301.92,37,2)="S DR=.354 D LOOK^IVMPREC9"
145^IVM(301.92,"AD",4)=""
146^IVM(301.92,"AD",5)=""
147^IVM(301.92,"AD",7)=""
148^IVM(301.92,"AD",8)=""
149^IVM(301.92,"AD",9)=""
150^IVM(301.92,"AD",10)=""
151^IVM(301.92,"AD",11)=""
152^IVM(301.92,"AD",33)=""
153^IVM(301.92,"AD",34)=""
154^IVM(301.92,"AD",35)=""
155^IVM(301.92,"B","ADDRESS CHANGE DT/TM",33)=""
156^IVM(301.92,"B","ADDRESS CHANGE SITE",35)=""
157^IVM(301.92,"B","ADDRESS CHANGE SOURCE",34)=""
158^IVM(301.92,"B","CITY",7)=""
159^IVM(301.92,"B","CITY (VA)",22)=""
160^IVM(301.92,"B","CLAIM FOLDER LOCATION",30)=""
161^IVM(301.92,"B","CLAIM FOLDER NUMBER",28)=""
162^IVM(301.92,"B","COUNTY",10)=""
163^IVM(301.92,"B","DATE MEDICAID LAST ASKED?",17)=""
164^IVM(301.92,"B","DATE OF BIRTH",1)=""
165^IVM(301.92,"B","DATE OF DEATH",15)=""
166^IVM(301.92,"B","DATE OF DEATH LAST UPDATED",37)=""
167^IVM(301.92,"B","DATE RULED INCOMPETENT (VA)",26)=""
168^IVM(301.92,"B","ELIGIBILITY STATUS",29)=""
169^IVM(301.92,"B","ELIGIBILITY STATUS DATE",31)=""
170^IVM(301.92,"B","ELIGIBILITY VERIF. METHOD",32)=""
171^IVM(301.92,"B","ELIGIBLE FOR MEDICAID?",16)=""
172^IVM(301.92,"B","GUARDIAN (VA)",3)=""
173^IVM(301.92,"B","INSTITUTION (VA)",18)=""
174^IVM(301.92,"B","PHONE (VA)",25)=""
175^IVM(301.92,"B","PHONE NUMBER [RESIDENCE]",11)=""
176^IVM(301.92,"B","PRIMARY ELIGIBILITY CODE",27)=""
177^IVM(301.92,"B","RATED INCOMPETENT?",14)=""
178^IVM(301.92,"B","RELATIONSHIP (VA)",19)=""
179^IVM(301.92,"B","SEX",2)=""
180^IVM(301.92,"B","SOURCE OF NOTIFICATION",36)=""
181^IVM(301.92,"B","STATE",8)=""
182^IVM(301.92,"B","STATE (VA)",23)=""
183^IVM(301.92,"B","STREET ADDRESS [LINE 1]",4)=""
184^IVM(301.92,"B","STREET ADDRESS [LINE 1] (VA)",20)=""
185^IVM(301.92,"B","STREET ADDRESS [LINE 2]",5)=""
186^IVM(301.92,"B","STREET ADDRESS [LINE 2] (VA)",21)=""
187^IVM(301.92,"B","ZIP (VA)",24)=""
188^IVM(301.92,"B","ZIP+4",9)=""
189^IVM(301.92,"C","PID07",1)=""
190^IVM(301.92,"C","PID08",2)=""
191^IVM(301.92,"C","PID111",4)=""
192^IVM(301.92,"C","PID112",5)=""
193^IVM(301.92,"C","PID113",7)=""
194^IVM(301.92,"C","PID114",8)=""
195^IVM(301.92,"C","PID115",9)=""
196^IVM(301.92,"C","PID12",10)=""
197^IVM(301.92,"C","PID13",11)=""
198^IVM(301.92,"C","RF161",35)=""
199^IVM(301.92,"C","RF162",34)=""
200^IVM(301.92,"C","RF171",33)=""
201^IVM(301.92,"C","ZEL02",27)=""
202^IVM(301.92,"C","ZEL06",28)=""
203^IVM(301.92,"C","ZEL07",30)=""
204^IVM(301.92,"C","ZEL10",29)=""
205^IVM(301.92,"C","ZEL11",31)=""
206^IVM(301.92,"C","ZEL13",32)=""
207^IVM(301.92,"C","ZGD03",3)=""
208^IVM(301.92,"C","ZGD04",18)=""
209^IVM(301.92,"C","ZGD05",19)=""
210^IVM(301.92,"C","ZGD061",20)=""
211^IVM(301.92,"C","ZGD062",21)=""
212^IVM(301.92,"C","ZGD063",22)=""
213^IVM(301.92,"C","ZGD064",23)=""
214^IVM(301.92,"C","ZGD065",24)=""
215^IVM(301.92,"C","ZGD07",25)=""
216^IVM(301.92,"C","ZGD08",26)=""
217^IVM(301.92,"C","ZPD08",14)=""
218^IVM(301.92,"C","ZPD09",15)=""
219^IVM(301.92,"C","ZPD12",16)=""
220^IVM(301.92,"C","ZPD13",17)=""
221^IVM(301.92,"C","ZPD31",36)=""
222^IVM(301.92,"C","ZPD32",37)=""
223^IVM(301.93,0)="IVM CASE CLOSURE REASON^301.93^7^7"
224^IVM(301.93,1,0)="RECEIVED VERIFIED MEANS TEST"
225^IVM(301.93,2,0)="REJECTED VETERAN SSN"
226^IVM(301.93,3,0)="CASE NO LONGER MEETS CRITERIA"
227^IVM(301.93,4,0)="CASE WAS NOT VERIFIED"
228^IVM(301.93,5,0)="OLD CASE NO ACTION"
229^IVM(301.93,6,0)="CONVERTED"
230^IVM(301.93,7,0)="NOT CONVERTED"
231^IVM(301.93,"B","CASE NO LONGER MEETS CRITERIA",3)=""
232^IVM(301.93,"B","CASE WAS NOT VERIFIED",4)=""
233^IVM(301.93,"B","CONVERTED",6)=""
234^IVM(301.93,"B","NOT CONVERTED",7)=""
235^IVM(301.93,"B","OLD CASE NO ACTION",5)=""
236^IVM(301.93,"B","RECEIVED VERIFIED MEANS TEST",1)=""
237^IVM(301.93,"B","REJECTED VETERAN SSN",2)=""
238^IVM(301.94,0)="IVM FINANCIAL QUERY CLOSURE REASON^301.94^6^6"
239^IVM(301.94,1,0)="RECEIPT OF MEANS TEST^1"
240^IVM(301.94,2,0)="RECEIPT OF COPAY TEST^2"
241^IVM(301.94,3,0)="RECEIPT OF INCOME INFORMATION^3"
242^IVM(301.94,4,0)="DCD HAS NO INCOME DATA^4"
243^IVM(301.94,5,0)="ERROR ENCOUNTERED^5"
244^IVM(301.94,6,0)="AUTOMATIC CLOSURE^6"
245^IVM(301.94,"AC",1,1)=""
246^IVM(301.94,"AC",2,2)=""
247^IVM(301.94,"AC",3,3)=""
248^IVM(301.94,"AC",4,4)=""
249^IVM(301.94,"AC",5,5)=""
250^IVM(301.94,"AC",6,6)=""
251^IVM(301.94,"B","AUTOMATIC CLOSURE",6)=""
252^IVM(301.94,"B","DCD HAS NO INCOME DATA",4)=""
253^IVM(301.94,"B","ERROR ENCOUNTERED",5)=""
254^IVM(301.94,"B","RECEIPT OF COPAY TEST",2)=""
255^IVM(301.94,"B","RECEIPT OF INCOME INFORMATION",3)=""
256^IVM(301.94,"B","RECEIPT OF MEANS TEST",1)=""
Note: See TracBrowser for help on using the repository browser.