| [613] | 1 | IBORAT ;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 | ;
|
|---|
| 9 | START ;
|
|---|
| 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
|
|---|
| 18 | REPORT ;
|
|---|
| 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
|
|---|
| 28 | NEXT ;
|
|---|
| 29 | I 'IBZ W !,"No data for this date range"
|
|---|
| 30 | END ;
|
|---|
| 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
|
|---|
| 42 | PROMPT ;
|
|---|
| 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
|
|---|
| 53 | QUEUED ;
|
|---|
| 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
|
|---|
| 57 | OPEN ;
|
|---|
| 58 | S %ZIS="QM" D ^%ZIS
|
|---|
| 59 | Q
|
|---|
