FHINI0CZ ; ; 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,8270,2)
;;=^^^^^^^^36.585
;;^UTILITY(U,$J,112,8270,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8271,0)
;;=CHEESEBURGER,JR. BACON,WENDY'S^BC-01544^sandwich^159
;;^UTILITY(U,$J,112,8271,1)
;;=12.579^15.723^23.27^264.151^^^^^^^^194.969^509.434
;;^UTILITY(U,$J,112,8271,2)
;;=^^^^^^^^31.447
;;^UTILITY(U,$J,112,8271,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8272,0)
;;=CHEESEBURGER,KID'S,WENDY'S^BC-01545^sandwich^116
;;^UTILITY(U,$J,112,8272,1)
;;=14.655^11.207^25.862^258.621^^^^^^^^176.724^637.931
;;^UTILITY(U,$J,112,8272,2)
;;=^^^^^^^^38.793
;;^UTILITY(U,$J,112,8272,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8273,0)
;;=CHEESEBURGER,SINGLE,WENDY'S^BC-01546^sandwich^144
;;^UTILITY(U,$J,112,8273,1)
;;=18.75^13.889^19.444^277.778^^^^^^^^190.972^534.722
;;^UTILITY(U,$J,112,8273,2)
;;=^^^^^^^^59.028
;;^UTILITY(U,$J,112,8273,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8274,0)
;;=CHEESEBURGER,SINGLE W/ EVERYTHING,WENDY'S^BC-01547^sandwich^252
;;^UTILITY(U,$J,112,8274,1)
;;=11.508^10.714^13.889^194.444^^^^^^^^196.429^459.524
;;^UTILITY(U,$J,112,8274,2)
;;=^^^^^^^^35.714
;;^UTILITY(U,$J,112,8274,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8275,0)
;;=CHICKEN BREAST FILLET,WENDY'S^BC-01548^3.5-oz.^99
;;^UTILITY(U,$J,112,8275,1)
;;=21.212^10.101^11.111^222.222^^^^^^^^272.727^404.04
;;^UTILITY(U,$J,112,8275,2)
;;=^^^^^^^^55.556
;;^UTILITY(U,$J,112,8275,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8276,0)
;;=CHICKEN CLUB SANDWICH,WENDY'S^BC-01549^sanddwich^231
;;^UTILITY(U,$J,112,8276,1)
;;=12.987^10.39^18.182^216.45^^^^^^^^222.944^411.255
;;^UTILITY(U,$J,112,8276,2)
;;=^^^^^^^^32.468
;;^UTILITY(U,$J,112,8276,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8277,0)
;;=CHICKEN FRIED STEAK,WENDY'S^BC-01550^6.2-oz.^176
;;^UTILITY(U,$J,112,8277,1)
;;=15.909^23.295^14.205^329.545^^^^^^^^221.591^590.909
;;^UTILITY(U,$J,112,8277,2)
;;=^^^^^^^^53.977
;;^UTILITY(U,$J,112,8277,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8278,0)
;;=CHICKEN NUGGETS,WENDY'S^BC-01551^6-pieces^93
;;^UTILITY(U,$J,112,8278,1)
;;=16.129^22.581^15.054^333.333^^^^^^^^247.312^709.677
;;^UTILITY(U,$J,112,8278,2)
;;=^^^^^^^^53.763
;;^UTILITY(U,$J,112,8278,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8279,0)
;;=CHICKEN NUGGET SCE,BARBEQUE,WENDY'S^BC-01552^pkt.^28
;;^UTILITY(U,$J,112,8279,1)
;;=0^0^39.286^178.571^^^^^^^^339.286^357.143
;;^UTILITY(U,$J,112,8279,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8279,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8280,0)
;;=CHICKEN NUGGET SCE,HONEY,WENDY'S^BC-01553^pkt.^14
;;^UTILITY(U,$J,112,8280,1)
;;=0^0^85.714^321.429^^^^^^^^0^0
;;^UTILITY(U,$J,112,8280,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8280,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8281,0)
;;=CHICKEN NUGGET SCE,SWEET & SOUR,WENDY'S^BC-01554^pkt.^28
;;^UTILITY(U,$J,112,8281,1)
;;=0^0^39.286^160.714^^^^^^^^142.857^196.429
;;^UTILITY(U,$J,112,8281,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8281,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8282,0)
;;=CHICKEN NUGGET SCE,SWEET MUSTARD,WENDY'S^BC-01555^pkt.^28
;;^UTILITY(U,$J,112,8282,1)
;;=0^3.571^32.143^178.571^^^^^^^^107.143^500
;;^UTILITY(U,$J,112,8282,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,8282,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8283,0)
;;=CHICKEN SALAD,WENDY'S^BC-01556^2-oz.^56
;;^UTILITY(U,$J,112,8283,1)
;;=12.5^14.286^7.143^214.286^^^^^^^^107.143^383.929
;;^UTILITY(U,$J,112,8283,2)
;;=^^^^^^^^0^2.679^^4.464
;;^UTILITY(U,$J,112,8283,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8284,0)
;;=CHICKEN SANDWICH,WENDY'S^BC-01557^sandwich^219
;;^UTILITY(U,$J,112,8284,1)
;;=11.872^8.676^18.721^196.347^^^^^^^^210.046^321.918
;;^UTILITY(U,$J,112,8284,2)
;;=^^^^^^^^27.397
;;^UTILITY(U,$J,112,8284,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8285,0)
;;=CHILI,WENDY'S^BC-01558^9-oz.^255
;;^UTILITY(U,$J,112,8285,1)
;;=8.235^2.745^9.02^86.275^^^^^^^^194.118^294.118
;;^UTILITY(U,$J,112,8285,2)
;;=^^^^^^^^17.647^^^1.02^^^^^2.353
;;^UTILITY(U,$J,112,8285,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8286,0)
;;=COLESLAW,WENDY'S^BC-01559^2-oz.^57
FHINI0CZ ; ; 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,8270,2)
+2 ;;=^^^^^^^^36.585
+3 ;;^UTILITY(U,$J,112,8270,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,8271,0)
+6 ;;=CHEESEBURGER,JR. BACON,WENDY'S^BC-01544^sandwich^159
+7 ;;^UTILITY(U,$J,112,8271,1)
+8 ;;=12.579^15.723^23.27^264.151^^^^^^^^194.969^509.434
+9 ;;^UTILITY(U,$J,112,8271,2)
+10 ;;=^^^^^^^^31.447
+11 ;;^UTILITY(U,$J,112,8271,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,8272,0)
+14 ;;=CHEESEBURGER,KID'S,WENDY'S^BC-01545^sandwich^116
+15 ;;^UTILITY(U,$J,112,8272,1)
+16 ;;=14.655^11.207^25.862^258.621^^^^^^^^176.724^637.931
+17 ;;^UTILITY(U,$J,112,8272,2)
+18 ;;=^^^^^^^^38.793
+19 ;;^UTILITY(U,$J,112,8272,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,8273,0)
+22 ;;=CHEESEBURGER,SINGLE,WENDY'S^BC-01546^sandwich^144
+23 ;;^UTILITY(U,$J,112,8273,1)
+24 ;;=18.75^13.889^19.444^277.778^^^^^^^^190.972^534.722
+25 ;;^UTILITY(U,$J,112,8273,2)
+26 ;;=^^^^^^^^59.028
+27 ;;^UTILITY(U,$J,112,8273,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8274,0)
+30 ;;=CHEESEBURGER,SINGLE W/ EVERYTHING,WENDY'S^BC-01547^sandwich^252
+31 ;;^UTILITY(U,$J,112,8274,1)
+32 ;;=11.508^10.714^13.889^194.444^^^^^^^^196.429^459.524
+33 ;;^UTILITY(U,$J,112,8274,2)
+34 ;;=^^^^^^^^35.714
+35 ;;^UTILITY(U,$J,112,8274,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8275,0)
+38 ;;=CHICKEN BREAST FILLET,WENDY'S^BC-01548^3.5-oz.^99
+39 ;;^UTILITY(U,$J,112,8275,1)
+40 ;;=21.212^10.101^11.111^222.222^^^^^^^^272.727^404.04
+41 ;;^UTILITY(U,$J,112,8275,2)
+42 ;;=^^^^^^^^55.556
+43 ;;^UTILITY(U,$J,112,8275,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8276,0)
+46 ;;=CHICKEN CLUB SANDWICH,WENDY'S^BC-01549^sanddwich^231
+47 ;;^UTILITY(U,$J,112,8276,1)
+48 ;;=12.987^10.39^18.182^216.45^^^^^^^^222.944^411.255
+49 ;;^UTILITY(U,$J,112,8276,2)
+50 ;;=^^^^^^^^32.468
+51 ;;^UTILITY(U,$J,112,8276,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,8277,0)
+54 ;;=CHICKEN FRIED STEAK,WENDY'S^BC-01550^6.2-oz.^176
+55 ;;^UTILITY(U,$J,112,8277,1)
+56 ;;=15.909^23.295^14.205^329.545^^^^^^^^221.591^590.909
+57 ;;^UTILITY(U,$J,112,8277,2)
+58 ;;=^^^^^^^^53.977
+59 ;;^UTILITY(U,$J,112,8277,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,8278,0)
+62 ;;=CHICKEN NUGGETS,WENDY'S^BC-01551^6-pieces^93
+63 ;;^UTILITY(U,$J,112,8278,1)
+64 ;;=16.129^22.581^15.054^333.333^^^^^^^^247.312^709.677
+65 ;;^UTILITY(U,$J,112,8278,2)
+66 ;;=^^^^^^^^53.763
+67 ;;^UTILITY(U,$J,112,8278,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,8279,0)
+70 ;;=CHICKEN NUGGET SCE,BARBEQUE,WENDY'S^BC-01552^pkt.^28
+71 ;;^UTILITY(U,$J,112,8279,1)
+72 ;;=0^0^39.286^178.571^^^^^^^^339.286^357.143
+73 ;;^UTILITY(U,$J,112,8279,2)
+74 ;;=^^^^^^^^0
+75 ;;^UTILITY(U,$J,112,8279,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,8280,0)
+78 ;;=CHICKEN NUGGET SCE,HONEY,WENDY'S^BC-01553^pkt.^14
+79 ;;^UTILITY(U,$J,112,8280,1)
+80 ;;=0^0^85.714^321.429^^^^^^^^0^0
+81 ;;^UTILITY(U,$J,112,8280,2)
+82 ;;=^^^^^^^^0
+83 ;;^UTILITY(U,$J,112,8280,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,8281,0)
+86 ;;=CHICKEN NUGGET SCE,SWEET & SOUR,WENDY'S^BC-01554^pkt.^28
+87 ;;^UTILITY(U,$J,112,8281,1)
+88 ;;=0^0^39.286^160.714^^^^^^^^142.857^196.429
+89 ;;^UTILITY(U,$J,112,8281,2)
+90 ;;=^^^^^^^^0
+91 ;;^UTILITY(U,$J,112,8281,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,8282,0)
+94 ;;=CHICKEN NUGGET SCE,SWEET MUSTARD,WENDY'S^BC-01555^pkt.^28
+95 ;;^UTILITY(U,$J,112,8282,1)
+96 ;;=0^3.571^32.143^178.571^^^^^^^^107.143^500
+97 ;;^UTILITY(U,$J,112,8282,2)
+98 ;;=^^^^^^^^0
+99 ;;^UTILITY(U,$J,112,8282,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,8283,0)
+102 ;;=CHICKEN SALAD,WENDY'S^BC-01556^2-oz.^56
+103 ;;^UTILITY(U,$J,112,8283,1)
+104 ;;=12.5^14.286^7.143^214.286^^^^^^^^107.143^383.929
+105 ;;^UTILITY(U,$J,112,8283,2)
+106 ;;=^^^^^^^^0^2.679^^4.464
+107 ;;^UTILITY(U,$J,112,8283,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,8284,0)
+110 ;;=CHICKEN SANDWICH,WENDY'S^BC-01557^sandwich^219
+111 ;;^UTILITY(U,$J,112,8284,1)
+112 ;;=11.872^8.676^18.721^196.347^^^^^^^^210.046^321.918
+113 ;;^UTILITY(U,$J,112,8284,2)
+114 ;;=^^^^^^^^27.397
+115 ;;^UTILITY(U,$J,112,8284,20)
+116 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+117 ;;^UTILITY(U,$J,112,8285,0)
+118 ;;=CHILI,WENDY'S^BC-01558^9-oz.^255
+119 ;;^UTILITY(U,$J,112,8285,1)
+120 ;;=8.235^2.745^9.02^86.275^^^^^^^^194.118^294.118
+121 ;;^UTILITY(U,$J,112,8285,2)
+122 ;;=^^^^^^^^17.647^^^1.02^^^^^2.353
+123 ;;^UTILITY(U,$J,112,8285,20)
+124 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+125 ;;^UTILITY(U,$J,112,8286,0)
+126 ;;=COLESLAW,WENDY'S^BC-01559^2-oz.^57
