FHINI0CI ; ; 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,8027,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8028,0)
;;=WHOPPER SANDWICH W/CHEESE,BURGER KING^BC-01301^sandwich^294
;;^UTILITY(U,$J,112,8028,1)
;;=10.884^14.966^15.986^240.136^^^^71.429^1.670^16.327^122.789^193.878^400.34^1.731^.048^^^340.476^4.762^.116
;;^UTILITY(U,$J,112,8028,2)
;;=.163^2.313^^^^^^^39.116^5.442^4.422^4.422
;;^UTILITY(U,$J,112,8028,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8029,0)
;;=BIG COOKIE,HARDEE'S^BC-01302^cookie^49
;;^UTILITY(U,$J,112,8029,1)
;;=6.122^26.531^63.265^510.204^^^^10.204^^^^91.837^489.796
;;^UTILITY(U,$J,112,8029,2)
;;=^^^^^^^^10.204^8.163^14.286^4.082
;;^UTILITY(U,$J,112,8029,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8030,0)
;;=BIG COUNTRY BREAKFAST W/BACON,HARDEE'S^BC-01303^breakfast^217
;;^UTILITY(U,$J,112,8030,1)
;;=11.06^18.433^23.502^304.147^^^^76.498^2.304^^^244.24^709.677
;;^UTILITY(U,$J,112,8030,2)
;;=^^^^^^^^140.553^4.608^10.138^3.687
;;^UTILITY(U,$J,112,8030,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8031,0)
;;=BIG COUNTRY BREAKFAST W/COUNTRY HAM,HARDEE'S^BC-01304^breakfast^254
;;^UTILITY(U,$J,112,8031,1)
;;=11.417^14.961^20.472^263.78^^^^66.929^2.362^^^279.528^1129.921
;;^UTILITY(U,$J,112,8031,2)
;;=^^^^^^^^135.827^3.543^8.268^3.15
;;^UTILITY(U,$J,112,8031,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8032,0)
;;=BIG COUNTRY BREAKFAST W/HAM,HARDEE'S^BC-01305^breakfast^251
;;^UTILITY(U,$J,112,8032,1)
;;=11.155^13.147^20.319^247.012^^^^65.737^1.992^^^247.012^709.163
;;^UTILITY(U,$J,112,8032,2)
;;=^^^^^^^^129.482^2.789^7.57^3.187
;;^UTILITY(U,$J,112,8032,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8033,0)
;;=BIG COUNTRY BREAKFAST W/SAUSAGE,HARDEE'S^BC-01306^breakfast^274
;;^UTILITY(U,$J,112,8033,1)
;;=12.044^20.803^18.613^310.219^^^^64.964^2.19^^^244.526^722.628
;;^UTILITY(U,$J,112,8033,2)
;;=^^^^^^^^124.088^5.839^11.314^4.015
;;^UTILITY(U,$J,112,8033,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8034,0)
;;=BIG DELUXE BURGER,HARDEE'S^BC-01307^sandwich^216
;;^UTILITY(U,$J,112,8034,1)
;;=12.5^13.889^14.815^231.481^^^^85.648^2.315^^^180.556^351.852
;;^UTILITY(U,$J,112,8034,2)
;;=^^^^^^^^32.407^5.556^5.556^2.315
;;^UTILITY(U,$J,112,8034,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8035,0)
;;=BIG TWIN SANDWICH,HARDEE'S^BC-01308^sandwich^173
;;^UTILITY(U,$J,112,8035,1)
;;=13.295^14.451^19.653^260.116^^^^104.046^2.312^^^161.85^335.26
;;^UTILITY(U,$J,112,8035,2)
;;=^^^^^^^^31.792^6.358^5.202^2.89
;;^UTILITY(U,$J,112,8035,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8036,0)
;;=BISCUIT,BACON,HARDEE'S^BC-01309^biscuit^93
;;^UTILITY(U,$J,112,8036,1)
;;=10.753^22.581^36.559^387.097^^^^129.032^2.151^^^150.538^1021.505
;;^UTILITY(U,$J,112,8036,2)
;;=^^^^^^^^10.753^4.301^13.978^4.301
;;^UTILITY(U,$J,112,8036,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8037,0)
;;=BISCUIT,BACON & EGG,HARDEE'S^BC-01310^biscuit^124
;;^UTILITY(U,$J,112,8037,1)
;;=12.097^19.355^28.226^330.645^^^^112.097^2.419^^^145.161^798.387
;;^UTILITY(U,$J,112,8037,2)
;;=^^^^^^^^125^4.032^11.29^4.032
;;^UTILITY(U,$J,112,8037,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8038,0)
;;=BISCUIT,BACON,EGG & CHEESE,HARDEE'S^BC-01311^biscuit^137
;;^UTILITY(U,$J,112,8038,1)
;;=12.409^20.438^25.547^335.766^^^^151.095^2.19^^^145.985^890.511
;;^UTILITY(U,$J,112,8038,2)
;;=^^^^^^^^120.438^5.839^10.949^3.65
;;^UTILITY(U,$J,112,8038,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8039,0)
;;=BISCUIT,CANADIAN RISE 'N SHINE,HARDEE'S^BC-01312^biscuit^161
;;^UTILITY(U,$J,112,8039,1)
;;=13.665^16.77^21.739^291.925^^^^129.193^2.484^^^173.913^962.733
;;^UTILITY(U,$J,112,8039,2)
;;=^^^^^^^^111.801^4.969^9.317^3.106
;;^UTILITY(U,$J,112,8039,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8040,0)
;;=BISCUIT,CHICKEN,HARDEE'S^BC-01313^biscuit^146
;;^UTILITY(U,$J,112,8040,1)
;;=11.644^15.068^28.767^294.521^^^^89.041^1.37^^^178.082^910.959
;;^UTILITY(U,$J,112,8040,2)
;;=^^^^^^^^30.822^2.74^8.904^3.425
;;^UTILITY(U,$J,112,8040,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8041,0)
;;=BISCUIT,COUNTRY HAM,HARDEE'S^BC-01314^biscuit^108
;;^UTILITY(U,$J,112,8041,1)
;;=10.185^16.667^32.407^324.074^^^^112.037^2.778^^^194.444^1435.185
FHINI0CI ; ; 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,8027,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,8028,0)
+4 ;;=WHOPPER SANDWICH W/CHEESE,BURGER KING^BC-01301^sandwich^294
+5 ;;^UTILITY(U,$J,112,8028,1)
+6 ;;=10.884^14.966^15.986^240.136^^^^71.429^1.670^16.327^122.789^193.878^400.34^1.731^.048^^^340.476^4.762^.116
+7 ;;^UTILITY(U,$J,112,8028,2)
+8 ;;=.163^2.313^^^^^^^39.116^5.442^4.422^4.422
+9 ;;^UTILITY(U,$J,112,8028,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,8029,0)
+12 ;;=BIG COOKIE,HARDEE'S^BC-01302^cookie^49
+13 ;;^UTILITY(U,$J,112,8029,1)
+14 ;;=6.122^26.531^63.265^510.204^^^^10.204^^^^91.837^489.796
+15 ;;^UTILITY(U,$J,112,8029,2)
+16 ;;=^^^^^^^^10.204^8.163^14.286^4.082
+17 ;;^UTILITY(U,$J,112,8029,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,8030,0)
+20 ;;=BIG COUNTRY BREAKFAST W/BACON,HARDEE'S^BC-01303^breakfast^217
+21 ;;^UTILITY(U,$J,112,8030,1)
+22 ;;=11.06^18.433^23.502^304.147^^^^76.498^2.304^^^244.24^709.677
+23 ;;^UTILITY(U,$J,112,8030,2)
+24 ;;=^^^^^^^^140.553^4.608^10.138^3.687
+25 ;;^UTILITY(U,$J,112,8030,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,8031,0)
+28 ;;=BIG COUNTRY BREAKFAST W/COUNTRY HAM,HARDEE'S^BC-01304^breakfast^254
+29 ;;^UTILITY(U,$J,112,8031,1)
+30 ;;=11.417^14.961^20.472^263.78^^^^66.929^2.362^^^279.528^1129.921
+31 ;;^UTILITY(U,$J,112,8031,2)
+32 ;;=^^^^^^^^135.827^3.543^8.268^3.15
+33 ;;^UTILITY(U,$J,112,8031,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,8032,0)
+36 ;;=BIG COUNTRY BREAKFAST W/HAM,HARDEE'S^BC-01305^breakfast^251
+37 ;;^UTILITY(U,$J,112,8032,1)
+38 ;;=11.155^13.147^20.319^247.012^^^^65.737^1.992^^^247.012^709.163
+39 ;;^UTILITY(U,$J,112,8032,2)
+40 ;;=^^^^^^^^129.482^2.789^7.57^3.187
+41 ;;^UTILITY(U,$J,112,8032,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,8033,0)
+44 ;;=BIG COUNTRY BREAKFAST W/SAUSAGE,HARDEE'S^BC-01306^breakfast^274
+45 ;;^UTILITY(U,$J,112,8033,1)
+46 ;;=12.044^20.803^18.613^310.219^^^^64.964^2.19^^^244.526^722.628
+47 ;;^UTILITY(U,$J,112,8033,2)
+48 ;;=^^^^^^^^124.088^5.839^11.314^4.015
+49 ;;^UTILITY(U,$J,112,8033,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,8034,0)
+52 ;;=BIG DELUXE BURGER,HARDEE'S^BC-01307^sandwich^216
+53 ;;^UTILITY(U,$J,112,8034,1)
+54 ;;=12.5^13.889^14.815^231.481^^^^85.648^2.315^^^180.556^351.852
+55 ;;^UTILITY(U,$J,112,8034,2)
+56 ;;=^^^^^^^^32.407^5.556^5.556^2.315
+57 ;;^UTILITY(U,$J,112,8034,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,8035,0)
+60 ;;=BIG TWIN SANDWICH,HARDEE'S^BC-01308^sandwich^173
+61 ;;^UTILITY(U,$J,112,8035,1)
+62 ;;=13.295^14.451^19.653^260.116^^^^104.046^2.312^^^161.85^335.26
+63 ;;^UTILITY(U,$J,112,8035,2)
+64 ;;=^^^^^^^^31.792^6.358^5.202^2.89
+65 ;;^UTILITY(U,$J,112,8035,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,8036,0)
+68 ;;=BISCUIT,BACON,HARDEE'S^BC-01309^biscuit^93
+69 ;;^UTILITY(U,$J,112,8036,1)
+70 ;;=10.753^22.581^36.559^387.097^^^^129.032^2.151^^^150.538^1021.505
+71 ;;^UTILITY(U,$J,112,8036,2)
+72 ;;=^^^^^^^^10.753^4.301^13.978^4.301
+73 ;;^UTILITY(U,$J,112,8036,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,8037,0)
+76 ;;=BISCUIT,BACON & EGG,HARDEE'S^BC-01310^biscuit^124
+77 ;;^UTILITY(U,$J,112,8037,1)
+78 ;;=12.097^19.355^28.226^330.645^^^^112.097^2.419^^^145.161^798.387
+79 ;;^UTILITY(U,$J,112,8037,2)
+80 ;;=^^^^^^^^125^4.032^11.29^4.032
+81 ;;^UTILITY(U,$J,112,8037,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,8038,0)
+84 ;;=BISCUIT,BACON,EGG & CHEESE,HARDEE'S^BC-01311^biscuit^137
+85 ;;^UTILITY(U,$J,112,8038,1)
+86 ;;=12.409^20.438^25.547^335.766^^^^151.095^2.19^^^145.985^890.511
+87 ;;^UTILITY(U,$J,112,8038,2)
+88 ;;=^^^^^^^^120.438^5.839^10.949^3.65
+89 ;;^UTILITY(U,$J,112,8038,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,8039,0)
+92 ;;=BISCUIT,CANADIAN RISE 'N SHINE,HARDEE'S^BC-01312^biscuit^161
+93 ;;^UTILITY(U,$J,112,8039,1)
+94 ;;=13.665^16.77^21.739^291.925^^^^129.193^2.484^^^173.913^962.733
+95 ;;^UTILITY(U,$J,112,8039,2)
+96 ;;=^^^^^^^^111.801^4.969^9.317^3.106
+97 ;;^UTILITY(U,$J,112,8039,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,8040,0)
+100 ;;=BISCUIT,CHICKEN,HARDEE'S^BC-01313^biscuit^146
+101 ;;^UTILITY(U,$J,112,8040,1)
+102 ;;=11.644^15.068^28.767^294.521^^^^89.041^1.37^^^178.082^910.959
+103 ;;^UTILITY(U,$J,112,8040,2)
+104 ;;=^^^^^^^^30.822^2.74^8.904^3.425
+105 ;;^UTILITY(U,$J,112,8040,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+107 ;;^UTILITY(U,$J,112,8041,0)
+108 ;;=BISCUIT,COUNTRY HAM,HARDEE'S^BC-01314^biscuit^108
+109 ;;^UTILITY(U,$J,112,8041,1)
+110 ;;=10.185^16.667^32.407^324.074^^^^112.037^2.778^^^194.444^1435.185
