| [613] | 1 | FHNU ; HISC/REL - Nutrient Analysis ;3/24/95 13:07
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | EN2 ; Edit Nutrients
|
|---|
| 4 | S (DIC,DIE)="^FHNU(",DIC(0)="AEQLM",DIC("DR")=".01",DLAYGO=112 W ! D ^DIC K DIC,DLAYGO G KIL:U[X!$D(DTOUT),EN2:Y<1
|
|---|
| 5 | S DA=+Y,DR=$S($P(^FHNU(DA,0),"^",6)="N":"4:4.9",1:".01;2:5;7:27;29:99") S:$D(^XUSEC("FHMGR",DUZ)) DIDEL=112 D ^DIE K DA,DIE,DIDEL,DR G EN2
|
|---|
| 6 | EN5 ; List Nutrient File
|
|---|
| 7 | W !!,"The list requires a 132 column printer.",!
|
|---|
| 8 | W ! S L=0,DIC="^FHNU(",FLDS="[FHNULST]",BY="NAME"
|
|---|
| 9 | S FR="",TO="",DHD="FOOD NUTRIENTS" D EN1^DIP,RSET Q
|
|---|
| 10 | EN8 ; List User Menus
|
|---|
| 11 | W !!,"The list requires a 132 column printer.",!
|
|---|
| 12 | W ! S L=0,DIC="^FHUM(",FLDS="[FHUMENU]",BY="USER,DATE ENTERED"
|
|---|
| 13 | S (FR,TO)=",",DHD="USER MENUS" D EN1^DIP,RSET Q
|
|---|
| 14 | RSET K %ZIS S IOP="" D ^%ZIS
|
|---|
| 15 | KIL G KILL^XUSCLEAN
|
|---|
