Produced by Araxis Merge on 9/19/2018 12:35:44 PM 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 | ePharmacy_Bundle 12.zip | TAS+ePhm+SDD+US2823+v1.0.docx | Wed Sep 12 15:16:00 2018 UTC |
| 2 | ePharmacy_Bundle 12.zip | TAS+ePhm+SDD+US2823+v1.0.docx | Wed Sep 19 14:59:29 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 88 |
| Changed | 0 | 0 |
| 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 US2823 | |
| 2 | System Des ign Docume nt | |
| 3 | ||
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | March 2018 | |
| 10 | Version 1. 00 | |
| 11 | ||
| 12 | User Story Name: Di splay Phar macy NPI i n TPJI for Paper Pha rmacy Clai ms | |
| 13 | Rally ID: US2823 | |
| 14 | Epic Taxon omy: Updat e | |
| 15 | Design – S ummary | |
| 16 | In option Third Part y Joint In quiry [IBJ THIRD PAR TY JOINT I NQUIRY], d isplay the NPI for b oth paper and electr onic pharm acy claims . Currentl y it only displays f or electro nic pharma cy claims. | |
| 17 | ||
| 18 | List of Co mponents: | |
| 19 | Routine: I BJTCA1 | |
| 20 | ||
| 21 | Design – D etail | |
| 22 | ||
| 23 | The existi ng logic, to gather the NPI nu mber, for electronic pharmacy claims wil l not be m odified. A fter the e xisting ca ll is made , if the N PI informa tion is bl ank, addit ional logi c will be added to o btain the NPI number for paper pharmacy claims. | |
| 24 | ||
| 25 | Subroutine Name | |
| 26 | BLD^IBJTCA 1 | |
| 27 | Enhancemen t Category | |
| 28 | New | |
| 29 | Modify | |
| 30 | Delete | |
| 31 | No Change | |
| 32 | Related Me nu Options or ListMa n Actions | |
| 33 | Third Part y Joint In quiry [IBJ THIRD PAR TY JOINT I NQUIRY] | |
| 34 | Current Lo gic | |
| 35 | ||
| 36 | IBJTCA1 ;A LB/ARH - T PI CLAIMS INFO BUILD ;10/31/07 14:17 ;;2 .0;INTEGRA TED BILLIN G;**39,80, 106,137,22 3,276,363, 384,432,45 2,473,497, 521,516**; 21-MAR-94; Build 123 ;;Per VA D irective 6 402, this routine sh ould not b e modified . ;BLD ; b uild array for Third Party Joi nt Inquiry Claims In fo screen, IBIFN mus t be defin ed ; N X,I BY,IBZ,IBZ 0,IBI,IBT, IBD,IBLN,I BLR,IBD0,I BDI1,IBDM, IBDM1,IBDU ,IBDS,IBDU 2,IBID0,IB ID13,IBNC, IBTC,IBTW, IBSW,IBGRP B,IBGRPE,I BWNR,IBDTX ,IBBX19,IB PRVO,IBNAB P,IBLVL,IB CNT,IBPRVT YP,IBVL N IBXSAVE ; IB*2.0*47 3 bi S VAL MCNT=0,X=" ",IBD0=$G( ^DGCR(399, +$G(IBIFN) ,0)) I IBD 0="" S VAL MQUIT="" G BLDQ F IB I="M","M1" ,"U","S"," U2","TX" S @("IBD"_I BI)=$G(^DG CR(399,+IB IFN,IBI)) S IBDI1=$P (IBD0,U,21 ),IBDI1=$S (IBDI1="S" :2,IBDI1=" T":3,1:1) S IBDI1=$$ POLICY^IBC EF(IBIFN,, IBDI1) S I BID0=$G(^D IC(36,+IBD I1,0)),IBI D13=$G(^DI C(36,+IBDI 1,.13)) ; S (IBLN,VA LMCNT)=1 ; ; MRD;IB* 2.0*516 - Try to mak e the foll owing more readable; also ; ad ded IBTC(7 ), IBTW(7) and IBSW( 7). ;IB*2. 0*432/TAZ - Added IB TW(6) and IBSW(6) ;S (IBNC(1), IBTC(1),IB TC(4),IBTC (6))=2,IBT C(5)=78,(I BNC(2),IBT C(2))=42,I BNC(3)=35, IBTW(1)=15 ,IBTW(2)=1 6,IBTW(4)= 12,IBTW(5) =1,IBTW(6) =20,IBSW(1 )=23,IBSW( 2)=21,IBSW (4)=60,IBS W(5)=1,IBS W(6)=49 ; S IBNC(1)= 2,IBTC(1)= 2,IBTW(1)= 15,IBSW(1) =23 S IBNC (2)=42,IBT C(2)=42,IB TW(2)=16,I BSW(2)=21 S IBNC(3)= 35 S IBTC( 4)=2,IBTW( 4)=12,IBSW (4)=60 S I BTC(5)=78, IBTW(5)=1, IBSW(5)=1 S IBTC(6)= 2,IBTW(6)= 20,IBSW(6) =49 S IBTC (7)=2,IBTW (7)=20,IBS W(7)=58 ; S IBLR=1 ; S IBT="In surance De mographics " S IBLN=$ $SETN(IBT, IBLN,IBLR, 1) S IBWNR =$$WNRBILL ^IBEFUNC(I BIFN) S IB NABP=$$NAB P^IBNCPDPU (IBIFN) S IBT=$S(IBW NR:" *",1: " ")_"Bill Payer: ", IBD=$P(IBI D0,U,1) S IBLN=$$SET (IBT,IBD,I BLN,IBLR) S IBT="Cla im Address : " D S I BD=$P(IBDM ,U,5) S IB LN=$$SET(I BT,IBD,IBL N,IBLR) . I $P(IBID0 ,U,1)'=$P( IBDM,U,4) S IBD=$P(I BDM,U,4) S IBLN=$$SE T(IBT,IBD, IBLN,IBLR) S IBT="" I $P(IBDM, U,6)'="" S IBT="",IB D=$P(IBDM, U,6) S IBL N=$$SET(IB T,IBD,IBLN ,IBLR) I $ P(IBDM1,U, 1)'="" S I BT="",IBD= $P(IBDM1,U ,1) S IBLN =$$SET(IBT ,IBD,IBLN, IBLR) S IB T="",IBD=$ P(IBDM,U,7 ),IBD=IBD_ $S(IBD'="" :", ",1:"" )_$P($G(^D IC(5,+$P(I BDM,U,8),0 )),U,2)_" "_$P(IBDM, U,9),IBLN= $$SET(IBT, IBD,IBLN,I BLR) S IBT ="Claim Ph one: ",IBD =$P($$BADD ^IBJTU3(+I BIFN),U,2) S IBLN=$$ SET(IBT,IB D,IBLN,IBL R) S IBLN= $$SET(""," ",IBLN,5) ; | |
| 37 | … | |
| 38 | ||
| 39 | Modified L ogic (Chan ges are hi ghlighted) | |
| 40 | ||
| 41 | IBJTCA1 ;A LB/ARH - T PI CLAIMS INFO BUILD ;10/31/07 14:17 ;;2 .0;INTEGRA TED BILLIN G;**39,80, 106,137,22 3,276,363, 384,432,45 2,473,497, 521,516,61 7**;21-MAR -94;Build 123 ;;Per VA Directi ve 6402, t his routin e should n ot be modi fied. ; ;R eference t o $$NABP^B PSBUTL sup ported by IA# 4719 ; | |
| 42 | BLD ; buil d array fo r Third Pa rty Joint Inquiry Cl aims Info screen, IB IFN must b e defined ; N X,IBY, IBZ,IBZ0,I BI,IBT,IBD ,IBLN,IBLR ,IBD0,IBDI 1,IBDM,IBD M1,IBDU,IB DS,IBDU2,I BID0,IBID1 3,IBNC,IBT C,IBTW,IBS W,IBGRPB,I BGRPE,IBWN R,IBDTX,IB BX19,IBPRV O,IBNABP,I BLVL,IBCNT ,IBPRVTYP, IBVL N IBX SAVE ; IB *2.0*473 b i N BPSBIN FO,IBBPS,I BBPSRX,IBB PSFL S VAL MCNT=0,X=" ",IBD0=$G( ^DGCR(399, +$G(IBIFN) ,0)) I IBD 0="" S VAL MQUIT="" G BLDQ F IB I="M","M1" ,"U","S"," U2","TX" S @("IBD"_I BI)=$G(^DG CR(399,+IB IFN,IBI)) S IBDI1=$P (IBD0,U,21 ),IBDI1=$S (IBDI1="S" :2,IBDI1=" T":3,1:1) S IBDI1=$$ POLICY^IBC EF(IBIFN,, IBDI1) S I BID0=$G(^D IC(36,+IBD I1,0)),IBI D13=$G(^DI C(36,+IBDI 1,.13)) ; S (IBLN,VA LMCNT)=1 ; ; MRD;IB* 2.0*516 - Try to mak e the foll owing more readable; also ; ad ded IBTC(7 ), IBTW(7) and IBSW( 7). ;IB*2. 0*432/TAZ - Added IB TW(6) and IBSW(6) ;S (IBNC(1), IBTC(1),IB TC(4),IBTC (6))=2,IBT C(5)=78,(I BNC(2),IBT C(2))=42,I BNC(3)=35, IBTW(1)=15 ,IBTW(2)=1 6,IBTW(4)= 12,IBTW(5) =1,IBTW(6) =20,IBSW(1 )=23,IBSW( 2)=21,IBSW (4)=60,IBS W(5)=1,IBS W(6)=49 ; S IBNC(1)= 2,IBTC(1)= 2,IBTW(1)= 15,IBSW(1) =23 S IBNC (2)=42,IBT C(2)=42,IB TW(2)=16,I BSW(2)=21 S IBNC(3)= 35 S IBTC( 4)=2,IBTW( 4)=12,IBSW (4)=60 S I BTC(5)=78, IBTW(5)=1, IBSW(5)=1 S IBTC(6)= 2,IBTW(6)= 20,IBSW(6) =49 S IBTC (7)=2,IBTW (7)=20,IBS W(7)=58 ; S IBLR=1 ; S IBT="In surance De mographics " S IBLN=$ $SETN(IBT, IBLN,IBLR, 1) S IBWNR =$$WNRBILL ^IBEFUNC(I BIFN) S IB NABP=$$NAB P^IBNCPDPU (IBIFN) I IBNABP="" D . S IBBP S=$$BILINF ^IBNCPUT3( IBIFN,.BPS BINFO) . S IBBPSRX=$ G(BPSBINFO ("PRESCRIP TION")) . S IBBPSFL= $G(BPSBINF O("FILL NU MBER")) . S IBNABP=$ $NABP^BPSB UTL(IBBPSR X,IBBPSFL) ; IA# 4719 S IBT =$S(IBWNR: " *",1:" " )_"Bill Pa yer: ",IBD =$P(IBID0, U,1) S IBL N=$$SET(IB T,IBD,IBLN ,IBLR) S I BT="Claim Address: " D S IBD= $P(IBDM,U, 5) S IBLN= $$SET(IBT, IBD,IBLN,I BLR) . I $ P(IBID0,U, 1)'=$P(IBD M,U,4) S I BD=$P(IBDM ,U,4) S IB LN=$$SET(I BT,IBD,IBL N,IBLR) S IBT="" I $ P(IBDM,U,6 )'="" S IB T="",IBD=$ P(IBDM,U,6 ) S IBLN=$ $SET(IBT,I BD,IBLN,IB LR) I $P(I BDM1,U,1)' ="" S IBT= "",IBD=$P( IBDM1,U,1) S IBLN=$$ SET(IBT,IB D,IBLN,IBL R) S IBT=" ",IBD=$P(I BDM,U,7),I BD=IBD_$S( IBD'="":", ",1:"")_$ P($G(^DIC( 5,+$P(IBDM ,U,8),0)), U,2)_" "_$ P(IBDM,U,9 ),IBLN=$$S ET(IBT,IBD ,IBLN,IBLR ) S IBT="C laim Phone : ",IBD=$P ($$BADD^IB JTU3(+IBIF N),U,2) S IBLN=$$SET (IBT,IBD,I BLN,IBLR) S IBLN=$$S ET("","",I BLN,5) ; | |
| 43 | … | |
| 44 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.