Routine: PSGWPERC

PSGWPERC ;BHAM ISC/KKA - Print Percentage Stock On Hand ; 29 Dec 93 / 11:46 AM

 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94

 I '$D(PGWSITE) D ^PSGWSET Q:'$D(PSGWSITE)

 I $P(PSGWSITE,"^",5) D  K CONT Q

 .W *7,!!,"You may not use this option because the ""Merge Inventory Sheet and",!,"Pick List"" site parameter is set to ""YES"". If on hand amounts are not"

 .W !,"being entered, this report will not have the necessary data to produce",!,"accurate results."

 .W !!,"Press RETURN to continue: " R CONT:DTIME

 K DIC S DIC=58.1,L=0,FLDS="[PSGW PERCENTAGE]",BY="[PSGW PERCENTAGE]" D EN1^DIP K DIC

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGWPERC   615     printed  Apr 09, 2024@20:44:44                                                                                                                                                                                                     Page 2

PSGWPERC  ;BHAM ISC/KKA - Print Percentage Stock On Hand ; 29 Dec 93 / 11:46 AM

 +1       ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94

 +2        IF '$DATA(PGWSITE)

               DO ^PSGWSET

               if '$DATA(PSGWSITE)

                   QUIT

 +3        IF $PIECE(PSGWSITE,"^",5)

               Begin DoDot:1

 +4                WRITE *7,!!,"You may not use this option because the ""Merge Inventory Sheet and",!,"Pick List"" site parameter is set to ""YES"". If on hand amounts are not"

 +5                WRITE !,"being entered, this report will not have the necessary data to produce",!,"accurate results."

 +6                WRITE !!,"Press RETURN to continue: "

                   READ CONT:DTIME

               End DoDot:1

               KILL CONT

               QUIT

 +7        KILL DIC

           SET DIC=58.1

           SET L=0

           SET FLDS="[PSGW PERCENTAGE]"

           SET BY="[PSGW PERCENTAGE]"

           DO EN1^DIP

           KILL DIC

 +8        QUIT

PSGWPERC.m