FHINI090 ; ; 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,6148,20)
;;=Ross Labs, Dec 1990.
;;^UTILITY(U,$J,112,6153,0)
;;=LASAGNA,CHECKERBOARD^^oz.^28.8
;;^UTILITY(U,$J,112,6153,1)
;;=10^7^11^150^0^^^170^.8^0^150^0^425^0^0^0^0^316^3.8^.03
;;^UTILITY(U,$J,112,6153,2)
;;=.11^.84^0^0^0^0^0^^0^0
;;^UTILITY(U,$J,112,6156,0)
;;=ARBY'S, ROAST BEEF SAND^^ea.^140
;;^UTILITY(U,$J,112,6156,1)
;;=15.7^10.7^22.9^250^^^^57^2.6^^^^628.6^^^^^^^.21
;;^UTILITY(U,$J,112,6156,2)
;;=.24^3.57^^^^^^^32
;;^UTILITY(U,$J,112,6158,0)
;;=LASAGNA,BUITONI^^oz.^28.8
;;^UTILITY(U,$J,112,6158,1)
;;=8.1^5.5^20.8^153^67^^^54^.7^24.6^62^66^420^^^^^530^6.4^.09
;;^UTILITY(U,$J,112,6158,2)
;;=.14^.72^^^^^.3^^22^2.8
;;^UTILITY(U,$J,112,6159,0)
;;=LASAGNA,HORMEL^^oz.^28.8
;;^UTILITY(U,$J,112,6159,1)
;;=10.6^4.6^11.1^129^71.5^^^66^.8^23.7^164^0^457^0^^0^0^49^7.9^.07
;;^UTILITY(U,$J,112,6159,2)
;;=.149^1.62^0^.17^0^.61^^^^0
;;^UTILITY(U,$J,112,6161,0)
;;=STUFFED GREEN PEPPER, CHECKERBOARD^^oz.^28.8
;;^UTILITY(U,$J,112,6161,1)
;;=4^5^8^100^0^^^7^.8^^4^0^535^^^^^231^22.2^0
;;^UTILITY(U,$J,112,6161,2)
;;=.05^.93
;;^UTILITY(U,$J,112,6162,0)
;;=STUFFED GREEN PEPPER, HORMEL^^oz.^28.8
;;^UTILITY(U,$J,112,6162,1)
;;=5^4.1^9.7^95^79.2^^^9^.4^16.4^52^0^462^0^0^^0^433^16.5^.05
;;^UTILITY(U,$J,112,6162,2)
;;=.55^1.35^^.18^0^.21^0^^0^0
;;^UTILITY(U,$J,112,6163,0)
;;=STUFFED GREEN PEPPER, GREEN GIANT^^oz.^28.8
;;^UTILITY(U,$J,112,6163,1)
;;=5.5^7.1^8.2^119^0^^^15^.9^0^51^224^443^0^0^0^0^453^16^.03
;;^UTILITY(U,$J,112,6163,2)
;;=.1^1.2^0^0^0^0^0^^0^0
;;^UTILITY(U,$J,112,6164,0)
;;=STUFFED CABBAGE ROLL,GREEN GIANT^^oz.^28.8
;;^UTILITY(U,$J,112,6164,1)
;;=5^7.1^8.2^116^77^^^20^.7^0^44^193^413^0^0^0^0^465^6^.03
;;^UTILITY(U,$J,112,6164,2)
;;=.1^.7^0^^0^0^0^^0^0
;;^UTILITY(U,$J,112,6165,0)
;;=STUFFED CABBAGE ROLL, CHECKERBOARD^^oz.^28.8
;;^UTILITY(U,$J,112,6165,1)
;;=4^4^8^90^0^^^17^.6^^34^0^460^^^^^211^8.9^.03
;;^UTILITY(U,$J,112,6165,2)
;;=.03^.84^^^^^^^^0
;;^UTILITY(U,$J,112,6169,0)
;;=VITAL^^oz.^28.8
;;^UTILITY(U,$J,112,6169,1)
;;=3.8^.9^16.7^90^77.8^^^60^1.1^24^60^105.1^34.5^.9^.12^.12^1.8^300^5.4^.09
;;^UTILITY(U,$J,112,6169,2)
;;=.102^1.2^.6^.12^.02^.36^0^^0^0
;;^UTILITY(U,$J,112,6173,0)
;;=TURKEY NOODLE CASS (CHECKERBOARD)^^oz.^28.8
;;^UTILITY(U,$J,112,6173,1)
;;=8^5^7^110^0^^^25^.5^^84^0^490^^^^^84^0^.04
;;^UTILITY(U,$J,112,6173,2)
;;=.07^1.77
;;^UTILITY(U,$J,112,6174,0)
;;=TURKEY, ROAST, LS^^oz.^28.8
;;^UTILITY(U,$J,112,6174,1)
;;=30.9^1.4^0^137^67^^^12^.6^^^280^61^^^^^^^.11
;;^UTILITY(U,$J,112,6174,2)
;;=.18^0^^^^^^^40^.83
;;^UTILITY(U,$J,112,6175,0)
;;=ARBY'S, BEEF & CHEESE^^ea.^168
;;^UTILITY(U,$J,112,6175,1)
;;=16.1^13.1^21.4^268^^^^119^2.7^^^^726.2^^^^^^^.23
;;^UTILITY(U,$J,112,6175,2)
;;=.26^3.57^^^^^^^33
;;^UTILITY(U,$J,112,6176,0)
;;=ARBY'S, SUPER ROAST BEEF^^ea.^263
;;^UTILITY(U,$J,112,6176,1)
;;=11.4^10.7^23.2^236^^^^38^2.1^^^^539.9^^^^^^^.2
;;^UTILITY(U,$J,112,6176,2)
;;=.16^2.66^^^^^^^32
;;^UTILITY(U,$J,112,6177,0)
;;=ARBY'S, JUNIOR ROAST BEEF^^ea.^74
;;^UTILITY(U,$J,112,6177,1)
;;=16.2^12.2^28.4^297^^^^54^2.4^^^^716.2^^^^^^^.2
;;^UTILITY(U,$J,112,6177,2)
;;=.23^4.05^^^^^^^47
;;^UTILITY(U,$J,112,6178,0)
;;=ARBY'S, HAM & CHEESE^^ea.^154
;;^UTILITY(U,$J,112,6178,1)
;;=14.9^11^21.4^247^^^^129^1.8^^^^876.6^^^^^^^.49
;;^UTILITY(U,$J,112,6178,2)
;;=.22^3.25^^^^^^^39
;;^UTILITY(U,$J,112,6179,0)
;;=ARBY'S, TURKEY DELUXE^^ea.^236
;;^UTILITY(U,$J,112,6179,1)
;;=11.9^10.2^29.7^216^^^^34^1.1^^^^517^^^^^^^.19
;;^UTILITY(U,$J,112,6179,2)
;;=.14^3.39^^^^^^^30
;;^UTILITY(U,$J,112,6180,0)
;;=ARBY'S, CLUB SANDWICH^^ea.^252
;;^UTILITY(U,$J,112,6180,1)
;;=11.9^11.9^17.1^222^^^^79^1.4^^^^638.9^^^^^^^.27
;;^UTILITY(U,$J,112,6180,2)
;;=.17^2.78^^^^^^^40
;;^UTILITY(U,$J,112,6181,0)
;;=DAIRY QUEEN, FROZ. DESSERT^^ea.^113
;;^UTILITY(U,$J,112,6181,1)
;;=4.4^5.3^23.9^159^^^^133^^^89^^^^^^^89^^.08
;;^UTILITY(U,$J,112,6181,2)
;;=.15^^^^^.53^^^18
;;^UTILITY(U,$J,112,6182,0)
;;=DAIRY QUEEN, CONE SMALL^^ea.^71
;;^UTILITY(U,$J,112,6182,1)
;;=4.2^4.2^25.4^155^^^^141^^^85^^^^^^^141^^.03
;;^UTILITY(U,$J,112,6182,2)
;;=.19^^^^^.56^^^14
;;^UTILITY(U,$J,112,6183,0)
;;=DAIRY QUEEN, CONE REGULAR^^ea.^142
;;^UTILITY(U,$J,112,6183,1)
;;=3.5^4.9^24.7^162^^^^141^^^106^^^^^^^211^^.06
;;^UTILITY(U,$J,112,6183,2)
;;=.18^0^^^^.42^^^14
;;^UTILITY(U,$J,112,6184,0)
;;=DAIRY QUEEN, CONE LARGE^^ea.^213
;;^UTILITY(U,$J,112,6184,1)
;;=4.7^4.7^24.4^160^^^^141^^^94^^^^^^^188^^.07
;;^UTILITY(U,$J,112,6184,2)
;;=.2^^^^^.56^^^14
;;^UTILITY(U,$J,112,6185,0)
;;=DAIRY QUEEN, CONE DIP SMALL^^ea.^78
FHINI090 ; ; 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,6148,20)
+2 ;;=Ross Labs, Dec 1990.
+3 ;;^UTILITY(U,$J,112,6153,0)
+4 ;;=LASAGNA,CHECKERBOARD^^oz.^28.8
+5 ;;^UTILITY(U,$J,112,6153,1)
+6 ;;=10^7^11^150^0^^^170^.8^0^150^0^425^0^0^0^0^316^3.8^.03
+7 ;;^UTILITY(U,$J,112,6153,2)
+8 ;;=.11^.84^0^0^0^0^0^^0^0
+9 ;;^UTILITY(U,$J,112,6156,0)
+10 ;;=ARBY'S, ROAST BEEF SAND^^ea.^140
+11 ;;^UTILITY(U,$J,112,6156,1)
+12 ;;=15.7^10.7^22.9^250^^^^57^2.6^^^^628.6^^^^^^^.21
+13 ;;^UTILITY(U,$J,112,6156,2)
+14 ;;=.24^3.57^^^^^^^32
+15 ;;^UTILITY(U,$J,112,6158,0)
+16 ;;=LASAGNA,BUITONI^^oz.^28.8
+17 ;;^UTILITY(U,$J,112,6158,1)
+18 ;;=8.1^5.5^20.8^153^67^^^54^.7^24.6^62^66^420^^^^^530^6.4^.09
+19 ;;^UTILITY(U,$J,112,6158,2)
+20 ;;=.14^.72^^^^^.3^^22^2.8
+21 ;;^UTILITY(U,$J,112,6159,0)
+22 ;;=LASAGNA,HORMEL^^oz.^28.8
+23 ;;^UTILITY(U,$J,112,6159,1)
+24 ;;=10.6^4.6^11.1^129^71.5^^^66^.8^23.7^164^0^457^0^^0^0^49^7.9^.07
+25 ;;^UTILITY(U,$J,112,6159,2)
+26 ;;=.149^1.62^0^.17^0^.61^^^^0
+27 ;;^UTILITY(U,$J,112,6161,0)
+28 ;;=STUFFED GREEN PEPPER, CHECKERBOARD^^oz.^28.8
+29 ;;^UTILITY(U,$J,112,6161,1)
+30 ;;=4^5^8^100^0^^^7^.8^^4^0^535^^^^^231^22.2^0
+31 ;;^UTILITY(U,$J,112,6161,2)
+32 ;;=.05^.93
+33 ;;^UTILITY(U,$J,112,6162,0)
+34 ;;=STUFFED GREEN PEPPER, HORMEL^^oz.^28.8
+35 ;;^UTILITY(U,$J,112,6162,1)
+36 ;;=5^4.1^9.7^95^79.2^^^9^.4^16.4^52^0^462^0^0^^0^433^16.5^.05
+37 ;;^UTILITY(U,$J,112,6162,2)
+38 ;;=.55^1.35^^.18^0^.21^0^^0^0
+39 ;;^UTILITY(U,$J,112,6163,0)
+40 ;;=STUFFED GREEN PEPPER, GREEN GIANT^^oz.^28.8
+41 ;;^UTILITY(U,$J,112,6163,1)
+42 ;;=5.5^7.1^8.2^119^0^^^15^.9^0^51^224^443^0^0^0^0^453^16^.03
+43 ;;^UTILITY(U,$J,112,6163,2)
+44 ;;=.1^1.2^0^0^0^0^0^^0^0
+45 ;;^UTILITY(U,$J,112,6164,0)
+46 ;;=STUFFED CABBAGE ROLL,GREEN GIANT^^oz.^28.8
+47 ;;^UTILITY(U,$J,112,6164,1)
+48 ;;=5^7.1^8.2^116^77^^^20^.7^0^44^193^413^0^0^0^0^465^6^.03
+49 ;;^UTILITY(U,$J,112,6164,2)
+50 ;;=.1^.7^0^^0^0^0^^0^0
+51 ;;^UTILITY(U,$J,112,6165,0)
+52 ;;=STUFFED CABBAGE ROLL, CHECKERBOARD^^oz.^28.8
+53 ;;^UTILITY(U,$J,112,6165,1)
+54 ;;=4^4^8^90^0^^^17^.6^^34^0^460^^^^^211^8.9^.03
+55 ;;^UTILITY(U,$J,112,6165,2)
+56 ;;=.03^.84^^^^^^^^0
+57 ;;^UTILITY(U,$J,112,6169,0)
+58 ;;=VITAL^^oz.^28.8
+59 ;;^UTILITY(U,$J,112,6169,1)
+60 ;;=3.8^.9^16.7^90^77.8^^^60^1.1^24^60^105.1^34.5^.9^.12^.12^1.8^300^5.4^.09
+61 ;;^UTILITY(U,$J,112,6169,2)
+62 ;;=.102^1.2^.6^.12^.02^.36^0^^0^0
+63 ;;^UTILITY(U,$J,112,6173,0)
+64 ;;=TURKEY NOODLE CASS (CHECKERBOARD)^^oz.^28.8
+65 ;;^UTILITY(U,$J,112,6173,1)
+66 ;;=8^5^7^110^0^^^25^.5^^84^0^490^^^^^84^0^.04
+67 ;;^UTILITY(U,$J,112,6173,2)
+68 ;;=.07^1.77
+69 ;;^UTILITY(U,$J,112,6174,0)
+70 ;;=TURKEY, ROAST, LS^^oz.^28.8
+71 ;;^UTILITY(U,$J,112,6174,1)
+72 ;;=30.9^1.4^0^137^67^^^12^.6^^^280^61^^^^^^^.11
+73 ;;^UTILITY(U,$J,112,6174,2)
+74 ;;=.18^0^^^^^^^40^.83
+75 ;;^UTILITY(U,$J,112,6175,0)
+76 ;;=ARBY'S, BEEF & CHEESE^^ea.^168
+77 ;;^UTILITY(U,$J,112,6175,1)
+78 ;;=16.1^13.1^21.4^268^^^^119^2.7^^^^726.2^^^^^^^.23
+79 ;;^UTILITY(U,$J,112,6175,2)
+80 ;;=.26^3.57^^^^^^^33
+81 ;;^UTILITY(U,$J,112,6176,0)
+82 ;;=ARBY'S, SUPER ROAST BEEF^^ea.^263
+83 ;;^UTILITY(U,$J,112,6176,1)
+84 ;;=11.4^10.7^23.2^236^^^^38^2.1^^^^539.9^^^^^^^.2
+85 ;;^UTILITY(U,$J,112,6176,2)
+86 ;;=.16^2.66^^^^^^^32
+87 ;;^UTILITY(U,$J,112,6177,0)
+88 ;;=ARBY'S, JUNIOR ROAST BEEF^^ea.^74
+89 ;;^UTILITY(U,$J,112,6177,1)
+90 ;;=16.2^12.2^28.4^297^^^^54^2.4^^^^716.2^^^^^^^.2
+91 ;;^UTILITY(U,$J,112,6177,2)
+92 ;;=.23^4.05^^^^^^^47
+93 ;;^UTILITY(U,$J,112,6178,0)
+94 ;;=ARBY'S, HAM & CHEESE^^ea.^154
+95 ;;^UTILITY(U,$J,112,6178,1)
+96 ;;=14.9^11^21.4^247^^^^129^1.8^^^^876.6^^^^^^^.49
+97 ;;^UTILITY(U,$J,112,6178,2)
+98 ;;=.22^3.25^^^^^^^39
+99 ;;^UTILITY(U,$J,112,6179,0)
+100 ;;=ARBY'S, TURKEY DELUXE^^ea.^236
+101 ;;^UTILITY(U,$J,112,6179,1)
+102 ;;=11.9^10.2^29.7^216^^^^34^1.1^^^^517^^^^^^^.19
+103 ;;^UTILITY(U,$J,112,6179,2)
+104 ;;=.14^3.39^^^^^^^30
+105 ;;^UTILITY(U,$J,112,6180,0)
+106 ;;=ARBY'S, CLUB SANDWICH^^ea.^252
+107 ;;^UTILITY(U,$J,112,6180,1)
+108 ;;=11.9^11.9^17.1^222^^^^79^1.4^^^^638.9^^^^^^^.27
+109 ;;^UTILITY(U,$J,112,6180,2)
+110 ;;=.17^2.78^^^^^^^40
+111 ;;^UTILITY(U,$J,112,6181,0)
+112 ;;=DAIRY QUEEN, FROZ. DESSERT^^ea.^113
+113 ;;^UTILITY(U,$J,112,6181,1)
+114 ;;=4.4^5.3^23.9^159^^^^133^^^89^^^^^^^89^^.08
+115 ;;^UTILITY(U,$J,112,6181,2)
+116 ;;=.15^^^^^.53^^^18
+117 ;;^UTILITY(U,$J,112,6182,0)
+118 ;;=DAIRY QUEEN, CONE SMALL^^ea.^71
+119 ;;^UTILITY(U,$J,112,6182,1)
+120 ;;=4.2^4.2^25.4^155^^^^141^^^85^^^^^^^141^^.03
+121 ;;^UTILITY(U,$J,112,6182,2)
+122 ;;=.19^^^^^.56^^^14
+123 ;;^UTILITY(U,$J,112,6183,0)
+124 ;;=DAIRY QUEEN, CONE REGULAR^^ea.^142
+125 ;;^UTILITY(U,$J,112,6183,1)
+126 ;;=3.5^4.9^24.7^162^^^^141^^^106^^^^^^^211^^.06
+127 ;;^UTILITY(U,$J,112,6183,2)
+128 ;;=.18^0^^^^.42^^^14
+129 ;;^UTILITY(U,$J,112,6184,0)
+130 ;;=DAIRY QUEEN, CONE LARGE^^ea.^213
+131 ;;^UTILITY(U,$J,112,6184,1)
+132 ;;=4.7^4.7^24.4^160^^^^141^^^94^^^^^^^188^^.07
+133 ;;^UTILITY(U,$J,112,6184,2)
+134 ;;=.2^^^^^.56^^^14
+135 ;;^UTILITY(U,$J,112,6185,0)
+136 ;;=DAIRY QUEEN, CONE DIP SMALL^^ea.^78
