source: WorldVistAEHR/trunk/r/DIETETICS-FH/FHADM5.m@ 1361

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

initial load of WorldVistAEHR

File size: 275 bytes
RevLine 
[613]1FHADM5 ; HISC/REL - Update Costs ;4/25/93 18:11
2 ;;5.5;DIETETICS;;Jan 28, 2005
3EN3 ; Edit Ingredient Cost
4 W ! S (DIC,DIE)="^FHING(",DIC(0)="AEQM" W ! D ^DIC K DIC G KIL:$D(DTOUT),E31:U[X,EN3:Y<1
5 S DA=+Y,DR=8 D ^DIE K DA,DIE,DR,X,Y G EN3
6E31 D ^FHREC3
7KIL G KILL^XUSCLEAN
Note: See TracBrowser for help on using the repository browser.