FHNU.m

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 ---FHNU   788     printed  Apr 09, 2024@20:53:19                                                                                                                                                                                                         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