source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBEBRH.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1IBEBRH ;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 ;
81 ;
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 ;
132 ; - 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
193 ; - 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
Note: See TracBrowser for help on using the repository browser.