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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSGWPERC 615 printed Oct 16, 2024@17:40:40 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
