FHINI02V ; ; 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,864,2)
;;=.12^1.058^.34^.102^10^.05^4.132^.432^28^1.423^4.716^4.576^15^1.4
;;^UTILITY(U,$J,112,864,3)
;;=.045^.11^.119^.212^.125^.079^.072^.151^.102^.147^.217^.084^.139^.289^.761^.107^.218^.157
;;^UTILITY(U,$J,112,864,4)
;;=0^0^.017^1.063^.055^.339^4.612^.009
;;^UTILITY(U,$J,112,864,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,865,0)
;;=CAKE, FRUITCAKE, LIGHT, ENR^18-110^slices^15^100^N
;;^UTILITY(U,$J,112,865,1)
;;=2.9^9.1^61.6^324^25.3^^^33^2.07^16^52^153^270^.27^.05^.22^^78^.4^.05
;;^UTILITY(U,$J,112,865,2)
;;=.099^.791^.226^.046^3^.06^2.905^.315^5^1.118^4.172^3.231^19^1^^^3.5
;;^UTILITY(U,$J,112,865,3)
;;=.042^.102^.121^.206^.121^.059^.062^.14^.095^.144^.262^.071^.125^.27^.639^.124^.167^.159
;;^UTILITY(U,$J,112,865,4)
;;=0^0^.019^.797^.051^.301^4.09^.008
;;^UTILITY(U,$J,112,865,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,866,0)
;;=CAKE, GINGERBREAD, ENR^18-116^pieces^117^100^N
;;^UTILITY(U,$J,112,866,1)
;;=3.9^16.4^49.2^356^28^^^71^2.88^70^54^439^327^.39^.195^.683^^48^.1^.19
;;^UTILITY(U,$J,112,866,2)
;;=.162^1.738^.375^.19^8^.06^3.948^.254^32^4.122^7.124^4.216^14^1.8
;;^UTILITY(U,$J,112,866,3)
;;=.047^.124^.151^.279^.131^.08^.083^.195^.125^.173^.173^.087^.145^.217^1.096^.136^.372^.214
;;^UTILITY(U,$J,112,866,4)
;;=0^.001^.064^2.369^.022^1.684^7.099^.011
;;^UTILITY(U,$J,112,866,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,867,0)
;;=CAKE, PLAIN OR CUPCAKE, ENR, WO/ICING^534-3^cupcakes^25^100^N
;;^UTILITY(U,$J,112,867,1)
;;=4.5^13.9^55.9^364^24.5^^^64^1.5^^102^79^300^^^^^170^.2^.16
;;^UTILITY(U,$J,112,867,2)
;;=.18^1.3^^^^^2.7^^65^3.86^^^^1.2
;;^UTILITY(U,$J,112,867,4)
;;=^^^^^^6.66
;;^UTILITY(U,$J,112,867,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,868,0)
;;=CAKE, PLAIN OR CUPCAKE, ENR, CHOC-IC^535-3^cupcakes^36^100^N
;;^UTILITY(U,$J,112,868,1)
;;=4.2^13.9^59.4^368^21.4^^^63^1.4^^104^114^229^^^^^180^.2^.11
;;^UTILITY(U,$J,112,868,2)
;;=.16^1^^^^^2^^50^5.03^^^^1.1
;;^UTILITY(U,$J,112,868,4)
;;=^^^^^^6.13
;;^UTILITY(U,$J,112,868,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,869,0)
;;=CAKE, PLAIN OR CUPCAKE, ENR, BOILED WHT ICING^536-3^cupcakes^33^100^N
;;^UTILITY(U,$J,112,869,1)
;;=3.8^10.5^61.8^352^22.9^^^49^1.1^^77^64^262^^^^^130^.1^.12
;;^UTILITY(U,$J,112,869,2)
;;=.14^1^^^^^2.04^^49^2.92^^^^1
;;^UTILITY(U,$J,112,869,4)
;;=^^^^^^5.03
;;^UTILITY(U,$J,112,869,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,870,0)
;;=CAKE, PLAIN OR CUPCAKE, ENR, UNCKD-WHT-IC^537-3^cupcakes^35^100^N
;;^UTILITY(U,$J,112,870,1)
;;=3.4^11.8^63.3^367^20.6^^^50^1^^75^61^227^^^^^200^.2^.11
;;^UTILITY(U,$J,112,870,2)
;;=.13^.9^^^^^1.97^^52^3.8^^^^.9
;;^UTILITY(U,$J,112,870,4)
;;=^^^^^^5.36
;;^UTILITY(U,$J,112,870,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,871,0)
;;=CAKE, POUND, OLD-FASH, ENR^18-124^slices^30^100^N
;;^UTILITY(U,$J,112,871,1)
;;=6.3^24.7^47.6^433^20.4^^^24^1.69^9^83^69^288^.51^.058^.193^^989^0^.183
;;^UTILITY(U,$J,112,871,2)
;;=.263^1.452^.408^.047^15^.25^.903^.331^173^14.392^7.317^1.282^253^1
;;^UTILITY(U,$J,112,871,3)
;;=.078^.246^.292^.498^.319^.159^.138^.328^.231^.33^.32^.147^.283^.469^1.415^.217^.475^.399
;;^UTILITY(U,$J,112,871,4)
;;=.545^.61^2.197^6.348^.566^2.843^6.417^.038
;;^UTILITY(U,$J,112,871,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,872,0)
;;=CAKE, SPONGE, ENR^18-134^pieces^49^100^N
;;^UTILITY(U,$J,112,872,1)
;;=7.3^4.3^57.7^297^29.4^^^42^1.58^9^100^141^228^.59^.056^.167^^258^0^.159
;;^UTILITY(U,$J,112,872,2)
;;=.301^1.204^.546^.059^19^.37^.556^.019^170^1.301^1.576^.649^77^1.3
;;^UTILITY(U,$J,112,872,3)
;;=.089^.308^.35^.59^.418^.192^.161^.374^.277^.395^.404^.172^.35^.6^1.427^.25^.468^.498
;;^UTILITY(U,$J,112,872,4)
;;=.001^.001^.014^.943^.122^.322^1.439^.058
;;^UTILITY(U,$J,112,872,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,873,0)
;;=CAKE, WHITE, UNICED, ENR^18-139^pieces^53^100^N
;;^UTILITY(U,$J,112,873,1)
;;=5.4^12.4^57.2^357^23.3^^^130^1.52^12^93^95^327^.32^.059^.197^^56^.2^.186
;;^UTILITY(U,$J,112,873,2)
;;=.242^1.533^.184^.021^7^.08^2.949^.199^2^3.269^5.309^3.148^16^1.8
;;^UTILITY(U,$J,112,873,3)
;;=.067^.19^.243^.419^.241^.128^.111^.281^.191^.276^.235^.124^.215^.35^1.373^.179^.483^.302
;;^UTILITY(U,$J,112,873,4)
;;=.014^.015^.101^1.812^.012^1.291^5.296^0
;;^UTILITY(U,$J,112,873,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,874,0)
;;=CAKE, WHITE, COCONUT-IC, ENR^18-102^pieces^78^100^N
FHINI02V ; ; 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,864,2)
+2 ;;=.12^1.058^.34^.102^10^.05^4.132^.432^28^1.423^4.716^4.576^15^1.4
+3 ;;^UTILITY(U,$J,112,864,3)
+4 ;;=.045^.11^.119^.212^.125^.079^.072^.151^.102^.147^.217^.084^.139^.289^.761^.107^.218^.157
+5 ;;^UTILITY(U,$J,112,864,4)
+6 ;;=0^0^.017^1.063^.055^.339^4.612^.009
+7 ;;^UTILITY(U,$J,112,864,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,865,0)
+10 ;;=CAKE, FRUITCAKE, LIGHT, ENR^18-110^slices^15^100^N
+11 ;;^UTILITY(U,$J,112,865,1)
+12 ;;=2.9^9.1^61.6^324^25.3^^^33^2.07^16^52^153^270^.27^.05^.22^^78^.4^.05
+13 ;;^UTILITY(U,$J,112,865,2)
+14 ;;=.099^.791^.226^.046^3^.06^2.905^.315^5^1.118^4.172^3.231^19^1^^^3.5
+15 ;;^UTILITY(U,$J,112,865,3)
+16 ;;=.042^.102^.121^.206^.121^.059^.062^.14^.095^.144^.262^.071^.125^.27^.639^.124^.167^.159
+17 ;;^UTILITY(U,$J,112,865,4)
+18 ;;=0^0^.019^.797^.051^.301^4.09^.008
+19 ;;^UTILITY(U,$J,112,865,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,866,0)
+22 ;;=CAKE, GINGERBREAD, ENR^18-116^pieces^117^100^N
+23 ;;^UTILITY(U,$J,112,866,1)
+24 ;;=3.9^16.4^49.2^356^28^^^71^2.88^70^54^439^327^.39^.195^.683^^48^.1^.19
+25 ;;^UTILITY(U,$J,112,866,2)
+26 ;;=.162^1.738^.375^.19^8^.06^3.948^.254^32^4.122^7.124^4.216^14^1.8
+27 ;;^UTILITY(U,$J,112,866,3)
+28 ;;=.047^.124^.151^.279^.131^.08^.083^.195^.125^.173^.173^.087^.145^.217^1.096^.136^.372^.214
+29 ;;^UTILITY(U,$J,112,866,4)
+30 ;;=0^.001^.064^2.369^.022^1.684^7.099^.011
+31 ;;^UTILITY(U,$J,112,866,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,867,0)
+34 ;;=CAKE, PLAIN OR CUPCAKE, ENR, WO/ICING^534-3^cupcakes^25^100^N
+35 ;;^UTILITY(U,$J,112,867,1)
+36 ;;=4.5^13.9^55.9^364^24.5^^^64^1.5^^102^79^300^^^^^170^.2^.16
+37 ;;^UTILITY(U,$J,112,867,2)
+38 ;;=.18^1.3^^^^^2.7^^65^3.86^^^^1.2
+39 ;;^UTILITY(U,$J,112,867,4)
+40 ;;=^^^^^^6.66
+41 ;;^UTILITY(U,$J,112,867,20)
+42 ;;=USDA Std. Reference, Release 8
+43 ;;^UTILITY(U,$J,112,868,0)
+44 ;;=CAKE, PLAIN OR CUPCAKE, ENR, CHOC-IC^535-3^cupcakes^36^100^N
+45 ;;^UTILITY(U,$J,112,868,1)
+46 ;;=4.2^13.9^59.4^368^21.4^^^63^1.4^^104^114^229^^^^^180^.2^.11
+47 ;;^UTILITY(U,$J,112,868,2)
+48 ;;=.16^1^^^^^2^^50^5.03^^^^1.1
+49 ;;^UTILITY(U,$J,112,868,4)
+50 ;;=^^^^^^6.13
+51 ;;^UTILITY(U,$J,112,868,20)
+52 ;;=USDA Std. Reference, Release 8
+53 ;;^UTILITY(U,$J,112,869,0)
+54 ;;=CAKE, PLAIN OR CUPCAKE, ENR, BOILED WHT ICING^536-3^cupcakes^33^100^N
+55 ;;^UTILITY(U,$J,112,869,1)
+56 ;;=3.8^10.5^61.8^352^22.9^^^49^1.1^^77^64^262^^^^^130^.1^.12
+57 ;;^UTILITY(U,$J,112,869,2)
+58 ;;=.14^1^^^^^2.04^^49^2.92^^^^1
+59 ;;^UTILITY(U,$J,112,869,4)
+60 ;;=^^^^^^5.03
+61 ;;^UTILITY(U,$J,112,869,20)
+62 ;;=USDA Std. Reference, Release 8
+63 ;;^UTILITY(U,$J,112,870,0)
+64 ;;=CAKE, PLAIN OR CUPCAKE, ENR, UNCKD-WHT-IC^537-3^cupcakes^35^100^N
+65 ;;^UTILITY(U,$J,112,870,1)
+66 ;;=3.4^11.8^63.3^367^20.6^^^50^1^^75^61^227^^^^^200^.2^.11
+67 ;;^UTILITY(U,$J,112,870,2)
+68 ;;=.13^.9^^^^^1.97^^52^3.8^^^^.9
+69 ;;^UTILITY(U,$J,112,870,4)
+70 ;;=^^^^^^5.36
+71 ;;^UTILITY(U,$J,112,870,20)
+72 ;;=USDA Std. Reference, Release 8
+73 ;;^UTILITY(U,$J,112,871,0)
+74 ;;=CAKE, POUND, OLD-FASH, ENR^18-124^slices^30^100^N
+75 ;;^UTILITY(U,$J,112,871,1)
+76 ;;=6.3^24.7^47.6^433^20.4^^^24^1.69^9^83^69^288^.51^.058^.193^^989^0^.183
+77 ;;^UTILITY(U,$J,112,871,2)
+78 ;;=.263^1.452^.408^.047^15^.25^.903^.331^173^14.392^7.317^1.282^253^1
+79 ;;^UTILITY(U,$J,112,871,3)
+80 ;;=.078^.246^.292^.498^.319^.159^.138^.328^.231^.33^.32^.147^.283^.469^1.415^.217^.475^.399
+81 ;;^UTILITY(U,$J,112,871,4)
+82 ;;=.545^.61^2.197^6.348^.566^2.843^6.417^.038
+83 ;;^UTILITY(U,$J,112,871,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,872,0)
+86 ;;=CAKE, SPONGE, ENR^18-134^pieces^49^100^N
+87 ;;^UTILITY(U,$J,112,872,1)
+88 ;;=7.3^4.3^57.7^297^29.4^^^42^1.58^9^100^141^228^.59^.056^.167^^258^0^.159
+89 ;;^UTILITY(U,$J,112,872,2)
+90 ;;=.301^1.204^.546^.059^19^.37^.556^.019^170^1.301^1.576^.649^77^1.3
+91 ;;^UTILITY(U,$J,112,872,3)
+92 ;;=.089^.308^.35^.59^.418^.192^.161^.374^.277^.395^.404^.172^.35^.6^1.427^.25^.468^.498
+93 ;;^UTILITY(U,$J,112,872,4)
+94 ;;=.001^.001^.014^.943^.122^.322^1.439^.058
+95 ;;^UTILITY(U,$J,112,872,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,873,0)
+98 ;;=CAKE, WHITE, UNICED, ENR^18-139^pieces^53^100^N
+99 ;;^UTILITY(U,$J,112,873,1)
+100 ;;=5.4^12.4^57.2^357^23.3^^^130^1.52^12^93^95^327^.32^.059^.197^^56^.2^.186
+101 ;;^UTILITY(U,$J,112,873,2)
+102 ;;=.242^1.533^.184^.021^7^.08^2.949^.199^2^3.269^5.309^3.148^16^1.8
+103 ;;^UTILITY(U,$J,112,873,3)
+104 ;;=.067^.19^.243^.419^.241^.128^.111^.281^.191^.276^.235^.124^.215^.35^1.373^.179^.483^.302
+105 ;;^UTILITY(U,$J,112,873,4)
+106 ;;=.014^.015^.101^1.812^.012^1.291^5.296^0
+107 ;;^UTILITY(U,$J,112,873,20)
+108 ;;=USDA Std. Reference, Release 10
+109 ;;^UTILITY(U,$J,112,874,0)
+110 ;;=CAKE, WHITE, COCONUT-IC, ENR^18-102^pieces^78^100^N
