source: FOIAVistA/trunk/r/AUTO_REPLENISHMENT_WARD_STOCK-PSGW/PSGWPERC.m@ 1397

Last change on this file since 1397 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 606 bytes
Line 
1PSGWPERC ;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.