FHINI00L ; ; 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,58,0)
;;=SOUR DRESSING, NONBUTTERFAT, CULTURED, FILLED CREAM-TYPE^1-058^tbsp.^12^100^N
;;^UTILITY(U,$J,112,58,1)
;;=3.25^16.57^4.68^177.639^74.79^^^113.1^.03^9.91^87.1^161.5^48.2^.37^.01^.002^^10^.94^.038
;;^UTILITY(U,$J,112,58,2)
;;=.163^.074^.398^.017^11.8^.329^.468^0^5.4^13.272^1.958^.468^2^.71^^^0
;;^UTILITY(U,$J,112,58,3)
;;=.045^.147^.197^.318^.258^.082^.03^.157^.157^.217^.118^.088^.112^.247^.681^.069^.315^.177
;;^UTILITY(U,$J,112,58,4)
;;=.824^2.256^2.793^2.819^.087^4.31^1.873^0
;;^UTILITY(U,$J,112,58,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,59,0)
;;=MILK, FILLED, FLUID, W/BLEND OF HYDR VEGETABLE OILS^1-059^cups^244^100^N
;;^UTILITY(U,$J,112,59,1)
;;=3.33^3.46^4.74^63.149^87.67^^^127.8^.05^13.3^96.9^139^56.7^.36^.01^.002^^7^.9^.03
;;^UTILITY(U,$J,112,59,2)
;;=.123^.087^.301^.04^4.8^.342^.717^.027^1.8^.768^1.783^.75^2^.8^^^0
;;^UTILITY(U,$J,112,59,3)
;;=.047^.15^.201^.326^.264^.084^.031^.161^.161^.223^.121^.09^.115^.253^.697^.07^.323^.181
;;^UTILITY(U,$J,112,59,4)
;;=.004^.017^.03^.49^.001^.232^1.785^0
;;^UTILITY(U,$J,112,59,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,60,0)
;;=ICE CREAM, (AND FRZ CUSTARD), REGULAR, APPX 10% FAT^1-061^cups^133^100^N
;;^UTILITY(U,$J,112,60,1)
;;=3.61^10.77^23.85^202.382^60.8^^^132.1^.09^13.9^101^192.9^87.3^1.06^.019^.006^^408^.53^.039
;;^UTILITY(U,$J,112,60,2)
;;=.247^.101^.492^.046^2.1^.47^.243^.157^44.7^6.704^3.111^.4^100^.97
;;^UTILITY(U,$J,112,60,3)
;;=.051^.163^.218^.354^.286^.091^.033^.174^.174^.242^.131^.098^.124^.274^.756^.076^.35^.196
;;^UTILITY(U,$J,112,60,4)
;;=.27^.302^1.083^2.833^.241^1.305^2.709^0
;;^UTILITY(U,$J,112,60,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,61,0)
;;=ICE CREAM, (AND FRZ CUSTARD), RICH, APPX 16% FAT^1-062^cups^148^100^N
;;^UTILITY(U,$J,112,61,1)
;;=2.79^16^21.59^236.107^58.87^^^102.1^.07^10.71^78^149.1^73.1^.82^.019^.006^^606^.41^.03
;;^UTILITY(U,$J,112,61,2)
;;=.191^.078^.38^.036^1.6^.363^.361^.233^59.2^9.96^4.621^.594^148^.75
;;^UTILITY(U,$J,112,61,3)
;;=.039^.126^.169^.273^.221^.07^.026^.135^.135^.187^.101^.076^.096^.212^.584^.059^.27^.152
;;^UTILITY(U,$J,112,61,4)
;;=.401^.449^1.609^4.208^.358^1.939^4.025^0
;;^UTILITY(U,$J,112,61,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,62,0)
;;=ICE CREAM, FRENCH, VANILLA, SOFT SERVE^1-063^cups^173^100^N
;;^UTILITY(U,$J,112,62,1)
;;=4.07^13.02^22.13^217.769^59.76^^^136.3^.25^14.28^115.2^195.4^88.7^1.15^.019^.007^^459^.53^.046
;;^UTILITY(U,$J,112,62,2)
;;=.259^.103^.616^.055^5.3^.576^.375^.179^88.6^7.808^3.863^.568^115^1.02
;;^UTILITY(U,$J,112,62,3)
;;=.058^.188^.244^.393^.317^.102^.042^.195^.194^.269^.163^.109^.147^.312^.812^.09^.369^.234
;;^UTILITY(U,$J,112,62,4)
;;=.304^.34^1.219^3.385^.302^1.537^3.381^.008
;;^UTILITY(U,$J,112,62,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,63,0)
;;=ICE MILK, VANILLA, HARDENED^1-064^cups^131^100^N
;;^UTILITY(U,$J,112,63,1)
;;=3.94^4.3^22.11^140.186^68.62^^^134.4^.14^14.21^98.8^202^79.8^.42^.023^.009^^163^.58^.058
;;^UTILITY(U,$J,112,63,2)
;;=.265^.09^.505^.065^2.3^.668^.097^.063^13.9^2.677^1.242^.16^40^1.03
;;^UTILITY(U,$J,112,63,3)
;;=.056^.178^.238^.386^.312^.099^.036^.19^.19^.264^.143^.107^.136^.299^.825^.083^.382^.214
;;^UTILITY(U,$J,112,63,4)
;;=.108^.121^.432^1.131^.096^.521^1.082^0
;;^UTILITY(U,$J,112,63,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,64,0)
;;=ICE MILK, VANILLA, SOFTSERVE^1-065^cups^175^100^N
;;^UTILITY(U,$J,112,64,1)
;;=4.59^2.64^21.93^127.674^69.64^^^156.8^.16^16.52^115.2^235.6^93.1^.49^.027^.011^^110^.67^.067
;;^UTILITY(U,$J,112,64,2)
;;=.309^.105^.589^.076^2.7^.78^.06^.038^7.6^1.643^.762^.098^25^1.2
;;^UTILITY(U,$J,112,64,3)
;;=.065^.207^.278^.45^.364^.115^.042^.222^.222^.307^.166^.124^.158^.348^.961^.097^.445^.25
;;^UTILITY(U,$J,112,64,4)
;;=.066^.074^.266^.694^.059^.32^.664^0
;;^UTILITY(U,$J,112,64,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,65,0)
;;=SHERBET, ORANGE^1-066^cups^193^100^N
;;^UTILITY(U,$J,112,65,1)
;;=1.12^1.98^30.43^139.951^66.07^^^53.6^.16^7.81^38.5^102.8^45.8^.69^.03^.011^^96^2^.017
;;^UTILITY(U,$J,112,65,2)
;;=.046^.068^.032^.013^7.2^.082^.045^.029^7.3^1.232^.572^.074^20^.4^^^0
;;^UTILITY(U,$J,112,65,3)
;;=.016^.051^.068^.11^.089^.028^.01^.054^.054^.075^.041^.03^.039^.085^.235^.024^.108^.061
;;^UTILITY(U,$J,112,65,4)
;;=.05^.056^.199^.521^.044^.24^.498^0
;;^UTILITY(U,$J,112,65,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,66,0)
;;=CREAM SUBSTITUTE, NONDAIRY, LIQUID^1-067^fl oz.^30^100^N
FHINI00L ; ; 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,58,0)
+2 ;;=SOUR DRESSING, NONBUTTERFAT, CULTURED, FILLED CREAM-TYPE^1-058^tbsp.^12^100^N
+3 ;;^UTILITY(U,$J,112,58,1)
+4 ;;=3.25^16.57^4.68^177.639^74.79^^^113.1^.03^9.91^87.1^161.5^48.2^.37^.01^.002^^10^.94^.038
+5 ;;^UTILITY(U,$J,112,58,2)
+6 ;;=.163^.074^.398^.017^11.8^.329^.468^0^5.4^13.272^1.958^.468^2^.71^^^0
+7 ;;^UTILITY(U,$J,112,58,3)
+8 ;;=.045^.147^.197^.318^.258^.082^.03^.157^.157^.217^.118^.088^.112^.247^.681^.069^.315^.177
+9 ;;^UTILITY(U,$J,112,58,4)
+10 ;;=.824^2.256^2.793^2.819^.087^4.31^1.873^0
+11 ;;^UTILITY(U,$J,112,58,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,59,0)
+14 ;;=MILK, FILLED, FLUID, W/BLEND OF HYDR VEGETABLE OILS^1-059^cups^244^100^N
+15 ;;^UTILITY(U,$J,112,59,1)
+16 ;;=3.33^3.46^4.74^63.149^87.67^^^127.8^.05^13.3^96.9^139^56.7^.36^.01^.002^^7^.9^.03
+17 ;;^UTILITY(U,$J,112,59,2)
+18 ;;=.123^.087^.301^.04^4.8^.342^.717^.027^1.8^.768^1.783^.75^2^.8^^^0
+19 ;;^UTILITY(U,$J,112,59,3)
+20 ;;=.047^.15^.201^.326^.264^.084^.031^.161^.161^.223^.121^.09^.115^.253^.697^.07^.323^.181
+21 ;;^UTILITY(U,$J,112,59,4)
+22 ;;=.004^.017^.03^.49^.001^.232^1.785^0
+23 ;;^UTILITY(U,$J,112,59,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,60,0)
+26 ;;=ICE CREAM, (AND FRZ CUSTARD), REGULAR, APPX 10% FAT^1-061^cups^133^100^N
+27 ;;^UTILITY(U,$J,112,60,1)
+28 ;;=3.61^10.77^23.85^202.382^60.8^^^132.1^.09^13.9^101^192.9^87.3^1.06^.019^.006^^408^.53^.039
+29 ;;^UTILITY(U,$J,112,60,2)
+30 ;;=.247^.101^.492^.046^2.1^.47^.243^.157^44.7^6.704^3.111^.4^100^.97
+31 ;;^UTILITY(U,$J,112,60,3)
+32 ;;=.051^.163^.218^.354^.286^.091^.033^.174^.174^.242^.131^.098^.124^.274^.756^.076^.35^.196
+33 ;;^UTILITY(U,$J,112,60,4)
+34 ;;=.27^.302^1.083^2.833^.241^1.305^2.709^0
+35 ;;^UTILITY(U,$J,112,60,20)
+36 ;;=USDA Std. Reference, Release 8
+37 ;;^UTILITY(U,$J,112,61,0)
+38 ;;=ICE CREAM, (AND FRZ CUSTARD), RICH, APPX 16% FAT^1-062^cups^148^100^N
+39 ;;^UTILITY(U,$J,112,61,1)
+40 ;;=2.79^16^21.59^236.107^58.87^^^102.1^.07^10.71^78^149.1^73.1^.82^.019^.006^^606^.41^.03
+41 ;;^UTILITY(U,$J,112,61,2)
+42 ;;=.191^.078^.38^.036^1.6^.363^.361^.233^59.2^9.96^4.621^.594^148^.75
+43 ;;^UTILITY(U,$J,112,61,3)
+44 ;;=.039^.126^.169^.273^.221^.07^.026^.135^.135^.187^.101^.076^.096^.212^.584^.059^.27^.152
+45 ;;^UTILITY(U,$J,112,61,4)
+46 ;;=.401^.449^1.609^4.208^.358^1.939^4.025^0
+47 ;;^UTILITY(U,$J,112,61,20)
+48 ;;=USDA Std. Reference, Release 8
+49 ;;^UTILITY(U,$J,112,62,0)
+50 ;;=ICE CREAM, FRENCH, VANILLA, SOFT SERVE^1-063^cups^173^100^N
+51 ;;^UTILITY(U,$J,112,62,1)
+52 ;;=4.07^13.02^22.13^217.769^59.76^^^136.3^.25^14.28^115.2^195.4^88.7^1.15^.019^.007^^459^.53^.046
+53 ;;^UTILITY(U,$J,112,62,2)
+54 ;;=.259^.103^.616^.055^5.3^.576^.375^.179^88.6^7.808^3.863^.568^115^1.02
+55 ;;^UTILITY(U,$J,112,62,3)
+56 ;;=.058^.188^.244^.393^.317^.102^.042^.195^.194^.269^.163^.109^.147^.312^.812^.09^.369^.234
+57 ;;^UTILITY(U,$J,112,62,4)
+58 ;;=.304^.34^1.219^3.385^.302^1.537^3.381^.008
+59 ;;^UTILITY(U,$J,112,62,20)
+60 ;;=USDA Std. Reference, Release 8
+61 ;;^UTILITY(U,$J,112,63,0)
+62 ;;=ICE MILK, VANILLA, HARDENED^1-064^cups^131^100^N
+63 ;;^UTILITY(U,$J,112,63,1)
+64 ;;=3.94^4.3^22.11^140.186^68.62^^^134.4^.14^14.21^98.8^202^79.8^.42^.023^.009^^163^.58^.058
+65 ;;^UTILITY(U,$J,112,63,2)
+66 ;;=.265^.09^.505^.065^2.3^.668^.097^.063^13.9^2.677^1.242^.16^40^1.03
+67 ;;^UTILITY(U,$J,112,63,3)
+68 ;;=.056^.178^.238^.386^.312^.099^.036^.19^.19^.264^.143^.107^.136^.299^.825^.083^.382^.214
+69 ;;^UTILITY(U,$J,112,63,4)
+70 ;;=.108^.121^.432^1.131^.096^.521^1.082^0
+71 ;;^UTILITY(U,$J,112,63,20)
+72 ;;=USDA Std. Reference, Release 8
+73 ;;^UTILITY(U,$J,112,64,0)
+74 ;;=ICE MILK, VANILLA, SOFTSERVE^1-065^cups^175^100^N
+75 ;;^UTILITY(U,$J,112,64,1)
+76 ;;=4.59^2.64^21.93^127.674^69.64^^^156.8^.16^16.52^115.2^235.6^93.1^.49^.027^.011^^110^.67^.067
+77 ;;^UTILITY(U,$J,112,64,2)
+78 ;;=.309^.105^.589^.076^2.7^.78^.06^.038^7.6^1.643^.762^.098^25^1.2
+79 ;;^UTILITY(U,$J,112,64,3)
+80 ;;=.065^.207^.278^.45^.364^.115^.042^.222^.222^.307^.166^.124^.158^.348^.961^.097^.445^.25
+81 ;;^UTILITY(U,$J,112,64,4)
+82 ;;=.066^.074^.266^.694^.059^.32^.664^0
+83 ;;^UTILITY(U,$J,112,64,20)
+84 ;;=USDA Std. Reference, Release 8
+85 ;;^UTILITY(U,$J,112,65,0)
+86 ;;=SHERBET, ORANGE^1-066^cups^193^100^N
+87 ;;^UTILITY(U,$J,112,65,1)
+88 ;;=1.12^1.98^30.43^139.951^66.07^^^53.6^.16^7.81^38.5^102.8^45.8^.69^.03^.011^^96^2^.017
+89 ;;^UTILITY(U,$J,112,65,2)
+90 ;;=.046^.068^.032^.013^7.2^.082^.045^.029^7.3^1.232^.572^.074^20^.4^^^0
+91 ;;^UTILITY(U,$J,112,65,3)
+92 ;;=.016^.051^.068^.11^.089^.028^.01^.054^.054^.075^.041^.03^.039^.085^.235^.024^.108^.061
+93 ;;^UTILITY(U,$J,112,65,4)
+94 ;;=.05^.056^.199^.521^.044^.24^.498^0
+95 ;;^UTILITY(U,$J,112,65,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,66,0)
+98 ;;=CREAM SUBSTITUTE, NONDAIRY, LIQUID^1-067^fl oz.^30^100^N
