IBORAT ;ALB/RJS - BILLING RATES LISTING - 3/02/92
;;Version 2.0 ; INTEGRATED BILLING ;**52**; 21-MAR-94
;
;MAIN ROUTINE FOR IB BILLING RATES LISTING
;CALLS IBORAT1A,IBORAT1B,IBORAT1C
; patch IB*2*52 removed part of report that printed the Third Party rates in 399.5
; routines IBORAT2A,IBORAT2B,IBORAT2C were deleted and reference to them in this routine
;
START ;
;***
;S XRTL=$ZU(0),XRTN="IBORAT-1" D T0^%ZOSV ;start rt clock
D PROMPT I Y=-1 Q
D OPEN G END:POP
I $D(IO("Q")) D QUEUED,HOME^%ZIS G END
U IO
;***
;I $D(XRT0) S:'$D(XRTN) XRTN="IBORAT" D T1^%ZOSV ;stop rt clock
REPORT ;
;***
;S XRTL=$ZU(0),XRTN="IBORAT-2" D T0^%ZOSV ;start rt clock
S IBOUTPUT=0,IBZ=0
D ^IBORAT1A,^IBORAT1B,^IBORAT1C
I 'IBZ G NEXT
I IBDONE G END
F IBAAA=$Y:1:(IOSL-3) W !
I ($E(IOST,1,2)="C-")
I S DIR(0)="E" D ^DIR K DIR I Y=0!(Y="")!($D(DIRUT)) G END
NEXT ;
I 'IBZ W !,"No data for this date range"
END ;
;KILL ^TMP GLOBAL
K ^TMP($J)
;***
;I $D(XRT0) S:'$D(XRTN) XRTN="IBORAT" D T1^%ZOSV ;stop rt clock
I $D(ZTQUEUED) S ZTREQ="@" Q
;IBORAT***** KILLING VARIABLES IN IBORAT******
K %DT,%IS,IBENDATE,POP,IBSTDATE,Y,IBAAA,IBZ
;IBORAT1**** KILLING SHARED VARIABLES FROM OTHER ROUTINES *****
K DIRUT,IBDONE,IBEDATE,IBENDATE,IBOUTPUT,IBPAGE,IBSDATE,IBSTDATE,IBTITLE,IBTODAY,IBPAYORS
D ^%ZISC
Q
PROMPT ;
W !
S %DT="AEPX",IBOUTPUT=0
S %DT("A")="Enter Beginning Date:" D ^%DT
S IBSTDATE=Y
I Y=-1 Q
S %DT("A")="Enter Ending Date:" D ^%DT
S IBENDATE=Y
I Y=-1 Q
I IBENDATE<IBSTDATE W !,"Ending Date Less than Beginning Date Please Re-enter" G PROMPT
Q
QUEUED ;
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")
K ZTSK
Q
OPEN ;
S %ZIS="QM" D ^%ZIS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBORAT 1876 printed Nov 22, 2024@17:36:01 Page 2
IBORAT ;ALB/RJS - BILLING RATES LISTING - 3/02/92
+1 ;;Version 2.0 ; INTEGRATED BILLING ;**52**; 21-MAR-94
+2 ;
+3 ;MAIN ROUTINE FOR IB BILLING RATES LISTING
+4 ;CALLS IBORAT1A,IBORAT1B,IBORAT1C
+5 ; patch IB*2*52 removed part of report that printed the Third Party rates in 399.5
+6 ; routines IBORAT2A,IBORAT2B,IBORAT2C were deleted and reference to them in this routine
+7 ;
START ;
+1 ;***
+2 ;S XRTL=$ZU(0),XRTN="IBORAT-1" D T0^%ZOSV ;start rt clock
+3 DO PROMPT
IF Y=-1
QUIT
+4 DO OPEN
if POP
GOTO END
+5 IF $DATA(IO("Q"))
DO QUEUED
DO HOME^%ZIS
GOTO END
+6 USE IO
+7 ;***
+8 ;I $D(XRT0) S:'$D(XRTN) XRTN="IBORAT" D T1^%ZOSV ;stop rt clock
REPORT ;
+1 ;***
+2 ;S XRTL=$ZU(0),XRTN="IBORAT-2" D T0^%ZOSV ;start rt clock
+3 SET IBOUTPUT=0
SET IBZ=0
+4 DO ^IBORAT1A
DO ^IBORAT1B
DO ^IBORAT1C
+5 IF 'IBZ
GOTO NEXT
+6 IF IBDONE
GOTO END
+7 FOR IBAAA=$Y:1:(IOSL-3)
WRITE !
+8 IF ($EXTRACT(IOST,1,2)="C-")
+9 IF $TEST
SET DIR(0)="E"
DO ^DIR
KILL DIR
IF Y=0!(Y="")!($DATA(DIRUT))
GOTO END
NEXT ;
+1 IF 'IBZ
WRITE !,"No data for this date range"
END ;
+1 ;KILL ^TMP GLOBAL
+2 KILL ^TMP($JOB)
+3 ;***
+4 ;I $D(XRT0) S:'$D(XRTN) XRTN="IBORAT" D T1^%ZOSV ;stop rt clock
+5 IF $DATA(ZTQUEUED)
SET ZTREQ="@"
QUIT
+6 ;IBORAT***** KILLING VARIABLES IN IBORAT******
+7 KILL %DT,%IS,IBENDATE,POP,IBSTDATE,Y,IBAAA,IBZ
+8 ;IBORAT1**** KILLING SHARED VARIABLES FROM OTHER ROUTINES *****
+9 KILL DIRUT,IBDONE,IBEDATE,IBENDATE,IBOUTPUT,IBPAGE,IBSDATE,IBSTDATE,IBTITLE,IBTODAY,IBPAYORS
+10 DO ^%ZISC
+11 QUIT
PROMPT ;
+1 WRITE !
+2 SET %DT="AEPX"
SET IBOUTPUT=0
+3 SET %DT("A")="Enter Beginning Date:"
DO ^%DT
+4 SET IBSTDATE=Y
+5 IF Y=-1
QUIT
+6 SET %DT("A")="Enter Ending Date:"
DO ^%DT
+7 SET IBENDATE=Y
+8 IF Y=-1
QUIT
+9 IF IBENDATE<IBSTDATE
WRITE !,"Ending Date Less than Beginning Date Please Re-enter"
GOTO PROMPT
+10 QUIT
QUEUED ;
+1 SET ZTRTN="REPORT^IBORAT"
SET ZTDESC="IB BILLING RATES & MEDICARE DEDUCTIBLE REPORT"
SET ZTSAVE("IBSTDATE")=""
SET ZTSAVE("IBENDATE")=""
DO ^%ZTLOAD
WRITE !!,$SELECT($DATA(ZTSK):"Request Queued",1:"Request Cancelled")
+2 KILL ZTSK
+3 QUIT
OPEN ;
+1 SET %ZIS="QM"
DO ^%ZIS
+2 QUIT
