Last change
on this file since 691 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
606 bytes
|
Rev | Line | |
---|
[613] | 1 | PSGWPERC ;BHAM ISC/KKA - Print Percentage Stock On Hand ; 29 Dec 93 / 11:46 AM
|
---|
| 2 | ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
|
---|
| 3 | I '$D(PGWSITE) D ^PSGWSET Q:'$D(PSGWSITE)
|
---|
| 4 | I $P(PSGWSITE,"^",5) D K CONT Q
|
---|
| 5 | .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"
|
---|
| 6 | .W !,"being entered, this report will not have the necessary data to produce",!,"accurate results."
|
---|
| 7 | .W !!,"Press RETURN to continue: " R CONT:DTIME
|
---|
| 8 | K DIC S DIC=58.1,L=0,FLDS="[PSGW PERCENTAGE]",BY="[PSGW PERCENTAGE]" D EN1^DIP K DIC
|
---|
| 9 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.