FHINI07Y ; ; 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,2759,2)
;;=.753^9.843^.658^.37^24^0^1.672^.052^0^.532^.997^1.724^0^1.57^^^9.6
;;^UTILITY(U,$J,112,2759,3)
;;=.066^.351^.334^1.146^.263^.196^.168^.459^.38^.473^.466^.285^.699^.65^1.754^.383^.815^.444
;;^UTILITY(U,$J,112,2759,4)
;;=^^^.453^.003^.06^.994^^^15
;;^UTILITY(U,$J,112,2759,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2760,0)
;;=CORN FLOUR, MASA, ENRICHED, YELLOW^20-317^cups^114^100^N
;;^UTILITY(U,$J,112,2760,1)
;;=9.34^3.78^76.27^365^9.03^^^141^7.21^110^223^298^5^1.78^.169^.484^^469^0^1.429
;;^UTILITY(U,$J,112,2760,2)
;;=.753^9.843^.658^.37^24^0^1.672^.052^0^.532^.997^1.724^47^1.57
;;^UTILITY(U,$J,112,2760,3)
;;=.066^.351^.334^1.146^.263^.196^.168^.459^.38^.473^.466^.285^.699^.65^1.754^.383^.815^.444
;;^UTILITY(U,$J,112,2760,4)
;;=^^^.453^.003^.06^.994
;;^UTILITY(U,$J,112,2760,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2761,0)
;;=CORN FLOUR, WHOLE-GRAIN, YELLOW^20-016^cups^116^100^N
;;^UTILITY(U,$J,112,2761,1)
;;=6.93^3.86^76.85^361^10.91^^^7^2.38^93^272^315^5^1.73^.23^.46^^469^0^.246
;;^UTILITY(U,$J,112,2761,2)
;;=.08^1.9^.658^.37^25^0^1.706^.053^0^.543^1.018^1.759^47^1.45^^^.1
;;^UTILITY(U,$J,112,2761,3)
;;=.049^.261^.248^.85^.195^.145^.125^.34^.282^.351^.345^.211^.518^.482^1.3^.284^.605^.329
;;^UTILITY(U,$J,112,2761,4)
;;=^^^.463^.003^.061^1.015
;;^UTILITY(U,$J,112,2761,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2763,0)
;;=CORNMEAL, WHOLE-GRAIN, YELLOW^20-020^cups^120^100^N
;;^UTILITY(U,$J,112,2763,1)
;;=8.12^3.59^76.89^362^10.26^^^6^3.45^127^241^287^35^1.82^.193^.498^^469^0^.385
;;^UTILITY(U,$J,112,2763,2)
;;=.201^3.632^.425^.304^25.4^0^1.589^.049^0^.505^.948^1.638^47^1.13^^^1.8
;;^UTILITY(U,$J,112,2763,3)
;;=.057^.305^.291^.996^.228^.17^.146^.399^.33^.411^.405^.248^.608^.565^1.525^.333^.709^.386
;;^UTILITY(U,$J,112,2763,4)
;;=^^^.431^.003^.057^.945
;;^UTILITY(U,$J,112,2763,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2764,0)
;;=CORNSALAD, RAW^11-190^cups^56^100^N
;;^UTILITY(U,$J,112,2764,1)
;;=2^.4^3.6^21^92.8^^^38^2.18^13^53^459^4^.59^.134^.359^^7092^38.2^.071
;;^UTILITY(U,$J,112,2764,2)
;;=.087^.415^.042^.273^13.6^0^^^0^^^^709^1.2
;;^UTILITY(U,$J,112,2764,3)
;;=.026^.075^.099^.133^.101^.025^.02^.091^.036^.099^.091^.036^.088^.176^.203^.079^.078^.063
;;^UTILITY(U,$J,112,2764,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2765,0)
;;=COUSCOUS, COOKED^20-029^cups^180^100^N
;;^UTILITY(U,$J,112,2765,1)
;;=3.79^.16^23.22^112^72.57^^^8^.38^8^22^58^5^.26^.041^.084^^0^0^.063
;;^UTILITY(U,$J,112,2765,2)
;;=.027^.983^.371^.051^15^0^.06^.003^0^.029^.022^.064^0^.26^^^1.4
;;^UTILITY(U,$J,112,2765,3)
;;=.049^.1^.147^.259^.073^.059^.107^.184^.1^.162^.14^.077^.111^.155^1.367^.12^.417^.179
;;^UTILITY(U,$J,112,2765,4)
;;=^^0^.027^.001^.001^.022
;;^UTILITY(U,$J,112,2765,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2766,0)
;;=COWPEAS, CATJANG, BOILED, W/SALT^16-361^cups^172^100^N
;;^UTILITY(U,$J,112,2766,1)
;;=8.13^.71^20.32^117^69.7^^^26^3.05^96^142^375^255^1.87^.271^.473^^10^.4^.162
;;^UTILITY(U,$J,112,2766,2)
;;=.046^.714^.386^.092^141.5^0^.192^.111^0^.185^.059^.303^1^1.16
;;^UTILITY(U,$J,112,2766,3)
;;=.1^.309^.33^.623^.55^.116^.09^.475^.263^.387^.563^.252^.371^.982^1.539^.335^.365^.407
;;^UTILITY(U,$J,112,2766,4)
;;=^0^.001^.142^.002^.03^.049
;;^UTILITY(U,$J,112,2766,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2767,0)
;;=COWPEAS, CATJANG, BOILED, WO/SALT^16-061^cups^172^100^N
;;^UTILITY(U,$J,112,2767,1)
;;=8.13^.71^20.32^117^69.7^^^26^3.05^96^142^375^19^1.87^.271^.473^^10^.4^.162
;;^UTILITY(U,$J,112,2767,2)
;;=.046^.714^.386^.092^141.5^0^.192^.111^0^.185^.059^.303^1^1.16
;;^UTILITY(U,$J,112,2767,3)
;;=.1^.309^.33^.623^.55^.116^.09^.475^.263^.387^.563^.252^.371^.982^1.539^.335^.365^.407
;;^UTILITY(U,$J,112,2767,4)
;;=^0^.001^.142^.002^.03^.049
;;^UTILITY(U,$J,112,2767,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2768,0)
;;=COWPEAS, COMMON(BLACK-EYED,CROWDER,SOUTHERN), CANNED, PLAIN^16-064^cups^240^100^N
;;^UTILITY(U,$J,112,2768,1)
;;=4.74^.55^13.63^77^79.63^^^20^.97^28^70^172^299^.7^.117^.283^^13^2.7^.076
;;^UTILITY(U,$J,112,2768,2)
;;=.074^.354^.19^.045^51.2^0^.15^.087^0^.144^.046^.237^1^1.45^^^3.9
;;^UTILITY(U,$J,112,2768,3)
;;=.058^.18^.193^.363^.321^.067^.052^.277^.153^.226^.328^.147^.216^.572^.897^.196^.213^.237
;;^UTILITY(U,$J,112,2768,4)
;;=^0^.001^.111^.002^.023^.038^^^2.3
FHINI07Y ; ; 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,2759,2)
+2 ;;=.753^9.843^.658^.37^24^0^1.672^.052^0^.532^.997^1.724^0^1.57^^^9.6
+3 ;;^UTILITY(U,$J,112,2759,3)
+4 ;;=.066^.351^.334^1.146^.263^.196^.168^.459^.38^.473^.466^.285^.699^.65^1.754^.383^.815^.444
+5 ;;^UTILITY(U,$J,112,2759,4)
+6 ;;=^^^.453^.003^.06^.994^^^15
+7 ;;^UTILITY(U,$J,112,2759,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,2760,0)
+10 ;;=CORN FLOUR, MASA, ENRICHED, YELLOW^20-317^cups^114^100^N
+11 ;;^UTILITY(U,$J,112,2760,1)
+12 ;;=9.34^3.78^76.27^365^9.03^^^141^7.21^110^223^298^5^1.78^.169^.484^^469^0^1.429
+13 ;;^UTILITY(U,$J,112,2760,2)
+14 ;;=.753^9.843^.658^.37^24^0^1.672^.052^0^.532^.997^1.724^47^1.57
+15 ;;^UTILITY(U,$J,112,2760,3)
+16 ;;=.066^.351^.334^1.146^.263^.196^.168^.459^.38^.473^.466^.285^.699^.65^1.754^.383^.815^.444
+17 ;;^UTILITY(U,$J,112,2760,4)
+18 ;;=^^^.453^.003^.06^.994
+19 ;;^UTILITY(U,$J,112,2760,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,2761,0)
+22 ;;=CORN FLOUR, WHOLE-GRAIN, YELLOW^20-016^cups^116^100^N
+23 ;;^UTILITY(U,$J,112,2761,1)
+24 ;;=6.93^3.86^76.85^361^10.91^^^7^2.38^93^272^315^5^1.73^.23^.46^^469^0^.246
+25 ;;^UTILITY(U,$J,112,2761,2)
+26 ;;=.08^1.9^.658^.37^25^0^1.706^.053^0^.543^1.018^1.759^47^1.45^^^.1
+27 ;;^UTILITY(U,$J,112,2761,3)
+28 ;;=.049^.261^.248^.85^.195^.145^.125^.34^.282^.351^.345^.211^.518^.482^1.3^.284^.605^.329
+29 ;;^UTILITY(U,$J,112,2761,4)
+30 ;;=^^^.463^.003^.061^1.015
+31 ;;^UTILITY(U,$J,112,2761,20)
+32 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+33 ;;^UTILITY(U,$J,112,2763,0)
+34 ;;=CORNMEAL, WHOLE-GRAIN, YELLOW^20-020^cups^120^100^N
+35 ;;^UTILITY(U,$J,112,2763,1)
+36 ;;=8.12^3.59^76.89^362^10.26^^^6^3.45^127^241^287^35^1.82^.193^.498^^469^0^.385
+37 ;;^UTILITY(U,$J,112,2763,2)
+38 ;;=.201^3.632^.425^.304^25.4^0^1.589^.049^0^.505^.948^1.638^47^1.13^^^1.8
+39 ;;^UTILITY(U,$J,112,2763,3)
+40 ;;=.057^.305^.291^.996^.228^.17^.146^.399^.33^.411^.405^.248^.608^.565^1.525^.333^.709^.386
+41 ;;^UTILITY(U,$J,112,2763,4)
+42 ;;=^^^.431^.003^.057^.945
+43 ;;^UTILITY(U,$J,112,2763,20)
+44 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+45 ;;^UTILITY(U,$J,112,2764,0)
+46 ;;=CORNSALAD, RAW^11-190^cups^56^100^N
+47 ;;^UTILITY(U,$J,112,2764,1)
+48 ;;=2^.4^3.6^21^92.8^^^38^2.18^13^53^459^4^.59^.134^.359^^7092^38.2^.071
+49 ;;^UTILITY(U,$J,112,2764,2)
+50 ;;=.087^.415^.042^.273^13.6^0^^^0^^^^709^1.2
+51 ;;^UTILITY(U,$J,112,2764,3)
+52 ;;=.026^.075^.099^.133^.101^.025^.02^.091^.036^.099^.091^.036^.088^.176^.203^.079^.078^.063
+53 ;;^UTILITY(U,$J,112,2764,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2765,0)
+56 ;;=COUSCOUS, COOKED^20-029^cups^180^100^N
+57 ;;^UTILITY(U,$J,112,2765,1)
+58 ;;=3.79^.16^23.22^112^72.57^^^8^.38^8^22^58^5^.26^.041^.084^^0^0^.063
+59 ;;^UTILITY(U,$J,112,2765,2)
+60 ;;=.027^.983^.371^.051^15^0^.06^.003^0^.029^.022^.064^0^.26^^^1.4
+61 ;;^UTILITY(U,$J,112,2765,3)
+62 ;;=.049^.1^.147^.259^.073^.059^.107^.184^.1^.162^.14^.077^.111^.155^1.367^.12^.417^.179
+63 ;;^UTILITY(U,$J,112,2765,4)
+64 ;;=^^0^.027^.001^.001^.022
+65 ;;^UTILITY(U,$J,112,2765,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2766,0)
+68 ;;=COWPEAS, CATJANG, BOILED, W/SALT^16-361^cups^172^100^N
+69 ;;^UTILITY(U,$J,112,2766,1)
+70 ;;=8.13^.71^20.32^117^69.7^^^26^3.05^96^142^375^255^1.87^.271^.473^^10^.4^.162
+71 ;;^UTILITY(U,$J,112,2766,2)
+72 ;;=.046^.714^.386^.092^141.5^0^.192^.111^0^.185^.059^.303^1^1.16
+73 ;;^UTILITY(U,$J,112,2766,3)
+74 ;;=.1^.309^.33^.623^.55^.116^.09^.475^.263^.387^.563^.252^.371^.982^1.539^.335^.365^.407
+75 ;;^UTILITY(U,$J,112,2766,4)
+76 ;;=^0^.001^.142^.002^.03^.049
+77 ;;^UTILITY(U,$J,112,2766,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2767,0)
+80 ;;=COWPEAS, CATJANG, BOILED, WO/SALT^16-061^cups^172^100^N
+81 ;;^UTILITY(U,$J,112,2767,1)
+82 ;;=8.13^.71^20.32^117^69.7^^^26^3.05^96^142^375^19^1.87^.271^.473^^10^.4^.162
+83 ;;^UTILITY(U,$J,112,2767,2)
+84 ;;=.046^.714^.386^.092^141.5^0^.192^.111^0^.185^.059^.303^1^1.16
+85 ;;^UTILITY(U,$J,112,2767,3)
+86 ;;=.1^.309^.33^.623^.55^.116^.09^.475^.263^.387^.563^.252^.371^.982^1.539^.335^.365^.407
+87 ;;^UTILITY(U,$J,112,2767,4)
+88 ;;=^0^.001^.142^.002^.03^.049
+89 ;;^UTILITY(U,$J,112,2767,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,2768,0)
+92 ;;=COWPEAS, COMMON(BLACK-EYED,CROWDER,SOUTHERN), CANNED, PLAIN^16-064^cups^240^100^N
+93 ;;^UTILITY(U,$J,112,2768,1)
+94 ;;=4.74^.55^13.63^77^79.63^^^20^.97^28^70^172^299^.7^.117^.283^^13^2.7^.076
+95 ;;^UTILITY(U,$J,112,2768,2)
+96 ;;=.074^.354^.19^.045^51.2^0^.15^.087^0^.144^.046^.237^1^1.45^^^3.9
+97 ;;^UTILITY(U,$J,112,2768,3)
+98 ;;=.058^.18^.193^.363^.321^.067^.052^.277^.153^.226^.328^.147^.216^.572^.897^.196^.213^.237
+99 ;;^UTILITY(U,$J,112,2768,4)
+100 ;;=^0^.001^.111^.002^.023^.038^^^2.3
