FHINI091 ; ; 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,6185,1)
;;=3.9^9^25.6^192^^^^128^^^103^^^^^^^128^^.03
;;^UTILITY(U,$J,112,6185,2)
;;=.21^^^^^.51^^^13
;;^UTILITY(U,$J,112,6186,0)
;;=DAIRY QUEEN, CONE DIP REGULAR^^ea.^156
;;^UTILITY(U,$J,112,6186,1)
;;=4.5^8.3^25.6^192^^^^128^.3^^96^^^^^^^192^^.06
;;^UTILITY(U,$J,112,6186,2)
;;=.22^^^^^.38^^^13
;;^UTILITY(U,$J,112,6187,0)
;;=DAIRY QUEEN, CONE DIP LARGE^^ea.^234
;;^UTILITY(U,$J,112,6187,1)
;;=4.3^8.5^24.8^192^^^^128^.2^^85^^^^^^^171^^.05
;;^UTILITY(U,$J,112,6187,2)
;;=.22^^^^^.38^^^13
;;^UTILITY(U,$J,112,6188,0)
;;=DAIRY QUEEN, SUNDAE SMALL^^ea.^106
;;^UTILITY(U,$J,112,6188,1)
;;=3.8^3.8^28.3^160^^^^94^.7^^94^^^^^^^94^^.03
;;^UTILITY(U,$J,112,6188,2)
;;=.16^^^^^.47^^^14
;;^UTILITY(U,$J,112,6189,0)
;;=DAIRY QUEEN, SUNDAE REG^^ea.^177
;;^UTILITY(U,$J,112,6189,1)
;;=3.4^4^28.8^164^^^^113^.6^^85^^^^^^^170^^.03
;;^UTILITY(U,$J,112,6189,2)
;;=.15^^^^^.34^^^11
;;^UTILITY(U,$J,112,6190,0)
;;=DAIRY QUEEN, SUNDAE LARGE^^ea.^248
;;^UTILITY(U,$J,112,6190,1)
;;=3.6^3.6^28.6^161^^^^121^.7^^101^^^^^^^161^^.04
;;^UTILITY(U,$J,112,6190,2)
;;=.17^.16^^^^.48^^^12
;;^UTILITY(U,$J,112,6191,0)
;;=DAIRY QUEEN, MALT SMALL^^ea.^241
;;^UTILITY(U,$J,112,6191,1)
;;=4.5^4.6^21.2^141^^^^124^.8^^83^^^^^^^166^1^.02
;;^UTILITY(U,$J,112,6191,2)
;;=.14^.17^^^^.5^^^12
;;^UTILITY(U,$J,112,6192,0)
;;=DAIRY QUEEN, MALT REG^^ea.^418
;;^UTILITY(U,$J,112,6192,1)
;;=3.6^4.8^21.3^144^^^^120^.9^^96^^^^^^^179^.9^.29
;;^UTILITY(U,$J,112,6192,2)
;;=.14^.19^^^^.43^^^12
;;^UTILITY(U,$J,112,6193,0)
;;=DAIRY QUEEN, MALT LARGE^^ea.^588
;;^UTILITY(U,$J,112,6193,1)
;;=3.7^4.8^21.3^149^^^^102^.9^^102^^^^^^^128^1^.026
;;^UTILITY(U,$J,112,6193,2)
;;=.145^.2^^^^.41^^^12
;;^UTILITY(U,$J,112,6194,0)
;;=DAIRY QUEEN, FLOAT^^ea.^397
;;^UTILITY(U,$J,112,6194,1)
;;=1.5^2^14.9^83^^^^50^^^50^^^^^^^25^^.032
;;^UTILITY(U,$J,112,6194,2)
;;=.043^^^^^.15^^^5
;;^UTILITY(U,$J,112,6195,0)
;;=DAIRY QUEEN, BANANA SPLIT^^ea.^383
;;^UTILITY(U,$J,112,6195,1)
;;=2.6^3.9^23.8^141^^^^91^.5^^65^^^^^^^196^4.7^.157
;;^UTILITY(U,$J,112,6195,2)
;;=.157^.21^^^^.24^^^8
;;^UTILITY(U,$J,112,6196,0)
;;=DAIRY QUEEN, PARFAIT^^ea.^284
;;^UTILITY(U,$J,112,6196,1)
;;=3.5^3.9^28.5^162^^^^106^.6^^88^^^^^^^141^^.042
;;^UTILITY(U,$J,112,6196,2)
;;=.151^.14^^^^.42^^^11
;;^UTILITY(U,$J,112,6197,0)
;;=DAIRY QUEEN, FREEZE^^ea.^397
;;^UTILITY(U,$J,112,6197,1)
;;=2.8^3.3^22.4^131^^^^76^^^63^^^^^^^50^^.038
;;^UTILITY(U,$J,112,6197,2)
;;=.087^^^^^.3^^^9
;;^UTILITY(U,$J,112,6198,0)
;;=DAIRY QUEEN, MR. MISTY FREEZE^^ea.^411
;;^UTILITY(U,$J,112,6198,1)
;;=2.4^2.9^21.2^122^^^^73^^^49^^^^^^^49^^.036
;;^UTILITY(U,$J,112,6198,2)
;;=.083^^^^^.03^^^9
;;^UTILITY(U,$J,112,6199,0)
;;=DAIRY QUEEN, MR. MISTY FLOAT^^ea.^404
;;^UTILITY(U,$J,112,6199,1)
;;=1.5^2^21^109^^^^50^^^50^^^^^^^25^^.03
;;^UTILITY(U,$J,112,6199,2)
;;=.042^^^^^.15^^^5
;;^UTILITY(U,$J,112,6200,0)
;;=DAIRY QUEEN, DQ SANDWICH^^ea.^60
;;^UTILITY(U,$J,112,6200,1)
;;=5^6.7^40^233^^^^100^.7^^100^^^^^^^167^^.05
;;^UTILITY(U,$J,112,6200,2)
;;=.23^.67^^^^.33^^^17
;;^UTILITY(U,$J,112,6201,0)
;;=DAIRY QUEEN, DILLY BAR^^ea.^85
;;^UTILITY(U,$J,112,6201,1)
;;=4.7^17.6^25.9^282^^^^118^.5^^118^^^^^^^118^^.071
;;^UTILITY(U,$J,112,6201,2)
;;=.2^^^^^.59^^^12
;;^UTILITY(U,$J,112,6202,0)
;;=DAIRY QUEEN, MR. MISTY KISS^^ea.^89
;;^UTILITY(U,$J,112,6202,1)
;;=0^0^19.1^79
;;^UTILITY(U,$J,112,6202,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,6203,0)
;;=DAIRY QUEEN, BRAZIER CHEESE DOG^^ea.^113
;;^UTILITY(U,$J,112,6203,1)
;;=13.3^16.8^21.2^292^^^^149^1.4^21.2^161^^^1.68^.07
;;^UTILITY(U,$J,112,6203,2)
;;=.16^2.92^^.06^^1.08
;;^UTILITY(U,$J,112,6204,0)
;;=DAIRY QUEEN, BRAZIER CHILI DOG^^ea.^128
;;^UTILITY(U,$J,112,6204,1)
;;=10.2^15.6^19.5^258^^^^67^1.6^29.7^109^^733.6^1.41^.1^^^^8.6^.117
;;^UTILITY(U,$J,112,6204,2)
;;=.18^3.05^^.13^^1
;;^UTILITY(U,$J,112,6205,0)
;;=DAIRY QUEEN, BRAZIER DOG^^ea.^99
;;^UTILITY(U,$J,112,6205,1)
;;=11.1^15.2^23.2^276^^^^76^1.5^21.2^105^^876.8^1.41^.8^^^^11.1^.121
;;^UTILITY(U,$J,112,6205,2)
;;=.15^2.63^^.08^^1.06
;;^UTILITY(U,$J,112,6206,0)
;;=DAIRY QUEEN, FISH SANDWICH^^ea.^170
;;^UTILITY(U,$J,112,6206,1)
;;=11.8^10^24.1^235^^^^35^.7^14.1^118^^^.18^.05^^^0^0^.088
;;^UTILITY(U,$J,112,6206,2)
;;=.15^1.76^^.09^^.71
;;^UTILITY(U,$J,112,6207,0)
;;=DAIRY QUEEN, FISH SANDWICH W/CHEESE^^ea.^177
;;^UTILITY(U,$J,112,6207,1)
;;=13.7^11.9^22^249^^^^85^.2^13.6^141^^^.17^.45^^^57^0^.085
;;^UTILITY(U,$J,112,6207,2)
;;=.15^1.76^^.09^^.85
;;^UTILITY(U,$J,112,6208,0)
;;=DAIRY QUEEN, SUPER BRAZIER DOG^^ea.^182
;;^UTILITY(U,$J,112,6208,1)
;;=11^16.5^22.5^285^^^^87^2.4^20.3^107^^853^1.54^.1^^^0^7.7^.231
FHINI091 ; ; 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,6185,1)
+2 ;;=3.9^9^25.6^192^^^^128^^^103^^^^^^^128^^.03
+3 ;;^UTILITY(U,$J,112,6185,2)
+4 ;;=.21^^^^^.51^^^13
+5 ;;^UTILITY(U,$J,112,6186,0)
+6 ;;=DAIRY QUEEN, CONE DIP REGULAR^^ea.^156
+7 ;;^UTILITY(U,$J,112,6186,1)
+8 ;;=4.5^8.3^25.6^192^^^^128^.3^^96^^^^^^^192^^.06
+9 ;;^UTILITY(U,$J,112,6186,2)
+10 ;;=.22^^^^^.38^^^13
+11 ;;^UTILITY(U,$J,112,6187,0)
+12 ;;=DAIRY QUEEN, CONE DIP LARGE^^ea.^234
+13 ;;^UTILITY(U,$J,112,6187,1)
+14 ;;=4.3^8.5^24.8^192^^^^128^.2^^85^^^^^^^171^^.05
+15 ;;^UTILITY(U,$J,112,6187,2)
+16 ;;=.22^^^^^.38^^^13
+17 ;;^UTILITY(U,$J,112,6188,0)
+18 ;;=DAIRY QUEEN, SUNDAE SMALL^^ea.^106
+19 ;;^UTILITY(U,$J,112,6188,1)
+20 ;;=3.8^3.8^28.3^160^^^^94^.7^^94^^^^^^^94^^.03
+21 ;;^UTILITY(U,$J,112,6188,2)
+22 ;;=.16^^^^^.47^^^14
+23 ;;^UTILITY(U,$J,112,6189,0)
+24 ;;=DAIRY QUEEN, SUNDAE REG^^ea.^177
+25 ;;^UTILITY(U,$J,112,6189,1)
+26 ;;=3.4^4^28.8^164^^^^113^.6^^85^^^^^^^170^^.03
+27 ;;^UTILITY(U,$J,112,6189,2)
+28 ;;=.15^^^^^.34^^^11
+29 ;;^UTILITY(U,$J,112,6190,0)
+30 ;;=DAIRY QUEEN, SUNDAE LARGE^^ea.^248
+31 ;;^UTILITY(U,$J,112,6190,1)
+32 ;;=3.6^3.6^28.6^161^^^^121^.7^^101^^^^^^^161^^.04
+33 ;;^UTILITY(U,$J,112,6190,2)
+34 ;;=.17^.16^^^^.48^^^12
+35 ;;^UTILITY(U,$J,112,6191,0)
+36 ;;=DAIRY QUEEN, MALT SMALL^^ea.^241
+37 ;;^UTILITY(U,$J,112,6191,1)
+38 ;;=4.5^4.6^21.2^141^^^^124^.8^^83^^^^^^^166^1^.02
+39 ;;^UTILITY(U,$J,112,6191,2)
+40 ;;=.14^.17^^^^.5^^^12
+41 ;;^UTILITY(U,$J,112,6192,0)
+42 ;;=DAIRY QUEEN, MALT REG^^ea.^418
+43 ;;^UTILITY(U,$J,112,6192,1)
+44 ;;=3.6^4.8^21.3^144^^^^120^.9^^96^^^^^^^179^.9^.29
+45 ;;^UTILITY(U,$J,112,6192,2)
+46 ;;=.14^.19^^^^.43^^^12
+47 ;;^UTILITY(U,$J,112,6193,0)
+48 ;;=DAIRY QUEEN, MALT LARGE^^ea.^588
+49 ;;^UTILITY(U,$J,112,6193,1)
+50 ;;=3.7^4.8^21.3^149^^^^102^.9^^102^^^^^^^128^1^.026
+51 ;;^UTILITY(U,$J,112,6193,2)
+52 ;;=.145^.2^^^^.41^^^12
+53 ;;^UTILITY(U,$J,112,6194,0)
+54 ;;=DAIRY QUEEN, FLOAT^^ea.^397
+55 ;;^UTILITY(U,$J,112,6194,1)
+56 ;;=1.5^2^14.9^83^^^^50^^^50^^^^^^^25^^.032
+57 ;;^UTILITY(U,$J,112,6194,2)
+58 ;;=.043^^^^^.15^^^5
+59 ;;^UTILITY(U,$J,112,6195,0)
+60 ;;=DAIRY QUEEN, BANANA SPLIT^^ea.^383
+61 ;;^UTILITY(U,$J,112,6195,1)
+62 ;;=2.6^3.9^23.8^141^^^^91^.5^^65^^^^^^^196^4.7^.157
+63 ;;^UTILITY(U,$J,112,6195,2)
+64 ;;=.157^.21^^^^.24^^^8
+65 ;;^UTILITY(U,$J,112,6196,0)
+66 ;;=DAIRY QUEEN, PARFAIT^^ea.^284
+67 ;;^UTILITY(U,$J,112,6196,1)
+68 ;;=3.5^3.9^28.5^162^^^^106^.6^^88^^^^^^^141^^.042
+69 ;;^UTILITY(U,$J,112,6196,2)
+70 ;;=.151^.14^^^^.42^^^11
+71 ;;^UTILITY(U,$J,112,6197,0)
+72 ;;=DAIRY QUEEN, FREEZE^^ea.^397
+73 ;;^UTILITY(U,$J,112,6197,1)
+74 ;;=2.8^3.3^22.4^131^^^^76^^^63^^^^^^^50^^.038
+75 ;;^UTILITY(U,$J,112,6197,2)
+76 ;;=.087^^^^^.3^^^9
+77 ;;^UTILITY(U,$J,112,6198,0)
+78 ;;=DAIRY QUEEN, MR. MISTY FREEZE^^ea.^411
+79 ;;^UTILITY(U,$J,112,6198,1)
+80 ;;=2.4^2.9^21.2^122^^^^73^^^49^^^^^^^49^^.036
+81 ;;^UTILITY(U,$J,112,6198,2)
+82 ;;=.083^^^^^.03^^^9
+83 ;;^UTILITY(U,$J,112,6199,0)
+84 ;;=DAIRY QUEEN, MR. MISTY FLOAT^^ea.^404
+85 ;;^UTILITY(U,$J,112,6199,1)
+86 ;;=1.5^2^21^109^^^^50^^^50^^^^^^^25^^.03
+87 ;;^UTILITY(U,$J,112,6199,2)
+88 ;;=.042^^^^^.15^^^5
+89 ;;^UTILITY(U,$J,112,6200,0)
+90 ;;=DAIRY QUEEN, DQ SANDWICH^^ea.^60
+91 ;;^UTILITY(U,$J,112,6200,1)
+92 ;;=5^6.7^40^233^^^^100^.7^^100^^^^^^^167^^.05
+93 ;;^UTILITY(U,$J,112,6200,2)
+94 ;;=.23^.67^^^^.33^^^17
+95 ;;^UTILITY(U,$J,112,6201,0)
+96 ;;=DAIRY QUEEN, DILLY BAR^^ea.^85
+97 ;;^UTILITY(U,$J,112,6201,1)
+98 ;;=4.7^17.6^25.9^282^^^^118^.5^^118^^^^^^^118^^.071
+99 ;;^UTILITY(U,$J,112,6201,2)
+100 ;;=.2^^^^^.59^^^12
+101 ;;^UTILITY(U,$J,112,6202,0)
+102 ;;=DAIRY QUEEN, MR. MISTY KISS^^ea.^89
+103 ;;^UTILITY(U,$J,112,6202,1)
+104 ;;=0^0^19.1^79
+105 ;;^UTILITY(U,$J,112,6202,2)
+106 ;;=^^^^^^^^0
+107 ;;^UTILITY(U,$J,112,6203,0)
+108 ;;=DAIRY QUEEN, BRAZIER CHEESE DOG^^ea.^113
+109 ;;^UTILITY(U,$J,112,6203,1)
+110 ;;=13.3^16.8^21.2^292^^^^149^1.4^21.2^161^^^1.68^.07
+111 ;;^UTILITY(U,$J,112,6203,2)
+112 ;;=.16^2.92^^.06^^1.08
+113 ;;^UTILITY(U,$J,112,6204,0)
+114 ;;=DAIRY QUEEN, BRAZIER CHILI DOG^^ea.^128
+115 ;;^UTILITY(U,$J,112,6204,1)
+116 ;;=10.2^15.6^19.5^258^^^^67^1.6^29.7^109^^733.6^1.41^.1^^^^8.6^.117
+117 ;;^UTILITY(U,$J,112,6204,2)
+118 ;;=.18^3.05^^.13^^1
+119 ;;^UTILITY(U,$J,112,6205,0)
+120 ;;=DAIRY QUEEN, BRAZIER DOG^^ea.^99
+121 ;;^UTILITY(U,$J,112,6205,1)
+122 ;;=11.1^15.2^23.2^276^^^^76^1.5^21.2^105^^876.8^1.41^.8^^^^11.1^.121
+123 ;;^UTILITY(U,$J,112,6205,2)
+124 ;;=.15^2.63^^.08^^1.06
+125 ;;^UTILITY(U,$J,112,6206,0)
+126 ;;=DAIRY QUEEN, FISH SANDWICH^^ea.^170
+127 ;;^UTILITY(U,$J,112,6206,1)
+128 ;;=11.8^10^24.1^235^^^^35^.7^14.1^118^^^.18^.05^^^0^0^.088
+129 ;;^UTILITY(U,$J,112,6206,2)
+130 ;;=.15^1.76^^.09^^.71
+131 ;;^UTILITY(U,$J,112,6207,0)
+132 ;;=DAIRY QUEEN, FISH SANDWICH W/CHEESE^^ea.^177
+133 ;;^UTILITY(U,$J,112,6207,1)
+134 ;;=13.7^11.9^22^249^^^^85^.2^13.6^141^^^.17^.45^^^57^0^.085
+135 ;;^UTILITY(U,$J,112,6207,2)
+136 ;;=.15^1.76^^.09^^.85
+137 ;;^UTILITY(U,$J,112,6208,0)
+138 ;;=DAIRY QUEEN, SUPER BRAZIER DOG^^ea.^182
+139 ;;^UTILITY(U,$J,112,6208,1)
+140 ;;=11^16.5^22.5^285^^^^87^2.4^20.3^107^^853^1.54^.1^^^0^7.7^.231
