IBOHIST.m

IBOHIST ;ALB/EMG - HISTORY OF CHARGES ON HOLD REPORT ; FEB 25 1997

 ;;2.0; INTEGRATED BILLING ;**70**; 21-MAR-94

 ;

EN ;

 ;***

 D HOME^%ZIS W @IOF,!!,"History of Charges ON HOLD Report",!

 ;

 N DIRUT,DUOUT,DTOUT,IBDATE,Y

 W !!?6,"This report uses the date the IB Action was created to determine"

 W !?6,"whether it should be included in the count and amount totals."

 W !?6,"Please enter the starting date for this report.  The date should"

 W !?6,"be after 6/1/96 or when patch IB*2.0*70 was installed at your"

 W !?6,"facility since this report only counts charges with an ON HOLD"

 W !?6,"DATE defined.  You can also type '^' to exit.",!

 ;

 S DIR(0)="DA^2960601:NOW:EX",DIR("A")="Start with DATE: "

 S DIR("?")="Enter the starting date for this report. (No earlier than 6/1/96)"

 D ^DIR K DIR G:$D(DIRUT) END S IBSDT=+Y

 S DIR(0)="DA^"_+Y_":NOW:EX",DIR("A")="     Go to DATE: ",DIR("?")="Enter the ending date for this report." D ^DIR K DIR G:$D(DIRUT) END S IBEDT=+Y

 ;

DEV S %ZIS="QM",%ZIS("A")="Output Device: " D ^%ZIS G:POP END

 I $D(IO("Q")) S ZTRTN="DQ^IBOHIST",ZTDESC="IB History of Charges on hold Report",ZTSAVE("IB*")="" D ^%ZTLOAD K IO("Q"),ZTSK G END

 U IO

 ;***

 W !!

 ;

DQ ;  -entry from tasked job

 ;***

 ;

 ;  -gross count of statuses, total charges

 ;  -^tmp($j,"ib",ibstatus,"gcnt")=count

 ;   ^tmp($j,"ib",ibstatus,"gtot")=sum of charges

 ;

 K ^TMP($J)

 S IBEDT=IBEDT+.24

 S IBDT=IBSDT+.000001 F  S IBDT=$O(^IB("D",IBDT)) Q:IBDT=""!(IBDT>IBEDT)  S IBN="" F  S IBN=$O(^IB("D",IBDT,IBN)) Q:IBN=""  D

 .S IBND=^IB(IBN,0) Q:'IBND

 .S IBSTAT=$S($D(^IBE(350.21,+$P(IBND,"^",5),0)):$P(^(0),"^"),1:"UNKNOWN")

 .S IBOH=$P($G(^IB(IBN,1)),"^",6) Q:'IBOH

 .S:'$D(^TMP($J,"IB",IBSTAT,"GCNT")) ^("GCNT")=0 S ^("GCNT")=^("GCNT")+1

 .S:'$D(^TMP($J,"IB",IBSTAT,"GTOT")) ^("GTOT")=0 S ^("GTOT")=^("GTOT")+$P(IBND,"^",7)

 .Q

 ;

 D PRINT W !

 G END

 ;

 ;

PRINT ;  -output data

 S IBQUIT=0,IBPAG=0,Y=DT D D^DIQ S IBHDT=Y D HDR

 W !!?((IOM-34)/2),"TOTALS BY CURRENT STATUS OF CHARGE",!

 ;

 S IBSTAT=0 F  S IBSTAT=$O(^TMP($J,"IB",IBSTAT)) Q:IBSTAT=""!(IBQUIT)  D LINE

 Q

 ;

LINE ;

 I $Y>(IOSL-5) D PAUSE^IBOUTL Q:IBQUIT  D HDR

 W !!,"Current Status: ",IBSTAT

 ;W !,"--------------------------"

 W !?5,"NUMBER ENTRIES: ",$J($S($D(^TMP($J,"IB",IBSTAT,"GCNT")):^("GCNT"),1:0),9)

 W !?5,"DOLLAR AMOUNT: $",$J($S($D(^TMP($J,"IB",IBSTAT,"GTOT")):^("GTOT"),1:0),9,2)

 Q

 ;

HDR ;

 W:$E(IOST,1,2)["C-"!(IBPAG>0) @IOF

 W !?((IOM-26)/2),"History of Charges ON HOLD"

 W !?((IOM-3)/2),"for"

 D SITE^IBAUTL S IBSNM=$S($D(^DIC(4,IBFAC,0)):$P(^(0),"^"),1:"")

 W !?((IOM-($L(IBSNM)+6))/2),IBSNM_" ("_IBSITE_")"

 W !?((IOM-54)/2),"Charges created between ",$$DAT2^IBOUTL(IBSDT)," and ",$P($$DAT2^IBOUTL(IBEDT),"@")

 W !!?(IOM-26/2),"Date Printed: ",IBHDT

 S IBPAG=IBPAG+1 W !?(IOM-8/2),"Page: ",IBPAG

 W !?(IOM-26/2),"--------------------------"

 Q

 ;

 ;

END K ^TMP($J)

 ;***

 I $D(ZTQUEUED) S ZTREQ="@" Q

 K DFN,DIRUT,DUOUT,DTOUT,IBDT,IBHDT,IBDATE,IBOH,IBSDT,IBEDT,IBPAG,IBSNM,IBST,IBSTAT,IBFAC,IBSITE,IBN,IBND,IBQUIT,POP,ZTDESC,ZTQUEUED,ZTREQ,ZTRTN,ZTSAVE,X,Y

 D ^%ZISC

 Q

 ;end ibohist

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBOHIST   3154     printed  Mar 13, 2025@21:30:36                                                                                                                                                                                                     Page 2

IBOHIST   ;ALB/EMG - HISTORY OF CHARGES ON HOLD REPORT ; FEB 25 1997

 +1       ;;2.0; INTEGRATED BILLING ;**70**; 21-MAR-94

 +2       ;

EN        ;

 +1       ;***

 +2        DO HOME^%ZIS

           WRITE @IOF,!!,"History of Charges ON HOLD Report",!

 +3       ;

 +4        NEW DIRUT,DUOUT,DTOUT,IBDATE,Y

 +5        WRITE !!?6,"This report uses the date the IB Action was created to determine"

 +6        WRITE !?6,"whether it should be included in the count and amount totals."

 +7        WRITE !?6,"Please enter the starting date for this report.  The date should"

 +8        WRITE !?6,"be after 6/1/96 or when patch IB*2.0*70 was installed at your"

 +9        WRITE !?6,"facility since this report only counts charges with an ON HOLD"

 +10       WRITE !?6,"DATE defined.  You can also type '^' to exit.",!

 +11      ;

 +12       SET DIR(0)="DA^2960601:NOW:EX"

           SET DIR("A")="Start with DATE: "

 +13       SET DIR("?")="Enter the starting date for this report. (No earlier than 6/1/96)"

 +14       DO ^DIR

           KILL DIR

           if $DATA(DIRUT)

               GOTO END

           SET IBSDT=+Y

 +15       SET DIR(0)="DA^"_+Y_":NOW:EX"

           SET DIR("A")="     Go to DATE: "

           SET DIR("?")="Enter the ending date for this report."

           DO ^DIR

           KILL DIR

           if $DATA(DIRUT)

               GOTO END

           SET IBEDT=+Y

 +16      ;

DEV        SET %ZIS="QM"

           SET %ZIS("A")="Output Device: "

           DO ^%ZIS

           if POP

               GOTO END

 +1        IF $DATA(IO("Q"))

               SET ZTRTN="DQ^IBOHIST"

               SET ZTDESC="IB History of Charges on hold Report"

               SET ZTSAVE("IB*")=""

               DO ^%ZTLOAD

               KILL IO("Q"),ZTSK

               GOTO END

 +2        USE IO

 +3       ;***

 +4        WRITE !!

 +5       ;

DQ        ;  -entry from tasked job

 +1       ;***

 +2       ;

 +3       ;  -gross count of statuses, total charges

 +4       ;  -^tmp($j,"ib",ibstatus,"gcnt")=count

 +5       ;   ^tmp($j,"ib",ibstatus,"gtot")=sum of charges

 +6       ;

 +7        KILL ^TMP($JOB)

 +8        SET IBEDT=IBEDT+.24

 +9        SET IBDT=IBSDT+.000001

           FOR 

               SET IBDT=$ORDER(^IB("D",IBDT))

               if IBDT=""!(IBDT>IBEDT)

                   QUIT 

               SET IBN=""

               FOR 

                   SET IBN=$ORDER(^IB("D",IBDT,IBN))

                   if IBN=""

                       QUIT 

                   Begin DoDot:1

 +10                   SET IBND=^IB(IBN,0)

                       if 'IBND

                           QUIT 

 +11                   SET IBSTAT=$SELECT($DATA(^IBE(350.21,+$PIECE(IBND,"^",5),0)):$PIECE(^(0),"^"),1:"UNKNOWN")

 +12                   SET IBOH=$PIECE($GET(^IB(IBN,1)),"^",6)

                       if 'IBOH

                           QUIT 

 +13                   if '$DATA(^TMP($JOB,"IB",IBSTAT,"GCNT"))

                           SET ^("GCNT")=0

                       SET ^("GCNT")=^("GCNT")+1

 +14                   if '$DATA(^TMP($JOB,"IB",IBSTAT,"GTOT"))

                           SET ^("GTOT")=0

                       SET ^("GTOT")=^("GTOT")+$PIECE(IBND,"^",7)

 +15                   QUIT 

                   End DoDot:1

 +16      ;

 +17       DO PRINT

           WRITE !

 +18       GOTO END

 +19      ;

 +20      ;

PRINT     ;  -output data

 +1        SET IBQUIT=0

           SET IBPAG=0

           SET Y=DT

           DO D^DIQ

           SET IBHDT=Y

           DO HDR

 +2        WRITE !!?((IOM-34)/2),"TOTALS BY CURRENT STATUS OF CHARGE",!

 +3       ;

 +4        SET IBSTAT=0

           FOR 

               SET IBSTAT=$ORDER(^TMP($JOB,"IB",IBSTAT))

               if IBSTAT=""!(IBQUIT)

                   QUIT 

               DO LINE

 +5        QUIT 

 +6       ;

LINE      ;

 +1        IF $Y>(IOSL-5)

               DO PAUSE^IBOUTL

               if IBQUIT

                   QUIT 

               DO HDR

 +2        WRITE !!,"Current Status: ",IBSTAT

 +3       ;W !,"--------------------------"

 +4        WRITE !?5,"NUMBER ENTRIES: ",$JUSTIFY($SELECT($DATA(^TMP($JOB,"IB",IBSTAT,"GCNT")):^("GCNT"),1:0),9)

 +5        WRITE !?5,"DOLLAR AMOUNT: $",$JUSTIFY($SELECT($DATA(^TMP($JOB,"IB",IBSTAT,"GTOT")):^("GTOT"),1:0),9,2)

 +6        QUIT 

 +7       ;

HDR       ;

 +1        if $EXTRACT(IOST,1,2)["C-"!(IBPAG>0)

               WRITE @IOF

 +2        WRITE !?((IOM-26)/2),"History of Charges ON HOLD"

 +3        WRITE !?((IOM-3)/2),"for"

 +4        DO SITE^IBAUTL

           SET IBSNM=$SELECT($DATA(^DIC(4,IBFAC,0)):$PIECE(^(0),"^"),1:"")

 +5        WRITE !?((IOM-($LENGTH(IBSNM)+6))/2),IBSNM_" ("_IBSITE_")"

 +6        WRITE !?((IOM-54)/2),"Charges created between ",$$DAT2^IBOUTL(IBSDT)," and ",$PIECE($$DAT2^IBOUTL(IBEDT),"@")

 +7        WRITE !!?(IOM-26/2),"Date Printed: ",IBHDT

 +8        SET IBPAG=IBPAG+1

           WRITE !?(IOM-8/2),"Page: ",IBPAG

 +9        WRITE !?(IOM-26/2),"--------------------------"

 +10       QUIT 

 +11      ;

 +12      ;

END        KILL ^TMP($JOB)

 +1       ;***

 +2        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

               QUIT 

 +3        KILL DFN,DIRUT,DUOUT,DTOUT,IBDT,IBHDT,IBDATE,IBOH,IBSDT,IBEDT,IBPAG,IBSNM,IBST,IBSTAT,IBFAC,IBSITE,IBN,IBND,IBQUIT,POP,ZTDESC,ZTQUEUED,ZTREQ,ZTRTN,ZTSAVE,X,Y

 +4        DO ^%ZISC

 +5        QUIT 

 +6       ;end ibohist