FHINI0D0 ; ; 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,8286,1)
;;=0^10.526^15.789^157.895^^^^^^^^166.667^245.614
;;^UTILITY(U,$J,112,8286,2)
;;=^^^^^^^^17.544
;;^UTILITY(U,$J,112,8286,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8287,0)
;;=COOKIE,CHOCOLATE CHIP,WENDY'S^BC-01560^cookie^64
;;^UTILITY(U,$J,112,8287,1)
;;=4.688^26.563^62.5^500^^^^^^^^156.25^367.188
;;^UTILITY(U,$J,112,8287,2)
;;=^^^^^^^^7.813
;;^UTILITY(U,$J,112,8287,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8288,0)
;;=DANISH,APPLE,WENDY'S^BC-01561^3.35-oz.^95
;;^UTILITY(U,$J,112,8288,1)
;;=6.316^14.737^55.789^378.947^^^^^^^^^400
;;^UTILITY(U,$J,112,8288,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8289,0)
;;=DANISH,CHEESE,WENDY'S^BC-01562^3.35-oz.^95
;;^UTILITY(U,$J,112,8289,1)
;;=8.421^22.105^54.737^452.632^^^^^^^^^526.316
;;^UTILITY(U,$J,112,8289,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8290,0)
;;=DANISH,CINNAMON RAISIN,WENDY'S^BC-01563^3.35-oz.^95
;;^UTILITY(U,$J,112,8290,1)
;;=7.368^18.947^57.895^431.579^^^^^^^^^452.632
;;^UTILITY(U,$J,112,8290,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8291,0)
;;=EGG,FRIED,WENDY'S^BC-01564^egg^44
;;^UTILITY(U,$J,112,8291,1)
;;=13.636^13.636^2.273^204.545^^^^^^^^147.727^215.909
;;^UTILITY(U,$J,112,8291,2)
;;=^^^^^^^^522.727
;;^UTILITY(U,$J,112,8291,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8292,0)
;;=EGGS,SCRAMBLED,WENDY'S^BC-01565^2-eggs^91
;;^UTILITY(U,$J,112,8292,1)
;;=15.385^13.187^7.692^210.989^^^^^^^^142.857^175.824
;;^UTILITY(U,$J,112,8292,2)
;;=^^^^^^^^494.505
;;^UTILITY(U,$J,112,8292,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8293,0)
;;=FISH FILLET,WENDY'S^BC-01566^3.2-oz.^92
;;^UTILITY(U,$J,112,8293,1)
;;=15.217^11.957^14.13^225^^^^^^^^277.174^516.304
;;^UTILITY(U,$J,112,8293,2)
;;=^^^^^^^^48.913
;;^UTILITY(U,$J,112,8293,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8294,0)
;;=FRENCH FRIES,WENDY'S^BC-01567^4.8-oz.^136
;;^UTILITY(U,$J,112,8294,1)
;;=3.676^16.912^38.971^323.529^^^^^^^^628.676^194.853
;;^UTILITY(U,$J,112,8294,2)
;;=^^^^^^^^18.382
;;^UTILITY(U,$J,112,8294,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8295,0)
;;=FRENCH TOAST,WENDY'S^BC-01568^2-slices^135
;;^UTILITY(U,$J,112,8295,1)
;;=8.148^14.074^33.333^296.296^^^^^^^^129.63^629.63
;;^UTILITY(U,$J,112,8295,2)
;;=^^^^^^^^85.185
;;^UTILITY(U,$J,112,8295,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8296,0)
;;=FROSTY DAIRY DESSERT,WENDY'S^BC-01569^small^243
;;^UTILITY(U,$J,112,8296,1)
;;=3.292^5.761^24.28^164.609^^^^^^^^240.741^90.535
;;^UTILITY(U,$J,112,8296,2)
;;=^^^^^^^^20.576
;;^UTILITY(U,$J,112,8296,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8297,0)
;;=GARLIC TOAST,WENDY'S^BC-01570^1/4-bun^18
;;^UTILITY(U,$J,112,8297,1)
;;=11.111^16.667^50^388.889^^^^^^^^111.111^361.111
;;^UTILITY(U,$J,112,8297,2)
;;=^^^^^^^^0^3.333^^4.444
;;^UTILITY(U,$J,112,8297,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8298,0)
;;=HAMBURGER,BIG CLASSIC,WENDY'S^BC-01571^sandwich^277
;;^UTILITY(U,$J,112,8298,1)
;;=9.747^11.913^16.606^205.776^^^^^^^^212.996^388.087
;;^UTILITY(U,$J,112,8298,2)
;;=^^^^^^^^30.686
;;^UTILITY(U,$J,112,8298,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8299,0)
;;=HAMBURGER,KID'S,WENDY'S^BC-01572^sandwich^104
;;^UTILITY(U,$J,112,8299,1)
;;=13.462^8.654^28.846^250^^^^^^^^197.115^524.038
;;^UTILITY(U,$J,112,8299,2)
;;=^^^^^^^^33.654
;;^UTILITY(U,$J,112,8299,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8300,0)
;;=HAMBURGER,JR.,WENDY'S^BC-01573^sandwich^111
;;^UTILITY(U,$J,112,8300,1)
;;=12.613^8.108^27.027^234.234^^^^^^^^198.198^490.991
;;^UTILITY(U,$J,112,8300,2)
;;=^^^^^^^^30.631
;;^UTILITY(U,$J,112,8300,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8301,0)
;;=HAMBURGER,SINGLE,WENDY'S^BC-01574^sandwich^126
;;^UTILITY(U,$J,112,8301,1)
;;=19.048^11.905^22.222^269.841^^^^^^^^218.254^376.984
;;^UTILITY(U,$J,112,8301,2)
;;=^^^^^^^^51.587
;;^UTILITY(U,$J,112,8301,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8302,0)
;;=HAMBURGER,SINGLE W/EVERYTHING,WENDY'S^BC-01575^sandwich^252
;;^UTILITY(U,$J,112,8302,1)
;;=11.508^10.714^13.889^194.444^^^^^^^^196.429^458.333
FHINI0D0 ; ; 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,8286,1)
+2 ;;=0^10.526^15.789^157.895^^^^^^^^166.667^245.614
+3 ;;^UTILITY(U,$J,112,8286,2)
+4 ;;=^^^^^^^^17.544
+5 ;;^UTILITY(U,$J,112,8286,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8287,0)
+8 ;;=COOKIE,CHOCOLATE CHIP,WENDY'S^BC-01560^cookie^64
+9 ;;^UTILITY(U,$J,112,8287,1)
+10 ;;=4.688^26.563^62.5^500^^^^^^^^156.25^367.188
+11 ;;^UTILITY(U,$J,112,8287,2)
+12 ;;=^^^^^^^^7.813
+13 ;;^UTILITY(U,$J,112,8287,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8288,0)
+16 ;;=DANISH,APPLE,WENDY'S^BC-01561^3.35-oz.^95
+17 ;;^UTILITY(U,$J,112,8288,1)
+18 ;;=6.316^14.737^55.789^378.947^^^^^^^^^400
+19 ;;^UTILITY(U,$J,112,8288,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,8289,0)
+22 ;;=DANISH,CHEESE,WENDY'S^BC-01562^3.35-oz.^95
+23 ;;^UTILITY(U,$J,112,8289,1)
+24 ;;=8.421^22.105^54.737^452.632^^^^^^^^^526.316
+25 ;;^UTILITY(U,$J,112,8289,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,8290,0)
+28 ;;=DANISH,CINNAMON RAISIN,WENDY'S^BC-01563^3.35-oz.^95
+29 ;;^UTILITY(U,$J,112,8290,1)
+30 ;;=7.368^18.947^57.895^431.579^^^^^^^^^452.632
+31 ;;^UTILITY(U,$J,112,8290,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,8291,0)
+34 ;;=EGG,FRIED,WENDY'S^BC-01564^egg^44
+35 ;;^UTILITY(U,$J,112,8291,1)
+36 ;;=13.636^13.636^2.273^204.545^^^^^^^^147.727^215.909
+37 ;;^UTILITY(U,$J,112,8291,2)
+38 ;;=^^^^^^^^522.727
+39 ;;^UTILITY(U,$J,112,8291,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,8292,0)
+42 ;;=EGGS,SCRAMBLED,WENDY'S^BC-01565^2-eggs^91
+43 ;;^UTILITY(U,$J,112,8292,1)
+44 ;;=15.385^13.187^7.692^210.989^^^^^^^^142.857^175.824
+45 ;;^UTILITY(U,$J,112,8292,2)
+46 ;;=^^^^^^^^494.505
+47 ;;^UTILITY(U,$J,112,8292,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,8293,0)
+50 ;;=FISH FILLET,WENDY'S^BC-01566^3.2-oz.^92
+51 ;;^UTILITY(U,$J,112,8293,1)
+52 ;;=15.217^11.957^14.13^225^^^^^^^^277.174^516.304
+53 ;;^UTILITY(U,$J,112,8293,2)
+54 ;;=^^^^^^^^48.913
+55 ;;^UTILITY(U,$J,112,8293,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,8294,0)
+58 ;;=FRENCH FRIES,WENDY'S^BC-01567^4.8-oz.^136
+59 ;;^UTILITY(U,$J,112,8294,1)
+60 ;;=3.676^16.912^38.971^323.529^^^^^^^^628.676^194.853
+61 ;;^UTILITY(U,$J,112,8294,2)
+62 ;;=^^^^^^^^18.382
+63 ;;^UTILITY(U,$J,112,8294,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,8295,0)
+66 ;;=FRENCH TOAST,WENDY'S^BC-01568^2-slices^135
+67 ;;^UTILITY(U,$J,112,8295,1)
+68 ;;=8.148^14.074^33.333^296.296^^^^^^^^129.63^629.63
+69 ;;^UTILITY(U,$J,112,8295,2)
+70 ;;=^^^^^^^^85.185
+71 ;;^UTILITY(U,$J,112,8295,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,8296,0)
+74 ;;=FROSTY DAIRY DESSERT,WENDY'S^BC-01569^small^243
+75 ;;^UTILITY(U,$J,112,8296,1)
+76 ;;=3.292^5.761^24.28^164.609^^^^^^^^240.741^90.535
+77 ;;^UTILITY(U,$J,112,8296,2)
+78 ;;=^^^^^^^^20.576
+79 ;;^UTILITY(U,$J,112,8296,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,8297,0)
+82 ;;=GARLIC TOAST,WENDY'S^BC-01570^1/4-bun^18
+83 ;;^UTILITY(U,$J,112,8297,1)
+84 ;;=11.111^16.667^50^388.889^^^^^^^^111.111^361.111
+85 ;;^UTILITY(U,$J,112,8297,2)
+86 ;;=^^^^^^^^0^3.333^^4.444
+87 ;;^UTILITY(U,$J,112,8297,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,8298,0)
+90 ;;=HAMBURGER,BIG CLASSIC,WENDY'S^BC-01571^sandwich^277
+91 ;;^UTILITY(U,$J,112,8298,1)
+92 ;;=9.747^11.913^16.606^205.776^^^^^^^^212.996^388.087
+93 ;;^UTILITY(U,$J,112,8298,2)
+94 ;;=^^^^^^^^30.686
+95 ;;^UTILITY(U,$J,112,8298,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,8299,0)
+98 ;;=HAMBURGER,KID'S,WENDY'S^BC-01572^sandwich^104
+99 ;;^UTILITY(U,$J,112,8299,1)
+100 ;;=13.462^8.654^28.846^250^^^^^^^^197.115^524.038
+101 ;;^UTILITY(U,$J,112,8299,2)
+102 ;;=^^^^^^^^33.654
+103 ;;^UTILITY(U,$J,112,8299,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,8300,0)
+106 ;;=HAMBURGER,JR.,WENDY'S^BC-01573^sandwich^111
+107 ;;^UTILITY(U,$J,112,8300,1)
+108 ;;=12.613^8.108^27.027^234.234^^^^^^^^198.198^490.991
+109 ;;^UTILITY(U,$J,112,8300,2)
+110 ;;=^^^^^^^^30.631
+111 ;;^UTILITY(U,$J,112,8300,20)
+112 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+113 ;;^UTILITY(U,$J,112,8301,0)
+114 ;;=HAMBURGER,SINGLE,WENDY'S^BC-01574^sandwich^126
+115 ;;^UTILITY(U,$J,112,8301,1)
+116 ;;=19.048^11.905^22.222^269.841^^^^^^^^218.254^376.984
+117 ;;^UTILITY(U,$J,112,8301,2)
+118 ;;=^^^^^^^^51.587
+119 ;;^UTILITY(U,$J,112,8301,20)
+120 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+121 ;;^UTILITY(U,$J,112,8302,0)
+122 ;;=HAMBURGER,SINGLE W/EVERYTHING,WENDY'S^BC-01575^sandwich^252
+123 ;;^UTILITY(U,$J,112,8302,1)
+124 ;;=11.508^10.714^13.889^194.444^^^^^^^^196.429^458.333
