| 1 | IBCNSD1 ;ALB/NLR - BU EDIT TEMPLATES ; 10-JUN-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 | ED(IBE) ;
|
|---|
| 6 | D SAVEBU
|
|---|
| 7 | S DIE="^IBA(355.5,",DA=IBCBU
|
|---|
| 8 | S DR=IBE
|
|---|
| 9 | L +^IBA(355.5,+IBCBU):5 I '$T D LOCKED^IBTRCD1 G EDQ
|
|---|
| 10 | D ^DIE K DIE
|
|---|
| 11 | D COMP
|
|---|
| 12 | I IBDIF=1 D EDUP
|
|---|
| 13 | EDQ L -^IBA(355.5,+IBCBU)
|
|---|
| 14 | D EXIT
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | SAVEBU ;
|
|---|
| 18 | K ^TMP($J,"IBBU")
|
|---|
| 19 | S ^TMP($J,"IBBU",355.5,IBCBU,0)=$G(^IBA(355.5,IBCBU,0))
|
|---|
| 20 | S ^TMP($J,"IBBU",355.5,IBCBU,1)=$G(^IBA(355.5,IBCBU,1))
|
|---|
| 21 | Q
|
|---|
| 22 | COMP ;
|
|---|
| 23 | S IBDIF=0
|
|---|
| 24 | I $G(^IBA(355.5,DA,0))'=^TMP($J,"IBBU",355.5,DA,0) S IBDIF=1 Q
|
|---|
| 25 | I $G(^IBA(355.5,DA,1))'=^TMP($J,"IBBU",355.5,DA,1) S IBDIF=1 Q
|
|---|
| 26 | Q
|
|---|
| 27 | EDUP ; -- enter date and user if editing has taken place
|
|---|
| 28 | S DIE="^IBA(355.5,",DA=IBCBU
|
|---|
| 29 | S DR="1.05///NOW;1.06////"_DUZ
|
|---|
| 30 | D ^DIE K DIE
|
|---|
| 31 | Q
|
|---|
| 32 | CY ;
|
|---|
| 33 | S IBYR1=IBYR K IBYR D INIT^IBCNSD
|
|---|
| 34 | I $D(VALMQUIT) S IBYR=IBYR1 K VALMQUIT D EXITRP
|
|---|
| 35 | I IBYR=IBYR1 D
|
|---|
| 36 | .K IBYR1,VALMQUIT D EXITRP
|
|---|
| 37 | E D EXIT
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | EXIT I $G(IBDIF) D HDR^IBCNSA("Benefits Used"),BLD^IBCNSD
|
|---|
| 41 | EXITRP S VALMBCK="R"
|
|---|
| 42 | Q
|
|---|
