- 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 Feb 18, 2025@23:12:48 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
