Routine: FHINI0HT

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

FHINI0HT.m