| 1 | IBEBRH ;ALB/AAS - HELP FOR ENTER BILLING RATES PROCESSOR ;4-MAR-92
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | % S IBX="MAIN" D 1
|
|---|
| 6 | Q
|
|---|
| 7 | ;
|
|---|
| 8 | 1 ;
|
|---|
| 9 | W !!,"Select one of the displayed choices by number or name."
|
|---|
| 10 | W !,"You must select the type of rate to add/edit to proceed."
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | 2 ; - help for 1 group of rates
|
|---|
| 14 | N I,J,IBP,IBPD,IBNOD
|
|---|
| 15 | I IBX="MAIN" D Q
|
|---|
| 16 | .W !!,"CHOOSE FROM:" F J=1:1 S TEXT=$P($T(@IBX+J^IBEBR),";;",2,99) Q:TEXT="" W !?4,TEXT
|
|---|
| 17 | F J=1:1 S IBP=$P($T(@IBX+J^IBEBR),";;",2,99),IBPD=$P(IBP,"^") Q:IBPD="" D 3
|
|---|
| 18 | Q
|
|---|
| 19 | 3 ; - help for 1 rate name
|
|---|
| 20 | N I,IBNOD
|
|---|
| 21 | I $D(%DT) W !!,"To edit an entry enter one of the following effective dates.",!
|
|---|
| 22 | S I="" F S I=$O(^IBE(350.2,"B",IBPD,I)) Q:'I S IBNOD=$G(^IBE(350.2,I,0)) I IBNOD'="" D
|
|---|
| 23 | . W !?4,$$DAT2^IBOUTL($P(IBNOD,"^",2)),?20,$E($S($P(IBP,"^",5)'="":$P(IBP,"^",5),1:$P(IBP,"^")),1,20),?42,"$",$J($P(IBNOD,"^",4),7,2)
|
|---|
| 24 | . I $P(IBNOD,"^",6) W " + $",$J($P(IBNOD,"^",6),7,2)
|
|---|
| 25 | . W ?65,$S($P(IBNOD,"^",5):"INACTIVE",1:"ACTIVE")
|
|---|
| 26 | I $D(%DT) W !!,"Or enter a new effective date to add a new rate.",!
|
|---|
| 27 | Q
|
|---|
