Produced by Araxis Merge on 9/11/2018 8:57:46 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+US1909+v2.00.docx | Fri Jun 29 19:48:00 2018 UTC |
2 | OSCIF MCCF EDI TAS_Sept2018.zip | TAS+eBill+SDD+US1909+v2.00.docx | Mon Sep 10 18:26:02 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 5 | 546 |
Changed | 4 | 8 |
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 | MCCF EDI T AS US1909 | |
2 | System Des ign Docume nt | |
3 | IB*2.0*608 | |
4 | ||
5 | ||
6 | ||
7 | ||
8 | Department of Vetera ns Affairs | |
9 | January 20 18 | |
10 | Version 2. 0 | |
11 | ||
12 | User Story Number: U S1909 | |
13 | User Story Name: Rem ove Abilit y to Defin e Insuranc e Company as non EDI (TSEB-2) | |
14 | Design/Res olution: | |
15 | To Remove the abilit y to set I nsurance C ompany as a non EDI and send a one-time report of all insura nce compan ies that h ave the tr ansmit ele ctronicall y field se t as NO en tails the following: | |
16 | To update the Insura nce file [ #36]; fiel d TRANSMIT ELECTRONI CALLY (3.0 1): | |
17 | Modify the field to be “Requir ed”. | |
18 | Remove the option of “0” (NO) from the l ist of opt ions, leav e just opt ions “1” ( YES-LIVE) and “2” (Y ES-TEST). | |
19 | Modify the Help Prom pt to be: “Enter 1 t o bill ele ctronicall y; 2 to on ly transmi t for test ing.” | |
20 | Modify the Descripti on to be “ This field determine s whether an electro nic claim to this in surance co mpany is s ent as a t est or a p roduction claim. | |
21 | File | |
22 | Activities | |
23 | File Name | |
24 | Insurance #36 | |
25 | Enhancemen t Category | |
26 | New | |
27 | Modify | |
28 | Delete | |
29 | No Change | |
30 | RTM | |
31 | ||
32 | Related Op tions | |
33 | None | |
34 | Related Ro utines | |
35 | Routines “ Called By” | |
36 | Routines “ Called” | |
37 | ||
38 | ||
39 | ||
40 | ||
41 | Data Dicti onary (DD) Reference s | |
42 | #36, 3.01 | |
43 | ||
44 | File Modif ications f or Field # 36,3.01 | |
45 | ||
46 | FILEMAN VI EW BEFORE: | |
47 | STANDARD D ATA DICTIO NARY #36 - - INSURANC E COMPANY FILE 1/16/18 PAGE 1 | |
48 | STORED IN ^DIC(36, (1558 ENTR IES) SITE:
|
|
49 | ||
50 | DATA NAME GLOB AL DATA | |
51 | ELEMENT TITLE LOCA TION TYPE | |
52 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- | |
53 | 36,3.01 TRANSM IT ELECTRO NICALLY 3; 1 SET | |
54 | '0' FOR NO; | |
55 | '1' FOR YES-LIVE; | |
56 | '2' FOR YES-TEST; | |
57 | INPUT TRANSFORM: K:'$$EDI KEY^IBCNSC X | |
58 | LAST E DITED: FEB 03, 2006 | |
59 | HELP-P ROMPT: Enter 1 to bill el ectronical ly; 0 to | |
60 | print bi lls for th is insuran ce co; 2 | |
61 | to only transmit f or testing | |
62 | ||
63 | DESCRI PTION: This is the flag t hat says w hether or | |
64 | not an i nsurance c ompany is ready to | |
65 | be bille d electron ically via 837/EDI | |
66 | function s. | |
67 | ||
68 | NOTES: XXXX--CA N'T BE ALT ERED EXCEP T BY | |
69 | PROGRAMM ER | |
70 | ||
71 | ||
72 | GLOBAL VIE W BEFORE: | |
73 | Global ^DD (36,3.01 | |
74 | ^DD(36,3.0 1,0)="TRAN SMIT ELECT RONICALLY^ SX^0:NO;1: YES-LIVE;2 :YES-TEST; ^3;1^K:'$$ EDIKEY^IBC NSC X" | |
75 | 3)="Ente r 1 to bil l electron ically; 0 to print b ills for t his insura nce co; 2 to only tr ansmit for testing" | |
76 | ^DD(36,3.0 1,21,0)="^ ^2^2^29908 25^^^^" | |
77 | ^DD(36,3.0 1,21,1,0)= "This is t he flag th at says wh ether or n ot an insu rance comp any is rea dy" | |
78 | ^DD(36,3.0 1,21,2,0)= "to be bil led electr onically v ia 837/EDI functions ." | |
79 | ^DD(36,3.0 1,"DT")=30 60203 | |
80 | ||
81 | ||
82 | ||
83 | File Modif ications f or Field # 36,3.01 | |
84 | ||
85 | FILEMAN VI EW AFTER: | |
86 | STANDARD D ATA DICTIO NARY #36 - - INSURANC E COMPANY FILE 1/16/18 PAGE 1 | |
87 | STORED IN ^DIC(36, (1557 ENTR IES) SITE:
|
|
88 | ||
89 | DATA NAME GLOB AL DATA | |
90 | ELEMENT TITLE LOCA TION TYPE | |
91 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- | |
92 | 36,3.01 TRANSM IT ELECTRO NICALLY 3; 1 SET (Req uired) | |
93 | '1' FOR YES-LIVE; | |
94 | '2' FOR YES-TEST; | |
95 | INPUT TRANSFORM: K:'$$EDI KEY^IBCNSC X | |
96 | LAST E DITED: JAN 16, 2018 | |
97 | HELP-P ROMPT: Enter 1 to bill el ectronical ly; 2 to | |
98 | only tra nsmit for testing | |
99 | ||
100 | DESCRI PTION: This fie ld determi nes whethe r an | |
101 | electron ic claim t o this ins urance | |
102 | company is sent as a test or a | |
103 | producti on claim. | |
104 | ||
105 | NOTES: XXXX--CA N'T BE ALT ERED EXCEP T BY | |
106 | PROGRAMM ER | |
107 | ||
108 | ||
109 | GLOBAL VIE W AFTER: | |
110 | Global ^DD (36,3.01 | |
111 | ^DD(36,3.0 1,0)="TRAN SMIT ELECT RONICALLY^ RSX^1:YES- LIVE;2:YES -TEST;^3;1 ^K:'$$EDIK EY^IBCNSC X" | |
112 | 3)="Ente r 1 to bil l electron ically; 2 to only tr ansmit for testing" | |
113 | ^DD(36,3.0 1,21,0)="^ .001^2^2^3 171211^^^^ " | |
114 | ^DD(36,3.0 1,21,1,0)= "This fiel d determin es whether an electr onic claim to this i nsurance " | |
115 | ^DD(36,3.0 1,21,2,0)= "company i s sent as a test or a producti on claim." | |
116 | ^DD(36,3.0 1,"DT")=31 80116 | |
117 | ||
118 | ||
119 | Create a o ne-time re port that shows all Insurance Companies that have the [#36,3 .01] field set to a NULL or “0 ” (NO): | |
120 | Include th e one-time report as part of I BY608PO Po st Install Routine. | |
121 | The report should li st the fol lowing dat a elements : | |
122 | Insurance Company Na me | |
123 | Address | |
124 | Inactive F lag | |
125 | EDI-Transm it value | |
126 | The routin e will sen d the repo rt to the eBiz Rapid Response group: PII | |
127 | Routines | |
128 | Activities | |
129 | Routine Na me | |
130 | IBY608PO | |
131 | Enhancemen t Category | |
132 | New | |
133 | Modify | |
134 | Delete | |
135 | No Change | |
136 | RTM | |
137 | ||
138 | Related Op tions | |
139 | None | |
140 | Related Ro utines | |
141 | Routines “ Called By” | |
142 | Routines “ Called” | |
143 | ||
144 | ||
145 | ||
146 | ||
147 | Data Dicti onary (DD) Reference s | |
148 | None | |
149 | Related Pr otocols | |
150 | None | |
151 | Related In tegration Control Re gistration s (ICRs) | |
152 | None | |
153 | Data Passi ng | |
154 | Input | |
155 | Output Re ference | |
156 | Both | |
157 | Global Re ference | |
158 | Local | |
159 | Input Attr ibute Name and Defin ition | |
160 | Name: | |
161 | Definition : | |
162 | Output Att ribute Nam e and Defi nition | |
163 | Name: | |
164 | Definition : | |
165 | Current Lo gic | |
166 | N/A | |
167 | Modified L ogic (Chan ges are in bold) | |
168 | IBY608PO ; ALB/KDM - POST-INSTA LL FOR IB* 2.0*608 ;1 3-DEC-2017 ;;2.0;INT EGRATED BI LLING;**57 7**;21-MAR -94;Build 5 ;;Per VA Directive 6402, thi s routine should not be modifi ed. ; ;KDM 12/2017 U S1909 ; run repo rt of all insurance companies that have the curren t setting for Transm it Electro nically se t to zero- which is NO ; send email of r eport to e Biz rapid response g roup N IBA ,RNAME S R NAME="IBY6 08PO" K ^T MP(RNAME) S IBA(2)=" IB*2*608 P ost-Instal l...",(IBA (1),IBA(3) )=" " D ME S^XPDUTL(. IBA) K IBA D MES^XPD UTL(">> Ru nning Insu rance Comp any EDI Pa rameter Re port...ple ase stand by....") D RPT D MES ^XPDUTL("> > Report C ompleted." ) D:$$PROD ^XUPROD(1) EMAIL ;LIVE D EM AIL ;TESTING S IBA(2)=" IB*2*608 P ost-Instal l Complete .",(IBA(1) ,IBA(3))=" " D MES^X PDUTL(.IBA ) K IBA Q ;RPT ; Get all Insur ance compa nies that have the 3 .01- trans mit electr onically f ield blank or set to No. ;N IB ADDRESS,IB CITY,IBNAM E,IBPIEN,I BSTATE,STA TE,TRANSCD ,TRANSMIT N IBADDRES S,IBCITY,I BNAME,IBPI EN,IBSTATE ,INACTFLG, STATE,TRAN SMIT S IBN AME="" F S IBNAME=$ O(^DIC(36, "B",IBNAME )) Q:IBNAM E="" D . S IBPI EN=0 . F S IBPIEN=$ O(^DIC(36, "B",IBNAME ,IBPIEN)) Q:'+IBPIEN D . . S TR ANSMIT=$$G ET1^DIQ(36 ,IBPIEN,3. 01,"I") . . Q:+TRA NSMIT ;Only want to report the insur ance compa nies that have a set ting of 0 or NULL . . S (IBADD RESS,IBCIT Y,IBSTATE, INACTFLG,S TATE)="" . . S IBADD RESS=$$GET 1^DIQ(36,I BPIEN,.111 ) . . S IB CITY=$$GET 1^DIQ(36,I BPIEN,.114 ) . . S IB STATE=$$GE T1^DIQ(36, IBPIEN,.11 5,"I") . . I +IBSTAT E S STATE= $$GET1^DIQ (5,+IBSTAT E,1) . . S INACTFLG= $$GET1^DIQ (36,IBPIEN ,.05) . . I INACTFLG ="" S INAC TFLG="" . . S ^TMP(R NAME,$J,IB NAME,IBPIE N)=IBADDRE SS_U_IBCIT Y_U_STATE_ U_INACTFLG _U_$S(TRAN SMIT="":"" ,1:"NO") Q ;EMAIL ; Send an em ail messag e to eBiz Rapid Resp onse group with the report. N ADDRESS,CI TY,DATA,FU LLADD,IBNA ME,IBNAMEX ,IBPIEN,IN ACTFLG,LN, MSG N SPAC ES,SITE,SI TENAME,SIT ENO,STATE, STATION,SU BJ,TOTAL,T RANS,TRANS CD,XMINSTR ,XMTO D BM ES^XPDUTL( ">> Sendin g Email... ") D MES^X PDUTL("--- ---------- ") D MES^X PDUTL("Sen ding email notificat ion to eBi z Rapid re sponse gro up ... ") ;S SPACES= $J(" ",100 ) S $P(SPA CES,"_",10 0)="_" S S ITE=$$SITE ^VASITE,SI TENAME=$P( SITE,U,2), SITENO=$P( SITE,U,1), STATION=$P (SITE,U,3) S SUBJ="P ATCH IB*2. 0*608 - In surance Co mpany EDI Report"_" for Statio n# "_$P(SI TE,U,3)_" - "_$P(SIT E,U,2) S S UBJ=$E(SUB J,1,65) S MSG(1)="PA TCH IB*2.0 *608 - Ins urance Com pany EDI P arameter R eport" S M SG(2)="" S MSG(3)="S ite: "_SIT ENO_" "_SI TENAME_" - Station " _STATION S MSG(4)="D omain: "_$ G(^XMB("NE TNAME")) S MSG(5)="D ate/Time: "_$$FMTE^X LFDT($$NOW ^XLFDT) S MSG(6)="" S MSG(7)=" INSURANCE COMPANY___ __________ _____ADDRE SS________ __________ __________ __________ __________ __________ INACTIVE__ __EDI-TRAN SMIT" S MS G(8)="==== ========== ========== ========== ========== ========== ========== ========== ========== ========== ========== ========== ========== " S MSG(9) ="" S LN=1 0,IBNAME=" ",TOTAL=0 F S IBNAME=$ O(^TMP(RNA ME,$J,IBNA ME)) Q:IBN AME="" D . S IBPI EN="" . F S IBPIEN=$ O(^TMP(RNA ME,$J,IBNA ME,IBPIEN) ) Q:IBPIEN ="" D . . S DA TA=^TMP(RN AME,$J,IBN AME,IBPIEN ) . . S IB NAMEX=$$UN SPACE($E(I BNAME,1,30 )) . . S A DDRESS=$$U NSPACE($E( $P(DATA,U, 1),1,30)), CITY=$$UNS PACE($E($P (DATA,U,2) ,1,25)),ST ATE=$$UNSP ACE($P(DAT A,U,3)) . . S FULLAD D=ADDRESS_ ", "_CITY_ ", "_STATE . . I '$L (ADDRESS), '$L(CITY), '$L(STATE) S FULLADD ="" . . S INACTFLG=$ P(DATA,U,4 ) . . S TR ANS=$P(DAT A,U,5) . . S LN=LN+1 ,MSG(LN)=I BNAMEX_$E( SPACES,1,3 5-$L(IBNAM EX))_FULLA DD_$E(SPAC ES,1,68-$L (FULLADD)) . . S MSG (LN)=MSG(L N)_INACTFL G_$E(SPACE S,1,15-$L( INACTFLG)) _TRANS . . S TOTAL=T OTAL+1 S L N=LN+1,MSG (LN)="" S LN=LN+1,MS G(LN)="Tot al: "_+TOT AL S LN=LN +1,MSG(LN) ="" S LN=L N+1,MSG(LN )="End of Report" ; S XMTO(" PII ")="" ; S XMINSTR("F ROM")="Vis tA-eBillin g" D SENDM SG^XMXAPI( DUZ,SUBJ," MSG",.XMTO ,.XMINSTR) ;EMAILX ; D MES^XPD UTL(" Done .") D CLEA N^DILF Q ; UNSPACE(FL DX) ; Elim inate spac es at the end of the field. N I F S I=$L(FLD X) Q:($E(F LDX,I)'=" ") I $E(FL DX,I)=" " S FLDX=$E( FLDX,1,I-1 ) Q FLDX ; | |
169 | ||
170 | The Input Template IBEDIT INS CO1 for t he INSURAN CE COMPANY (#36) fil e needs to be modifi ed so that the EDI-T ransmit fi eld will o nly allow the user t o enter ei ther a “1” or “2” as possible options fo r this fie ld. Also, the user should not be able t o Delete t he value o f this fie ld. | |
171 | Templates | |
172 | Instructio ns | |
173 | Template N ame | |
174 | IBEDIT INS CO1 | |
175 | Enhancemen t Category | |
176 | New | |
177 | Modify | |
178 | Delete | |
179 | No Change | |
180 | Template T ype | |
181 | INPUT | |
182 | Related Op tions | |
183 | Insurance Company En try/Edit [IBCN INS URANCE CO EDIT] | |
184 | Related Ro utines | |
185 | IBCNSC01 | |
186 | Data Dicti onary (DD) Reference s | |
187 | INSURANCE COMPANY FI LE [#36] | |
188 | Current Lo gic | |
189 | ||
190 | ||
191 | ||
192 | @16 | |
193 | I '$$KCHK^ XUSRB("IB EDI INSURA NCE EDIT") S Y="@171 " | |
194 | TRANSMIT E LECTRONICA LLY;"EDI - Transmit? " | |
195 | S DIPA("IB TX")=X | |
196 | I X=$G(IBE DIKEY(1))! $$KCHK^XUS RB("IB EDI INSURANCE EDIT") S Y="@1721" | |
197 | TRANSMIT E LECTRONICA LLY////^S X=$G(IBEDI KEY(1)) | |
198 | I $$EDIKEY ^IBCNSC() | |
199 | S Y="@171" | |
200 | @1721 | |
201 | ||
202 | ||
203 | ||
204 | ||
205 | Modified L ogic (Chan ges are in bold) | |
206 | ||
207 | ||
208 | ||
209 | @16 | |
210 | I '$$KCHK^ XUSRB("IB EDI INSURA NCE EDIT") S Y="@171 " | |
211 | S DIE("NO^ ")="OUTOK" | |
212 | TRANSMIT E LECTRONICA LLY;"EDI - Transmit? " | |
213 | I '+X S Y= "@16" | |
214 | S DIPA("IB TX")=X | |
215 | K DIE("NO^ ") | |
216 | I X=$G(IBE DIKEY(1))! $$KCHK^XUS RB("IB EDI INSURANCE EDIT") S Y="@1721" | |
217 | TRANSMIT E LECTRONICA LLY////^S X=$G(IBEDI KEY(1)) | |
218 | I $$EDIKEY ^IBCNSC() | |
219 | S Y="@171" | |
220 | @1721 | |
221 | ||
222 | ||
223 | ||
224 | ||
225 | ||
226 | Modify the IBCNSC01 routine to properly display th e value of NULL for the EDI-Tr ansmit fie ld on the Insurance Company En try/Edit [ IBCN INSUR ANCE CO ED IT] option . | |
227 | Routines | |
228 | Activities | |
229 | Routine Na me | |
230 | IBCNSC01 | |
231 | Enhancemen t Category | |
232 | New | |
233 | Modify | |
234 | Delete | |
235 | No Change | |
236 | RTM | |
237 | ||
238 | Related Op tions | |
239 | None | |
240 | Related Ro utines | |
241 | Routines “ Called By” | |
242 | Routines “ Called” | |
243 | ||
244 | ||
245 | ||
246 | ||
247 | Data Dicti onary (DD) Reference s | |
248 | None | |
249 | Related Pr otocols | |
250 | None | |
251 | Related In tegration Control Re gistration s (ICRs) | |
252 | None | |
253 | Data Passi ng | |
254 | Input | |
255 | Output Re ference | |
256 | Both | |
257 | Global Re ference | |
258 | Local | |
259 | Input Attr ibute Name and Defin ition | |
260 | Name: | |
261 | Definition : | |
262 | Output Att ribute Nam e and Defi nition | |
263 | Name: | |
264 | Definition : | |
265 | Current Lo gic | |
266 | IBCNSC01 ; ALB/NLR - INSURANCE COMPANY ED IT ;6/1/05 10:06am ; ;2.0;INTEG RATED BILL ING;**52,1 37,191,184 ,232,320,3 49,371,399 ,416,432,4 94,519,547 ,592**;21- MAR-94;Bui ld 25 ;;Pe r VA Direc tive 6402, this rout ine should not be mo dified. ;P ARAM ; -- Insurance company pa rameters r egion N OF FSET,START ,IBCNS0,IB CNS03,IBCN S06,IBCNS0 8,IBCNS13, IBCNS3,IBH PD S IBCNS 0=$G(^DIC( 36,+IBCNS, 0)),IBCNS3 =$G(^(3)) S IBCNS03= $P(IBCNS0, "^",3),IBC NS06=$P(IB CNS0,"^",6 ),IBCNS08= $P(IBCNS0, "^",8) S I BCNS13=$G( ^DIC(36,+I BCNS,.13)) S START=1 ,OFFSET=2 D SET^IBCN SP(START,O FFSET+25," Billing P arameters ",IORVON,I ORVOFF) ; D SET^IBCN SP(START+1 ,OFFSET+1, "Signature Required? : "_$S(+IB CNS03:"YES ",1:"NO")) D SET^IBC NSP(START+ 2,OFFSET+1 0,"Reimbur se?: "_$E( $$EXPAND^I BTRE(36,1, $P(IBCNS0, "^",2)),1, 21)) D SET ^IBCNSP(ST ART+3,OFFS ET+3,"Mult . Bedsecti ons: "_$S( +IBCNS06:" YES",IBCNS 06=0:"NO", 1:"")) D S ET^IBCNSP( START+4,OF FSET+6,"On e Opt. Vis it: "_$S(+ IBCNS08:"Y ES",1:"NO" )) D SET^I BCNSP(STAR T+5,OFFSET +4,"Diff. Rev. Codes : "_$P(IBC NS0,"^",7) ) D SET^IB CNSP(START +6,OFFSET+ 1,"Amb. Su r. Rev. Co de: "_$P(I BCNS0,"^", 9)) D SET^ IBCNSP(STA RT+7,OFFSE T+1,"Rx Re fill Rev. Code: "_$P (IBCNS0,"^ ",15)) D S ET^IBCNSP( START+8,OF FSET+3,"Fi ling Time Frame: "_$ P(IBCNS0," ^",12)_$S( +$P(IBCNS0 ,"^",18):" ("_$$FTFN ^IBCNSU31( ,+IBCNS)_" )",1:"")) ; S OFFSET =45 D SET^ IBCNSP(STA RT+1,OFFSE T+4,"Type Of Coverag e: "_$$EXP AND^IBTRE( 36,.13,+$P (IBCNS0,U, 13))) D SE T^IBCNSP(S TART+2,OFF SET+7,"Bil ling Phone : "_$P(IBC NS13,"^",2 )) D SET^I BCNSP(STAR T+3,OFFSET +2,"Verifi cation Pho ne: "_$P(I BCNS13,"^" ,4)) D SET ^IBCNSP(ST ART+4,OFFS ET+2,"Prec ert Comp. Name: "_$P ($G(^DIC(3 6,+$P(IBCN S13,"^",9) ,0)),"^",1 )) D SET^I BCNSP(STAR T+5,OFFSET +7,"Precer t Phone: " _$$PHONE(I BCNS13)) I +IBCNS3=2 D SET^IBC NSP(START+ 6,OFFSET," Max # Test Bills/Day : "_$P(IBC NS3,U,6)) ; S START= 11,OFFSET= 2 D SET^IB CNSP(START ,OFFSET+28 ," EDI Par ameters ", IORVON,IOR VOFF) D SE T^IBCNSP(S TART+1,OFF SET+13,"Tr ansmit?: " _$S(+IBCNS 3=1:"YES-L IVE",+IBCN S3=2:"TEST ONLY",1:" NO")) D SE T^IBCNSP(S TART+2,OFF SET+1,"Ins t Payer Pr imary ID: "_$P(IBCNS 3,U,4)) ; ;WCJ;IB*2. 0*547; Lot s o Change s below to include n ew Alterna te Primary ID N IBAC ,IBACND,LO OP S IBACM AX=0 F IBA CND=15,16 D .S LOOP= 0 F S LOO P=$O(^DIC( 36,+IBCNS, IBACND,LOO P)) Q:'+LO OP D ..S IBAC(IBACN D,"CT")=$G (IBAC(IBAC ND,"CT"))+ 1 I IBAC(I BACND,"CT" )>IBACMAX S IBACMAX= IBAC(IBACN D,"CT") .. S IBAC(IBA CND,IBAC(I BACND,"CT" ))=$P($G(^ DIC(36,+IB CNS,IBACND ,LOOP,0)), U,1,2) ; S LOOP=0 F S LOOP=$O (IBAC(15,L OOP)) Q:'L OOP D .D SET^IBCNSP (START+2+( LOOP*2-1), OFFSET,"Al t-I Payer Prim ID Ty pe: "_$$GE T1^DIQ(355 .98,+$P($G (IBAC(15,L OOP)),U),. 01)) .D SE T^IBCNSP(S TART+2+(LO OP*2),OFFS ET,"Alt-In st Payer P rim ID: "_ $P($G(IBAC (15,LOOP)) ,U,2)) ; D SET^IBCNS P(START+3+ (2*IBACMAX ),OFFSET," Inst Payer Sec ID Qu al: "_$$GE T1^DIQ(36, +IBCNS,6.0 1)) D SET^ IBCNSP(STA RT+4+(2*IB ACMAX),OFF SET+5,"Ins t Payer Se c ID: "_$$ GET1^DIQ(3 6,+IBCNS,6 .02)) D SE T^IBCNSP(S TART+5+(2* IBACMAX),O FFSET,"Ins t Payer Se c ID Qual: "_$$GET1^ DIQ(36,+IB CNS,6.03)) D SET^IBC NSP(START+ 6+(2*IBACM AX),OFFSET +5,"Inst P ayer Sec I D: "_$$GET 1^DIQ(36,+ IBCNS,6.04 )) ; ;JWS; IB*2.0*592 ;Dental Pa yer ID, mo ved UMO ID and HPD d own 1 D SE T^IBCNSP(S TART+7+(2* IBACMAX),O FFSET+7,"D ental Paye r ID: "_$P (IBCNS3,U, 15)) D SET ^IBCNSP(ST ART+8+(2*I BACMAX),OF FSET+12,"B in Number: "_$P($G(^ DIC(36,+IB CNS,3)),"^ ",3)) ;IB* 2.0*547;WC J Added an d bumped H PID down D SET^IBCNS P(START+9+ (2*IBACMAX ),OFFSET+1 0,"UMO (27 8) ID: "_$ P($G(^DIC( 36,+IBCNS, 7)),U)) ;i b*2.0*519 S IBHPD=$$ HPD^IBCNHU T1(+IBCNS) D SET^IBC NSP(START+ 10+(2*IBAC MAX),OFFSE T+13,$P($$ HOD^IBCNHU T1(IBHPD), U,2)_": "_ IBHPD) ; S OFFSET=41 D SET^IBC NSP(START+ 1,OFFSET+8 ," Insuran ce Type: " _$$EXPAND^ IBTRE(36,3 .09,+$P(IB CNS3,U,9)) ) D SET^IB CNSP(START +2,OFFSET+ 1," Prof P ayer Prima ry ID: "_$ P(IBCNS3,U ,2)) ; S L OOP=0 F S LOOP=$O(I BAC(16,LOO P)) Q:'LOO P D .D SE T^IBCNSP(S TART+2+(LO OP*2-1),OF FSET+1,"Al t-P Payer Prim ID Ty pe: "_$$GE T1^DIQ(355 .98,+$P($G (IBAC(16,L OOP)),U),. 01)) .D SE T^IBCNSP(S TART+2+(LO OP*2),OFFS ET+1,"Alt- Prof Payer Prim ID: "_$P($G(IB AC(16,LOOP )),U,2)) ; D SET^IBC NSP(START+ 3+(2*IBACM AX),OFFSET ," Prof Pa yer Sec ID Qual: "_$ $GET1^DIQ( 36,+IBCNS, 6.05)) D S ET^IBCNSP( START+4+(2 *IBACMAX), OFFSET+5," Prof Paye r Sec ID: "_$$GET1^D IQ(36,+IBC NS,6.06)) D SET^IBCN SP(START+5 +(2*IBACMA X),OFFSET, " Prof Pay er Sec ID Qual: "_$$ GET1^DIQ(3 6,+IBCNS,6 .07)) D SE T^IBCNSP(S TART+6+(2* IBACMAX),O FFSET+5," Prof Payer Sec ID: " _$$GET1^DI Q(36,+IBCN S,6.08)) ; IB*2.0*432 /TAZ Added fields 6. 09 and 6.1 D SET^IBC NSP(START+ 8+(2*IBACM AX),OFFSET -3," Prnt Sec/Tert A uto Claims : "_$$GET1 ^DIQ(36,+I BCNS,6.09) ) D SET^IB CNSP(START +9+(2*IBAC MAX),OFFSE T-5," Prnt Med Sec C laims w/o MRA: "_$$G ET1^DIQ(36 ,+IBCNS,6. 1)) Q ; | |
267 | ||
268 | ||
269 | ||
270 | ||
271 | Modified L ogic (Chan ges are in bold) | |
272 | IBCNSC01 ; ALB/NLR - INSURANCE COMPANY ED IT ;6/1/05 10:06am ; ;2.0;INTEG RATED BILL ING;**52,1 37,191,184 ,232,320,3 49,371,399 ,416,432,4 94,519,547 ,592,608** ;21-MAR-94 ;Build 25 ;;Per VA D irective 6 402, this routine sh ould not b e modified . ;PARAM ; -- Insura nce compan y paramete rs region N OFFSET,S TART,IBCNS 0,IBCNS03, IBCNS06,IB CNS08,IBCN S13,IBCNS3 ,IBHPD S I BCNS0=$G(^ DIC(36,+IB CNS,0)),IB CNS3=$G(^( 3)) S IBCN S03=$P(IBC NS0,"^",3) ,IBCNS06=$ P(IBCNS0," ^",6),IBCN S08=$P(IBC NS0,"^",8) S IBCNS13 =$G(^DIC(3 6,+IBCNS,. 13)) S STA RT=1,OFFSE T=2 D SET^ IBCNSP(STA RT,OFFSET+ 25," Billi ng Paramet ers ",IORV ON,IORVOFF ) ; D SET^ IBCNSP(STA RT+1,OFFSE T+1,"Signa ture Requi red?: "_$S (+IBCNS03: "YES",1:"N O")) D SET ^IBCNSP(ST ART+2,OFFS ET+10,"Rei mburse?: " _$E($$EXPA ND^IBTRE(3 6,1,$P(IBC NS0,"^",2) ),1,21)) D SET^IBCNS P(START+3, OFFSET+3," Mult. Beds ections: " _$S(+IBCNS 06:"YES",I BCNS06=0:" NO",1:"")) D SET^IBC NSP(START+ 4,OFFSET+6 ,"One Opt. Visit: "_ $S(+IBCNS0 8:"YES",1: "NO")) D S ET^IBCNSP( START+5,OF FSET+4,"Di ff. Rev. C odes: "_$P (IBCNS0,"^ ",7)) D SE T^IBCNSP(S TART+6,OFF SET+1,"Amb . Sur. Rev . Code: "_ $P(IBCNS0, "^",9)) D SET^IBCNSP (START+7,O FFSET+1,"R x Refill R ev. Code: "_$P(IBCNS 0,"^",15)) D SET^IBC NSP(START+ 8,OFFSET+3 ,"Filing T ime Frame: "_$P(IBCN S0,"^",12) _$S(+$P(IB CNS0,"^",1 8):" ("_$$ FTFN^IBCNS U31(,+IBCN S)_")",1:" ")) ; S OF FSET=45 D SET^IBCNSP (START+1,O FFSET+4,"T ype Of Cov erage: "_$ $EXPAND^IB TRE(36,.13 ,+$P(IBCNS 0,U,13))) D SET^IBCN SP(START+2 ,OFFSET+7, "Billing P hone: "_$P (IBCNS13," ^",2)) D S ET^IBCNSP( START+3,OF FSET+2,"Ve rification Phone: "_ $P(IBCNS13 ,"^",4)) D SET^IBCNS P(START+4, OFFSET+2," Precert Co mp. Name: "_$P($G(^D IC(36,+$P( IBCNS13,"^ ",9),0))," ^",1)) D S ET^IBCNSP( START+5,OF FSET+7,"Pr ecert Phon e: "_$$PHO NE(IBCNS13 )) I +IBCN S3=2 D SET ^IBCNSP(ST ART+6,OFFS ET,"Max # Test Bills /Day: "_$P (IBCNS3,U, 6)) ; S ST ART=11,OFF SET=2 D SE T^IBCNSP(S TART,OFFSE T+28," EDI Parameter s ",IORVON ,IORVOFF) ;/IB*2*608 (vd) for US1909 cha nged the l ine below from "TEST ONLY" to "YES-TEST" ;D SET^IB CNSP(START +1,OFFSET+ 13,"Transm it?: "_$S( +IBCNS3=1: "YES-LIVE" ,+IBCNS3=2 :"TEST ONL Y",$P(IBCN S3,U,1)="" :"",1:"NO" )) D SET^I BCNSP(STAR T+1,OFFSET +13,"Trans mit?: "_$S (+IBCNS3=1 :"YES-LIVE ",+IBCNS3= 2:"YES-TES T",$P(IBCN S3,U,1)="" :"",1:"NO" )) | |
273 | D SET^IBC NSP(START+ 2,OFFSET+1 ,"Inst Pay er Primary ID: "_$P( IBCNS3,U,4 )) ; ;WCJ; IB*2.0*547 ; Lots o C hanges bel ow to incl ude new Al ternate Pr imary ID N IBAC,IBAC ND,LOOP S IBACMAX=0 F IBACND=1 5,16 D .S LOOP=0 F S LOOP=$O( ^DIC(36,+I BCNS,IBACN D,LOOP)) Q :'+LOOP D ..S IBAC( IBACND,"CT ")=$G(IBAC (IBACND,"C T"))+1 I I BAC(IBACND ,"CT")>IBA CMAX S IBA CMAX=IBAC( IBACND,"CT ") ..S IBA C(IBACND,I BAC(IBACND ,"CT"))=$P ($G(^DIC(3 6,+IBCNS,I BACND,LOOP ,0)),U,1,2 ) ; S LOOP =0 F S LO OP=$O(IBAC (15,LOOP)) Q:'LOOP D .D SET^I BCNSP(STAR T+2+(LOOP* 2-1),OFFSE T,"Alt-I P ayer Prim ID Type: " _$$GET1^DI Q(355.98,+ $P($G(IBAC (15,LOOP)) ,U),.01)) .D SET^IBC NSP(START+ 2+(LOOP*2) ,OFFSET,"A lt-Inst Pa yer Prim I D: "_$P($G (IBAC(15,L OOP)),U,2) ) ; D SET^ IBCNSP(STA RT+3+(2*IB ACMAX),OFF SET,"Inst Payer Sec ID Qual: " _$$GET1^DI Q(36,+IBCN S,6.01)) D SET^IBCNS P(START+4+ (2*IBACMAX ),OFFSET+5 ,"Inst Pay er Sec ID: "_$$GET1^ DIQ(36,+IB CNS,6.02)) D SET^IBC NSP(START+ 5+(2*IBACM AX),OFFSET ,"Inst Pay er Sec ID Qual: "_$$ GET1^DIQ(3 6,+IBCNS,6 .03)) D SE T^IBCNSP(S TART+6+(2* IBACMAX),O FFSET+5,"I nst Payer Sec ID: "_ $$GET1^DIQ (36,+IBCNS ,6.04)) ; ;JWS;IB*2. 0*592;Dent al Payer I D, moved U MO ID and HPD down 1 D SET^IBC NSP(START+ 7+(2*IBACM AX),OFFSET +7,"Dental Payer ID: "_$P(IBCN S3,U,15)) D SET^IBCN SP(START+8 +(2*IBACMA X),OFFSET+ 12,"Bin Nu mber: "_$P ($G(^DIC(3 6,+IBCNS,3 )),"^",3)) ;IB*2.0*5 47;WCJ Add ed and bum ped HPID d own D SET^ IBCNSP(STA RT+9+(2*IB ACMAX),OFF SET+10,"UM O (278) ID : "_$P($G( ^DIC(36,+I BCNS,7)),U )) ;ib*2.0 *519 S IBH PD=$$HPD^I BCNHUT1(+I BCNS) D SE T^IBCNSP(S TART+10+(2 *IBACMAX), OFFSET+13, $P($$HOD^I BCNHUT1(IB HPD),U,2)_ ": "_IBHPD ) ; S OFFS ET=41 D SE T^IBCNSP(S TART+1,OFF SET+8," In surance Ty pe: "_$$EX PAND^IBTRE (36,3.09,+ $P(IBCNS3, U,9))) D S ET^IBCNSP( START+2,OF FSET+1," P rof Payer Primary ID : "_$P(IBC NS3,U,2)) ; S LOOP=0 F S LOOP =$O(IBAC(1 6,LOOP)) Q :'LOOP D .D SET^IBC NSP(START+ 2+(LOOP*2- 1),OFFSET+ 1,"Alt-P P ayer Prim ID Type: " _$$GET1^DI Q(355.98,+ $P($G(IBAC (16,LOOP)) ,U),.01)) .D SET^IBC NSP(START+ 2+(LOOP*2) ,OFFSET+1, "Alt-Prof Payer Prim ID: "_$P( $G(IBAC(16 ,LOOP)),U, 2)) ; D SE T^IBCNSP(S TART+3+(2* IBACMAX),O FFSET," Pr of Payer S ec ID Qual : "_$$GET1 ^DIQ(36,+I BCNS,6.05) ) D SET^IB CNSP(START +4+(2*IBAC MAX),OFFSE T+5," Prof Payer Sec ID: "_$$G ET1^DIQ(36 ,+IBCNS,6. 06)) D SET ^IBCNSP(ST ART+5+(2*I BACMAX),OF FSET," Pro f Payer Se c ID Qual: "_$$GET1^ DIQ(36,+IB CNS,6.07)) D SET^IBC NSP(START+ 6+(2*IBACM AX),OFFSET +5," Prof Payer Sec ID: "_$$GE T1^DIQ(36, +IBCNS,6.0 8)) ;IB*2. 0*432/TAZ Added fiel ds 6.09 an d 6.1 D SE T^IBCNSP(S TART+8+(2* IBACMAX),O FFSET-3," Prnt Sec/T ert Auto C laims: "_$ $GET1^DIQ( 36,+IBCNS, 6.09)) D S ET^IBCNSP( START+9+(2 *IBACMAX), OFFSET-5," Prnt Med Sec Claims w/o MRA: "_$$GET1^D IQ(36,+IBC NS,6.1)) Q ; | |
274 | ||
275 | ||
276 | ||
277 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.