FHADM5 ; HISC/REL - Update Costs ;4/25/93  18:11 
 ;;5.5;DIETETICS;;Jan 28, 2005
EN3 ; Edit Ingredient Cost
 W ! S (DIC,DIE)="^FHING(",DIC(0)="AEQM" W ! D ^DIC K DIC G KIL:$D(DTOUT),E31:U[X,EN3:Y<1
 S DA=+Y,DR=8 D ^DIE K DA,DIE,DR,X,Y G EN3
E31 D ^FHREC3
KIL G KILL^XUSCLEAN