Last change
on this file since 631 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
275 bytes
|
Rev | Line | |
---|
[628] | 1 | FHADM5 ; HISC/REL - Update Costs ;4/25/93 18:11
|
---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
---|
| 3 | EN3 ; Edit Ingredient Cost
|
---|
| 4 | W ! S (DIC,DIE)="^FHING(",DIC(0)="AEQM" W ! D ^DIC K DIC G KIL:$D(DTOUT),E31:U[X,EN3:Y<1
|
---|
| 5 | S DA=+Y,DR=8 D ^DIE K DA,DIE,DR,X,Y G EN3
|
---|
| 6 | E31 D ^FHREC3
|
---|
| 7 | KIL G KILL^XUSCLEAN
|
---|
Note:
See
TracBrowser
for help on using the repository browser.