FHINI08B ; ; 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,2881,2)
;;=.15^.992^.183^.034^7^.14^.392^.037^33^.15^.124^.429^6^.3
;;^UTILITY(U,$J,112,2881,3)
;;=.065^.134^.197^.348^.097^.079^.143^.247^.134^.217^.187^.103^.149^.208^1.832^.161^.559^.24
;;^UTILITY(U,$J,112,2881,4)
;;=^^.002^.131^^.017^.124
;;^UTILITY(U,$J,112,2881,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2882,0)
;;=PASTA, FRESH-REFRIGERATED, SPINACH, COOKED^20-096^oz.^28.3^318^N
;;^UTILITY(U,$J,112,2882,1)
;;=5.06^.94^25.04^130^68.58^^^18^1.11^24^57^37^6^.63^.08^.316^^103^0^.178
;;^UTILITY(U,$J,112,2882,2)
;;=.134^1.011^.232^.113^18^.14^.181^.029^33^.217^.296^.21^14^.37
;;^UTILITY(U,$J,112,2882,3)
;;=.067^.158^.219^.365^.151^.093^.134^.252^.149^.245^.216^.107^.179^.27^1.55^.166^.474^.259
;;^UTILITY(U,$J,112,2882,4)
;;=^^.003^.174^.028^.039^.267
;;^UTILITY(U,$J,112,2882,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2883,0)
;;=PASTA, HOMEMADE, MADE WITH EGG, COOKED^20-097^oz.^28.3^320^N
;;^UTILITY(U,$J,112,2883,1)
;;=5.28^1.74^23.54^130^68.71^^^10^1.16^14^52^21^83^.44^.056^.183^^58^0^.173
;;^UTILITY(U,$J,112,2883,2)
;;=.174^1.257^.231^.037^19^.1^.459^.045^41^.408^.508^.521^17^.73
;;^UTILITY(U,$J,112,2883,3)
;;=.067^.166^.223^.382^.165^.101^.143^.262^.156^.247^.223^.111^.187^.288^1.628^.169^.497^.282
;;^UTILITY(U,$J,112,2883,4)
;;=0^0^.004^.301^.03^.097^.473^.014
;;^UTILITY(U,$J,112,2883,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2884,0)
;;=PASTA, HOMEMADE, MADE WITHOUT EGG, COOKED^20-098^oz.^28.3^321^N
;;^UTILITY(U,$J,112,2884,1)
;;=4.37^.98^25.12^124^68.86^^^6^1.13^14^40^19^74^.37^.06^.193^^0^0^.182
;;^UTILITY(U,$J,112,2884,2)
;;=.148^1.343^.15^.028^17^0^.453^.055^0^.14^.187^.508^0^.66
;;^UTILITY(U,$J,112,2884,3)
;;=.056^.116^.169^.299^.084^.068^.123^.212^.115^.186^.161^.089^.128^.179^1.577^.138^.481^.206
;;^UTILITY(U,$J,112,2884,4)
;;=^^.001^.109^.001^.029^.185
;;^UTILITY(U,$J,112,2884,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2885,0)
;;=PEAS, EDIBLE-PODDED, FRZ, BOILED, DRAINED, W/SALT^11-810^cups^160^100^N
;;^UTILITY(U,$J,112,2885,1)
;;=3.5^.38^9.02^52^86.6^^^59^2.4^28^58^217^241^.49^.09^.28^^167^22^.064
;;^UTILITY(U,$J,112,2885,2)
;;=.119^.563^.857^.174^35.2^0^.142^.025^0^.073^.039^.167^17^.5
;;^UTILITY(U,$J,112,2885,3)
;;=.034^.123^.202^.286^.252^.014^.04^.112^.123^.342^.168^.022^.073^.286^.56^.09^.078^.157
;;^UTILITY(U,$J,112,2885,4)
;;=^^.003^.063^0^.006^.039
;;^UTILITY(U,$J,112,2885,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2886,0)
;;=PEAS, EDIBLE-PODDED, FRZ, BOILED, DRAINED, WO/SALT^11-303^cups^160^100^N
;;^UTILITY(U,$J,112,2886,1)
;;=3.5^.38^9.02^52^86.6^^^59^2.4^28^58^217^5^.49^.09^.28^^167^22^.064
;;^UTILITY(U,$J,112,2886,2)
;;=.119^.563^.857^.174^35.2^0^.142^.025^0^.073^.039^.167^17^.5
;;^UTILITY(U,$J,112,2886,3)
;;=.034^.123^.202^.286^.252^.014^.04^.112^.123^.342^.168^.022^.073^.286^.56^.09^.078^.157
;;^UTILITY(U,$J,112,2886,4)
;;=^^.003^.063^0^.006^.039
;;^UTILITY(U,$J,112,2886,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2887,0)
;;=PEPPERS, SWEET, GREEN, FRZ, CHOPPED, BOILED, WO/SALT^11-338^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2887,1)
;;=.95^.18^3.9^18^94.7^^^8^.52^7^13^72^4^.05^.044^.097^^290^41.2^.051
;;^UTILITY(U,$J,112,2887,2)
;;=.031^1.082^.023^.108^9.9^0^.09^.009^0^.027^.012^.099^29^.27
;;^UTILITY(U,$J,112,2887,3)
;;=.012^.035^.031^.049^.042^.011^.018^.029^.02^.04^.045^.019^.039^.135^.125^.035^.041^.038
;;^UTILITY(U,$J,112,2887,4)
;;=^0^.001^.02^.001^.006^.011
;;^UTILITY(U,$J,112,2887,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2888,0)
;;=PEPPERS, SWEET, GREEN, FRZ, CHOPPED, BOILED, DRAINED, W/SALT^11-825^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2888,1)
;;=.95^.18^3.9^18^94.7^^^8^.52^7^13^72^240^.05^.044^.097^^290^41.2^.051
;;^UTILITY(U,$J,112,2888,2)
;;=.031^1.082^.023^.108^9.9^0^.09^.009^0^.027^.012^.099^29^.27
;;^UTILITY(U,$J,112,2888,3)
;;=.012^.035^.031^.049^.042^.011^.018^.029^.02^.04^.045^.019^.039^.135^.125^.035^.041^.038
;;^UTILITY(U,$J,112,2888,4)
;;=^0^.001^.02^.001^.006^.011
;;^UTILITY(U,$J,112,2888,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2889,0)
;;=PEPPERS, SWEET, GREEN, FRZ, CHOPPED, UNPREPARED^11-337^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2889,1)
;;=1.08^.21^4.45^20^93.96^^^9^.62^8^17^91^5^.06^.053^.117^^367^58.7^.069
;;^UTILITY(U,$J,112,2889,2)
;;=.038^1.37^.03^.137^14.1^0^.102^.01^0^.031^.014^.113^37^.3^^^1.6
;;^UTILITY(U,$J,112,2889,3)
;;=.014^.04^.035^.056^.048^.013^.021^.033^.022^.045^.052^.022^.044^.154^.142^.04^.047^.043
FHINI08B ; ; 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,2881,2)
+2 ;;=.15^.992^.183^.034^7^.14^.392^.037^33^.15^.124^.429^6^.3
+3 ;;^UTILITY(U,$J,112,2881,3)
+4 ;;=.065^.134^.197^.348^.097^.079^.143^.247^.134^.217^.187^.103^.149^.208^1.832^.161^.559^.24
+5 ;;^UTILITY(U,$J,112,2881,4)
+6 ;;=^^.002^.131^^.017^.124
+7 ;;^UTILITY(U,$J,112,2881,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,2882,0)
+10 ;;=PASTA, FRESH-REFRIGERATED, SPINACH, COOKED^20-096^oz.^28.3^318^N
+11 ;;^UTILITY(U,$J,112,2882,1)
+12 ;;=5.06^.94^25.04^130^68.58^^^18^1.11^24^57^37^6^.63^.08^.316^^103^0^.178
+13 ;;^UTILITY(U,$J,112,2882,2)
+14 ;;=.134^1.011^.232^.113^18^.14^.181^.029^33^.217^.296^.21^14^.37
+15 ;;^UTILITY(U,$J,112,2882,3)
+16 ;;=.067^.158^.219^.365^.151^.093^.134^.252^.149^.245^.216^.107^.179^.27^1.55^.166^.474^.259
+17 ;;^UTILITY(U,$J,112,2882,4)
+18 ;;=^^.003^.174^.028^.039^.267
+19 ;;^UTILITY(U,$J,112,2882,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,2883,0)
+22 ;;=PASTA, HOMEMADE, MADE WITH EGG, COOKED^20-097^oz.^28.3^320^N
+23 ;;^UTILITY(U,$J,112,2883,1)
+24 ;;=5.28^1.74^23.54^130^68.71^^^10^1.16^14^52^21^83^.44^.056^.183^^58^0^.173
+25 ;;^UTILITY(U,$J,112,2883,2)
+26 ;;=.174^1.257^.231^.037^19^.1^.459^.045^41^.408^.508^.521^17^.73
+27 ;;^UTILITY(U,$J,112,2883,3)
+28 ;;=.067^.166^.223^.382^.165^.101^.143^.262^.156^.247^.223^.111^.187^.288^1.628^.169^.497^.282
+29 ;;^UTILITY(U,$J,112,2883,4)
+30 ;;=0^0^.004^.301^.03^.097^.473^.014
+31 ;;^UTILITY(U,$J,112,2883,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,2884,0)
+34 ;;=PASTA, HOMEMADE, MADE WITHOUT EGG, COOKED^20-098^oz.^28.3^321^N
+35 ;;^UTILITY(U,$J,112,2884,1)
+36 ;;=4.37^.98^25.12^124^68.86^^^6^1.13^14^40^19^74^.37^.06^.193^^0^0^.182
+37 ;;^UTILITY(U,$J,112,2884,2)
+38 ;;=.148^1.343^.15^.028^17^0^.453^.055^0^.14^.187^.508^0^.66
+39 ;;^UTILITY(U,$J,112,2884,3)
+40 ;;=.056^.116^.169^.299^.084^.068^.123^.212^.115^.186^.161^.089^.128^.179^1.577^.138^.481^.206
+41 ;;^UTILITY(U,$J,112,2884,4)
+42 ;;=^^.001^.109^.001^.029^.185
+43 ;;^UTILITY(U,$J,112,2884,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,2885,0)
+46 ;;=PEAS, EDIBLE-PODDED, FRZ, BOILED, DRAINED, W/SALT^11-810^cups^160^100^N
+47 ;;^UTILITY(U,$J,112,2885,1)
+48 ;;=3.5^.38^9.02^52^86.6^^^59^2.4^28^58^217^241^.49^.09^.28^^167^22^.064
+49 ;;^UTILITY(U,$J,112,2885,2)
+50 ;;=.119^.563^.857^.174^35.2^0^.142^.025^0^.073^.039^.167^17^.5
+51 ;;^UTILITY(U,$J,112,2885,3)
+52 ;;=.034^.123^.202^.286^.252^.014^.04^.112^.123^.342^.168^.022^.073^.286^.56^.09^.078^.157
+53 ;;^UTILITY(U,$J,112,2885,4)
+54 ;;=^^.003^.063^0^.006^.039
+55 ;;^UTILITY(U,$J,112,2885,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,2886,0)
+58 ;;=PEAS, EDIBLE-PODDED, FRZ, BOILED, DRAINED, WO/SALT^11-303^cups^160^100^N
+59 ;;^UTILITY(U,$J,112,2886,1)
+60 ;;=3.5^.38^9.02^52^86.6^^^59^2.4^28^58^217^5^.49^.09^.28^^167^22^.064
+61 ;;^UTILITY(U,$J,112,2886,2)
+62 ;;=.119^.563^.857^.174^35.2^0^.142^.025^0^.073^.039^.167^17^.5
+63 ;;^UTILITY(U,$J,112,2886,3)
+64 ;;=.034^.123^.202^.286^.252^.014^.04^.112^.123^.342^.168^.022^.073^.286^.56^.09^.078^.157
+65 ;;^UTILITY(U,$J,112,2886,4)
+66 ;;=^^.003^.063^0^.006^.039
+67 ;;^UTILITY(U,$J,112,2886,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,2887,0)
+70 ;;=PEPPERS, SWEET, GREEN, FRZ, CHOPPED, BOILED, WO/SALT^11-338^oz.^28.3^100^N
+71 ;;^UTILITY(U,$J,112,2887,1)
+72 ;;=.95^.18^3.9^18^94.7^^^8^.52^7^13^72^4^.05^.044^.097^^290^41.2^.051
+73 ;;^UTILITY(U,$J,112,2887,2)
+74 ;;=.031^1.082^.023^.108^9.9^0^.09^.009^0^.027^.012^.099^29^.27
+75 ;;^UTILITY(U,$J,112,2887,3)
+76 ;;=.012^.035^.031^.049^.042^.011^.018^.029^.02^.04^.045^.019^.039^.135^.125^.035^.041^.038
+77 ;;^UTILITY(U,$J,112,2887,4)
+78 ;;=^0^.001^.02^.001^.006^.011
+79 ;;^UTILITY(U,$J,112,2887,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,2888,0)
+82 ;;=PEPPERS, SWEET, GREEN, FRZ, CHOPPED, BOILED, DRAINED, W/SALT^11-825^oz.^28.3^100^N
+83 ;;^UTILITY(U,$J,112,2888,1)
+84 ;;=.95^.18^3.9^18^94.7^^^8^.52^7^13^72^240^.05^.044^.097^^290^41.2^.051
+85 ;;^UTILITY(U,$J,112,2888,2)
+86 ;;=.031^1.082^.023^.108^9.9^0^.09^.009^0^.027^.012^.099^29^.27
+87 ;;^UTILITY(U,$J,112,2888,3)
+88 ;;=.012^.035^.031^.049^.042^.011^.018^.029^.02^.04^.045^.019^.039^.135^.125^.035^.041^.038
+89 ;;^UTILITY(U,$J,112,2888,4)
+90 ;;=^0^.001^.02^.001^.006^.011
+91 ;;^UTILITY(U,$J,112,2888,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,2889,0)
+94 ;;=PEPPERS, SWEET, GREEN, FRZ, CHOPPED, UNPREPARED^11-337^oz.^28.3^100^N
+95 ;;^UTILITY(U,$J,112,2889,1)
+96 ;;=1.08^.21^4.45^20^93.96^^^9^.62^8^17^91^5^.06^.053^.117^^367^58.7^.069
+97 ;;^UTILITY(U,$J,112,2889,2)
+98 ;;=.038^1.37^.03^.137^14.1^0^.102^.01^0^.031^.014^.113^37^.3^^^1.6
+99 ;;^UTILITY(U,$J,112,2889,3)
+100 ;;=.014^.04^.035^.056^.048^.013^.021^.033^.022^.045^.052^.022^.044^.154^.142^.04^.047^.043
