source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCPRDOR.m@ 724

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1PRCPRDOR ;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
Note: See TracBrowser for help on using the repository browser.