FHINI0CL ; ; 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,8070,1)
;;=3.846^14.744^42.308^320.513^^^^16.667^1.282^^^493.59^115.385
;;^UTILITY(U,$J,112,8070,2)
;;=^^^^^^^^0^3.205^7.051^5.128
;;^UTILITY(U,$J,112,8070,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8071,0)
;;=FRENCH FRIES (LARGE),HARDEE'S^BC-01344^4-oz.^113
;;^UTILITY(U,$J,112,8071,1)
;;=3.54^15.044^42.478^318.584^^^^16.814^.885^^^495.575^119.469
;;^UTILITY(U,$J,112,8071,2)
;;=^^^^^^^^0^2.655^7.08^5.31
;;^UTILITY(U,$J,112,8071,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8072,0)
;;=FRENCH FRIES (REG),HARDEE'S^BC-01345^2.5-oz.^71
;;^UTILITY(U,$J,112,8072,1)
;;=4.225^15.493^42.254^323.944^^^^16.901^1.408^^^492.958^119.718
;;^UTILITY(U,$J,112,8072,2)
;;=^^^^^^^^0^2.817^7.042^5.634
;;^UTILITY(U,$J,112,8072,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8073,0)
;;=HAMBURGER,HARDEE'S^BC-01346^sandwich^110
;;^UTILITY(U,$J,112,8073,1)
;;=11.818^9.091^30^245.455^^^^100.909^2.727^^^181.818^445.455
;;^UTILITY(U,$J,112,8073,2)
;;=^^^^^^^^18.182^3.636^3.636^1.818
;;^UTILITY(U,$J,112,8073,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8074,0)
;;=HASH ROUNDS,HARDEE'S^BC-01347^serving^79
;;^UTILITY(U,$J,112,8074,1)
;;=3.797^17.722^30.38^291.139^^^^12.658^1.266^^^506.329^708.861
;;^UTILITY(U,$J,112,8074,2)
;;=^^^^^^^^0^3.797^8.861^5.063
;;^UTILITY(U,$J,112,8074,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8075,0)
;;=HOT DOG,ALL BEEF,HARDEE'S^BC-01348^hotdog^120
;;^UTILITY(U,$J,112,8075,1)
;;=9.167^14.167^20.833^250^^^^66.667^2.5^^^150^591.667
;;^UTILITY(U,$J,112,8075,2)
;;=^^^^^^^^20.833^6.667^6.667^1.667
;;^UTILITY(U,$J,112,8075,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8076,0)
;;=HOT HAM 'N CHEESE SANDWICH,HARDEE'S^BC-01349^sandwich^149
;;^UTILITY(U,$J,112,8076,1)
;;=15.436^8.054^21.477^221.477^^^^193.289^2.013^^^201.342^953.02
;;^UTILITY(U,$J,112,8076,2)
;;=^^^^^^^^43.624^3.356^2.685^1.342
;;^UTILITY(U,$J,112,8076,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8077,0)
;;=MUSHROOM & SWISS BURGER,HARDEE'S^BC-01350^sandwich^186
;;^UTILITY(U,$J,112,8077,1)
;;=16.129^14.516^17.742^263.441^^^^158.065^2.688^^^198.925^505.376
;;^UTILITY(U,$J,112,8077,2)
;;=^^^^^^^^37.634^6.989^6.452^1.075
;;^UTILITY(U,$J,112,8077,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8078,0)
;;=PANCAKES,HARDEE'S^BC-01351^3-pancakes^137
;;^UTILITY(U,$J,112,8078,1)
;;=5.839^1.46^40.876^204.38^^^^45.985^2.19^^^175.182^649.635
;;^UTILITY(U,$J,112,8078,2)
;;=^^^^^^^^10.949^.73^.73^0
;;^UTILITY(U,$J,112,8078,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8079,0)
;;=PANCAKES & BACON,HARDEE'S^BC-01352^3-cak,2-st^150
;;^UTILITY(U,$J,112,8079,1)
;;=8.667^6^37.333^233.333^^^^43.333^2.667^^^193.333^740
;;^UTILITY(U,$J,112,8079,2)
;;=^^^^^^^^16.667^2^2.667^.667
;;^UTILITY(U,$J,112,8079,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8080,0)
;;=PANCAKES & SAUSAGE PATTIE,HARDEE'S^BC-01353^3-cak,1-pa^176
;;^UTILITY(U,$J,112,8080,1)
;;=9.091^9.091^31.818^244.318^^^^39.773^2.273^^^198.864^732.955
;;^UTILITY(U,$J,112,8080,2)
;;=^^^^^^^^22.727^3.409^4.545^1.136
;;^UTILITY(U,$J,112,8080,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8081,0)
;;=PANCAKE SYRUP,HARDEE'S^BC-01354^serving^43
;;^UTILITY(U,$J,112,8081,1)
;;=0^0^72.093^279.07^^^^2.326^2.326^^^23.256^58.14
;;^UTILITY(U,$J,112,8081,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,8081,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8082,0)
;;=ROAST BEEF SANDWICH,HARDEE'S^BC-01355^sandwich^114
;;^UTILITY(U,$J,112,8082,1)
;;=13.158^7.895^27.193^228.07^^^^92.105^3.509^^^228.07^640.351
;;^UTILITY(U,$J,112,8082,2)
;;=^^^^^^^^30.702^3.509^3.509^1.754
;;^UTILITY(U,$J,112,8082,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8083,0)
;;=ROAST BEEF SANDWICH,BIG,HARDEE'S^BC-01356^sandwich^134
;;^UTILITY(U,$J,112,8083,1)
;;=13.433^8.209^23.881^223.881^^^^79.104^3.731^^^238.806^656.716
;;^UTILITY(U,$J,112,8083,2)
;;=^^^^^^^^33.582^3.731^3.731^1.493
;;^UTILITY(U,$J,112,8083,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8084,0)
;;=SALAD DRESSING,BLUE CHEESE,HARDEE'S^BC-01357^2-oz.^57
;;^UTILITY(U,$J,112,8084,1)
;;=1.754^31.579^17.544^368.421^^^^40.351^^^^61.404^1385.965
FHINI0CL ; ; 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,8070,1)
+2 ;;=3.846^14.744^42.308^320.513^^^^16.667^1.282^^^493.59^115.385
+3 ;;^UTILITY(U,$J,112,8070,2)
+4 ;;=^^^^^^^^0^3.205^7.051^5.128
+5 ;;^UTILITY(U,$J,112,8070,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8071,0)
+8 ;;=FRENCH FRIES (LARGE),HARDEE'S^BC-01344^4-oz.^113
+9 ;;^UTILITY(U,$J,112,8071,1)
+10 ;;=3.54^15.044^42.478^318.584^^^^16.814^.885^^^495.575^119.469
+11 ;;^UTILITY(U,$J,112,8071,2)
+12 ;;=^^^^^^^^0^2.655^7.08^5.31
+13 ;;^UTILITY(U,$J,112,8071,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8072,0)
+16 ;;=FRENCH FRIES (REG),HARDEE'S^BC-01345^2.5-oz.^71
+17 ;;^UTILITY(U,$J,112,8072,1)
+18 ;;=4.225^15.493^42.254^323.944^^^^16.901^1.408^^^492.958^119.718
+19 ;;^UTILITY(U,$J,112,8072,2)
+20 ;;=^^^^^^^^0^2.817^7.042^5.634
+21 ;;^UTILITY(U,$J,112,8072,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8073,0)
+24 ;;=HAMBURGER,HARDEE'S^BC-01346^sandwich^110
+25 ;;^UTILITY(U,$J,112,8073,1)
+26 ;;=11.818^9.091^30^245.455^^^^100.909^2.727^^^181.818^445.455
+27 ;;^UTILITY(U,$J,112,8073,2)
+28 ;;=^^^^^^^^18.182^3.636^3.636^1.818
+29 ;;^UTILITY(U,$J,112,8073,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8074,0)
+32 ;;=HASH ROUNDS,HARDEE'S^BC-01347^serving^79
+33 ;;^UTILITY(U,$J,112,8074,1)
+34 ;;=3.797^17.722^30.38^291.139^^^^12.658^1.266^^^506.329^708.861
+35 ;;^UTILITY(U,$J,112,8074,2)
+36 ;;=^^^^^^^^0^3.797^8.861^5.063
+37 ;;^UTILITY(U,$J,112,8074,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8075,0)
+40 ;;=HOT DOG,ALL BEEF,HARDEE'S^BC-01348^hotdog^120
+41 ;;^UTILITY(U,$J,112,8075,1)
+42 ;;=9.167^14.167^20.833^250^^^^66.667^2.5^^^150^591.667
+43 ;;^UTILITY(U,$J,112,8075,2)
+44 ;;=^^^^^^^^20.833^6.667^6.667^1.667
+45 ;;^UTILITY(U,$J,112,8075,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8076,0)
+48 ;;=HOT HAM 'N CHEESE SANDWICH,HARDEE'S^BC-01349^sandwich^149
+49 ;;^UTILITY(U,$J,112,8076,1)
+50 ;;=15.436^8.054^21.477^221.477^^^^193.289^2.013^^^201.342^953.02
+51 ;;^UTILITY(U,$J,112,8076,2)
+52 ;;=^^^^^^^^43.624^3.356^2.685^1.342
+53 ;;^UTILITY(U,$J,112,8076,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8077,0)
+56 ;;=MUSHROOM & SWISS BURGER,HARDEE'S^BC-01350^sandwich^186
+57 ;;^UTILITY(U,$J,112,8077,1)
+58 ;;=16.129^14.516^17.742^263.441^^^^158.065^2.688^^^198.925^505.376
+59 ;;^UTILITY(U,$J,112,8077,2)
+60 ;;=^^^^^^^^37.634^6.989^6.452^1.075
+61 ;;^UTILITY(U,$J,112,8077,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8078,0)
+64 ;;=PANCAKES,HARDEE'S^BC-01351^3-pancakes^137
+65 ;;^UTILITY(U,$J,112,8078,1)
+66 ;;=5.839^1.46^40.876^204.38^^^^45.985^2.19^^^175.182^649.635
+67 ;;^UTILITY(U,$J,112,8078,2)
+68 ;;=^^^^^^^^10.949^.73^.73^0
+69 ;;^UTILITY(U,$J,112,8078,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8079,0)
+72 ;;=PANCAKES & BACON,HARDEE'S^BC-01352^3-cak,2-st^150
+73 ;;^UTILITY(U,$J,112,8079,1)
+74 ;;=8.667^6^37.333^233.333^^^^43.333^2.667^^^193.333^740
+75 ;;^UTILITY(U,$J,112,8079,2)
+76 ;;=^^^^^^^^16.667^2^2.667^.667
+77 ;;^UTILITY(U,$J,112,8079,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8080,0)
+80 ;;=PANCAKES & SAUSAGE PATTIE,HARDEE'S^BC-01353^3-cak,1-pa^176
+81 ;;^UTILITY(U,$J,112,8080,1)
+82 ;;=9.091^9.091^31.818^244.318^^^^39.773^2.273^^^198.864^732.955
+83 ;;^UTILITY(U,$J,112,8080,2)
+84 ;;=^^^^^^^^22.727^3.409^4.545^1.136
+85 ;;^UTILITY(U,$J,112,8080,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8081,0)
+88 ;;=PANCAKE SYRUP,HARDEE'S^BC-01354^serving^43
+89 ;;^UTILITY(U,$J,112,8081,1)
+90 ;;=0^0^72.093^279.07^^^^2.326^2.326^^^23.256^58.14
+91 ;;^UTILITY(U,$J,112,8081,2)
+92 ;;=^^^^^^^^0^0^0^0
+93 ;;^UTILITY(U,$J,112,8081,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8082,0)
+96 ;;=ROAST BEEF SANDWICH,HARDEE'S^BC-01355^sandwich^114
+97 ;;^UTILITY(U,$J,112,8082,1)
+98 ;;=13.158^7.895^27.193^228.07^^^^92.105^3.509^^^228.07^640.351
+99 ;;^UTILITY(U,$J,112,8082,2)
+100 ;;=^^^^^^^^30.702^3.509^3.509^1.754
+101 ;;^UTILITY(U,$J,112,8082,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,8083,0)
+104 ;;=ROAST BEEF SANDWICH,BIG,HARDEE'S^BC-01356^sandwich^134
+105 ;;^UTILITY(U,$J,112,8083,1)
+106 ;;=13.433^8.209^23.881^223.881^^^^79.104^3.731^^^238.806^656.716
+107 ;;^UTILITY(U,$J,112,8083,2)
+108 ;;=^^^^^^^^33.582^3.731^3.731^1.493
+109 ;;^UTILITY(U,$J,112,8083,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+111 ;;^UTILITY(U,$J,112,8084,0)
+112 ;;=SALAD DRESSING,BLUE CHEESE,HARDEE'S^BC-01357^2-oz.^57
+113 ;;^UTILITY(U,$J,112,8084,1)
+114 ;;=1.754^31.579^17.544^368.421^^^^40.351^^^^61.404^1385.965
