Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: FHADM5

FHADM5.m

Go to the documentation of this file.

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  Apr 09, 2024@20:57:02                                                                                                                                                                                                       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