PSGWHV1.m

PSGWHV1 ;BHAM ISC/PTD,CML-Print High Volume Report for Selected Date Range - CONTINUED ; 23 Mar 93 / 12:53 PM

 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94

EN1 S (CF,CNT)=0,PGCT=1,QFLG="" D HDR I '$D(^TMP("PSGWHV",$J,"VL")) W !!,"NO DATA AVAILABLE FOR SELECTED DATES." G DONE

CFLP S CF=$O(^TMP("PSGWHV",$J,"VL",CF)),DRG=0 I 'CF W !!,"# of Items: ",CNT G DONE

DRGLP S DRG=$O(^TMP("PSGWHV",$J,"VL",CF,DRG)) G:DRG="" CFLP S LOC=^TMP("PSGWHV",$J,"VL",CF,DRG)

 D:$Y+4>IOSL PRTCHK G:QFLG END W !,DRG,?44,$J($P(LOC,"^"),8,0),?63,$S($P(LOC,"^",2)'="NO DATA":$J($P(LOC,"^",2),10,2),1:"COST DATA MISSING") S CNT=CNT+1 G DRGLP

 ;

DONE I $E(IOST)'="C" W @IOF

 I $E(IOST)="C" D:'QFLG SS^PSGWUTL1

END K ALL,AOU,AOUCST,AOUQD,BDT,DRG,DRGCST,DRGDA,DRGNAME,DRGNM,DRGQD,EDT,INACTOT,INC,INVDA,INVDT,INVN,J,LOC,LOC1,LOC2,LOCSR,LOCWD,ODA,ODT,PGCT,PRCNT,PRCT,QD,RETDT,SRV,SRVDA,WARD,WDN,WRDA,WRDDA,X,Y

 K ANS,QFLG,AOUN,CF,CNT,CST,CUT,DRN,DRUG,LOCN,QUAN,TOTCST,TOTQD,^TMP("PSGWHV",$J),PSGWIO,ZTSK,%,%I,%H,G,ZTIO,IO("Q") D ^%ZISC

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

 ;

HDR ;PRINT REPORT MAIN HEADER

 W:$Y @IOF W !,"HIGH VOLUME REPORT AR/WS - ",$S(ALL=1:"FOR ALL AOUS",1:$P(^PSI(58.1,AOU,0),"^")),?70,"PAGE ",PGCT,!,"TOTAL QUANTITY DISPENSED GREATER THAN OR EQUAL TO ",CUT

 W !,"FROM " S Y=BDT X ^DD("DD") W Y," TO " S Y=EDT X ^DD("DD") W Y

 W !!?53,"DATE: ",$$PSGWDT^PSGWUTL1 S PGCT=PGCT+1

 W !?5,"ITEM",?42,"QUANTITY DISPENSED",?66,"TOTAL COST",! F J=1:1:80 W "-"

 Q

PRTCHK ;

 I $E(IOST)="C" W !!,"Press <RETURN> to Continue or ""^"" to Exit: " R ANS:DTIME S:'$T ANS="^" D:ANS?1."?" HELP^PSGWUTL1 I ANS="^" S QFLG=1 Q

 D HDR Q

PSGWHV1   ;BHAM ISC/PTD,CML-Print High Volume Report for Selected Date Range - CONTINUED ; 23 Mar 93 / 12:53 PM

 +1       ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94

EN1        SET (CF,CNT)=0

           SET PGCT=1

           SET QFLG=""

           DO HDR

           IF '$DATA(^TMP("PSGWHV",$JOB,"VL"))

               WRITE !!,"NO DATA AVAILABLE FOR SELECTED DATES."

               GOTO DONE

CFLP       SET CF=$ORDER(^TMP("PSGWHV",$JOB,"VL",CF))

           SET DRG=0

           IF 'CF

               WRITE !!,"# of Items: ",CNT

               GOTO DONE

DRGLP      SET DRG=$ORDER(^TMP("PSGWHV",$JOB,"VL",CF,DRG))

           IF DRG=""

               GOTO CFLP

           SET LOC=^TMP("PSGWHV",$JOB,"VL",CF,DRG)

 +1        IF $Y+4>IOSL

               DO PRTCHK

           IF QFLG

               GOTO END

           WRITE !,DRG,?44,$JUSTIFY($PIECE(LOC,"^"),8,0),?63,$SELECT($PIECE(LOC,"^",2)'="NO DATA":$JUSTIFY($PIECE(LOC,"^",2),10,2),1:"COST DATA MISSING")

           SET CNT=CNT+1

           GOTO DRGLP

 +2       ;

DONE       IF $EXTRACT(IOST)'="C"

               WRITE @IOF

 +1        IF $EXTRACT(IOST)="C"

               IF 'QFLG

                   DO SS^PSGWUTL1

END        KILL ALL,AOU,AOUCST,AOUQD,BDT,DRG,DRGCST,DRGDA,DRGNAME,DRGNM,DRGQD,EDT,INACTOT,INC,INVDA,INVDT,INVN,J,LOC,LOC1,LOC2,LOCSR,LOCWD,ODA,ODT,PGCT,PRCNT,PRCT,QD,RETDT,SRV,SRVDA,WARD,WDN,WRDA,WRDDA,X,Y

 +1        KILL ANS,QFLG,AOUN,CF,CNT,CST,CUT,DRN,DRUG,LOCN,QUAN,TOTCST,TOTQD,^TMP("PSGWHV",$JOB),PSGWIO,ZTSK,%,%I,%H,G,ZTIO,IO("Q")

           DO ^%ZISC

 +2        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

           QUIT 

 +3       ;

HDR       ;PRINT REPORT MAIN HEADER

 +1        IF $Y

               WRITE @IOF

           WRITE !,"HIGH VOLUME REPORT AR/WS - ",$SELECT(ALL=1:"FOR ALL AOUS",1:$PIECE(^PSI(58.1,AOU,0),"^")),?70,"PAGE ",PGCT,!,"TOTAL QUANTITY DISPENSED GREATER THAN OR EQUAL TO ",CUT

 +2        WRITE !,"FROM "

           SET Y=BDT

           XECUTE ^DD("DD")

           WRITE Y," TO "

           SET Y=EDT

           XECUTE ^DD("DD")

           WRITE Y

 +3        WRITE !!?53,"DATE: ",$$PSGWDT^PSGWUTL1

           SET PGCT=PGCT+1

 +4        WRITE !?5,"ITEM",?42,"QUANTITY DISPENSED",?66,"TOTAL COST",!

           FOR J=1:1:80

               WRITE "-"

 +5        QUIT 

PRTCHK    ;

 +1        IF $EXTRACT(IOST)="C"

               WRITE !!,"Press <RETURN> to Continue or ""^"" to Exit: "

               READ ANS:DTIME

               IF '$TEST

                   SET ANS="^"

               IF ANS?1."?"

                   DO HELP^PSGWUTL1

               IF ANS="^"

                   SET QFLG=1

                   QUIT 

 +2        DO HDR

           QUIT