Produced by Araxis Merge on 2/15/2018 4:26:14 PM Eastern Standard 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 | eBilling_Bld22_IB_2_608.zip | TAS eBill SDD US14 v2.01.docx | Tue Dec 19 21:51:04 2017 UTC |
| 2 | eBilling_Bld22_IB_2_608.zip | TAS eBill SDD US14 v2.01.docx | Thu Feb 15 18:01:34 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 214 |
| 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 | TAS eBill SDD US14 | |
| 2 | System Des ign Docume nt | |
| 3 | IB*2.0*592 | |
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | ||
| 8 | Department of Vetera ns Affairs | |
| 9 | March 2017 | |
| 10 | Version 2. 01 | |
| 11 | User Story Number: U SEB-14 | |
| 12 | User Story Name: TPJ I Indicato r for Dent al Claims | |
| 13 | ||
| 14 | Resolution – Data De sign | |
| 15 | To satisfy the enhan cement req uest descr ibed by th e aforemen tioned Use r Story, t he followi ng need to be comple ted: | |
| 16 | MODIFY the ^IBJTLA1 routine to identify a Dental C laim. | |
| 17 | MODIFY the ^IBJTLB1 routine to identify a Dental C laim. | |
| 18 | CORRECT a detected b ug in TYPE ^IBJTLB1. | |
| 19 | ||
| 20 | Routines | |
| 21 | Activities | |
| 22 | Routine Na me | |
| 23 | IBJTLA1 | |
| 24 | Enhancemen t Category | |
| 25 | New | |
| 26 | Modify | |
| 27 | Delete | |
| 28 | No Change | |
| 29 | RTM | |
| 30 | ||
| 31 | Related Op tions | |
| 32 | None | |
| 33 | Related Ro utines | |
| 34 | Routines “ Called By” | |
| 35 | Routines “ Called” | |
| 36 | ||
| 37 | ||
| 38 | ||
| 39 | ||
| 40 | Data Dicti onary (DD) Reference s | |
| 41 | None | |
| 42 | Related Pr otocols | |
| 43 | None | |
| 44 | Related In tegration Control Re gistration s (ICRs) | |
| 45 | None | |
| 46 | Data Passi ng | |
| 47 | Input | |
| 48 | Output Re ference | |
| 49 | Both | |
| 50 | Global Re ference | |
| 51 | Local | |
| 52 | Input Attr ibute Name and Defin ition | |
| 53 | Name: | |
| 54 | Definition : | |
| 55 | Output Att ribute Nam e and Defi nition | |
| 56 | Name: | |
| 57 | Definition : | |
| 58 | Current Lo gic | |
| 59 | IBJTLA1 ;A LB/ARH - T PI ACTIVE BILLS LIST BUILD ;2/ 14/95 ;;2. 0;INTEGRAT ED BILLING ;**39,80,6 1,51,153,1 37,183,276 ,451,516** ;21-MAR-94 ;Build 123 ;;Per VA Directive 6402, this routine s hould not be modifie d. ;BLDA ; build act ive list f or third p arty joint inquiry a ctive list N IBIFN,I BCNT S VAL MCNT=0,IBC NT=0 S IBI FN=0 F S IBIFN=$O(^ DGCR(399," C",DFN,IBI FN)) Q:'IB IFN I $$A CTIVE^IBJT U4(IBIFN) W "." D SC RN ; I VAL MCNT=0 D S ET(" ",0), SET("No Ac tive Bills for this Patient",0 ) ; Q ;SCR N ; add bi ll to scre en list (I BIFN,DFN m ust be def ined) N X, IBY,IBD0,I BDU,IBDM,T YPE S X="" S IBCNT=I BCNT+1,IBD 0=$G(^DGCR (399,+IBIF N,0)),IBDU =$G(^DGCR( 399,+IBIFN ,"U")),IBD M=$G(^DGCR (399,+IBIF N,"M")) S IBY=IBCNT, X=$$SETFLD ^VALM1(IBY ,X,"NUMBER ") ; IB*2. 0*451 - ge t EEOB ind icator for bill # wh en applica ble S IBPF LAG=$$EEOB (+IBIFN) S IBY=$S($G (IBPFLAG)' ="":"%",1: " ")_$P(IB D0,U,1)_$$ ECME^IBTRE (IBIFN),X= $$SETFLD^V ALM1(IBY,X ,"BILL") ; add EEOB i ndicator ' %' to bill number wh en applica ble S IBY= $S($$REF^I BJTU31(+IB IFN):"r",1 :""),X=$$S ETFLD^VALM 1(IBY,X,"R EFER") S I BY=$S($$IB ^IBRUTL(+I BIFN,0):"* ",1:""),X= $$SETFLD^V ALM1(IBY,X ,"HD") S I BY=$$DATE( $P(IBDU,U, 1)),X=$$SE TFLD^VALM1 (IBY,X,"ST FROM") S I BY=$$DATE( $P(IBDU,U, 2)),X=$$SE TFLD^VALM1 (IBY,X,"ST TO") ; S I BY=$P($$LS T^DGMTU(DF N,$P(IBDU, U)),U,4),I BY=$S(IBY= "C":"YES", IBY="P":"P EN",IBY="R ":"REQ",IB Y="G":"GMT ",1:"NO"), X=$$SETFLD ^VALM1(IBY ,X,"MT?") ;S IBY=$$T YPE($P(IBD 0,U,5))_$$ TF($P(IBD0 ,U,6))_$S( $P(IBD0,U, 27)=1:"I", $P(IBD0,U, 27)=2:"P", 1:""),X=$$ SETFLD^VAL M1(IBY,X," TYPE") ; 5 16 - baa S TYPE=$$TY PE($P(IBD0 ,U,5)) I $ E(TYPE,2)= "P" S TYPE =$E(TYPE) ; 516 - ba a S IBY=TY PE_"/"_$S( $P(IBD0,U, 27)=1:"I", $P(IBD0,U, 27)=2:"P", 1:""),X=$$ SETFLD^VAL M1(IBY,X," TYPE") ; 5 16 - baa S IBY=" "_$ P($$ARSTAT A^IBJTU4(I BIFN),U,2) ,X=$$SETFL D^VALM1(IB Y,X,"ARST" ) ; S IBY= $P($G(^DGC R(399.3,+$ P(IBD0,U,7 ),0)),U,4) ,X=$$SETFL D^VALM1(IB Y,X,"RATE" ) S IBY=$S ($$MINS^IB JTU31(+IBI FN):"+",1: ""),X=$$SE TFLD^VALM1 (IBY,X,"CB ") S IBY=+ $G(^DGCR(3 99,+IBIFN, "MP")) I ' IBY,$$MCRW NR^IBEFUNC ($$CURR^IB CEF2(IBIFN )) S IBY=+ $$CURR^IBC EF2(IBIFN) S IBY=$P( $G(^DIC(36 ,+IBY,0)), U,1) S X=$ $SETFLD^VA LM1(IBY,X, "INSUR") S IBY=$$BIL L^RCJIBFN2 (IBIFN) S X=$$SETFLD ^VALM1($J( +$P(IBY,U, 1),8,2),X, "OAMT") S X=$$SETFLD ^VALM1($J( +$P(IBY,U, 3),8,2),X, "CAMT") D SET(X,IBCN T) Q ;DATE (X) ; date in extern al format N Y S Y="" I X?7N.E S Y=$E(X,4 ,5)_"/"_$E (X,6,7)_"/ "_$E(X,2,3 ) Q Y ;TYP E(X) ; ret urn abbrev iated form of Bill C lassificat ion (399,. 05) Q $S(X =1:"IP",X= 2:"IH",X=3 :"OP",X=4: "OH",1:"") ;TF(X) ; return abb reviated f orm of Tim eframe of Bill (399, .06) Q $S( X=2:"-F",X =3:"-C",X= 4:"-L",X'= 1:"-O",1:" ") ;SET(X, CNT) ; set up list m anager scr een array S VALMCNT= VALMCNT+1 S ^TMP("IB JTLA",$J,V ALMCNT,0)= X Q:'CNT S ^TMP("IBJ TLA",$J,"I DX",VALMCN T,+CNT)="" S ^TMP("I BJTLAX",$J ,CNT)=VALM CNT_U_IBIF N Q ;EEOB( IBIFN) ; g et payment informati on ; IB*2. 0*451 - fi nd an EOB payment fo r a bill ; input is the IEN fo r the bill # in file #399 and must be va lid, ; out put is the EEOB indi cator '%' if a payme nt is foun d in file #361.1, ; exclude EO B type MRA (Medicare ). N IBPFL AG,IBVAL,Z I $G(IBIF N)=0 Q "" I '$O(^IBM (361.1,"B" ,IBIFN,0)) Q "" ; n o entry he re I $P($G (^DGCR(399 ,IBIFN,0)) ,"^",13)=1 Q "" ;av oid 'ENTER ED/NOT REV IEWED' sta tus ; hand le both si ngle and m ultiple bi ll entries in file # 361.1 S Z= 0 F S Z=$ O(^IBM(361 .1,"B",IBI FN,Z)) Q:' Z D Q:$G (IBPFLAG)= "%" . S IB VAL=$G(^IB M(361.1,Z, 0)) . S IB PFLAG=$S($ P(IBVAL,"^ ",4)=1:"", $P(IBVAL," ^",4)=0:"% ",1:"") Q IBPFLAG ; EOB indic ator for e ither 1st or 3rd pay ment on bi ll | |
| 60 | Modified L ogic (Chan ges are in bold) | |
| 61 | IBJTLA1 ;A LB/ARH - T PI ACTIVE BILLS LIST BUILD ;2/ 14/95 ;;2. 0;INTEGRAT ED BILLING ;**39,80,6 1,51,153,1 37,183,276 ,451,516** ;21-MAR-94 ;Build 123 ;;Per VA Directive 6402, this routine s hould not be modifie d. ;BLDA ; build act ive list f or third p arty joint inquiry a ctive list N IBIFN,I BCNT S VAL MCNT=0,IBC NT=0 S IBI FN=0 F S IBIFN=$O(^ DGCR(399," C",DFN,IBI FN)) Q:'IB IFN I $$A CTIVE^IBJT U4(IBIFN) W "." D SC RN ; I VAL MCNT=0 D S ET(" ",0), SET("No Ac tive Bills for this Patient",0 ) ; Q ;SCR N ; add bi ll to scre en list (I BIFN,DFN m ust be def ined) N X, IBY,IBD0,I BDU,IBDM,T YPE S X="" S IBCNT=I BCNT+1,IBD 0=$G(^DGCR (399,+IBIF N,0)),IBDU =$G(^DGCR( 399,+IBIFN ,"U")),IBD M=$G(^DGCR (399,+IBIF N,"M")) S IBY=IBCNT, X=$$SETFLD ^VALM1(IBY ,X,"NUMBER ") ; IB*2. 0*451 - ge t EEOB ind icator for bill # wh en applica ble S IBPF LAG=$$EEOB (+IBIFN) S IBY=$S($G (IBPFLAG)' ="":"%",1: " ")_$P(IB D0,U,1)_$$ ECME^IBTRE (IBIFN),X= $$SETFLD^V ALM1(IBY,X ,"BILL") ; add EEOB i ndicator ' %' to bill number wh en applica ble S IBY= $S($$REF^I BJTU31(+IB IFN):"r",1 :""),X=$$S ETFLD^VALM 1(IBY,X,"R EFER") S I BY=$S($$IB ^IBRUTL(+I BIFN,0):"* ",1:""),X= $$SETFLD^V ALM1(IBY,X ,"HD") S I BY=$$DATE( $P(IBDU,U, 1)),X=$$SE TFLD^VALM1 (IBY,X,"ST FROM") S I BY=$$DATE( $P(IBDU,U, 2)),X=$$SE TFLD^VALM1 (IBY,X,"ST TO") ; S I BY=$P($$LS T^DGMTU(DF N,$P(IBDU, U)),U,4),I BY=$S(IBY= "C":"YES", IBY="P":"P EN",IBY="R ":"REQ",IB Y="G":"GMT ",1:"NO"), X=$$SETFLD ^VALM1(IBY ,X,"MT?") ;S IBY=$$T YPE($P(IBD 0,U,5))_$$ TF($P(IBD0 ,U,6))_$S( $P(IBD0,U, 27)=1:"I", $P(IBD0,U, 27)=2:"P", 1:""),X=$$ SETFLD^VAL M1(IBY,X," TYPE") ; 5 16 - baa S TYPE=$$TY PE($P(IBD0 ,U,5)) I $ E(TYPE,2)= "P" S TYPE =$E(TYPE) ; 516 - ba a | |
| 62 | I $$FT^IB CEU(IBIFN) =7 S TYPE= ”D” ; If this is a Dental Cla im, set TY PE to “D” S IBY=TYPE _"/"_$S($P (IBD0,U,27 )=1:"I",$P (IBD0,U,27 )=2:"P",1: ""),X=$$SE TFLD^VALM1 (IBY,X,"TY PE") ; 516 - baa S I BY=" "_$P( $$ARSTATA^ IBJTU4(IBI FN),U,2),X =$$SETFLD^ VALM1(IBY, X,"ARST") ; S IBY=$P ($G(^DGCR( 399.3,+$P( IBD0,U,7), 0)),U,4),X =$$SETFLD^ VALM1(IBY, X,"RATE") S IBY=$S($ $MINS^IBJT U31(+IBIFN ):"+",1:"" ),X=$$SETF LD^VALM1(I BY,X,"CB") S IBY=+$G (^DGCR(399 ,+IBIFN,"M P")) I 'IB Y,$$MCRWNR ^IBEFUNC($ $CURR^IBCE F2(IBIFN)) S IBY=+$$ CURR^IBCEF 2(IBIFN) S IBY=$P($G (^DIC(36,+ IBY,0)),U, 1) S X=$$S ETFLD^VALM 1(IBY,X,"I NSUR") S I BY=$$BILL^ RCJIBFN2(I BIFN) S X= $$SETFLD^V ALM1($J(+$ P(IBY,U,1) ,8,2),X,"O AMT") S X= $$SETFLD^V ALM1($J(+$ P(IBY,U,3) ,8,2),X,"C AMT") D SE T(X,IBCNT) Q ;DATE(X ) ; date i n external format N Y S Y="" I X?7N.E S Y=$E(X,4,5 )_"/"_$E(X ,6,7)_"/"_ $E(X,2,3) Q Y ;TYPE( X) ; retur n abbrevia ted form o f Bill Cla ssificatio n (399,.05 ) Q $S(X=1 :"IP",X=2: "IH",X=3:" OP",X=4:"O H",1:"") ; TF(X) ; re turn abbre viated for m of Timef rame of Bi ll (399,.0 6) Q $S(X= 2:"-F",X=3 :"-C",X=4: "-L",X'=1: "-O",1:"") ;SET(X,CN T) ; set u p list man ager scree n array S VALMCNT=VA LMCNT+1 S ^TMP("IBJT LA",$J,VAL MCNT,0)=X Q:'CNT S ^ TMP("IBJTL A",$J,"IDX ",VALMCNT, +CNT)="" S ^TMP("IBJ TLAX",$J,C NT)=VALMCN T_U_IBIFN Q ;EEOB(IB IFN) ; get payment i nformation ; IB*2.0* 451 - find an EOB pa yment for a bill ; i nput is th e IEN for the bill # in file # 399 and mu st be vali d, ; outpu t is the E EOB indica tor '%' if a payment is found in file #3 61.1, ; ex clude EOB type MRA ( Medicare). N IBPFLAG ,IBVAL,Z I $G(IBIFN) =0 Q "" I '$O(^IBM(3 61.1,"B",I BIFN,0)) Q "" ; no entry here I $P($G(^ DGCR(399,I BIFN,0))," ^",13)=1 Q "" ;avoi d 'ENTERED /NOT REVIE WED' statu s ; handle both sing le and mul tiple bill entries i n file #36 1.1 S Z=0 F S Z=$O( ^IBM(361.1 ,"B",IBIFN ,Z)) Q:'Z D Q:$G(I BPFLAG)="% " . S IBVA L=$G(^IBM( 361.1,Z,0) ) . S IBPF LAG=$S($P( IBVAL,"^", 4)=1:"",$P (IBVAL,"^" ,4)=0:"%", 1:"") Q IB PFLAG ; E OB indicat or for eit her 1st or 3rd payme nt on bill | |
| 63 | ||
| 64 | Routines | |
| 65 | Activities | |
| 66 | Routine Na me | |
| 67 | IBJTLB1 | |
| 68 | Enhancemen t Category | |
| 69 | New | |
| 70 | Modify | |
| 71 | Delete | |
| 72 | No Change | |
| 73 | RTM | |
| 74 | ||
| 75 | Related Op tions | |
| 76 | None | |
| 77 | Related Ro utines | |
| 78 | Routines “ Called By” | |
| 79 | Routines “ Called” | |
| 80 | ||
| 81 | ||
| 82 | ||
| 83 | ||
| 84 | Data Dicti onary (DD) Reference s | |
| 85 | None | |
| 86 | Related Pr otocols | |
| 87 | None | |
| 88 | Related In tegration Control Re gistration s (ICRs) | |
| 89 | None | |
| 90 | Data Passi ng | |
| 91 | Input | |
| 92 | Output Re ference | |
| 93 | Both | |
| 94 | Global Re ference | |
| 95 | Local | |
| 96 | Input Attr ibute Name and Defin ition | |
| 97 | Name: | |
| 98 | Definition : | |
| 99 | Output Att ribute Nam e and Defi nition | |
| 100 | Name: | |
| 101 | Definition : | |
| 102 | Current Lo gic | |
| 103 | IBJTLB1 ;A LB/ARH - T PI INACTIV E LIST BUI LD ;2/14/9 5 ;;2.0;IN TEGRATED B ILLING;**3 9,80,61,13 7,276,451, 516**;21-M AR-94;Buil d 123 ;;Pe r VA Direc tive 6402, this rout ine should not be mo dified. ;B LDA ; buil d active l ist for th ird party joint inqu iry active list, DFN must be d efined ; f irst searc h starts a t dt and w orks backw ards for 6 months of bills or IBMAXCNT b ills, whic hever is g reater ; a ll bills f or a singl e day are included i n the same search so even IBMA XCNT may b e exceeded ; if IBEN D is defin ed on entr y it is us ed as the end dt of the search , otherwis e DT is us ed ; IBBEG is left d efined on exit, if i t has a va lue then i t is used by the Cha nge Dates action to define the next ; en d date of the search , this res ults in ea ch CD acti on default working b ackwards t hrough the date rang e until ; no bills a re found a nd IBBEG i s null the n search r estarts at DT, IBEND is define d so can t ell if ran ge changed N IBIFN,I BCNT,IBBDT ,IBEDT,IBF IRST,IBLAS T,IBDT1,IB DT2,IBMAXC NT K IBHMS G S IBEDT= $S(+$G(IBE ND):IBEND, 1:DT),IBBD T=$$FMADD^ XLFDT(IBED T,-180),IB MAXCNT=52 ; S (VALMC NT,IBCNT)= 0,IBDT1=$S (IBEDT'="" :-(IBEDT+. 01),1:""), IBDT2=-IBB DT S IBFIR ST=IBBDT,I BLAST=-$O( ^DGCR(399, "APDS",DFN ,"")) ; F S IBDT1=$ O(^DGCR(39 9,"APDS",D FN,IBDT1)) Q:'IBDT1! (IBDT1>IBD T2&(IBCNT' <IBMAXCNT) ) S IBFIRS T=-IBDT1 D . S IBIFN =0 F S IB IFN=$O(^DG CR(399,"AP DS",DFN,IB DT1,IBIFN) ) Q:'IBIFN I '$$ACT IVE^IBJTU4 (IBIFN) D SCRN W "." ; S IBBEG =$S('IBDT1 :"",IBBDT> IBFIRST:IB FIRST,1:IB BDT),IBBDT =$S(+IBBEG :$$DATE(IB BEG),1:"BE GIN") S IB END=$S(IBE DT=""!(IBL AST'>IBEDT ):"",1:IBE DT),IBEDT= $S(+IBEND: $$DATE(IBE ND),1:"END ") ; I 'IB BEG,'IBEND S IBHMSG= "** All In active Bil ls **" I $ G(IBHMSG)= "" S IBHMS G=IBBDT_" - "_IBEDT S IBHMSG=I BHMSG_" (" _VALMCNT_" )" ; I VAL MCNT=0 D S ET(" ",0), SET("No In active Bil ls for thi s Patient" ,0) ; Q ;S CRN ; add bill to sc reen list (IBIFN,DFN must be d efined) N X,IBY,IBD0 ,IBDU,IBDM ,TYPE S X= "" S IBCNT =IBCNT+1,I BD0=$G(^DG CR(399,+IB IFN,0)),IB DU=$G(^DGC R(399,+IBI FN,"U")),I BDM=$G(^DG CR(399,+IB IFN,"M")) S IBY=IBCN T,X=$$SETF LD^VALM1(I BY,X,"NUMB ER") ; IB* 2.0*451 - get EEOB i ndicator f or bill # when appli cable S IB PFLAG=$$EE OB^IBJTLA1 (+IBIFN) S IBY=$P(IB D0,U,1)_$$ ECME^IBTRE (IBIFN),X= $$SETFLD^V ALM1(IBY,X ,"BILL") S IBY=$S($G (IBPFLAG)' ="":"%",1: " ")_IBY,X =$$SETFLD^ VALM1(IBY, X,"BILL") S IBY=$S($ $REF^IBJTU 31(+IBIFN) :"r",1:"") ,X=$$SETFL D^VALM1(IB Y,X,"REFER ") S IBY=$ S($$IB^IBR UTL(+IBIFN ,0):"*",1: ""),X=$$SE TFLD^VALM1 (IBY,X,"HD ") S IBY=$ $DATE($P(I BDU,U,1)), X=$$SETFLD ^VALM1(IBY ,X,"STFROM ") S IBY=$ $DATE($P(I BDU,U,2)), X=$$SETFLD ^VALM1(IBY ,X,"STTO") ; ;S IBY= $$TYPE($P( IBD0,U,5)) _$$TF($P(I BD0,U,6)), X=$$SETFLD ^VALM1(IBY ,X,"TYPE") S TYPE=$$ TYPE($P(IB D0,U,5)) I $E(TYPE,2 )="P" S TY PE=$E(TYPE ) ; 516 - baa S IBY= TYPE_"/"_$ S($P(IBD0, U,27)=1:"I ",$P(IBD0, U,27)=2:"P ",1:""),X= $$SETFLD^V ALM1(IBY,X ,"TYPE") ; 516 - baa S IBY=" " _$P($$ARST ATA^IBJTU4 (IBIFN),U, 2),X=$$SET FLD^VALM1( IBY,X,"ARS T") ; S IB Y=$P($G(^D GCR(399.3, +$P(IBD0,U ,7),0)),U, 4),X=$$SET FLD^VALM1( IBY,X,"RAT E") S IBY= $S($$MINS^ IBJTU31(IB IFN):"+",1 :""),X=$$S ETFLD^VALM 1(IBY,X,"C B") S IBY= +$G(^DGCR( 399,+IBIFN ,"MP")) I 'IBY,$$MCR WNR^IBEFUN C(+$$CURR^ IBCEF2(IBI FN)) S IBY =+$$CURR^I BCEF2(IBIF N) S IBY=$ P($G(^DIC( 36,+IBY,0) ),U,1),X=$ $SETFLD^VA LM1(IBY,X, "INSUR") S IBY=$$BIL L^RCJIBFN2 (IBIFN) S X=$$SETFLD ^VALM1($J( +$P(IBY,U, 1),8,2),X, "OAMT") S X=$$SETFLD ^VALM1($J( +$P(IBY,U, 3),8,2),X, "CAMT") D SET(X,IBCN T) Q ;DATE (X) ; date in extern al format Q $E(X,4,5 )_"/"_$E(X ,6,7)_"/"_ $E(X,2,3) ;TYPE(X) ; return ab breviated form of Bi ll Classif ication (3 99,.05) ; modified f or 516 - b aa ;Q $S(X =1:"IP",X= 2:"IH",X=3 :"OP",X=4: "OH",1:"") Q $S(X=1: "I",X=2:"I H",X=3:"O" ,X=4:"OH", 1:"") ;TF( X) ; retur n abbrevia ted form o f Timefram e of Bill (399,.06) Q $S(X=2:" -F",X=3:"- C",X=4:"-L ",X'=1:"-O ",1:"") ;S ET(X,CNT) ; set up l ist manage r screen a rray S VAL MCNT=VALMC NT+1 S ^TM P("IBJTLB" ,$J,VALMCN T,0)=X Q:' CNT S ^TMP ("IBJTLB", $J,"IDX",V ALMCNT,+CN T)="" S ^T MP("IBJTLB X",$J,CNT) =VALMCNT_U _IBIFN Q | |
| 104 | Modified L ogic (Chan ges are in bold) | |
| 105 | IBJTLB1 ;A LB/ARH - T PI INACTIV E LIST BUI LD ;2/14/9 5 ;;2.0;IN TEGRATED B ILLING;**3 9,80,61,13 7,276,451, 516**;21-M AR-94;Buil d 123 ;;Pe r VA Direc tive 6402, this rout ine should not be mo dified. ;B LDA ; buil d active l ist for th ird party joint inqu iry active list, DFN must be d efined ; f irst searc h starts a t dt and w orks backw ards for 6 months of bills or IBMAXCNT b ills, whic hever is g reater ; a ll bills f or a singl e day are included i n the same search so even IBMA XCNT may b e exceeded ; if IBEN D is defin ed on entr y it is us ed as the end dt of the search , otherwis e DT is us ed ; IBBEG is left d efined on exit, if i t has a va lue then i t is used by the Cha nge Dates action to define the next ; en d date of the search , this res ults in ea ch CD acti on default working b ackwards t hrough the date rang e until ; no bills a re found a nd IBBEG i s null the n search r estarts at DT, IBEND is define d so can t ell if ran ge changed N IBIFN,I BCNT,IBBDT ,IBEDT,IBF IRST,IBLAS T,IBDT1,IB DT2,IBMAXC NT K IBHMS G S IBEDT= $S(+$G(IBE ND):IBEND, 1:DT),IBBD T=$$FMADD^ XLFDT(IBED T,-180),IB MAXCNT=52 ; S (VALMC NT,IBCNT)= 0,IBDT1=$S (IBEDT'="" :-(IBEDT+. 01),1:""), IBDT2=-IBB DT S IBFIR ST=IBBDT,I BLAST=-$O( ^DGCR(399, "APDS",DFN ,"")) ; F S IBDT1=$ O(^DGCR(39 9,"APDS",D FN,IBDT1)) Q:'IBDT1! (IBDT1>IBD T2&(IBCNT' <IBMAXCNT) ) S IBFIRS T=-IBDT1 D . S IBIFN =0 F S IB IFN=$O(^DG CR(399,"AP DS",DFN,IB DT1,IBIFN) ) Q:'IBIFN I '$$ACT IVE^IBJTU4 (IBIFN) D SCRN W "." ; S IBBEG =$S('IBDT1 :"",IBBDT> IBFIRST:IB FIRST,1:IB BDT),IBBDT =$S(+IBBEG :$$DATE(IB BEG),1:"BE GIN") S IB END=$S(IBE DT=""!(IBL AST'>IBEDT ):"",1:IBE DT),IBEDT= $S(+IBEND: $$DATE(IBE ND),1:"END ") ; I 'IB BEG,'IBEND S IBHMSG= "** All In active Bil ls **" I $ G(IBHMSG)= "" S IBHMS G=IBBDT_" - "_IBEDT S IBHMSG=I BHMSG_" (" _VALMCNT_" )" ; I VAL MCNT=0 D S ET(" ",0), SET("No In active Bil ls for thi s Patient" ,0) ; Q ;S CRN ; add bill to sc reen list (IBIFN,DFN must be d efined) N X,IBY,IBD0 ,IBDU,IBDM ,TYPE S X= "" S IBCNT =IBCNT+1,I BD0=$G(^DG CR(399,+IB IFN,0)),IB DU=$G(^DGC R(399,+IBI FN,"U")),I BDM=$G(^DG CR(399,+IB IFN,"M")) S IBY=IBCN T,X=$$SETF LD^VALM1(I BY,X,"NUMB ER") ; IB* 2.0*451 - get EEOB i ndicator f or bill # when appli cable S IB PFLAG=$$EE OB^IBJTLA1 (+IBIFN) S IBY=$P(IB D0,U,1)_$$ ECME^IBTRE (IBIFN),X= $$SETFLD^V ALM1(IBY,X ,"BILL") S IBY=$S($G (IBPFLAG)' ="":"%",1: " ")_IBY,X =$$SETFLD^ VALM1(IBY, X,"BILL") S IBY=$S($ $REF^IBJTU 31(+IBIFN) :"r",1:"") ,X=$$SETFL D^VALM1(IB Y,X,"REFER ") S IBY=$ S($$IB^IBR UTL(+IBIFN ,0):"*",1: ""),X=$$SE TFLD^VALM1 (IBY,X,"HD ") S IBY=$ $DATE($P(I BDU,U,1)), X=$$SETFLD ^VALM1(IBY ,X,"STFROM ") S IBY=$ $DATE($P(I BDU,U,2)), X=$$SETFLD ^VALM1(IBY ,X,"STTO") ; ;S IBY= $$TYPE($P( IBD0,U,5)) _$$TF($P(I BD0,U,6)), X=$$SETFLD ^VALM1(IBY ,X,"TYPE") S TYPE=$$T YPE($P(IBD 0,U,5)) I $E(TYPE,2) ="P" S TYP E=$E(TYPE) ; 516 - b aa | |
| 106 | I $$FT^IB CEU(IBIFN) =7 S TYPE= ”D” ; If this is a Dental Cla im, set TY PE to “D” S IBY=TYPE _"/"_$S($P (IBD0,U,27 )=1:"I",$P (IBD0,U,27 )=2:"P",1: ""),X=$$SE TFLD^VALM1 (IBY,X,"TY PE") ; 516 - baa S I BY=" "_$P( $$ARSTATA^ IBJTU4(IBI FN),U,2),X =$$SETFLD^ VALM1(IBY, X,"ARST") ; S IBY=$P ($G(^DGCR( 399.3,+$P( IBD0,U,7), 0)),U,4),X =$$SETFLD^ VALM1(IBY, X,"RATE") S IBY=$S($ $MINS^IBJT U31(IBIFN) :"+",1:"") ,X=$$SETFL D^VALM1(IB Y,X,"CB") S IBY=+$G( ^DGCR(399, +IBIFN,"MP ")) I 'IBY ,$$MCRWNR^ IBEFUNC(+$ $CURR^IBCE F2(IBIFN)) S IBY=+$$ CURR^IBCEF 2(IBIFN) S IBY=$P($G (^DIC(36,+ IBY,0)),U, 1),X=$$SET FLD^VALM1( IBY,X,"INS UR") S IBY =$$BILL^RC JIBFN2(IBI FN) S X=$$ SETFLD^VAL M1($J(+$P( IBY,U,1),8 ,2),X,"OAM T") S X=$$ SETFLD^VAL M1($J(+$P( IBY,U,3),8 ,2),X,"CAM T") D SET( X,IBCNT) Q ;DATE(X) ; date in external f ormat Q $E (X,4,5)_"/ "_$E(X,6,7 )_"/"_$E(X ,2,3) ;TYP E(X) ; ret urn abbrev iated form of Bill C lassificat ion (399,. 05) ; modi fied for 5 16 - baa Q $S(X=1:"I P",X=2:"IH ",X=3:"OP" ,X=4:"OH", 1:"") ; vd – IB*2.O* ??? correc t a detect ed bug and to ;Q $S( X=1:"I",X= 2:"IH",X=3 :"O",X=4:" OH",1:"") ; make this code consisten t with TYP E^IBJTLA1. ;TF(X) ; return abb reviated f orm of Tim eframe of Bill (399, .06) Q $S( X=2:"-F",X =3:"-C",X= 4:"-L",X'= 1:"-O",1:" ") ;SET(X, CNT) ; set up list m anager scr een array S VALMCNT= VALMCNT+1 S ^TMP("IB JTLB",$J,V ALMCNT,0)= X Q:'CNT S ^TMP("IBJ TLB",$J,"I DX",VALMCN T,+CNT)="" S ^TMP("I BJTLBX",$J ,CNT)=VALM CNT_U_IBIF N Q | |
| 107 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.