source:
FOIAVistA/tag/r/DIETETICS-FH/FHADM5.m@
1785
Last change on this file since 1785 was 628, checked in by , 15 years ago | |
---|---|
File size: 275 bytes |
Line | |
---|---|
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.