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

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1IBORAT ;ALB/RJS - BILLING RATES LISTING - 3/02/92
2 ;;Version 2.0 ; INTEGRATED BILLING ;**52**; 21-MAR-94
3 ;
4 ;MAIN ROUTINE FOR IB BILLING RATES LISTING
5 ;CALLS IBORAT1A,IBORAT1B,IBORAT1C
6 ; patch IB*2*52 removed part of report that printed the Third Party rates in 399.5
7 ; routines IBORAT2A,IBORAT2B,IBORAT2C were deleted and reference to them in this routine
8 ;
9START ;
10 ;***
11 ;S XRTL=$ZU(0),XRTN="IBORAT-1" D T0^%ZOSV ;start rt clock
12 D PROMPT I Y=-1 Q
13 D OPEN G END:POP
14 I $D(IO("Q")) D QUEUED,HOME^%ZIS G END
15 U IO
16 ;***
17 ;I $D(XRT0) S:'$D(XRTN) XRTN="IBORAT" D T1^%ZOSV ;stop rt clock
18REPORT ;
19 ;***
20 ;S XRTL=$ZU(0),XRTN="IBORAT-2" D T0^%ZOSV ;start rt clock
21 S IBOUTPUT=0,IBZ=0
22 D ^IBORAT1A,^IBORAT1B,^IBORAT1C
23 I 'IBZ G NEXT
24 I IBDONE G END
25 F IBAAA=$Y:1:(IOSL-3) W !
26 I ($E(IOST,1,2)="C-")
27 I S DIR(0)="E" D ^DIR K DIR I Y=0!(Y="")!($D(DIRUT)) G END
28NEXT ;
29 I 'IBZ W !,"No data for this date range"
30END ;
31 ;KILL ^TMP GLOBAL
32 K ^TMP($J)
33 ;***
34 ;I $D(XRT0) S:'$D(XRTN) XRTN="IBORAT" D T1^%ZOSV ;stop rt clock
35 I $D(ZTQUEUED) S ZTREQ="@" Q
36 ;IBORAT***** KILLING VARIABLES IN IBORAT******
37 K %DT,%IS,IBENDATE,POP,IBSTDATE,Y,IBAAA,IBZ
38 ;IBORAT1**** KILLING SHARED VARIABLES FROM OTHER ROUTINES *****
39 K DIRUT,IBDONE,IBEDATE,IBENDATE,IBOUTPUT,IBPAGE,IBSDATE,IBSTDATE,IBTITLE,IBTODAY,IBPAYORS
40 D ^%ZISC
41 Q
42PROMPT ;
43 W !
44 S %DT="AEPX",IBOUTPUT=0
45 S %DT("A")="Enter Beginning Date:" D ^%DT
46 S IBSTDATE=Y
47 I Y=-1 Q
48 S %DT("A")="Enter Ending Date:" D ^%DT
49 S IBENDATE=Y
50 I Y=-1 Q
51 I IBENDATE<IBSTDATE W !,"Ending Date Less than Beginning Date Please Re-enter" G PROMPT
52 Q
53QUEUED ;
54 S ZTRTN="REPORT^IBORAT",ZTDESC="IB BILLING RATES & MEDICARE DEDUCTIBLE REPORT",ZTSAVE("IBSTDATE")="",ZTSAVE("IBENDATE")="" D ^%ZTLOAD W !!,$S($D(ZTSK):"Request Queued",1:"Request Cancelled")
55 K ZTSK
56 Q
57OPEN ;
58 S %ZIS="QM" D ^%ZIS
59 Q
Note: See TracBrowser for help on using the repository browser.