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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHADM5 282 printed Dec 13, 2024@01:46:25 Page 2
FHADM5 ; HISC/REL - Update Costs ;4/25/93 18:11
+1 ;;5.5;DIETETICS;;Jan 28, 2005
EN3 ; Edit Ingredient Cost
+1 WRITE !
SET (DIC,DIE)="^FHING("
SET DIC(0)="AEQM"
WRITE !
DO ^DIC
KILL DIC
if $DATA(DTOUT)
GOTO KIL
if U[X
GOTO E31
if Y<1
GOTO EN3
+2 SET DA=+Y
SET DR=8
DO ^DIE
KILL DA,DIE,DR,X,Y
GOTO EN3
E31 DO ^FHREC3
KIL GOTO KILL^XUSCLEAN
