FHINI0BT ; ; 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,7692,2)
;;=.171^2.162
;;^UTILITY(U,$J,112,7692,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7693,0)
;;=PIZZA,SAUSAGE & PEPPERONI,PILSBURY HEAT 'N EAT^BC-00966^4.9-oz.^139
;;^UTILITY(U,$J,112,7693,1)
;;=10^15.324^22.518^271.942^39.568^^^156.835^1.403^^174.82^194.245^864.748^^^^^487.77^3.597^.18
;;^UTILITY(U,$J,112,7693,2)
;;=.201^1.871
;;^UTILITY(U,$J,112,7693,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7694,0)
;;=PIZZA,SAUSAGE & PEPPERONI,TOTINO'S (MICRO)^BC-00967^4.2-oz.^119
;;^UTILITY(U,$J,112,7694,1)
;;=10^13.025^26.134^261.345^48.235^^^117.647^1.462^^143.697^295.798^815.966^^^^^472.269^4.202^.202
;;^UTILITY(U,$J,112,7694,2)
;;=.193^2.017
;;^UTILITY(U,$J,112,7694,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7695,0)
;;=PIZZA,SAUSAGE,CELESTE^BC-00968^5-oz.^142
;;^UTILITY(U,$J,112,7695,1)
;;=10.986^15.282^20.915^264.789^49.718^^^226.761^1.07^28.169^271.127^219.014^638.732^2.113^.127^0^^738.028^0^.127
;;^UTILITY(U,$J,112,7695,2)
;;=.359^1.408^0^.12^62.676^.704^^^10.563^4.93^4.225^1.408^^^^^2.324
;;^UTILITY(U,$J,112,7695,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7696,0)
;;=PIZZA,SAUSAGE,CELESTE PIZZA-FOR-ONE^BC-00969^7.51-oz.^213
;;^UTILITY(U,$J,112,7696,1)
;;=10.61^14.883^22.911^268.075^48.685^^^174.178^1.07^28.169^237.089^214.085^639.906^0^.16^0^^638.028^0^.141
;;^UTILITY(U,$J,112,7696,2)
;;=.362^1.362^0^.108^51.174^.939^^^9.39^4.695^3.286^1.408^^^^^1.972
;;^UTILITY(U,$J,112,7696,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7697,0)
;;=PIZZA,SAUSAGE,JENO'S CRISP 'N TASTY^BC-00970^3.8-oz.^111
;;^UTILITY(U,$J,112,7697,1)
;;=9.64^14.685^25.045^270.27^42.432^^^156.757^1.901^^223.423^154.955^772.072^^^^^229.73^2.703^.198
;;^UTILITY(U,$J,112,7697,2)
;;=.171^2.072
;;^UTILITY(U,$J,112,7697,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7698,0)
;;=PIZZA,SAUSAGE,JENO'S EXTRA TOPPING^BC-00971^3.5-oz.^100
;;^UTILITY(U,$J,112,7698,1)
;;=10.8^10^20.6^216^55^^^172^2^^185^281^707^^^^^373^4^.2
;;^UTILITY(U,$J,112,7698,2)
;;=.18^2.3
;;^UTILITY(U,$J,112,7698,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7699,0)
;;=PIZZA,SAUSAGE,JOHN'S^BC-00972^3.5-oz.^100
;;^UTILITY(U,$J,112,7699,1)
;;=10^12.7^25.2^254^50^^^121^2.2^^202^151^616^^^^^162^2^.25
;;^UTILITY(U,$J,112,7699,2)
;;=.17^2.4
;;^UTILITY(U,$J,112,7699,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7700,0)
;;=PIZZA,SAUSAGE,LEAN CUISINE^BC-00973^6-oz.^170
;;^UTILITY(U,$J,112,7700,1)
;;=12.353^5.882^23.529^194.118^^^^176.471^2.118^^^229.412^611.765^^^^^176.471^3.529^.312
;;^UTILITY(U,$J,112,7700,2)
;;=.253^2.941^^^^^^^17.647^1.765^^.588
;;^UTILITY(U,$J,112,7700,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7701,0)
;;=PIZZA,SAUSAGE,PILSBURY HEAT 'N EAT^BC-00974^4.8-oz.^136
;;^UTILITY(U,$J,112,7701,1)
;;=9.779^14.485^23.015^264.706^38.971^^^161.029^1.397^^177.206^192.647^828.676^^^^^500.735^3.676^.191
;;^UTILITY(U,$J,112,7701,2)
;;=.199^1.691
;;^UTILITY(U,$J,112,7701,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7702,0)
;;=PIZZA,SAUSAGE,PILSBURY (MICRO)^BC-00975^4.38-oz.^124
;;^UTILITY(U,$J,112,7702,1)
;;=10.484^10.484^23.387^230.645^52.984^^^155.645^1.298^^162.097^146.774^555.645^^^^^350.806^7.258^.202
;;^UTILITY(U,$J,112,7702,2)
;;=.177^1.774
;;^UTILITY(U,$J,112,7702,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7703,0)
;;=PIZZA,SAUSAGE,TOTINO'S EXTRA^BC-00976^3.45-oz.^98
;;^UTILITY(U,$J,112,7703,1)
;;=10^15.816^24.796^284.694^34.796^^^143.878^1.602^^169.388^206.122^782.653^^^^^481.633^4.082^.204
;;^UTILITY(U,$J,112,7703,2)
;;=.204^2.041
;;^UTILITY(U,$J,112,7703,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7704,0)
;;=PIZZA,SAUSAGE,TOTINO'S (MICRO)^BC-00977^4.2-oz.^119
;;^UTILITY(U,$J,112,7704,1)
;;=9.328^13.361^27.395^267.227^47.395^^^110.924^1.403^^136.134^285.714^731.092^^^^^448.739^4.202^.202
;;^UTILITY(U,$J,112,7704,2)
;;=.202^1.933
;;^UTILITY(U,$J,112,7704,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7705,0)
;;=PIZZA,SUPREMA,CELESTE^BC-00978^5.75-oz.^163
;;^UTILITY(U,$J,112,7705,1)
;;=10.307^9.202^17.914^233.742^53.926^^^180.982^1.092^25.153^250.307^209.816^668.712^1.84^.141^0^^715.951^0^.123
;;^UTILITY(U,$J,112,7705,2)
;;=.417^1.35^0^.123^41.104^1.227^^^9.202^4.294^3.681^1.227^^^^^1.84
FHINI0BT ; ; 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,7692,2)
+2 ;;=.171^2.162
+3 ;;^UTILITY(U,$J,112,7692,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7693,0)
+6 ;;=PIZZA,SAUSAGE & PEPPERONI,PILSBURY HEAT 'N EAT^BC-00966^4.9-oz.^139
+7 ;;^UTILITY(U,$J,112,7693,1)
+8 ;;=10^15.324^22.518^271.942^39.568^^^156.835^1.403^^174.82^194.245^864.748^^^^^487.77^3.597^.18
+9 ;;^UTILITY(U,$J,112,7693,2)
+10 ;;=.201^1.871
+11 ;;^UTILITY(U,$J,112,7693,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7694,0)
+14 ;;=PIZZA,SAUSAGE & PEPPERONI,TOTINO'S (MICRO)^BC-00967^4.2-oz.^119
+15 ;;^UTILITY(U,$J,112,7694,1)
+16 ;;=10^13.025^26.134^261.345^48.235^^^117.647^1.462^^143.697^295.798^815.966^^^^^472.269^4.202^.202
+17 ;;^UTILITY(U,$J,112,7694,2)
+18 ;;=.193^2.017
+19 ;;^UTILITY(U,$J,112,7694,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7695,0)
+22 ;;=PIZZA,SAUSAGE,CELESTE^BC-00968^5-oz.^142
+23 ;;^UTILITY(U,$J,112,7695,1)
+24 ;;=10.986^15.282^20.915^264.789^49.718^^^226.761^1.07^28.169^271.127^219.014^638.732^2.113^.127^0^^738.028^0^.127
+25 ;;^UTILITY(U,$J,112,7695,2)
+26 ;;=.359^1.408^0^.12^62.676^.704^^^10.563^4.93^4.225^1.408^^^^^2.324
+27 ;;^UTILITY(U,$J,112,7695,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7696,0)
+30 ;;=PIZZA,SAUSAGE,CELESTE PIZZA-FOR-ONE^BC-00969^7.51-oz.^213
+31 ;;^UTILITY(U,$J,112,7696,1)
+32 ;;=10.61^14.883^22.911^268.075^48.685^^^174.178^1.07^28.169^237.089^214.085^639.906^0^.16^0^^638.028^0^.141
+33 ;;^UTILITY(U,$J,112,7696,2)
+34 ;;=.362^1.362^0^.108^51.174^.939^^^9.39^4.695^3.286^1.408^^^^^1.972
+35 ;;^UTILITY(U,$J,112,7696,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7697,0)
+38 ;;=PIZZA,SAUSAGE,JENO'S CRISP 'N TASTY^BC-00970^3.8-oz.^111
+39 ;;^UTILITY(U,$J,112,7697,1)
+40 ;;=9.64^14.685^25.045^270.27^42.432^^^156.757^1.901^^223.423^154.955^772.072^^^^^229.73^2.703^.198
+41 ;;^UTILITY(U,$J,112,7697,2)
+42 ;;=.171^2.072
+43 ;;^UTILITY(U,$J,112,7697,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7698,0)
+46 ;;=PIZZA,SAUSAGE,JENO'S EXTRA TOPPING^BC-00971^3.5-oz.^100
+47 ;;^UTILITY(U,$J,112,7698,1)
+48 ;;=10.8^10^20.6^216^55^^^172^2^^185^281^707^^^^^373^4^.2
+49 ;;^UTILITY(U,$J,112,7698,2)
+50 ;;=.18^2.3
+51 ;;^UTILITY(U,$J,112,7698,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7699,0)
+54 ;;=PIZZA,SAUSAGE,JOHN'S^BC-00972^3.5-oz.^100
+55 ;;^UTILITY(U,$J,112,7699,1)
+56 ;;=10^12.7^25.2^254^50^^^121^2.2^^202^151^616^^^^^162^2^.25
+57 ;;^UTILITY(U,$J,112,7699,2)
+58 ;;=.17^2.4
+59 ;;^UTILITY(U,$J,112,7699,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7700,0)
+62 ;;=PIZZA,SAUSAGE,LEAN CUISINE^BC-00973^6-oz.^170
+63 ;;^UTILITY(U,$J,112,7700,1)
+64 ;;=12.353^5.882^23.529^194.118^^^^176.471^2.118^^^229.412^611.765^^^^^176.471^3.529^.312
+65 ;;^UTILITY(U,$J,112,7700,2)
+66 ;;=.253^2.941^^^^^^^17.647^1.765^^.588
+67 ;;^UTILITY(U,$J,112,7700,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7701,0)
+70 ;;=PIZZA,SAUSAGE,PILSBURY HEAT 'N EAT^BC-00974^4.8-oz.^136
+71 ;;^UTILITY(U,$J,112,7701,1)
+72 ;;=9.779^14.485^23.015^264.706^38.971^^^161.029^1.397^^177.206^192.647^828.676^^^^^500.735^3.676^.191
+73 ;;^UTILITY(U,$J,112,7701,2)
+74 ;;=.199^1.691
+75 ;;^UTILITY(U,$J,112,7701,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7702,0)
+78 ;;=PIZZA,SAUSAGE,PILSBURY (MICRO)^BC-00975^4.38-oz.^124
+79 ;;^UTILITY(U,$J,112,7702,1)
+80 ;;=10.484^10.484^23.387^230.645^52.984^^^155.645^1.298^^162.097^146.774^555.645^^^^^350.806^7.258^.202
+81 ;;^UTILITY(U,$J,112,7702,2)
+82 ;;=.177^1.774
+83 ;;^UTILITY(U,$J,112,7702,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7703,0)
+86 ;;=PIZZA,SAUSAGE,TOTINO'S EXTRA^BC-00976^3.45-oz.^98
+87 ;;^UTILITY(U,$J,112,7703,1)
+88 ;;=10^15.816^24.796^284.694^34.796^^^143.878^1.602^^169.388^206.122^782.653^^^^^481.633^4.082^.204
+89 ;;^UTILITY(U,$J,112,7703,2)
+90 ;;=.204^2.041
+91 ;;^UTILITY(U,$J,112,7703,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,7704,0)
+94 ;;=PIZZA,SAUSAGE,TOTINO'S (MICRO)^BC-00977^4.2-oz.^119
+95 ;;^UTILITY(U,$J,112,7704,1)
+96 ;;=9.328^13.361^27.395^267.227^47.395^^^110.924^1.403^^136.134^285.714^731.092^^^^^448.739^4.202^.202
+97 ;;^UTILITY(U,$J,112,7704,2)
+98 ;;=.202^1.933
+99 ;;^UTILITY(U,$J,112,7704,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,7705,0)
+102 ;;=PIZZA,SUPREMA,CELESTE^BC-00978^5.75-oz.^163
+103 ;;^UTILITY(U,$J,112,7705,1)
+104 ;;=10.307^9.202^17.914^233.742^53.926^^^180.982^1.092^25.153^250.307^209.816^668.712^1.84^.141^0^^715.951^0^.123
+105 ;;^UTILITY(U,$J,112,7705,2)
+106 ;;=.417^1.35^0^.123^41.104^1.227^^^9.202^4.294^3.681^1.227^^^^^1.84
