FHINI02W ; ; 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,874,1)
;;=4.4^10.3^63.2^356^20.7^^^90^1.16^12^70^99^284^.33^.067^.277^^38^.1^.128
;;^UTILITY(U,$J,112,874,2)
;;=.189^1.063^.167^.029^5^.06^2.026^.135^1^3.897^3.692^2.162^11^1.5
;;^UTILITY(U,$J,112,874,3)
;;=.054^.157^.199^.338^.204^.107^.091^.228^.154^.229^.213^.099^.183^.303^1.035^.146^.354^.247
;;^UTILITY(U,$J,112,874,4)
;;=.113^.847^.402^1.394^.008^.978^3.683^0
;;^UTILITY(U,$J,112,874,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,875,0)
;;=CAKE, WHITE, UNCKD WHITE-IC, ENR^543-3^pieces^78^100^N
;;^UTILITY(U,$J,112,875,1)
;;=3.3^12.9^62.9^375^20^^^48^.8^^65^58^234^^^^^110^.1^.1
;;^UTILITY(U,$J,112,875,2)
;;=.13^.9^^^^^2.37^^8^4.01^^^^.9
;;^UTILITY(U,$J,112,875,4)
;;=^^^^^^5.97
;;^UTILITY(U,$J,112,875,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,876,0)
;;=CAKE, YEL, UNICED, ENR^18-146^pieces^54.5^100^N
;;^UTILITY(U,$J,112,876,1)
;;=5.3^14.6^53^361^25.1^^^146^1.64^12^117^91^343^.45^.056^.19^^139^.2^.183
;;^UTILITY(U,$J,112,876,2)
;;=.233^1.456^.31^.036^10^.16^3.328^.219^54^3.924^6.229^3.57^40^1.9
;;^UTILITY(U,$J,112,876,3)
;;=.066^.191^.236^.414^.246^.12^.103^.266^.191^.268^.238^.124^.206^.342^1.329^.171^.473^.303
;;^UTILITY(U,$J,112,876,4)
;;=.015^.017^.114^2.235^.05^1.498^6.173^.017
;;^UTILITY(U,$J,112,876,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,877,0)
;;=CAKE, YEL, CARAMEL-IC, ENR^545-3^pieces^81^100^N
;;^UTILITY(U,$J,112,877,1)
;;=4^11.7^61.3^362^21.8^^^77^1.7^^103^73^226^^^^^170^.2^.14
;;^UTILITY(U,$J,112,877,2)
;;=.16^1.2^^^^^2.08^^48^3.58^^^^1.2
;;^UTILITY(U,$J,112,877,4)
;;=^^^^^^5.41
;;^UTILITY(U,$J,112,877,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,878,0)
;;=CAKE, YEL, CHOCOLATE-IC, ENR^18-140^pieces^75^100^N
;;^UTILITY(U,$J,112,878,1)
;;=3.8^17.4^55.4^379^21.9^^^37^2.08^30^161^178^337^.62^.188^.26^^91^.1^.12
;;^UTILITY(U,$J,112,878,2)
;;=.157^1.247^.235^.029^8^.12^1.968^.101^55^4.721^9.671^2.088^27^1.3^^^1.8
;;^UTILITY(U,$J,112,878,3)
;;=.05^.146^.173^.284^.209^.082^.073^.185^.137^.207^.185^.081^.161^.29^.781^.128^.26^.222
;;^UTILITY(U,$J,112,878,4)
;;=.001^.001^.084^2.447^.034^2.186^9.634^.015^^3.4
;;^UTILITY(U,$J,112,878,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,879,0)
;;=CAKE, FRZ, DEVIL'S FOOD, ENR, W/CHOC-IC^547-0^pieces^85^100^N
;;^UTILITY(U,$J,112,879,1)
;;=4.3^17.6^55.6^380^21^^^54^1.3^^92^119^420^^^^^430^.1^.08
;;^UTILITY(U,$J,112,879,2)
;;=.13^.7^^^^^.86^^48^9.1^^^^1.5
;;^UTILITY(U,$J,112,879,4)
;;=^^^^^^6.35
;;^UTILITY(U,$J,112,879,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,880,0)
;;=CAKE, ANGELFOOD, BKD FROM MIX, ENR^18-088^pieces^40^100^N
;;^UTILITY(U,$J,112,880,1)
;;=6.1^.3^58.7^257^32.9^^^84^.23^8^232^135^509^.13^.068^.063^^0^0^.092
;;^UTILITY(U,$J,112,880,2)
;;=.202^.171^.11^.006^5^.03^.117^.007^0^.043^.026^.124^0^2
;;^UTILITY(U,$J,112,880,3)
;;=.077^.259^.324^.497^.38^.192^.154^.343^.226^.368^.315^.134^.324^.561^.994^.211^.306^.402
;;^UTILITY(U,$J,112,880,4)
;;=0^0^0^.039^.001^.002^.025^0
;;^UTILITY(U,$J,112,880,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,881,0)
;;=CAKE, CHOC MALT, FRM MIX, ENR, UNCKD WHT IC^552-0^pieces^67^100^N
;;^UTILITY(U,$J,112,881,1)
;;=3.4^8.7^66.6^346^19.8^^^63^1.4^^166^80^318^^^^^190^.1^.11
;;^UTILITY(U,$J,112,881,2)
;;=.13^.9^^^^^1.22^^54^3.13^^^^1.5
;;^UTILITY(U,$J,112,881,4)
;;=^^^^^^3.78
;;^UTILITY(U,$J,112,881,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,882,0)
;;=CAKE, COFFEE CAKE, BKD FROM MIX, ENR^18-108^pieces^72^100^N
;;^UTILITY(U,$J,112,882,1)
;;=5.5^9.6^52.8^318^30.5^^^136^1.43^18^215^112^421^.45^.149^.31^^139^.2^.167
;;^UTILITY(U,$J,112,882,2)
;;=.175^1.519^.269^.05^12^.14^2.928^.217^49^1.855^3.851^3.165^40^1.7
;;^UTILITY(U,$J,112,882,3)
;;=.066^.19^.245^.422^.229^.12^.111^.271^.185^.275^.224^.123^.203^.332^1.472^.173^.511^.303
;;^UTILITY(U,$J,112,882,4)
;;=.014^.016^.066^1.186^.075^.533^3.77^.016
;;^UTILITY(U,$J,112,882,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,883,0)
;;=CAKE, CUPCAKE, BKD FROM MIX, ENR, W/CHOC-IC^557-0^cupcakes^36^100^N
;;^UTILITY(U,$J,112,883,1)
;;=4.5^12.6^59.2^358^22.2^^^130^1.6^^197^117^335^^^^^170^.2^.14
;;^UTILITY(U,$J,112,883,2)
;;=.17^1.2^^^^^1.44^^47^5.12^^^^1.5
;;^UTILITY(U,$J,112,883,4)
;;=^^^^^^5.32
;;^UTILITY(U,$J,112,883,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,884,0)
;;=CAKE, DEVIL'S FOOD, BKD FROM MIX, ENR, W/CHOC-IC^559-0^pieces^69^100^N
;;^UTILITY(U,$J,112,884,1)
;;=4.4^12.3^58.3^339^23.6^^^59^2^^105^130^262^^^^^150^.1^.1
FHINI02W ; ; 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,874,1)
+2 ;;=4.4^10.3^63.2^356^20.7^^^90^1.16^12^70^99^284^.33^.067^.277^^38^.1^.128
+3 ;;^UTILITY(U,$J,112,874,2)
+4 ;;=.189^1.063^.167^.029^5^.06^2.026^.135^1^3.897^3.692^2.162^11^1.5
+5 ;;^UTILITY(U,$J,112,874,3)
+6 ;;=.054^.157^.199^.338^.204^.107^.091^.228^.154^.229^.213^.099^.183^.303^1.035^.146^.354^.247
+7 ;;^UTILITY(U,$J,112,874,4)
+8 ;;=.113^.847^.402^1.394^.008^.978^3.683^0
+9 ;;^UTILITY(U,$J,112,874,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,875,0)
+12 ;;=CAKE, WHITE, UNCKD WHITE-IC, ENR^543-3^pieces^78^100^N
+13 ;;^UTILITY(U,$J,112,875,1)
+14 ;;=3.3^12.9^62.9^375^20^^^48^.8^^65^58^234^^^^^110^.1^.1
+15 ;;^UTILITY(U,$J,112,875,2)
+16 ;;=.13^.9^^^^^2.37^^8^4.01^^^^.9
+17 ;;^UTILITY(U,$J,112,875,4)
+18 ;;=^^^^^^5.97
+19 ;;^UTILITY(U,$J,112,875,20)
+20 ;;=USDA Std. Reference, Release 8
+21 ;;^UTILITY(U,$J,112,876,0)
+22 ;;=CAKE, YEL, UNICED, ENR^18-146^pieces^54.5^100^N
+23 ;;^UTILITY(U,$J,112,876,1)
+24 ;;=5.3^14.6^53^361^25.1^^^146^1.64^12^117^91^343^.45^.056^.19^^139^.2^.183
+25 ;;^UTILITY(U,$J,112,876,2)
+26 ;;=.233^1.456^.31^.036^10^.16^3.328^.219^54^3.924^6.229^3.57^40^1.9
+27 ;;^UTILITY(U,$J,112,876,3)
+28 ;;=.066^.191^.236^.414^.246^.12^.103^.266^.191^.268^.238^.124^.206^.342^1.329^.171^.473^.303
+29 ;;^UTILITY(U,$J,112,876,4)
+30 ;;=.015^.017^.114^2.235^.05^1.498^6.173^.017
+31 ;;^UTILITY(U,$J,112,876,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,877,0)
+34 ;;=CAKE, YEL, CARAMEL-IC, ENR^545-3^pieces^81^100^N
+35 ;;^UTILITY(U,$J,112,877,1)
+36 ;;=4^11.7^61.3^362^21.8^^^77^1.7^^103^73^226^^^^^170^.2^.14
+37 ;;^UTILITY(U,$J,112,877,2)
+38 ;;=.16^1.2^^^^^2.08^^48^3.58^^^^1.2
+39 ;;^UTILITY(U,$J,112,877,4)
+40 ;;=^^^^^^5.41
+41 ;;^UTILITY(U,$J,112,877,20)
+42 ;;=USDA Std. Reference, Release 8
+43 ;;^UTILITY(U,$J,112,878,0)
+44 ;;=CAKE, YEL, CHOCOLATE-IC, ENR^18-140^pieces^75^100^N
+45 ;;^UTILITY(U,$J,112,878,1)
+46 ;;=3.8^17.4^55.4^379^21.9^^^37^2.08^30^161^178^337^.62^.188^.26^^91^.1^.12
+47 ;;^UTILITY(U,$J,112,878,2)
+48 ;;=.157^1.247^.235^.029^8^.12^1.968^.101^55^4.721^9.671^2.088^27^1.3^^^1.8
+49 ;;^UTILITY(U,$J,112,878,3)
+50 ;;=.05^.146^.173^.284^.209^.082^.073^.185^.137^.207^.185^.081^.161^.29^.781^.128^.26^.222
+51 ;;^UTILITY(U,$J,112,878,4)
+52 ;;=.001^.001^.084^2.447^.034^2.186^9.634^.015^^3.4
+53 ;;^UTILITY(U,$J,112,878,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,879,0)
+56 ;;=CAKE, FRZ, DEVIL'S FOOD, ENR, W/CHOC-IC^547-0^pieces^85^100^N
+57 ;;^UTILITY(U,$J,112,879,1)
+58 ;;=4.3^17.6^55.6^380^21^^^54^1.3^^92^119^420^^^^^430^.1^.08
+59 ;;^UTILITY(U,$J,112,879,2)
+60 ;;=.13^.7^^^^^.86^^48^9.1^^^^1.5
+61 ;;^UTILITY(U,$J,112,879,4)
+62 ;;=^^^^^^6.35
+63 ;;^UTILITY(U,$J,112,879,20)
+64 ;;=USDA Std. Reference, Release 8
+65 ;;^UTILITY(U,$J,112,880,0)
+66 ;;=CAKE, ANGELFOOD, BKD FROM MIX, ENR^18-088^pieces^40^100^N
+67 ;;^UTILITY(U,$J,112,880,1)
+68 ;;=6.1^.3^58.7^257^32.9^^^84^.23^8^232^135^509^.13^.068^.063^^0^0^.092
+69 ;;^UTILITY(U,$J,112,880,2)
+70 ;;=.202^.171^.11^.006^5^.03^.117^.007^0^.043^.026^.124^0^2
+71 ;;^UTILITY(U,$J,112,880,3)
+72 ;;=.077^.259^.324^.497^.38^.192^.154^.343^.226^.368^.315^.134^.324^.561^.994^.211^.306^.402
+73 ;;^UTILITY(U,$J,112,880,4)
+74 ;;=0^0^0^.039^.001^.002^.025^0
+75 ;;^UTILITY(U,$J,112,880,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,881,0)
+78 ;;=CAKE, CHOC MALT, FRM MIX, ENR, UNCKD WHT IC^552-0^pieces^67^100^N
+79 ;;^UTILITY(U,$J,112,881,1)
+80 ;;=3.4^8.7^66.6^346^19.8^^^63^1.4^^166^80^318^^^^^190^.1^.11
+81 ;;^UTILITY(U,$J,112,881,2)
+82 ;;=.13^.9^^^^^1.22^^54^3.13^^^^1.5
+83 ;;^UTILITY(U,$J,112,881,4)
+84 ;;=^^^^^^3.78
+85 ;;^UTILITY(U,$J,112,881,20)
+86 ;;=USDA Std. Reference, Release 8
+87 ;;^UTILITY(U,$J,112,882,0)
+88 ;;=CAKE, COFFEE CAKE, BKD FROM MIX, ENR^18-108^pieces^72^100^N
+89 ;;^UTILITY(U,$J,112,882,1)
+90 ;;=5.5^9.6^52.8^318^30.5^^^136^1.43^18^215^112^421^.45^.149^.31^^139^.2^.167
+91 ;;^UTILITY(U,$J,112,882,2)
+92 ;;=.175^1.519^.269^.05^12^.14^2.928^.217^49^1.855^3.851^3.165^40^1.7
+93 ;;^UTILITY(U,$J,112,882,3)
+94 ;;=.066^.19^.245^.422^.229^.12^.111^.271^.185^.275^.224^.123^.203^.332^1.472^.173^.511^.303
+95 ;;^UTILITY(U,$J,112,882,4)
+96 ;;=.014^.016^.066^1.186^.075^.533^3.77^.016
+97 ;;^UTILITY(U,$J,112,882,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,883,0)
+100 ;;=CAKE, CUPCAKE, BKD FROM MIX, ENR, W/CHOC-IC^557-0^cupcakes^36^100^N
+101 ;;^UTILITY(U,$J,112,883,1)
+102 ;;=4.5^12.6^59.2^358^22.2^^^130^1.6^^197^117^335^^^^^170^.2^.14
+103 ;;^UTILITY(U,$J,112,883,2)
+104 ;;=.17^1.2^^^^^1.44^^47^5.12^^^^1.5
+105 ;;^UTILITY(U,$J,112,883,4)
+106 ;;=^^^^^^5.32
+107 ;;^UTILITY(U,$J,112,883,20)
+108 ;;=USDA Std. Reference, Release 8
+109 ;;^UTILITY(U,$J,112,884,0)
+110 ;;=CAKE, DEVIL'S FOOD, BKD FROM MIX, ENR, W/CHOC-IC^559-0^pieces^69^100^N
+111 ;;^UTILITY(U,$J,112,884,1)
+112 ;;=4.4^12.3^58.3^339^23.6^^^59^2^^105^130^262^^^^^150^.1^.1
