PRCPRDOR.m

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 ---PRCPRDOR   1589     printed  Apr 09, 2024@21:08:10                                                                                                                                                                                                    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