| [613] | 1 | IBECEA4 ;ALB/CPM - Cancel/Edit/Add... Cancel a Charge ;11-MAR-93
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**27,52,150,240**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ONE ; Cancel a single charge.
|
|---|
| 6 | D HDR^IBECEAU("C A N C E L")
|
|---|
| 7 | ;
|
|---|
| 8 | ; - perform up-front edits
|
|---|
| 9 | D CED^IBECEAU4(IBN) G:IBY<0 ONEQ
|
|---|
| 10 | I IBXA=6!(IBXA=7) D G ONEQ:$G(IBCC),REAS
|
|---|
| 11 | .I IBCANTR!($P(IBND,"^",5)=10) S IBCC=1 W !,"This transaction has already been cancelled.",!
|
|---|
| 12 | I IBCANTR!($P(IBND,"^",5)=10) W !,$S(IBH:"Please note that this cancellation action has not yet been passed to AR.",1:"This transaction has already been cancelled."),! G ONEQ:'IBH,REAS
|
|---|
| 13 | I 'IBH,IBIL="" S IBY="-1^IB024" G ONEQ
|
|---|
| 14 | ;
|
|---|
| 15 | REAS ; - ask for the cancellation reason
|
|---|
| 16 | D REAS^IBECEAU2("C") G:IBCRES<0 ONEQ
|
|---|
| 17 | ;
|
|---|
| 18 | ; - okay to proceed?
|
|---|
| 19 | D PROC^IBECEAU4("cancel") G:IBY<0 ONEQ
|
|---|
| 20 | ;
|
|---|
| 21 | ; - handle CHAMPVA/TRICARE charges
|
|---|
| 22 | I IBXA=6!(IBXA=7) D CANC^IBECEAU4(IBN,IBCRES,1) G ONEQ
|
|---|
| 23 | ;
|
|---|
| 24 | ; - handle cancellation transactions
|
|---|
| 25 | I IBCANTR D G ONEQ
|
|---|
| 26 | .I IBN=IBPARNT D UPSTAT^IBECEAU4(IBN,1) Q
|
|---|
| 27 | .I 'IBIL S IBIL=$P($G(^IB(IBPARNT,0)),"^",11) I 'IBIL W !!,"There is no bill number associated with this charge.",!,"The charge cannot be cancelled." Q
|
|---|
| 28 | .S DIE="^IB(",DA=IBN,DR=".1////"_IBCRES_";.11////"_IBIL D ^DIE,PASS K DIE,DA,DR
|
|---|
| 29 | ;
|
|---|
| 30 | ; - update 354.71 and 354.7 (cap info)
|
|---|
| 31 | I $P(IBND,"^",19) S IBAMC=$$CANCEL^IBARXMN(DFN,$P(IBND,"^",19),.IBY) G:IBY<1 ONEQ I IBAMC D FOUND^IBARXMA(.IBY,IBAMC)
|
|---|
| 32 | ;
|
|---|
| 33 | ; - handle incomplete and regular transactions
|
|---|
| 34 | D CANC^IBECEAU4(IBN,IBCRES,1) G:IBY<1 ONEQ
|
|---|
| 35 | ;
|
|---|
| 36 | ; - handle updating of clock
|
|---|
| 37 | I "^1^2^3^"'[("^"_IBXA_"^") G ONEQ
|
|---|
| 38 | I 'IBCHG G ONEQ
|
|---|
| 39 | D CLSTR^IBECEAU1(DFN,IBFR) I 'IBCLDA W !!,"Please note that there is no billing clock which would cover this charge.",!,"Be sure that this patient's billing clock is correct." G ONEQ
|
|---|
| 40 | D CLOCK^IBECEAU(-IBCHG,+$P(IBCLST,"^",9),-IBUNIT)
|
|---|
| 41 | ;
|
|---|
| 42 | ONEQ D ERR^IBECEAU4:IBY<0,PAUSE^IBECEAU
|
|---|
| 43 | K IBCHG,IBCRES,IBDESC,IBIL,IBND,IBSEQNO,IBTOTL,IBUNIT,IBATYP,IBIDX,IBCC
|
|---|
| 44 | K IBN,IBREB,IBY,IBEVDA,IBPARNT,IBH,IBCANTR,IBXA,IBSL,IBFR,IBTO,IBNOS,IBCANC,IBAMC
|
|---|
| 45 | Q
|
|---|
| 46 | ;
|
|---|
| 47 | PASS ; Pass the action to Accounts Receivable.
|
|---|
| 48 | N IBSERV
|
|---|
| 49 | W !,"Passing the cancellation action to AR... "
|
|---|
| 50 | S IBNOS=IBN D ^IBR S IBY=Y W:Y>0 "done."
|
|---|
| 51 | Q
|
|---|
