FHINI0CJ ; ; 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,8041,2)
;;=^^^^^^^^23.148^2.778^10.185^3.704
;;^UTILITY(U,$J,112,8041,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8042,0)
;;=BISCUIT,COUNTRY HAM & EGG,HARDEE'S^BC-01315^biscuit^139
;;^UTILITY(U,$J,112,8042,1)
;;=11.511^15.827^25.18^287.77^^^^100.719^2.878^^^187.05^1151.079
;;^UTILITY(U,$J,112,8042,2)
;;=^^^^^^^^125.899^2.878^9.353^2.878
;;^UTILITY(U,$J,112,8042,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8043,0)
;;=BISCUIT,HAM,HARDEE'S^BC-01316^biscuit^106
;;^UTILITY(U,$J,112,8043,1)
;;=9.434^15.094^32.075^301.887^^^^112.264^1.887^^^160.377^943.396
;;^UTILITY(U,$J,112,8043,2)
;;=^^^^^^^^14.151^1.887^9.434^3.774
;;^UTILITY(U,$J,112,8043,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8044,0)
;;=BISCUIT,HAM & EGG,HARDEE'S^BC-01317^biscuit^138
;;^UTILITY(U,$J,112,8044,1)
;;=10.87^13.768^25.362^268.116^^^^100^2.174^^^152.174^760.87
;;^UTILITY(U,$J,112,8044,2)
;;=^^^^^^^^115.942^2.899^8.696^2.899
;;^UTILITY(U,$J,112,8044,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8045,0)
;;=BISCUIT,HAM,EGG & CHEESE,HARDEE'S^BC-01318^biscuit^151
;;^UTILITY(U,$J,112,8045,1)
;;=11.921^15.232^23.179^278.146^^^^136.424^1.987^^^152.318^841.06
;;^UTILITY(U,$J,112,8045,2)
;;=^^^^^^^^112.583^3.974^8.609^2.649
;;^UTILITY(U,$J,112,8045,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8046,0)
;;=BISCUIT 'N GRAVY,HARDEE'S^BC-01319^biscuit^221
;;^UTILITY(U,$J,112,8046,1)
;;=4.072^10.86^20.362^199.095^^^^67.873^.905^^^95.023^565.611
;;^UTILITY(U,$J,112,8046,2)
;;=^^^^^^^^6.787^2.715^6.335^2.262
;;^UTILITY(U,$J,112,8046,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8047,0)
;;=BISCUIT,RISE 'N SHINE,HARDEE'S^BC-01320^biscuit^83
;;^UTILITY(U,$J,112,8047,1)
;;=6.024^21.687^40.964^385.542^^^^142.169^2.41^^^96.386^891.566
;;^UTILITY(U,$J,112,8047,2)
;;=^^^^^^^^0^3.614^13.253^4.819
;;^UTILITY(U,$J,112,8047,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8048,0)
;;=BISCUIT,SAUSAGE,HARDEE'S^BC-01321^biscuit^118
;;^UTILITY(U,$J,112,8048,1)
;;=11.017^23.729^28.814^372.881^^^^105.932^2.542^^^161.017^932.203
;;^UTILITY(U,$J,112,8048,2)
;;=^^^^^^^^21.186^5.932^13.559^4.237
;;^UTILITY(U,$J,112,8048,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8049,0)
;;=BISCUIT,SAUSAGE & EGG,HARDEE'S^BC-01322^biscuit^150
;;^UTILITY(U,$J,112,8049,1)
;;=12^20.667^23.333^326.667^^^^96^2.667^^^160^766.667
;;^UTILITY(U,$J,112,8049,2)
;;=^^^^^^^^113.333^5.333^12^4
;;^UTILITY(U,$J,112,8049,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8050,0)
;;=BISCUIT,STEAK,HARDEE'S^BC-01323^biscuit^148
;;^UTILITY(U,$J,112,8050,1)
;;=10.135^19.595^31.081^337.838^^^^88.514^2.703^^^162.162^891.892
;;^UTILITY(U,$J,112,8050,2)
;;=^^^^^^^^20.27^4.73^10.811^4.054
;;^UTILITY(U,$J,112,8050,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8051,0)
;;=BISCUIT,STEAK & EGG,HARDEE'S^BC-01324^biscuit^179
;;^UTILITY(U,$J,112,8051,1)
;;=11.173^17.877^26.257^307.263^^^^83.799^2.793^^^156.425^765.363
;;^UTILITY(U,$J,112,8051,2)
;;=^^^^^^^^97.765^4.469^9.497^3.911
;;^UTILITY(U,$J,112,8051,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8052,0)
;;=CHEESEBURGER,HARDEE'S^BC-01325^sandwich^122
;;^UTILITY(U,$J,112,8052,1)
;;=13.115^11.475^27.049^262.295^^^^145.902^2.459^^^172.131^581.967
;;^UTILITY(U,$J,112,8052,2)
;;=^^^^^^^^24.59^5.738^4.098^1.639
;;^UTILITY(U,$J,112,8052,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8053,0)
;;=CHEESEBURGER,BACON,HARDEE'S^BC-01326^sandwich^219
;;^UTILITY(U,$J,112,8053,1)
;;=15.525^17.808^14.155^278.539^^^^82.648^2.74^^^210.046^470.32
;;^UTILITY(U,$J,112,8053,2)
;;=^^^^^^^^36.53^7.306^7.763^2.74
;;^UTILITY(U,$J,112,8053,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8054,0)
;;=CHEESEBURGER,QUARTER-POUND,HARDEE'S^BC-01327^sandwich^182
;;^UTILITY(U,$J,112,8054,1)
;;=15.934^15.934^18.681^274.725^^^^136.264^2.747^^^192.308^582.418
;;^UTILITY(U,$J,112,8054,2)
;;=^^^^^^^^38.462^7.692^6.593^1.099
;;^UTILITY(U,$J,112,8054,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8055,0)
;;=CHICKEN FILLET SANDWICH,HARDEE'S^BC-01328^sandwich^173
;;^UTILITY(U,$J,112,8055,1)
;;=10.983^7.514^25.434^213.873^^^^71.098^1.734^^^167.63^612.717
FHINI0CJ ; ; 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,8041,2)
+2 ;;=^^^^^^^^23.148^2.778^10.185^3.704
+3 ;;^UTILITY(U,$J,112,8041,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,8042,0)
+6 ;;=BISCUIT,COUNTRY HAM & EGG,HARDEE'S^BC-01315^biscuit^139
+7 ;;^UTILITY(U,$J,112,8042,1)
+8 ;;=11.511^15.827^25.18^287.77^^^^100.719^2.878^^^187.05^1151.079
+9 ;;^UTILITY(U,$J,112,8042,2)
+10 ;;=^^^^^^^^125.899^2.878^9.353^2.878
+11 ;;^UTILITY(U,$J,112,8042,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,8043,0)
+14 ;;=BISCUIT,HAM,HARDEE'S^BC-01316^biscuit^106
+15 ;;^UTILITY(U,$J,112,8043,1)
+16 ;;=9.434^15.094^32.075^301.887^^^^112.264^1.887^^^160.377^943.396
+17 ;;^UTILITY(U,$J,112,8043,2)
+18 ;;=^^^^^^^^14.151^1.887^9.434^3.774
+19 ;;^UTILITY(U,$J,112,8043,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,8044,0)
+22 ;;=BISCUIT,HAM & EGG,HARDEE'S^BC-01317^biscuit^138
+23 ;;^UTILITY(U,$J,112,8044,1)
+24 ;;=10.87^13.768^25.362^268.116^^^^100^2.174^^^152.174^760.87
+25 ;;^UTILITY(U,$J,112,8044,2)
+26 ;;=^^^^^^^^115.942^2.899^8.696^2.899
+27 ;;^UTILITY(U,$J,112,8044,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8045,0)
+30 ;;=BISCUIT,HAM,EGG & CHEESE,HARDEE'S^BC-01318^biscuit^151
+31 ;;^UTILITY(U,$J,112,8045,1)
+32 ;;=11.921^15.232^23.179^278.146^^^^136.424^1.987^^^152.318^841.06
+33 ;;^UTILITY(U,$J,112,8045,2)
+34 ;;=^^^^^^^^112.583^3.974^8.609^2.649
+35 ;;^UTILITY(U,$J,112,8045,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8046,0)
+38 ;;=BISCUIT 'N GRAVY,HARDEE'S^BC-01319^biscuit^221
+39 ;;^UTILITY(U,$J,112,8046,1)
+40 ;;=4.072^10.86^20.362^199.095^^^^67.873^.905^^^95.023^565.611
+41 ;;^UTILITY(U,$J,112,8046,2)
+42 ;;=^^^^^^^^6.787^2.715^6.335^2.262
+43 ;;^UTILITY(U,$J,112,8046,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8047,0)
+46 ;;=BISCUIT,RISE 'N SHINE,HARDEE'S^BC-01320^biscuit^83
+47 ;;^UTILITY(U,$J,112,8047,1)
+48 ;;=6.024^21.687^40.964^385.542^^^^142.169^2.41^^^96.386^891.566
+49 ;;^UTILITY(U,$J,112,8047,2)
+50 ;;=^^^^^^^^0^3.614^13.253^4.819
+51 ;;^UTILITY(U,$J,112,8047,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,8048,0)
+54 ;;=BISCUIT,SAUSAGE,HARDEE'S^BC-01321^biscuit^118
+55 ;;^UTILITY(U,$J,112,8048,1)
+56 ;;=11.017^23.729^28.814^372.881^^^^105.932^2.542^^^161.017^932.203
+57 ;;^UTILITY(U,$J,112,8048,2)
+58 ;;=^^^^^^^^21.186^5.932^13.559^4.237
+59 ;;^UTILITY(U,$J,112,8048,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,8049,0)
+62 ;;=BISCUIT,SAUSAGE & EGG,HARDEE'S^BC-01322^biscuit^150
+63 ;;^UTILITY(U,$J,112,8049,1)
+64 ;;=12^20.667^23.333^326.667^^^^96^2.667^^^160^766.667
+65 ;;^UTILITY(U,$J,112,8049,2)
+66 ;;=^^^^^^^^113.333^5.333^12^4
+67 ;;^UTILITY(U,$J,112,8049,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,8050,0)
+70 ;;=BISCUIT,STEAK,HARDEE'S^BC-01323^biscuit^148
+71 ;;^UTILITY(U,$J,112,8050,1)
+72 ;;=10.135^19.595^31.081^337.838^^^^88.514^2.703^^^162.162^891.892
+73 ;;^UTILITY(U,$J,112,8050,2)
+74 ;;=^^^^^^^^20.27^4.73^10.811^4.054
+75 ;;^UTILITY(U,$J,112,8050,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,8051,0)
+78 ;;=BISCUIT,STEAK & EGG,HARDEE'S^BC-01324^biscuit^179
+79 ;;^UTILITY(U,$J,112,8051,1)
+80 ;;=11.173^17.877^26.257^307.263^^^^83.799^2.793^^^156.425^765.363
+81 ;;^UTILITY(U,$J,112,8051,2)
+82 ;;=^^^^^^^^97.765^4.469^9.497^3.911
+83 ;;^UTILITY(U,$J,112,8051,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,8052,0)
+86 ;;=CHEESEBURGER,HARDEE'S^BC-01325^sandwich^122
+87 ;;^UTILITY(U,$J,112,8052,1)
+88 ;;=13.115^11.475^27.049^262.295^^^^145.902^2.459^^^172.131^581.967
+89 ;;^UTILITY(U,$J,112,8052,2)
+90 ;;=^^^^^^^^24.59^5.738^4.098^1.639
+91 ;;^UTILITY(U,$J,112,8052,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,8053,0)
+94 ;;=CHEESEBURGER,BACON,HARDEE'S^BC-01326^sandwich^219
+95 ;;^UTILITY(U,$J,112,8053,1)
+96 ;;=15.525^17.808^14.155^278.539^^^^82.648^2.74^^^210.046^470.32
+97 ;;^UTILITY(U,$J,112,8053,2)
+98 ;;=^^^^^^^^36.53^7.306^7.763^2.74
+99 ;;^UTILITY(U,$J,112,8053,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,8054,0)
+102 ;;=CHEESEBURGER,QUARTER-POUND,HARDEE'S^BC-01327^sandwich^182
+103 ;;^UTILITY(U,$J,112,8054,1)
+104 ;;=15.934^15.934^18.681^274.725^^^^136.264^2.747^^^192.308^582.418
+105 ;;^UTILITY(U,$J,112,8054,2)
+106 ;;=^^^^^^^^38.462^7.692^6.593^1.099
+107 ;;^UTILITY(U,$J,112,8054,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,8055,0)
+110 ;;=CHICKEN FILLET SANDWICH,HARDEE'S^BC-01328^sandwich^173
+111 ;;^UTILITY(U,$J,112,8055,1)
+112 ;;=10.983^7.514^25.434^213.873^^^^71.098^1.734^^^167.63^612.717
