source: WorldVistAEHR/trunk/g/IVM.zwr@ 1608

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

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