FHINI0D1 ; ; 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,8302,2)
;;=^^^^^^^^35.714
;;^UTILITY(U,$J,112,8302,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8303,0)
;;=HOT CHOCOLATE,WENDY'S^BC-01576^6-floz.^180
;;^UTILITY(U,$J,112,8303,1)
;;=1.111^.556^12.778^61.111^^^^^^^^125^66.667
;;^UTILITY(U,$J,112,8303,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8303,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8304,0)
;;=JR.SWISS DELUXE SANDWICH,WENDY'S^BC-01577^sandwich^167
;;^UTILITY(U,$J,112,8304,1)
;;=10.778^10.778^20.359^209.581^^^^^^^^176.647^452.096
;;^UTILITY(U,$J,112,8304,2)
;;=^^^^^^^^23.952
;;^UTILITY(U,$J,112,8304,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8305,0)
;;=OMELET W/HAM & CHEESE,WENDY'S^BC-01578^serving^118
;;^UTILITY(U,$J,112,8305,1)
;;=15.254^17.797^5.932^245.763^^^^^^^^161.017^483.051
;;^UTILITY(U,$J,112,8305,2)
;;=^^^^^^^^300.847
;;^UTILITY(U,$J,112,8305,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8306,0)
;;=OMELET W/HAM,CHEESE & MUSHROOMS,WENDY'S^BC-01579^serving^114
;;^UTILITY(U,$J,112,8306,1)
;;=15.789^14.912^5.263^219.298^^^^^^^^157.895^355.263
;;^UTILITY(U,$J,112,8306,2)
;;=^^^^^^^^394.737
;;^UTILITY(U,$J,112,8306,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8307,0)
;;=OMELET W/HAM,CHEESE,ONION & GREEN PEPPER,WENDY'S^BC-01580^serving^128
;;^UTILITY(U,$J,112,8307,1)
;;=14.844^14.844^5.469^218.75^^^^^^^^156.25^378.906
;;^UTILITY(U,$J,112,8307,2)
;;=^^^^^^^^410.156
;;^UTILITY(U,$J,112,8307,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8308,0)
;;=OMELET W/MUSHROOM,GREEN PEPPER & ONION,WENDY'S^BC-01581^serving^114
;;^UTILITY(U,$J,112,8308,1)
;;=12.281^13.158^6.14^184.211^^^^^^^^166.667^175.439
;;^UTILITY(U,$J,112,8308,2)
;;=^^^^^^^^403.509
;;^UTILITY(U,$J,112,8308,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8309,0)
;;=PASTA MEDLEY,WENDY'S^BC-01582^2-oz.^56
;;^UTILITY(U,$J,112,8309,1)
;;=3.571^3.571^16.071^107.143^^^^^^^^107.143^8.929
;;^UTILITY(U,$J,112,8309,2)
;;=^^^^^^^^0^.536^^1.429
;;^UTILITY(U,$J,112,8309,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8310,0)
;;=PASTA SALAD,WENDY'S^BC-01583^1/4-cup^57
;;^UTILITY(U,$J,112,8310,1)
;;=3.509^.526^10.526^61.404^^^^^^^^^210.526
;;^UTILITY(U,$J,112,8310,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8311,0)
;;=POTATO,BAKED,WENDY'S^BC-01584^potato^250
;;^UTILITY(U,$J,112,8311,1)
;;=2.4^.8^20.8^100^^^^^^^^544^24
;;^UTILITY(U,$J,112,8311,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8311,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8312,0)
;;=POTATO,BAKED W/BACON&CHEESE,WENDY'S^BC-01585^potato^347
;;^UTILITY(U,$J,112,8312,1)
;;=4.323^5.187^16.427^129.683^^^^^^^^455.331^324.207
;;^UTILITY(U,$J,112,8312,2)
;;=^^^^^^^^2.882
;;^UTILITY(U,$J,112,8312,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8313,0)
;;=POTATO,BAKED W/BROCCOLI & CHEESE,WENDY'S^BC-01586^potato^377
;;^UTILITY(U,$J,112,8313,1)
;;=2.387^4.244^15.65^106.101^^^^^^^^412.467^124.668
;;^UTILITY(U,$J,112,8313,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8313,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8314,0)
;;=POTATO,BAKED W/CHEESE,WENDY'S^BC-01587^potato^348
;;^UTILITY(U,$J,112,8314,1)
;;=3.736^6.034^16.379^135.057^^^^^^^^412.356^166.667
;;^UTILITY(U,$J,112,8314,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8314,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8315,0)
;;=POTATO,BAKED W/CHILI & CHEESE,WENDY'S^BC-01588^potato^419
;;^UTILITY(U,$J,112,8315,1)
;;=5.012^5.489^15.274^126.492^^^^^^^^379.475^171.838
;;^UTILITY(U,$J,112,8315,2)
;;=^^^^^^^^4.773
;;^UTILITY(U,$J,112,8315,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8316,0)
;;=POTATO,BAKED W/SOUR CREAM & CHIVES,WENDY'S^BC-01589^potato^310
;;^UTILITY(U,$J,112,8316,1)
;;=1.935^7.742^17.097^148.387^^^^^^^^458.065^74.194
;;^UTILITY(U,$J,112,8316,2)
;;=^^^^^^^^4.839
;;^UTILITY(U,$J,112,8316,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8317,0)
;;=POTATO SALAD,WENDY'S^BC-01590^1/4-cup^57
;;^UTILITY(U,$J,112,8317,1)
;;=1.754^15.789^10.526^192.982^^^^^^^^263.158^464.912
;;^UTILITY(U,$J,112,8317,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8318,0)
;;=PUDDING,BUTTERSCOTCH,WENDY'S^BC-01591^1/4-cup^57
FHINI0D1 ; ; 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,8302,2)
+2 ;;=^^^^^^^^35.714
+3 ;;^UTILITY(U,$J,112,8302,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,8303,0)
+6 ;;=HOT CHOCOLATE,WENDY'S^BC-01576^6-floz.^180
+7 ;;^UTILITY(U,$J,112,8303,1)
+8 ;;=1.111^.556^12.778^61.111^^^^^^^^125^66.667
+9 ;;^UTILITY(U,$J,112,8303,2)
+10 ;;=^^^^^^^^0
+11 ;;^UTILITY(U,$J,112,8303,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,8304,0)
+14 ;;=JR.SWISS DELUXE SANDWICH,WENDY'S^BC-01577^sandwich^167
+15 ;;^UTILITY(U,$J,112,8304,1)
+16 ;;=10.778^10.778^20.359^209.581^^^^^^^^176.647^452.096
+17 ;;^UTILITY(U,$J,112,8304,2)
+18 ;;=^^^^^^^^23.952
+19 ;;^UTILITY(U,$J,112,8304,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,8305,0)
+22 ;;=OMELET W/HAM & CHEESE,WENDY'S^BC-01578^serving^118
+23 ;;^UTILITY(U,$J,112,8305,1)
+24 ;;=15.254^17.797^5.932^245.763^^^^^^^^161.017^483.051
+25 ;;^UTILITY(U,$J,112,8305,2)
+26 ;;=^^^^^^^^300.847
+27 ;;^UTILITY(U,$J,112,8305,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8306,0)
+30 ;;=OMELET W/HAM,CHEESE & MUSHROOMS,WENDY'S^BC-01579^serving^114
+31 ;;^UTILITY(U,$J,112,8306,1)
+32 ;;=15.789^14.912^5.263^219.298^^^^^^^^157.895^355.263
+33 ;;^UTILITY(U,$J,112,8306,2)
+34 ;;=^^^^^^^^394.737
+35 ;;^UTILITY(U,$J,112,8306,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8307,0)
+38 ;;=OMELET W/HAM,CHEESE,ONION & GREEN PEPPER,WENDY'S^BC-01580^serving^128
+39 ;;^UTILITY(U,$J,112,8307,1)
+40 ;;=14.844^14.844^5.469^218.75^^^^^^^^156.25^378.906
+41 ;;^UTILITY(U,$J,112,8307,2)
+42 ;;=^^^^^^^^410.156
+43 ;;^UTILITY(U,$J,112,8307,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8308,0)
+46 ;;=OMELET W/MUSHROOM,GREEN PEPPER & ONION,WENDY'S^BC-01581^serving^114
+47 ;;^UTILITY(U,$J,112,8308,1)
+48 ;;=12.281^13.158^6.14^184.211^^^^^^^^166.667^175.439
+49 ;;^UTILITY(U,$J,112,8308,2)
+50 ;;=^^^^^^^^403.509
+51 ;;^UTILITY(U,$J,112,8308,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,8309,0)
+54 ;;=PASTA MEDLEY,WENDY'S^BC-01582^2-oz.^56
+55 ;;^UTILITY(U,$J,112,8309,1)
+56 ;;=3.571^3.571^16.071^107.143^^^^^^^^107.143^8.929
+57 ;;^UTILITY(U,$J,112,8309,2)
+58 ;;=^^^^^^^^0^.536^^1.429
+59 ;;^UTILITY(U,$J,112,8309,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,8310,0)
+62 ;;=PASTA SALAD,WENDY'S^BC-01583^1/4-cup^57
+63 ;;^UTILITY(U,$J,112,8310,1)
+64 ;;=3.509^.526^10.526^61.404^^^^^^^^^210.526
+65 ;;^UTILITY(U,$J,112,8310,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,8311,0)
+68 ;;=POTATO,BAKED,WENDY'S^BC-01584^potato^250
+69 ;;^UTILITY(U,$J,112,8311,1)
+70 ;;=2.4^.8^20.8^100^^^^^^^^544^24
+71 ;;^UTILITY(U,$J,112,8311,2)
+72 ;;=^^^^^^^^0
+73 ;;^UTILITY(U,$J,112,8311,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,8312,0)
+76 ;;=POTATO,BAKED W/BACON&CHEESE,WENDY'S^BC-01585^potato^347
+77 ;;^UTILITY(U,$J,112,8312,1)
+78 ;;=4.323^5.187^16.427^129.683^^^^^^^^455.331^324.207
+79 ;;^UTILITY(U,$J,112,8312,2)
+80 ;;=^^^^^^^^2.882
+81 ;;^UTILITY(U,$J,112,8312,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,8313,0)
+84 ;;=POTATO,BAKED W/BROCCOLI & CHEESE,WENDY'S^BC-01586^potato^377
+85 ;;^UTILITY(U,$J,112,8313,1)
+86 ;;=2.387^4.244^15.65^106.101^^^^^^^^412.467^124.668
+87 ;;^UTILITY(U,$J,112,8313,2)
+88 ;;=^^^^^^^^0
+89 ;;^UTILITY(U,$J,112,8313,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,8314,0)
+92 ;;=POTATO,BAKED W/CHEESE,WENDY'S^BC-01587^potato^348
+93 ;;^UTILITY(U,$J,112,8314,1)
+94 ;;=3.736^6.034^16.379^135.057^^^^^^^^412.356^166.667
+95 ;;^UTILITY(U,$J,112,8314,2)
+96 ;;=^^^^^^^^0
+97 ;;^UTILITY(U,$J,112,8314,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,8315,0)
+100 ;;=POTATO,BAKED W/CHILI & CHEESE,WENDY'S^BC-01588^potato^419
+101 ;;^UTILITY(U,$J,112,8315,1)
+102 ;;=5.012^5.489^15.274^126.492^^^^^^^^379.475^171.838
+103 ;;^UTILITY(U,$J,112,8315,2)
+104 ;;=^^^^^^^^4.773
+105 ;;^UTILITY(U,$J,112,8315,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+107 ;;^UTILITY(U,$J,112,8316,0)
+108 ;;=POTATO,BAKED W/SOUR CREAM & CHIVES,WENDY'S^BC-01589^potato^310
+109 ;;^UTILITY(U,$J,112,8316,1)
+110 ;;=1.935^7.742^17.097^148.387^^^^^^^^458.065^74.194
+111 ;;^UTILITY(U,$J,112,8316,2)
+112 ;;=^^^^^^^^4.839
+113 ;;^UTILITY(U,$J,112,8316,20)
+114 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+115 ;;^UTILITY(U,$J,112,8317,0)
+116 ;;=POTATO SALAD,WENDY'S^BC-01590^1/4-cup^57
+117 ;;^UTILITY(U,$J,112,8317,1)
+118 ;;=1.754^15.789^10.526^192.982^^^^^^^^263.158^464.912
+119 ;;^UTILITY(U,$J,112,8317,20)
+120 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+121 ;;^UTILITY(U,$J,112,8318,0)
+122 ;;=PUDDING,BUTTERSCOTCH,WENDY'S^BC-01591^1/4-cup^57
