Routine: FHINI0NE

FHINI0NE	; ; 11-OCT-1995

	;;5.0;Dietetics;;Oct 11, 1995

	F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q	Q

	;;^UTILITY(U,$J,"OPT",1425,1,1,0)

	;;=This option allows for the creation/editing of supplemental

	;;^UTILITY(U,$J,"OPT",1425,1,2,0)

	;;=feeding menus in the Supplemental Feeding menu file (118.1).

	;;^UTILITY(U,$J,"OPT",1425,25)

	;;=EN4^FHNO1

	;;^UTILITY(U,$J,"OPT",1425,"U")

	;;=ENTER/EDIT SUPPLEMENTAL FEEDIN

	;;^UTILITY(U,$J,"OPT",1426,0)

	;;=FHMGR^Dietetics Management^^M^^^^^^^^DIETETICS^^1

	;;^UTILITY(U,$J,"OPT",1426,1,0)

	;;=^^3^3^2950420^^^^

	;;^UTILITY(U,$J,"OPT",1426,1,1,0)

	;;=This menu allows access to all options within the

	;;^UTILITY(U,$J,"OPT",1426,1,2,0)

	;;=Dietetics System, both administrative and clinical. Access to

	;;^UTILITY(U,$J,"OPT",1426,1,3,0)

	;;=all system management options is also available.

	;;^UTILITY(U,$J,"OPT",1426,10,0)

	;;=^19.01PI^11^5

	;;^UTILITY(U,$J,"OPT",1426,10,3,0)

	;;=1484^AD

	;;^UTILITY(U,$J,"OPT",1426,10,3,"^")

	;;=FHMGRA

	;;^UTILITY(U,$J,"OPT",1426,10,5,0)

	;;=1606^DF

	;;^UTILITY(U,$J,"OPT",1426,10,5,"^")

	;;=FHPRG

	;;^UTILITY(U,$J,"OPT",1426,10,8,0)

	;;=1490^SM

	;;^UTILITY(U,$J,"OPT",1426,10,8,"^")

	;;=FHSYSM

	;;^UTILITY(U,$J,"OPT",1426,10,10,0)

	;;=1492^CM

	;;^UTILITY(U,$J,"OPT",1426,10,10,"^")

	;;=FHMGRC

	;;^UTILITY(U,$J,"OPT",1426,10,11,0)

	;;=1493^XF

	;;^UTILITY(U,$J,"OPT",1426,10,11,"^")

	;;=FHFILM

	;;^UTILITY(U,$J,"OPT",1426,15)

;;=

	;;^UTILITY(U,$J,"OPT",1426,20)

	;;=S FHA1=1 D ^FHVER

	;;^UTILITY(U,$J,"OPT",1426,99)

	;;=56496,40787

	;;^UTILITY(U,$J,"OPT",1426,99.1)

	;;=54454,31794

	;;^UTILITY(U,$J,"OPT",1426,1613)

	;;=EVE

	;;^UTILITY(U,$J,"OPT",1426,"U")

	;;=DIETETICS MANAGEMENT

	;;^UTILITY(U,$J,"OPT",1427,0)

	;;=FHDIET^Clinical Dietetics^^M^^^^^^^^DIETETICS^^1

	;;^UTILITY(U,$J,"OPT",1427,1,0)

	;;=^^2^2^2950309^^^^

	;;^UTILITY(U,$J,"OPT",1427,1,1,0)

	;;=This menu contains all of the various options that the clinical

	;;^UTILITY(U,$J,"OPT",1427,1,2,0)

	;;=dietetics staff will require.

	;;^UTILITY(U,$J,"OPT",1427,10,0)

	;;=^19.01PI^13^12

	;;^UTILITY(U,$J,"OPT",1427,10,1,0)

	;;=1584^NM

	;;^UTILITY(U,$J,"OPT",1427,10,1,"^")

	;;=FHASCM

	;;^UTILITY(U,$J,"OPT",1427,10,2,0)

	;;=1417^EA

	;;^UTILITY(U,$J,"OPT",1427,10,2,"^")

	;;=FHNUM

	;;^UTILITY(U,$J,"OPT",1427,10,3,0)

	;;=1422^SF

	;;^UTILITY(U,$J,"OPT",1427,10,3,"^")

	;;=FHNOM

	;;^UTILITY(U,$J,"OPT",1427,10,4,0)

	;;=1410^PM

	;;^UTILITY(U,$J,"OPT",1427,10,4,"^")

	;;=FHPATM

	;;^UTILITY(U,$J,"OPT",1427,10,5,0)

	;;=1440^DO

	;;^UTILITY(U,$J,"OPT",1427,10,5,"^")

	;;=FHORDM

	;;^UTILITY(U,$J,"OPT",1427,10,6,0)

	;;=1449^DC

	;;^UTILITY(U,$J,"OPT",1427,10,6,"^")

	;;=FHORCM

	;;^UTILITY(U,$J,"OPT",1427,10,7,0)

	;;=1478^DR

	;;^UTILITY(U,$J,"OPT",1427,10,7,"^")

	;;=FHCDLST

	;;^UTILITY(U,$J,"OPT",1427,10,8,0)

	;;=1504^SO

	;;^UTILITY(U,$J,"OPT",1427,10,8,"^")

	;;=FHSPM

	;;^UTILITY(U,$J,"OPT",1427,10,9,0)

	;;=1560^FP

	;;^UTILITY(U,$J,"OPT",1427,10,9,"^")

	;;=FHSELM

	;;^UTILITY(U,$J,"OPT",1427,10,10,0)

	;;=1595^TF

	;;^UTILITY(U,$J,"OPT",1427,10,10,"^")

	;;=FHCTF

	;;^UTILITY(U,$J,"OPT",1427,10,12,0)

	;;=1624^LE

	;;^UTILITY(U,$J,"OPT",1427,10,12,"^")

	;;=FHASE7

	;;^UTILITY(U,$J,"OPT",1427,10,13,0)

	;;=1635^PE

	;;^UTILITY(U,$J,"OPT",1427,10,13,"^")

	;;=FHORX2

	;;^UTILITY(U,$J,"OPT",1427,15)

;;=

	;;^UTILITY(U,$J,"OPT",1427,20)

	;;=S FHA1=2 D ^FHVER

	;;^UTILITY(U,$J,"OPT",1427,99)

	;;=56496,40785

	;;^UTILITY(U,$J,"OPT",1427,99.1)

	;;=55410,42176

	;;^UTILITY(U,$J,"OPT",1427,"U")

	;;=CLINICAL DIETETICS

	;;^UTILITY(U,$J,"OPT",1428,0)

	;;=FHNU7^List Nutrient File^^R^^^^^^^^

	;;^UTILITY(U,$J,"OPT",1428,1,0)

	;;=^^2^2^2890606^^^^

	;;^UTILITY(U,$J,"OPT",1428,1,1,0)

	;;=This option will produce a complete listing of the Food Nutrients

	;;^UTILITY(U,$J,"OPT",1428,1,2,0)

	;;=file (112) except for the actual nutrient values.

	;;^UTILITY(U,$J,"OPT",1428,15)

;;=

	;;^UTILITY(U,$J,"OPT",1428,20)

;;=

	;;^UTILITY(U,$J,"OPT",1428,25)

	;;=EN5^FHNU

	;;^UTILITY(U,$J,"OPT",1428,30)

;;=

	;;^UTILITY(U,$J,"OPT",1428,60)

;;=

	;;^UTILITY(U,$J,"OPT",1428,62)

;;=

	;;^UTILITY(U,$J,"OPT",1428,63)

;;=

	;;^UTILITY(U,$J,"OPT",1428,64)

;;=

	;;^UTILITY(U,$J,"OPT",1428,65)

;;=

	;;^UTILITY(U,$J,"OPT",1428,66)

;;=

	;;^UTILITY(U,$J,"OPT",1428,67)

;;=

	;;^UTILITY(U,$J,"OPT",1428,"U")

	;;=LIST NUTRIENT FILE

	;;^UTILITY(U,$J,"OPT",1429,0)

	;;=FHNO5^List Supplemental Feedings^^R^^^^^^^^

	;;^UTILITY(U,$J,"OPT",1429,1,0)

	;;=^^3^3^2880717^^^

	;;^UTILITY(U,$J,"OPT",1429,1,1,0)

	;;=This option will list all supplemental feedings contained

	;;^UTILITY(U,$J,"OPT",1429,1,2,0)

	;;=in the Supplemental Feedings file (118) along will associated

	;;^UTILITY(U,$J,"OPT",1429,1,3,0)

	;;=data elements.

	;;^UTILITY(U,$J,"OPT",1429,25)

	;;=EN6^FHNO1

	;;^UTILITY(U,$J,"OPT",1429,"U")

	;;=LIST SUPPLEMENTAL FEEDINGS

FHINI0NE  ; ; 11-OCT-1995

 +1       ;;5.0;Dietetics;;Oct 11, 1995

 +2        FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^UTILITY(U,$J,"OPT",1425,1,1,0)

 +2       ;;=This option allows for the creation/editing of supplemental

 +3       ;;^UTILITY(U,$J,"OPT",1425,1,2,0)

 +4       ;;=feeding menus in the Supplemental Feeding menu file (118.1).

 +5       ;;^UTILITY(U,$J,"OPT",1425,25)

 +6       ;;=EN4^FHNO1

 +7       ;;^UTILITY(U,$J,"OPT",1425,"U")

 +8       ;;=ENTER/EDIT SUPPLEMENTAL FEEDIN

 +9       ;;^UTILITY(U,$J,"OPT",1426,0)

 +10      ;;=FHMGR^Dietetics Management^^M^^^^^^^^DIETETICS^^1

 +11      ;;^UTILITY(U,$J,"OPT",1426,1,0)

 +12      ;;=^^3^3^2950420^^^^

 +13      ;;^UTILITY(U,$J,"OPT",1426,1,1,0)

 +14      ;;=This menu allows access to all options within the

 +15      ;;^UTILITY(U,$J,"OPT",1426,1,2,0)

 +16      ;;=Dietetics System, both administrative and clinical. Access to

 +17      ;;^UTILITY(U,$J,"OPT",1426,1,3,0)

 +18      ;;=all system management options is also available.

 +19      ;;^UTILITY(U,$J,"OPT",1426,10,0)

 +20      ;;=^19.01PI^11^5

 +21      ;;^UTILITY(U,$J,"OPT",1426,10,3,0)

 +22      ;;=1484^AD

 +23      ;;^UTILITY(U,$J,"OPT",1426,10,3,"^")

 +24      ;;=FHMGRA

 +25      ;;^UTILITY(U,$J,"OPT",1426,10,5,0)

 +26      ;;=1606^DF

 +27      ;;^UTILITY(U,$J,"OPT",1426,10,5,"^")

 +28      ;;=FHPRG

 +29      ;;^UTILITY(U,$J,"OPT",1426,10,8,0)

 +30      ;;=1490^SM

 +31      ;;^UTILITY(U,$J,"OPT",1426,10,8,"^")

 +32      ;;=FHSYSM

 +33      ;;^UTILITY(U,$J,"OPT",1426,10,10,0)

 +34      ;;=1492^CM

 +35      ;;^UTILITY(U,$J,"OPT",1426,10,10,"^")

 +36      ;;=FHMGRC

 +37      ;;^UTILITY(U,$J,"OPT",1426,10,11,0)

 +38      ;;=1493^XF

 +39      ;;^UTILITY(U,$J,"OPT",1426,10,11,"^")

 +40      ;;=FHFILM

 +41      ;;^UTILITY(U,$J,"OPT",1426,15)

 +42      ;;=

 +43      ;;^UTILITY(U,$J,"OPT",1426,20)

 +44      ;;=S FHA1=1 D ^FHVER

 +45      ;;^UTILITY(U,$J,"OPT",1426,99)

 +46      ;;=56496,40787

 +47      ;;^UTILITY(U,$J,"OPT",1426,99.1)

 +48      ;;=54454,31794

 +49      ;;^UTILITY(U,$J,"OPT",1426,1613)

 +50      ;;=EVE

 +51      ;;^UTILITY(U,$J,"OPT",1426,"U")

 +52      ;;=DIETETICS MANAGEMENT

 +53      ;;^UTILITY(U,$J,"OPT",1427,0)

 +54      ;;=FHDIET^Clinical Dietetics^^M^^^^^^^^DIETETICS^^1

 +55      ;;^UTILITY(U,$J,"OPT",1427,1,0)

 +56      ;;=^^2^2^2950309^^^^

 +57      ;;^UTILITY(U,$J,"OPT",1427,1,1,0)

 +58      ;;=This menu contains all of the various options that the clinical

 +59      ;;^UTILITY(U,$J,"OPT",1427,1,2,0)

 +60      ;;=dietetics staff will require.

 +61      ;;^UTILITY(U,$J,"OPT",1427,10,0)

 +62      ;;=^19.01PI^13^12

 +63      ;;^UTILITY(U,$J,"OPT",1427,10,1,0)

 +64      ;;=1584^NM

 +65      ;;^UTILITY(U,$J,"OPT",1427,10,1,"^")

 +66      ;;=FHASCM

 +67      ;;^UTILITY(U,$J,"OPT",1427,10,2,0)

 +68      ;;=1417^EA

 +69      ;;^UTILITY(U,$J,"OPT",1427,10,2,"^")

 +70      ;;=FHNUM

 +71      ;;^UTILITY(U,$J,"OPT",1427,10,3,0)

 +72      ;;=1422^SF

 +73      ;;^UTILITY(U,$J,"OPT",1427,10,3,"^")

 +74      ;;=FHNOM

 +75      ;;^UTILITY(U,$J,"OPT",1427,10,4,0)

 +76      ;;=1410^PM

 +77      ;;^UTILITY(U,$J,"OPT",1427,10,4,"^")

 +78      ;;=FHPATM

 +79      ;;^UTILITY(U,$J,"OPT",1427,10,5,0)

 +80      ;;=1440^DO

 +81      ;;^UTILITY(U,$J,"OPT",1427,10,5,"^")

 +82      ;;=FHORDM

 +83      ;;^UTILITY(U,$J,"OPT",1427,10,6,0)

 +84      ;;=1449^DC

 +85      ;;^UTILITY(U,$J,"OPT",1427,10,6,"^")

 +86      ;;=FHORCM

 +87      ;;^UTILITY(U,$J,"OPT",1427,10,7,0)

 +88      ;;=1478^DR

 +89      ;;^UTILITY(U,$J,"OPT",1427,10,7,"^")

 +90      ;;=FHCDLST

 +91      ;;^UTILITY(U,$J,"OPT",1427,10,8,0)

 +92      ;;=1504^SO

 +93      ;;^UTILITY(U,$J,"OPT",1427,10,8,"^")

 +94      ;;=FHSPM

 +95      ;;^UTILITY(U,$J,"OPT",1427,10,9,0)

 +96      ;;=1560^FP

 +97      ;;^UTILITY(U,$J,"OPT",1427,10,9,"^")

 +98      ;;=FHSELM

 +99      ;;^UTILITY(U,$J,"OPT",1427,10,10,0)

 +100     ;;=1595^TF

 +101     ;;^UTILITY(U,$J,"OPT",1427,10,10,"^")

 +102     ;;=FHCTF

 +103     ;;^UTILITY(U,$J,"OPT",1427,10,12,0)

 +104     ;;=1624^LE

 +105     ;;^UTILITY(U,$J,"OPT",1427,10,12,"^")

 +106     ;;=FHASE7

 +107     ;;^UTILITY(U,$J,"OPT",1427,10,13,0)

 +108     ;;=1635^PE

 +109     ;;^UTILITY(U,$J,"OPT",1427,10,13,"^")

 +110     ;;=FHORX2

 +111     ;;^UTILITY(U,$J,"OPT",1427,15)

 +112     ;;=

 +113     ;;^UTILITY(U,$J,"OPT",1427,20)

 +114     ;;=S FHA1=2 D ^FHVER

 +115     ;;^UTILITY(U,$J,"OPT",1427,99)

 +116     ;;=56496,40785

 +117     ;;^UTILITY(U,$J,"OPT",1427,99.1)

 +118     ;;=55410,42176

 +119     ;;^UTILITY(U,$J,"OPT",1427,"U")

 +120     ;;=CLINICAL DIETETICS

 +121     ;;^UTILITY(U,$J,"OPT",1428,0)

 +122     ;;=FHNU7^List Nutrient File^^R^^^^^^^^

 +123     ;;^UTILITY(U,$J,"OPT",1428,1,0)

 +124     ;;=^^2^2^2890606^^^^

 +125     ;;^UTILITY(U,$J,"OPT",1428,1,1,0)

 +126     ;;=This option will produce a complete listing of the Food Nutrients

 +127     ;;^UTILITY(U,$J,"OPT",1428,1,2,0)

 +128     ;;=file (112) except for the actual nutrient values.

 +129     ;;^UTILITY(U,$J,"OPT",1428,15)

 +130     ;;=

 +131     ;;^UTILITY(U,$J,"OPT",1428,20)

 +132     ;;=

 +133     ;;^UTILITY(U,$J,"OPT",1428,25)

 +134     ;;=EN5^FHNU

 +135     ;;^UTILITY(U,$J,"OPT",1428,30)

 +136     ;;=

 +137     ;;^UTILITY(U,$J,"OPT",1428,60)

 +138     ;;=

 +139     ;;^UTILITY(U,$J,"OPT",1428,62)

 +140     ;;=

 +141     ;;^UTILITY(U,$J,"OPT",1428,63)

 +142     ;;=

 +143     ;;^UTILITY(U,$J,"OPT",1428,64)

 +144     ;;=

 +145     ;;^UTILITY(U,$J,"OPT",1428,65)

 +146     ;;=

 +147     ;;^UTILITY(U,$J,"OPT",1428,66)

 +148     ;;=

 +149     ;;^UTILITY(U,$J,"OPT",1428,67)

 +150     ;;=

 +151     ;;^UTILITY(U,$J,"OPT",1428,"U")

 +152     ;;=LIST NUTRIENT FILE

 +153     ;;^UTILITY(U,$J,"OPT",1429,0)

 +154     ;;=FHNO5^List Supplemental Feedings^^R^^^^^^^^

 +155     ;;^UTILITY(U,$J,"OPT",1429,1,0)

 +156     ;;=^^3^3^2880717^^^

 +157     ;;^UTILITY(U,$J,"OPT",1429,1,1,0)

 +158     ;;=This option will list all supplemental feedings contained

 +159     ;;^UTILITY(U,$J,"OPT",1429,1,2,0)

 +160     ;;=in the Supplemental Feedings file (118) along will associated

 +161     ;;^UTILITY(U,$J,"OPT",1429,1,3,0)

 +162     ;;=data elements.

 +163     ;;^UTILITY(U,$J,"OPT",1429,25)

 +164     ;;=EN6^FHNO1

 +165     ;;^UTILITY(U,$J,"OPT",1429,"U")

 +166     ;;=LIST SUPPLEMENTAL FEEDINGS

FHINI0NE.m