IBORAT.m

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 ---IBORAT   1876     printed  Feb 18, 2025@23:52:28                                                                                                                                                                                                      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