source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCPRISR.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1PRCPRISR ;WISC/RFJ-inventory sales (option, whse) ;24 May 93
2V ;;5.1;IFCAP;**1**;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 D ^PRCPUSEL Q:'$G(PRCP("I"))
5 I PRCP("DPTYPE")="P" D PRIMARY^PRCPRISP Q
6 I PRCP("DPTYPE")="S" D SECOND^PRCPRISS Q
7 ;
8 ; inventory sales report for whse
9 N DATEEND,DATESTRT,DISTRALL,PRCPEND,PRCPSTRT,PRCPSUMM,X
10 K X S X(1)="The Inventory Sales Report will display all sales from the Warehouse to the Primary inventory points. This report is sorted by NSN, the distribution point, and date issued." D DISPLAY^PRCPUX2(40,79,.X)
11 K X S X(1)="Select the range of NSNs to display" W !! D DISPLAY^PRCPUX2(2,40,.X)
12 D NSNSEL^PRCPURS0 I '$D(PRCPSTRT) Q
13 K X S X(1)="Select the DISTRIBUTION POINTS to display" D DISPLAY^PRCPUX2(2,40,.X)
14 D DISTRSEL^PRCPURS3(PRCP("I"))
15 I '$G(DISTRALL),'$O(^TMP($J,"PRCPURS3","YES",0)) W !,"*** NO DISTRIBUTION POINTS SELECTED !" D Q Q
16 K X S X(1)="Select the range of ISSUE DATES to display" W !! D DISPLAY^PRCPUX2(2,40,.X)
17 D DATESEL^PRCPURS2("Issue") I '$G(DATEEND) D Q Q
18 S PRCPSUMM=$$SUMMARY^PRCPURS0 I PRCPSUMM<0 D Q Q
19 W ! S %ZIS="Q" D ^%ZIS G:POP Q I $D(IO("Q")) D D ^%ZTLOAD K IO("Q"),ZTSK D Q Q
20 . S ZTDESC="Warehouse Inventory Sales Report",ZTRTN="DQ^PRCPRISR"
21 . S ZTSAVE("PRCP*")="",ZTSAVE("DATE*")="",ZTSAVE("DISTRALL")="",ZTSAVE("^TMP($J,""PRCPURS3"",")="",ZTSAVE("ZTREQ")="@"
22 W !!,"<*> please wait <*>"
23DQ ; queue starts here
24 D PRINT^PRCPRISW
25Q D ^%ZISC K ^TMP($J,"PRCPURS3"),^TMP($J,"PRCPRISR"),^TMP($J,"PRCPRISR TOT")
26 Q
Note: See TracBrowser for help on using the repository browser.