| 1 | PSGWHV1 ;BHAM ISC/PTD,CML-Print High Volume Report for Selected Date Range - CONTINUED ; 23 Mar 93 / 12:53 PM
|
|---|
| 2 | ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
|
|---|
| 3 | 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
|
|---|
| 4 | CFLP S CF=$O(^TMP("PSGWHV",$J,"VL",CF)),DRG=0 I 'CF W !!,"# of Items: ",CNT G DONE
|
|---|
| 5 | DRGLP S DRG=$O(^TMP("PSGWHV",$J,"VL",CF,DRG)) G:DRG="" CFLP S LOC=^TMP("PSGWHV",$J,"VL",CF,DRG)
|
|---|
| 6 | 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
|
|---|
| 7 | ;
|
|---|
| 8 | DONE I $E(IOST)'="C" W @IOF
|
|---|
| 9 | I $E(IOST)="C" D:'QFLG SS^PSGWUTL1
|
|---|
| 10 | 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
|
|---|
| 11 | 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
|
|---|
| 12 | S:$D(ZTQUEUED) ZTREQ="@" Q
|
|---|
| 13 | ;
|
|---|
| 14 | HDR ;PRINT REPORT MAIN HEADER
|
|---|
| 15 | 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
|
|---|
| 16 | W !,"FROM " S Y=BDT X ^DD("DD") W Y," TO " S Y=EDT X ^DD("DD") W Y
|
|---|
| 17 | W !!?53,"DATE: ",$$PSGWDT^PSGWUTL1 S PGCT=PGCT+1
|
|---|
| 18 | W !?5,"ITEM",?42,"QUANTITY DISPENSED",?66,"TOTAL COST",! F J=1:1:80 W "-"
|
|---|
| 19 | Q
|
|---|
| 20 | PRTCHK ;
|
|---|
| 21 | 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
|
|---|
| 22 | D HDR Q
|
|---|
