PRCPRDOR ;WISC/RFJ-distribution duein and dueout reports ;22 Oct 92
;;5.1;IFCAP;;Oct 20, 2000
;Per VHA Directive 10-93-142, this routine should not be modified.
D ^PRCPUSEL Q:'$G(PRCP("I"))
I PRCP("DPTYPE")="W" W !,"THIS OPTION SHOULD ONLY BE USED BY PRIMARIES AND SECONDARIES." Q
N %,TYPE,UPDATE
S TYPE="OUT" I PRCP("DPTYPE")="S" S TYPE="IN"
W !!,"DUE-",TYPE," REPORT for inventory point ",PRCP("IN")
I $$KEY^PRCPUREP("PRCP"_$S(TYPE="IN":"2",1:"")_" MGRKEY",DUZ) D Q:%<1 S:%=1 UPDATE=1
. 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"
. 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."
. D DISPLAY^PRCPUX2(5,75,.X)
. S XP="Do you want to update the inventory DUE-"_TYPE_"'s"
. S XH="Enter 'YES' to update the DUE-"_TYPE_"'s, 'NO' to only print the report, '^' to exit."
. W ! S %=$$YN^PRCPUYN(2)
W ! I $G(UPDATE) W !,"In order to update the DUE-",TYPE,"'s, this report must be queued !"
S %ZIS="Q" D ^%ZIS Q:POP I $D(IO("Q")) D Q
. S ZTDESC="Distribution Order Due-"_TYPE_" Report",ZTRTN="DQ^PRCPRDO1"
. S ZTSAVE("PRCP*")="",ZTSAVE("TYPE")="",ZTSAVE("UPDATE")="",ZTSAVE("ZTREQ")="@"
. D ^%ZTLOAD
I $G(UPDATE) W !,"I am not updating the DUE-",TYPE,"'s since this report has not be QUEUED !" K UPDATE
W !!,"<*> please wait <*>"
D DQ^PRCPRDO1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCPRDOR 1589 printed Nov 22, 2024@17:24:56 Page 2
PRCPRDOR ;WISC/RFJ-distribution duein and dueout reports ;22 Oct 92
+1 ;;5.1;IFCAP;;Oct 20, 2000
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 DO ^PRCPUSEL
if '$GET(PRCP("I"))
QUIT
+4 IF PRCP("DPTYPE")="W"
WRITE !,"THIS OPTION SHOULD ONLY BE USED BY PRIMARIES AND SECONDARIES."
QUIT
+5 NEW %,TYPE,UPDATE
+6 SET TYPE="OUT"
IF PRCP("DPTYPE")="S"
SET TYPE="IN"
+7 WRITE !!,"DUE-",TYPE," REPORT for inventory point ",PRCP("IN")
+8 IF $$KEY^PRCPUREP("PRCP"_$SELECT(TYPE="IN":"2",1:"")_" MGRKEY",DUZ)
Begin DoDot:1
+9 KILL X
SET 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"
+10 SET 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."
+11 DO DISPLAY^PRCPUX2(5,75,.X)
+12 SET XP="Do you want to update the inventory DUE-"_TYPE_"'s"
+13 SET XH="Enter 'YES' to update the DUE-"_TYPE_"'s, 'NO' to only print the report, '^' to exit."
+14 WRITE !
SET %=$$YN^PRCPUYN(2)
End DoDot:1
if %<1
QUIT
if %=1
SET UPDATE=1
+15 WRITE !
IF $GET(UPDATE)
WRITE !,"In order to update the DUE-",TYPE,"'s, this report must be queued !"
+16 SET %ZIS="Q"
DO ^%ZIS
if POP
QUIT
IF $DATA(IO("Q"))
Begin DoDot:1
+17 SET ZTDESC="Distribution Order Due-"_TYPE_" Report"
SET ZTRTN="DQ^PRCPRDO1"
+18 SET ZTSAVE("PRCP*")=""
SET ZTSAVE("TYPE")=""
SET ZTSAVE("UPDATE")=""
SET ZTSAVE("ZTREQ")="@"
+19 DO ^%ZTLOAD
End DoDot:1
QUIT
+20 IF $GET(UPDATE)
WRITE !,"I am not updating the DUE-",TYPE,"'s since this report has not be QUEUED !"
KILL UPDATE
+21 WRITE !!,"<*> please wait <*>"
+22 DO DQ^PRCPRDO1
+23 QUIT
