IBEBRH.m

IBEBRH	;ALB/AAS - HELP FOR ENTER BILLING RATES PROCESSOR ;4-MAR-92

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;;Per VHA Directive 10-93-142, this routine should not be modified.

	;

%	S IBX="MAIN" D 1

	Q

	;

1	;

	W !!,"Select one of the displayed choices by number or name."

	W !,"You must select the type of rate to add/edit to proceed."

	Q

	;

2	;  - help for 1 group of rates

	N I,J,IBP,IBPD,IBNOD

	I IBX="MAIN" D  Q

	.W !!,"CHOOSE FROM:" F J=1:1 S TEXT=$P($T(@IBX+J^IBEBR),";;",2,99) Q:TEXT=""  W !?4,TEXT

	F J=1:1 S IBP=$P($T(@IBX+J^IBEBR),";;",2,99),IBPD=$P(IBP,"^") Q:IBPD=""  D 3

	Q

3	;  - help for 1 rate name

	N I,IBNOD

	I $D(%DT) W !!,"To edit an entry enter one of the following effective dates.",!

	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

	. 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)

	. I $P(IBNOD,"^",6) W " + $",$J($P(IBNOD,"^",6),7,2)

	. W ?65,$S($P(IBNOD,"^",5):"INACTIVE",1:"ACTIVE")

	I $D(%DT) W !!,"Or enter a new effective date to add a new rate.",!

	Q

IBEBRH    ;ALB/AAS - HELP FOR ENTER BILLING RATES PROCESSOR ;4-MAR-92

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

%          SET IBX="MAIN"

           DO 1

 +1        QUIT 

 +2       ;

1         ;

 +1        WRITE !!,"Select one of the displayed choices by number or name."

 +2        WRITE !,"You must select the type of rate to add/edit to proceed."

 +3        QUIT 

 +4       ;

2         ;  - help for 1 group of rates

 +1        NEW I,J,IBP,IBPD,IBNOD

 +2        IF IBX="MAIN"

               Begin DoDot:1

 +3                WRITE !!,"CHOOSE FROM:"

                   FOR J=1:1

                       SET TEXT=$PIECE($TEXT(@IBX+J^IBEBR),";;",2,99)

                       IF TEXT=""

                           QUIT 

                       WRITE !?4,TEXT

               End DoDot:1

               QUIT 

 +4        FOR J=1:1

               SET IBP=$PIECE($TEXT(@IBX+J^IBEBR),";;",2,99)

               SET IBPD=$PIECE(IBP,"^")

               IF IBPD=""

                   QUIT 

               DO 3

 +5        QUIT 

3         ;  - help for 1 rate name

 +1        NEW I,IBNOD

 +2        IF $DATA(%DT)

               WRITE !!,"To edit an entry enter one of the following effective dates.",!

 +3        SET I=""

           FOR 

               SET I=$ORDER(^IBE(350.2,"B",IBPD,I))

               IF 'I

                   QUIT 

               SET IBNOD=$GET(^IBE(350.2,I,0))

               IF IBNOD'=""

                   Begin DoDot:1

 +4                    WRITE !?4,$$DAT2^IBOUTL($PIECE(IBNOD,"^",2)),?20,$EXTRACT($SELECT($PIECE(IBP,"^",5)'="":$PIECE(IBP,"^",5),1:$PIECE(IBP,"^")),1,20),?42,"$",$JUSTIFY($PIECE(IBNOD,"^",4),7,2)

 +5                    IF $PIECE(IBNOD,"^",6)

                           WRITE " + $",$JUSTIFY($PIECE(IBNOD,"^",6),7,2)

 +6                    WRITE ?65,$SELECT($PIECE(IBNOD,"^",5):"INACTIVE",1:"ACTIVE")

                   End DoDot:1

 +7        IF $DATA(%DT)

               WRITE !!,"Or enter a new effective date to add a new rate.",!

 +8        QUIT