FHINI030 ; ; 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,919,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,920,0)
;;=CANDY, FUDGE, CHOCOLATE^19-100^oz.^28.3^100^N
;;^UTILITY(U,$J,112,920,1)
;;=1.7^8.5^79.5^381^9.7^^^42^.48^25^58^103^62^.4^.178^.136^^191^.2^.014
;;^UTILITY(U,$J,112,920,2)
;;=.075^.101^.113^.016^2^.06^.23^.07^14^5.16^2.61^.3^46^.5^^^.8
;;^UTILITY(U,$J,112,920,3)
;;=.024^.071^.085^.136^.111^.031^.017^.079^.072^.106^.073^.038^.065^.141^.305^.051^.123^.082
;;^UTILITY(U,$J,112,920,4)
;;=.12^.14^.5^2.27^.11^1.72^2.44^0
;;^UTILITY(U,$J,112,920,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,921,0)
;;=CANDY, FUDGE, CHOCOLATE, W/NUTS^19-101^oz.^28.3^100^N
;;^UTILITY(U,$J,112,921,1)
;;=3.4^16.1^72.8^426^6.8^^^50^.76^45^93^158^60^.72^.342^.503^^202^.6^.063
;;^UTILITY(U,$J,112,921,2)
;;=.086^.228^.183^.088^10^.06^4.43^.97^14^5.62^4.32^5.41^47^.7^^^1.3
;;^UTILITY(U,$J,112,921,3)
;;=.042^.113^.139^.232^.142^.059^.054^.141^.113^.175^.299^.074^.126^.29^.584^.13^.171^.16
;;^UTILITY(U,$J,112,921,4)
;;=.12^.13^.51^2.71^.13^1.74^4.07^0
;;^UTILITY(U,$J,112,921,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,922,0)
;;=CANDY, FUDGE, VANILLA^19-103^oz.^28.3^100^N
;;^UTILITY(U,$J,112,922,1)
;;=1.1^5.4^82.3^369^10.9^^^39^.07^5^32^50^67^.15^.038^.011^^204^.2^.01
;;^UTILITY(U,$J,112,922,2)
;;=.067^.029^.104^.01^1^.07^.12^.08^16^3.35^1.55^.2^50^.4^^^0
;;^UTILITY(U,$J,112,922,3)
;;=.014^.046^.062^.1^.081^.025^.009^.049^.049^.068^.037^.028^.035^.077^.213^.022^.098^.055
;;^UTILITY(U,$J,112,922,4)
;;=.14^.15^.54^1.43^.12^.66^1.37^0
;;^UTILITY(U,$J,112,922,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,923,0)
;;=CANDY, FUDGE, VANILLA, W/NUTS^19-104^oz.^28.3^100^N
;;^UTILITY(U,$J,112,923,1)
;;=2.9^13.3^75.2^415^8^^^47^.4^27^71^113^61^.5^.223^.407^^198^.6^.061
;;^UTILITY(U,$J,112,923,2)
;;=.08^.169^.179^.086^10^.06^4.52^1.02^14^3.74^3.32^5.54^46^.6^^^.6
;;^UTILITY(U,$J,112,923,3)
;;=.035^.093^.12^.203^.116^.055^.048^.116^.094^.144^.277^.066^.102^.239^.515^.107^.151^.14
;;^UTILITY(U,$J,112,923,4)
;;=.12^.13^.51^1.86^.13^.73^3.06^0
;;^UTILITY(U,$J,112,923,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,924,0)
;;=CANDY, GUM DROPS, STARCH JELLY PCS^19-106^oz.^28.3^100^N
;;^UTILITY(U,$J,112,924,1)
;;=0^0^98.9^386^1^^^3^.4^1^1^5^44^0^.012^.01^^0^0^0
;;^UTILITY(U,$J,112,924,2)
;;=.002^.002^.006^0^0^0^^^0^^^^0^.1^^^0
;;^UTILITY(U,$J,112,924,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,924,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,925,0)
;;=CANDY, HARD^19-107^oz.^28.3^100^N
;;^UTILITY(U,$J,112,925,1)
;;=0^0^98.2^373^1.3^^^3^.3^3^3^5^38^.01^.029^.01^^0^0^.004
;;^UTILITY(U,$J,112,925,2)
;;=.003^.007^.008^.003^0^0^^^0^^^^0^.5^^^0
;;^UTILITY(U,$J,112,925,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,925,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,926,0)
;;=CANDY, JELLY BEANS^19-108^oz.^28.3^100^N
;;^UTILITY(U,$J,112,926,1)
;;=0^.5^93.1^367^6.3^^^3^1.1^2^4^37^25^.05^.028^.035^^0^0^0
;;^UTILITY(U,$J,112,926,2)
;;=0^0^0^0^0^0^^^0^^^^0^.1^^^0
;;^UTILITY(U,$J,112,926,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,926,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,927,0)
;;=CANDY, MARSHMALLOWS^19-116^ea.^7.2^100^N
;;^UTILITY(U,$J,112,927,1)
;;=1.8^.2^81.3^318^16.4^^^3^.23^2^8^5^47^.04^.097^.008^^1^0^.001
;;^UTILITY(U,$J,112,927,2)
;;=.001^.078^.005^.002^1^0^^^0^^^^0^.3^^^.1
;;^UTILITY(U,$J,112,927,3)
;;=0^.035^.028^.066^.077^.015^.002^.042^.01^.05^.147^.017^.18^.121^.208^.416^.275^.061
;;^UTILITY(U,$J,112,927,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,927,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,928,0)
;;=CANDY, PEANUT BARS^611-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,928,1)
;;=17.5^32.2^47.2^515^1.5^^^44^1.8^^273^448^10^^^^^0^0^.43
;;^UTILITY(U,$J,112,928,2)
;;=.08^9.4^^^^^9.34^^0^7.08^^^^1.6
;;^UTILITY(U,$J,112,928,4)
;;=^^^^^^13.85
;;^UTILITY(U,$J,112,928,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,929,0)
;;=CANDY, PEANUT BRITTLE^19-148^oz.^28.3^100^N
;;^UTILITY(U,$J,112,929,1)
;;=7.5^19.1^69.3^453^1.8^^^30^1.38^50^111^208^452^.97^.353^.592^^191^0^.189
;;^UTILITY(U,$J,112,929,2)
;;=.052^3.498^.525^.104^70^.01^4.61^.07^13^5.02^8.48^4.68^47^1.5^^^2
;;^UTILITY(U,$J,112,929,3)
;;=.073^.258^.265^.488^.272^.093^.096^.389^.306^.316^.893^.19^.298^.913^1.568^.45^.334^.37
;;^UTILITY(U,$J,112,929,4)
;;=.12^.14^.5^2.78^.11^.91^8.1^0
;;^UTILITY(U,$J,112,929,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,930,0)
;;=CANDY, SUGAR-COATED ALMONDS^613-0^oz.^28.3^100^N
FHINI030 ; ; 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,919,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,920,0)
+4 ;;=CANDY, FUDGE, CHOCOLATE^19-100^oz.^28.3^100^N
+5 ;;^UTILITY(U,$J,112,920,1)
+6 ;;=1.7^8.5^79.5^381^9.7^^^42^.48^25^58^103^62^.4^.178^.136^^191^.2^.014
+7 ;;^UTILITY(U,$J,112,920,2)
+8 ;;=.075^.101^.113^.016^2^.06^.23^.07^14^5.16^2.61^.3^46^.5^^^.8
+9 ;;^UTILITY(U,$J,112,920,3)
+10 ;;=.024^.071^.085^.136^.111^.031^.017^.079^.072^.106^.073^.038^.065^.141^.305^.051^.123^.082
+11 ;;^UTILITY(U,$J,112,920,4)
+12 ;;=.12^.14^.5^2.27^.11^1.72^2.44^0
+13 ;;^UTILITY(U,$J,112,920,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,921,0)
+16 ;;=CANDY, FUDGE, CHOCOLATE, W/NUTS^19-101^oz.^28.3^100^N
+17 ;;^UTILITY(U,$J,112,921,1)
+18 ;;=3.4^16.1^72.8^426^6.8^^^50^.76^45^93^158^60^.72^.342^.503^^202^.6^.063
+19 ;;^UTILITY(U,$J,112,921,2)
+20 ;;=.086^.228^.183^.088^10^.06^4.43^.97^14^5.62^4.32^5.41^47^.7^^^1.3
+21 ;;^UTILITY(U,$J,112,921,3)
+22 ;;=.042^.113^.139^.232^.142^.059^.054^.141^.113^.175^.299^.074^.126^.29^.584^.13^.171^.16
+23 ;;^UTILITY(U,$J,112,921,4)
+24 ;;=.12^.13^.51^2.71^.13^1.74^4.07^0
+25 ;;^UTILITY(U,$J,112,921,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,922,0)
+28 ;;=CANDY, FUDGE, VANILLA^19-103^oz.^28.3^100^N
+29 ;;^UTILITY(U,$J,112,922,1)
+30 ;;=1.1^5.4^82.3^369^10.9^^^39^.07^5^32^50^67^.15^.038^.011^^204^.2^.01
+31 ;;^UTILITY(U,$J,112,922,2)
+32 ;;=.067^.029^.104^.01^1^.07^.12^.08^16^3.35^1.55^.2^50^.4^^^0
+33 ;;^UTILITY(U,$J,112,922,3)
+34 ;;=.014^.046^.062^.1^.081^.025^.009^.049^.049^.068^.037^.028^.035^.077^.213^.022^.098^.055
+35 ;;^UTILITY(U,$J,112,922,4)
+36 ;;=.14^.15^.54^1.43^.12^.66^1.37^0
+37 ;;^UTILITY(U,$J,112,922,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,923,0)
+40 ;;=CANDY, FUDGE, VANILLA, W/NUTS^19-104^oz.^28.3^100^N
+41 ;;^UTILITY(U,$J,112,923,1)
+42 ;;=2.9^13.3^75.2^415^8^^^47^.4^27^71^113^61^.5^.223^.407^^198^.6^.061
+43 ;;^UTILITY(U,$J,112,923,2)
+44 ;;=.08^.169^.179^.086^10^.06^4.52^1.02^14^3.74^3.32^5.54^46^.6^^^.6
+45 ;;^UTILITY(U,$J,112,923,3)
+46 ;;=.035^.093^.12^.203^.116^.055^.048^.116^.094^.144^.277^.066^.102^.239^.515^.107^.151^.14
+47 ;;^UTILITY(U,$J,112,923,4)
+48 ;;=.12^.13^.51^1.86^.13^.73^3.06^0
+49 ;;^UTILITY(U,$J,112,923,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,924,0)
+52 ;;=CANDY, GUM DROPS, STARCH JELLY PCS^19-106^oz.^28.3^100^N
+53 ;;^UTILITY(U,$J,112,924,1)
+54 ;;=0^0^98.9^386^1^^^3^.4^1^1^5^44^0^.012^.01^^0^0^0
+55 ;;^UTILITY(U,$J,112,924,2)
+56 ;;=.002^.002^.006^0^0^0^^^0^^^^0^.1^^^0
+57 ;;^UTILITY(U,$J,112,924,4)
+58 ;;=^^^^^^0
+59 ;;^UTILITY(U,$J,112,924,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,925,0)
+62 ;;=CANDY, HARD^19-107^oz.^28.3^100^N
+63 ;;^UTILITY(U,$J,112,925,1)
+64 ;;=0^0^98.2^373^1.3^^^3^.3^3^3^5^38^.01^.029^.01^^0^0^.004
+65 ;;^UTILITY(U,$J,112,925,2)
+66 ;;=.003^.007^.008^.003^0^0^^^0^^^^0^.5^^^0
+67 ;;^UTILITY(U,$J,112,925,4)
+68 ;;=^^^^^^0
+69 ;;^UTILITY(U,$J,112,925,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,926,0)
+72 ;;=CANDY, JELLY BEANS^19-108^oz.^28.3^100^N
+73 ;;^UTILITY(U,$J,112,926,1)
+74 ;;=0^.5^93.1^367^6.3^^^3^1.1^2^4^37^25^.05^.028^.035^^0^0^0
+75 ;;^UTILITY(U,$J,112,926,2)
+76 ;;=0^0^0^0^0^0^^^0^^^^0^.1^^^0
+77 ;;^UTILITY(U,$J,112,926,4)
+78 ;;=^^^^^^0
+79 ;;^UTILITY(U,$J,112,926,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,927,0)
+82 ;;=CANDY, MARSHMALLOWS^19-116^ea.^7.2^100^N
+83 ;;^UTILITY(U,$J,112,927,1)
+84 ;;=1.8^.2^81.3^318^16.4^^^3^.23^2^8^5^47^.04^.097^.008^^1^0^.001
+85 ;;^UTILITY(U,$J,112,927,2)
+86 ;;=.001^.078^.005^.002^1^0^^^0^^^^0^.3^^^.1
+87 ;;^UTILITY(U,$J,112,927,3)
+88 ;;=0^.035^.028^.066^.077^.015^.002^.042^.01^.05^.147^.017^.18^.121^.208^.416^.275^.061
+89 ;;^UTILITY(U,$J,112,927,4)
+90 ;;=^^^^^^0
+91 ;;^UTILITY(U,$J,112,927,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,928,0)
+94 ;;=CANDY, PEANUT BARS^611-0^oz.^28.3^100^N
+95 ;;^UTILITY(U,$J,112,928,1)
+96 ;;=17.5^32.2^47.2^515^1.5^^^44^1.8^^273^448^10^^^^^0^0^.43
+97 ;;^UTILITY(U,$J,112,928,2)
+98 ;;=.08^9.4^^^^^9.34^^0^7.08^^^^1.6
+99 ;;^UTILITY(U,$J,112,928,4)
+100 ;;=^^^^^^13.85
+101 ;;^UTILITY(U,$J,112,928,20)
+102 ;;=USDA Std. Reference, Release 8
+103 ;;^UTILITY(U,$J,112,929,0)
+104 ;;=CANDY, PEANUT BRITTLE^19-148^oz.^28.3^100^N
+105 ;;^UTILITY(U,$J,112,929,1)
+106 ;;=7.5^19.1^69.3^453^1.8^^^30^1.38^50^111^208^452^.97^.353^.592^^191^0^.189
+107 ;;^UTILITY(U,$J,112,929,2)
+108 ;;=.052^3.498^.525^.104^70^.01^4.61^.07^13^5.02^8.48^4.68^47^1.5^^^2
+109 ;;^UTILITY(U,$J,112,929,3)
+110 ;;=.073^.258^.265^.488^.272^.093^.096^.389^.306^.316^.893^.19^.298^.913^1.568^.45^.334^.37
+111 ;;^UTILITY(U,$J,112,929,4)
+112 ;;=.12^.14^.5^2.78^.11^.91^8.1^0
+113 ;;^UTILITY(U,$J,112,929,20)
+114 ;;=USDA Std. Reference, Release 10
+115 ;;^UTILITY(U,$J,112,930,0)
+116 ;;=CANDY, SUGAR-COATED ALMONDS^613-0^oz.^28.3^100^N
