| 1 | PRCPRDOR ;WISC/RFJ-distribution duein and dueout reports ;22 Oct 92
|
|---|
| 2 | ;;5.1;IFCAP;;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")="W" W !,"THIS OPTION SHOULD ONLY BE USED BY PRIMARIES AND SECONDARIES." Q
|
|---|
| 6 | N %,TYPE,UPDATE
|
|---|
| 7 | S TYPE="OUT" I PRCP("DPTYPE")="S" S TYPE="IN"
|
|---|
| 8 | W !!,"DUE-",TYPE," REPORT for inventory point ",PRCP("IN")
|
|---|
| 9 | I $$KEY^PRCPUREP("PRCP"_$S(TYPE="IN":"2",1:"")_" MGRKEY",DUZ) D Q:%<1 S:%=1 UPDATE=1
|
|---|
| 10 | . K X S X(1)="You have the option to update the DUE-"_TYPE_"'s to the calculated values. If you choose to do this, the distribution order file and inventory point will"
|
|---|
| 11 | . S X(2)="be locked and NO orders can be placed and NO data in the inventory point can be changed until the program finishes. Therefore, I suggest this be done outside of normal business hours."
|
|---|
| 12 | . D DISPLAY^PRCPUX2(5,75,.X)
|
|---|
| 13 | . S XP="Do you want to update the inventory DUE-"_TYPE_"'s"
|
|---|
| 14 | . S XH="Enter 'YES' to update the DUE-"_TYPE_"'s, 'NO' to only print the report, '^' to exit."
|
|---|
| 15 | . W ! S %=$$YN^PRCPUYN(2)
|
|---|
| 16 | W ! I $G(UPDATE) W !,"In order to update the DUE-",TYPE,"'s, this report must be queued !"
|
|---|
| 17 | S %ZIS="Q" D ^%ZIS Q:POP I $D(IO("Q")) D Q
|
|---|
| 18 | . S ZTDESC="Distribution Order Due-"_TYPE_" Report",ZTRTN="DQ^PRCPRDO1"
|
|---|
| 19 | . S ZTSAVE("PRCP*")="",ZTSAVE("TYPE")="",ZTSAVE("UPDATE")="",ZTSAVE("ZTREQ")="@"
|
|---|
| 20 | . D ^%ZTLOAD
|
|---|
| 21 | I $G(UPDATE) W !,"I am not updating the DUE-",TYPE,"'s since this report has not be QUEUED !" K UPDATE
|
|---|
| 22 | W !!,"<*> please wait <*>"
|
|---|
| 23 | D DQ^PRCPRDO1
|
|---|
| 24 | Q
|
|---|
