FHADM5.m

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

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