PSOSUDCN.m

PSOSUDCN ;BHAM ISC/JMB-Counts of suspended Rx's by day ; 12/10/92

 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997

 I '$D(PSOPAR) D ^PSOLSET I '$D(PSOPAR) D WARN Q

INIT W !!!,?5,"DAILY COUNTS OF RX'S ON SUSPENSE"

 S EXIT="" D DATE G:EXIT="" EXIT S %ZIS="QM" K IO("Q") D ^%ZIS K %ZIS Q:POP  G:$D(IO("Q")) QUEUP

START U IO S (PSD,PSDP,PST,PSTP)=0 D HD

 F J=(BEGDATE-1):0 S J=$O(^PS(52.5,"C",J)) Q:'J!(J>ENDDATE)  D CNT D:($Y+5)>IOSL HANG,HD I PSD S Y=J X ^DD("DD") W !,?10,Y,?25,$J(PSD,9),?40,$J(PSDP,9) S (PSD,PSDP)=0

 D:($Y+5)>IOSL HANG,HD W !,?10,"-----------",?25,"---------",?40,"---------",!,?10,"TOTAL",?25,$J(PST,9),?40,$J(PSTP,9),! D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"

EXIT K %,%DT,%H,BEGDATE,DAY,DIRUT,ENDDATE,PSPOP,EXIT,POP,PSD,PSDP,PST,PSTP,J,JJ,TIM,HR,MIN,%DT,D,X,Y,Z,G,ZTRTN,ZTSAVE,ZTSK Q

CNT F JJ=0:0 S JJ=$O(^PS(52.5,"C",J,JJ)) Q:'JJ  I $P($G(^PS(52.5,JJ,0)),"^",6)=$G(PSOSITE) S PSD=PSD+1,PST=PST+1 S:$G(^("P"))=1 PSDP=PSDP+1,PSTP=PSTP+1

 Q

DATE K BEGDATE,ENDDATE,%DT(0) W !!!,"**** DATE SELECTION ****"

 W ! S %DT="AEX",%DT("A")="   BEGIN DATE : " D ^%DT K %DT Q:Y<0  S (%DT(0),BEGDATE)=Y

 W ! S %DT="AEX",%DT("A")="   ENDING DATE: " D ^%DT Q:Y<0  S ENDDATE=Y

 S EXIT="NORMAL" Q

HANG I $E(IOST)="C" W $C(7),!!,"Press RETURN to CONTINUE!!" R X:DTIME Q

HD I $D(IOF),IOF]"" W @IOF

 D NOW^%DTC S Y=% X ^DD("DD") S DAY=$P(Y,"@"),TIM=$P(Y,"@",2)

 W !!,?9,"*** COUNTS OF RX'S IN SUSPENSE BY DAY ***"

 W !?((55-$L($P(^PS(59,$G(PSOSITE),0),"^")))\2),"FOR ",$P(^(0),"^")

 W !,?15,"AS OF ",DAY," AT ",TIM,!!,?10,"DATE",?25,"# OF RX'S",?40,"# PRINTED",!,?10,"-----------",?25,"---------",?40,"---------"

 Q

QUEUP S ZTRTN="START^PSOSUDCN",ZTDESC="Outpatient Pharmacy Count of Suspensed Prescriptions" F G="PSOSITE","BEGDATE","ENDDATE" S:$D(@G) ZTSAVE(G)=""

 D ^%ZTLOAD G EXIT

DQ K IO(0),IOP Q

WARN W $C(7),!!,?5,"Site Parameters must be defined to use this option!",! Q

PSOSUDCN  ;BHAM ISC/JMB-Counts of suspended Rx's by day ; 12/10/92

 +1       ;;7.0;OUTPATIENT PHARMACY;;DEC 1997

 +2        IF '$DATA(PSOPAR)

               DO ^PSOLSET

               IF '$DATA(PSOPAR)

                   DO WARN

                   QUIT 

INIT       WRITE !!!,?5,"DAILY COUNTS OF RX'S ON SUSPENSE"

 +1        SET EXIT=""

           DO DATE

           IF EXIT=""

               GOTO EXIT

           SET %ZIS="QM"

           KILL IO("Q")

           DO ^%ZIS

           KILL %ZIS

           IF POP

               QUIT 

           IF $DATA(IO("Q"))

               GOTO QUEUP

START      USE IO

           SET (PSD,PSDP,PST,PSTP)=0

           DO HD

 +1        FOR J=(BEGDATE-1):0

               SET J=$ORDER(^PS(52.5,"C",J))

               IF 'J!(J>ENDDATE)

                   QUIT 

               DO CNT

               IF ($Y+5)>IOSL

                   DO HANG

                   DO HD

               IF PSD

                   SET Y=J

                   XECUTE ^DD("DD")

                   WRITE !,?10,Y,?25,$JUSTIFY(PSD,9),?40,$JUSTIFY(PSDP,9)

                   SET (PSD,PSDP)=0

 +2        IF ($Y+5)>IOSL

               DO HANG

               DO HD

           WRITE !,?10,"-----------",?25,"---------",?40,"---------",!,?10,"TOTAL",?25,$JUSTIFY(PST,9),?40,$JUSTIFY(PSTP,9),!

           DO ^%ZISC

           IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

EXIT       KILL %,%DT,%H,BEGDATE,DAY,DIRUT,ENDDATE,PSPOP,EXIT,POP,PSD,PSDP,PST,PSTP,J,JJ,TIM,HR,MIN,%DT,D,X,Y,Z,G,ZTRTN,ZTSAVE,ZTSK

           QUIT 

CNT        FOR JJ=0:0

               SET JJ=$ORDER(^PS(52.5,"C",J,JJ))

               IF 'JJ

                   QUIT 

               IF $PIECE($GET(^PS(52.5,JJ,0)),"^",6)=$GET(PSOSITE)

                   SET PSD=PSD+1

                   SET PST=PST+1

                   IF $GET(^("P"))=1

                       SET PSDP=PSDP+1

                       SET PSTP=PSTP+1

 +1        QUIT 

DATE       KILL BEGDATE,ENDDATE,%DT(0)

           WRITE !!!,"**** DATE SELECTION ****"

 +1        WRITE !

           SET %DT="AEX"

           SET %DT("A")="   BEGIN DATE : "

           DO ^%DT

           KILL %DT

           IF Y<0

               QUIT 

           SET (%DT(0),BEGDATE)=Y

 +2        WRITE !

           SET %DT="AEX"

           SET %DT("A")="   ENDING DATE: "

           DO ^%DT

           IF Y<0

               QUIT 

           SET ENDDATE=Y

 +3        SET EXIT="NORMAL"

           QUIT 

HANG       IF $EXTRACT(IOST)="C"

               WRITE $CHAR(7),!!,"Press RETURN to CONTINUE!!"

               READ X:DTIME

               QUIT 

HD         IF $DATA(IOF)

               IF IOF]""

                   WRITE @IOF

 +1        DO NOW^%DTC

           SET Y=%

           XECUTE ^DD("DD")

           SET DAY=$PIECE(Y,"@")

           SET TIM=$PIECE(Y,"@",2)

 +2        WRITE !!,?9,"*** COUNTS OF RX'S IN SUSPENSE BY DAY ***"

 +3        WRITE !?((55-$LENGTH($PIECE(^PS(59,$GET(PSOSITE),0),"^")))\2),"FOR ",$PIECE(^(0),"^")

 +4        WRITE !,?15,"AS OF ",DAY," AT ",TIM,!!,?10,"DATE",?25,"# OF RX'S",?40,"# PRINTED",!,?10,"-----------",?25,"---------",?40,"---------"

 +5        QUIT 

QUEUP      SET ZTRTN="START^PSOSUDCN"

           SET ZTDESC="Outpatient Pharmacy Count of Suspensed Prescriptions"

           FOR G="PSOSITE","BEGDATE","ENDDATE"

               IF $DATA(@G)

                   SET ZTSAVE(G)=""

 +1        DO ^%ZTLOAD

           GOTO EXIT

DQ         KILL IO(0),IOP

           QUIT 

WARN       WRITE $CHAR(7),!!,?5,"Site Parameters must be defined to use this option!",!

           QUIT