FHINI08D ; ; 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,2898,1)
;;=.62^.19^4.13^18^91.67^^^9^.53^11^21^116^18^.14^.079^.015^^329^1.9^.014
;;^UTILITY(U,$J,112,2898,2)
;;=.029^.06^.054^.013^1^0^.033^.044^0^.048^.003^.077^33^3.4
;;^UTILITY(U,$J,112,2898,3)
;;=.005^.017^.019^.026^.026^.005^.004^.017^.01^.02^.04^.009^.021^.037^.177^.022^.014^.018
;;^UTILITY(U,$J,112,2898,4)
;;=^.002^.002^.041^0^.005^.003
;;^UTILITY(U,$J,112,2898,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2899,0)
;;=PIGEON PEAS (RED GRAM), BOILED, W/SALT^16-402^cups^168^100^N
;;^UTILITY(U,$J,112,2899,1)
;;=6.76^.38^23.25^121^68.55^^^43^1.11^46^119^384^241^.9^.269^.501^^3^0^.146
;;^UTILITY(U,$J,112,2899,2)
;;=.059^.781^.319^.05^110.8^0^.196^.009^0^.083^.003^.205^0^1.06
;;^UTILITY(U,$J,112,2899,3)
;;=.066^.239^.245^.483^.474^.076^.078^.579^.168^.292^.405^.241^.303^.669^1.568^.25^.298^.32
;;^UTILITY(U,$J,112,2899,4)
;;=^^^.077^^.006^.003
;;^UTILITY(U,$J,112,2899,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2900,0)
;;=PINEAPPLE, CANDIED^1612-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2900,1)
;;=.8^.4^80^316^18^^^78^1.8^^56^944^6^^^^^100^84^.46
;;^UTILITY(U,$J,112,2900,2)
;;=.12^1.8^^^^^0^^0^0^^^^.8
;;^UTILITY(U,$J,112,2900,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,2900,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2901,0)
;;=POI^11-349^cups^240^100^N
;;^UTILITY(U,$J,112,2901,1)
;;=.38^.14^27.23^112^71.64^^^16^.88^24^39^183^12^.22^.166^.37^^20^4^.13
;;^UTILITY(U,$J,112,2901,2)
;;=.04^1.1^.293^.273^21.4^0^.04^.018^0^.029^.011^.058^2^.61^^^.4
;;^UTILITY(U,$J,112,2901,4)
;;=^^^.025^^.004^.011
;;^UTILITY(U,$J,112,2901,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2903,0)
;;=POMPANO, FLORIDA, COOKED, DRY HEAT^15-069^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2903,1)
;;=23.69^12.14^0^211^62.97^^^43^.67^31^341^636^76^.69^.078^.025^^120^0^.68
;;^UTILITY(U,$J,112,2903,2)
;;=.15^3.8^.87^.23^17.3^1.2^.055^^64^4.499^3.315^1.458^36^1.38^^^0
;;^UTILITY(U,$J,112,2903,3)
;;=.265^1.038^1.092^1.925^2.175^.701^.254^.925^.8^1.22^1.417^.697^1.433^2.426^3.536^1.137^.838^.966
;;^UTILITY(U,$J,112,2903,4)
;;=^^.208^.949^.251^.35^.747^.141
;;^UTILITY(U,$J,112,2903,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2904,0)
;;=POPCORN, POPPED, W/COCONUT OIL AND SALT ADDED^1655-1^cups^9^100^N
;;^UTILITY(U,$J,112,2904,1)
;;=9.8^21.8^59.1^456^3.1^^^8^2.1^^216^256^1940^^^^^0^0^.37
;;^UTILITY(U,$J,112,2904,2)
;;=.09^1.7^^^^^2.03^^0^15.85^^^^6.2
;;^UTILITY(U,$J,112,2904,4)
;;=^^^^^^2.33
;;^UTILITY(U,$J,112,2904,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2905,0)
;;=PORK, CURED, PICKLE AND PIMENTO LOAF^10-162^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2905,1)
;;=11.51^21.11^5.88^262^57.09^^^95^1.02^18^140^340^1389^1.4^.125^.029^^73^13.5^.293
;;^UTILITY(U,$J,112,2905,2)
;;=.254^2.054^.793^.19^5^1.18^2.31^.27^37^7.85^9.6^2.57^7^4.42^^^0
;;^UTILITY(U,$J,112,2905,3)
;;=.116^.521^.49^.948^.895^.254^.118^.438^.39^.556^.665^.343^.669^1.021^1.915^.768^.836^.567
;;^UTILITY(U,$J,112,2905,4)
;;=.07^.04^.33^4.69^.79^2.71^8.81^0
;;^UTILITY(U,$J,112,2905,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2906,0)
;;=PORK, FRESH, CHITTERLINGS, RAW^10-098^oz.^28.3^80^N
;;^UTILITY(U,$J,112,2906,1)
;;=10.05^23.05^.33^252^66.25^^^20^1.92^6^29^116^35^2.09^.166^.007^^0^4.4^.01
;;^UTILITY(U,$J,112,2906,2)
;;=.07^.08^.197^.01^2^.81^2.64^.15^159^7.93^7.86^5.87^0^.33^^^0
;;^UTILITY(U,$J,112,2906,3)
;;=.09^.421^.391^.764^.643^.17^.088^.371^.322^.471^.804^.201^.743^.944^1.346^1.185^.753^.471
;;^UTILITY(U,$J,112,2906,4)
;;=0^.01^.25^4.42^.67^3.24^.72^1.52
;;^UTILITY(U,$J,112,2906,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2907,0)
;;=POTATO PANCAKES, HOME-PREPARED^11-672^pancakes^76^100^N
;;^UTILITY(U,$J,112,2907,1)
;;=6.16^15.24^28.64^272^47.26^^^24^1.56^33^111^786^508^.83^.367^.41^^143^22^.135
;;^UTILITY(U,$J,112,2907,2)
;;=.173^2.143^.741^.379^24^.19^6.119^.381^96^3.044^4.639^6.541^14^2.69^^^2
;;^UTILITY(U,$J,112,2907,3)
;;=.085^.251^.286^.44^.388^.141^.112^.298^.234^.349^.334^.139^.26^.991^.995^.199^.263^.355
;;^UTILITY(U,$J,112,2907,4)
;;=.002^.005^.047^2.323^.094^.656^4.536^.032
;;^UTILITY(U,$J,112,2907,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2908,0)
;;=POTATOES, AU GRATIN, DRY MIX, PPD W/ WATER,MILK,BUTTER^11-385^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2908,1)
;;=2.3^4.12^12.84^93^78.98^^^83^.32^15^95^219^439^.24^.046^.13^^213^3.1^.02
;;^UTILITY(U,$J,112,2908,2)
;;=.081^.939^.239^.04^6.6^0^.083^.053^^2.586^1.175^.134^31^1.76
FHINI08D ; ; 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,2898,1)
+2 ;;=.62^.19^4.13^18^91.67^^^9^.53^11^21^116^18^.14^.079^.015^^329^1.9^.014
+3 ;;^UTILITY(U,$J,112,2898,2)
+4 ;;=.029^.06^.054^.013^1^0^.033^.044^0^.048^.003^.077^33^3.4
+5 ;;^UTILITY(U,$J,112,2898,3)
+6 ;;=.005^.017^.019^.026^.026^.005^.004^.017^.01^.02^.04^.009^.021^.037^.177^.022^.014^.018
+7 ;;^UTILITY(U,$J,112,2898,4)
+8 ;;=^.002^.002^.041^0^.005^.003
+9 ;;^UTILITY(U,$J,112,2898,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,2899,0)
+12 ;;=PIGEON PEAS (RED GRAM), BOILED, W/SALT^16-402^cups^168^100^N
+13 ;;^UTILITY(U,$J,112,2899,1)
+14 ;;=6.76^.38^23.25^121^68.55^^^43^1.11^46^119^384^241^.9^.269^.501^^3^0^.146
+15 ;;^UTILITY(U,$J,112,2899,2)
+16 ;;=.059^.781^.319^.05^110.8^0^.196^.009^0^.083^.003^.205^0^1.06
+17 ;;^UTILITY(U,$J,112,2899,3)
+18 ;;=.066^.239^.245^.483^.474^.076^.078^.579^.168^.292^.405^.241^.303^.669^1.568^.25^.298^.32
+19 ;;^UTILITY(U,$J,112,2899,4)
+20 ;;=^^^.077^^.006^.003
+21 ;;^UTILITY(U,$J,112,2899,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,2900,0)
+24 ;;=PINEAPPLE, CANDIED^1612-0^oz.^28.3^100^N
+25 ;;^UTILITY(U,$J,112,2900,1)
+26 ;;=.8^.4^80^316^18^^^78^1.8^^56^944^6^^^^^100^84^.46
+27 ;;^UTILITY(U,$J,112,2900,2)
+28 ;;=.12^1.8^^^^^0^^0^0^^^^.8
+29 ;;^UTILITY(U,$J,112,2900,4)
+30 ;;=^^^^^^0
+31 ;;^UTILITY(U,$J,112,2900,20)
+32 ;;=USDA Std. Reference, Release 8
+33 ;;^UTILITY(U,$J,112,2901,0)
+34 ;;=POI^11-349^cups^240^100^N
+35 ;;^UTILITY(U,$J,112,2901,1)
+36 ;;=.38^.14^27.23^112^71.64^^^16^.88^24^39^183^12^.22^.166^.37^^20^4^.13
+37 ;;^UTILITY(U,$J,112,2901,2)
+38 ;;=.04^1.1^.293^.273^21.4^0^.04^.018^0^.029^.011^.058^2^.61^^^.4
+39 ;;^UTILITY(U,$J,112,2901,4)
+40 ;;=^^^.025^^.004^.011
+41 ;;^UTILITY(U,$J,112,2901,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,2903,0)
+44 ;;=POMPANO, FLORIDA, COOKED, DRY HEAT^15-069^oz.^28.3^100^N
+45 ;;^UTILITY(U,$J,112,2903,1)
+46 ;;=23.69^12.14^0^211^62.97^^^43^.67^31^341^636^76^.69^.078^.025^^120^0^.68
+47 ;;^UTILITY(U,$J,112,2903,2)
+48 ;;=.15^3.8^.87^.23^17.3^1.2^.055^^64^4.499^3.315^1.458^36^1.38^^^0
+49 ;;^UTILITY(U,$J,112,2903,3)
+50 ;;=.265^1.038^1.092^1.925^2.175^.701^.254^.925^.8^1.22^1.417^.697^1.433^2.426^3.536^1.137^.838^.966
+51 ;;^UTILITY(U,$J,112,2903,4)
+52 ;;=^^.208^.949^.251^.35^.747^.141
+53 ;;^UTILITY(U,$J,112,2903,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2904,0)
+56 ;;=POPCORN, POPPED, W/COCONUT OIL AND SALT ADDED^1655-1^cups^9^100^N
+57 ;;^UTILITY(U,$J,112,2904,1)
+58 ;;=9.8^21.8^59.1^456^3.1^^^8^2.1^^216^256^1940^^^^^0^0^.37
+59 ;;^UTILITY(U,$J,112,2904,2)
+60 ;;=.09^1.7^^^^^2.03^^0^15.85^^^^6.2
+61 ;;^UTILITY(U,$J,112,2904,4)
+62 ;;=^^^^^^2.33
+63 ;;^UTILITY(U,$J,112,2904,20)
+64 ;;=USDA Std. Reference, Release 8
+65 ;;^UTILITY(U,$J,112,2905,0)
+66 ;;=PORK, CURED, PICKLE AND PIMENTO LOAF^10-162^oz.^28.3^100^N
+67 ;;^UTILITY(U,$J,112,2905,1)
+68 ;;=11.51^21.11^5.88^262^57.09^^^95^1.02^18^140^340^1389^1.4^.125^.029^^73^13.5^.293
+69 ;;^UTILITY(U,$J,112,2905,2)
+70 ;;=.254^2.054^.793^.19^5^1.18^2.31^.27^37^7.85^9.6^2.57^7^4.42^^^0
+71 ;;^UTILITY(U,$J,112,2905,3)
+72 ;;=.116^.521^.49^.948^.895^.254^.118^.438^.39^.556^.665^.343^.669^1.021^1.915^.768^.836^.567
+73 ;;^UTILITY(U,$J,112,2905,4)
+74 ;;=.07^.04^.33^4.69^.79^2.71^8.81^0
+75 ;;^UTILITY(U,$J,112,2905,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2906,0)
+78 ;;=PORK, FRESH, CHITTERLINGS, RAW^10-098^oz.^28.3^80^N
+79 ;;^UTILITY(U,$J,112,2906,1)
+80 ;;=10.05^23.05^.33^252^66.25^^^20^1.92^6^29^116^35^2.09^.166^.007^^0^4.4^.01
+81 ;;^UTILITY(U,$J,112,2906,2)
+82 ;;=.07^.08^.197^.01^2^.81^2.64^.15^159^7.93^7.86^5.87^0^.33^^^0
+83 ;;^UTILITY(U,$J,112,2906,3)
+84 ;;=.09^.421^.391^.764^.643^.17^.088^.371^.322^.471^.804^.201^.743^.944^1.346^1.185^.753^.471
+85 ;;^UTILITY(U,$J,112,2906,4)
+86 ;;=0^.01^.25^4.42^.67^3.24^.72^1.52
+87 ;;^UTILITY(U,$J,112,2906,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,2907,0)
+90 ;;=POTATO PANCAKES, HOME-PREPARED^11-672^pancakes^76^100^N
+91 ;;^UTILITY(U,$J,112,2907,1)
+92 ;;=6.16^15.24^28.64^272^47.26^^^24^1.56^33^111^786^508^.83^.367^.41^^143^22^.135
+93 ;;^UTILITY(U,$J,112,2907,2)
+94 ;;=.173^2.143^.741^.379^24^.19^6.119^.381^96^3.044^4.639^6.541^14^2.69^^^2
+95 ;;^UTILITY(U,$J,112,2907,3)
+96 ;;=.085^.251^.286^.44^.388^.141^.112^.298^.234^.349^.334^.139^.26^.991^.995^.199^.263^.355
+97 ;;^UTILITY(U,$J,112,2907,4)
+98 ;;=.002^.005^.047^2.323^.094^.656^4.536^.032
+99 ;;^UTILITY(U,$J,112,2907,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,2908,0)
+102 ;;=POTATOES, AU GRATIN, DRY MIX, PPD W/ WATER,MILK,BUTTER^11-385^oz.^28.3^100^N
+103 ;;^UTILITY(U,$J,112,2908,1)
+104 ;;=2.3^4.12^12.84^93^78.98^^^83^.32^15^95^219^439^.24^.046^.13^^213^3.1^.02
+105 ;;^UTILITY(U,$J,112,2908,2)
+106 ;;=.081^.939^.239^.04^6.6^0^.083^.053^^2.586^1.175^.134^31^1.76
