FHINI0BU ; ; 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,7705,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7706,0)
;;=PIZZA,SUPREMA,CELESTE PIZZA-FOR-ONE^BC-00979^9-oz.^255
;;^UTILITY(U,$J,112,7706,1)
;;=10.392^15.412^21.176^265.882^51.294^^^178.039^1.071^25.098^236.078^207.059^631.373^1.961^.141^0^^761.961^0^.129
;;^UTILITY(U,$J,112,7706,2)
;;=.361^1.451^1.176^.11^47.059^1.176^^^7.843^4.706^4.314^1.569^^^^^1.765
;;^UTILITY(U,$J,112,7706,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7707,0)
;;=PIZZA,VEGETABLE,TOTINO'S PARTY^BC-00980^5.35-oz.^152
;;^UTILITY(U,$J,112,7707,1)
;;=6.974^8.816^23.684^200^58.224^^^138.158^1.697^^186.842^134.868^598.026^^^^^344.079^8.553^.178
;;^UTILITY(U,$J,112,7707,2)
;;=.171^1.908
;;^UTILITY(U,$J,112,7707,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7708,0)
;;=PIZZA,CROISSANT CRUST,CHEESE,PEPPERIDGE FARM^BC-00981^4.4-oz.^125
;;^UTILITY(U,$J,112,7708,1)
;;=11.84^18.56^32.4^344^^^^264^1.68^^^149.6^511.2^^^^^269.6^1.6^.04
;;^UTILITY(U,$J,112,7708,2)
;;=.192^1.92
;;^UTILITY(U,$J,112,7708,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7709,0)
;;=PIZZA,CROISSANT CRUST,DELUXE,PEPPERIDGE FARM^BC-00982^5-oz.^142
;;^UTILITY(U,$J,112,7709,1)
;;=11.127^15.775^30.423^308.451^^^^209.859^1.901^^^118.31^554.225^^^^^128.169^.704^.148
;;^UTILITY(U,$J,112,7709,2)
;;=.141^1.901
;;^UTILITY(U,$J,112,7709,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7710,0)
;;=PIZZA,CROISSANT CRUST,PEPPERONI,PEPPERIDGE FARM^BC-00983^4.5-oz.^128
;;^UTILITY(U,$J,112,7710,1)
;;=11.172^16.953^33.359^330.469^^^^200^1.719^^^155.469^538.281^^^^^241.406^3.125^.211
;;^UTILITY(U,$J,112,7710,2)
;;=.18^2.422
;;^UTILITY(U,$J,112,7710,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7711,0)
;;=PIZZA,CROISSANT CRUST,SAUSAGE,PEPPERIDGE FARM^BC-00984^4.7-oz.^135
;;^UTILITY(U,$J,112,7711,1)
;;=10.296^16.963^30.889^317.037^^^^198.519^1.63^^^^531.852^^^^^159.259^3.704^.081
;;^UTILITY(U,$J,112,7711,2)
;;=.126^2.074
;;^UTILITY(U,$J,112,7711,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7712,0)
;;=PIZZA,FRENCH BREAD,CHEESE,BANQUET ZAP^BC-00985^4.5-oz.^128
;;^UTILITY(U,$J,112,7712,1)
;;=10.938^7.813^32.031^242.188^^^^239.063^1.563^^^171.875^625^^^^^852.344^0^.313
;;^UTILITY(U,$J,112,7712,2)
;;=.203^1.875^^^^^^^27.344
;;^UTILITY(U,$J,112,7712,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7713,0)
;;=PIZZA,FRENCH BREAD,CHEESE,PILSBURY (MICRO)^BC-00986^5.7-oz.^161
;;^UTILITY(U,$J,112,7713,1)
;;=11.491^9.814^26.708^242.236^49.379^^^191.925^1.373^^155.28^170.186^439.752^^^^^103.727^.621^.248
;;^UTILITY(U,$J,112,7713,2)
;;=.13^1.677
;;^UTILITY(U,$J,112,7713,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7714,0)
;;=PIZZA,FRENCH BREAD,CHEESE,STOUFFERS^BC-00987^5.2-oz.^147
;;^UTILITY(U,$J,112,7714,1)
;;=10^8.912^28.027^231.973^51.02^^^165.306^1.803^^^180.272^580.272^^^^^300^10.204^.32
;;^UTILITY(U,$J,112,7714,2)
;;=.279^2.313^^^^^^^12.245
;;^UTILITY(U,$J,112,7714,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7715,0)
;;=PIZZA,FRENCH BREAD,DELUXE,BANQUET ZAP^BC-00988^4.8-oz.^136
;;^UTILITY(U,$J,112,7715,1)
;;=9.559^9.559^28.676^242.647^^^^141.176^2.206^^^176.471^654.412^^^^^867.647^1.471^.382
;;^UTILITY(U,$J,112,7715,2)
;;=.184^2.059^^^^^^^18.382
;;^UTILITY(U,$J,112,7715,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7716,0)
;;=PIZZA,FRENCH BREAD,PEPPERONI, BANQUET ZAP^BC-00989^4.5-oz.^128
;;^UTILITY(U,$J,112,7716,1)
;;=11.719^12.5^28.125^273.438^^^^189.844^1.563^^^187.5^812.5^^^^^922.656^0^.313
;;^UTILITY(U,$J,112,7716,2)
;;=.195^2.266^^^^^^^31.25
;;^UTILITY(U,$J,112,7716,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7717,0)
;;=PIZZA,FRENCH BREAD,PEPPERONI, PILLSBURY (MICRO)^BC-00990^6-oz.^170
;;^UTILITY(U,$J,112,7717,1)
;;=11.294^11.294^27^255.882^47^^^148.824^170^^128.235^201.176^555.294^^^^^142.941^.588^.271
;;^UTILITY(U,$J,112,7717,2)
;;=.141^3.176
;;^UTILITY(U,$J,112,7717,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7718,0)
;;=PIZZA,FRENCH BREAD,PEPPERONI, STOUFFERS^BC-00991^5.6-oz.^159
;;^UTILITY(U,$J,112,7718,1)
;;=11.006^12.013^25.975^255.975^48.994^^^135.22^1.799^^^200^700^^^^^300^10.063^.327
;;^UTILITY(U,$J,112,7718,2)
;;=.27^2.83^^^^^^^22.013
;;^UTILITY(U,$J,112,7718,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0BU ; ; 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,7705,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,7706,0)
+4 ;;=PIZZA,SUPREMA,CELESTE PIZZA-FOR-ONE^BC-00979^9-oz.^255
+5 ;;^UTILITY(U,$J,112,7706,1)
+6 ;;=10.392^15.412^21.176^265.882^51.294^^^178.039^1.071^25.098^236.078^207.059^631.373^1.961^.141^0^^761.961^0^.129
+7 ;;^UTILITY(U,$J,112,7706,2)
+8 ;;=.361^1.451^1.176^.11^47.059^1.176^^^7.843^4.706^4.314^1.569^^^^^1.765
+9 ;;^UTILITY(U,$J,112,7706,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,7707,0)
+12 ;;=PIZZA,VEGETABLE,TOTINO'S PARTY^BC-00980^5.35-oz.^152
+13 ;;^UTILITY(U,$J,112,7707,1)
+14 ;;=6.974^8.816^23.684^200^58.224^^^138.158^1.697^^186.842^134.868^598.026^^^^^344.079^8.553^.178
+15 ;;^UTILITY(U,$J,112,7707,2)
+16 ;;=.171^1.908
+17 ;;^UTILITY(U,$J,112,7707,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,7708,0)
+20 ;;=PIZZA,CROISSANT CRUST,CHEESE,PEPPERIDGE FARM^BC-00981^4.4-oz.^125
+21 ;;^UTILITY(U,$J,112,7708,1)
+22 ;;=11.84^18.56^32.4^344^^^^264^1.68^^^149.6^511.2^^^^^269.6^1.6^.04
+23 ;;^UTILITY(U,$J,112,7708,2)
+24 ;;=.192^1.92
+25 ;;^UTILITY(U,$J,112,7708,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,7709,0)
+28 ;;=PIZZA,CROISSANT CRUST,DELUXE,PEPPERIDGE FARM^BC-00982^5-oz.^142
+29 ;;^UTILITY(U,$J,112,7709,1)
+30 ;;=11.127^15.775^30.423^308.451^^^^209.859^1.901^^^118.31^554.225^^^^^128.169^.704^.148
+31 ;;^UTILITY(U,$J,112,7709,2)
+32 ;;=.141^1.901
+33 ;;^UTILITY(U,$J,112,7709,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,7710,0)
+36 ;;=PIZZA,CROISSANT CRUST,PEPPERONI,PEPPERIDGE FARM^BC-00983^4.5-oz.^128
+37 ;;^UTILITY(U,$J,112,7710,1)
+38 ;;=11.172^16.953^33.359^330.469^^^^200^1.719^^^155.469^538.281^^^^^241.406^3.125^.211
+39 ;;^UTILITY(U,$J,112,7710,2)
+40 ;;=.18^2.422
+41 ;;^UTILITY(U,$J,112,7710,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,7711,0)
+44 ;;=PIZZA,CROISSANT CRUST,SAUSAGE,PEPPERIDGE FARM^BC-00984^4.7-oz.^135
+45 ;;^UTILITY(U,$J,112,7711,1)
+46 ;;=10.296^16.963^30.889^317.037^^^^198.519^1.63^^^^531.852^^^^^159.259^3.704^.081
+47 ;;^UTILITY(U,$J,112,7711,2)
+48 ;;=.126^2.074
+49 ;;^UTILITY(U,$J,112,7711,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,7712,0)
+52 ;;=PIZZA,FRENCH BREAD,CHEESE,BANQUET ZAP^BC-00985^4.5-oz.^128
+53 ;;^UTILITY(U,$J,112,7712,1)
+54 ;;=10.938^7.813^32.031^242.188^^^^239.063^1.563^^^171.875^625^^^^^852.344^0^.313
+55 ;;^UTILITY(U,$J,112,7712,2)
+56 ;;=.203^1.875^^^^^^^27.344
+57 ;;^UTILITY(U,$J,112,7712,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,7713,0)
+60 ;;=PIZZA,FRENCH BREAD,CHEESE,PILSBURY (MICRO)^BC-00986^5.7-oz.^161
+61 ;;^UTILITY(U,$J,112,7713,1)
+62 ;;=11.491^9.814^26.708^242.236^49.379^^^191.925^1.373^^155.28^170.186^439.752^^^^^103.727^.621^.248
+63 ;;^UTILITY(U,$J,112,7713,2)
+64 ;;=.13^1.677
+65 ;;^UTILITY(U,$J,112,7713,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,7714,0)
+68 ;;=PIZZA,FRENCH BREAD,CHEESE,STOUFFERS^BC-00987^5.2-oz.^147
+69 ;;^UTILITY(U,$J,112,7714,1)
+70 ;;=10^8.912^28.027^231.973^51.02^^^165.306^1.803^^^180.272^580.272^^^^^300^10.204^.32
+71 ;;^UTILITY(U,$J,112,7714,2)
+72 ;;=.279^2.313^^^^^^^12.245
+73 ;;^UTILITY(U,$J,112,7714,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,7715,0)
+76 ;;=PIZZA,FRENCH BREAD,DELUXE,BANQUET ZAP^BC-00988^4.8-oz.^136
+77 ;;^UTILITY(U,$J,112,7715,1)
+78 ;;=9.559^9.559^28.676^242.647^^^^141.176^2.206^^^176.471^654.412^^^^^867.647^1.471^.382
+79 ;;^UTILITY(U,$J,112,7715,2)
+80 ;;=.184^2.059^^^^^^^18.382
+81 ;;^UTILITY(U,$J,112,7715,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,7716,0)
+84 ;;=PIZZA,FRENCH BREAD,PEPPERONI, BANQUET ZAP^BC-00989^4.5-oz.^128
+85 ;;^UTILITY(U,$J,112,7716,1)
+86 ;;=11.719^12.5^28.125^273.438^^^^189.844^1.563^^^187.5^812.5^^^^^922.656^0^.313
+87 ;;^UTILITY(U,$J,112,7716,2)
+88 ;;=.195^2.266^^^^^^^31.25
+89 ;;^UTILITY(U,$J,112,7716,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,7717,0)
+92 ;;=PIZZA,FRENCH BREAD,PEPPERONI, PILLSBURY (MICRO)^BC-00990^6-oz.^170
+93 ;;^UTILITY(U,$J,112,7717,1)
+94 ;;=11.294^11.294^27^255.882^47^^^148.824^170^^128.235^201.176^555.294^^^^^142.941^.588^.271
+95 ;;^UTILITY(U,$J,112,7717,2)
+96 ;;=.141^3.176
+97 ;;^UTILITY(U,$J,112,7717,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,7718,0)
+100 ;;=PIZZA,FRENCH BREAD,PEPPERONI, STOUFFERS^BC-00991^5.6-oz.^159
+101 ;;^UTILITY(U,$J,112,7718,1)
+102 ;;=11.006^12.013^25.975^255.975^48.994^^^135.22^1.799^^^200^700^^^^^300^10.063^.327
+103 ;;^UTILITY(U,$J,112,7718,2)
+104 ;;=.27^2.83^^^^^^^22.013
+105 ;;^UTILITY(U,$J,112,7718,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
