FHINI082 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(112) 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,112,2797,4)
;;=^^^.105^.001^.014^.23
;;^UTILITY(U,$J,112,2797,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2798,0)
;;=HOMINY, CANNED, YELLOW^20-330^cups^160^100^N
;;^UTILITY(U,$J,112,2798,1)
;;=1.48^.88^14.26^72^82.53^^^10^.62^16^35^9^210^1.05^.03^.07^^110^0^.003
;;^UTILITY(U,$J,112,2798,2)
;;=.006^.033^.154^.005^1^0^.387^.012^0^.123^.231^.399^11^.86
;;^UTILITY(U,$J,112,2798,3)
;;=.008^.05^.058^.202^.033^.031^.033^.076^.056^.077^.068^.045^.107^.115^.299^.052^.138^.065
;;^UTILITY(U,$J,112,2798,4)
;;=^^^.105^.001^.014^.23
;;^UTILITY(U,$J,112,2798,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2799,0)
;;=HORSE, ROASTED^17-171^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2799,1)
;;=28.14^6.05^0^175^63.98^^^8^5.03^25^247^379^55^3.82^.171^.022^^0^2^.1
;;^UTILITY(U,$J,112,2799,2)
;;=.12^4.84^^.33^^3.16^.38^.47^68^1.9^2.12^.85^0^1.31^^^0
;;^UTILITY(U,$J,112,2799,3)
;;=.349^1.262^1.334^2.232^2.398^.623^.393^1.157^.882^1.458^1.843^1.081^1.616^2.768^4.101^1.359^1.307^1.074
;;^UTILITY(U,$J,112,2799,4)
;;=^.01^.22^1.41^.41^.2^1.71
;;^UTILITY(U,$J,112,2799,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2800,0)
;;=JACKFRUIT, RAW^9-144^oz.^28.3^28^N
;;^UTILITY(U,$J,112,2800,1)
;;=1.47^.3^24.01^94^73.23^^^34^.6^37^36^303^3^.42^.187^.197^^297^6.7^.03
;;^UTILITY(U,$J,112,2800,2)
;;=.11^.4^^.108^^0^^^0^^^^30^1^^^1.6
;;^UTILITY(U,$J,112,2800,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2801,0)
;;=JUJUBE, DRIED^9-147^oz.^28.3^89^N
;;^UTILITY(U,$J,112,2801,1)
;;=3.7^1.1^73.6^287^19.7^^^79^1.8^37^100^531^9^.19^.265^.305^^^13^.21
;;^UTILITY(U,$J,112,2801,2)
;;=.36^.5^^^^0^^^0^^^^^1.9
;;^UTILITY(U,$J,112,2801,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2802,0)
;;=JUJUBE, RAW^9-146^oz.^28.3^93^N
;;^UTILITY(U,$J,112,2802,1)
;;=1.2^.2^20.23^79^77.86^^^21^.48^10^23^250^3^.05^.073^.084^^40^69^.02
;;^UTILITY(U,$J,112,2802,2)
;;=.04^.9^^.081^^0^^^0^^^^4^.51
;;^UTILITY(U,$J,112,2802,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2803,0)
;;=LEEKS, BOILED, DRAINED, W/SALT^11-795^cups^104^108^N
;;^UTILITY(U,$J,112,2803,1)
;;=.81^.2^7.62^31^90.8^^^30^1.1^14^17^87^246^.06^.062^.247^^46^4.2^.026
;;^UTILITY(U,$J,112,2803,2)
;;=.02^.2^.072^.113^24.3^0^.045^.066^0^.027^.003^.111^5^.57
;;^UTILITY(U,$J,112,2803,3)
;;=.006^.034^.028^.052^.042^.01^.014^.03^.022^.031^.042^.014^.04^.076^.123^.037^.036^.05
;;^UTILITY(U,$J,112,2803,4)
;;=^^^.025^^.001^.003
;;^UTILITY(U,$J,112,2803,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2804,0)
;;=LEMON PEEL, CANDIED^1250-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2804,1)
;;=.4^.3^80.6^316^17.4^^^0^0^^0^0^0^^^^^0^0^0
;;^UTILITY(U,$J,112,2804,2)
;;=0^0^^^^^0^^0^0^^^^1.3
;;^UTILITY(U,$J,112,2804,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,2804,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2805,0)
;;=LEMON PEEL, RAW^9-156^tsp.^2^100^N
;;^UTILITY(U,$J,112,2805,1)
;;=1.5^.3^16^^81.6^^^134^.8^15^12^160^6^^^^^50^129^.06
;;^UTILITY(U,$J,112,2805,2)
;;=.08^.4^.319^.172^^0^.063^.026^0^.039^.011^.089^5^.6^^^10.6
;;^UTILITY(U,$J,112,2805,4)
;;=^^.001^.035^.001^.002^.01
;;^UTILITY(U,$J,112,2805,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2806,0)
;;=LEMONS, RAW, WO/PEEL^9-150^fruits^58^53^N
;;^UTILITY(U,$J,112,2806,1)
;;=1.1^.3^9.32^29^88.98^^^26^.6^8^16^138^2^.06^.037^.03^^29^53^.04
;;^UTILITY(U,$J,112,2806,2)
;;=.02^.1^.19^.08^10.6^0^.063^.026^0^.039^.011^.089^3^.3^^^2.8
;;^UTILITY(U,$J,112,2806,4)
;;=^^.001^.035^.001^.002^.01^^.2
;;^UTILITY(U,$J,112,2806,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2807,0)
;;=LENTILS, SPROUTED, CKD, STIR-FRIED, W/SALT^11-926^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2807,1)
;;=8.8^.45^21.25^101^68.7^^^14^3.1^35^153^284^246^1.6^.337^.502^^41^12.6^.22
;;^UTILITY(U,$J,112,2807,2)
;;=^^^^^^.166^.035^0^.053^.095^.201^4^.8
;;^UTILITY(U,$J,112,2807,3)
;;=^.322^.32^.617^.698^.103^.328^.434^.248^.391^.6^.252^.349^1.407^1.235^.313^.349^.486
;;^UTILITY(U,$J,112,2807,4)
;;=^^^.047^^.005^.095
;;^UTILITY(U,$J,112,2807,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2808,0)
;;=LIMES, RAW^9-159^fruits^67^84^N
;;^UTILITY(U,$J,112,2808,1)
;;=.7^.2^10.54^30^88.26^^^33^.6^6^18^102^2^.11^.065^.008^^10^29.1^.03
;;^UTILITY(U,$J,112,2808,2)
;;=.02^.2^.217^.043^8.2^0^.036^.019^0^.022^.019^.055^1^.3^^^2.8
;;^UTILITY(U,$J,112,2808,3)
;;=.003^^^^.014^.002
;;^UTILITY(U,$J,112,2808,4)
;;=^^.001^.02^.003^.001^.016
;;^UTILITY(U,$J,112,2808,20)
;;=USDA Std. Reference, Release 10
FHINI082 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(112)
QUIT
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,112,2797,4)
+2 ;;=^^^.105^.001^.014^.23
+3 ;;^UTILITY(U,$J,112,2797,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,2798,0)
+6 ;;=HOMINY, CANNED, YELLOW^20-330^cups^160^100^N
+7 ;;^UTILITY(U,$J,112,2798,1)
+8 ;;=1.48^.88^14.26^72^82.53^^^10^.62^16^35^9^210^1.05^.03^.07^^110^0^.003
+9 ;;^UTILITY(U,$J,112,2798,2)
+10 ;;=.006^.033^.154^.005^1^0^.387^.012^0^.123^.231^.399^11^.86
+11 ;;^UTILITY(U,$J,112,2798,3)
+12 ;;=.008^.05^.058^.202^.033^.031^.033^.076^.056^.077^.068^.045^.107^.115^.299^.052^.138^.065
+13 ;;^UTILITY(U,$J,112,2798,4)
+14 ;;=^^^.105^.001^.014^.23
+15 ;;^UTILITY(U,$J,112,2798,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2799,0)
+18 ;;=HORSE, ROASTED^17-171^oz.^28.3^100^N
+19 ;;^UTILITY(U,$J,112,2799,1)
+20 ;;=28.14^6.05^0^175^63.98^^^8^5.03^25^247^379^55^3.82^.171^.022^^0^2^.1
+21 ;;^UTILITY(U,$J,112,2799,2)
+22 ;;=.12^4.84^^.33^^3.16^.38^.47^68^1.9^2.12^.85^0^1.31^^^0
+23 ;;^UTILITY(U,$J,112,2799,3)
+24 ;;=.349^1.262^1.334^2.232^2.398^.623^.393^1.157^.882^1.458^1.843^1.081^1.616^2.768^4.101^1.359^1.307^1.074
+25 ;;^UTILITY(U,$J,112,2799,4)
+26 ;;=^.01^.22^1.41^.41^.2^1.71
+27 ;;^UTILITY(U,$J,112,2799,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,2800,0)
+30 ;;=JACKFRUIT, RAW^9-144^oz.^28.3^28^N
+31 ;;^UTILITY(U,$J,112,2800,1)
+32 ;;=1.47^.3^24.01^94^73.23^^^34^.6^37^36^303^3^.42^.187^.197^^297^6.7^.03
+33 ;;^UTILITY(U,$J,112,2800,2)
+34 ;;=.11^.4^^.108^^0^^^0^^^^30^1^^^1.6
+35 ;;^UTILITY(U,$J,112,2800,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,2801,0)
+38 ;;=JUJUBE, DRIED^9-147^oz.^28.3^89^N
+39 ;;^UTILITY(U,$J,112,2801,1)
+40 ;;=3.7^1.1^73.6^287^19.7^^^79^1.8^37^100^531^9^.19^.265^.305^^^13^.21
+41 ;;^UTILITY(U,$J,112,2801,2)
+42 ;;=.36^.5^^^^0^^^0^^^^^1.9
+43 ;;^UTILITY(U,$J,112,2801,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,2802,0)
+46 ;;=JUJUBE, RAW^9-146^oz.^28.3^93^N
+47 ;;^UTILITY(U,$J,112,2802,1)
+48 ;;=1.2^.2^20.23^79^77.86^^^21^.48^10^23^250^3^.05^.073^.084^^40^69^.02
+49 ;;^UTILITY(U,$J,112,2802,2)
+50 ;;=.04^.9^^.081^^0^^^0^^^^4^.51
+51 ;;^UTILITY(U,$J,112,2802,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2803,0)
+54 ;;=LEEKS, BOILED, DRAINED, W/SALT^11-795^cups^104^108^N
+55 ;;^UTILITY(U,$J,112,2803,1)
+56 ;;=.81^.2^7.62^31^90.8^^^30^1.1^14^17^87^246^.06^.062^.247^^46^4.2^.026
+57 ;;^UTILITY(U,$J,112,2803,2)
+58 ;;=.02^.2^.072^.113^24.3^0^.045^.066^0^.027^.003^.111^5^.57
+59 ;;^UTILITY(U,$J,112,2803,3)
+60 ;;=.006^.034^.028^.052^.042^.01^.014^.03^.022^.031^.042^.014^.04^.076^.123^.037^.036^.05
+61 ;;^UTILITY(U,$J,112,2803,4)
+62 ;;=^^^.025^^.001^.003
+63 ;;^UTILITY(U,$J,112,2803,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2804,0)
+66 ;;=LEMON PEEL, CANDIED^1250-0^oz.^28.3^100^N
+67 ;;^UTILITY(U,$J,112,2804,1)
+68 ;;=.4^.3^80.6^316^17.4^^^0^0^^0^0^0^^^^^0^0^0
+69 ;;^UTILITY(U,$J,112,2804,2)
+70 ;;=0^0^^^^^0^^0^0^^^^1.3
+71 ;;^UTILITY(U,$J,112,2804,4)
+72 ;;=^^^^^^0
+73 ;;^UTILITY(U,$J,112,2804,20)
+74 ;;=USDA Std. Reference, Release 8
+75 ;;^UTILITY(U,$J,112,2805,0)
+76 ;;=LEMON PEEL, RAW^9-156^tsp.^2^100^N
+77 ;;^UTILITY(U,$J,112,2805,1)
+78 ;;=1.5^.3^16^^81.6^^^134^.8^15^12^160^6^^^^^50^129^.06
+79 ;;^UTILITY(U,$J,112,2805,2)
+80 ;;=.08^.4^.319^.172^^0^.063^.026^0^.039^.011^.089^5^.6^^^10.6
+81 ;;^UTILITY(U,$J,112,2805,4)
+82 ;;=^^.001^.035^.001^.002^.01
+83 ;;^UTILITY(U,$J,112,2805,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,2806,0)
+86 ;;=LEMONS, RAW, WO/PEEL^9-150^fruits^58^53^N
+87 ;;^UTILITY(U,$J,112,2806,1)
+88 ;;=1.1^.3^9.32^29^88.98^^^26^.6^8^16^138^2^.06^.037^.03^^29^53^.04
+89 ;;^UTILITY(U,$J,112,2806,2)
+90 ;;=.02^.1^.19^.08^10.6^0^.063^.026^0^.039^.011^.089^3^.3^^^2.8
+91 ;;^UTILITY(U,$J,112,2806,4)
+92 ;;=^^.001^.035^.001^.002^.01^^.2
+93 ;;^UTILITY(U,$J,112,2806,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2807,0)
+96 ;;=LENTILS, SPROUTED, CKD, STIR-FRIED, W/SALT^11-926^oz.^28.3^100^N
+97 ;;^UTILITY(U,$J,112,2807,1)
+98 ;;=8.8^.45^21.25^101^68.7^^^14^3.1^35^153^284^246^1.6^.337^.502^^41^12.6^.22
+99 ;;^UTILITY(U,$J,112,2807,2)
+100 ;;=^^^^^^.166^.035^0^.053^.095^.201^4^.8
+101 ;;^UTILITY(U,$J,112,2807,3)
+102 ;;=^.322^.32^.617^.698^.103^.328^.434^.248^.391^.6^.252^.349^1.407^1.235^.313^.349^.486
+103 ;;^UTILITY(U,$J,112,2807,4)
+104 ;;=^^^.047^^.005^.095
+105 ;;^UTILITY(U,$J,112,2807,20)
+106 ;;=USDA Std. Reference, Release 10
+107 ;;^UTILITY(U,$J,112,2808,0)
+108 ;;=LIMES, RAW^9-159^fruits^67^84^N
+109 ;;^UTILITY(U,$J,112,2808,1)
+110 ;;=.7^.2^10.54^30^88.26^^^33^.6^6^18^102^2^.11^.065^.008^^10^29.1^.03
+111 ;;^UTILITY(U,$J,112,2808,2)
+112 ;;=.02^.2^.217^.043^8.2^0^.036^.019^0^.022^.019^.055^1^.3^^^2.8
+113 ;;^UTILITY(U,$J,112,2808,3)
+114 ;;=.003^^^^.014^.002
+115 ;;^UTILITY(U,$J,112,2808,4)
+116 ;;=^^.001^.02^.003^.001^.016
+117 ;;^UTILITY(U,$J,112,2808,20)
+118 ;;=USDA Std. Reference, Release 10
