FHINI092 ; ; 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,6208,2)
;;=.24^3.85^^.09^^1.15
;;^UTILITY(U,$J,112,6209,0)
;;=DAIRY QUEEN, SUPER BRAZIER DOG W/CHEESE^^ea.^203
;;^UTILITY(U,$J,112,6209,1)
;;=12.8^17.7^21.2^292^^^^146^2.2^20.7^154^^978.3^1.72^.09^^^^6.9^.212
;;^UTILITY(U,$J,112,6209,2)
;;=.24^3.99^^.09^^1.15
;;^UTILITY(U,$J,112,6210,0)
;;=DAIRY QUEEN, SUPER BRAZIER CHILI DOG^^ea.^210
;;^UTILITY(U,$J,112,6210,1)
;;=11^15.7^20.7^264^^^^75^1.9^22.9^110^^781^1.33^1^^^^8.8^.2
;;^UTILITY(U,$J,112,6210,2)
;;=.23^4.19^^.13^^1.27
;;^UTILITY(U,$J,112,6211,0)
;;=DAIRY QUEEN, BRAZIER FRIES SMALL^^ea.^71
;;^UTILITY(U,$J,112,6211,1)
;;=2.8^14.1^35.2^281^^^^0^.6^22.5^141^0^^0^.06^^^0^5^.085
;;^UTILITY(U,$J,112,6211,2)
;;=0^1.13^^.23
;;^UTILITY(U,$J,112,6212,0)
;;=DAIRY QUEEN, BRAZIER FRIES LARGE^^ea.^113
;;^UTILITY(U,$J,112,6212,1)
;;=2.7^15^35.4^283^^^^0^.4^21.2^133^^^.27^.07^^^0^4.3^.08
;;^UTILITY(U,$J,112,6212,2)
;;=.02^1.06^^.27
;;^UTILITY(U,$J,112,6213,0)
;;=DAIRY QUEEN, BRAZIER ONION RINGS^^ea.^85
;;^UTILITY(U,$J,112,6213,1)
;;=7^20^38.8^353^0^^^24^.5^18.8^71^^^.35^.09^^^0^2.8^.106
;;^UTILITY(U,$J,112,6213,2)
;;=0^.47^^.09
;;^UTILITY(U,$J,112,6214,0)
;;=KENTUCKY FRIED CHICKEN ORIGINAL RECIPE DINNERS, WING & RIB^^ea.^322
;;^UTILITY(U,$J,112,6214,1)
;;=9.3^9.9^14.9^187^^^^^^^^^^^^^^8^11.4^.068
;;^UTILITY(U,$J,112,6214,2)
;;=.059^3.11^^^^^^^41
;;^UTILITY(U,$J,112,6215,0)
;;=KENTUCKY FRIED CHICKEN ORIGINAL RECIPE DINNERS, WING & THIGH^^ea.^341
;;^UTILITY(U,$J,112,6215,1)
;;=9.7^11.1^14.1^194^^^^^^^^^^^^^^7^10.7^.07
;;^UTILITY(U,$J,112,6215,2)
;;=.079^2.46^^^^^^^50
;;^UTILITY(U,$J,112,6216,0)
;;=KENTUCKY FRIED CHICKEN ORIGINAL RECIPE DINNER, DRUM & THIGH^^ea.^346
;;^UTILITY(U,$J,112,6216,1)
;;=10.1^10.1^13.3^186^^^^^^^^^^^^^^7^10.6^.072
;;^UTILITY(U,$J,112,6216,2)
;;=.092^2.46^^^^^^^52
;;^UTILITY(U,$J,112,6217,0)
;;=KENTUCKY FRIED CHICKEN EXTRA CRISPY DINNER, WING & RIB^^ea.^349
;;^UTILITY(U,$J,112,6217,1)
;;=9.5^17.2^12.3^216^^^^^^^^^^^^^^7^10.5^.089
;;^UTILITY(U,$J,112,6217,2)
;;=.083^2.98^^^^^^^38
;;^UTILITY(U,$J,112,6218,0)
;;=KENTUCKY FRIED CHICKEN EXTRA CRISPY DINNER, WING & THIGH^^ea.^371
;;^UTILITY(U,$J,112,6218,1)
;;=9.7^12.9^15.6^218^^^^^^^^^^^^^^7^9.9^.084
;;^UTILITY(U,$J,112,6218,2)
;;=.094^2.78^^^^^^^47
;;^UTILITY(U,$J,112,6219,0)
;;=KENTUCKY FRIED CHICKEN EXTRA CRISPY DINNER, DRUM & THIGH^^ea.^376
;;^UTILITY(U,$J,112,6219,1)
;;=10.1^11.7^14.6^203^^^^^^^^^^^^^^7^9.7^.085
;;^UTILITY(U,$J,112,6219,2)
;;=.101^2.77^^^^^^^49
;;^UTILITY(U,$J,112,6220,0)
;;=KENTUCKY FRIED CHICKEN, MASHED POTATOES^^ea.^85
;;^UTILITY(U,$J,112,6220,1)
;;=2.4^1.2^14.1^75^^^^^^^^^^^^^^21^5.8^.012
;;^UTILITY(U,$J,112,6220,2)
;;=.023^.94^^^^^^^0
;;^UTILITY(U,$J,112,6221,0)
;;=KENTUCKY FRIED CHICKEN, GRAVY^^ea.^14
;;^UTILITY(U,$J,112,6221,1)
;;=0^14.3^7.1^164^^^^^^^^^^^^^^21^1.4^0
;;^UTILITY(U,$J,112,6221,2)
;;=.071^.71^^^^^^^0
;;^UTILITY(U,$J,112,6222,0)
;;=KENTUCKY FRIED CHICKEN, COLE SLAW^^ea.^91
;;^UTILITY(U,$J,112,6222,1)
;;=1.1^14.3^8.8^134
;;^UTILITY(U,$J,112,6223,0)
;;=KENTUCKY FRIED CHICKEN, ROLLS^^ea.^21
;;^UTILITY(U,$J,112,6223,1)
;;=9.5^4.8^52.4^290^^^^^^^^^^^^^^23^1.4^.476
;;^UTILITY(U,$J,112,6223,2)
;;=.19^4.76^^^^^^^5
;;^UTILITY(U,$J,112,6224,0)
;;=KENTUCKY FRIED CHICKEN, CORN 5.5 INCH EAR^^ea.^135
;;^UTILITY(U,$J,112,6224,1)
;;=3.7^2.2^23^125^^^^^^^^^^^^^^120^1.9^.089
;;^UTILITY(U,$J,112,6224,2)
;;=.052^.89
;;^UTILITY(U,$J,112,6225,0)
;;=TACO BELL, BEAN BURRITO^^ea.^166
;;^UTILITY(U,$J,112,6225,1)
;;=6.6^7.2^28.9^206^^^^59^1.7^^104^141.6^164^^^^^998^9.2^.223
;;^UTILITY(U,$J,112,6225,2)
;;=.133^1.33
;;^UTILITY(U,$J,112,6226,0)
;;=TACO BELL, BEEF BURRITO^^ea.^184
;;^UTILITY(U,$J,112,6226,1)
;;=16.3^11.4^20.1^253^^^^45^2.5^^157^173.9^177.7^^^^^910^8.3^.163
;;^UTILITY(U,$J,112,6226,2)
;;=.212^3.8
;;^UTILITY(U,$J,112,6227,0)
;;=TACO BELL, BEEFY TOSTADA^^ea.^184
;;^UTILITY(U,$J,112,6227,1)
;;=10.3^8.2^11.4^158^^^^113^1.8^^144^150.5^75^^^^^1875^6.9^.087
;;^UTILITY(U,$J,112,6227,2)
;;=.147^1.79
;;^UTILITY(U,$J,112,6228,0)
;;=TACO BELL, BELL BEEFER^^ea.^123
;;^UTILITY(U,$J,112,6228,1)
;;=12.2^5.7^18.7^180^^^^33^2.1^^114^148.8^187.8^^^^^2407^8.1^.122
;;^UTILITY(U,$J,112,6228,2)
;;=.163^3.01
;;^UTILITY(U,$J,112,6229,0)
;;=TACO BELL, BELL BEEFER WITH CHEESE^^ea.^137
;;^UTILITY(U,$J,112,6229,1)
;;=13.9^8.8^16.8^203^^^^107^2^^152^142.4^240.9^^^^^2296^7.3^.117
;;^UTILITY(U,$J,112,6229,2)
;;=.197^2.7
;;^UTILITY(U,$J,112,6230,0)
;;=TACO BELL, BURRITO SUPREME^^ea.^225
;;^UTILITY(U,$J,112,6230,1)
;;=9.3^9.8^19.1^203^^^^54^1.7^^109^155.6^163.1^^^^^1539^7.1^.147
FHINI092 ; ; 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,6208,2)
+2 ;;=.24^3.85^^.09^^1.15
+3 ;;^UTILITY(U,$J,112,6209,0)
+4 ;;=DAIRY QUEEN, SUPER BRAZIER DOG W/CHEESE^^ea.^203
+5 ;;^UTILITY(U,$J,112,6209,1)
+6 ;;=12.8^17.7^21.2^292^^^^146^2.2^20.7^154^^978.3^1.72^.09^^^^6.9^.212
+7 ;;^UTILITY(U,$J,112,6209,2)
+8 ;;=.24^3.99^^.09^^1.15
+9 ;;^UTILITY(U,$J,112,6210,0)
+10 ;;=DAIRY QUEEN, SUPER BRAZIER CHILI DOG^^ea.^210
+11 ;;^UTILITY(U,$J,112,6210,1)
+12 ;;=11^15.7^20.7^264^^^^75^1.9^22.9^110^^781^1.33^1^^^^8.8^.2
+13 ;;^UTILITY(U,$J,112,6210,2)
+14 ;;=.23^4.19^^.13^^1.27
+15 ;;^UTILITY(U,$J,112,6211,0)
+16 ;;=DAIRY QUEEN, BRAZIER FRIES SMALL^^ea.^71
+17 ;;^UTILITY(U,$J,112,6211,1)
+18 ;;=2.8^14.1^35.2^281^^^^0^.6^22.5^141^0^^0^.06^^^0^5^.085
+19 ;;^UTILITY(U,$J,112,6211,2)
+20 ;;=0^1.13^^.23
+21 ;;^UTILITY(U,$J,112,6212,0)
+22 ;;=DAIRY QUEEN, BRAZIER FRIES LARGE^^ea.^113
+23 ;;^UTILITY(U,$J,112,6212,1)
+24 ;;=2.7^15^35.4^283^^^^0^.4^21.2^133^^^.27^.07^^^0^4.3^.08
+25 ;;^UTILITY(U,$J,112,6212,2)
+26 ;;=.02^1.06^^.27
+27 ;;^UTILITY(U,$J,112,6213,0)
+28 ;;=DAIRY QUEEN, BRAZIER ONION RINGS^^ea.^85
+29 ;;^UTILITY(U,$J,112,6213,1)
+30 ;;=7^20^38.8^353^0^^^24^.5^18.8^71^^^.35^.09^^^0^2.8^.106
+31 ;;^UTILITY(U,$J,112,6213,2)
+32 ;;=0^.47^^.09
+33 ;;^UTILITY(U,$J,112,6214,0)
+34 ;;=KENTUCKY FRIED CHICKEN ORIGINAL RECIPE DINNERS, WING & RIB^^ea.^322
+35 ;;^UTILITY(U,$J,112,6214,1)
+36 ;;=9.3^9.9^14.9^187^^^^^^^^^^^^^^8^11.4^.068
+37 ;;^UTILITY(U,$J,112,6214,2)
+38 ;;=.059^3.11^^^^^^^41
+39 ;;^UTILITY(U,$J,112,6215,0)
+40 ;;=KENTUCKY FRIED CHICKEN ORIGINAL RECIPE DINNERS, WING & THIGH^^ea.^341
+41 ;;^UTILITY(U,$J,112,6215,1)
+42 ;;=9.7^11.1^14.1^194^^^^^^^^^^^^^^7^10.7^.07
+43 ;;^UTILITY(U,$J,112,6215,2)
+44 ;;=.079^2.46^^^^^^^50
+45 ;;^UTILITY(U,$J,112,6216,0)
+46 ;;=KENTUCKY FRIED CHICKEN ORIGINAL RECIPE DINNER, DRUM & THIGH^^ea.^346
+47 ;;^UTILITY(U,$J,112,6216,1)
+48 ;;=10.1^10.1^13.3^186^^^^^^^^^^^^^^7^10.6^.072
+49 ;;^UTILITY(U,$J,112,6216,2)
+50 ;;=.092^2.46^^^^^^^52
+51 ;;^UTILITY(U,$J,112,6217,0)
+52 ;;=KENTUCKY FRIED CHICKEN EXTRA CRISPY DINNER, WING & RIB^^ea.^349
+53 ;;^UTILITY(U,$J,112,6217,1)
+54 ;;=9.5^17.2^12.3^216^^^^^^^^^^^^^^7^10.5^.089
+55 ;;^UTILITY(U,$J,112,6217,2)
+56 ;;=.083^2.98^^^^^^^38
+57 ;;^UTILITY(U,$J,112,6218,0)
+58 ;;=KENTUCKY FRIED CHICKEN EXTRA CRISPY DINNER, WING & THIGH^^ea.^371
+59 ;;^UTILITY(U,$J,112,6218,1)
+60 ;;=9.7^12.9^15.6^218^^^^^^^^^^^^^^7^9.9^.084
+61 ;;^UTILITY(U,$J,112,6218,2)
+62 ;;=.094^2.78^^^^^^^47
+63 ;;^UTILITY(U,$J,112,6219,0)
+64 ;;=KENTUCKY FRIED CHICKEN EXTRA CRISPY DINNER, DRUM & THIGH^^ea.^376
+65 ;;^UTILITY(U,$J,112,6219,1)
+66 ;;=10.1^11.7^14.6^203^^^^^^^^^^^^^^7^9.7^.085
+67 ;;^UTILITY(U,$J,112,6219,2)
+68 ;;=.101^2.77^^^^^^^49
+69 ;;^UTILITY(U,$J,112,6220,0)
+70 ;;=KENTUCKY FRIED CHICKEN, MASHED POTATOES^^ea.^85
+71 ;;^UTILITY(U,$J,112,6220,1)
+72 ;;=2.4^1.2^14.1^75^^^^^^^^^^^^^^21^5.8^.012
+73 ;;^UTILITY(U,$J,112,6220,2)
+74 ;;=.023^.94^^^^^^^0
+75 ;;^UTILITY(U,$J,112,6221,0)
+76 ;;=KENTUCKY FRIED CHICKEN, GRAVY^^ea.^14
+77 ;;^UTILITY(U,$J,112,6221,1)
+78 ;;=0^14.3^7.1^164^^^^^^^^^^^^^^21^1.4^0
+79 ;;^UTILITY(U,$J,112,6221,2)
+80 ;;=.071^.71^^^^^^^0
+81 ;;^UTILITY(U,$J,112,6222,0)
+82 ;;=KENTUCKY FRIED CHICKEN, COLE SLAW^^ea.^91
+83 ;;^UTILITY(U,$J,112,6222,1)
+84 ;;=1.1^14.3^8.8^134
+85 ;;^UTILITY(U,$J,112,6223,0)
+86 ;;=KENTUCKY FRIED CHICKEN, ROLLS^^ea.^21
+87 ;;^UTILITY(U,$J,112,6223,1)
+88 ;;=9.5^4.8^52.4^290^^^^^^^^^^^^^^23^1.4^.476
+89 ;;^UTILITY(U,$J,112,6223,2)
+90 ;;=.19^4.76^^^^^^^5
+91 ;;^UTILITY(U,$J,112,6224,0)
+92 ;;=KENTUCKY FRIED CHICKEN, CORN 5.5 INCH EAR^^ea.^135
+93 ;;^UTILITY(U,$J,112,6224,1)
+94 ;;=3.7^2.2^23^125^^^^^^^^^^^^^^120^1.9^.089
+95 ;;^UTILITY(U,$J,112,6224,2)
+96 ;;=.052^.89
+97 ;;^UTILITY(U,$J,112,6225,0)
+98 ;;=TACO BELL, BEAN BURRITO^^ea.^166
+99 ;;^UTILITY(U,$J,112,6225,1)
+100 ;;=6.6^7.2^28.9^206^^^^59^1.7^^104^141.6^164^^^^^998^9.2^.223
+101 ;;^UTILITY(U,$J,112,6225,2)
+102 ;;=.133^1.33
+103 ;;^UTILITY(U,$J,112,6226,0)
+104 ;;=TACO BELL, BEEF BURRITO^^ea.^184
+105 ;;^UTILITY(U,$J,112,6226,1)
+106 ;;=16.3^11.4^20.1^253^^^^45^2.5^^157^173.9^177.7^^^^^910^8.3^.163
+107 ;;^UTILITY(U,$J,112,6226,2)
+108 ;;=.212^3.8
+109 ;;^UTILITY(U,$J,112,6227,0)
+110 ;;=TACO BELL, BEEFY TOSTADA^^ea.^184
+111 ;;^UTILITY(U,$J,112,6227,1)
+112 ;;=10.3^8.2^11.4^158^^^^113^1.8^^144^150.5^75^^^^^1875^6.9^.087
+113 ;;^UTILITY(U,$J,112,6227,2)
+114 ;;=.147^1.79
+115 ;;^UTILITY(U,$J,112,6228,0)
+116 ;;=TACO BELL, BELL BEEFER^^ea.^123
+117 ;;^UTILITY(U,$J,112,6228,1)
+118 ;;=12.2^5.7^18.7^180^^^^33^2.1^^114^148.8^187.8^^^^^2407^8.1^.122
+119 ;;^UTILITY(U,$J,112,6228,2)
+120 ;;=.163^3.01
+121 ;;^UTILITY(U,$J,112,6229,0)
+122 ;;=TACO BELL, BELL BEEFER WITH CHEESE^^ea.^137
+123 ;;^UTILITY(U,$J,112,6229,1)
+124 ;;=13.9^8.8^16.8^203^^^^107^2^^152^142.4^240.9^^^^^2296^7.3^.117
+125 ;;^UTILITY(U,$J,112,6229,2)
+126 ;;=.197^2.7
+127 ;;^UTILITY(U,$J,112,6230,0)
+128 ;;=TACO BELL, BURRITO SUPREME^^ea.^225
+129 ;;^UTILITY(U,$J,112,6230,1)
+130 ;;=9.3^9.8^19.1^203^^^^54^1.7^^109^155.6^163.1^^^^^1539^7.1^.147
