| [613] | 1 | PRCPRISR ;WISC/RFJ-inventory sales (option, whse) ;24 May 93
|
|---|
| 2 | V ;;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 <*>"
|
|---|
| 23 | DQ ; queue starts here
|
|---|
| 24 | D PRINT^PRCPRISW
|
|---|
| 25 | Q D ^%ZISC K ^TMP($J,"PRCPURS3"),^TMP($J,"PRCPRISR"),^TMP($J,"PRCPRISR TOT")
|
|---|
| 26 | Q
|
|---|
