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
