FHINI0CY ; ; 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,8255,0)
;;=TACO,TACO BELL^BC-01528^taco^78
;;^UTILITY(U,$J,112,8255,1)
;;=12.821^14.103^14.103^234.615^^^^^^^^203.846^353.846
;;^UTILITY(U,$J,112,8255,2)
;;=^^^^^^^^41.026^6.41^^1.282
;;^UTILITY(U,$J,112,8255,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8256,0)
;;=TACO,BELL GRANDE,TACO BELL^BC-01529^taco^163
;;^UTILITY(U,$J,112,8256,1)
;;=11.043^14.11^11.043^205.521^^^^^^^^204.908^289.571
;;^UTILITY(U,$J,112,8256,2)
;;=^^^^^^^^34.356^6.748^^.613
;;^UTILITY(U,$J,112,8256,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8257,0)
;;=TACO,CHICKEN SOFT TACO,TACO BELL^BC-01530^taco^100
;;^UTILITY(U,$J,112,8257,1)
;;=13^10^18^210^^^^^^^^185^590
;;^UTILITY(U,$J,112,8257,2)
;;=^^^^^^^^44^4^^2
;;^UTILITY(U,$J,112,8257,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8258,0)
;;=TACO,SOFT,TACO BELL^BC-01531^taco^92
;;^UTILITY(U,$J,112,8258,1)
;;=13.043^13.043^19.565^244.565^^^^^^^^213.043^602.174
;;^UTILITY(U,$J,112,8258,2)
;;=^^^^^^^^34.783^5.435^^1.087
;;^UTILITY(U,$J,112,8258,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8259,0)
;;=SOFT TACO SUPREME,TACO BELL^BC-01532^taco^124
;;^UTILITY(U,$J,112,8259,1)
;;=10.484^12.903^15.323^219.355^^^^^^^^195.968^446.774
;;^UTILITY(U,$J,112,8259,2)
;;=^^^^^^^^25.806^6.452^^.806
;;^UTILITY(U,$J,112,8259,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8260,0)
;;=STEAK SOFT TACO,TACO BELL^BC-01533^taco^100
;;^UTILITY(U,$J,112,8260,1)
;;=14^11^18^218^^^^^^^^191^456
;;^UTILITY(U,$J,112,8260,2)
;;=^^^^^^^^14^5^^1
;;^UTILITY(U,$J,112,8260,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8261,0)
;;=TACO SUPREME,TACO BELL^BC-01534^taco^92
;;^UTILITY(U,$J,112,8261,1)
;;=11.957^16.304^13.043^250^^^^^^^^222.826^300
;;^UTILITY(U,$J,112,8261,2)
;;=^^^^^^^^34.783^8.696^^1.087
;;^UTILITY(U,$J,112,8261,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8262,0)
;;=TACO SALAD,TACO BELL^BC-01535^salad^575
;;^UTILITY(U,$J,112,8262,1)
;;=5.913^10.609^9.565^157.391^^^^^^^^117.043^158.261
;;^UTILITY(U,$J,112,8262,2)
;;=^^^^^^^^13.913^3.304^^2.087
;;^UTILITY(U,$J,112,8262,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8263,0)
;;=TACO SALAD W/O SHELL,TACO BELL^BC-01536^salad^520
;;^UTILITY(U,$J,112,8263,1)
;;=5.385^5.962^4.231^93.077^^^^^^^^117.692^130.769
;;^UTILITY(U,$J,112,8263,2)
;;=^^^^^^^^15.385^2.692^^.385
;;^UTILITY(U,$J,112,8263,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8264,0)
;;=TOSTADA W/ RED SCE,TACO BELL^BC-01537^tostada^156
;;^UTILITY(U,$J,112,8264,1)
;;=5.769^7.051^17.308^155.769^^^^^^^^257.051^382.051
;;^UTILITY(U,$J,112,8264,2)
;;=^^^^^^^^10.256^2.564^^.641
;;^UTILITY(U,$J,112,8264,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8265,0)
;;=BREAFAST POTATOES,WENDY'S^BC-01538^3.6-oz.^103
;;^UTILITY(U,$J,112,8265,1)
;;=3.883^21.359^35.922^349.515^^^^^^^^597.087^723.301
;;^UTILITY(U,$J,112,8265,2)
;;=^^^^^^^^19.417
;;^UTILITY(U,$J,112,8265,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8266,0)
;;=BREAKFAST SANDWICH (WHITE BREAD,EGG&CHEESE),WENDY'S^BC-01539^sandwich^129
;;^UTILITY(U,$J,112,8266,1)
;;=13.178^14.729^25.581^286.822^^^^^^^^120.155^596.899
;;^UTILITY(U,$J,112,8266,2)
;;=^^^^^^^^155.039
;;^UTILITY(U,$J,112,8266,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8267,0)
;;=BUTTERMILK BISCUIT,WENDY'S^BC-01540^biscuit^94
;;^UTILITY(U,$J,112,8267,1)
;;=5.319^18.085^39.362^340.426^^^^^^^^132.979^914.894
;;^UTILITY(U,$J,112,8267,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8267,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8268,0)
;;=CHEDDAR CHIPS,WENDY'S^BC-01541^oz.^28
;;^UTILITY(U,$J,112,8268,1)
;;=10.714^39.286^42.857^571.429^^^^^^^^^1589.286
;;^UTILITY(U,$J,112,8268,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8269,0)
;;=CHEESEBURGER,BIG CLASSIC,WENDY'S^BC-01542^sandwich^295
;;^UTILITY(U,$J,112,8269,1)
;;=10.169^12.881^15.593^216.949^^^^^^^^200^464.407
;;^UTILITY(U,$J,112,8269,2)
;;=^^^^^^^^33.898
;;^UTILITY(U,$J,112,8269,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8270,0)
;;=CHEESEBURGER,JR.,WENDY'S^BC-01543^sandwich^123
;;^UTILITY(U,$J,112,8270,1)
;;=13.821^10.569^25.203^243.902^^^^^^^^178.862^605.691
FHINI0CY ; ; 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,8255,0)
+2 ;;=TACO,TACO BELL^BC-01528^taco^78
+3 ;;^UTILITY(U,$J,112,8255,1)
+4 ;;=12.821^14.103^14.103^234.615^^^^^^^^203.846^353.846
+5 ;;^UTILITY(U,$J,112,8255,2)
+6 ;;=^^^^^^^^41.026^6.41^^1.282
+7 ;;^UTILITY(U,$J,112,8255,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,8256,0)
+10 ;;=TACO,BELL GRANDE,TACO BELL^BC-01529^taco^163
+11 ;;^UTILITY(U,$J,112,8256,1)
+12 ;;=11.043^14.11^11.043^205.521^^^^^^^^204.908^289.571
+13 ;;^UTILITY(U,$J,112,8256,2)
+14 ;;=^^^^^^^^34.356^6.748^^.613
+15 ;;^UTILITY(U,$J,112,8256,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,8257,0)
+18 ;;=TACO,CHICKEN SOFT TACO,TACO BELL^BC-01530^taco^100
+19 ;;^UTILITY(U,$J,112,8257,1)
+20 ;;=13^10^18^210^^^^^^^^185^590
+21 ;;^UTILITY(U,$J,112,8257,2)
+22 ;;=^^^^^^^^44^4^^2
+23 ;;^UTILITY(U,$J,112,8257,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,8258,0)
+26 ;;=TACO,SOFT,TACO BELL^BC-01531^taco^92
+27 ;;^UTILITY(U,$J,112,8258,1)
+28 ;;=13.043^13.043^19.565^244.565^^^^^^^^213.043^602.174
+29 ;;^UTILITY(U,$J,112,8258,2)
+30 ;;=^^^^^^^^34.783^5.435^^1.087
+31 ;;^UTILITY(U,$J,112,8258,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,8259,0)
+34 ;;=SOFT TACO SUPREME,TACO BELL^BC-01532^taco^124
+35 ;;^UTILITY(U,$J,112,8259,1)
+36 ;;=10.484^12.903^15.323^219.355^^^^^^^^195.968^446.774
+37 ;;^UTILITY(U,$J,112,8259,2)
+38 ;;=^^^^^^^^25.806^6.452^^.806
+39 ;;^UTILITY(U,$J,112,8259,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,8260,0)
+42 ;;=STEAK SOFT TACO,TACO BELL^BC-01533^taco^100
+43 ;;^UTILITY(U,$J,112,8260,1)
+44 ;;=14^11^18^218^^^^^^^^191^456
+45 ;;^UTILITY(U,$J,112,8260,2)
+46 ;;=^^^^^^^^14^5^^1
+47 ;;^UTILITY(U,$J,112,8260,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,8261,0)
+50 ;;=TACO SUPREME,TACO BELL^BC-01534^taco^92
+51 ;;^UTILITY(U,$J,112,8261,1)
+52 ;;=11.957^16.304^13.043^250^^^^^^^^222.826^300
+53 ;;^UTILITY(U,$J,112,8261,2)
+54 ;;=^^^^^^^^34.783^8.696^^1.087
+55 ;;^UTILITY(U,$J,112,8261,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,8262,0)
+58 ;;=TACO SALAD,TACO BELL^BC-01535^salad^575
+59 ;;^UTILITY(U,$J,112,8262,1)
+60 ;;=5.913^10.609^9.565^157.391^^^^^^^^117.043^158.261
+61 ;;^UTILITY(U,$J,112,8262,2)
+62 ;;=^^^^^^^^13.913^3.304^^2.087
+63 ;;^UTILITY(U,$J,112,8262,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,8263,0)
+66 ;;=TACO SALAD W/O SHELL,TACO BELL^BC-01536^salad^520
+67 ;;^UTILITY(U,$J,112,8263,1)
+68 ;;=5.385^5.962^4.231^93.077^^^^^^^^117.692^130.769
+69 ;;^UTILITY(U,$J,112,8263,2)
+70 ;;=^^^^^^^^15.385^2.692^^.385
+71 ;;^UTILITY(U,$J,112,8263,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,8264,0)
+74 ;;=TOSTADA W/ RED SCE,TACO BELL^BC-01537^tostada^156
+75 ;;^UTILITY(U,$J,112,8264,1)
+76 ;;=5.769^7.051^17.308^155.769^^^^^^^^257.051^382.051
+77 ;;^UTILITY(U,$J,112,8264,2)
+78 ;;=^^^^^^^^10.256^2.564^^.641
+79 ;;^UTILITY(U,$J,112,8264,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,8265,0)
+82 ;;=BREAFAST POTATOES,WENDY'S^BC-01538^3.6-oz.^103
+83 ;;^UTILITY(U,$J,112,8265,1)
+84 ;;=3.883^21.359^35.922^349.515^^^^^^^^597.087^723.301
+85 ;;^UTILITY(U,$J,112,8265,2)
+86 ;;=^^^^^^^^19.417
+87 ;;^UTILITY(U,$J,112,8265,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,8266,0)
+90 ;;=BREAKFAST SANDWICH (WHITE BREAD,EGG&CHEESE),WENDY'S^BC-01539^sandwich^129
+91 ;;^UTILITY(U,$J,112,8266,1)
+92 ;;=13.178^14.729^25.581^286.822^^^^^^^^120.155^596.899
+93 ;;^UTILITY(U,$J,112,8266,2)
+94 ;;=^^^^^^^^155.039
+95 ;;^UTILITY(U,$J,112,8266,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,8267,0)
+98 ;;=BUTTERMILK BISCUIT,WENDY'S^BC-01540^biscuit^94
+99 ;;^UTILITY(U,$J,112,8267,1)
+100 ;;=5.319^18.085^39.362^340.426^^^^^^^^132.979^914.894
+101 ;;^UTILITY(U,$J,112,8267,2)
+102 ;;=^^^^^^^^0
+103 ;;^UTILITY(U,$J,112,8267,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,8268,0)
+106 ;;=CHEDDAR CHIPS,WENDY'S^BC-01541^oz.^28
+107 ;;^UTILITY(U,$J,112,8268,1)
+108 ;;=10.714^39.286^42.857^571.429^^^^^^^^^1589.286
+109 ;;^UTILITY(U,$J,112,8268,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+111 ;;^UTILITY(U,$J,112,8269,0)
+112 ;;=CHEESEBURGER,BIG CLASSIC,WENDY'S^BC-01542^sandwich^295
+113 ;;^UTILITY(U,$J,112,8269,1)
+114 ;;=10.169^12.881^15.593^216.949^^^^^^^^200^464.407
+115 ;;^UTILITY(U,$J,112,8269,2)
+116 ;;=^^^^^^^^33.898
+117 ;;^UTILITY(U,$J,112,8269,20)
+118 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+119 ;;^UTILITY(U,$J,112,8270,0)
+120 ;;=CHEESEBURGER,JR.,WENDY'S^BC-01543^sandwich^123
+121 ;;^UTILITY(U,$J,112,8270,1)
+122 ;;=13.821^10.569^25.203^243.902^^^^^^^^178.862^605.691
