[613] | 1 | IBTRV1 ;ALB/AAS - CLAIMS TRACKING - REVIEW ACTIONS ; 14-JUL-93
|
---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | ;
|
---|
| 5 | % G EN^IBTRV
|
---|
| 6 | ;
|
---|
| 7 | DT ; -- Delete tracking entry
|
---|
| 8 | I '$D(^XUSEC("IB CLAIMS SUPERVISOR",DUZ)) D SORRY^IBTRE1 G DTQ
|
---|
| 9 | D EN^VALM2($G(XQORNOD(0)))
|
---|
| 10 | N I,J,IBXX,DIR,DIRUT
|
---|
| 11 | I $D(VALMY) D FULL^VALM1 S IBXX=0 F S IBXX=$O(VALMY(IBXX)) Q:'IBXX!$D(DIRUT) D
|
---|
| 12 | .S IBTRV=$P($G(^TMP("IBTRVDX",$J,+$O(^TMP("IBTRV",$J,"IDX",IBXX,0)))),"^",2)
|
---|
| 13 | .I $O(^IBT(356.2,"AD",IBTRV,0)) W !!,*7,"There are Insurance Reviews associated with this entry."
|
---|
| 14 | .W ! S DIR(0)="Y",DIR("B")="NO",DIR("A")="Are You Sure you want to delete entry #"_IBXX
|
---|
| 15 | .D ^DIR I Y'=1 W !,"Entry #",IBXX," not Deleted!" Q
|
---|
| 16 | .D DP1
|
---|
| 17 | .Q
|
---|
| 18 | DTQ D BLD^IBTRV
|
---|
| 19 | S VALMBCK="R" Q
|
---|
| 20 | ;
|
---|
| 21 | DP1 ; -- actual deletion
|
---|
| 22 | N DA,DIC,DIK
|
---|
| 23 | ;
|
---|
| 24 | ; -- delete reviews, communications,
|
---|
| 25 | N IBI,IBCNT
|
---|
| 26 | S (IBI,IBCNT)=0 F S IBI=$O(^IBT(356.2,"AD",IBTRV,IBI)) Q:'IBI D
|
---|
| 27 | .S DA=IBI,DIK="^IBT(356.2," D ^DIK
|
---|
| 28 | .S IBCNT=IBCNT+1
|
---|
| 29 | I IBCNT W !,"Number of Insurance Reviews Deleted: ",IBCNT
|
---|
| 30 | ;
|
---|
| 31 | ; -- delete entry in review file
|
---|
| 32 | S DA=IBTRV,DIK="^IBT(356.1," D ^DIK
|
---|
| 33 | W !,"Entry ",IBXX," Deleted"
|
---|
| 34 | Q
|
---|
| 35 | ;
|
---|
| 36 | QE ; -- Quick edit Review entry
|
---|
| 37 | D EN^VALM2($G(XQORNOD(0)))
|
---|
| 38 | N I,J,IBXX
|
---|
| 39 | I $D(VALMY) D FULL^VALM1 S IBXX=0 F S IBXX=$O(VALMY(IBXX)) Q:'IBXX D
|
---|
| 40 | .S IBTRV=$P($G(^TMP("IBTRVDX",$J,+$O(^TMP("IBTRV",$J,"IDX",IBXX,0)))),"^",2)
|
---|
| 41 | .D QE1
|
---|
| 42 | QEQ S VALMBCK="R"
|
---|
| 43 | D BLD^IBTRV
|
---|
| 44 | Q
|
---|
| 45 | ;
|
---|
| 46 | QE1 N X,Y,DA,DR,DIC,DIE,IBSPEC,IBPROV,IBUNIT,IBADT,IBSEL
|
---|
| 47 | S DIE="^IBT(356.1,",DA=IBTRV
|
---|
| 48 | S IBTRTP=$P($G(^IBE(356.11,+$P($G(^IBT(356.1,IBTRV,0)),"^",22),0)),"^",2)
|
---|
| 49 | S IBPROV="",IBSPEC="",IBATD=""
|
---|
| 50 | I 'IBTRTP Q
|
---|
| 51 | D @(IBTRTP_"^IBTRV3") ;sets up dr string for review type
|
---|
| 52 | S DR=DR_"1.15;1.17;.21////10;.21;.2;"
|
---|
| 53 | D EDIT^IBTRVD1(.DR,1)
|
---|
| 54 | Q ; -- don't always ask clinical info
|
---|
| 55 | I $$TRTP^IBTRE1(IBTRN)<3 D ;clinical info only on inpt/outpt
|
---|
| 56 | .; -- diagnosis edit
|
---|
| 57 | .D EN^IBTRE3(IBTRN) Q:$G(IBSEL)["^"
|
---|
| 58 | .;
|
---|
| 59 | .; -- procedure edit / only inpt. / outpt use add/edit
|
---|
| 60 | .I $$TRTP^IBTRE1(IBTRN)<2 D EN^IBTRE4(IBTRN) Q:$G(IBSEL)["^"
|
---|
| 61 | .;
|
---|
| 62 | .; -- provider edit
|
---|
| 63 | .D EN^IBTRE5(IBTRN)
|
---|
| 64 | Q
|
---|
| 65 | ;
|
---|
| 66 | NX(IBTMPNM) ; -- Go to next template
|
---|
| 67 | ; -- Input template name
|
---|
| 68 | N VALMY,I,J,IBXXV
|
---|
| 69 | D EN^VALM2($G(XQORNOD(0)))
|
---|
| 70 | I $D(VALMY) S IBXXV=0 F S IBXXV=$O(VALMY(IBXXV)) Q:'IBXXV D
|
---|
| 71 | .S IBTRV=$P($G(^TMP("IBTRVDX",$J,$O(^TMP("IBTRV",$J,"IDX",IBXXV,0)))),"^",2)
|
---|
| 72 | .D EN^VALM(IBTMPNM)
|
---|
| 73 | .K IBAMT,IBAPR,IBADG,IBDA,IBDGCR,IBDGCRU1,IBDV,IBETYP,IBETYPD,IBI,IBICD,IBLCNT,IBSEL,IBT,IBTEXT,IBTNOD,IBTSAV,VAUTD
|
---|
| 74 | .K IBAPEAL,IBCDFN,IBCNT,IBDEN,IBDENIAL,IBDENIAL,IBPARNT,IBPEN,IBPENAL,IBTCOD,IBTRDD,IBTRSV,IBTYPE,VAINDT,VA
|
---|
| 75 | .D KVAR^VADPT
|
---|
| 76 | .Q
|
---|
| 77 | I '$D(IBFASTXT) D BLD^IBTRV
|
---|
| 78 | S VALMBCK="R"
|
---|
| 79 | Q
|
---|
| 80 | ;
|
---|
| 81 | EDIT(IBTEMP) ; -- Edit entries
|
---|
| 82 | D EN^VALM2($G(XQORNOD(0)))
|
---|
| 83 | N I,J,IBXX
|
---|
| 84 | I $D(VALMY) D FULL^VALM1 S IBXX=0 F S IBXX=$O(VALMY(IBXX)) Q:'IBXX D
|
---|
| 85 | .S IBTRV=$P($G(^TMP("IBTRVDX",$J,+$O(^TMP("IBTRV",$J,"IDX",IBXX,0)))),"^",2)
|
---|
| 86 | .W !!,"Editing Entry #",IBXX,!
|
---|
| 87 | .D EDIT^IBTRVD1(IBTEMP,1)
|
---|
| 88 | S VALMBCK="R"
|
---|
| 89 | D BLD^IBTRV
|
---|
| 90 | Q
|
---|
| 91 | ;
|
---|
| 92 | CP ; -- change patient from within insurance reviews
|
---|
| 93 | N VALMQUIT,IBDFN,IBY,IBTRNOLD
|
---|
| 94 | D FULL^VALM1
|
---|
| 95 | S IBDFN=DFN D PAT^IBCNSM
|
---|
| 96 | I $D(VALMQUIT) S DFN=IBDFN
|
---|
| 97 | S IBTRNOLD=IBTRN K IBTRN
|
---|
| 98 | D TRAC^IBTRV
|
---|
| 99 | I '$G(IBTRN) S DFN=IBDFN,IBTRN=IBTRNOLD
|
---|
| 100 | S IBTRND=$G(^IBT(356,+IBTRN,0))
|
---|
| 101 | D HDR^IBTRV,BLD^IBTRV
|
---|
| 102 | S VALMBCK="R"
|
---|
| 103 | CPQ Q
|
---|