FHINI0CQ ; ; 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,8144,0)
;;=TACO,SUPER,JACK-IN-THE-BOX^BC-01417^taco^135
;;^UTILITY(U,$J,112,8144,1)
;;=8.889^12.593^15.556^213.333^^^^^^^^^566.667
;;^UTILITY(U,$J,112,8144,2)
;;=^^^^^^^^27.407^5.926^5.111^.889
;;^UTILITY(U,$J,112,8144,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8145,0)
;;=TAQUITOS,JACK-IN-THE-BOX^BC-01418^5-pieces^140
;;^UTILITY(U,$J,112,8145,1)
;;=11.429^11.429^28.571^259.286^^^^^^^^^333.571
;;^UTILITY(U,$J,112,8145,2)
;;=^^^^^^^^26.429^4^4^1.714
;;^UTILITY(U,$J,112,8145,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8146,0)
;;=TORTILLA CHIPS,JACK-IN-THE-BOX^BC-01419^oz.^28
;;^UTILITY(U,$J,112,8146,1)
;;=7.143^21.429^64.286^496.429^^^^^^^^^478.571
;;^UTILITY(U,$J,112,8146,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8147,0)
;;=TURNOVER,HOT APPLE,JACK-IN-THE-BOX^BC-01420^turnover^119
;;^UTILITY(U,$J,112,8147,1)
;;=3.361^20.168^37.815^344.538^^^^^^^^^294.118
;;^UTILITY(U,$J,112,8147,2)
;;=^^^^^^^^12.605^9.076^8.655^1.681
;;^UTILITY(U,$J,112,8147,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8148,0)
;;=BISCUIT,BUTTERMILK,KENTUCKY FRIED CHICKEN^BC-01421^2.3-oz.^65
;;^UTILITY(U,$J,112,8148,1)
;;=6.923^18^43.077^361.538^^^^146.154^2.462^^^^1007.692^^^^^^0^.369
;;^UTILITY(U,$J,112,8148,2)
;;=.292^4^^^^^^^1.538^4.923^^3.385
;;^UTILITY(U,$J,112,8148,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8149,0)
;;=COLESLAW,KENTUCKY FRIED CHICKEN^BC-01422^3.2-oz.^91
;;^UTILITY(U,$J,112,8149,1)
;;=1.648^7.253^14.505^130.769^^^^36.264^.209^^^^216.484^^^^^340.659^24.176^.033
;;^UTILITY(U,$J,112,8149,2)
;;=.033^.22^^^^^^^5.495^1.099^^3.736
;;^UTILITY(U,$J,112,8149,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8150,0)
;;=CORN-ON-THE-COB,KENTUCKY FRIED CHICKEN^BC-01423^5-oz.^143
;;^UTILITY(U,$J,112,8150,1)
;;=3.566^2.168^22.308^123.077^^^^4.895^.552^^^^14.685^^^^^190.21^1.399^.098
;;^UTILITY(U,$J,112,8150,2)
;;=.077^1.259^^^^^^^0^.35^^1.049
;;^UTILITY(U,$J,112,8150,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8151,0)
;;=CHICKEN,FRIED,EXTRA TASTY CRISPY,BREAST,KENTUCKY FRIED^BC-01424^breast^135
;;^UTILITY(U,$J,112,8151,1)
;;=24.444^14.593^8.667^253.333^^^^24.444^.637^^^^585.185^^^^^^0^.081
;;^UTILITY(U,$J,112,8151,2)
;;=.096^9.704^^^^^^^84.444^3.556^^1.556
;;^UTILITY(U,$J,112,8151,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8152,0)
;;=CHICKEN,FRIED,EXTRA TASTY CRISPY,DRUMSTICK,KENTUCKY FRIED^BC-01425^drumstick^69
;;^UTILITY(U,$J,112,8152,1)
;;=19.71^20.145^8.841^295.652^^^^18.841^1.014^^^^469.565^^^^^^0^.087
;;^UTILITY(U,$J,112,8152,2)
;;=.174^5.362^^^^^^^102.899^4.928^^2.464
;;^UTILITY(U,$J,112,8152,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8153,0)
;;=CHICKEN,FRIED,EXTRA TASTY CRISPY,THIGH,KENTUCKY FRIED^BC-01426^thigh^119
;;^UTILITY(U,$J,112,8153,1)
;;=16.807^25.042^12.101^341.176^^^^41.176^1.017^^^^578.151^^^^^110.084^0^.084
;;^UTILITY(U,$J,112,8153,2)
;;=.176^5.462^^^^^^^108.403^6.471^^3.529
;;^UTILITY(U,$J,112,8153,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8154,0)
;;=CHICKEN,FRIED,EXTRA TASTY CRISPY,WING,KENTUCKY FRIED^BC-01427^wing^65
;;^UTILITY(U,$J,112,8154,1)
;;=19.077^28.615^14.308^390.769^^^^27.692^.923^^^^649.231^^^^^^0^.062
;;^UTILITY(U,$J,112,8154,2)
;;=.092^5.077^^^^^^^103.077^6.769^^3.846
;;^UTILITY(U,$J,112,8154,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8155,0)
;;=CHICKEN,FRIED,ORIGINAL RECIPE,BREAST,KENTUCKY FRIED^BC-01428^breast^115
;;^UTILITY(U,$J,112,8155,1)
;;=23.913^13.304^7.652^246.087^^^^31.304^.87^^^^584.348^^^^^^0^.078
;;^UTILITY(U,$J,112,8155,2)
;;=.148^10^^^^^^^80.87^3.304^^1.739
;;^UTILITY(U,$J,112,8155,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8156,0)
;;=CHICKEN,FRIED,ORIGINAL RECIPE,DRUMSTICK,KENTUCKY FRIED^BC-01429^drumstick^57
;;^UTILITY(U,$J,112,8156,1)
;;=22.982^14.912^7.368^256.14^^^^36.842^1.93^^^^482.456^^^^^^^.088
;;^UTILITY(U,$J,112,8156,2)
;;=.211^5.614^^^^^^^117.544^3.86^^2.281
;;^UTILITY(U,$J,112,8156,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8157,0)
;;=CHICKEN,FRIED,ORIGINAL RECIPE,THIGH,KENTUCKY FRIED^BC-01430^thigh^104
;;^UTILITY(U,$J,112,8157,1)
;;=17.212^18.942^10.673^282.692^^^^62.5^1.25^^^^595.192^^^^^100^0^.077
FHINI0CQ ; ; 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,8144,0)
+2 ;;=TACO,SUPER,JACK-IN-THE-BOX^BC-01417^taco^135
+3 ;;^UTILITY(U,$J,112,8144,1)
+4 ;;=8.889^12.593^15.556^213.333^^^^^^^^^566.667
+5 ;;^UTILITY(U,$J,112,8144,2)
+6 ;;=^^^^^^^^27.407^5.926^5.111^.889
+7 ;;^UTILITY(U,$J,112,8144,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,8145,0)
+10 ;;=TAQUITOS,JACK-IN-THE-BOX^BC-01418^5-pieces^140
+11 ;;^UTILITY(U,$J,112,8145,1)
+12 ;;=11.429^11.429^28.571^259.286^^^^^^^^^333.571
+13 ;;^UTILITY(U,$J,112,8145,2)
+14 ;;=^^^^^^^^26.429^4^4^1.714
+15 ;;^UTILITY(U,$J,112,8145,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,8146,0)
+18 ;;=TORTILLA CHIPS,JACK-IN-THE-BOX^BC-01419^oz.^28
+19 ;;^UTILITY(U,$J,112,8146,1)
+20 ;;=7.143^21.429^64.286^496.429^^^^^^^^^478.571
+21 ;;^UTILITY(U,$J,112,8146,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8147,0)
+24 ;;=TURNOVER,HOT APPLE,JACK-IN-THE-BOX^BC-01420^turnover^119
+25 ;;^UTILITY(U,$J,112,8147,1)
+26 ;;=3.361^20.168^37.815^344.538^^^^^^^^^294.118
+27 ;;^UTILITY(U,$J,112,8147,2)
+28 ;;=^^^^^^^^12.605^9.076^8.655^1.681
+29 ;;^UTILITY(U,$J,112,8147,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8148,0)
+32 ;;=BISCUIT,BUTTERMILK,KENTUCKY FRIED CHICKEN^BC-01421^2.3-oz.^65
+33 ;;^UTILITY(U,$J,112,8148,1)
+34 ;;=6.923^18^43.077^361.538^^^^146.154^2.462^^^^1007.692^^^^^^0^.369
+35 ;;^UTILITY(U,$J,112,8148,2)
+36 ;;=.292^4^^^^^^^1.538^4.923^^3.385
+37 ;;^UTILITY(U,$J,112,8148,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8149,0)
+40 ;;=COLESLAW,KENTUCKY FRIED CHICKEN^BC-01422^3.2-oz.^91
+41 ;;^UTILITY(U,$J,112,8149,1)
+42 ;;=1.648^7.253^14.505^130.769^^^^36.264^.209^^^^216.484^^^^^340.659^24.176^.033
+43 ;;^UTILITY(U,$J,112,8149,2)
+44 ;;=.033^.22^^^^^^^5.495^1.099^^3.736
+45 ;;^UTILITY(U,$J,112,8149,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8150,0)
+48 ;;=CORN-ON-THE-COB,KENTUCKY FRIED CHICKEN^BC-01423^5-oz.^143
+49 ;;^UTILITY(U,$J,112,8150,1)
+50 ;;=3.566^2.168^22.308^123.077^^^^4.895^.552^^^^14.685^^^^^190.21^1.399^.098
+51 ;;^UTILITY(U,$J,112,8150,2)
+52 ;;=.077^1.259^^^^^^^0^.35^^1.049
+53 ;;^UTILITY(U,$J,112,8150,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8151,0)
+56 ;;=CHICKEN,FRIED,EXTRA TASTY CRISPY,BREAST,KENTUCKY FRIED^BC-01424^breast^135
+57 ;;^UTILITY(U,$J,112,8151,1)
+58 ;;=24.444^14.593^8.667^253.333^^^^24.444^.637^^^^585.185^^^^^^0^.081
+59 ;;^UTILITY(U,$J,112,8151,2)
+60 ;;=.096^9.704^^^^^^^84.444^3.556^^1.556
+61 ;;^UTILITY(U,$J,112,8151,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8152,0)
+64 ;;=CHICKEN,FRIED,EXTRA TASTY CRISPY,DRUMSTICK,KENTUCKY FRIED^BC-01425^drumstick^69
+65 ;;^UTILITY(U,$J,112,8152,1)
+66 ;;=19.71^20.145^8.841^295.652^^^^18.841^1.014^^^^469.565^^^^^^0^.087
+67 ;;^UTILITY(U,$J,112,8152,2)
+68 ;;=.174^5.362^^^^^^^102.899^4.928^^2.464
+69 ;;^UTILITY(U,$J,112,8152,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8153,0)
+72 ;;=CHICKEN,FRIED,EXTRA TASTY CRISPY,THIGH,KENTUCKY FRIED^BC-01426^thigh^119
+73 ;;^UTILITY(U,$J,112,8153,1)
+74 ;;=16.807^25.042^12.101^341.176^^^^41.176^1.017^^^^578.151^^^^^110.084^0^.084
+75 ;;^UTILITY(U,$J,112,8153,2)
+76 ;;=.176^5.462^^^^^^^108.403^6.471^^3.529
+77 ;;^UTILITY(U,$J,112,8153,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8154,0)
+80 ;;=CHICKEN,FRIED,EXTRA TASTY CRISPY,WING,KENTUCKY FRIED^BC-01427^wing^65
+81 ;;^UTILITY(U,$J,112,8154,1)
+82 ;;=19.077^28.615^14.308^390.769^^^^27.692^.923^^^^649.231^^^^^^0^.062
+83 ;;^UTILITY(U,$J,112,8154,2)
+84 ;;=.092^5.077^^^^^^^103.077^6.769^^3.846
+85 ;;^UTILITY(U,$J,112,8154,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8155,0)
+88 ;;=CHICKEN,FRIED,ORIGINAL RECIPE,BREAST,KENTUCKY FRIED^BC-01428^breast^115
+89 ;;^UTILITY(U,$J,112,8155,1)
+90 ;;=23.913^13.304^7.652^246.087^^^^31.304^.87^^^^584.348^^^^^^0^.078
+91 ;;^UTILITY(U,$J,112,8155,2)
+92 ;;=.148^10^^^^^^^80.87^3.304^^1.739
+93 ;;^UTILITY(U,$J,112,8155,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8156,0)
+96 ;;=CHICKEN,FRIED,ORIGINAL RECIPE,DRUMSTICK,KENTUCKY FRIED^BC-01429^drumstick^57
+97 ;;^UTILITY(U,$J,112,8156,1)
+98 ;;=22.982^14.912^7.368^256.14^^^^36.842^1.93^^^^482.456^^^^^^^.088
+99 ;;^UTILITY(U,$J,112,8156,2)
+100 ;;=.211^5.614^^^^^^^117.544^3.86^^2.281
+101 ;;^UTILITY(U,$J,112,8156,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,8157,0)
+104 ;;=CHICKEN,FRIED,ORIGINAL RECIPE,THIGH,KENTUCKY FRIED^BC-01430^thigh^104
+105 ;;^UTILITY(U,$J,112,8157,1)
+106 ;;=17.212^18.942^10.673^282.692^^^^62.5^1.25^^^^595.192^^^^^100^0^.077
