FHINI0HT ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(113) 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,113,768,0)
;;=CELERY CRESCENTS, FRESH^CELERY CRES FRSH^^^LB^LB^^1^^^^^3^^^LB^1^^^^951^1
;;^UTILITY(U,$J,113,769,0)
;;=CELERY STIX, FRESH^CELERY STIX, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^950^1
;;^UTILITY(U,$J,113,770,0)
;;=CHEESE, COTTAGE^CHEESE, COTTAGE^^^LB^LB^^1^^^^^2^^^LB^1^^^^12^1
;;^UTILITY(U,$J,113,771,0)
;;=CHEESE, AMER/SWISS, SLICED^CHEESE AMER/SWI SLC^^^LB^LB^^1^^^^^2^^^LB^1^^^^44^1
;;^UTILITY(U,$J,113,772,0)
;;=CHICKEN, DRUMS, FZN^CHICKEN, DRUMS, FZN^^^LB^LB^^1^^^^^1^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,773,0)
;;=CHICKEN THIGHS, FZN^CHICKEN THIGHS, FZN^^^LB^LB^^1^^^^^1^^^LB^1^^^^444^1
;;^UTILITY(U,$J,113,774,0)
;;=ICE CREAM, CHOCOLATE, IND^ICE CREAM, CHOC^^^DZ^DZ^^1^^^^^2^^^EACH^12^^^^60^.148
;;^UTILITY(U,$J,113,775,0)
;;=MILK, CHOCOLATE, LOWFAT^MILK, CHOC LOWFAT^^^GL^GL CO^^1^^^^^2^^^GAL^1^^^^100^8.819
;;^UTILITY(U,$J,113,776,0)
;;=CELERY, CHOPPED FRESH^CELERY, CHOPPED FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^951^1
;;^UTILITY(U,$J,113,777,0)
;;=ONIONS, CHOPPED, FRESH^ONION, CHOPPED, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1378^1
;;^UTILITY(U,$J,113,778,0)
;;=COD RAW BREADED^COD RAW BRD^^^LB^LB^^1^^^^^1^^^LB^1^^^^1225^1
;;^UTILITY(U,$J,113,779,0)
;;=CREAMER, NONDAIRY LIQUID, BULK^CREAM NONDAIRYLIQ 1GL^^^BT^GL BT^^1^^^^^6^^^GAL^1^^^^66^8.466
;;^UTILITY(U,$J,113,780,0)
;;=TOPPING, NONDAIRY, FROZEN^TOPPING NONDAIRY 12OZ^^^CN^12-OZ CN^^1^^^^^6^^^LB^.75^^^^71^1
;;^UTILITY(U,$J,113,781,0)
;;=CUCUMBERS, FRESH^CUCUMBERS, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1089^1
;;^UTILITY(U,$J,113,782,0)
;;=CURRY POWDER^CURRY PWD 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^273^1
;;^UTILITY(U,$J,113,783,0)
;;=DANISH, DEMI, FRESH^DEMI DANISH 48S^^^CS^CS-48^^1^^^^^4^^^EACH^48^^^^1569^.093
;;^UTILITY(U,$J,113,784,0)
;;=CAKE, DEVILSFOOD, FZN^CAKE, DEVILSFOOD, FZN^^^CK^4# CK^^1^^^^^4^^^EACH^36^^^^858^.209
;;^UTILITY(U,$J,113,785,0)
;;=ROLLS, SOFT DINNER, FRESH^ROLLS, SOFT DIN FRSH^^^PG^PG-12^^1^^^^^4^^^EACH^12^^^^1567^.062
;;^UTILITY(U,$J,113,786,0)
;;=DONUTS, FRESH^DONUTS, FRESH^^^DZ^DZ^^1^^^^^4^^^EACH^12^^^^1096^.093
;;^UTILITY(U,$J,113,787,0)
;;=EGGPLANT^EGGPLANT^^^LB^LB^^1^^^^^3^^^LB^1^^^^1098^1
;;^UTILITY(U,$J,113,788,0)
;;=EGGS, SHELL, FRESH^EGGS, SHELL, FRESH^^^DZ^DZ^^1^^^^^1^^^EACH^12^^^^6498^.097
;;^UTILITY(U,$J,113,789,0)
;;=ENDIVE^ENDIVE^^^LB^LB^^1^^^^^3^^^LB^1^^^^1100^1
;;^UTILITY(U,$J,113,790,0)
;;=ESCAROLE^ESCAROLE^^^LB^LB^^1^^^^^3^^^LB^1^^^^1100^1
;;^UTILITY(U,$J,113,791,0)
;;=FRENCH TOAST, FZN^FRENCH TOAST, FZN^^^LB^LB^^1^^^^^4^^^LB^1^^^^6427^1
;;^UTILITY(U,$J,113,792,0)
;;=FRANKFURTERS, FRESH^FRANKFURTERS, FRESH^^^LB^LB^^1^^^^^1^^^LB^1^^^^1610^1
;;^UTILITY(U,$J,113,793,0)
;;=FRENCH BREAD, FRESH^FRENCH BREAD, FRESH^^^LF^1# LF^^1^^^^^4^^^EACH^12^^^^812^.033
;;^UTILITY(U,$J,113,794,0)
;;=OKRA, FRZ^OKRA,FZN^^^LB^LB^^1^^^^^3^^^LB^1^^^^1370^1
;;^UTILITY(U,$J,113,795,0)
;;=PANCAKE BATTER, FZN^PANCAKE BATTER, FZN^^^LB^LB^^1^^^^^4^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,796,0)
;;=CAKE, GERMAN CHOC, FZN^CAKE, GER CHOC FZN^^^CK^4# CK^^1^^^^^4^^^EACH^36^^^^859^.209
;;^UTILITY(U,$J,113,797,0)
;;=ONIONS, GREEN FRESH^ONIONS, GREEN FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1385^1
;;^UTILITY(U,$J,113,798,0)
;;=PEPPERS, GREEN, FRESH^GR PEPPERS^^^LB^LB^^1^^^^^3^^^LB^1^^^^1434^1
;;^UTILITY(U,$J,113,799,0)
;;=GRAPES, FRESH^GRAPES, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1696^1
;;^UTILITY(U,$J,113,800,0)
;;=GRAPEFRUIT SECTIONS^GRAPEFRUIT SECT 1GAL^^^GL^GL JR^^1^^^^^3^^^GAL^1^^^^2785^8.113
;;^UTILITY(U,$J,113,801,0)
;;=GREENS MUSTARD, FZN^GREENS MUSTARD, FZN^^^LB^LB^^1^^^^^3^^^LB^1^^^^1353^1
;;^UTILITY(U,$J,113,802,0)
;;=HAM SMKD, BONELESS^HAM SMKD, BONELESS^^^LB^LB^^1^^^^^1^^^LB^1^^^^221^1
;;^UTILITY(U,$J,113,803,0)
;;=ROLLS, HAMBURGER, FRESH^ROLLS, HAMBURG FRSH^^^PG^PG-12^^1^^^^^4^^^EACH^12^^^^1568^.088
;;^UTILITY(U,$J,113,804,0)
;;=ROLLS, FRANKFURTER, FRESH^ROLLS, FRANK FRSH^^^PG^PG-12^^1^^^^^4^^^EACH^12^^^^1568^.088
;;^UTILITY(U,$J,113,805,0)
;;=SAUSAGE, ITALIAN^SAUSAGE, ITALIAN^^^LB^LB^^1^^^^^1^^^LB^1^^^^656^1
;;^UTILITY(U,$J,113,806,0)
;;=KNOCKWURST^KNOCKWURST^^^LB^LB^^1^^^^^1^^^LB^1^^^^642^1
;;^UTILITY(U,$J,113,807,0)
;;=LAMB LEG ROAST, BONELESS, FRESH^LAMB LEG RST BND FRSH^^^LB^LB^^1^^^^^1^^^LB^1^^^^1281^1
;;^UTILITY(U,$J,113,808,0)
;;=LETTUCE, LEAF^LEAF LETTUCE^^^LB^LB^^1^^^^^3^^^LB^1^^^^1308^1
;;^UTILITY(U,$J,113,809,0)
;;=LEMON WEDGES, FRESH^LEMON WEDGES, FRESH^^^LB^LB^^1^^^^^3^^^EACH^16^^^^2806^.128
;;^UTILITY(U,$J,113,810,0)
;;=LEMONS, FRESH^LEMONS, FRESH^^^LB^LB^^1^^^^^3^^^EACH^4^^^^2806^.128
;;^UTILITY(U,$J,113,811,0)
;;=LETTUCE, ICEBERG^LETTUCE, ICEBERG^^^LB^LB^^1^^^^^3^^^LB^1^^^^1307^1
FHINI0HT ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(113)
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,113,768,0)
+2 ;;=CELERY CRESCENTS, FRESH^CELERY CRES FRSH^^^LB^LB^^1^^^^^3^^^LB^1^^^^951^1
+3 ;;^UTILITY(U,$J,113,769,0)
+4 ;;=CELERY STIX, FRESH^CELERY STIX, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^950^1
+5 ;;^UTILITY(U,$J,113,770,0)
+6 ;;=CHEESE, COTTAGE^CHEESE, COTTAGE^^^LB^LB^^1^^^^^2^^^LB^1^^^^12^1
+7 ;;^UTILITY(U,$J,113,771,0)
+8 ;;=CHEESE, AMER/SWISS, SLICED^CHEESE AMER/SWI SLC^^^LB^LB^^1^^^^^2^^^LB^1^^^^44^1
+9 ;;^UTILITY(U,$J,113,772,0)
+10 ;;=CHICKEN, DRUMS, FZN^CHICKEN, DRUMS, FZN^^^LB^LB^^1^^^^^1^^^LB^1^^^^^1
+11 ;;^UTILITY(U,$J,113,773,0)
+12 ;;=CHICKEN THIGHS, FZN^CHICKEN THIGHS, FZN^^^LB^LB^^1^^^^^1^^^LB^1^^^^444^1
+13 ;;^UTILITY(U,$J,113,774,0)
+14 ;;=ICE CREAM, CHOCOLATE, IND^ICE CREAM, CHOC^^^DZ^DZ^^1^^^^^2^^^EACH^12^^^^60^.148
+15 ;;^UTILITY(U,$J,113,775,0)
+16 ;;=MILK, CHOCOLATE, LOWFAT^MILK, CHOC LOWFAT^^^GL^GL CO^^1^^^^^2^^^GAL^1^^^^100^8.819
+17 ;;^UTILITY(U,$J,113,776,0)
+18 ;;=CELERY, CHOPPED FRESH^CELERY, CHOPPED FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^951^1
+19 ;;^UTILITY(U,$J,113,777,0)
+20 ;;=ONIONS, CHOPPED, FRESH^ONION, CHOPPED, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1378^1
+21 ;;^UTILITY(U,$J,113,778,0)
+22 ;;=COD RAW BREADED^COD RAW BRD^^^LB^LB^^1^^^^^1^^^LB^1^^^^1225^1
+23 ;;^UTILITY(U,$J,113,779,0)
+24 ;;=CREAMER, NONDAIRY LIQUID, BULK^CREAM NONDAIRYLIQ 1GL^^^BT^GL BT^^1^^^^^6^^^GAL^1^^^^66^8.466
+25 ;;^UTILITY(U,$J,113,780,0)
+26 ;;=TOPPING, NONDAIRY, FROZEN^TOPPING NONDAIRY 12OZ^^^CN^12-OZ CN^^1^^^^^6^^^LB^.75^^^^71^1
+27 ;;^UTILITY(U,$J,113,781,0)
+28 ;;=CUCUMBERS, FRESH^CUCUMBERS, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1089^1
+29 ;;^UTILITY(U,$J,113,782,0)
+30 ;;=CURRY POWDER^CURRY PWD 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^273^1
+31 ;;^UTILITY(U,$J,113,783,0)
+32 ;;=DANISH, DEMI, FRESH^DEMI DANISH 48S^^^CS^CS-48^^1^^^^^4^^^EACH^48^^^^1569^.093
+33 ;;^UTILITY(U,$J,113,784,0)
+34 ;;=CAKE, DEVILSFOOD, FZN^CAKE, DEVILSFOOD, FZN^^^CK^4# CK^^1^^^^^4^^^EACH^36^^^^858^.209
+35 ;;^UTILITY(U,$J,113,785,0)
+36 ;;=ROLLS, SOFT DINNER, FRESH^ROLLS, SOFT DIN FRSH^^^PG^PG-12^^1^^^^^4^^^EACH^12^^^^1567^.062
+37 ;;^UTILITY(U,$J,113,786,0)
+38 ;;=DONUTS, FRESH^DONUTS, FRESH^^^DZ^DZ^^1^^^^^4^^^EACH^12^^^^1096^.093
+39 ;;^UTILITY(U,$J,113,787,0)
+40 ;;=EGGPLANT^EGGPLANT^^^LB^LB^^1^^^^^3^^^LB^1^^^^1098^1
+41 ;;^UTILITY(U,$J,113,788,0)
+42 ;;=EGGS, SHELL, FRESH^EGGS, SHELL, FRESH^^^DZ^DZ^^1^^^^^1^^^EACH^12^^^^6498^.097
+43 ;;^UTILITY(U,$J,113,789,0)
+44 ;;=ENDIVE^ENDIVE^^^LB^LB^^1^^^^^3^^^LB^1^^^^1100^1
+45 ;;^UTILITY(U,$J,113,790,0)
+46 ;;=ESCAROLE^ESCAROLE^^^LB^LB^^1^^^^^3^^^LB^1^^^^1100^1
+47 ;;^UTILITY(U,$J,113,791,0)
+48 ;;=FRENCH TOAST, FZN^FRENCH TOAST, FZN^^^LB^LB^^1^^^^^4^^^LB^1^^^^6427^1
+49 ;;^UTILITY(U,$J,113,792,0)
+50 ;;=FRANKFURTERS, FRESH^FRANKFURTERS, FRESH^^^LB^LB^^1^^^^^1^^^LB^1^^^^1610^1
+51 ;;^UTILITY(U,$J,113,793,0)
+52 ;;=FRENCH BREAD, FRESH^FRENCH BREAD, FRESH^^^LF^1# LF^^1^^^^^4^^^EACH^12^^^^812^.033
+53 ;;^UTILITY(U,$J,113,794,0)
+54 ;;=OKRA, FRZ^OKRA,FZN^^^LB^LB^^1^^^^^3^^^LB^1^^^^1370^1
+55 ;;^UTILITY(U,$J,113,795,0)
+56 ;;=PANCAKE BATTER, FZN^PANCAKE BATTER, FZN^^^LB^LB^^1^^^^^4^^^LB^1^^^^^1
+57 ;;^UTILITY(U,$J,113,796,0)
+58 ;;=CAKE, GERMAN CHOC, FZN^CAKE, GER CHOC FZN^^^CK^4# CK^^1^^^^^4^^^EACH^36^^^^859^.209
+59 ;;^UTILITY(U,$J,113,797,0)
+60 ;;=ONIONS, GREEN FRESH^ONIONS, GREEN FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1385^1
+61 ;;^UTILITY(U,$J,113,798,0)
+62 ;;=PEPPERS, GREEN, FRESH^GR PEPPERS^^^LB^LB^^1^^^^^3^^^LB^1^^^^1434^1
+63 ;;^UTILITY(U,$J,113,799,0)
+64 ;;=GRAPES, FRESH^GRAPES, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1696^1
+65 ;;^UTILITY(U,$J,113,800,0)
+66 ;;=GRAPEFRUIT SECTIONS^GRAPEFRUIT SECT 1GAL^^^GL^GL JR^^1^^^^^3^^^GAL^1^^^^2785^8.113
+67 ;;^UTILITY(U,$J,113,801,0)
+68 ;;=GREENS MUSTARD, FZN^GREENS MUSTARD, FZN^^^LB^LB^^1^^^^^3^^^LB^1^^^^1353^1
+69 ;;^UTILITY(U,$J,113,802,0)
+70 ;;=HAM SMKD, BONELESS^HAM SMKD, BONELESS^^^LB^LB^^1^^^^^1^^^LB^1^^^^221^1
+71 ;;^UTILITY(U,$J,113,803,0)
+72 ;;=ROLLS, HAMBURGER, FRESH^ROLLS, HAMBURG FRSH^^^PG^PG-12^^1^^^^^4^^^EACH^12^^^^1568^.088
+73 ;;^UTILITY(U,$J,113,804,0)
+74 ;;=ROLLS, FRANKFURTER, FRESH^ROLLS, FRANK FRSH^^^PG^PG-12^^1^^^^^4^^^EACH^12^^^^1568^.088
+75 ;;^UTILITY(U,$J,113,805,0)
+76 ;;=SAUSAGE, ITALIAN^SAUSAGE, ITALIAN^^^LB^LB^^1^^^^^1^^^LB^1^^^^656^1
+77 ;;^UTILITY(U,$J,113,806,0)
+78 ;;=KNOCKWURST^KNOCKWURST^^^LB^LB^^1^^^^^1^^^LB^1^^^^642^1
+79 ;;^UTILITY(U,$J,113,807,0)
+80 ;;=LAMB LEG ROAST, BONELESS, FRESH^LAMB LEG RST BND FRSH^^^LB^LB^^1^^^^^1^^^LB^1^^^^1281^1
+81 ;;^UTILITY(U,$J,113,808,0)
+82 ;;=LETTUCE, LEAF^LEAF LETTUCE^^^LB^LB^^1^^^^^3^^^LB^1^^^^1308^1
+83 ;;^UTILITY(U,$J,113,809,0)
+84 ;;=LEMON WEDGES, FRESH^LEMON WEDGES, FRESH^^^LB^LB^^1^^^^^3^^^EACH^16^^^^2806^.128
+85 ;;^UTILITY(U,$J,113,810,0)
+86 ;;=LEMONS, FRESH^LEMONS, FRESH^^^LB^LB^^1^^^^^3^^^EACH^4^^^^2806^.128
+87 ;;^UTILITY(U,$J,113,811,0)
+88 ;;=LETTUCE, ICEBERG^LETTUCE, ICEBERG^^^LB^LB^^1^^^^^3^^^LB^1^^^^1307^1
