FHINI093 ; ; 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,6230,2)
;;=.156^2.09
;;^UTILITY(U,$J,112,6231,0)
;;=TACO BELL, COMBINATION BURRITO^^ea.^175
;;^UTILITY(U,$J,112,6231,1)
;;=12^9.1^24.6^231^^^^52^2.1^^131^158.9^171.4^^^^^952^8.7^.194
;;^UTILITY(U,$J,112,6231,2)
;;=.177^2.63
;;^UTILITY(U,$J,112,6232,0)
;;=TACO BELL, ENCHIRITO^^ea.^207
;;^UTILITY(U,$J,112,6232,1)
;;=12.1^10.1^20.3^219^^^^125^1.8^^163^237.2^567.6^^^^^569^4.6^.15
;;^UTILITY(U,$J,112,6232,2)
;;=.179^2.27
;;^UTILITY(U,$J,112,6233,0)
;;=TACO BELL, PINTOS' N CHEESE^^ea.^158
;;^UTILITY(U,$J,112,6233,1)
;;=7^3.2^13.3^106^^^^95^1.5^^133^194.3^64.6^^^^^1977^5.9^.165
;;^UTILITY(U,$J,112,6233,2)
;;=.101^.57
;;^UTILITY(U,$J,112,6234,0)
;;=TACO BELL, TACO^^ea.^83
;;^UTILITY(U,$J,112,6234,1)
;;=18.1^9.6^16.9^224^^^^145^3^^211^172.3^95.2^^^^^145^.2^.108
;;^UTILITY(U,$J,112,6234,2)
;;=.193^3.49
;;^UTILITY(U,$J,112,6235,0)
;;=TACO BELL, TOSTADA^^ea.^138
;;^UTILITY(U,$J,112,6235,1)
;;=6.5^4.3^18.1^130^^^^138^1.3^^135^124.6^73.2^^^^^2284^7^.13
;;^UTILITY(U,$J,112,6235,2)
;;=.109^.6
;;^UTILITY(U,$J,112,6236,0)
;;=MCDONALD'S, EGG MCMUFFIN^^ea.^138
;;^UTILITY(U,$J,112,6236,1)
;;=13.8^10.9^22.5^236^51^^^164^2.1^18.8^233^121.7^641.3^1.38^.09^^^70^.9^.341
;;^UTILITY(U,$J,112,6236,2)
;;=.319^2.75^^.15^^.54^^^166
;;^UTILITY(U,$J,112,6237,0)
;;=MCDONALD'S, ENGLISH MUFFIN, BUTTERED^^ea.^63
;;^UTILITY(U,$J,112,6237,1)
;;=7.9^7.9^47.6^295^34^^^186^2.4^20.6^117^112.7^504.8^.79^1.09^^^260^1.3^.444
;;^UTILITY(U,$J,112,6237,2)
;;=.777^4.13^^.63^^.03^^^21
;;^UTILITY(U,$J,112,6238,0)
;;=MCDONALD'S, HOTCAKES WITH BUTTER & SYRUP^^ea.^214
;;^UTILITY(U,$J,112,6238,1)
;;=3.7^4.7^43.9^234^46^^^48^1^13.1^234^87.4^500^.33^.05^^^120^2.2^.121
;;^UTILITY(U,$J,112,6238,2)
;;=.168^1.07^^.06^^.09^^^22
;;^UTILITY(U,$J,112,6239,0)
;;=MCDONALD'S, SAUSAGE (PORK)^^servings^53
;;^UTILITY(U,$J,112,6239,1)
;;=17^35.8^^389^43^^^30^1.5^17^179^239.6^1160.4^2.83^.09^^^59^.9^.509
;;^UTILITY(U,$J,112,6239,2)
;;=.208^3.96^^.34^^1^^^81
;;^UTILITY(U,$J,112,6240,0)
;;=MCDONALD'S, SCRAMBLED EGGS^^ea.^98
;;^UTILITY(U,$J,112,6240,1)
;;=13.3^13.3^3.1^184^69^^^62^2.6^13.3^269^137.8^209.2^1.73^.06^^^665^1.2^.082
;;^UTILITY(U,$J,112,6240,2)
;;=.48^.2^^.19^^.95^^^356
;;^UTILITY(U,$J,112,6241,0)
;;=MCDONALD'S, HASH BROWN POTATOES^^ea.^55
;;^UTILITY(U,$J,112,6241,1)
;;=3.2^12.7^25^227^56^^^9^.7^23.6^122^449.1^590.9^.36^.07^^^24^7.5^.109
;;^UTILITY(U,$J,112,6241,2)
;;=.017^1.45^^.24^^.02^^^13
;;^UTILITY(U,$J,112,6242,0)
;;=MCDONALD'S, BIG MAC^^ea.^204
;;^UTILITY(U,$J,112,6242,1)
;;=12.7^16.2^20.1^276^49^^^77^2^18.6^154^116.2^495.1^2.3^.09^^^260^1.1^.191
;;^UTILITY(U,$J,112,6242,2)
;;=.181^3.19^^.13^^.88^^^42
;;^UTILITY(U,$J,112,6243,0)
;;=MCDONALD'S, CHEESEBURGER^^ea.^115
;;^UTILITY(U,$J,112,6243,1)
;;=13^12.2^26.1^267^94^^^115^2.1^20^178^135.7^667^2.26^.1^^^300^1.4^.217
;;^UTILITY(U,$J,112,6243,2)
;;=.2^3.3^^.1^^.79^^^32
;;^UTILITY(U,$J,112,6244,0)
;;=MCDONALD'S, HAMBURGER^^ea.^102
;;^UTILITY(U,$J,112,6244,1)
;;=11.8^10^29.4^250^47^^^50^2.3^19.9^123^139.2^510^2.06^.1^^^80^1.7^.245
;;^UTILITY(U,$J,112,6244,2)
;;=.176^4.1^^.12^^.79^^^25
;;^UTILITY(U,$J,112,6246,0)
;;=MCDONALD'S, QUARTER POUNDER^^ea.^166
;;^UTILITY(U,$J,112,6246,1)
;;=14.5^13.3^19.9^255^50^^^38^2.5^22.3^150^194^442.8^3.07^.1^^^80^.9^.193
;;^UTILITY(U,$J,112,6246,2)
;;=.169^3.92^^.16^^1.13^^^40
;;^UTILITY(U,$J,112,6247,0)
;;=MCDONALD'S, QUARTER POUNDER WITH CHEESE^^ea.^194
;;^UTILITY(U,$J,112,6247,1)
;;=16^15^16.5^270^49^^^113^2.2^21.1^197^175.8^637.1^2.94^.09^^^340^1.4^.16
;;^UTILITY(U,$J,112,6247,2)
;;=.191^3.81^^.12^^1.11^^^49
;;^UTILITY(U,$J,112,6248,0)
;;=MCDONALD'S, FILLET-O-FISH^^ea.^139
;;^UTILITY(U,$J,112,6248,1)
;;=10.1^18^26.6^310^43^^^67^1.2^19.4^165^107.9^561.9^.65^.07^^^30^.9^.187
;;^UTILITY(U,$J,112,6248,2)
;;=.144^1.87^^.07^^.59^^^34
;;^UTILITY(U,$J,112,6249,0)
;;=MCDONALD'S, REGULAR FRIES^^ea.^68
;;^UTILITY(U,$J,112,6249,1)
;;=4.4^17.6^38.2^323^37^^^13^.9^39.7^149^829.4^160.3^.44^.04^^^24^18.4^.176
;;^UTILITY(U,$J,112,6249,2)
;;=.029^3.38^^.32^^.03^^^13
;;^UTILITY(U,$J,112,6250,0)
;;=MCDONALD'S, APPLE PIE^^ea.^85
;;^UTILITY(U,$J,112,6250,1)
;;=2.4^16.5^34.1^298^46^^^16^.7^7.1^32^45.9^468.2^.24^.06^^^39^.8^.023
;;^UTILITY(U,$J,112,6250,2)
;;=.023^.24^^.02^^.04^^^14
;;^UTILITY(U,$J,112,6251,0)
;;=MCDONALD'S, CHERRY PIE^^ea.^88
;;^UTILITY(U,$J,112,6251,1)
;;=2.3^15.9^36.4^295^44^^^14^.7^8^31^39.8^485.2^.23^.07^^^130^.8^.034
;;^UTILITY(U,$J,112,6251,2)
;;=.023^.46^^.02^^.01^^^15
;;^UTILITY(U,$J,112,6252,0)
;;=MCDONALD'S, MCDONALDLAND COOKIES^^ea.^67
FHINI093 ; ; 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,6230,2)
+2 ;;=.156^2.09
+3 ;;^UTILITY(U,$J,112,6231,0)
+4 ;;=TACO BELL, COMBINATION BURRITO^^ea.^175
+5 ;;^UTILITY(U,$J,112,6231,1)
+6 ;;=12^9.1^24.6^231^^^^52^2.1^^131^158.9^171.4^^^^^952^8.7^.194
+7 ;;^UTILITY(U,$J,112,6231,2)
+8 ;;=.177^2.63
+9 ;;^UTILITY(U,$J,112,6232,0)
+10 ;;=TACO BELL, ENCHIRITO^^ea.^207
+11 ;;^UTILITY(U,$J,112,6232,1)
+12 ;;=12.1^10.1^20.3^219^^^^125^1.8^^163^237.2^567.6^^^^^569^4.6^.15
+13 ;;^UTILITY(U,$J,112,6232,2)
+14 ;;=.179^2.27
+15 ;;^UTILITY(U,$J,112,6233,0)
+16 ;;=TACO BELL, PINTOS' N CHEESE^^ea.^158
+17 ;;^UTILITY(U,$J,112,6233,1)
+18 ;;=7^3.2^13.3^106^^^^95^1.5^^133^194.3^64.6^^^^^1977^5.9^.165
+19 ;;^UTILITY(U,$J,112,6233,2)
+20 ;;=.101^.57
+21 ;;^UTILITY(U,$J,112,6234,0)
+22 ;;=TACO BELL, TACO^^ea.^83
+23 ;;^UTILITY(U,$J,112,6234,1)
+24 ;;=18.1^9.6^16.9^224^^^^145^3^^211^172.3^95.2^^^^^145^.2^.108
+25 ;;^UTILITY(U,$J,112,6234,2)
+26 ;;=.193^3.49
+27 ;;^UTILITY(U,$J,112,6235,0)
+28 ;;=TACO BELL, TOSTADA^^ea.^138
+29 ;;^UTILITY(U,$J,112,6235,1)
+30 ;;=6.5^4.3^18.1^130^^^^138^1.3^^135^124.6^73.2^^^^^2284^7^.13
+31 ;;^UTILITY(U,$J,112,6235,2)
+32 ;;=.109^.6
+33 ;;^UTILITY(U,$J,112,6236,0)
+34 ;;=MCDONALD'S, EGG MCMUFFIN^^ea.^138
+35 ;;^UTILITY(U,$J,112,6236,1)
+36 ;;=13.8^10.9^22.5^236^51^^^164^2.1^18.8^233^121.7^641.3^1.38^.09^^^70^.9^.341
+37 ;;^UTILITY(U,$J,112,6236,2)
+38 ;;=.319^2.75^^.15^^.54^^^166
+39 ;;^UTILITY(U,$J,112,6237,0)
+40 ;;=MCDONALD'S, ENGLISH MUFFIN, BUTTERED^^ea.^63
+41 ;;^UTILITY(U,$J,112,6237,1)
+42 ;;=7.9^7.9^47.6^295^34^^^186^2.4^20.6^117^112.7^504.8^.79^1.09^^^260^1.3^.444
+43 ;;^UTILITY(U,$J,112,6237,2)
+44 ;;=.777^4.13^^.63^^.03^^^21
+45 ;;^UTILITY(U,$J,112,6238,0)
+46 ;;=MCDONALD'S, HOTCAKES WITH BUTTER & SYRUP^^ea.^214
+47 ;;^UTILITY(U,$J,112,6238,1)
+48 ;;=3.7^4.7^43.9^234^46^^^48^1^13.1^234^87.4^500^.33^.05^^^120^2.2^.121
+49 ;;^UTILITY(U,$J,112,6238,2)
+50 ;;=.168^1.07^^.06^^.09^^^22
+51 ;;^UTILITY(U,$J,112,6239,0)
+52 ;;=MCDONALD'S, SAUSAGE (PORK)^^servings^53
+53 ;;^UTILITY(U,$J,112,6239,1)
+54 ;;=17^35.8^^389^43^^^30^1.5^17^179^239.6^1160.4^2.83^.09^^^59^.9^.509
+55 ;;^UTILITY(U,$J,112,6239,2)
+56 ;;=.208^3.96^^.34^^1^^^81
+57 ;;^UTILITY(U,$J,112,6240,0)
+58 ;;=MCDONALD'S, SCRAMBLED EGGS^^ea.^98
+59 ;;^UTILITY(U,$J,112,6240,1)
+60 ;;=13.3^13.3^3.1^184^69^^^62^2.6^13.3^269^137.8^209.2^1.73^.06^^^665^1.2^.082
+61 ;;^UTILITY(U,$J,112,6240,2)
+62 ;;=.48^.2^^.19^^.95^^^356
+63 ;;^UTILITY(U,$J,112,6241,0)
+64 ;;=MCDONALD'S, HASH BROWN POTATOES^^ea.^55
+65 ;;^UTILITY(U,$J,112,6241,1)
+66 ;;=3.2^12.7^25^227^56^^^9^.7^23.6^122^449.1^590.9^.36^.07^^^24^7.5^.109
+67 ;;^UTILITY(U,$J,112,6241,2)
+68 ;;=.017^1.45^^.24^^.02^^^13
+69 ;;^UTILITY(U,$J,112,6242,0)
+70 ;;=MCDONALD'S, BIG MAC^^ea.^204
+71 ;;^UTILITY(U,$J,112,6242,1)
+72 ;;=12.7^16.2^20.1^276^49^^^77^2^18.6^154^116.2^495.1^2.3^.09^^^260^1.1^.191
+73 ;;^UTILITY(U,$J,112,6242,2)
+74 ;;=.181^3.19^^.13^^.88^^^42
+75 ;;^UTILITY(U,$J,112,6243,0)
+76 ;;=MCDONALD'S, CHEESEBURGER^^ea.^115
+77 ;;^UTILITY(U,$J,112,6243,1)
+78 ;;=13^12.2^26.1^267^94^^^115^2.1^20^178^135.7^667^2.26^.1^^^300^1.4^.217
+79 ;;^UTILITY(U,$J,112,6243,2)
+80 ;;=.2^3.3^^.1^^.79^^^32
+81 ;;^UTILITY(U,$J,112,6244,0)
+82 ;;=MCDONALD'S, HAMBURGER^^ea.^102
+83 ;;^UTILITY(U,$J,112,6244,1)
+84 ;;=11.8^10^29.4^250^47^^^50^2.3^19.9^123^139.2^510^2.06^.1^^^80^1.7^.245
+85 ;;^UTILITY(U,$J,112,6244,2)
+86 ;;=.176^4.1^^.12^^.79^^^25
+87 ;;^UTILITY(U,$J,112,6246,0)
+88 ;;=MCDONALD'S, QUARTER POUNDER^^ea.^166
+89 ;;^UTILITY(U,$J,112,6246,1)
+90 ;;=14.5^13.3^19.9^255^50^^^38^2.5^22.3^150^194^442.8^3.07^.1^^^80^.9^.193
+91 ;;^UTILITY(U,$J,112,6246,2)
+92 ;;=.169^3.92^^.16^^1.13^^^40
+93 ;;^UTILITY(U,$J,112,6247,0)
+94 ;;=MCDONALD'S, QUARTER POUNDER WITH CHEESE^^ea.^194
+95 ;;^UTILITY(U,$J,112,6247,1)
+96 ;;=16^15^16.5^270^49^^^113^2.2^21.1^197^175.8^637.1^2.94^.09^^^340^1.4^.16
+97 ;;^UTILITY(U,$J,112,6247,2)
+98 ;;=.191^3.81^^.12^^1.11^^^49
+99 ;;^UTILITY(U,$J,112,6248,0)
+100 ;;=MCDONALD'S, FILLET-O-FISH^^ea.^139
+101 ;;^UTILITY(U,$J,112,6248,1)
+102 ;;=10.1^18^26.6^310^43^^^67^1.2^19.4^165^107.9^561.9^.65^.07^^^30^.9^.187
+103 ;;^UTILITY(U,$J,112,6248,2)
+104 ;;=.144^1.87^^.07^^.59^^^34
+105 ;;^UTILITY(U,$J,112,6249,0)
+106 ;;=MCDONALD'S, REGULAR FRIES^^ea.^68
+107 ;;^UTILITY(U,$J,112,6249,1)
+108 ;;=4.4^17.6^38.2^323^37^^^13^.9^39.7^149^829.4^160.3^.44^.04^^^24^18.4^.176
+109 ;;^UTILITY(U,$J,112,6249,2)
+110 ;;=.029^3.38^^.32^^.03^^^13
+111 ;;^UTILITY(U,$J,112,6250,0)
+112 ;;=MCDONALD'S, APPLE PIE^^ea.^85
+113 ;;^UTILITY(U,$J,112,6250,1)
+114 ;;=2.4^16.5^34.1^298^46^^^16^.7^7.1^32^45.9^468.2^.24^.06^^^39^.8^.023
+115 ;;^UTILITY(U,$J,112,6250,2)
+116 ;;=.023^.24^^.02^^.04^^^14
+117 ;;^UTILITY(U,$J,112,6251,0)
+118 ;;=MCDONALD'S, CHERRY PIE^^ea.^88
+119 ;;^UTILITY(U,$J,112,6251,1)
+120 ;;=2.3^15.9^36.4^295^44^^^14^.7^8^31^39.8^485.2^.23^.07^^^130^.8^.034
+121 ;;^UTILITY(U,$J,112,6251,2)
+122 ;;=.023^.46^^.02^^.01^^^15
+123 ;;^UTILITY(U,$J,112,6252,0)
+124 ;;=MCDONALD'S, MCDONALDLAND COOKIES^^ea.^67
