FHINI0BR ; ; 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,7666,1)
;;=13.548^7.742^25.161^225.806^^^^322.581^2.323^^^^548.387^^^^^129.032^9.677^.29
;;^UTILITY(U,$J,112,7666,2)
;;=.277^1.935^^^^^^^12.903^2.581^^1.29
;;^UTILITY(U,$J,112,7666,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7667,0)
;;=PIZZA,CHEESE,PILSBURY HEAT 'N EAT^BC-00940^4.1-oz.^116
;;^UTILITY(U,$J,112,7667,1)
;;=11.034^8.966^26.983^231.897^46.724^^^207.759^1^^175.862^174.138^575^^^^^462.931^4.31^.138
;;^UTILITY(U,$J,112,7667,2)
;;=.19^1.466
;;^UTILITY(U,$J,112,7667,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7668,0)
;;=PIZZA,CHEESE,PILSBURY (MICRO)^BC-00941^3.55-oz.^102
;;^UTILITY(U,$J,112,7668,1)
;;=10.196^9.608^27.353^237.255^50.98^^^190.196^1.304^^158.824^153.922^528.431^^^^^387.255^3.922^.127
;;^UTILITY(U,$J,112,7668,2)
;;=.157^1.471
;;^UTILITY(U,$J,112,7668,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7669,0)
;;=PIZZA,CHEESE,TOTINO'S CLASSIC^BC-00942^3.12-oz.^87
;;^UTILITY(U,$J,112,7669,1)
;;=11.034^10.23^25.517^235.632^51.954^^^227.586^1.805^^220.69^145.977^473.563^^^^^379.31^3.448^.195
;;^UTILITY(U,$J,112,7669,2)
;;=.195^1.954
;;^UTILITY(U,$J,112,7669,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7670,0)
;;=PIZZA,CHEESE,TOTINO'S (MICRO)^BC-00943^3.9-oz.^110
;;^UTILITY(U,$J,112,7670,1)
;;=9.636^7.273^30.636^227.273^50^^^198.182^2.1^^210^280^689.091^^^^^105.455^.909^.3
;;^UTILITY(U,$J,112,7670,2)
;;=.2^2.364
;;^UTILITY(U,$J,112,7670,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7671,0)
;;=PIZZA,COMBINATION,JENO'S EXTRA TOPPING^BC-00944^3.5-oz.^100
;;^UTILITY(U,$J,112,7671,1)
;;=10^9.7^20.8^211^56^^^155^1.9^^164^277^709^^^^^400^7^.2
;;^UTILITY(U,$J,112,7671,2)
;;=.18^2.3
;;^UTILITY(U,$J,112,7671,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7672,0)
;;=PIZZA,COMBINATION,PILSBURY (MICRO)^BC-00945^4.5-oz.^128
;;^UTILITY(U,$J,112,7672,1)
;;=10.938^11.719^22.969^240.625^52.031^^^153.125^1.297^^160.156^156.25^610.156^^^^^342.969^7.031^.188
;;^UTILITY(U,$J,112,7672,2)
;;=.18^1.875
;;^UTILITY(U,$J,112,7672,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7673,0)
;;=PIZZA,COMBINATION,TOTINO'S CLASSIC DELUXE^BC-00946^3.75-oz.^91
;;^UTILITY(U,$J,112,7673,1)
;;=12.418^13.407^21.978^258.242^50.989^^^194.505^1.703^^215.385^194.505^592.308^^^^^361.538^3.297^.297
;;^UTILITY(U,$J,112,7673,2)
;;=.198^2.198
;;^UTILITY(U,$J,112,7673,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7674,0)
;;=PIZZA,COMBINATION,TOTINO'S CRISP CRUST (MICRO)^BC-00947^3.5-oz.^100
;;^UTILITY(U,$J,112,7674,1)
;;=10.2^13.5^25^263^49^^^149^1.5^^194^158^716^^^^^282^3^.21
;;^UTILITY(U,$J,112,7674,2)
;;=.17^1.9
;;^UTILITY(U,$J,112,7674,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7675,0)
;;=PIZZA,DELUXE,CELESTE^BC-00948^5.55-oz.^158
;;^UTILITY(U,$J,112,7675,1)
;;=9.81^13.987^18.544^239.241^54.62^^^168.987^1.171^24.051^225.949^222.785^571.519^1.899^.139^0^^601.266^0^.127
;;^UTILITY(U,$J,112,7675,2)
;;=.348^1.709^1.266^.108^36.076^1.266^^^12.658^4.43^4.43^1.266^^^^^1.962
;;^UTILITY(U,$J,112,7675,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7676,0)
;;=PIZZA,DELUXE,CELESTE PIZZA-FOR-ONE^BC-00949^8.25-oz.^234
;;^UTILITY(U,$J,112,7676,1)
;;=9.701^13.59^21.88^248.718^52.906^^^141.88^1.098^26.068^205.128^212.821^584.188^2.137^.15^0^^523.932^0^.128
;;^UTILITY(U,$J,112,7676,2)
;;=.35^1.496^.855^.111^34.188^.855^^^8.547^4.274^3.846^1.282^^^^^1.88
;;^UTILITY(U,$J,112,7676,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7677,0)
;;=PIZZA,DELUXE,LEAN CUISINE^BC-00950^6.1-oz.^173
;;^UTILITY(U,$J,112,7677,1)
;;=10.983^6.936^23.121^196.532^^^^173.41^2.081^^^213.873^624.277^^^^^231.214^3.468^.306
;;^UTILITY(U,$J,112,7677,2)
;;=.249^2.89^^^^^^^17.341^1.734^^1.156
;;^UTILITY(U,$J,112,7677,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7678,0)
;;=PIZZA,GROUND BEEF,JENO'S CRISP N' TASTY^BC-00951^4.05-oz.^115
;;^UTILITY(U,$J,112,7678,1)
;;=10.261^13.391^24^257.391^50^^^147.826^1.6^^213.043^141.739^705.217^^^^^207.826^1.739^.183
;;^UTILITY(U,$J,112,7678,2)
;;=.139^2.435
;;^UTILITY(U,$J,112,7678,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7679,0)
;;=PIZZA,GROUND BEEF,TOTINO'S CRISP CRUST (MICRO)^BC-00952^3.5-oz.^100
FHINI0BR ; ; 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,7666,1)
+2 ;;=13.548^7.742^25.161^225.806^^^^322.581^2.323^^^^548.387^^^^^129.032^9.677^.29
+3 ;;^UTILITY(U,$J,112,7666,2)
+4 ;;=.277^1.935^^^^^^^12.903^2.581^^1.29
+5 ;;^UTILITY(U,$J,112,7666,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7667,0)
+8 ;;=PIZZA,CHEESE,PILSBURY HEAT 'N EAT^BC-00940^4.1-oz.^116
+9 ;;^UTILITY(U,$J,112,7667,1)
+10 ;;=11.034^8.966^26.983^231.897^46.724^^^207.759^1^^175.862^174.138^575^^^^^462.931^4.31^.138
+11 ;;^UTILITY(U,$J,112,7667,2)
+12 ;;=.19^1.466
+13 ;;^UTILITY(U,$J,112,7667,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7668,0)
+16 ;;=PIZZA,CHEESE,PILSBURY (MICRO)^BC-00941^3.55-oz.^102
+17 ;;^UTILITY(U,$J,112,7668,1)
+18 ;;=10.196^9.608^27.353^237.255^50.98^^^190.196^1.304^^158.824^153.922^528.431^^^^^387.255^3.922^.127
+19 ;;^UTILITY(U,$J,112,7668,2)
+20 ;;=.157^1.471
+21 ;;^UTILITY(U,$J,112,7668,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7669,0)
+24 ;;=PIZZA,CHEESE,TOTINO'S CLASSIC^BC-00942^3.12-oz.^87
+25 ;;^UTILITY(U,$J,112,7669,1)
+26 ;;=11.034^10.23^25.517^235.632^51.954^^^227.586^1.805^^220.69^145.977^473.563^^^^^379.31^3.448^.195
+27 ;;^UTILITY(U,$J,112,7669,2)
+28 ;;=.195^1.954
+29 ;;^UTILITY(U,$J,112,7669,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7670,0)
+32 ;;=PIZZA,CHEESE,TOTINO'S (MICRO)^BC-00943^3.9-oz.^110
+33 ;;^UTILITY(U,$J,112,7670,1)
+34 ;;=9.636^7.273^30.636^227.273^50^^^198.182^2.1^^210^280^689.091^^^^^105.455^.909^.3
+35 ;;^UTILITY(U,$J,112,7670,2)
+36 ;;=.2^2.364
+37 ;;^UTILITY(U,$J,112,7670,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7671,0)
+40 ;;=PIZZA,COMBINATION,JENO'S EXTRA TOPPING^BC-00944^3.5-oz.^100
+41 ;;^UTILITY(U,$J,112,7671,1)
+42 ;;=10^9.7^20.8^211^56^^^155^1.9^^164^277^709^^^^^400^7^.2
+43 ;;^UTILITY(U,$J,112,7671,2)
+44 ;;=.18^2.3
+45 ;;^UTILITY(U,$J,112,7671,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7672,0)
+48 ;;=PIZZA,COMBINATION,PILSBURY (MICRO)^BC-00945^4.5-oz.^128
+49 ;;^UTILITY(U,$J,112,7672,1)
+50 ;;=10.938^11.719^22.969^240.625^52.031^^^153.125^1.297^^160.156^156.25^610.156^^^^^342.969^7.031^.188
+51 ;;^UTILITY(U,$J,112,7672,2)
+52 ;;=.18^1.875
+53 ;;^UTILITY(U,$J,112,7672,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7673,0)
+56 ;;=PIZZA,COMBINATION,TOTINO'S CLASSIC DELUXE^BC-00946^3.75-oz.^91
+57 ;;^UTILITY(U,$J,112,7673,1)
+58 ;;=12.418^13.407^21.978^258.242^50.989^^^194.505^1.703^^215.385^194.505^592.308^^^^^361.538^3.297^.297
+59 ;;^UTILITY(U,$J,112,7673,2)
+60 ;;=.198^2.198
+61 ;;^UTILITY(U,$J,112,7673,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7674,0)
+64 ;;=PIZZA,COMBINATION,TOTINO'S CRISP CRUST (MICRO)^BC-00947^3.5-oz.^100
+65 ;;^UTILITY(U,$J,112,7674,1)
+66 ;;=10.2^13.5^25^263^49^^^149^1.5^^194^158^716^^^^^282^3^.21
+67 ;;^UTILITY(U,$J,112,7674,2)
+68 ;;=.17^1.9
+69 ;;^UTILITY(U,$J,112,7674,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7675,0)
+72 ;;=PIZZA,DELUXE,CELESTE^BC-00948^5.55-oz.^158
+73 ;;^UTILITY(U,$J,112,7675,1)
+74 ;;=9.81^13.987^18.544^239.241^54.62^^^168.987^1.171^24.051^225.949^222.785^571.519^1.899^.139^0^^601.266^0^.127
+75 ;;^UTILITY(U,$J,112,7675,2)
+76 ;;=.348^1.709^1.266^.108^36.076^1.266^^^12.658^4.43^4.43^1.266^^^^^1.962
+77 ;;^UTILITY(U,$J,112,7675,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7676,0)
+80 ;;=PIZZA,DELUXE,CELESTE PIZZA-FOR-ONE^BC-00949^8.25-oz.^234
+81 ;;^UTILITY(U,$J,112,7676,1)
+82 ;;=9.701^13.59^21.88^248.718^52.906^^^141.88^1.098^26.068^205.128^212.821^584.188^2.137^.15^0^^523.932^0^.128
+83 ;;^UTILITY(U,$J,112,7676,2)
+84 ;;=.35^1.496^.855^.111^34.188^.855^^^8.547^4.274^3.846^1.282^^^^^1.88
+85 ;;^UTILITY(U,$J,112,7676,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7677,0)
+88 ;;=PIZZA,DELUXE,LEAN CUISINE^BC-00950^6.1-oz.^173
+89 ;;^UTILITY(U,$J,112,7677,1)
+90 ;;=10.983^6.936^23.121^196.532^^^^173.41^2.081^^^213.873^624.277^^^^^231.214^3.468^.306
+91 ;;^UTILITY(U,$J,112,7677,2)
+92 ;;=.249^2.89^^^^^^^17.341^1.734^^1.156
+93 ;;^UTILITY(U,$J,112,7677,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7678,0)
+96 ;;=PIZZA,GROUND BEEF,JENO'S CRISP N' TASTY^BC-00951^4.05-oz.^115
+97 ;;^UTILITY(U,$J,112,7678,1)
+98 ;;=10.261^13.391^24^257.391^50^^^147.826^1.6^^213.043^141.739^705.217^^^^^207.826^1.739^.183
+99 ;;^UTILITY(U,$J,112,7678,2)
+100 ;;=.139^2.435
+101 ;;^UTILITY(U,$J,112,7678,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,7679,0)
+104 ;;=PIZZA,GROUND BEEF,TOTINO'S CRISP CRUST (MICRO)^BC-00952^3.5-oz.^100
