|
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
|