FHNU ; HISC/REL - Nutrient Analysis ;3/24/95 13:07
;;5.5;DIETETICS;;Jan 28, 2005
EN2 ; Edit Nutrients
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
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
EN5 ; List Nutrient File
W !!,"The list requires a 132 column printer.",!
W ! S L=0,DIC="^FHNU(",FLDS="[FHNULST]",BY="NAME"
S FR="",TO="",DHD="FOOD NUTRIENTS" D EN1^DIP,RSET Q
EN8 ; List User Menus
W !!,"The list requires a 132 column printer.",!
W ! S L=0,DIC="^FHUM(",FLDS="[FHUMENU]",BY="USER,DATE ENTERED"
S (FR,TO)=",",DHD="USER MENUS" D EN1^DIP,RSET Q
RSET K %ZIS S IOP="" D ^%ZIS
KIL G KILL^XUSCLEAN
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHNU 788 printed Nov 22, 2024@17:02:38 Page 2
FHNU ; HISC/REL - Nutrient Analysis ;3/24/95 13:07
+1 ;;5.5;DIETETICS;;Jan 28, 2005
EN2 ; Edit Nutrients
+1 SET (DIC,DIE)="^FHNU("
SET DIC(0)="AEQLM"
SET DIC("DR")=".01"
SET DLAYGO=112
WRITE !
DO ^DIC
KILL DIC,DLAYGO
if U[X!$DATA(DTOUT)
GOTO KIL
if Y<1
GOTO EN2
+2 SET DA=+Y
SET DR=$SELECT($PIECE(^FHNU(DA,0),"^",6)="N":"4:4.9",1:".01;2:5;7:27;29:99")
if $DATA(^XUSEC("FHMGR",DUZ))
SET DIDEL=112
DO ^DIE
KILL DA,DIE,DIDEL,DR
GOTO EN2
EN5 ; List Nutrient File
+1 WRITE !!,"The list requires a 132 column printer.",!
+2 WRITE !
SET L=0
SET DIC="^FHNU("
SET FLDS="[FHNULST]"
SET BY="NAME"
+3 SET FR=""
SET TO=""
SET DHD="FOOD NUTRIENTS"
DO EN1^DIP
DO RSET
QUIT
EN8 ; List User Menus
+1 WRITE !!,"The list requires a 132 column printer.",!
+2 WRITE !
SET L=0
SET DIC="^FHUM("
SET FLDS="[FHUMENU]"
SET BY="USER,DATE ENTERED"
+3 SET (FR,TO)=","
SET DHD="USER MENUS"
DO EN1^DIP
DO RSET
QUIT
RSET KILL %ZIS
SET IOP=""
DO ^%ZIS
KIL GOTO KILL^XUSCLEAN
