FHINI0BV ; ; 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,7719,0)
;;=PIZZA,FRENCH BREAD,SAUSAGE, PILLSBURY MICROWAVE^BC-00992^6.3-oz.^178
;;^UTILITY(U,$J,112,7719,1)
;;=10.225^8.82^27.022^228.09^51.011^^^138.202^2.399^^125.843^219.101^575.281^^^^^115.73^0^.242
;;^UTILITY(U,$J,112,7719,2)
;;=.202^2.697
;;^UTILITY(U,$J,112,7719,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7720,0)
;;=PIZZA,PAN,CHEESE, THREE, TOTINO'S^BC-00993^3.92-oz.^111
;;^UTILITY(U,$J,112,7720,1)
;;=13.514^9.009^30^257.658^40^^^257.658^1.297^^218.018^156.757^454.955^^^^^452.252^2.703^.126
;;^UTILITY(U,$J,112,7720,2)
;;=.18^1.532
;;^UTILITY(U,$J,112,7720,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7721,0)
;;=PIZZA,PAN,PEPPERONI, TOTINO'S^BC-00994^4.43-oz.^126
;;^UTILITY(U,$J,112,7721,1)
;;=13.571^11.984^28.333^279.365^38.968^^^200.794^1.302^^188.889^180.159^610.317^^^^^389.683^2.381^.143
;;^UTILITY(U,$J,112,7721,2)
;;=.183^1.905
;;^UTILITY(U,$J,112,7721,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7722,0)
;;=PIZZA,PAN,SAUSAGE & PEPPERONI, TOTINO'S^BC-00995^4.2-oz.^119
;;^UTILITY(U,$J,112,7722,1)
;;=13.193^11.513^24.034^268.067^41.008^^^191.597^1.403^^193.277^166.387^575.63^^^^^370.588^2.521^.176
;;^UTILITY(U,$J,112,7722,2)
;;=.176^1.933
;;^UTILITY(U,$J,112,7722,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7723,0)
;;=PIZZA,PAN,SAUSAGE, TOTINO'S^BC-00996^4.38-oz.^124
;;^UTILITY(U,$J,112,7723,1)
;;=12.661^10.323^27.419^255.645^42.016^^^195.161^1.403^^196.774^155.645^507.258^^^^^376.613^2.419^.194
;;^UTILITY(U,$J,112,7723,2)
;;=.177^1.532
;;^UTILITY(U,$J,112,7723,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7724,0)
;;=PIZZA ROLLS,CHEESE, JENO'S^BC-00997^6-rolls^85
;;^UTILITY(U,$J,112,7724,1)
;;=9.647^14.471^26.471^278.824^47.529^^^190.588^2.8^^210.588^110.588^408.235^^^^^352.941^2.353^.306
;;^UTILITY(U,$J,112,7724,2)
;;=.306^3.059
;;^UTILITY(U,$J,112,7724,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7725,0)
;;=PIZZA ROLLS,HAMBURGER, LENO'S^BC-00998^6-rolls^85
;;^UTILITY(U,$J,112,7725,1)
;;=10^15.529^24.471^281.176^48^^^70.588^2.906^^140^87.059^323.529^^^^^141.176^1.176^.353
;;^UTILITY(U,$J,112,7725,2)
;;=.271^3.529
;;^UTILITY(U,$J,112,7725,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7726,0)
;;=PIZZA ROLLS,PEPPERONI CHEESE,JENO'S (MICRO)^BC-00999^6-rolls^85
;;^UTILITY(U,$J,112,7726,1)
;;=8.118^15.529^26.471^281.176^47.059^^^63.529^3.106^^129.412^155.294^511.765^^^^^356.471^8.235^.4
;;^UTILITY(U,$J,112,7726,2)
;;=.306^3.647
;;^UTILITY(U,$J,112,7726,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7727,0)
;;=PIZZA ROLLS,SAUSAGE & CHEESE, JENO-S MICROWAVE^BC-01000^6-rolls^85
;;^UTILITY(U,$J,112,7727,1)
;;=9.176^15.412^27.765^289.412^45.059^^^71.765^3^^137.647^207.059^517.647^^^^^369.412^8.235^.4
;;^UTILITY(U,$J,112,7727,2)
;;=.306^3.647
;;^UTILITY(U,$J,112,7727,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7728,0)
;;=PIZZA ROLLS,SAUSAGE & PEPPERONI, JENO'S^BC-01001^6-rolls^85
;;^UTILITY(U,$J,112,7728,1)
;;=7.765^15.059^25.647^270.588^50^^^49.412^3.2^^103.529^130.588^444.706^^^^^192.941^4.706^.4
;;^UTILITY(U,$J,112,7728,2)
;;=.2^3.647
;;^UTILITY(U,$J,112,7728,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7729,0)
;;=PIZZA,THIN CRUST,COMBINATION, PAPPALO'S^BC-01002^3.67-oz.^104
;;^UTILITY(U,$J,112,7729,1)
;;=12.404^9.808^27.019^248.077^41.442^^^211.538^.904^^180.769^177.885^550.962^^^^^416.346^3.846^.096
;;^UTILITY(U,$J,112,7729,2)
;;=.096^1.442
;;^UTILITY(U,$J,112,7729,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7730,0)
;;=FROZEN BREAKFAST,BAGEL,SWANSON GREAT STARTS W/ EGG&CHEESE^BC-01003^3.6-oz.^102
;;^UTILITY(U,$J,112,7730,1)
;;=12.451^9.706^28.431^250.98^^^^134.314^2.059^^^100^608.824^^^^^273.529^0^.225
;;^UTILITY(U,$J,112,7730,2)
;;=.402^1.569
;;^UTILITY(U,$J,112,7730,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7731,0)
;;=FROZEN BREAKFAST,BAGEL,SWANSON GREAT STARTS W/ HAM&CHEESE^BC-01004^3-oz.^85
;;^UTILITY(U,$J,112,7731,1)
;;=14.353^9.529^33.294^276.471^^^^127.059^2.235^^^131.765^707.059^^^^^318.824^3.529^.353
;;^UTILITY(U,$J,112,7731,2)
;;=.4^3.059
;;^UTILITY(U,$J,112,7731,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7732,0)
;;=FROZEN BREAKFAST,BISCUIT,SWANSON W/ EGG,CHEESE&BACON^BC-01005^4.2-oz.^119
FHINI0BV ; ; 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,7719,0)
+2 ;;=PIZZA,FRENCH BREAD,SAUSAGE, PILLSBURY MICROWAVE^BC-00992^6.3-oz.^178
+3 ;;^UTILITY(U,$J,112,7719,1)
+4 ;;=10.225^8.82^27.022^228.09^51.011^^^138.202^2.399^^125.843^219.101^575.281^^^^^115.73^0^.242
+5 ;;^UTILITY(U,$J,112,7719,2)
+6 ;;=.202^2.697
+7 ;;^UTILITY(U,$J,112,7719,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,7720,0)
+10 ;;=PIZZA,PAN,CHEESE, THREE, TOTINO'S^BC-00993^3.92-oz.^111
+11 ;;^UTILITY(U,$J,112,7720,1)
+12 ;;=13.514^9.009^30^257.658^40^^^257.658^1.297^^218.018^156.757^454.955^^^^^452.252^2.703^.126
+13 ;;^UTILITY(U,$J,112,7720,2)
+14 ;;=.18^1.532
+15 ;;^UTILITY(U,$J,112,7720,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,7721,0)
+18 ;;=PIZZA,PAN,PEPPERONI, TOTINO'S^BC-00994^4.43-oz.^126
+19 ;;^UTILITY(U,$J,112,7721,1)
+20 ;;=13.571^11.984^28.333^279.365^38.968^^^200.794^1.302^^188.889^180.159^610.317^^^^^389.683^2.381^.143
+21 ;;^UTILITY(U,$J,112,7721,2)
+22 ;;=.183^1.905
+23 ;;^UTILITY(U,$J,112,7721,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,7722,0)
+26 ;;=PIZZA,PAN,SAUSAGE & PEPPERONI, TOTINO'S^BC-00995^4.2-oz.^119
+27 ;;^UTILITY(U,$J,112,7722,1)
+28 ;;=13.193^11.513^24.034^268.067^41.008^^^191.597^1.403^^193.277^166.387^575.63^^^^^370.588^2.521^.176
+29 ;;^UTILITY(U,$J,112,7722,2)
+30 ;;=.176^1.933
+31 ;;^UTILITY(U,$J,112,7722,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,7723,0)
+34 ;;=PIZZA,PAN,SAUSAGE, TOTINO'S^BC-00996^4.38-oz.^124
+35 ;;^UTILITY(U,$J,112,7723,1)
+36 ;;=12.661^10.323^27.419^255.645^42.016^^^195.161^1.403^^196.774^155.645^507.258^^^^^376.613^2.419^.194
+37 ;;^UTILITY(U,$J,112,7723,2)
+38 ;;=.177^1.532
+39 ;;^UTILITY(U,$J,112,7723,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,7724,0)
+42 ;;=PIZZA ROLLS,CHEESE, JENO'S^BC-00997^6-rolls^85
+43 ;;^UTILITY(U,$J,112,7724,1)
+44 ;;=9.647^14.471^26.471^278.824^47.529^^^190.588^2.8^^210.588^110.588^408.235^^^^^352.941^2.353^.306
+45 ;;^UTILITY(U,$J,112,7724,2)
+46 ;;=.306^3.059
+47 ;;^UTILITY(U,$J,112,7724,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,7725,0)
+50 ;;=PIZZA ROLLS,HAMBURGER, LENO'S^BC-00998^6-rolls^85
+51 ;;^UTILITY(U,$J,112,7725,1)
+52 ;;=10^15.529^24.471^281.176^48^^^70.588^2.906^^140^87.059^323.529^^^^^141.176^1.176^.353
+53 ;;^UTILITY(U,$J,112,7725,2)
+54 ;;=.271^3.529
+55 ;;^UTILITY(U,$J,112,7725,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,7726,0)
+58 ;;=PIZZA ROLLS,PEPPERONI CHEESE,JENO'S (MICRO)^BC-00999^6-rolls^85
+59 ;;^UTILITY(U,$J,112,7726,1)
+60 ;;=8.118^15.529^26.471^281.176^47.059^^^63.529^3.106^^129.412^155.294^511.765^^^^^356.471^8.235^.4
+61 ;;^UTILITY(U,$J,112,7726,2)
+62 ;;=.306^3.647
+63 ;;^UTILITY(U,$J,112,7726,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,7727,0)
+66 ;;=PIZZA ROLLS,SAUSAGE & CHEESE, JENO-S MICROWAVE^BC-01000^6-rolls^85
+67 ;;^UTILITY(U,$J,112,7727,1)
+68 ;;=9.176^15.412^27.765^289.412^45.059^^^71.765^3^^137.647^207.059^517.647^^^^^369.412^8.235^.4
+69 ;;^UTILITY(U,$J,112,7727,2)
+70 ;;=.306^3.647
+71 ;;^UTILITY(U,$J,112,7727,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,7728,0)
+74 ;;=PIZZA ROLLS,SAUSAGE & PEPPERONI, JENO'S^BC-01001^6-rolls^85
+75 ;;^UTILITY(U,$J,112,7728,1)
+76 ;;=7.765^15.059^25.647^270.588^50^^^49.412^3.2^^103.529^130.588^444.706^^^^^192.941^4.706^.4
+77 ;;^UTILITY(U,$J,112,7728,2)
+78 ;;=.2^3.647
+79 ;;^UTILITY(U,$J,112,7728,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,7729,0)
+82 ;;=PIZZA,THIN CRUST,COMBINATION, PAPPALO'S^BC-01002^3.67-oz.^104
+83 ;;^UTILITY(U,$J,112,7729,1)
+84 ;;=12.404^9.808^27.019^248.077^41.442^^^211.538^.904^^180.769^177.885^550.962^^^^^416.346^3.846^.096
+85 ;;^UTILITY(U,$J,112,7729,2)
+86 ;;=.096^1.442
+87 ;;^UTILITY(U,$J,112,7729,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,7730,0)
+90 ;;=FROZEN BREAKFAST,BAGEL,SWANSON GREAT STARTS W/ EGG&CHEESE^BC-01003^3.6-oz.^102
+91 ;;^UTILITY(U,$J,112,7730,1)
+92 ;;=12.451^9.706^28.431^250.98^^^^134.314^2.059^^^100^608.824^^^^^273.529^0^.225
+93 ;;^UTILITY(U,$J,112,7730,2)
+94 ;;=.402^1.569
+95 ;;^UTILITY(U,$J,112,7730,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,7731,0)
+98 ;;=FROZEN BREAKFAST,BAGEL,SWANSON GREAT STARTS W/ HAM&CHEESE^BC-01004^3-oz.^85
+99 ;;^UTILITY(U,$J,112,7731,1)
+100 ;;=14.353^9.529^33.294^276.471^^^^127.059^2.235^^^131.765^707.059^^^^^318.824^3.529^.353
+101 ;;^UTILITY(U,$J,112,7731,2)
+102 ;;=.4^3.059
+103 ;;^UTILITY(U,$J,112,7731,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,7732,0)
+106 ;;=FROZEN BREAKFAST,BISCUIT,SWANSON W/ EGG,CHEESE&BACON^BC-01005^4.2-oz.^119
