FHINI0BS ; ; 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,7679,1)
;;=10.5^11^24.4^240^51.2^^^134^1.7^^190^178^712^^^^^266^3^.14
;;^UTILITY(U,$J,112,7679,2)
;;=.16^2.4
;;^UTILITY(U,$J,112,7679,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7680,0)
;;=PIZZA,GROUND BEEF,TOTINO'S PARTY^BC-00954^5.3-oz.^150
;;^UTILITY(U,$J,112,7680,1)
;;=9.8^13^23.533^248^53^^^134^2^^200^147.333^704^^^^^230^2.667^.2
;;^UTILITY(U,$J,112,7680,2)
;;=.173^2.4
;;^UTILITY(U,$J,112,7680,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7681,0)
;;=PIZZA,GROUND BEEF,TOTINO'S PARTY^BC-00954^5.3-oz.^150
;;^UTILITY(U,$J,112,7681,1)
;;=9.8^13^23.533^248^53^^^134^2^^200^147.333^704^^^^^230^2.667^.2
;;^UTILITY(U,$J,112,7681,2)
;;=.173^2.4
;;^UTILITY(U,$J,112,7681,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7682,0)
;;=PIZZA,MEXICAN STYLE,TOTINO'S PARTY^BC-00955^5.1-oz.^145
;;^UTILITY(U,$J,112,7682,1)
;;=9.034^14^24.483^262.759^44.276^^^146.897^2.297^^204.138^186.207^671.034^^^^^290.345^6.897^.248
;;^UTILITY(U,$J,112,7682,2)
;;=.179^2.276
;;^UTILITY(U,$J,112,7682,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7683,0)
;;=PIZZA,PEPPERONI,CELESTE^BC-00956^4.75-oz.^135
;;^UTILITY(U,$J,112,7683,1)
;;=11.111^15.778^21.63^272.593^48.444^^^137.778^1.052^28.889^285.926^210.37^740.741^2.963^.119^0^^994.815^0^.104
;;^UTILITY(U,$J,112,7683,2)
;;=.422^1.185^0^.133^74.815^.741^^^11.111^5.185^5.185^1.481^^^^^1.778
;;^UTILITY(U,$J,112,7683,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7684,0)
;;=PIZZA,PEPPERONI,CELESTE PIZZA-FOR-ONE^BC-00957^6.74-oz.^191
;;^UTILITY(U,$J,112,7684,1)
;;=10.576^15.497^26.021^285.864^45.079^^^175.916^1.068^27.749^231.937^217.801^708.377^2.094^.152^0^^689.005^0^.131
;;^UTILITY(U,$J,112,7684,2)
;;=.372^1.361^0^.11^50.785^1.047^^^10.471^4.712^3.665^1.047
;;^UTILITY(U,$J,112,7684,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7685,0)
;;=PIZZA,PEPPERONI,JENO'S CRISP 'N TASTY^BC-00958^3.8-oz.^108
;;^UTILITY(U,$J,112,7685,1)
;;=9.259^13.981^25.463^262.963^48.981^^^159.259^2^^225^133.333^702.778^^^^^254.63^1.852^.204
;;^UTILITY(U,$J,112,7685,2)
;;=.167^2.315
;;^UTILITY(U,$J,112,7685,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7686,0)
;;=PIZZA,PEPPERONI,JENO'S EXTRA TOPPING^BC-00959^3.5-oz.^100
;;^UTILITY(U,$J,112,7686,1)
;;=9.7^10.3^21.8^218^55^^^160^1.8^^153^267^811^^^^^370^5^.2
;;^UTILITY(U,$J,112,7686,2)
;;=.19^2.5
;;^UTILITY(U,$J,112,7686,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7687,0)
;;=PIZZA,PEPPERONI,LEAN CUISINE^BC-00960^5.2-oz.^148
;;^UTILITY(U,$J,112,7687,1)
;;=12.162^8.108^27.027^229.73^^^^168.919^2.432^^^229.73^655.405^^^^^202.703^4.054^.358
;;^UTILITY(U,$J,112,7687,2)
;;=.291^2.703^^^^^^^16.892^2.703^^1.351
;;^UTILITY(U,$J,112,7687,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7688,0)
;;=PIZZA,PEPPERONI,PILSBURY (MICRO)^BC-00961^4.24-oz.^120
;;^UTILITY(U,$J,112,7688,1)
;;=11.167^12^24.167^251.667^50.167^^^161.667^1.3^^153.333^170.833^658.333^^^^^365.833^7.5^.15
;;^UTILITY(U,$J,112,7688,2)
;;=.167^1.917
;;^UTILITY(U,$J,112,7688,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7689,0)
;;=PIZZA,PEPPERONI,TOTINO'S CLASSIC DELUXE^BC-00962^3.52-oz.^100
;;^UTILITY(U,$J,112,7689,1)
;;=12^13.5^23.2^263^49^^^206^1.7^^211^167^632^^^^^341^4^.2
;;^UTILITY(U,$J,112,7689,2)
;;=.2^2.1
;;^UTILITY(U,$J,112,7689,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7690,0)
;;=PIZZA,PEPPERONI,TOTINO'S (MICRO)^BC-00963^4-oz.^113
;;^UTILITY(U,$J,112,7690,1)
;;=9.027^10.531^29.735^250.442^48.23^^^115.044^1.504^^144.248^278.761^779.646^^^^^505.31^4.425^.204
;;^UTILITY(U,$J,112,7690,2)
;;=.204^2.212
;;^UTILITY(U,$J,112,7690,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7691,0)
;;=PIZZA,SAUSAGE & MUSHROOM,CELESTE PIZZA-FOR-ONE^BC-00964^8.5-oz.^241
;;^UTILITY(U,$J,112,7691,1)
;;=9.917^13.402^21.286^245.643^52.988^^^150.207^1^24.896^209.129^190.456^489.212^2.075^.141^0^^497.925^0^.141
;;^UTILITY(U,$J,112,7691,2)
;;=.361^1.618^.83^.141^34.025^.83^^^8.299^4.564^4.149^1.245^^^^^1.867
;;^UTILITY(U,$J,112,7691,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7692,0)
;;=PIZZA,SAUSAGE & PEPPERONI,JENO'S CRISP 'N TASTY^BC-00965^3.9-oz.^111
;;^UTILITY(U,$J,112,7692,1)
;;=9.459^14.505^25.045^267.568^43.964^^^155.856^2^^221.622^151.351^758.559^^^^^236.937^2.703^.198
FHINI0BS ; ; 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,7679,1)
+2 ;;=10.5^11^24.4^240^51.2^^^134^1.7^^190^178^712^^^^^266^3^.14
+3 ;;^UTILITY(U,$J,112,7679,2)
+4 ;;=.16^2.4
+5 ;;^UTILITY(U,$J,112,7679,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7680,0)
+8 ;;=PIZZA,GROUND BEEF,TOTINO'S PARTY^BC-00954^5.3-oz.^150
+9 ;;^UTILITY(U,$J,112,7680,1)
+10 ;;=9.8^13^23.533^248^53^^^134^2^^200^147.333^704^^^^^230^2.667^.2
+11 ;;^UTILITY(U,$J,112,7680,2)
+12 ;;=.173^2.4
+13 ;;^UTILITY(U,$J,112,7680,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7681,0)
+16 ;;=PIZZA,GROUND BEEF,TOTINO'S PARTY^BC-00954^5.3-oz.^150
+17 ;;^UTILITY(U,$J,112,7681,1)
+18 ;;=9.8^13^23.533^248^53^^^134^2^^200^147.333^704^^^^^230^2.667^.2
+19 ;;^UTILITY(U,$J,112,7681,2)
+20 ;;=.173^2.4
+21 ;;^UTILITY(U,$J,112,7681,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7682,0)
+24 ;;=PIZZA,MEXICAN STYLE,TOTINO'S PARTY^BC-00955^5.1-oz.^145
+25 ;;^UTILITY(U,$J,112,7682,1)
+26 ;;=9.034^14^24.483^262.759^44.276^^^146.897^2.297^^204.138^186.207^671.034^^^^^290.345^6.897^.248
+27 ;;^UTILITY(U,$J,112,7682,2)
+28 ;;=.179^2.276
+29 ;;^UTILITY(U,$J,112,7682,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7683,0)
+32 ;;=PIZZA,PEPPERONI,CELESTE^BC-00956^4.75-oz.^135
+33 ;;^UTILITY(U,$J,112,7683,1)
+34 ;;=11.111^15.778^21.63^272.593^48.444^^^137.778^1.052^28.889^285.926^210.37^740.741^2.963^.119^0^^994.815^0^.104
+35 ;;^UTILITY(U,$J,112,7683,2)
+36 ;;=.422^1.185^0^.133^74.815^.741^^^11.111^5.185^5.185^1.481^^^^^1.778
+37 ;;^UTILITY(U,$J,112,7683,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7684,0)
+40 ;;=PIZZA,PEPPERONI,CELESTE PIZZA-FOR-ONE^BC-00957^6.74-oz.^191
+41 ;;^UTILITY(U,$J,112,7684,1)
+42 ;;=10.576^15.497^26.021^285.864^45.079^^^175.916^1.068^27.749^231.937^217.801^708.377^2.094^.152^0^^689.005^0^.131
+43 ;;^UTILITY(U,$J,112,7684,2)
+44 ;;=.372^1.361^0^.11^50.785^1.047^^^10.471^4.712^3.665^1.047
+45 ;;^UTILITY(U,$J,112,7684,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7685,0)
+48 ;;=PIZZA,PEPPERONI,JENO'S CRISP 'N TASTY^BC-00958^3.8-oz.^108
+49 ;;^UTILITY(U,$J,112,7685,1)
+50 ;;=9.259^13.981^25.463^262.963^48.981^^^159.259^2^^225^133.333^702.778^^^^^254.63^1.852^.204
+51 ;;^UTILITY(U,$J,112,7685,2)
+52 ;;=.167^2.315
+53 ;;^UTILITY(U,$J,112,7685,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7686,0)
+56 ;;=PIZZA,PEPPERONI,JENO'S EXTRA TOPPING^BC-00959^3.5-oz.^100
+57 ;;^UTILITY(U,$J,112,7686,1)
+58 ;;=9.7^10.3^21.8^218^55^^^160^1.8^^153^267^811^^^^^370^5^.2
+59 ;;^UTILITY(U,$J,112,7686,2)
+60 ;;=.19^2.5
+61 ;;^UTILITY(U,$J,112,7686,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7687,0)
+64 ;;=PIZZA,PEPPERONI,LEAN CUISINE^BC-00960^5.2-oz.^148
+65 ;;^UTILITY(U,$J,112,7687,1)
+66 ;;=12.162^8.108^27.027^229.73^^^^168.919^2.432^^^229.73^655.405^^^^^202.703^4.054^.358
+67 ;;^UTILITY(U,$J,112,7687,2)
+68 ;;=.291^2.703^^^^^^^16.892^2.703^^1.351
+69 ;;^UTILITY(U,$J,112,7687,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7688,0)
+72 ;;=PIZZA,PEPPERONI,PILSBURY (MICRO)^BC-00961^4.24-oz.^120
+73 ;;^UTILITY(U,$J,112,7688,1)
+74 ;;=11.167^12^24.167^251.667^50.167^^^161.667^1.3^^153.333^170.833^658.333^^^^^365.833^7.5^.15
+75 ;;^UTILITY(U,$J,112,7688,2)
+76 ;;=.167^1.917
+77 ;;^UTILITY(U,$J,112,7688,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7689,0)
+80 ;;=PIZZA,PEPPERONI,TOTINO'S CLASSIC DELUXE^BC-00962^3.52-oz.^100
+81 ;;^UTILITY(U,$J,112,7689,1)
+82 ;;=12^13.5^23.2^263^49^^^206^1.7^^211^167^632^^^^^341^4^.2
+83 ;;^UTILITY(U,$J,112,7689,2)
+84 ;;=.2^2.1
+85 ;;^UTILITY(U,$J,112,7689,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7690,0)
+88 ;;=PIZZA,PEPPERONI,TOTINO'S (MICRO)^BC-00963^4-oz.^113
+89 ;;^UTILITY(U,$J,112,7690,1)
+90 ;;=9.027^10.531^29.735^250.442^48.23^^^115.044^1.504^^144.248^278.761^779.646^^^^^505.31^4.425^.204
+91 ;;^UTILITY(U,$J,112,7690,2)
+92 ;;=.204^2.212
+93 ;;^UTILITY(U,$J,112,7690,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7691,0)
+96 ;;=PIZZA,SAUSAGE & MUSHROOM,CELESTE PIZZA-FOR-ONE^BC-00964^8.5-oz.^241
+97 ;;^UTILITY(U,$J,112,7691,1)
+98 ;;=9.917^13.402^21.286^245.643^52.988^^^150.207^1^24.896^209.129^190.456^489.212^2.075^.141^0^^497.925^0^.141
+99 ;;^UTILITY(U,$J,112,7691,2)
+100 ;;=.361^1.618^.83^.141^34.025^.83^^^8.299^4.564^4.149^1.245^^^^^1.867
+101 ;;^UTILITY(U,$J,112,7691,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,7692,0)
+104 ;;=PIZZA,SAUSAGE & PEPPERONI,JENO'S CRISP 'N TASTY^BC-00965^3.9-oz.^111
+105 ;;^UTILITY(U,$J,112,7692,1)
+106 ;;=9.459^14.505^25.045^267.568^43.964^^^155.856^2^^221.622^151.351^758.559^^^^^236.937^2.703^.198
