Produced by Araxis Merge on 9/11/2018 8:57:47 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | OSCIF MCCF EDI TAS_Sept2018.zip | TAS+eBill+SDD+US2599+v2.00.docx | Fri Jun 29 19:51:09 2018 UTC |
2 | OSCIF MCCF EDI TAS_Sept2018.zip | TAS+eBill+SDD+US2599+v2.00.docx | Mon Sep 10 18:29:54 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 10 | 1938 |
Changed | 9 | 18 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | TAS eBill SDD US2599 | |
2 | System Des ign Docume nt | |
3 | IB*2.0*608 | |
4 | ||
5 | ||
6 | ||
7 | ||
8 | Department of Vetera ns Affairs | |
9 | March 2018 | |
10 | Version 2. 0 | |
11 | User Story Number: U S-2599 | |
12 | User Story Name: non -MCCF Pay- to Address _Rate Type s | |
13 | Product Ba cklog ID: n/a | |
14 | Rally ID: US-2599 | |
15 | Epic Taxon omy | |
16 | eBiz Com pliance Port Upda te Increase N o Touch TAS A pps | |
17 | Design/Res olution | |
18 | Overall De sign Compo nents: | |
19 | Data Dicti onary File s: | |
20 | Site Param eters’ TRI CARE Pay-T o Provider s sub-file – #350.92 9 (modifie d) | |
21 | Site Param eters’ Non -MCCF Rat e Types fo r PTP sub- file - #35 0.928 (new ) | |
22 | ||
23 | Routines: | |
24 | IBJPS2 (mo dified) | |
25 | IBJPS3 (mo dified) | |
26 | IBJPS4 (mo dified) | |
27 | IBJPS7 (ne w) | |
28 | ||
29 | List Templ ates: | |
30 | IBJP IB TR ICARE PAY- TO PROVS ( modified) | |
31 | IBJP IB NO N-MCCF RAT E TYPES (n ew) | |
32 | ||
33 | Protocols: | |
34 | IBJP IB TR ICARE PAY- TO PROVIDE RS MENU (d elete) | |
35 | IBJP IB NO N-MCCF RAT E TYPE ADD (new) | |
36 | IBJP IB NO N-MCCF RAT E TYPE DEL (new) | |
37 | IBJP IB NO N-MCCF RAT E TYPES (n ew) | |
38 | IBJP IB NO N-MCCF RAT E TYPES ME NU (new) | |
39 | IBJP IB NO N-MCCF PAY -TO PROVID ERS MENU ( new) | |
40 | ||
41 | *NOTE – Na mes of the protocols and/or wo rklists ar e not bein g changed. They are internall y viewable only. C hanging th ose names would requ ire either an integr ation agre ement with the proto col file t o change t hem or rem oving them all and s ending new ones in t heir place . The gai ns would n ot be wort h the extr a work or risk. In addition, the protoc ol “IBJP I B TRICARE PAY-TO PRO VIDERS MEN U” is bein g deleted because it is being replaced b y “IBJP IB NON-MCCF PAY-TO PRO VIDERS MEN U”. | |
42 | ||
43 | *NOTE-Chan ging all d isplayed n ames for p rompts, et c. are bei ng changed from TRIC ARE to Non -MCCF. | |
44 | ||
45 | *NOTE-The code to co mpare for the exact same addre ss is alre ady in pla ce (DIFF^I BJPS3) and does not require ch anges. Th e only cod e change r equired to this exis ting code is the TRI CARE^IBJPS 4 module o f code whi ch determi nes whethe r the Bill /Claim has one of th e Non-MCCF Rate Type s. | |
46 | Detailed D esign: | |
47 | DATA DICTI ONARY FILE S: | |
48 | Site Param eters’ TRI CARE Pay-T o Provider s sub-file – #350.92 9 (modific ations) | |
49 | Data Dicti onary | |
50 | Activities | |
51 | FileName & Number | |
52 | Site Param eters’ TRI CARE Pay-T o Provider s sub-file (#350.929 ) | |
53 | Current Da ta Definit ions | |
54 | STANDARD D ATA DICTIO NARY #350. 929 -- TRI CARE PAY-T O PROVIDER S SUB-FILE 2/21/18 PAGE 1 | |
55 | STORED IN ^IBE(350.9 ,D0,29, SITE: PII UCI: VISTA ,ROU | |
56 | ||
57 | DATA NAME GLOB AL DATA | |
58 | ELEMENT TITLE LOCA TION TYPE | |
59 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
60 | This multi ple contai ns the lis t of TRICA RE-specifi c Pay-To P roviders f or this | |
61 | VistA data base. | |
62 | ||
63 | CROSS | |
64 | REFERENCED BY: TC FA CILITY(B) | |
65 | INDEXED BY : TC FA CILITY (AC ) | |
66 | ||
67 | 350.929,.0 1 TC FAC ILITY 0;1 POINTER T O INSTITUT ION FILE ( #4) | |
68 | INPUT TRANSFORM: S DIC("S ")="I $$SC RN4^IBJPS4 (Y)" D ^DI C K DIC S | |
69 | DIC=DIE ,X=+Y K:Y< 0 X | |
70 | LAST E DITED: JUL 09, 2014 | |
71 | HELP-P ROMPT: Please c hoose the TRICARE-sp ecific Pay -To | |
72 | Provider from the Institutio n file. | |
73 | DESCRI PTION: Enter a TRICARE-sp ecific Pay -to Provid er. | |
74 | Usually, a Pay-to Provider i s a medica l center | |
75 | (e.g. VA MC, M&ROC, etc.). I f you ente r only | |
76 | one TRIC ARE-specif ic Pay-to Provider, it will | |
77 | be the d efault Pay -to Provid er for all TRICARE | |
78 | claims a nd you wou ld not nee d to assoc iate | |
79 | division s with the default. Multiple TRICARE- | |
80 | specific Pay-to Pr oviders mu st be asso ciated | |
81 | with the divisions to which they apply . | |
82 | ||
83 | SCREEN : S DIC("S ")="I $$SC RN4^IBJPS4 (Y)" | |
84 | EXPLAN ATION: Inactive , not nati onal, and pharmacy e ntries ar | |
85 | e screen ed out. | |
86 | CROSS- REFERENCE: 350.929^ B | |
87 | 1)= S ^I BE(350.9,D A(1),29,"B ",$E(X,1,3 0),DA)="" | |
88 | 2)= K ^I BE(350.9,D A(1),29,"B ",$E(X,1,3 0),DA) | |
89 | ||
90 | FIELD INDEX: AC (#871 ) MUMPS IR ACTION | |
91 | Sh ort Descr: Name and address d efaults | |
92 | De scription: The purp ose of thi s x-ref is to defaul t the | |
93 | name and address f ields in t his sub-fi le from | |
94 | data fou nd in the Institutio n file. T he idea | |
95 | is that the user w ill select a VA Inst itution | |
96 | from fil e 4 to be one of the TRICARE-s pecific | |
97 | Pay-To P roviders i n this sub -file. Th e name | |
98 | and addr ess of the VA Instit ution will be used | |
99 | as defau lts for th e name and address f ields | |
100 | here in this sub-f ile. The default na me and | |
101 | address informatio n may be o verridden. | |
102 | Set Logic: I $G(X1( 1))'=$G(X2 (1)) D DEF ^IBJPS3(+$ G(X2(1)), | |
103 | .DA,1) | |
104 | K ill Logic: Q | |
105 | X(1): TC FACIL ITY (350. 929,.01) (forwards) | |
106 | ||
107 | 350.929,.0 2 TC NAM E 0;2 FREE TEXT (Required ) | |
108 | TRICAR E Pay-to P rovider Na me | |
109 | INPUT TRANSFORM: K:$L(X)> 35!($L(X)< 1) X | |
110 | LAST E DITED: JUL 09, 2014 | |
111 | HELP-P ROMPT: Answer m ust be 1-3 5 characte rs in leng th. | |
112 | DESCRI PTION: You may modify the TRICARE-s pecific Pa y-to | |
113 | Provider name for use on ele ctronic or printed | |
114 | claims. | |
115 | ||
116 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
117 | of the . 01 field. | |
118 | ||
119 | 350.929,.0 3 TC FED ERAL TAX N UMBER 0;3 FREE TEXT | |
120 | TRICAR E Pay-to P rovider Fe deral Tax ID Number | |
121 | INPUT TRANSFORM: K:$L(X)> 10!($L(X)< 10)!'(X?2N 1"-"7N) X | |
122 | LAST E DITED: JUL 09, 2014 | |
123 | HELP-P ROMPT: Answer m ust be 10 characters in the fo rmat | |
124 | NN-NNNNN NN. | |
125 | DESCRI PTION: Enter th e Federal Tax ID for the | |
126 | TRICARE- specific P ay-to Prov ider. Mak e sure | |
127 | you ente r the Tax ID Number for the TR ICARE | |
128 | Pay-to P rovider, w hich may b e differen t from | |
129 | your sit e's Tax ID . Enter 1 0 characte rs in the | |
130 | format N N-NNNNNNN. | |
131 | ||
132 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
133 | of the . 01 field i f the .01 field is t he same | |
134 | institut ion as def ined in th e IB site | |
135 | paramete rs field 3 50.9, .02. | |
136 | ||
137 | 350.929,.0 4 TC TEL EPHONE NUM BER 0;4 FREE TEXT | |
138 | TRICAR E Pay-to P rovider Ph one Number | |
139 | INPUT TRANSFORM: K:$L(X)> 30!($L(X)< 1) X | |
140 | LAST E DITED: JUL 09, 2014 | |
141 | HELP-P ROMPT: Answer m ust be 1-3 0 characte rs in leng th. | |
142 | DESCRI PTION: Enter th e phone nu mber to be used on e lectronic | |
143 | or print ed claims. This is the number you | |
144 | would wa nt a payer to use to contact t he site | |
145 | about a TRICARE cl aim. | |
146 | ||
147 | 350.929,.0 5 TC PAR ENT PAY-TO PROVIDER 0;5 NUMBER | |
148 | INPUT TRANSFORM: K:+X'=X! (X>9999)!( X<1)!(X?.E 1"."1N.N) X | |
149 | LAST E DITED: MAY 08, 2014 | |
150 | HELP-P ROMPT: Type a n umber betw een 1 and 9999, 0 de cimal | |
151 | digits. | |
152 | DESCRI PTION: This fie ld determi nes if thi s entry in the | |
153 | sub-file is a TRIC ARE Pay-to Provider | |
154 | institut ion or if it is a Di vision bei ng linked | |
155 | to the p arent TRIC ARE Pay-to Provider | |
156 | institut ion, that is, anothe r sub-file entry. | |
157 | ||
158 | If this field is d efined, th en it hold s the IEN | |
159 | in this sub-file o f the pare nt TRICARE Pay-to | |
160 | Provider instituti on for thi s specific | |
161 | division . | |
162 | ||
163 | If this field is n il, then t his sub-fi le entry | |
164 | is the p arent TRIC ARE Pay-to Provider | |
165 | institut ion. | |
166 | ||
167 | This fie ld should not be set via FileM an. The | |
168 | applicat ion in the IB Site P aremeter e dit | |
169 | option w ill set th is field a ppropriate ly based | |
170 | on user input. | |
171 | ||
172 | 350.929,1. 01 TC STR EET ADDRES S 1 1;1 FREE TEXT | |
173 | TRICAR E Pay-to P rovider Ad dress Line 1 | |
174 | INPUT TRANSFORM: K:$L(X)> 55!($L(X)< 1) X | |
175 | LAST E DITED: JUL 09, 2014 | |
176 | HELP-P ROMPT: Answer m ust be 1-5 5 characte rs in leng th. | |
177 | DESCRI PTION: You may modify the TRICARE-s pecific Pa y-To | |
178 | Provider Address f or use on electronic or | |
179 | printed claims. Y ou may ent er a P.O. Box. | |
180 | ||
181 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
182 | of the . 01 field. | |
183 | ||
184 | 350.929,1. 02 TC STR EET ADDRES S 2 1;2 FREE TEXT | |
185 | TRICAR E Pay-to P rovider Ad dress Line 2 | |
186 | INPUT TRANSFORM: K:$L(X)> 55!($L(X)< 1) X | |
187 | LAST E DITED: JUL 09, 2014 | |
188 | HELP-P ROMPT: Answer m ust be 1-5 5 characte rs in leng th. | |
189 | DESCRI PTION: Enter ad ditional a ddress inf ormation, if | |
190 | needed. | |
191 | ||
192 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
193 | of the . 01 field. | |
194 | ||
195 | 350.929,1. 03 TC CIT Y 1;3 FREE TEXT | |
196 | TRICAR E Pay-to P rovider Ci ty | |
197 | INPUT TRANSFORM: K:$L(X)> 40!($L(X)< 2) X | |
198 | LAST E DITED: JUL 09, 2014 | |
199 | HELP-P ROMPT: Answer m ust be 2-4 0 characte rs in leng th. | |
200 | DESCRI PTION: You may modify the TRICARE P ay-to Prov ider | |
201 | address for use on electroni c or print ed | |
202 | claims. | |
203 | ||
204 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
205 | of the . 01 field. | |
206 | ||
207 | 350.929,1. 04 TC STA TE 1;4 POINTER T O STATE FI LE (#5) | |
208 | TRICAR E Pay-to P rovider St ate | |
209 | LAST E DITED: JUL 09, 2014 | |
210 | HELP-P ROMPT: Answer w ith State Number, or Name, or | |
211 | Abbrevia tion. | |
212 | DESCRI PTION: You may modify the TRICARE P ay-to Prov ider | |
213 | address for use on electroni c or print ed | |
214 | claims. | |
215 | ||
216 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
217 | of the . 01 field. | |
218 | ||
219 | 350.929,1. 05 TC ZIP 1;5 FREE TEXT | |
220 | TRICAR E Pay-to P rovider Zi p Code | |
221 | INPUT TRANSFORM: K:$L(X)> 15!($L(X)< 3) X | |
222 | LAST E DITED: JUL 09, 2014 | |
223 | HELP-P ROMPT: Answer m ust be 3-1 5 characte rs in leng th. | |
224 | DESCRI PTION: You may modify the TRICARE P ay-to Prov ider | |
225 | address for use on electroni c or print ed | |
226 | claims. | |
227 | ||
228 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
229 | of the . 01 field. | |
230 | ||
231 | FILE S POINTED TO FIELDS | |
232 | INSTITUTIO N (#4) TC FAC ILITY (#.0 1) | |
233 | STATE (#5) TC STA TE (#1.04) | |
234 | ||
235 | INPUT TEMP LATE(S): | |
236 | PRINT TEMP LATE(S): | |
237 | SORT TEMPL ATE(S): | |
238 | FORM(S)/BL OCK(S): | |
239 | Modified L ogic (Chan ges are in bold) | |
240 | STANDARD D ATA DICTIO NARY #350. 929 -- TRI CARE PAY-T O PROVIDER S SUB-FILE 2/22/18 PAGE 1 | |
241 | STORED IN ^IBE(350.9 ,D0,29, SITE: PII UCI: VISTA ,ROU | |
242 | ||
243 | DATA NAME GLOB AL DATA | |
244 | ELEMENT TITLE LOCA TION TYPE | |
245 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
246 | This multi ple contai ns the lis t of Non-M CCF-specif ic Pay-To Providers for this | |
247 | VistA data base. | |
248 | ||
249 | CROSS | |
250 | REFERENCED BY: TC FA CILITY(B) | |
251 | INDEXED BY : TC FA CILITY (AC ) | |
252 | ||
253 | 350.929,.0 1 TC FAC ILITY 0;1 POINTER T O INSTITUT ION FILE ( #4) | |
254 | INPUT TRANSFORM: S DIC("S ")="I $$SC RN4^IBJPS4 (Y)" D ^DI C K DIC S | |
255 | DIC=$G( DIE),X=+Y K:Y<0 X | |
256 | LAST E DITED: FEB 22, 2018 | |
257 | HELP-P ROMPT: Please c hoose the Non-MCCF-s pecific Pa y-To | |
258 | Provider from the Institutio n file. | |
259 | DESCRI PTION: Enter a Non-MCCF-s pecific Pa y-to Provi der. | |
260 | Usually, a Pay-to Provider i s a medica l center | |
261 | (e.g. VA MC, M&ROC, etc.). I f you ente r only | |
262 | one Non- MCCF-speci fic Pay-to Provider, it will | |
263 | be the d efault Pay -to Provid er for all Non-MCCF | |
264 | claims a nd you wou ld not nee d to assoc iate | |
265 | division s with the default. Multiple Non-MCCF- | |
266 | specific Pay-to Pr oviders mu st be asso ciated | |
267 | with the divisions to which they apply . | |
268 | ||
269 | SCREEN : S DIC("S ")="I $$SC RN4^IBJPS4 (Y)" | |
270 | EXPLAN ATION: Inactive , not nati onal, and pharmacy e ntries ar | |
271 | e screen ed out. | |
272 | CROSS- REFERENCE: 350.929^ B | |
273 | 1)= S ^I BE(350.9,D A(1),29,"B ",$E(X,1,3 0),DA)="" | |
274 | 2)= K ^I BE(350.9,D A(1),29,"B ",$E(X,1,3 0),DA) | |
275 | ||
276 | FIELD INDEX: AC (#871 ) MUMPS IR ACTION | |
277 | Sh ort Descr: Name and address d efaults | |
278 | De scription: The purp ose of thi s x-ref is to defaul t the | |
279 | name and address f ields in t his sub-fi le from | |
280 | data fou nd in the Institutio n file. T he idea | |
281 | is that the user w ill select a VA Inst itution | |
282 | from fil e 4 to be one of the TRICARE-s pecific | |
283 | Pay-To P roviders i n this sub -file. Th e name | |
284 | and addr ess of the VA Instit ution will be used | |
285 | as defau lts for th e name and address f ields | |
286 | here in this sub-f ile. The default na me and | |
287 | address informatio n may be o verridden. | |
288 | Set Logic: I $G(X1( 1))'=$G(X2 (1)) D DEF ^IBJPS3(+$ G(X2(1)), | |
289 | .DA,1) | |
290 | K ill Logic: Q | |
291 | X(1): TC FACIL ITY (350. 929,.01) (forwards) | |
292 | ||
293 | 350.929,.0 2 TC NAM E 0;2 FREE TEXT (Required ) | |
294 | Non-MC CF Pay-to Provider N ame | |
295 | INPUT TRANSFORM: K:$L(X)> 35!($L(X)< 1) X | |
296 | LAST E DITED: FEB 22, 2018 | |
297 | HELP-P ROMPT: Answer m ust be 1-3 5 characte rs in leng th. | |
298 | DESCRI PTION: You may modify the Non-MCCF- specific P ay-to | |
299 | Provider name for use on ele ctronic or printed | |
300 | claims. | |
301 | ||
302 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
303 | of the . 01 field. | |
304 | ||
305 | 350.929,.0 3 TC FED ERAL TAX N UMBER 0;3 FREE TEXT | |
306 | Non-MC CF Pay-to Provider F ederal Tax ID Number | |
307 | INPUT TRANSFORM: K:$L(X)> 10!($L(X)< 10)!'(X?2N 1"-"7N) X | |
308 | LAST E DITED: FEB 22, 2018 | |
309 | HELP-P ROMPT: Answer m ust be 10 characters in the fo rmat | |
310 | NN-NNNNN NN. | |
311 | DESCRI PTION: Enter th e Federal Tax ID for the | |
312 | Non-MCCF -specific Pay-to Pro vider. Ma ke sure | |
313 | you ente r the Tax ID Number for the No n-MCCF | |
314 | Pay-to P rovider, w hich may b e differen t from | |
315 | your sit e's Tax ID . Enter 1 0 characte rs in the | |
316 | format N N-NNNNNNN. | |
317 | ||
318 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
319 | of the . 01 field i f the .01 field is t he same | |
320 | institut ion as def ined in th e IB site | |
321 | paramete rs field 3 50.9, .02. | |
322 | ||
323 | 350.929,.0 4 TC TEL EPHONE NUM BER 0;4 FREE TEXT | |
324 | Non-MC CF Pay-to Provider P hone Numbe r | |
325 | INPUT TRANSFORM: K:$L(X)> 30!($L(X)< 1) X | |
326 | LAST E DITED: FEB 22, 2018 | |
327 | HELP-P ROMPT: Answer m ust be 1-3 0 characte rs in leng th. | |
328 | DESCRI PTION: Enter th e phone nu mber to be used on e lectronic | |
329 | or print ed claims. This is the number you | |
330 | would wa nt a payer to use to contact t he site | |
331 | about a Non-MCCF c laim. | |
332 | ||
333 | 350.929,.0 5 TC PAR ENT PAY-TO PROVIDER 0;5 NUMBER | |
334 | INPUT TRANSFORM: K:+X'=X! (X>9999)!( X<1)!(X?.E 1"."1N.N) X | |
335 | LAST E DITED: FEB 22, 2018 | |
336 | HELP-P ROMPT: Type a n umber betw een 1 and 9999, 0 de cimal | |
337 | digits. | |
338 | DESCRI PTION: This fie ld determi nes if thi s entry in the | |
339 | sub-file is a Non- MCCF Pay-t o Provider | |
340 | institut ion or if it is a Di vision bei ng linked | |
341 | to the p arent Non- MCCF Pay-t o Provider | |
342 | institut ion, that is, anothe r sub-file entry. | |
343 | ||
344 | If this field is d efined, th en it hold s the IEN | |
345 | in this sub-file o f the pare nt Non-MCC F Pay-to | |
346 | Provider instituti on for thi s specific | |
347 | division . | |
348 | ||
349 | If this field is n il, then t his sub-fi le entry | |
350 | is the p arent Non- MCCF Pay-t o Provider | |
351 | institut ion. | |
352 | ||
353 | This fie ld should not be set via FileM an. The | |
354 | applicat ion in the IB Site P aremeter e dit | |
355 | option w ill set th is field a ppropriate ly based | |
356 | on user input. | |
357 | ||
358 | 350.929,1. 01 TC STR EET ADDRES S 1 1;1 FREE TEXT | |
359 | Non-MC CF Pay-to Provider A ddress Lin e 1 | |
360 | INPUT TRANSFORM: K:$L(X)> 55!($L(X)< 1) X | |
361 | LAST E DITED: FEB 22, 2018 | |
362 | HELP-P ROMPT: Answer m ust be 1-5 5 characte rs in leng th. | |
363 | DESCRI PTION: You may modify the Non-MCCF- specific P ay-To | |
364 | Provider Address f or use on electronic or | |
365 | printed claims. Y ou may ent er a P.O. Box. | |
366 | ||
367 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
368 | of the . 01 field. | |
369 | ||
370 | 350.929,1. 02 TC STR EET ADDRES S 2 1;2 FREE TEXT | |
371 | Non-MC CF Pay-to Provider A ddress Lin e 2 | |
372 | INPUT TRANSFORM: K:$L(X)> 55!($L(X)< 1) X | |
373 | LAST E DITED: FEB 22, 2018 | |
374 | HELP-P ROMPT: Answer m ust be 1-5 5 characte rs in leng th. | |
375 | DESCRI PTION: Enter ad ditional a ddress inf ormation, if | |
376 | needed. | |
377 | ||
378 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
379 | of the . 01 field. | |
380 | ||
381 | 350.929,1. 03 TC CIT Y 1;3 FREE TEXT | |
382 | Non-MC CF Pay-to Provider C ity | |
383 | INPUT TRANSFORM: K:$L(X)> 40!($L(X)< 2) X | |
384 | LAST E DITED: FEB 22, 2018 | |
385 | HELP-P ROMPT: Answer m ust be 2-4 0 characte rs in leng th. | |
386 | DESCRI PTION: You may modify the Non-MCCF Pay-to Pro vider | |
387 | address for use on electroni c or print ed | |
388 | claims. | |
389 | ||
390 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
391 | of the . 01 field. | |
392 | ||
393 | 350.929,1. 04 TC STA TE 1;4 POINTER T O STATE FI LE (#5) | |
394 | Non-MC CF Pay-to Provider S tate | |
395 | LAST E DITED: FEB 22, 2018 | |
396 | HELP-P ROMPT: Answer w ith State Number, or Name, or | |
397 | Abbrevia tion. | |
398 | DESCRI PTION: You may modify the Non-MCCF Pay-to Pro vider | |
399 | address for use on electroni c or print ed | |
400 | claims. | |
401 | ||
402 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
403 | of the . 01 field. | |
404 | ||
405 | 350.929,1. 05 TC ZIP 1;5 FREE TEXT | |
406 | Non-MC CF Pay-to Provider Z ip Code | |
407 | INPUT TRANSFORM: K:$L(X)> 15!($L(X)< 3) X | |
408 | LAST E DITED: FEB 22, 2018 | |
409 | HELP-P ROMPT: Answer m ust be 3-1 5 characte rs in leng th. | |
410 | DESCRI PTION: You may modify the Non-MCCF Pay-to Pro vider | |
411 | address for use on electroni c or print ed | |
412 | claims. | |
413 | ||
414 | TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref | |
415 | of the . 01 field. | |
416 | ||
417 | FILE S POINTED TO FIELDS | |
418 | INSTITUTIO N (#4) TC FAC ILITY (#.0 1) | |
419 | STATE (#5) TC STA TE (#1.04) | |
420 | ||
421 | INPUT TEMP LATE(S): | |
422 | PRINT TEMP LATE(S): | |
423 | SORT TEMPL ATE(S): | |
424 | FORM(S)/BL OCK(S): | |
425 | ||
426 | Site Param eters’ Non -MCCF Rat e Types fo r PTP sub- file - #35 0.928 (new ) | |
427 | Data Dicti onary | |
428 | Activities | |
429 | FileName & Number | |
430 | Site Param eters’ Non -MCCF Rate Types for PTP sub-f ile (#350. 928) | |
431 | Current Da ta Definit ions | |
432 | ||
433 | N/A | |
434 | Modified L ogic (Chan ges are in bold) | |
435 | STANDARD D ATA DICTIO NARY #350. 928 -- NON -MCCF RATE TYPES FOR PTP SUB-F ILE 2/27 /18 PAG E 1 | |
436 | STORED IN ^IBE(350.9 ,D0,28, SITE: PII UCI: VISTA ,ROU | |
437 | ||
438 | DATA NAME GLOB AL DATA | |
439 | ELEMENT TITLE LOCA TION TYPE | |
440 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
441 | This conta ins the No n-MCCF Rat e Types th at are rel ated to th e Non-MCCF Pay-To | |
442 | Providers. If a cla im has one of the ra te types i n this mul tiple fiel d, the | |
443 | claim is c onsidered to be a No n-MCCF Cla im. | |
444 | ||
445 | CROSS | |
446 | REFERENCED BY: NON-M CCF RATE T YPES FOR P TP(B) | |
447 | ||
448 | 350.928,.0 1 NON-MC CF RATE TY PES FOR PT P 0;1 POIN TER TO RAT E TYPE FIL E (#399.3 | |
449 | ) (Multi ply asked) | |
450 | ||
451 | LAST E DITED: FEB 27, 2018 | |
452 | HELP-P ROMPT: Enter Ra te Types f or which n on-MCCF Pa y to | |
453 | Provider should be used. | |
454 | DESCRI PTION: Each mul tiple fiel d should b e a Non-MC CF Rate | |
455 | Type. I t is used to determi ne if a cl aim is a | |
456 | Non-MCCF Claim. | |
457 | ||
458 | CROSS- REFERENCE: 350.928^ B | |
459 | 1)= S ^I BE(350.9,D A(1),28,"B ",$E(X,1,3 0),DA)="" | |
460 | 2)= K ^I BE(350.9,D A(1),28,"B ",$E(X,1,3 0),DA) | |
461 | ||
462 | FILE S POINTED TO FIELDS | |
463 | RATE TYPE (#399.3) NON-MC CF RATE TY PES FOR PT P (#.01) | |
464 | ||
465 | INPUT TEMP LATE(S): | |
466 | PRINT TEMP LATE(S): | |
467 | SORT TEMPL ATE(S): | |
468 | FORM(S)/BL OCK(S): | |
469 | ||
470 | Routines: | |
471 | To change the name o f #12 from “TRICARE Pay-To Pro viders” to “Non-MCCF Pay-To Pr oviders” o n initial IB Screen for MCCR S ite Parame ters (see below); | |
472 | IB Site Pa rameters Nov 27, 20 17@14:49:2 1 Page: 3 of 5 | |
473 | Only autho rized pers ons may ed it this da ta. | |
474 | + | |
475 | [10]Bill S igner Name : <No l onger used > Fede ral Tax # : 83- 0168494 | |
476 | Bill S igner Titl e : <No l onger used > | |
477 | ||
478 | [11]Pay-To Providers : 3 def ined, defa ult - CENT RAL PLAINS CPAC (CHE YENNE,44 | |
479 | ||
480 | [12]TRICAR E Pay-To P roviders: 2 defined, default - CHEYENNE VAMC | |
481 | ||
482 | [13]Inpt H ealth Summ ary: INPAT IENT HEALT H SUMMARY | |
483 | Opt He alth Summa ry : OUTPA TIENT HEAL TH SUMMARY | |
484 | ||
485 | [14]HIPPA NCPDP Acti ve Flag : A ctive | |
486 | ||
487 | [15]Inpati ent TP Act ive : YES | |
488 | Outpat ient TP Ac tive: YES | |
489 | Pharma cy TP Acti ve : YES | |
490 | Prosth etic TP Ac tive: YES | |
491 | ||
492 | + Enter ?? f or more ac tions | |
493 | EP Edit S et EX Exit | |
494 | Select Act ion: Next Screen// | |
495 | ||
496 | the routin e ^IBJPS2, needed to be modifi ed: | |
497 | Routines | |
498 | Activities | |
499 | Routine Na me | |
500 | IBJPS2 | |
501 | Enhancemen t Category | |
502 | New | |
503 | Modify | |
504 | Delete | |
505 | No Change | |
506 | RTM | |
507 | ||
508 | Related Op tions | |
509 | None | |
510 | Related Ro utines | |
511 | Routines “ Called By” | |
512 | Routines “ Called” | |
513 | ||
514 | ||
515 | ||
516 | Data Dicti onary (DD) Reference s | |
517 | None | |
518 | Related Pr otocols | |
519 | None | |
520 | Related In tegration Control Re gistration s (ICRs) | |
521 | None | |
522 | Data Passi ng | |
523 | Input | |
524 | Output Re ference | |
525 | Both | |
526 | Global Re ference | |
527 | Local | |
528 | Input Attr ibute Name and Defin ition | |
529 | Name: | |
530 | Definition : | |
531 | Output Att ribute Nam e and Defi nition | |
532 | Name: | |
533 | Definition : | |
534 | Current Lo gic | |
535 | IBJPS2 ;AL B/MAF,ARH - IBSP IB SITE PARAM ETER BUILD (cont) ;2 2-DEC-1995 ;;2.0;INT EGRATED BI LLING;**39 ,52,115,14 3,51,137,1 61,155,320 ,348,349,3 77,384,400 ,432,494,4 61,516,547 ,592**;21- MAR-94;Bui ld 25 ;;Pe r VA Direc tive 6402, this rout ine should not be mo dified. ;B LD2 ; - co ntinue bui ld screen array for IB paramet ers ; N Z, Z0,PTPSTR, BPZZ D RIG HT(1,1,1) ; - facili ty/med cen ter (new l ine for ea ch) S IBLN =$$SET("Me dical Cent er",$$EXSE T^IBJU1($P (IBPD0,U,2 ),350.9,.0 2),IBLN,IB LR,IBSEL) S IBLN=$$S ET("MAS Se rvice",$$E XSET^IBJU1 ($P(IBPD1, U,14),350. 9,1.14),IB LN,IBLR,IB SEL) ; D L EFT(2) S I BLN=$$SET( "Default D ivision",$ $EXSET^IBJ U1($P(IBPD 1,U,25),35 0.9,1.25), IBLN,IBLR, IBSEL) S I BLN=$$SET( "Billing S upervisor" ,$$EXSET^I BJU1($P(IB PD1,U,8),3 50.9,1.08) ,IBLN,IBLR ,IBSEL) ; D RIGHT(1, 1,1) S IBL N=$$SET("I nitiator A uthorize", $$YN(+$P(I BPD1,U,23) ),IBLN,IBL R,IBSEL) S IBLN=$$SE T("Ask HIN Q in MCCR" ,$$YN(+$P( IBPD1,U,16 )),IBLN,IB LR,IBSEL) S IBLN=$$S ET("Multip le Form Ty pes",$$YN( +$P(IBPD1, U,22)),IBL N,IBLR,IBS EL) ; D LE FT(2) S IB LN=$$SET(" Xfer Proc to Sched", $$YN(+$P(I BPD1,U,19) ),IBLN,IBL R,IBSEL) S IBLN=$$SE T("Use Non -PTF Codes ",$$YN(+$P (IBPD1,U,1 5)),IBLN,I BLR,IBSEL) S IBLN=$$ SET("Use O P CPT scre en",$$YN(+ $P(IBPD1,U ,17)),IBLN ,IBLR,IBSE L) ; ; IB patch 349 for UB-04 claim form and param eters D RI GHT(1,1,1) S IBLN=$$ SET("UB-04 Print IDs ",$$EXSET^ IBJU1($P(I BPD1,U,33) ,350.9,1.3 3),IBLN,IB LR,IBSEL) S IBLN=$$S ET("CMS-15 00 Print I Ds",$$EXSE T^IBJU1($P (IBPD1,U,3 2),350.9,1 .32),IBLN, IBLR,IBSEL ) S IBLN=$ $SET("CMS- 1500 Auto Prter",$$E XSET^IBJU1 ($P(IBPD8, U,14),350. 9,8.14),IB LN,IBLR,IB SEL) S IBL N=$$SET("E OB Auto Pr ter",$$EXS ET^IBJU1($ P(IBPD8,U, 16),350.9, 8.16),IBLN ,IBLR,IBSE L) ; D LEF T(2) S IBL N=$$SET("U B-04 Addre ss Col",$P (IBPD1,U,3 1),IBLN,IB LR,IBSEL) S IBLN=$$S ET("CMS-15 00 Addr Co l",$P(IBPD 1,U,27),IB LN,IBLR,IB SEL) S IBL N=$$SET("U B-04 Auto Prter",$$E XSET^IBJU1 ($P(IBPD8, U,15),350. 9,8.15),IB LN,IBLR,IB SEL) S IBL N=$$SET("M RA Auto Pr ter",$$EXS ET^IBJU1($ P(IBPD8,U, 19),350.9, 8.19),IBLN ,IBLR,IBSE L) ; ; VAD - IB*2.0* 547 - inse rted a new section 8 . Only cou nt activat ed codes D RIGHT(3,1 ,1) S (Z,Z 0)=0 F S Z=$O(^IBE( 350.9,1,15 ,"B",Z)) Q :'Z I $P( $G(^DGCR(3 99.2,Z,0)) ,U,3)=1 S Z0=Z0+1 S PTPSTR=Z0_ " Activate d Codes De fined" S I BLN=$$SET( "Printed C laims Rev Code Excl" ,PTPSTR,IB LN,IBLR,IB SEL) ; D R IGHT(1,1,1 ) S Z=$$IC D9SYS^IBAC SV(DT) I Z =1 S IBLN= $$SET("Def ault RX DX Cd",$$EXS ET^IBJU1($ P(IBPD1,U, 29),350.9, 1.29)_" (I CD-9)",IBL N,IBLR,IBS EL) I Z'=1 S IBLN=$$ SET("Defau lt RX DX C d",$$EXSET ^IBJU1($P( IBPD7,U,5) ,350.9,7.0 5)_" (ICD- 10)",IBLN, IBLR,IBSEL ) S IBLN=$ $SET("Defa ult RX CPT Cd",$$EXS ET^IBJU1($ P(IBPD1,U, 30),350.9, 1.30),IBLN ,IBLR,IBSE L) ; D LEF T(2) S IBL N=$$SET("D efault ASC Rev Cd",$ $EXSET^IBJ U1($P(IBPD 1,U,18),35 0.9,1.18), IBLN,IBLR, IBSEL) S I BLN=$$SET( "Default R X Rev Cd", $$EXSET^IB JU1($P(IBP D1,U,28),3 50.9,1.28) ,IBLN,IBLR ,IBSEL) ; D RIGHT(1, 1,1) S IBL N=$$SET("B ill Signer Name","<N o longer u sed>",IBLN ,IBLR,IBSE L) S IBLN= $$SET("Bil l Signer T itle","<No longer us ed>",IBLN, IBLR,IBSEL ) ; D LEFT (2) S IBLN =$$SET("Fe deral Tax #",$P(IBPD 1,U,5),IBL N,IBLR,IBS EL) ; D RI GHT(3,1,1) ; - Pay-T o Provider s - sectio n 11 S (Z, Z0)=0 F S Z=$O(^IBE (350.9,1,1 9,Z)) Q:'Z S:$P($G( ^IBE(350.9 ,1,19,Z,0) ),U,5)="" Z0=Z0+1 S Z=+$P($G(^ IBE(350.9, 1,11)),U,3 ),PTPSTR=Z 0_" define d"_$S(Z>0: ", default - "_$P($$ PTG^IBJPS3 (Z,0),U),1 :"") S IBL N=$$SET("P ay-To Prov iders",PTP STR,IBLN,I BLR,IBSEL) ; ; MRD;I B*2.0*516 - Added TR ICARE Pay- To Provide rs. D RIGH T(3,1,1) ; - TRICARE Pay-To Pr oviders - section 12 S (Z,Z0)= 0 F S Z=$ O(^IBE(350 .9,1,29,Z) ) Q:'Z S: $P($G(^IBE (350.9,1,2 9,Z,0)),U, 5)="" Z0=Z 0+1 S Z=+$ P($G(^IBE( 350.9,1,11 )),U,4),PT PSTR=Z0_" defined"_$ S(Z>0:", d efault - " _$P($$PTG^ IBJPS3(Z,1 ),U),1:"") S IBLN=$$ SET("TRICA RE Pay-To Providers" ,PTPSTR,IB LN,IBLR,IB SEL) ; | |
536 | ||
537 | ||
538 | ||
539 | Modified L ogic (Chan ges are in bold) | |
540 | IBJPS2 ;AL B/MAF,ARH - IBSP IB SITE PARAM ETER BUILD (cont) ;2 2-DEC-1995 ;;2.0;INT EGRATED BI LLING;**39 ,52,115,14 3,51,137,1 61,155,320 ,348,349,3 77,384,400 ,432,494,4 61,516,547 ,592,608** ;21-MAR-94 ;Build 25 ;;Per VA D irective 6 402, this routine sh ould not b e modified . ;BLD2 ; - continue build scr een array for IB par ameters ; N Z,Z0,PTP STR,BPZZ D RIGHT(1,1 ,1) ; - fa cility/med center (n ew line fo r each) S IBLN=$$SET ("Medical Center",$$ EXSET^IBJU 1($P(IBPD0 ,U,2),350. 9,.02),IBL N,IBLR,IBS EL) S IBLN =$$SET("MA S Service" ,$$EXSET^I BJU1($P(IB PD1,U,14), 350.9,1.14 ),IBLN,IBL R,IBSEL) ; D LEFT(2) S IBLN=$$ SET("Defau lt Divisio n",$$EXSET ^IBJU1($P( IBPD1,U,25 ),350.9,1. 25),IBLN,I BLR,IBSEL) S IBLN=$$ SET("Billi ng Supervi sor",$$EXS ET^IBJU1($ P(IBPD1,U, 8),350.9,1 .08),IBLN, IBLR,IBSEL ) ; D RIGH T(1,1,1) S IBLN=$$SE T("Initiat or Authori ze",$$YN(+ $P(IBPD1,U ,23)),IBLN ,IBLR,IBSE L) S IBLN= $$SET("Ask HINQ in M CCR",$$YN( +$P(IBPD1, U,16)),IBL N,IBLR,IBS EL) S IBLN =$$SET("Mu ltiple For m Types",$ $YN(+$P(IB PD1,U,22)) ,IBLN,IBLR ,IBSEL) ; D LEFT(2) S IBLN=$$S ET("Xfer P roc to Sch ed",$$YN(+ $P(IBPD1,U ,19)),IBLN ,IBLR,IBSE L) S IBLN= $$SET("Use Non-PTF C odes",$$YN (+$P(IBPD1 ,U,15)),IB LN,IBLR,IB SEL) S IBL N=$$SET("U se OP CPT screen",$$ YN(+$P(IBP D1,U,17)), IBLN,IBLR, IBSEL) ; ; IB patch 349 for UB -04 claim form and p arameters D RIGHT(1, 1,1) S IBL N=$$SET("U B-04 Print IDs",$$EX SET^IBJU1( $P(IBPD1,U ,33),350.9 ,1.33),IBL N,IBLR,IBS EL) S IBLN =$$SET("CM S-1500 Pri nt IDs",$$ EXSET^IBJU 1($P(IBPD1 ,U,32),350 .9,1.32),I BLN,IBLR,I BSEL) S IB LN=$$SET(" CMS-1500 A uto Prter" ,$$EXSET^I BJU1($P(IB PD8,U,14), 350.9,8.14 ),IBLN,IBL R,IBSEL) S IBLN=$$SE T("EOB Aut o Prter",$ $EXSET^IBJ U1($P(IBPD 8,U,16),35 0.9,8.16), IBLN,IBLR, IBSEL) ; D LEFT(2) S IBLN=$$SE T("UB-04 A ddress Col ",$P(IBPD1 ,U,31),IBL N,IBLR,IBS EL) S IBLN =$$SET("CM S-1500 Add r Col",$P( IBPD1,U,27 ),IBLN,IBL R,IBSEL) S IBLN=$$SE T("UB-04 A uto Prter" ,$$EXSET^I BJU1($P(IB PD8,U,15), 350.9,8.15 ),IBLN,IBL R,IBSEL) S IBLN=$$SE T("MRA Aut o Prter",$ $EXSET^IBJ U1($P(IBPD 8,U,19),35 0.9,8.19), IBLN,IBLR, IBSEL) ; ; VAD - IB* 2.0*547 - inserted a new secti on 8. Only count act ivated cod es D RIGHT (3,1,1) S (Z,Z0)=0 F S Z=$O(^ IBE(350.9, 1,15,"B",Z )) Q:'Z I $P($G(^DG CR(399.2,Z ,0)),U,3)= 1 S Z0=Z0+ 1 S PTPSTR =Z0_" Acti vated Code s Defined" S IBLN=$$ SET("Print ed Claims Rev Code E xcl",PTPST R,IBLN,IBL R,IBSEL) ; D RIGHT(1 ,1,1) S Z= $$ICD9SYS^ IBACSV(DT) I Z=1 S I BLN=$$SET( "Default R X DX Cd",$ $EXSET^IBJ U1($P(IBPD 1,U,29),35 0.9,1.29)_ " (ICD-9)" ,IBLN,IBLR ,IBSEL) I Z'=1 S IBL N=$$SET("D efault RX DX Cd",$$E XSET^IBJU1 ($P(IBPD7, U,5),350.9 ,7.05)_" ( ICD-10)",I BLN,IBLR,I BSEL) S IB LN=$$SET(" Default RX CPT Cd",$ $EXSET^IBJ U1($P(IBPD 1,U,30),35 0.9,1.30), IBLN,IBLR, IBSEL) ; D LEFT(2) S IBLN=$$SE T("Default ASC Rev C d",$$EXSET ^IBJU1($P( IBPD1,U,18 ),350.9,1. 18),IBLN,I BLR,IBSEL) S IBLN=$$ SET("Defau lt RX Rev Cd",$$EXSE T^IBJU1($P (IBPD1,U,2 8),350.9,1 .28),IBLN, IBLR,IBSEL ) ; D RIGH T(1,1,1) S IBLN=$$SE T("Bill Si gner Name" ,"<No long er used>", IBLN,IBLR, IBSEL) S I BLN=$$SET( "Bill Sign er Title", "<No longe r used>",I BLN,IBLR,I BSEL) ; D LEFT(2) S IBLN=$$SET ("Federal Tax #",$P( IBPD1,U,5) ,IBLN,IBLR ,IBSEL) ; D RIGHT(3, 1,1) ; - P ay-To Prov iders - se ction 11 S (Z,Z0)=0 F S Z=$O( ^IBE(350.9 ,1,19,Z)) Q:'Z S:$P ($G(^IBE(3 50.9,1,19, Z,0)),U,5) ="" Z0=Z0+ 1 S Z=+$P( $G(^IBE(35 0.9,1,11)) ,U,3),PTPS TR=Z0_" de fined"_$S( Z>0:", def ault - "_$ P($$PTG^IB JPS3(Z,0), U),1:"") S IBLN=$$SE T("Pay-To Providers" ,PTPSTR,IB LN,IBLR,IB SEL) ; ; M RD;IB*2.0* 516 - Adde d TRICARE Pay-To Pro viders. D RIGHT(3,1, 1) ; - TRI CARE Pay-T o Provider s - sectio n 12 S (Z, Z0)=0 F S Z=$O(^IBE (350.9,1,2 9,Z)) Q:'Z S:$P($G( ^IBE(350.9 ,1,29,Z,0) ),U,5)="" Z0=Z0+1 S Z=+$P($G(^ IBE(350.9, 1,11)),U,4 ),PTPSTR=Z 0_" define d"_$S(Z>0: ", default - "_$P($$ PTG^IBJPS3 (Z,1),U),1 :"") S IBL N=$$SET("N on-MCCF Pa y-To Provi ders",PTPS TR,IBLN,IB LR,IBSEL) ; IB*2*608 (vd) - Ch anged "TRI CARE..." t o "Non-MCC F..." ; | |
541 | ||
542 | ||
543 | ||
544 | ||
545 | Changed th e ENTITY N AME and SC REEN TITLE on the “I BJP IB TRI CARE PAY-T O PROVS” L ist Manage r Template which is invoked by the “EP” (Edit Set) action on the IB Si te Paramet ers screen from: | |
546 | List Manag er Workben ch Nov 27, 2017@1 6:56:57 Page: 1 of 1 | |
547 | Template: IBJP IB TR ICARE PAY- TO PROVS | |
548 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
549 | Demograp hics List Reg ion | |
550 | Template Name: IBJP IB TRICAR E PAY-TO P ROVS Top Ma rgin: 2 | |
551 | Entity Name: IB T RICARE Pay -To Provid ers Bottom " : 18 | |
552 | Screen T itle: TRIC ARE Pay-To Providers Right " : 80 | |
553 | ||
554 | Protocol Informati on Other Fi elds | |
555 | Type of List: PRO TOCOL OK to Transport ?: OK | |
556 | Protocol Menu: IBJ P IB TRICA RE PAY-TO PROV Use Cur sor Contro l: YES | |
557 | Print Pro tocol: Allowa ble Number of Action s: 1 | |
558 | Hidden Menu: VAL M HIDDEN A CTIONS Date Range Limi t: | |
559 | Automat ic Default s: YES | |
560 | ||
561 | MUMPS Co de Related | |
562 | Header: D HDR^IBJPS 3(1) | |
563 | Entry: D INIT^IBJP S3(1) | |
564 | Exit: D EXIT^IBJP S3 | |
565 | Expand: | |
566 | Help: D HELP^IBJP S3 | |
567 | Array: | |
568 | ||
569 | Caption Line Infor mation | |
570 | Name Column Width Display T ext Video Sc roll Lock | |
571 | ||
572 | to: | |
573 | List Manag er Workben ch Nov 27, 2017@1 6:56:57 Page: 1 of 1 | |
574 | Template: IBJP IB TR ICARE PAY- TO PROVS | |
575 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
576 | Demograp hics List Reg ion | |
577 | Template Name: IBJP IB TRICAR E PAY-TO P ROVS Top Ma rgin: 2 | |
578 | Entity Name: IB N on-MCCR Pa y-To Provi ders Bottom " : 18 | |
579 | Screen T itle: Non- MCCR Pay-T o Provider s Right " : 80 | |
580 | ||
581 | Protocol Informati on Other Fi elds | |
582 | Type of List: PRO TOCOL OK to Transport ?: OK | |
583 | Protocol Menu: IBJ P IB TRICA RE PAY-TO PROV Use Cur sor Contro l: YES | |
584 | Print Pro tocol: Allowa ble Number of Action s: 1 | |
585 | Hidden Menu: VAL M HIDDEN A CTIONS Date Range Limi t: | |
586 | Automat ic Default s: YES | |
587 | ||
588 | MUMPS Co de Related | |
589 | Header: D HDR^IBJPS 3(1) | |
590 | Entry: D INIT^IBJP S3(1) | |
591 | Exit: D EXIT^IBJP S3 | |
592 | Expand: | |
593 | Help: D HELP^IBJP S3 | |
594 | Array: | |
595 | ||
596 | Caption Line Infor mation | |
597 | Name Column Width Display T ext Video Sc roll Lock | |
598 | ||
599 | In additio n, the rou tine ^IBJP S3 was cha nged to di splay “Non -MCCF” ins tead of “T RICARE” on the List Manager sc reens for prompts an d messages : | |
600 | Routines | |
601 | Activities | |
602 | Routine Na me | |
603 | IBJPS3 | |
604 | Enhancemen t Category | |
605 | New | |
606 | Modify | |
607 | Delete | |
608 | No Change | |
609 | RTM | |
610 | ||
611 | Related Op tions | |
612 | None | |
613 | Related Ro utines | |
614 | Routines “ Called By” | |
615 | Routines “ Called” | |
616 | ||
617 | ||
618 | ||
619 | Data Dicti onary (DD) Reference s | |
620 | None | |
621 | Related Pr otocols | |
622 | None | |
623 | Related In tegration Control Re gistration s (ICRs) | |
624 | None | |
625 | Data Passi ng | |
626 | Input | |
627 | Output Re ference | |
628 | Both | |
629 | Global Re ference | |
630 | Local | |
631 | Input Attr ibute Name and Defin ition | |
632 | Name: | |
633 | Definition : | |
634 | Output Att ribute Nam e and Defi nition | |
635 | Name: | |
636 | Definition : | |
637 | Current Lo gic | |
638 | IBJPS3 ;BP /YMG - IB Site Param eters, Pay -To Provid er ;20-Oct -2008 ;;2. 0;INTEGRAT ED BILLING ;**400,432 ,516,577** ;21-MAR-94 ;Build 38 ;;Per VA D irective 6 402, this routine sh ould not b e modified . ; ; MRD; IB*2.0*516 - Added l ogic perta ining to T RICARE-Spe cific Pay- To ; Provi ders, whic h entailed adding th e paramete r IBTCFLAG to many ; procedure s here and in ^IBJPS 4. ;EN(IBT CFLAG) ; - - main ent ry point f or IBJP IB PAY-TO PR OVIDERS D EN^VALM("I BJP IB "_$ S(IBTCFLAG :"TRICARE PAY-TO PRO VS",1:"PAY -TO PROVID ERS")) Q ; HDR(IBTCFL AG) ; -- h eader code ; Not set ting VALMH DR causes this tag t o be calle d upon ret urn from e very actio n, ; this is done t o keep VAL MSG displa yed at all times, in stead of t he default message o n the lowe r bar. S V ALMSG="* = Default " _$S(IBTCFL AG:"TRICAR E ",1:"")_ "Pay-to pr ovider" Q ;INIT(IBTC FLAG) ; -- init vari ables and list array N IBCNT,I BLN,IBSTR, PIEN,PDATA ,IBNODE S IBNODE=$$N ODE^IBJPS4 (IBTCFLAG) ; S (VALM CNT,IBCNT, IBLN)=0 S PIEN=0 F S PIEN=$O( ^IBE(350.9 ,1,IBNODE, PIEN)) Q:' PIEN D .I $P($G(^IB E(350.9,1, IBNODE,PIE N,0)),U,5) '="" Q .S PDATA=$$PT G(PIEN,IBT CFLAG),IBC NT=IBCNT+1 .S IBSTR= $$SETSTR^V ALM1(IBCNT _".","",2, 4) .I $$IS DFLT(PIEN, IBTCFLAG) S IBSTR=$$ SETSTR^VAL M1("*",IBS TR,7,1) .S IBSTR=$$S ETSTR^VALM 1("Name : "_$P(PDATA ,U),IBSTR, 8,45) .;S IBSTR=$$SE TSTR^VALM1 ("State : "_$P(PDATA ,U,8),IBST R,54,25) ; JRA IB*2.0 *577 ';' . S IBLN=$$S ET(IBLN,IB STR) .;S I BSTR=$$SET STR^VALM1( "Address 1 : "_$P(PDA TA,U,5),"" ,8,45) ;JR A IB*2.0*5 77 ';' .S IBSTR=$$SE TSTR^VALM1 ("Address 1: "_$P(PD ATA,U,5)," ",8,66) ;J RA IB*2.0* 577 expand to 55 cha rs .;S IBS TR=$$SETST R^VALM1("Z ip Code: " _$P(PDATA, U,9),IBSTR ,54,25) ;J RA IB*2.0* 577 ';' .S IBLN=$$SE T(IBLN,IBS TR) .;S IB STR=$$SETS TR^VALM1(" Address 2: "_$P(PDAT A,U,6),"", 8,45) ;JRA IB*2.0*57 7 ';' .S I BSTR=$$SET STR^VALM1( "Address 2 : "_$P(PDA TA,U,6),"" ,8,66) ;JR A IB*2.0*5 77 expand to 55 char s .;S IBST R=$$SETSTR ^VALM1("Ph one : "_$P (PDATA,U,4 ),IBSTR,54 ,25) ;JRA IB*2.0*577 ';' .S IB LN=$$SET(I BLN,IBSTR) .S IBSTR= $$SETSTR^V ALM1("City : "_$P(PD ATA,U,7)," ",8,45) .S IBLN=$$SE T(IBLN,IBS TR) .;S IB STR=$$SETS TR^VALM1(" Tax ID : " _$P(PDATA, U,3),IBSTR ,54,25) ;J RA IB*2.0* 577 ';' .; JRA Move S tate, Zip Code, Phon e and Tax ID under C ity to all ow for lon ger addres s lines .S IBSTR=$$S ETSTR^VALM 1("State : "_$P(PDAT A,U,8),IBS TR,8,25) ; JRA IB*2.0 *577 .S IB LN=$$SET(I BLN,IBSTR) ;JRA IB*2 .0*577 .S IBSTR=$$SE TSTR^VALM1 ("Zip Code : "_$P(PD ATA,U,9),I BSTR,8,25) ;JRA IB*2 .0*577 .S IBLN=$$SET (IBLN,IBST R) ;JRA IB *2.0*577 . S IBSTR=$$ SETSTR^VAL M1("Phone : "_$P(PDA TA,U,4),IB STR,8,25) ;JRA IB*2. 0*577 .S I BLN=$$SET( IBLN,IBSTR ) ;JRA IB* 2.0*577 .S IBSTR=$$S ETSTR^VALM 1("Tax ID : "_$P(PDA TA,U,3),IB STR,8,25) ;JRA IB*2. 0*577 .S I BLN=$$SET( IBLN,IBSTR ),IBLN=$$S ET(IBLN,"" ) .S @VALM AR@("ZIDX" ,IBCNT,PIE N)="" .Q ; I 'IBLN S IBLN=$$SE T(IBLN,$$S ETSTR^VALM 1("No "_$S (IBTCFLAG: "TRICARE " ,1:"")_"Pa y-To Provi ders defin ed.","",13 ,40)) ; S VALMCNT=IB LN,VALMBG= 1 Q ;HELP ; -- help code S X=" ?" D DISP^ XQORM1 W ! ! Q ;EXIT ; -- exit code D CLE AR^VALM1,C LEAN^VALM1 0 Q ;PRVAD D(IBTCFLAG ) ; add ne w pay-to p rovider N X,Y,DIC,DA ,DLAYGO,DI E,DR,DIR,D IRUT,DUOUT ,DTOUT,IEN ,IBNODE S IBNODE=$$N ODE^IBJPS4 (IBTCFLAG) D FULL^VA LM1 S VALM BCK="R" S DIC="^IBE( 350.9,1,"_ IBNODE_"," ,DIC(0)="A ELMQ",DA(1 )=1,DLAYGO =350.9 S D IC("A")="E nter "_$S( IBTCFLAG:" TRICARE ", 1:"")_"Pay -to Provid er: " D ^D IC S IEN=+ Y I IEN'>0 Q D PRVED IT1 I $P($ G(^IBE(350 .9,1,IBNOD E,IEN,0)), U,2)="" D PRVDEL1 Q ;PRVDEL(IB TCFLAG) ; delete a p ay-to prov ider N DA, DR,DIE,X,Y ,DIR,DIRUT ,DUOUT,DTO UT,I,IEN,D IVS,DFLT,I BNODE,IBDI SP S IBNOD E=$$NODE^I BJPS4(IBTC FLAG) S IB DISP=$S(IB TCFLAG:"TR ICARE ",1: "")_"Pay-T o Provider " S VALMBC K="R" D FU LL^VALM1 S IEN=$$SEL (IBTCFLAG) Q:'IEN S DFLT=$$ISD FLT(IEN,IB TCFLAG) I DFLT W !!, "WARNING: This is th e default "_IBDISP_" ." D GETDI VS^IBJPS4( IEN,.DIVS, IBTCFLAG) I 'DFLT D .W !!,"The following divisions are curre ntly assoc iated with this "_IB DISP_": " .S I="" F S I=$O(DI VS(I)) Q:I ="" W !,? 5,DIVS(I) .W:'$D(DIV S) "None", ! W ! .Q S DIR("?")= "Enter Yes to delete this "_IB DISP_"." S DIR("A")= "Delete "_ IBDISP_" " _$P($G(^IB E(350.9,1, IBNODE,IEN ,0)),U,2) S DIR(0)=" YO",DIR("B ")="NO" D ^DIR Q:'Y I DFLT S D IE="^IBE(3 50.9,",DA= 1,DR=$S(IB TCFLAG:"11 .04",1:"11 .03")_"/// /@" D ^DIE I $D(DIVS ) K DIK S DIK="^IBE( 350.9,1,"_ IBNODE_"," ,DA(1)=1,I ="" F S I =$O(DIVS(I )) Q:I="" S DA=I D ^DIK K DIK PRVDEL1 ; N DIK K DA S DIK="^I BE(350.9,1 ,"_IBNODE_ "," S DA(1 )=1,DA=IEN D ^DIK D CLEAN^VALM 10,INIT(IB TCFLAG) Q ;PRVEDIT(I BTCFLAG) ; edit exis ting pay-t o provider N IEN,IBN ODE S IBNO DE=$$NODE^ IBJPS4(IBT CFLAG) S V ALMBCK="R" D FULL^VA LM1 S IEN= $$SEL(IBTC FLAG) Q:'I ENPRVEDIT1 ; N DIE,D A,DR,DIR,D IRUT,DUOUT ,DTOUT,X,Y S DIE="^I BE(350.9,1 ,"_IBNODE_ "," S DA=I EN,DA(1)=1 S DR=".02 T;1.01T;1. 02T;1.03T; 1.04T;1.05 T;.04T;.03 T;.05///@" D ^DIE S DIR("?")=" Enter Yes to make th is entry t he default "_$S(IBTC FLAG:"TRIC ARE ",1:"" )_"Pay-to Provider." S DIR("A" )="Is this the defau lt "_$S(IB TCFLAG:"TR ICARE ",1: "")_"Pay-T o Provider " S DIR(0) ="YO" S DI R("B")="YE S" I $$GET DFLT(IBTCF LAG),'$$IS DFLT(IEN,I BTCFLAG) S DIR("B")= "NO" D ^DI R I Y K DA S DIE="^I BE(350.9," ,DA=1,DR=$ S(IBTCFLAG :"11.04",1 :"11.03")_ "////"_IEN D ^DIE D CLEAN^VALM 10,INIT(IB TCFLAG) Q ;SET(IBLN, IBSTR) ; a | |
639 | dd a line to display list ; re turns line number ad ded S IBLN =IBLN+1 D SET^VALM10 (IBLN,IBST R) Q IBLN ;ISDFLT(PI EN,IBTCFLA G) ; retur ns 1 if pr ovider wit h ien PIEN is the de fault pay- to provide r, 0 other wise Q:PIE N="" 0 Q $ $GETDFLT(I BTCFLAG)=P IEN ;GETDF LT(IBTCFLA G) ; retur ns ien of default pa y-to provi der Q $P($ G(^IBE(350 .9,1,11)), U,$S(IBTCF LAG:4,1:3) ) ;SEL(IBT CFLAG) ; s elect pay- to provide r ; return s ien of s elected pa y-to provi der, or 0 if nothing is select ed N DIR,I EN,MAX,X,Y S IEN=0 I VALMLST>4 D . ; the re is at l east one e ntry . S M AX=$O(@VAL MAR@("ZIDX ",""),-1) S:MAX=1 Y= 1 . I MAX> 1 D . . S DIR("A")=" Select "_$ S(IBTCFLAG :"TRICARE ",1:"")_"P ay-To Prov ider (1-"_ MAX_"): " . . S DIR( 0)="NA^"_1 _":"_MAX_" :0" . . D ^DIR . . Q . S:+Y>0 IEN=$O(@VA LMAR@("ZID X",Y,"")) . Q Q +IEN ; | |
640 | ||
641 | ||
642 | ||
643 | Modified L ogic (Chan ges are in bold) | |
644 | IBJPS3 ;BP /YMG - IB Site Param eters, Pay -To Provid er ;20-Oct -2008 ;;2. 0;INTEGRAT ED BILLING ;**400,432 ,516,577,6 08**;21-MA R-94;Build 38 ;;Per VA Directi ve 6402, t his routin e should n ot be modi fied. ; ; MRD;IB*2.0 *516 - Add ed logic p ertaining to TRICARE -Specific Pay-To ; P roviders, which enta iled addin g the para meter IBTC FLAG to ma ny ; proce dures here and in ^I BJPS4. ;EN (IBTCFLAG) ; -- main entry poi nt for IBJ P IB PAY-T O PROVIDER S D EN^VAL M("IBJP IB "_$S(IBTC FLAG:"TRIC ARE PAY-TO PROVS",1: "PAY-TO PR OVIDERS")) Q ;HDR(IB TCFLAG) ; -- header code ; Not setting V ALMHDR cau ses this t ag to be c alled upon return fr om every a ction, ; this is do ne to keep VALMSG di splayed at all times , instead of the def ault messa ge on the lower bar. | |
645 | ;/IB*2.0* 608 – vd ( US2599) Ch anged TRIC ARE to Non -MCCF. S V ALMSG="* = Default " _$S(IBTCFL AG:"Non-MC CF ",1:"") _"Pay-to p rovider" Q ;INIT(IBT CFLAG) ; - - init var iables and list arra y N IBCNT, IBLN,IBSTR ,PIEN,PDAT A,IBNODE S IBNODE=$$ NODE^IBJPS 4(IBTCFLAG ) ; S (VAL MCNT,IBCNT ,IBLN)=0 S PIEN=0 F S PIEN=$O (^IBE(350. 9,1,IBNODE ,PIEN)) Q: 'PIEN D . I $P($G(^I BE(350.9,1 ,IBNODE,PI EN,0)),U,5 )'="" Q .S PDATA=$$P TG(PIEN,IB TCFLAG),IB CNT=IBCNT+ 1 .S IBSTR =$$SETSTR^ VALM1(IBCN T_".","",2 ,4) .I $$I SDFLT(PIEN ,IBTCFLAG) S IBSTR=$ $SETSTR^VA LM1("*",IB STR,7,1) . S IBSTR=$$ SETSTR^VAL M1("Name : "_$P(PDAT A,U),IBSTR ,8,45) .;S IBSTR=$$S ETSTR^VALM 1("State : "_$P(PDAT A,U,8),IBS TR,54,25) ;JRA IB*2. 0*577 ';' .S IBLN=$$ SET(IBLN,I BSTR) .;S IBSTR=$$SE TSTR^VALM1 ("Address 1: "_$P(PD ATA,U,5)," ",8,45) ;J RA IB*2.0* 577 ';' .S IBSTR=$$S ETSTR^VALM 1("Address 1: "_$P(P DATA,U,5), "",8,66) ; JRA IB*2.0 *577 expan d to 55 ch ars .;S IB STR=$$SETS TR^VALM1(" Zip Code: "_$P(PDATA ,U,9),IBST R,54,25) ; JRA IB*2.0 *577 ';' . S IBLN=$$S ET(IBLN,IB STR) .;S I BSTR=$$SET STR^VALM1( "Address 2 : "_$P(PDA TA,U,6),"" ,8,45) ;JR A IB*2.0*5 77 ';' .S IBSTR=$$SE TSTR^VALM1 ("Address 2: "_$P(PD ATA,U,6)," ",8,66) ;J RA IB*2.0* 577 expand to 55 cha rs .;S IBS TR=$$SETST R^VALM1("P hone : "_$ P(PDATA,U, 4),IBSTR,5 4,25) ;JRA IB*2.0*57 7 ';' .S I BLN=$$SET( IBLN,IBSTR ) .S IBSTR =$$SETSTR^ VALM1("Cit y : "_$P(P DATA,U,7), "",8,45) . S IBLN=$$S ET(IBLN,IB STR) .;S I BSTR=$$SET STR^VALM1( "Tax ID : "_$P(PDATA ,U,3),IBST R,54,25) ; JRA IB*2.0 *577 ';' . ;JRA Move State, Zip Code, Pho ne and Tax ID under City to al low for lo nger addre ss lines . S IBSTR=$$ SETSTR^VAL M1("State : "_$P(PDA TA,U,8),IB STR,8,25) ;JRA IB*2. 0*577 .S I BLN=$$SET( IBLN,IBSTR ) ;JRA IB* 2.0*577 .S IBSTR=$$S ETSTR^VALM 1("Zip Cod e : "_$P(P DATA,U,9), IBSTR,8,25 ) ;JRA IB* 2.0*577 .S IBLN=$$SE T(IBLN,IBS TR) ;JRA I B*2.0*577 .S IBSTR=$ $SETSTR^VA LM1("Phone : "_$P(PD ATA,U,4),I BSTR,8,25) ;JRA IB*2 .0*577 .S IBLN=$$SET (IBLN,IBST R) ;JRA IB *2.0*577 . S IBSTR=$$ SETSTR^VAL M1("Tax ID : "_$P(PD ATA,U,3),I BSTR,8,25) ;JRA IB*2 .0*577 .S IBLN=$$SET (IBLN,IBST R),IBLN=$$ SET(IBLN," ") .S @VAL MAR@("ZIDX ",IBCNT,PI EN)="" .Q ; ;/IB*2.0 *608 – vd (US2599) C hanged TRI CARE to No n-MCCF. I 'IBLN S IB LN=$$SET(I BLN,$$SETS TR^VALM1(" No "_$S(IB TCFLAG:"No n-MCCF ",1 :"")_"Pay- To Provide rs defined .","",13,4 0)) ; S VA LMCNT=IBLN ,VALMBG=1 Q ;HELP ; -- help co de S X="?" D DISP^XQ ORM1 W !! Q ;EXIT ; -- exit co de D CLEAR ^VALM1,CLE AN^VALM10 Q ;PRVADD( IBTCFLAG) ; add new pay-to pro vider N X, Y,DIC,DA,D LAYGO,DIE, DR,DIR,DIR UT,DUOUT,D TOUT,IEN,I BNODE S IB NODE=$$NOD E^IBJPS4(I BTCFLAG) D FULL^VALM 1 S VALMBC K="R" S DI C="^IBE(35 0.9,1,"_IB NODE_",",D IC(0)="AEL MQ",DA(1)= 1,DLAYGO=3 50.9 ;/IB* 2.0*608 – vd (US2599 ) Changed TRICARE to Non-MCCF. S DIC("A" )="Enter " _$S(IBTCFL AG:"Non-MC CF ",1:"") _"Pay-to P rovider: " D ^DIC S IEN=+Y I I EN'>0 Q D PRVEDIT1 I $P($G(^IB E(350.9,1, IBNODE,IEN ,0)),U,2)= "" D PRVDE L1 Q ;PRVD EL(IBTCFLA G) ; delet e a pay-to provider N DA,DR,DI E,X,Y,DIR, DIRUT,DUOU T,DTOUT,I, IEN,DIVS,D FLT,IBNODE ,IBDISP S IBNODE=$$N ODE^IBJPS4 (IBTCFLAG) ;/IB*2.0* 608 – vd ( US2599) Ch anged TRIC ARE to Non -MCCF. S I BDISP=$S(I BTCFLAG:"N on-MCCF ", 1:"")_"Pay -To Provid er" S VALM BCK="R" D FULL^VALM1 S IEN=$$S EL(IBTCFLA G) Q:'IEN S DFLT=$$I SDFLT(IEN, IBTCFLAG) I DFLT W ! !,"WARNING : This is the defaul t "_IBDISP _"." D GET DIVS^IBJPS 4(IEN,.DIV S,IBTCFLAG ) I 'DFLT D .W !!,"T he followi ng divisio ns are cur rently ass ociated wi th this "_ IBDISP_": " .S I="" F S I=$O( DIVS(I)) Q :I="" W ! ,?5,DIVS(I ) .W:'$D(D IVS) "None ",! W ! .Q S DIR("?" )="Enter Y es to dele te this "_ IBDISP_"." S DIR("A" )="Delete "_IBDISP_" "_$P($G(^ IBE(350.9, 1,IBNODE,I EN,0)),U,2 ) S DIR(0) ="YO",DIR( "B")="NO" D ^DIR Q:' Y I DFLT S DIE="^IBE (350.9,",D A=1,DR=$S( IBTCFLAG:" 11.04",1:" 11.03")_"/ ///@" D ^D IE I $D(DI VS) K DIK S DIK="^IB E(350.9,1, "_IBNODE_" ,",DA(1)=1 ,I="" F S I=$O(DIVS (I)) Q:I=" " S DA=I D ^DIK K D IKPRVDEL1 ; N DIK K DA S DIK=" ^IBE(350.9 ,1,"_IBNOD E_"," S DA (1)=1,DA=I EN D ^DIK D CLEAN^VA LM10,INIT( IBTCFLAG) Q ;PRVEDIT (IBTCFLAG) ; edit ex isting pay -to provid er N IEN,I BNODE S IB NODE=$$NOD E^IBJPS4(I BTCFLAG) S VALMBCK=" R" D FULL^ VALM1 S IE N=$$SEL(IB TCFLAG) Q: 'IENPRVEDI T1 ; N DIE ,DA,DR,DIR ,DIRUT,DUO UT,DTOUT,X ,Y S DIE=" ^IBE(350.9 ,1,"_IBNOD E_"," S DA =IEN,DA(1) =1 S DR=". 02T;1.01T; 1.02T;1.03 T;1.04T;1. 05T;.04T;. 03T;.05/// @" D ^DIE ;/IB*2.0*6 08 – vd (U S2599) Cha nged TRICA RE to Non- MCCF. S DI R("?")="En ter Yes to make this entry the default " _$S(IBTCFL AG:"Non-MC CF ",1:"") _"Pay-to P rovider." S DIR("A") ="Is this the defaul t "_$S(IBT CFLAG:"Non -MCCF ",1: "")_"Pay-T o Provider " S DIR(0) ="YO" S DI R("B")="YE S" I $$GET DFLT(IBTCF LAG),'$$IS DFLT(IEN,I BTCFLAG) S DIR("B")= "NO" D ^DI R I Y K DA S DIE="^I BE(350.9," ,DA=1,DR=$ S(IBTCFLAG :"11.04",1 :"11.03")_ "////"_IEN D ^DIE D CLEAN^VALM 10,INIT(IB TCFLAG) Q ;SET(IBLN, IBSTR) ; a dd a line to display list ; re turns line number ad ded S IBLN =IBLN+1 D SET^VALM10 (IBLN,IBST R) Q IBLN ;ISDFLT(PI EN,IBTCFLA G) ; retur ns 1 if pr ovider wit h ien PIEN is the de fault pay- to provide r, 0 other wise Q:PIE N="" 0 Q $ $GETDFLT(I BTCFLAG)=P IEN ;GETDF LT(IBTCFLA G) ; retur ns ien of default pa y-to provi der Q $P($ G(^IBE(350 .9,1,11)), U,$S(IBTCF LAG:4,1:3) ) ;SEL(IBT CFLAG) ; s elect pay- to provide r ; return s ien of s elected pa y-to provi der, or 0 | |
646 | if nothing is select ed N DIR,I EN,MAX,X,Y S IEN=0 I VALMLST>4 D . ; the re is at l east one e ntry . S M AX=$O(@VAL MAR@("ZIDX ",""),-1) S:MAX=1 Y= 1 . I MAX> 1 D . . ;/ IB*2.0*608 – vd (US2 599) Chang ed TRICARE to Non-MC CF. . . S DIR("A")=" Select "_$ S(IBTCFLAG :"Non-MCCF ",1:"")_" Pay-To Pro vider (1-" _MAX_"): " . . S DIR (0)="NA^"_ 1_":"_MAX_ ":0" . . D ^DIR . . Q . S:+Y>0 IEN=$O(@V ALMAR@("ZI DX",Y,"")) . Q Q +IE N; | |
647 | ||
648 | ||
649 | ||
650 | ||
651 | Changed al l of the d isplay lab els and pr ompts from “TRICARE” to “Non-M CCF” in th e routine IBJPS4: | |
652 | Routines | |
653 | Activities | |
654 | Routine Na me | |
655 | IBJPS4 | |
656 | Enhancemen t Category | |
657 | New | |
658 | Modify | |
659 | Delete | |
660 | No Change | |
661 | RTM | |
662 | ||
663 | Related Op tions | |
664 | None | |
665 | Related Ro utines | |
666 | Routines “ Called By” | |
667 | Routines “ Called” | |
668 | ||
669 | ||
670 | ||
671 | Data Dicti onary (DD) Reference s | |
672 | None | |
673 | Related Pr otocols | |
674 | None | |
675 | Related In tegration Control Re gistration s (ICRs) | |
676 | None | |
677 | Data Passi ng | |
678 | Input | |
679 | Output Re ference | |
680 | Both | |
681 | Global Re ference | |
682 | Local | |
683 | Input Attr ibute Name and Defin ition | |
684 | Name: | |
685 | Definition : | |
686 | Output Att ribute Nam e and Defi nition | |
687 | Name: | |
688 | Definition : | |
689 | Current Lo gic | |
690 | IBJPS4 ;BP /YMG - IB Site Param eters, Pay -To Provid er Associa tions ;06- Nov-2008 ; ;2.0;INTEG RATED BILL ING;**400, 516**;21-M AR-94;Buil d 123 ;;Pe r VA Direc tive 6402, this rout ine should not be mo dified. ; ; MRD;IB*2 .0*516 - A dded logic pertainin g to TRICA RE-Specifi c Pay-To ; Providers , which en tailed add ing the pa rameter IB TCFLAG to many ; pro cedures he re and in ^IBJPS3. ; EN(IBTCFLA G) ; -- ma in entry p oint for I BJP IB PAY -TO ASSOCI ATIONS ; s elect pay- to provide r D EN^VAL M("IBJP IB "_$S(IBTC FLAG:"TRIC ARE PAY-TO ASSOCS",1 :"PAY-TO A SSOCIATION S")) S VAL MBCK="R" Q ;HDR ; -- header co de S VALMH DR(1)="" Q ;INIT(IBT CFLAG) ; - - init var iables and list arra y N DFLT,H ASDIVS,IBC NT,IBLN,IB STR,IEN4,P IEN,PROVS S DFLT=$$G ETDFLT^IBJ PS3(IBTCFL AG) D BLD( DFLT,.PROV S,IBTCFLAG ) I $D(PRO VS) D .; c reate list man array .S (IBCNT, IBLN)=0 S PIEN="" F S PIEN=$O (PROVS(PIE N)) Q:PIEN ="" D ..S IBLN=IBLN +1 ..S IBS TR=$$SETST R^VALM1(PR OVS(PIEN)_ $S($$ISDFL T^IBJPS3(P IEN,IBTCFL AG):" (Def ault)",1:" "),"",2,75 ) ..D SET^ VALM10(IBL N,IBSTR) . .S HASDIVS =0,IEN4="" F S IEN4 =$O(PROVS( PIEN,IEN4) ) Q:IEN4=" " D ...S IBLN=IBLN+ 1,IBCNT=IB CNT+1 S:'H ASDIVS HAS DIVS=1 ... S IBSTR=$$ SETSTR^VAL M1(IBCNT," ",8,4) ... S IBSTR=$$ SETSTR^VAL M1($P(PROV S(PIEN,IEN 4),U,2),IB STR,14,8) ...S IBSTR =$$SETSTR^ VALM1($P(P ROVS(PIEN, IEN4),U),I BSTR,24,55 ) ...D SET ^VALM10(IB LN,IBSTR) ...S @VALM AR@("ZIDX" ,IBCNT,IEN 4)="" ...Q ..I 'HASD IVS S IBST R=$$SETSTR ^VALM1("No Divisions found."," ",8,45) S IBLN=IBLN+ 1 D SET^VA LM10(IBLN, IBSTR) ..S IBLN=IBLN +1 D SET^V ALM10(IBLN ,"") ..Q . Q I 'DFLT S IBLN=$$S ET^IBJPS3( 0,$$SETSTR ^VALM1("No Default " _$S(IBTCFL AG:"TRICAR E ",1:"")_ "Pay-To Pr ovider fou nd.","",11 ,42)) I DF LT,'$D(PRO VS) S IBLN =$$SET^IBJ PS3(0,$$SE TSTR^VALM1 ("No "_$S( IBTCFLAG:" TRICARE ", 1:"")_"Pay -To Provid ers found. ","",15,35 )) S VALMC NT=IBLN,VA LMBG=1 Q; | |
691 | ||
692 | ||
693 | ||
694 | ;DIVADD(I BTCFLAG) ; associate division with a pay -to provid er N DA,DF LT,DIC,DIE ,DIEN,DIR, DNAME,DR,I EN4,IEN19, Y,IBNODE S IBNODE=$$ NODE(IBTCF LAG) ; D F ULL^VALM1 S VALMBCK= "R" S IEN4 =$$SEL I I EN4>0 D .S IEN19=$O( ^IBE(350.9 ,1,IBNODE, "B",IEN4," ")) I IEN1 9="" D ..; create a new entry in 350.9 . .S DIEN=$$ FIND1^DIC( 40.8,,"QX" ,IEN4,"AD" ) I 'DIEN Q ..S DNAM E=$$GET1^D IQ(40.8,DI EN,.01),DF LT=$$GETDF LT^IBJPS3( IBTCFLAG) I 'DFLT Q ..I IEN4=+ $G(^IBE(35 0.9,1,IBNO DE,DFLT,0) ) D ERR Q ..S DIC="^ IBE(350.9, 1,"_IBNODE _",",DIC(0 )="L",DIC( "DR")=".02 ////"_DNAM E_";.05/// /"_DFLT,X= IEN4,DLAYG O=350.9,DA (1)=1 ..K DD,DO D FI LE^DICN I +Y>0 S IEN 19=+Y ..K DIC,DD,DO, DLAYGO ..Q .I +IEN19 >0 D ..I $ P($G(^IBE( 350.9,1,IB NODE,IEN19 ,0)),U,5)= "" D ERR Q ..S DIR(0 )="P^IBE(3 50.9,1,"_I BNODE_",:M ",DIR("S") ="I $P(^(0 ),U,5)=""" "" ..S DA( 1)=1,DIR(" A")="Selec t "_$S(IBT CFLAG:"TRI CARE ",1:" ")_"Pay-To Provider" ..D ^DIR ..I +Y>0 S DIE="^IBE (350.9,1," _IBNODE_", ",DA=IEN19 ,DA(1)=1,D R=".05//// "_+Y D ^DI E .Q D CLE AN^VALM10, CLEAN^DILF ,INIT(IBTC FLAG) Q ;E RR ; N DIR S DIR("A" ,1)="A div ision used as a Pay- to Provide r cannot b e associat ed" S DIR( "A",2)="wi th another Pay-to Pr ovider." S DIR("A")= "Press RET URN to con tinue: " S DIR(0)="E A" D ^DIR Q ;GETPROV (PIEN,IBTC FLAG) ; re turn pay-t o provider ien for a given div ision, or 0 if provi der can't be found ; PIEN has to be a va lid ien in pay-to pr oviders su b-file ; N PRVZ,NXTP IEN,OUT,IB NODE S PRV Z(PIEN)="" ; this ar ray holds ien's to p revent inf inite chai n S IBNODE =$$NODE(IB TCFLAG) S OUT=0 F S NXTPIEN=+ $P($G(^IBE (350.9,1,I BNODE,PIEN ,0)),U,5) D Q:OUT ; .I 'NXTP IEN S OUT= 1 Q ; no parent - t his is pay -to provid er .I $D(P RVZ(NXTPIE N)) S PIEN =0,OUT=1 Q ; we are in an inf inite loop , so get o ut .S PIEN =NXTPIEN,P RVZ(NXTPIE N)="" ; pa rent exist s, so cont inue the l oop .Q Q P IEN ;GETDI VS(PIEN,DI VS,IBTCFLA G) ; retur n array of divisions associate d with pay -to provid er PIEN N I,DIV,PPRO V,IBNODE S IBNODE=$$ NODE(IBTCF LAG) S I=" " F S I=$ O(^IBE(350 .9,1,IBNOD E,"B",I)) Q:I="" D .S DIV=$O( ^IBE(350.9 ,1,IBNODE, "B",I,"")) .Q:+DIV'> 0 S PPROV= $$GETPROV( DIV,IBTCFL AG) .I PPR OV=PIEN,DI V'=PIEN S DIVS(DIV)= $P($G(^IBE (350.9,1,I BNODE,DIV, 0)),U,2) . Q Q ;NODE( IBTCFLAG) ; Determin e appropri ate pay-to provide n ode within ^IBE(350. 9). ; '29' for TRICA RE, otherw ise '19'. Q $S(IBTCF LAG:29,1:1 9) ;SCRN4( IEN) ; Scr een for IN STITUTION( #4) file N DIERR,IEN S,FIELDS,Z ,ZERR S IE NS=+IEN_", ",FIELDS=" 11;13;101" D GETS^DI Q(4,IENS,F IELDS,"IE" ,"Z","ZERR ") I $D(DI ERR) Q 0 ; Check to s ee if Nati onal I Z(4 ,IENS,11," I")'="N" Q 0 ;Check to see if Inactive I Z(4,IENS, 101,"I") Q 0 ;Check to see if Pharmacy I "^PHARM^C MOP^MSN^"[ (U_Z(4,IEN S,13,"E")_ U) Q 0 ;De fault Q 1 ;TRICARE(I BIFN) ; De termine wh ether this bill/clai m is TRICA RE or not. ; Return '1' if TRI CARE, '0' if not. Th ere are tw o rate typ es that ; should ret urn '1': T RICARE and TRICARE R EIMB. INS. ; I '$G(I BIFN) Q 0 N IBRATE S IBRATE=$P (^DGCR(399 ,IBIFN,0), U,7) I 'IB RATE Q 0 I $P($G(^DG CR(399.3,I BRATE,0)), U)'["TRICA RE" Q 0 ; ; At this point, the claim has a rate ty pe of TRIC ARE or TRI CARE ; REI MB. INS. H owever, qu it with a '1' only i f a defaul t TRICARE- ; specifi c pay-to p rovider is defined. Otherwise, quit with a '0'. ; I $$GETDFL T^IBJPS3(1 ) Q 1 Q 0 | |
695 | Modified L ogic (Chan ges are in bold) | |
696 | IBJPS4 ;BP /YMG - IB Site Param eters, Pay -To Provid er Associa tions ;06- Nov-2008 ; ;2.0;INTEG RATED BILL ING;**400, 516,608**; 21-MAR-94; Build 123 ;;Per VA D irective 6 402, this routine sh ould not b e modified . ; ; MRD; IB*2.0*516 - Added l ogic perta ining to T RICARE-Spe cific Pay- To ; Provi ders, whic h entailed adding th e paramete r IBTCFLAG to many ; procedure s here and in ^IBJPS 3. ;EN(IBT CFLAG) ; - - main ent ry point f or IBJP IB PAY-TO AS SOCIATIONS ; select pay-to pro vider D EN ^VALM("IBJ P IB "_$S( IBTCFLAG:" TRICARE PA Y-TO ASSOC S",1:"PAY- TO ASSOCIA TIONS")) S VALMBCK=" R" Q ;HDR ; -- heade r code S V ALMHDR(1)= "" Q ;INIT (IBTCFLAG) ; -- init variables and list array N DF LT,HASDIVS ,IBCNT,IBL N,IBSTR,IE N4,PIEN,PR OVS S DFLT =$$GETDFLT ^IBJPS3(IB TCFLAG) D BLD(DFLT,. PROVS,IBTC FLAG) I $D (PROVS) D .; create listman ar ray .S (IB CNT,IBLN)= 0 S PIEN=" " F S PIE N=$O(PROVS (PIEN)) Q: PIEN="" D ..S IBLN= IBLN+1 ..S IBSTR=$$S ETSTR^VALM 1(PROVS(PI EN)_$S($$I SDFLT^IBJP S3(PIEN,IB TCFLAG):" (Default)" ,1:""),"", 2,75) ..D SET^VALM10 (IBLN,IBST R) ..S HAS DIVS=0,IEN 4="" F S IEN4=$O(PR OVS(PIEN,I EN4)) Q:IE N4="" D . ..S IBLN=I BLN+1,IBCN T=IBCNT+1 S:'HASDIVS HASDIVS=1 ...S IBST R=$$SETSTR ^VALM1(IBC NT,"",8,4) ...S IBST R=$$SETSTR ^VALM1($P( PROVS(PIEN ,IEN4),U,2 ),IBSTR,14 ,8) ...S I BSTR=$$SET STR^VALM1( $P(PROVS(P IEN,IEN4), U),IBSTR,2 4,55) ...D SET^VALM1 0(IBLN,IBS TR) ...S @ VALMAR@("Z IDX",IBCNT ,IEN4)="" ...Q ..I ' HASDIVS S IBSTR=$$SE TSTR^VALM1 ("No Divis ions found .","",8,45 ) S IBLN=I BLN+1 D SE T^VALM10(I BLN,IBSTR) ..S IBLN= IBLN+1 D S ET^VALM10( IBLN,"") . .Q .Q I 'D FLT S IBLN =$$SET^IBJ PS3(0,$$SE TSTR^VALM1 ("No Defau lt "_$S(IB TCFLAG:"No n-MCCF ",1 :"")_"Pay- To Provide r found.", "",11,42)) I DFLT,'$ D(PROVS) S IBLN=$$SE T^IBJPS3(0 ,$$SETSTR^ VALM1("No "_$S(IBTCF LAG:"Non-M CCF ",1:"" )_"Pay-To Providers found.","" ,15,35)) S VALMCNT=I BLN,VALMBG =1 Q; | |
697 | ||
698 | ||
699 | ||
700 | ;DIVADD(I BTCFLAG) ; associate division with a pay -to provid er N DA,DF LT,DIC,DIE ,DIEN,DIR, DNAME,DR,I EN4,IEN19, Y,IBNODE S IBNODE=$$ NODE(IBTCF LAG) ; D F ULL^VALM1 S VALMBCK= "R" S IEN4 =$$SEL I I EN4>0 D .S IEN19=$O( ^IBE(350.9 ,1,IBNODE, "B",IEN4," ")) I IEN1 9="" D ..; create a new entry in 350.9 . .S DIEN=$$ FIND1^DIC( 40.8,,"QX" ,IEN4,"AD" ) I 'DIEN Q ..S DNAM E=$$GET1^D IQ(40.8,DI EN,.01),DF LT=$$GETDF LT^IBJPS3( IBTCFLAG) I 'DFLT Q ..I IEN4=+ $G(^IBE(35 0.9,1,IBNO DE,DFLT,0) ) D ERR Q ..S DIC="^ IBE(350.9, 1,"_IBNODE _",",DIC(0 )="L",DIC( "DR")=".02 ////"_DNAM E_";.05/// /"_DFLT,X= IEN4,DLAYG O=350.9,DA (1)=1 ..K DD,DO D FI LE^DICN I +Y>0 S IEN 19=+Y ..K DIC,DD,DO, DLAYGO ..Q .I +IEN19 >0 D ..I $ P($G(^IBE( 350.9,1,IB NODE,IEN19 ,0)),U,5)= "" D ERR Q ..S DIR(0 )="P^IBE(3 50.9,1,"_I BNODE_",:M ",DIR("S") ="I $P(^(0 ),U,5)=""" "" ..S DA( 1)=1,DIR(" A")="Selec t "_$S(IBT CFLAG:"Non -MCCF ",1: "")_"Pay-T o Provider " ..D ^DIR ..I +Y>0 S DIE="^IB E(350.9,1, "_IBNODE_" ,",DA=IEN1 9,DA(1)=1, DR=".05/// /"_+Y D ^D IE .Q D CL EAN^VALM10 ,CLEAN^DIL F,INIT(IBT CFLAG) Q ; ERR ; N DI R S DIR("A ",1)="A di vision use d as a Pay -to Provid er cannot be associa ted" S DIR ("A",2)="w ith anothe r Pay-to P rovider." S DIR("A") ="Press RE TURN to co ntinue: " S DIR(0)=" EA" D ^DIR Q ;GETPRO V(PIEN,IBT CFLAG) ; r eturn pay- to provide r ien for a given di vision, or 0 if prov ider can't be found ; PIEN has to be a v alid ien i n pay-to p roviders s ub-file ; N PRVZ,NXT PIEN,OUT,I BNODE S PR VZ(PIEN)=" " ; this a rray holds ien's to prevent in finite cha in S IBNOD E=$$NODE(I BTCFLAG) S OUT=0 F S NXTPIEN= +$P($G(^IB E(350.9,1, IBNODE,PIE N,0)),U,5) D Q:OUT ; .I 'NXT PIEN S OUT =1 Q ; no parent - this is pa y-to provi der .I $D( PRVZ(NXTPI EN)) S PIE N=0,OUT=1 Q ; we ar e in an in finite loo p, so get out .S PIE N=NXTPIEN, PRVZ(NXTPI EN)="" ; p arent exis ts, so con tinue the loop .Q Q PIEN ;GETD IVS(PIEN,D IVS,IBTCFL AG) ; retu rn array o f division s associat ed with pa y-to provi der PIEN N I,DIV,PPR OV,IBNODE S IBNODE=$ $NODE(IBTC FLAG) S I= "" F S I= $O(^IBE(35 0.9,1,IBNO DE,"B",I)) Q:I="" D .S DIV=$O (^IBE(350. 9,1,IBNODE ,"B",I,"") ) .Q:+DIV' >0 S PPROV =$$GETPROV (DIV,IBTCF LAG) .I PP ROV=PIEN,D IV'=PIEN S DIVS(DIV) =$P($G(^IB E(350.9,1, IBNODE,DIV ,0)),U,2) .Q Q ;NODE (IBTCFLAG) ; Determi ne appropr iate pay-t o provide node withi n ^IBE(350 .9). ; '29 ' for TRIC ARE, other wise '19'. Q $S(IBTC FLAG:29,1: 19) ;SCRN4 (IEN) ; Sc reen for I NSTITUTION (#4) file N DIERR,IE NS,FIELDS, Z,ZERR S I ENS=+IEN_" ,",FIELDS= "11;13;101 " D GETS^D IQ(4,IENS, FIELDS,"IE ","Z","ZER R") I $D(D IERR) Q 0 ;Check to see if Nat ional I Z( 4,IENS,11, "I")'="N" Q 0 ;Check to see if Inactive I Z(4,IENS ,101,"I") Q 0 ;Check to see if Pharmacy I "^PHARM^ CMOP^MSN^" [(U_Z(4,IE NS,13,"E") _U) Q 0 ;D efault Q 1 ;TRICARE( IBIFN) ; D etermine w hether thi s bill/cla im is TRIC ARE or not . ; Return '1' if TR ICARE, '0' if not. T here are t wo rate ty pes that ; should re turn '1': TRICARE an d TRICARE REIMB. INS . ; ; Thi s has been modified to reflect Non-MCCF Claims and not just TRICARE. - IB*2.0*60 8 - vd (US 2599) ; I '$G(IBIFN) Q 0 N IBR ATE S IBRA TE=$P(^DGC R(399,IBIF N,0),U,7) I 'IBRATE Q 0 ; ;/Be gin IB*2.0 *608 - vd (US2599) - Replaced the follow ing lines ; I $P($G( ^DGCR(399. 3,IBRATE,0 )),U)'["TR ICARE" Q 0 I '$D(^IB E(350.9,1, 28,”B”,IBR ATE)) Q 0 ; Not a No n-MCCF Pay -to Provid er Rate Ty pe. ;/End IB*2.0*508 - vd ; ; At this po int, the c laim has a Non-MCCF rate type. However, | |
701 | ; quit wi th a '1' o nly if a d efault Non -MCCF-spec ific pay-t o | |
702 | ; provide r is defin ed. Otherw ise, quit with a '0' . ; I $$GE TDFLT^IBJP S3(1) Q 1 Q 0 | |
703 | ||
704 | Created th e routine IBJPS7 to handle the adding an d removing of Rate T ypes for t he new Lis t Template , "IBJP IB NON-MCCF RATE TYPES ”: | |
705 | Routines | |
706 | Activities | |
707 | Routine Na me | |
708 | IBJPS7 | |
709 | Enhancemen t Category | |
710 | New | |
711 | Modify | |
712 | Delete | |
713 | No Change | |
714 | RTM | |
715 | ||
716 | Related Op tions | |
717 | None | |
718 | Related Ro utines | |
719 | Routines “ Called By” | |
720 | Routines “ Called” | |
721 | ||
722 | ||
723 | ||
724 | Data Dicti onary (DD) Reference s | |
725 | None | |
726 | Related Pr otocols | |
727 | None | |
728 | Related In tegration Control Re gistration s (ICRs) | |
729 | None | |
730 | Data Passi ng | |
731 | Input | |
732 | Output Re ference | |
733 | Both | |
734 | Global Re ference | |
735 | Local | |
736 | Input Attr ibute Name and Defin ition | |
737 | Name: | |
738 | Definition : | |
739 | Output Att ribute Nam e and Defi nition | |
740 | Name: | |
741 | Definition : | |
742 | Current Lo gic | |
743 | ||
744 | N/A | |
745 | ||
746 | Modified L ogic (Chan ges are in bold) | |
747 | IBJPS7 ;AL B/VD - IB Site Param eters, Pay -To Provid er Rate Ty pes ;06-No v-2008 ;;2 .0;INTEGRA TED BILLIN G;**608**; 21-MAR-94; Build 123 ;;Per VA D irective 6 402, this routine sh ould not b e modified . ;EN(IBTC FLAG) ; -- main entr y point fo r IBJP IB PAY-TO RAT E TYPES ; select pay -to provid er Q:(IBTC FLAG'=1) ; Only want Non-MCCF Pay-To Pro vider Rate Types D E N^VALM("IB JP IB NON- MCCF RATE TYPES") S VALMBCK="R " Q ;HDR ; -- header code S VA LMSG="" Q ;INIT(IBTC FLAG) ; -- init vari ables and list array N ERROR,I BCNT,IBLN, IBSTR,RTYD ATA,RIENS, RTYPE Q:(I BTCFLAG'=1 ) ; Only w ant Non-MC CF Pay-To Provider R ate Types ; S (VALMC NT,IBCNT,I BLN)=0 I $ D(^IBE(350 .9,1,28,"B ")) D . S RTYPE=0 F S RTYPE=$ O(^IBE(350 .9,1,28,"B ",RTYPE)) Q:'RTYPE D . . ; . . S RIENS= RTYPE_"," . . D GETS ^DIQ(399.3 ,RIENS,".0 01;.01;.03 ","I","RTY DATA","ERR OR") . . ; do not in cluded *RE SERVED cod es (must b e ACTIVATE = 0 for A ctive, 1 = InActive) . . Q:+$G (RTYDATA(3 99.3,RIENS ,.03,"I")) . . S IBC NT=IBCNT+1 . . S IBS TR=$$SETST R^VALM1($J (IBCNT,4)_ ".","",2,6 ) . . S IB STR=$$SETS TR^VALM1($ J($G(RTYDA TA(399.3,R IENS,.001, "I")),3),I BSTR,10,4) . . S IBS TR=$$SETST R^VALM1($G (RTYDATA(3 99.3,RIENS ,.01,"I")) ,IBSTR,17, 30) . . S IBLN=$$SET (IBLN,IBST R) . . S @ VALMAR@("Z IDX",IBCNT ,$G(RTYDAT A(399.3,RI ENS,.001," I")))="" . . Q ; I ' IBLN S IBL N=$$SET(IB LN,$$SETST R^VALM1("N o Rate Typ es defined .","",13,4 0)) ; S VA LMCNT=IBLN ,VALMBG=1 Q ;HELP ; -- help co de S X="?" D DISP^XQ ORM1 W !! Q ;EXIT ; -- exit co de D CLEAR ^VALM1,CLE AN^VALM10 Q ;RTADD(I BTCFLAG) ; -- Add a new Rate T ype N X,Y, DIE,DR,DIR ,DIRUT,DUO UT,DTOUT,E RRMSG,FDA, RETIEN ; S VALMBCK=" R" D FULL^ VALM1 D RT ADD1,INIT( IBTCFLAG) Q ;RTADD1 ; Looping tag for Ad ding Rate Types K FD A,RETIEN,E RRMSG,X ; S DIR(0)=" 350.928,.0 1" S DIR(" A")="Rate Type" D ^D IR Q:'Y ; I $D(^IBE( 350.9,1,28 ,"B",+Y)) D G RTADD 1 . D FULL ^VALM1 . W @IOF . W !,"This Ra te Type al ready exis ts on the Exclusion list." . W !,"Please enter ano ther Rate Type." . Q ; S FDA(3 50.928,"+1 ,1,",.01)= +Y D UPDAT E^DIE(""," FDA","RETI EN","ERRMS G") G RTAD D1 ;RTDEL( IBTCFLAG) ; -- Delet e a Rate T ype N DR D RTDEL1 S VALMBCK="R " Q ;RTDEL 1 ; Loopin g tag for deleting R ate Types N Z,VALMY D FULL^VAL M1 D EN^VA LM2($G(XQO RNOD(0))) S Z=0 F S Z=$O(VALM Y(Z)) Q:'Z D . N DI K,IEN,RIEN . S IEN=$ O(@VALMAR@ ("ZIDX",Z, "")) . Q:' IEN . S RI EN=$O(^IBE (350.9,1,2 8,"B",IEN, "")) . I + RIEN S DIK ="^IBE(350 .9,1,28,", DA(1)=1,DA =RIEN D ^D IK K @VALM AR D INIT( IBTCFLAG) Q ;SET(IBL N,IBSTR) ; -- Add a line to di splay list ; returns line numb er added S IBLN=IBLN +1 D SET^V ALM10(IBLN ,IBSTR,IBL N) Q IBLN ; | |
748 | ||
749 | 3) LIST TE MPLATES: | |
750 | IBJP IB TR ICARE PAY- TO PROVS ( modified): | |
751 | List Templ ate | |
752 | Activities | |
753 | Name | |
754 | IBJP IB TR ICARE PAY- TO PROVS | |
755 | Current De finition: | |
756 | List Manag er Workben ch Mar 06, 20 18@14:57:0 7 Page: 1 of 3 | |
757 | Template: IBJP IB TR ICARE PAY- TO PROVS | |
758 | ||
759 | Demograp hics List Reg ion | |
760 | Template Name: IBJP IB TRICAR E PAY-TO P ROVS Top Ma rgin: 2 | |
761 | Entity Name: IB T RICARE Pay -To Provid ers Bottom " : 18 | |
762 | Screen T itle: TRIC ARE Pay-To Providers Right " : 80 | |
763 | ||
764 | Protocol Informati on Other Fi elds | |
765 | Type of List: PRO TOCOL OK to Transport ?: OK | |
766 | Protocol Menu: IBJ P IB TRICA RE PAY-TO PROV Use Cur sor Contro l: YES | |
767 | Print Pro tocol: Allowa ble Number of Action s: 1 | |
768 | Hidden Menu: VAL M HIDDEN A CTIONS Date Range Limi t: | |
769 | Automat ic Default s: YES | |
770 | ||
771 | + Enter ?? f or more ac tions >>> | |
772 | DE Demogr aphic Edit MC MUMPS Code Edit PE Prot ocol Edit | |
773 | PI Protoc ol Informa tion CE Caption Ed it RN Run List | |
774 | LR List R egion Edit CL Change Lis t Template IT Inpu t Template | |
775 | OF Other Fields EA Edit All RO Rout ine Editor | |
776 | Select Too l:Next Scr een// | |
777 | ||
778 | Modified D efinition (Changes a re highlig hted): | |
779 | List Manag er Workben ch Mar 06, 20 18@15:01:3 7 Page: 1 of 3 | |
780 | Template: IBJP IB TR ICARE PAY- TO PROVS | |
781 | ||
782 | Demograp hics List Reg ion | |
783 | Template Name: IBJP IB TRICAR E PAY-TO P ROVS Top Ma rgin: 2 | |
784 | Entity Name: IB N on-MCCF Pa y-To Provi ders Bottom " : 18 | |
785 | Screen T itle: Non- MCCF Pay-T o Provider s Right " : 80 | |
786 | ||
787 | Protocol Informati on Other Fi elds | |
788 | Type of List: PRO TOCOL OK to Transport ?: OK | |
789 | Protocol Menu: IBJ P IB NON-M CCF PAY-TO PRO Use Cur sor Contro l: YES | |
790 | Print Pro tocol: Allowa ble Number of Action s: 1 | |
791 | Hidden Menu: VAL M HIDDEN A CTIONS Date Range Limi t: | |
792 | Automat ic Default s: YES | |
793 | ||
794 | + Enter ?? f or more ac tions >>> | |
795 | DE Demogr aphic Edit MC MUMPS Code Edit PE Prot ocol Edit | |
796 | PI Protoc ol Informa tion CE Caption Ed it RN Run List | |
797 | LR List R egion Edit CL Change Lis t Template IT Inpu t Template | |
798 | OF Other Fields EA Edit All RO Rout ine Editor | |
799 | Select Too l:Next Scr een// | |
800 | ||
801 | ||
802 | IBJP IB NO N-MCCF RAT E TYPES (n ew): | |
803 | List Templ ate | |
804 | Activities | |
805 | Name | |
806 | IBJP IB NO N-MCCF RAT E TYPES | |
807 | Current De finition: | |
808 | ||
809 | N/A | |
810 | Modified D efinition (Changes a re highlig hted): | |
811 | List Manag er Workben ch Mar 06, 20 18@15:06:3 8 Page: 1 of 3 | |
812 | Template: IBJP IB NO N-MCCF RAT E TYPES | |
813 | ||
814 | Demograp hics List Reg ion | |
815 | Template Name: IBJP IB NON-MC CF RATE TY PES Top Ma rgin: 4 | |
816 | Entity Name: Non- MCCF Rate Types Bottom " : 19 | |
817 | Screen T itle: Non- MCCF Rate Types Right " : 80 | |
818 | ||
819 | Protocol Informati on Other Fi elds | |
820 | Type of List: PRO TOCOL OK to Transport ?: OK | |
821 | Protocol Menu: IBJ P IB NON-M CCF RATE T YPES Use Cur sor Contro l: YES | |
822 | Print Pro tocol: Allowa ble Number of Action s: 1 | |
823 | Hidden Menu: VAL M HIDDEN A CTIONS Date Range Limi t: | |
824 | Automat ic Default s: YES | |
825 | ||
826 | + Enter ?? f or more ac tions >>> | |
827 | DE Demogr aphic Edit MC MUMPS Code Edit PE Prot ocol Edit | |
828 | PI Protoc ol Informa tion CE Caption Ed it RN Run List | |
829 | LR List R egion Edit CL Change Lis t Template IT Inpu t Template | |
830 | OF Other Fields EA Edit All RO Rout ine Editor | |
831 | Select Too l:Next Scr een// | |
832 | ||
833 | ||
834 | List Manag er Workben ch Mar 06, 20 18@15:09:5 1 Page: 2 of 3 | |
835 | Template: IBJP IB NO N-MCCF RAT E TYPES | |
836 | + | |
837 | ||
838 | MUMPS Co de Related | |
839 | Header: D HDR^IBJPS 7 | |
840 | Entry: D INIT^IBJP S7(1) | |
841 | Exit: D EXIT^IBJP S7 | |
842 | Expand: | |
843 | Help: D HELP^IBJP S7 | |
844 | Array: ^TMP("IBJP S7",$J) | |
845 | ||
846 | Caption Line Infor mation | |
847 | Name Column Width Display T ext Video Sc roll Lock | |
848 | NBR 5 1 # NO | |
849 | RTYP 10 3 RTY NO | |
850 | DESCR 17 30 DESCRIPTI ON NO | |
851 | + Enter ?? f or more ac tions >>> | |
852 | DE Demogr aphic Edit MC MUMPS Code Edit PE Prot ocol Edit | |
853 | PI Protoc ol Informa tion CE Caption Ed it RN Run List | |
854 | LR List R egion Edit CL Change Lis t Template IT Inpu t Template | |
855 | OF Other Fields EA Edit All RO Rout ine Editor | |
856 | Select Too l:Next Scr een// | |
857 | ||
858 | ||
859 | 4) PROTOCO L: | |
860 | IBJP IB NO N-MCCF RAT E TYPE ADD (new): | |
861 | Protocol | |
862 | Activities | |
863 | Name | |
864 | IBJP IB NO N-MCCF RAT E TYPE ADD | |
865 | Current De finition: | |
866 | ||
867 | N/A | |
868 | Modified D efinition (Changes a re highlig hted): | |
869 | NAME: IBJP IB NON-MC CF RATE TY PE ADD ITEM TEXT: Add Rate Type | |
870 | TYPE: acti on CREATOR: P I
|
|
871 | PACKAGE: INTEGRATE D BILLING IDENTIFIER : AR | |
872 | ENTRY AC TION: D RT ADD^IBJPS7 (1) TIMESTAMP: 64692,553 44 | |
873 | ||
874 | ||
875 | IBJP IB NO N-MCCF RAT E TYPE DEL (new): | |
876 | Protocol | |
877 | Activities | |
878 | Name | |
879 | IBJP IB NO N-MCCF RAT E TYPE DEL | |
880 | Current De finition: | |
881 | ||
882 | N/A | |
883 | Modified D efinition (Changes a re highlig hted): | |
884 | NAME: IBJP IB NON-MC CF RATE TY PE DEL ITEM TEXT: Remove Ra te Type | |
885 | TYPE: acti on CREATOR: P I
|
|
886 | PACKAGE: INTEGRATE D BILLING IDENTIFIER : RR | |
887 | ENTRY AC TION: D RT DEL^IBJPS7 (1) TIMESTAMP: 64692,553 85 | |
888 | ||
889 | ||
890 | IBJP IB NO N-MCCF RAT E TYPES (n ew): | |
891 | Protocol | |
892 | Activities | |
893 | Name | |
894 | IBJP IB NO N-MCCF RAT E TYPES | |
895 | Current De finition: | |
896 | ||
897 | N/A | |
898 | Modified D efinition (Changes a re highlig hted): | |
899 | NAME: IBJP IB NON-MC CF RATE TY PES ITEM TEXT: Rate Type s | |
900 | TYPE: acti on CREATOR: P I
|
|
901 | PACKAGE: INTEGRATE D BILLING IDENTIFIER : RT | |
902 | ENTRY AC TION: D EN ^IBJPS7(1) TIMESTAMP: 64701,430 38 | |
903 | ||
904 | ||
905 | IBJP IB NO N-MCCF RAT E TYPES ME NU (new): | |
906 | Protocol | |
907 | Activities | |
908 | Name | |
909 | IBJP IB NO N-MCCF RAT E TYPES ME NU | |
910 | Current De finition: | |
911 | ||
912 | N/A | |
913 | Modified D efinition (Changes a re highlig hted): | |
914 | NAME: IBJP IB NON-MC CF RATE TY PES MENU ITEM TEXT: Non-MCCF Rate Types Menu | |
915 | TYPE: menu CREATOR: P I
|
|
916 | PACKAGE: INTEGRATE D BILLING COLUMN WID TH: 26 | |
917 | MNEMONIC WIDTH: 4 IDENTIFIER : RM | |
918 | ITEM: IBJP IB NON-MC CF RATE TY PE ADD MNEMONIC: AR | |
919 | SEQUENCE : 2 | |
920 | ITEM: IBJP IB NON-MC CF RATE TY PE DEL MNEMONIC: RR | |
921 | SEQUENCE : 5 | |
922 | HEADER: D SHOW^VAL M TIMESTAMP: 64692,554 30 | |
923 | ||
924 | ||
925 | IBJP IB NO N-MCCF PAY -TO PROVID ERS MENU ( new): | |
926 | Protocol | |
927 | Activities | |
928 | Name | |
929 | IBJP IB NO N-MCCF PAY -TO PROVID ERS MENU | |
930 | Current De finition: | |
931 | ||
932 | N/A | |
933 | Modified D efinition (Changes a re highlig hted): | |
934 | NAME: IBJP IB NON-MC CF PAY-TO PROVIDERS MENU | |
935 | ITEM TEX T: Non-MCC F Pay-To P roviders M enu | |
936 | TYPE: menu CREATOR: P I
|
|
937 | PACKAGE: INTEGRATE D BILLING COLUMN WID TH: 26 | |
938 | MNEMONIC WIDTH: 4 | |
939 | ITEM: IBJP IB TRICAR E PAY-TO P ROVIDER AD D | |
940 | MNEMONIC : AP SEQUENCE: 2 | |
941 | ITEM: IBJP IB TRICAR E PAY-TO P ROVIDER DE L | |
942 | MNEMONIC : DP SEQUENCE: 6 | |
943 | ITEM: IBJP IB TRICAR E PAY-TO P ROVIDER ED IT | |
944 | MNEMONIC : EP SEQUENCE: 4 | |
945 | ITEM: IBJP IB TRICAR E PAY-TO P ROVIDER DI VISIONS | |
946 | MNEMONIC : AS SEQUENCE: 8 | |
947 | ITEM: IBJP IB NON-MC CF RATE TY PES MNEMONIC: RT | |
948 | SEQUENCE : 10 | |
949 | SCREEN: I $D(^XUSE C("IB EDIT PAY-TO TC ",DUZ)) | |
950 | HEADER: D SHOW^VAL M TIMESTAMP: 64707,348 19 | |
951 | ||
952 | ||
953 | IBJP IB TR ICARE PAY- TO PROVIDE RS MENU (d eleted): | |
954 | Protocol | |
955 | Activities | |
956 | Name | |
957 | IBJP IB TR ICARE PAY- TO PROVIDE RS MENU | |
958 | Current De finition: | |
959 | NAME: IBJP IB TRICAR E PAY-TO P ROVIDERS M ENU | |
960 | ITEM TEX T: TRICARE Pay-To Pr oviders Me nu | |
961 | TYPE: menu CREATOR: PI I
|
|
962 | PACKAGE: INTEGRATE D BILLING | |
963 | COLUMN W IDTH: 26 MNEMONIC W IDTH: 4 | |
964 | ITEM: IBJP IB TRICAR E PAY-TO P ROVIDER AD D | |
965 | MNEMONIC : AP SEQUENCE: 2 | |
966 | ITEM: IBJP IB TRICAR E PAY-TO P ROVIDER DE L | |
967 | MNEMONIC : DP SEQUENCE: 6 | |
968 | ITEM: IBJP IB TRICAR E PAY-TO P ROVIDER ED IT | |
969 | MNEMONIC : EP SEQUENCE: 4 | |
970 | ITEM: IBJP IB TRICAR E PAY-TO P ROVIDER DI VISIONS | |
971 | MNEMONIC : AS SEQUENCE: 8 | |
972 | SCREEN: I $D(^XUSE C("IB EDIT PAY-TO TC ",DUZ)) | |
973 | HEADER: D SHOW^VAL M TIMESTAMP: 63699,491 21 | |
974 | ||
975 | Modified D efinition (Changes a re highlig hted): | |
976 | ||
977 | Deleted | |
978 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.