- IBECEA2 ;ALB/CPM - Cancel/Edit/Add... Edit a Charge ; 15-MAR-93
- ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- ;
- ONE ; Edit a single charge.
- D HDR^IBECEAU("E D I T")
- ;
- ; - don't allow edit of CHAMPVA charges
- I $P($G(^IB(IBN,1)),"^",5) W !,"Sorry! You cannot edit the CHAMPVA inpatient subsistence charge.",!,"Please cancel this charge and add a new charge." G ONEQ
- ;
- ; - perform up-front edits
- I 'IBND S IBY="-1^IB021" G ONEQ
- S IBPARNT=+$P(IBND,"^",9) I '$D(^IB(IBPARNT,0)) S IBY="-1^IB027" G ONEQ
- I $$LAST^IBECEAU(IBPARNT)'=IBN W !,"You can only edit the last transaction for an original charge." G ONEQ
- S IBATYP=$G(^IBE(350.1,+$P(IBND,"^",3),0)) I IBATYP="" S IBY="-1^IB022" G ONEQ
- S IBSEQNO=$P(IBATYP,"^",5) I 'IBSEQNO S IBY="-1^IB023" G ONEQ
- I $P(IBATYP,"^",5)=2 W !,"You cannot edit cancellation transactions... please add a new charge." G ONEQ
- I $P(IBND,"^",5)=10 W !,"You cannot edit charges which have been directly cancelled.",!,"Please add a new charge." G ONEQ
- ;
- ; - see if charge has been billed or not
- S IBH="^1^2^8^9^99^"[("^"_+$P(IBND,"^",5)_"^"),IBXA=$P(IBATYP,"^",11)
- S IBIL=$P(IBND,"^",11),IBUNITP=+$P(IBND,"^",6),IBCHGP=+$P(IBND,"^",7)
- S IBATYP=+$P($G(^IBE(350.1,+$P(IBND,"^",3),0)),"^",9)
- I 'IBH D G:IBY<0 ONEQ
- .I 'IBUNITP W !,"This charge has been billed, but there are no units!" S IBY=-1 Q
- .I 'IBCHGP W !,"There is no charge amount associated with this action!" S IBY=-1 Q
- .I IBIL="" W !,"This charge has been billed, but there is no bill number!" S IBY=-1 Q
- I IBH,$P(IBND,"^",5)'=8 W !,"*** Please Note: This charge has not yet been passed to Accounts Receivable ***"
- I $P(IBND,"^",5)=8 W !?17,"*** Please Note: This charge is on hold. ***",!?9,"Editing it will cause it to be passed to Accounts Receivable."
- ;
- ; - ask user for the cancellation reason
- I 'IBH,IBXA'=4 D REAS^IBECEAU2("E") G:IBCRES<0 ONEQ
- ;
- ; - ask user for data to be edited
- D ^IBECEA21 G:IBY<0 ONEQ
- ;
- ; - okay to proceed?
- D PROC^IBECEAU4("edit") G:IBY<0 ONEQ S IBUPD=IBND
- ;
- ; - build the cancellation transaction
- D CANC^IBECEAU4(IBN,IBCRES,0) G:IBY<0 ONEQ
- ;
- ; - build the updated transaction
- D UPD^IBECEA22 G:IBY<0 ONEQ
- ;
- ; - handle updating of clock
- I "^1^2^3^"[("^"_IBXA_"^") D CLOCK^IBECEAU(IBDOLA-IBCLDOL,IBCLDAY,IBDAYA-IBCLDAY)
- ;
- ONEQ D ERR^IBECEAU4:IBY<0,PAUSE^IBECEAU
- K IBBS,IBCRES,IBDESC,IBIL,IBND,IBARTYP,IBSEQNO,IBTOTL,IBUNIT,IBATYP,IBIDX,IBN,IBY,IBPARNT,IBH,IBXA,IBNOS,IBRTED
- K IBAFY,IBCAN,IBCHG,IBCHGP,IBCLDA,IBCLDAY,IBCLDOL,IBCLDOLO,IBCLDT,IBCLST,IBDAYA,IBDAYP,IBDOLA,IBDOLP,IBDT,IBFR,IBFRP,IBI,IBJ,IBLIM,IBMED,IBTO,IBTOP,IBTRAN,IBUNIT,IBUNITP,IBUPD
- Q
- IBECEA2 ;ALB/CPM - Cancel/Edit/Add... Edit a Charge ; 15-MAR-93
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- ONE ; Edit a single charge.
- +1 DO HDR^IBECEAU("E D I T")
- +2 ;
- +3 ; - don't allow edit of CHAMPVA charges
- +4 IF $PIECE($GET(^IB(IBN,1)),"^",5)
- WRITE !,"Sorry! You cannot edit the CHAMPVA inpatient subsistence charge.",!,"Please cancel this charge and add a new charge."
- GOTO ONEQ
- +5 ;
- +6 ; - perform up-front edits
- +7 IF 'IBND
- SET IBY="-1^IB021"
- GOTO ONEQ
- +8 SET IBPARNT=+$PIECE(IBND,"^",9)
- IF '$DATA(^IB(IBPARNT,0))
- SET IBY="-1^IB027"
- GOTO ONEQ
- +9 IF $$LAST^IBECEAU(IBPARNT)'=IBN
- WRITE !,"You can only edit the last transaction for an original charge."
- GOTO ONEQ
- +10 SET IBATYP=$GET(^IBE(350.1,+$PIECE(IBND,"^",3),0))
- IF IBATYP=""
- SET IBY="-1^IB022"
- GOTO ONEQ
- +11 SET IBSEQNO=$PIECE(IBATYP,"^",5)
- IF 'IBSEQNO
- SET IBY="-1^IB023"
- GOTO ONEQ
- +12 IF $PIECE(IBATYP,"^",5)=2
- WRITE !,"You cannot edit cancellation transactions... please add a new charge."
- GOTO ONEQ
- +13 IF $PIECE(IBND,"^",5)=10
- WRITE !,"You cannot edit charges which have been directly cancelled.",!,"Please add a new charge."
- GOTO ONEQ
- +14 ;
- +15 ; - see if charge has been billed or not
- +16 SET IBH="^1^2^8^9^99^"[("^"_+$PIECE(IBND,"^",5)_"^")
- SET IBXA=$PIECE(IBATYP,"^",11)
- +17 SET IBIL=$PIECE(IBND,"^",11)
- SET IBUNITP=+$PIECE(IBND,"^",6)
- SET IBCHGP=+$PIECE(IBND,"^",7)
- +18 SET IBATYP=+$PIECE($GET(^IBE(350.1,+$PIECE(IBND,"^",3),0)),"^",9)
- +19 IF 'IBH
- Begin DoDot:1
- +20 IF 'IBUNITP
- WRITE !,"This charge has been billed, but there are no units!"
- SET IBY=-1
- QUIT
- +21 IF 'IBCHGP
- WRITE !,"There is no charge amount associated with this action!"
- SET IBY=-1
- QUIT
- +22 IF IBIL=""
- WRITE !,"This charge has been billed, but there is no bill number!"
- SET IBY=-1
- QUIT
- End DoDot:1
- IF IBY<0
- GOTO ONEQ
- +23 IF IBH
- IF $PIECE(IBND,"^",5)'=8
- WRITE !,"*** Please Note: This charge has not yet been passed to Accounts Receivable ***"
- +24 IF $PIECE(IBND,"^",5)=8
- WRITE !?17,"*** Please Note: This charge is on hold. ***",!?9,"Editing it will cause it to be passed to Accounts Receivable."
- +25 ;
- +26 ; - ask user for the cancellation reason
- +27 IF 'IBH
- IF IBXA'=4
- DO REAS^IBECEAU2("E")
- IF IBCRES<0
- GOTO ONEQ
- +28 ;
- +29 ; - ask user for data to be edited
- +30 DO ^IBECEA21
- IF IBY<0
- GOTO ONEQ
- +31 ;
- +32 ; - okay to proceed?
- +33 DO PROC^IBECEAU4("edit")
- IF IBY<0
- GOTO ONEQ
- SET IBUPD=IBND
- +34 ;
- +35 ; - build the cancellation transaction
- +36 DO CANC^IBECEAU4(IBN,IBCRES,0)
- IF IBY<0
- GOTO ONEQ
- +37 ;
- +38 ; - build the updated transaction
- +39 DO UPD^IBECEA22
- IF IBY<0
- GOTO ONEQ
- +40 ;
- +41 ; - handle updating of clock
- +42 IF "^1^2^3^"[("^"_IBXA_"^")
- DO CLOCK^IBECEAU(IBDOLA-IBCLDOL,IBCLDAY,IBDAYA-IBCLDAY)
- +43 ;
- ONEQ IF IBY<0
- DO ERR^IBECEAU4
- DO PAUSE^IBECEAU
- +1 KILL IBBS,IBCRES,IBDESC,IBIL,IBND,IBARTYP,IBSEQNO,IBTOTL,IBUNIT,IBATYP,IBIDX,IBN,IBY,IBPARNT,IBH,IBXA,IBNOS,IBRTED
- +2 KILL IBAFY,IBCAN,IBCHG,IBCHGP,IBCLDA,IBCLDAY,IBCLDOL,IBCLDOLO,IBCLDT,IBCLST,IBDAYA,IBDAYP,IBDOLA,IBDOLP,IBDT,IBFR,IBFRP,IBI,IBJ,IBLIM,IBMED,IBTO,IBTOP,IBTRAN,IBUNIT,IBUNITP,IBUPD
- +3 QUIT
