FHSELA2 ;Hines OIFO/RTK - Map GMR Allergy file to Food Prefs ; 9/12/19 11:38am
;;5.5;DIETETICS;**8,13,23,25,28,35,37,39,40,41,42,44,45,46,48,51,52**;Jan 28, 2005;Build 4
;
;10/9/2009 SLC/GDU FH*5.5*23
; Remedy 317642 FGH - patient food allergy not mapping to N&FS food preferences
; Adding the following food allergies:
; Arugula, Capers, Curry, Gooseberries, Meat Tenderizer, Olestra, Orange Dye
; Pomegranates, Pudding, Saffron, Stevia, Water Chestnuts
;6/22/2011 SLC/GDU FH*5.5*28
; Remedy 490577 - Need N&FS patch to add OCTOPUS, KIDNEY BEANS as food allergies
; Adding the following food allergies: Kidney Beans, Octopus
;3/5/2013 SLC/GDU FH*5.5*35
; Remedy 742739 - FGH - SAGE FOOD ALLERGY
; Adding the following food allergy: Sage
;9/13/2013 SLC/GDU FH*5.5*37
; Remedy 905481 - PSPO 1380 changes needed due to NTRT
; Adding the following food allergies:
; Margarine, Raw Onions, Raw Vegetables, Turmeric, Canola Oil, Erythritol,
; Kale, Agave, Hemp Milk, Taro Root
;6/2/2015 SLC/GDU FH*5.5*39
; Remedy 1260817 - PSPO 1380 changes needed due to NTRT
; Adding the following food allergies:
; PAWPAW, MULBERRY, MOLASSES
;10/26/2015 SLC/GDU FH*5.5*40 Adding/Updating the following food allergies:
; SORBITOL,IODINE
;3/10/2016 SLC/GDU FH*5.5*41 Adding the following food allergies:
; MALTITOL, MANNITOL, XYLITOL, SASSAFRAS
;7/5/2016 SLC/GDU FH*5.5*42 Adding the following food allergies:
; BAY LEAVES, CARAWAY SEEDS, FRUTOSE
;5/1/2017 SLC/GDU FH*5.*44 Adding the following food allergy: BEAN SPROUTS
;1/4/2018 DAL/JLC FH*5.5*45 Adding the following food allergy: ARROWROOT
;10/3/2018 ALB/JLG FH*5.5*46 Adding the following food allergies:
; DAIRY FOODS,FRESH FRUITS,FRUITS,MINT HERB,PEPPERMINT HERB,PEPPERMINT OIL,RABBIT MEAT
;12/20/2018 SLC/GDU FH*5.5*48 Adding the following food allergies:
;MEAT, MAMMALIAN HOOVED, STARFRUIT, CANNABIS
;6/4/2019 SLC/GDU FH*5.5*51 Adding the following drug,food allergy: CHRYSANTHEMUM
;7/26/2019 SLC/GDU FH*5.5*52 Adding the following food allergies: RAW APPLES, RAW CHERRIES
TMPGL ; Create ^TMP Global
K ^TMP($J,"FHALG") S FHK=0
F S FHK=FHK+1,FHFPS=$T(FPS+FHK),FHZ1=$P(FHFPS,";",3) Q:FHZ1="" D
.S ^TMP($J,"FHALG",FHZ1)=$P(FHFPS,";",3,99)
EXIT K FHK,FHFPS,FHZ1
Q
FPS ;;
;;ALCOHOL;ALCOHOL
;;ALCOHOL, BEER;HOPS
;;ALCOHOL, GIN;GIN
;;ALCOHOL, RUM;RUM
;;ALCOHOL, SCOTCH;SCOTCH
;;ALCOHOL, TEQUILA;TEQUILA
;;ALCOHOL, VODKA;VODKA
;;ALCOHOL, WINE;WINE
;;ALCOHOL, WINE, WHITE;WHITE WINE
;;ALFALFA SPROUTS;ALFALFA SPROUTS
;;ALMONDS;ALMONDS
;;ANISE OIL;ANISE OIL
;;APPLES;APPLE JUICE;APPLES
;;APRICOTS;APRICOTS
;;ARTICHOKES;ARTICHOKES
;;ARTIFICIAL COLORS;ARTIFICIAL COLORS;BLACK DYES;BLUE DYES;FD&C BLUE DYE #2;FD&C GREEN DYE #6;GREEN DYES;PINK DYES;PURPLE DYES
;;ASPARAGUS;ASPARAGUS
;;AVOCADOS;AVOCADOS
;;BACON;BACON
;;BANANAS;BANANAS
;;BARBEQUE SAUCE;BARBEQUE SAUCE;BARBECUE SAUCE
;;BARLEY;BARLEY;MALT BARLEY
;;BASIL;BASIL
;;BEANS;BEANS;LEGUMES
;;BEANS, BAKED;BAKED BEANS
;;BEANS, FAVA;FAVA BEANS (BROAD BEANS)
;;BEANS, GREEN;GREEN BEANS
;;BEANS, LENTILS;LENTILS
;;BEANS, LIMA;LIMA BEANS
;;BEANS, PINTO;PINTO BEANS
;;BEANS, SOY;SOYBEANS
;;BEANS, STRING;STRING BEANS
;;BEANS, WHITE;WHITE BEANS
;;BEEF;BEEF;BEEF PRODUCTS
;;BEEF, CORNED;CORNED BEEF
;;BEETS;BEETS
;;BEETS, PICKLES;PICKLED BEETS
;;BERRIES;BERRIES
;;BLACKBERRIES;BLACKBERRIES
;;BLUEBERRIES;BLUEBERRIES
;;BROCCOLI;BROCCOLI
;;BRUSSELS SPROUTS;BRUSSELS SPROUTS
;;BUCKWHEAT;BUCKWHEAT
;;BUTTER;BUTTER
;;CABBAGE;CABBAGE
;;CAFFEINE;CAFFEINE;COFFEE;COFFEE BEANS
;;CAFFEINE, COLAS;COLA DRINKS
;;CANTALOUPE;CANTALOUPE
;;CARBONATED BEVERAGES;CARBONATED BEVERAGES;SOFT DRINKS
;;CARROTS;CARROTS
;;CATSUP;CATSUP
;;CAULIFLOWER;CAULIFLOWER
;;CAVIAR;CAVIAR
;;CELERY;CELERY
;;CEREAL;CEREALS
;;CEREAL, CORNFLAKES;CORNFLAKES
;;CEREAL, CRM OF WHEAT;CREAM OF WHEAT
;;CEREAL, GRITS;GRITS
;;CEREAL, OATMEAL;OATMEAL
;;CHEESE;CHEESE
;;CHEESE, BLUE;BLUE CHEESE
;;CHEESE, CHEDDAR;CHEDDAR CHEESE
;;CHEESE, COTTAGE;COTTAGE CHEESE
;;CHEESE, FETA;FETA CHEESE
;;CHEESE, GOAT;GOAT CHEESE
;;CHEESE, PARMESAN;PARMESAN CHEESE
;;CHEESE, RICOTTA;RICOTTA CHEESE
;;CHEESE, SWISS;SWISS CHEESE
;;CHERRIES;CHERRIES;CHERRY JUICE
;;CHICKEN;CHICKEN
;;CHICKPEAS;CHICKPEAS
;;CHICORY;CHICORY
;;CHILI;CHILI
;;CHIVES;CHIVES
;;CHOCOLATE;CHOCOLATE;COCOA
;;CILANTRO;CILANTRO;CUMIN
;;CINNAMON;CINNAMON;CINNAMON OIL
;;CITRUS;CITRUS;CITRUS FRUIT;CITRUS JUICE
;;CLOVES;CLOVES
;;COCONUT;COCONUTS
;;COLA;COLA DRINKS
;;CORN;CORN
;;CRACKERS;CRACKERS
;;CRACKERS, GRAHAM;GRAHAM CRACKERS
;;CRANBERRIES;CRANBERRIES
;;CREAM, SOUR;SOUR CREAM
;;CREAMER, NON-DAIRY;NON-DAIRY CREAMER
;;CREAMER, POWDER;POWDERED CREAMER
;;CUCUMBERS;CUCUMBERS
;;DAIRY PRODUCTS;DAIRY PRODUCTS
;;DATES;DATES
;;DILL;DILL
;;DUCK;DUCK;WATERFOWL
;;DYES, VEGETABLES;VEGETABLE DYES
;;EGGNOG;EGGNOG
;;EGGPLANT;EGGPLANT
;;EGGS;EGGS;EGG PRODUCTS;EGG WHITES;EGG YOLKS
;;EGGS, SUBSTITUTES;EGG, SUBSTITUTES;EGG SUBSTITUTES
;;FAT EMULSIONS;FAT EMULSIONS
;;FIGS;FIGS
;;FISH;FISH
;;FISH, ABALONE;ABALONE
;;FISH, ANCHOVIES;ANCHOVIES
;;FISH, CATFISH;CATFISH
;;FISH, COD;CODFISH
;;FISH, FLOUNDER;FLOUNDER
;;FISH, HERRING;HERRING
;;FISH, MACKEREL;MACKEREL
;;FISH, PERCH;PERCH
;;FISH, RED SNAPPER;RED SNAPPER
;;FISH, SALMON;SALMON
;;FISH, SARDINES;SARDINES
;;FISH, SHARK;SHARK
;;FISH, SWORDFISH;SWORDFISH
;;FISH, TROUT;TROUT
;;FISH, TUNA;TUNA
;;FISH, WHITE;WHITE FISH
;;FLAVORING, HICKORY;HICKORY
;;FLAVORING, LICORICE;LICORICE
;;FLAVORING, VANILLA;VANILLA
;;FOOD PRESERVATIVES;FOOD PRESERVATIVES
;;FRUIT, FRESH;FRESH FRUIT
;;FROG;FROG LEGS;FROGS
;;FRUIT;FRUIT
;;FRUIT JUICE;FRUIT JUICE
;;FRUITCAKES;FRUITCAKES
;;GARLIC;GARLIC
;;GELATIN;GELATIN
;;GINGER;GINGER
;;GLUTEN;GLUTENS
;;GRAINS;GRAINS
;;GRAPEFRUIT;GRAPEFRUIT
;;GRAPES;GRAPES
;;GRAVY;GRAVY
;;GREENS, COLLARD;COLLARD GREENS
;;GREENS, MUSTARD;MUSTARD GREENS
;;GREENS, TURNIP;TURNIP GREENS
;;GREEN LEAFY VEG;GREEN LEAFY VEGETABLES
;;GUAVA;GUAVA
;;HOMINY;HOMINY
;;HONEY;HONEY
;;HONEYDEW;HONEYDEW
;;HORSERADISH;HORSERADISH
;;IODINE;IODIZED SALT;IODINE
;;JUICE;JUICE
;;KIWI;KIWI FRUIT
;;LACTOSE;LACTOSE
;;LEEKS;LEEKS
;;LEMON;LEMON JUICE;LEMONS
;;LETTUCE;LETTUCE
;;LIMES;LIMES
;;LYCHEE NUTS;LYCHEES
;;MALTOSE;MALTOSE
;;MANGOS;MANGOS
;;MARSHMALLOWS;MARSHMALLOWS
;;MAYONNAISE;MAYONNAISE
;;MEAT;MEAT
;;MEAT, LAMB;LAMB
;;MEAT, LIVER;LIVER
;;MEAT, PROCESSED;PROCESSED MEATS
;;MEAT, RED;RED MEAT
;;MEAT, VENISON;VENISON
;;MELONS;MELONS
;;MELONS, MUSK;MUSK MELONS
;;MELONS, WATER;WATERMELONS
;;MILK;MILK;DAIRY PRODUCTS
;;MILK, BUTTER;BUTTERMILK
;;MILK, GOAT;GOAT MILK
;;MILK, YOGURT;YOGURT
;;MINT;MINT
;;MODIFIED FOOD STARCH;MODIFIED FOOD STARCH;FOOD STARCH, MODIFIED
;;MSG;MONOSODIUM GLUTAMATE
;;MUSHROOMS;MUSHROOMS
;;MUSTARD;MUSTARD
;;MUTTON/LAMB;MUTTON
;;NECTARINES;NECTARINES
;;NITRITES;NITRITES
;;NON-FOOD RELATED;EGGSHELLS
;;NUTMEG;NUTMEG
;;NUTS;BRAZIL NUTS;CASHEWS;CHESTNUTS;HAZELNUTS;MACADAMIA NUTS;NUTS;PECANS
;;NUTS, PEANUT;PEANUT BUTTER;PEANUT OIL;PEANUTS
;;NUTS, PINE;PINE NUTS
;;NUTS, PISTACHIOS;PISTACHIOS
;;NUTS, TREE;PECANS;TREE NUTS
;;NUTS, WALNUT;WALNUTS
;;OATS;OATS
;;OIL, COCONUT;COCONUT OIL
;;OIL, COTTONSEED;COTTONSEED OIL
;;OIL, PALM;PALM OIL
;;OIL, SAFFLOWER;SAFFLOWER OIL
;;OIL, SOY;SOYBEAN OIL
;;OIL, SUNFLOWER;SUNFLOWER OIL
;;OKRA;OKRA
;;OLIVES;BLACK OLIVES;OLIVES
;;ONIONS;ONIONS
;;ONIONS, RED;RED ONIONS
;;ORANGE;ORANGE;ORANGES;ORANGE JUICE;ORANGE OIL
;;OREGANO;OREGANO
;;OYSTERS;OYSTERS
;;PAPAYAS;PAPAYAS
;;PAPRIKA;PAPRIKA
;;PARSLEY;PARSLEY
;;PARSNIP;PARSNIP
;;PASSION FRUIT;PASSION FRUIT
;;PEACHES;PEACHES
;;PEARS;PEARS
;;PEAS;PEAS
;;PEAS, BLACK-EYED;BLACK-EYED PEAS
;;PEAS, ENGLISH;ENGLISH PEAS
;;PEAS, SNOW;SNOW PEAS
;;PEPPER;PEPPER;WHITE PEPPER
;;PEPPER, BLACK;BLACK PEPPER;PEPPER
;;PEPPERMINT;PEPPERMINT
;;PEPPERONI;PEPPERONI
;;PEPPERS;BELL PEPPERS;PEPPERS
;;PEPPERS, CHILI;CHILI PEPPER;CHILI PEPPERS
;;PEPPERS, GREEN;GREEN BELL PEPPERS;PEPPERS
;;PEPPERS, HOT;CAPSAICIN;CAYENNE PEPPER;HOT PEPPER;HOT PEPPERS;JALAPENO PEPPERS
;;PEPPERS, RED;RED BELL PEPPERS
;;PERSIMMONS;PERSIMMONS
;;PHEASANT;PHEASANT
;;PICKLES;PICKLES
;;PIMENTOS;PIMENTOS
;;PINEAPPLE;PINEAPPLES
;;PIZZA;PIZZA
;;PLUMS;PLUMS
;;POPCORN;POPCORN
;;POPPY SEEDS;POPPY SEEDS
;;PORK;PORK;PORK PRODUCTS;HAM
;;PORK, HAM;HAM
;;POTATOES;POTATOES
;;POTATOES, SALAD;POTATO SALAD
;;POTATOES, SWEET/YAMS;SWEET POTATOES;YAMS
;;POULTRY;FOWL;POULTRY
;;PRUNES;PRUNES
;;PUDDING, TAPIOCA;TAPIOCA PUDDING
;;PUMPKIN;PUMPKINS
;;RABBIT;RABBIT
;;RADISH;RADISHES
;;RAISINS;RAISINS
;;RASPBERRIES;RASPBERRIES
;;RED DYES;FD&C RED DYE #1;FD&C RED DYE #2;FD&C RED DYE #3;FD&C RED DYE #40;FD&C RED DYE #40 LAKE;FD&C RED DYE #5;RED DYES
;;RHUBARB;RHUBARB
;;RICE;RICE;WHITE RICE
;;ROSEMARY;ROSEMARY
;;RUTABAGAS;RUTABAGAS
;;RYE;RYE
;;SALAD DRESSING, ITAL;ITALIAN DRESSING
;;SALT;NON-IODIZED SALT;SALT
;;SALT, SUBSTITUTES;SALT SUBSTITUTES
;;SAUERKRAUT;SAUERKRAUT
;;SAUSAGES;SAUSAGES
;;SEAFOOD;SEAFOOD
;;SEEDS;SEEDS
;;SEEDS, SUNFLOWER;SUNFLOWER SEEDS
;;SESAME;SESAME;SESAME OIL;SESAME SEEDS
;;SHELLFISH;CLAMS;CRAB;CRAWFISH;CRUSTACEANS;LOBSTER;MUSSELS;SCALLOPS;SHELL FISH;SHELLFISH
;;SHERBET;SHERBET
;;SHRIMP;SHRIMP
;;SNAILS;SNAILS
;;SOUR CREAM;SOUR CREAM
;;SOY;SOY;SOY MILK;SOY PRODUCTS;SOY SAUCE;SOYBEANS;TOFU
;;SOY SAUCE;SOY SAUCE
;;SPAGHETTI;SPAGHETTI
;;SPAM;SPAM
;;SPICES;CONDIMENTS;SPICES
;;SPINACH;SPINACH
;;SQUASH;SQUASH
;;SQUID;SQUID
;;STARCHY FOODS;STARCHES
;;STRAWBERRIES;STRAWBERRIES;STRAWBERRIES PLUS
;;SUCRALOSE;SUCRALOSE
;;SUGAR;SUGAR;SUGAR BEETS;WHITE SUGAR
;;SUGAR SUB;ARTIFICIAL SWEETENERS
;;SUGAR SUB, ASPARTAME;ASPARTAME
;;SUGAR SUB, SACCHARIN;SACCHARIN;SWEET'N LOW
;;SUGAR, BROWN;BROWN SUGAR
;;SULFITES;SULFITES
;;SYRUP, MAPLE;MAPLE SYRUP
;;TANGERINES;TANGERINES
;;TARRAGON;TARRAGON
;;TEA;TEA
;;TOFFEE;TOFFEE
;;TOMATO;TOMATO;TOMATO JUICE;TOMATO PRODUCTS;TOMATO SAUCE;TOMATOES
;;TOMATOES, FRESH;FRESH TOMATOES
;;TUMERIC;TUMERIC
;;TURKEY;TURKEY
;;TURNIPS;TURNIPS
;;VEAL;VEAL
;;VEGETABLES;VEGETABLES
;;VEGETABLES, GREEN;GREEN VEGETABLES
;;VINEGAR;VINEGAR
;;WATERFOWL;WATERFOWL
;;WHEAT;FLOUR;WHEAT
;;WHEY;WHEY
;;WINE, RED;RED WINE
;;YEAST;YEAST
;;YELLOW DYES;FD&C YELLOW DYE #10;FD&C YELLOW DYE #2;FD&C YELLOW DYE #5;FD&C YELLOW DYE #6;FD&C YELLOW DYE #6 LAKE;TARTRAZINE;YELLOW DYES
;;ZUCCHINI;ZUCCHINI
;;ARUGULA;ARUGULA
;;CAPERS;CAPERS
;;CURRY;CURRY
;;GOOSEBERRIES;GOOSEBERRIES;GOOSE BERRIES;GOOSE BERRY;GOOSEBERRY
;;MEAT TENDERIZER;MEAT TENDERIZER
;;OLESTRA;OLESTRA;OLEAN
;;ORANGE DYE;ORANGE DYE
;;POMEGRANATES;POMEGRANATES
;;PUDDING;PUDDING
;;SAFFRON;SAFFRON
;;STEVIA;STEVIA
;;WATER CHESTNUTS;WATER CHESTNUTS
;;BEANS, KIDNEY;KIDNEY BEANS
;;OCTOPUS;OCTOPUS
;;SAGE;SAGE
;;MARGARINE;MARGARINE
;;ONIONS, RAW;RAW ONIONS
;;VEGETABLES, RAW;RAW VEGETABLES
;;TURMERIC;TURMERIC
;;OIL, CANOLA;CANOLA OIL
;;ERYTHRITOL;ERYTHRITOL
;;KALE;KALE
;;AGAVE;AGAVE
;;MILK, HEMP;HEMP MILK
;;ROOT, TARO;TARO ROOT
;;PAWPAW;PAWPAW
;;MULBERRY;MULBERRY
;;MOLASSES;MOLASSES
;;SORBITOL;SORBITOL
;;MALTITOL;MALTITOL
;;MANNITOL;MANNITOL
;;XYLITOL;XYLITOL
;;SASSAFRAS;SASSAFRAS
;;BAY LEAVES;BAY LEAVES
;;CARAWAY SEEDS;CARAWAY SEEDS
;;FRUCTOSE;FRUCTOSE
;;BEAN SPROUTS;BEAN SPROUTS
;;ARROWROOT;ARROWROOT
;;DAIRY FOODS;DAIRY FOODS
;;FRESH FRUITS;FRESH FRUITS
;;FRUITS;FRUITS
;;MINT HERB;MINT HERB
;;PEPPERMINT HERB;PEPPERMINT HERB
;;PEPPERMINT OIL;PEPPERMINT OIL
;;RABBIT MEAT;RABBITS
;;MEAT, MAMMAL HOOVED;MEAT, MAMMALIAN HOOVED
;;STARFRUIT;STARFRUIT
;;CANNABIS;CANNABIS
;;CHRYSANTHEMUM;CHRYSANTHEMUM
;;APPLES, RAW;RAW APPLES
;;CHERRIES, RAW;RAW CHERRIES
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHSELA2 12026 printed Oct 16, 2024@17:55:54 Page 2
FHSELA2 ;Hines OIFO/RTK - Map GMR Allergy file to Food Prefs ; 9/12/19 11:38am
+1 ;;5.5;DIETETICS;**8,13,23,25,28,35,37,39,40,41,42,44,45,46,48,51,52**;Jan 28, 2005;Build 4
+2 ;
+3 ;10/9/2009 SLC/GDU FH*5.5*23
+4 ; Remedy 317642 FGH - patient food allergy not mapping to N&FS food preferences
+5 ; Adding the following food allergies:
+6 ; Arugula, Capers, Curry, Gooseberries, Meat Tenderizer, Olestra, Orange Dye
+7 ; Pomegranates, Pudding, Saffron, Stevia, Water Chestnuts
+8 ;6/22/2011 SLC/GDU FH*5.5*28
+9 ; Remedy 490577 - Need N&FS patch to add OCTOPUS, KIDNEY BEANS as food allergies
+10 ; Adding the following food allergies: Kidney Beans, Octopus
+11 ;3/5/2013 SLC/GDU FH*5.5*35
+12 ; Remedy 742739 - FGH - SAGE FOOD ALLERGY
+13 ; Adding the following food allergy: Sage
+14 ;9/13/2013 SLC/GDU FH*5.5*37
+15 ; Remedy 905481 - PSPO 1380 changes needed due to NTRT
+16 ; Adding the following food allergies:
+17 ; Margarine, Raw Onions, Raw Vegetables, Turmeric, Canola Oil, Erythritol,
+18 ; Kale, Agave, Hemp Milk, Taro Root
+19 ;6/2/2015 SLC/GDU FH*5.5*39
+20 ; Remedy 1260817 - PSPO 1380 changes needed due to NTRT
+21 ; Adding the following food allergies:
+22 ; PAWPAW, MULBERRY, MOLASSES
+23 ;10/26/2015 SLC/GDU FH*5.5*40 Adding/Updating the following food allergies:
+24 ; SORBITOL,IODINE
+25 ;3/10/2016 SLC/GDU FH*5.5*41 Adding the following food allergies:
+26 ; MALTITOL, MANNITOL, XYLITOL, SASSAFRAS
+27 ;7/5/2016 SLC/GDU FH*5.5*42 Adding the following food allergies:
+28 ; BAY LEAVES, CARAWAY SEEDS, FRUTOSE
+29 ;5/1/2017 SLC/GDU FH*5.*44 Adding the following food allergy: BEAN SPROUTS
+30 ;1/4/2018 DAL/JLC FH*5.5*45 Adding the following food allergy: ARROWROOT
+31 ;10/3/2018 ALB/JLG FH*5.5*46 Adding the following food allergies:
+32 ; DAIRY FOODS,FRESH FRUITS,FRUITS,MINT HERB,PEPPERMINT HERB,PEPPERMINT OIL,RABBIT MEAT
+33 ;12/20/2018 SLC/GDU FH*5.5*48 Adding the following food allergies:
+34 ;MEAT, MAMMALIAN HOOVED, STARFRUIT, CANNABIS
+35 ;6/4/2019 SLC/GDU FH*5.5*51 Adding the following drug,food allergy: CHRYSANTHEMUM
+36 ;7/26/2019 SLC/GDU FH*5.5*52 Adding the following food allergies: RAW APPLES, RAW CHERRIES
TMPGL ; Create ^TMP Global
+1 KILL ^TMP($JOB,"FHALG")
SET FHK=0
+2 FOR
SET FHK=FHK+1
SET FHFPS=$TEXT(FPS+FHK)
SET FHZ1=$PIECE(FHFPS,";",3)
if FHZ1=""
QUIT
Begin DoDot:1
+3 SET ^TMP($JOB,"FHALG",FHZ1)=$PIECE(FHFPS,";",3,99)
End DoDot:1
EXIT KILL FHK,FHFPS,FHZ1
+1 QUIT
FPS ;;
+1 ;;ALCOHOL;ALCOHOL
+2 ;;ALCOHOL, BEER;HOPS
+3 ;;ALCOHOL, GIN;GIN
+4 ;;ALCOHOL, RUM;RUM
+5 ;;ALCOHOL, SCOTCH;SCOTCH
+6 ;;ALCOHOL, TEQUILA;TEQUILA
+7 ;;ALCOHOL, VODKA;VODKA
+8 ;;ALCOHOL, WINE;WINE
+9 ;;ALCOHOL, WINE, WHITE;WHITE WINE
+10 ;;ALFALFA SPROUTS;ALFALFA SPROUTS
+11 ;;ALMONDS;ALMONDS
+12 ;;ANISE OIL;ANISE OIL
+13 ;;APPLES;APPLE JUICE;APPLES
+14 ;;APRICOTS;APRICOTS
+15 ;;ARTICHOKES;ARTICHOKES
+16 ;;ARTIFICIAL COLORS;ARTIFICIAL COLORS;BLACK DYES;BLUE DYES;FD&C BLUE DYE #2;FD&C GREEN DYE #6;GREEN DYES;PINK DYES;PURPLE DYES
+17 ;;ASPARAGUS;ASPARAGUS
+18 ;;AVOCADOS;AVOCADOS
+19 ;;BACON;BACON
+20 ;;BANANAS;BANANAS
+21 ;;BARBEQUE SAUCE;BARBEQUE SAUCE;BARBECUE SAUCE
+22 ;;BARLEY;BARLEY;MALT BARLEY
+23 ;;BASIL;BASIL
+24 ;;BEANS;BEANS;LEGUMES
+25 ;;BEANS, BAKED;BAKED BEANS
+26 ;;BEANS, FAVA;FAVA BEANS (BROAD BEANS)
+27 ;;BEANS, GREEN;GREEN BEANS
+28 ;;BEANS, LENTILS;LENTILS
+29 ;;BEANS, LIMA;LIMA BEANS
+30 ;;BEANS, PINTO;PINTO BEANS
+31 ;;BEANS, SOY;SOYBEANS
+32 ;;BEANS, STRING;STRING BEANS
+33 ;;BEANS, WHITE;WHITE BEANS
+34 ;;BEEF;BEEF;BEEF PRODUCTS
+35 ;;BEEF, CORNED;CORNED BEEF
+36 ;;BEETS;BEETS
+37 ;;BEETS, PICKLES;PICKLED BEETS
+38 ;;BERRIES;BERRIES
+39 ;;BLACKBERRIES;BLACKBERRIES
+40 ;;BLUEBERRIES;BLUEBERRIES
+41 ;;BROCCOLI;BROCCOLI
+42 ;;BRUSSELS SPROUTS;BRUSSELS SPROUTS
+43 ;;BUCKWHEAT;BUCKWHEAT
+44 ;;BUTTER;BUTTER
+45 ;;CABBAGE;CABBAGE
+46 ;;CAFFEINE;CAFFEINE;COFFEE;COFFEE BEANS
+47 ;;CAFFEINE, COLAS;COLA DRINKS
+48 ;;CANTALOUPE;CANTALOUPE
+49 ;;CARBONATED BEVERAGES;CARBONATED BEVERAGES;SOFT DRINKS
+50 ;;CARROTS;CARROTS
+51 ;;CATSUP;CATSUP
+52 ;;CAULIFLOWER;CAULIFLOWER
+53 ;;CAVIAR;CAVIAR
+54 ;;CELERY;CELERY
+55 ;;CEREAL;CEREALS
+56 ;;CEREAL, CORNFLAKES;CORNFLAKES
+57 ;;CEREAL, CRM OF WHEAT;CREAM OF WHEAT
+58 ;;CEREAL, GRITS;GRITS
+59 ;;CEREAL, OATMEAL;OATMEAL
+60 ;;CHEESE;CHEESE
+61 ;;CHEESE, BLUE;BLUE CHEESE
+62 ;;CHEESE, CHEDDAR;CHEDDAR CHEESE
+63 ;;CHEESE, COTTAGE;COTTAGE CHEESE
+64 ;;CHEESE, FETA;FETA CHEESE
+65 ;;CHEESE, GOAT;GOAT CHEESE
+66 ;;CHEESE, PARMESAN;PARMESAN CHEESE
+67 ;;CHEESE, RICOTTA;RICOTTA CHEESE
+68 ;;CHEESE, SWISS;SWISS CHEESE
+69 ;;CHERRIES;CHERRIES;CHERRY JUICE
+70 ;;CHICKEN;CHICKEN
+71 ;;CHICKPEAS;CHICKPEAS
+72 ;;CHICORY;CHICORY
+73 ;;CHILI;CHILI
+74 ;;CHIVES;CHIVES
+75 ;;CHOCOLATE;CHOCOLATE;COCOA
+76 ;;CILANTRO;CILANTRO;CUMIN
+77 ;;CINNAMON;CINNAMON;CINNAMON OIL
+78 ;;CITRUS;CITRUS;CITRUS FRUIT;CITRUS JUICE
+79 ;;CLOVES;CLOVES
+80 ;;COCONUT;COCONUTS
+81 ;;COLA;COLA DRINKS
+82 ;;CORN;CORN
+83 ;;CRACKERS;CRACKERS
+84 ;;CRACKERS, GRAHAM;GRAHAM CRACKERS
+85 ;;CRANBERRIES;CRANBERRIES
+86 ;;CREAM, SOUR;SOUR CREAM
+87 ;;CREAMER, NON-DAIRY;NON-DAIRY CREAMER
+88 ;;CREAMER, POWDER;POWDERED CREAMER
+89 ;;CUCUMBERS;CUCUMBERS
+90 ;;DAIRY PRODUCTS;DAIRY PRODUCTS
+91 ;;DATES;DATES
+92 ;;DILL;DILL
+93 ;;DUCK;DUCK;WATERFOWL
+94 ;;DYES, VEGETABLES;VEGETABLE DYES
+95 ;;EGGNOG;EGGNOG
+96 ;;EGGPLANT;EGGPLANT
+97 ;;EGGS;EGGS;EGG PRODUCTS;EGG WHITES;EGG YOLKS
+98 ;;EGGS, SUBSTITUTES;EGG, SUBSTITUTES;EGG SUBSTITUTES
+99 ;;FAT EMULSIONS;FAT EMULSIONS
+100 ;;FIGS;FIGS
+101 ;;FISH;FISH
+102 ;;FISH, ABALONE;ABALONE
+103 ;;FISH, ANCHOVIES;ANCHOVIES
+104 ;;FISH, CATFISH;CATFISH
+105 ;;FISH, COD;CODFISH
+106 ;;FISH, FLOUNDER;FLOUNDER
+107 ;;FISH, HERRING;HERRING
+108 ;;FISH, MACKEREL;MACKEREL
+109 ;;FISH, PERCH;PERCH
+110 ;;FISH, RED SNAPPER;RED SNAPPER
+111 ;;FISH, SALMON;SALMON
+112 ;;FISH, SARDINES;SARDINES
+113 ;;FISH, SHARK;SHARK
+114 ;;FISH, SWORDFISH;SWORDFISH
+115 ;;FISH, TROUT;TROUT
+116 ;;FISH, TUNA;TUNA
+117 ;;FISH, WHITE;WHITE FISH
+118 ;;FLAVORING, HICKORY;HICKORY
+119 ;;FLAVORING, LICORICE;LICORICE
+120 ;;FLAVORING, VANILLA;VANILLA
+121 ;;FOOD PRESERVATIVES;FOOD PRESERVATIVES
+122 ;;FRUIT, FRESH;FRESH FRUIT
+123 ;;FROG;FROG LEGS;FROGS
+124 ;;FRUIT;FRUIT
+125 ;;FRUIT JUICE;FRUIT JUICE
+126 ;;FRUITCAKES;FRUITCAKES
+127 ;;GARLIC;GARLIC
+128 ;;GELATIN;GELATIN
+129 ;;GINGER;GINGER
+130 ;;GLUTEN;GLUTENS
+131 ;;GRAINS;GRAINS
+132 ;;GRAPEFRUIT;GRAPEFRUIT
+133 ;;GRAPES;GRAPES
+134 ;;GRAVY;GRAVY
+135 ;;GREENS, COLLARD;COLLARD GREENS
+136 ;;GREENS, MUSTARD;MUSTARD GREENS
+137 ;;GREENS, TURNIP;TURNIP GREENS
+138 ;;GREEN LEAFY VEG;GREEN LEAFY VEGETABLES
+139 ;;GUAVA;GUAVA
+140 ;;HOMINY;HOMINY
+141 ;;HONEY;HONEY
+142 ;;HONEYDEW;HONEYDEW
+143 ;;HORSERADISH;HORSERADISH
+144 ;;IODINE;IODIZED SALT;IODINE
+145 ;;JUICE;JUICE
+146 ;;KIWI;KIWI FRUIT
+147 ;;LACTOSE;LACTOSE
+148 ;;LEEKS;LEEKS
+149 ;;LEMON;LEMON JUICE;LEMONS
+150 ;;LETTUCE;LETTUCE
+151 ;;LIMES;LIMES
+152 ;;LYCHEE NUTS;LYCHEES
+153 ;;MALTOSE;MALTOSE
+154 ;;MANGOS;MANGOS
+155 ;;MARSHMALLOWS;MARSHMALLOWS
+156 ;;MAYONNAISE;MAYONNAISE
+157 ;;MEAT;MEAT
+158 ;;MEAT, LAMB;LAMB
+159 ;;MEAT, LIVER;LIVER
+160 ;;MEAT, PROCESSED;PROCESSED MEATS
+161 ;;MEAT, RED;RED MEAT
+162 ;;MEAT, VENISON;VENISON
+163 ;;MELONS;MELONS
+164 ;;MELONS, MUSK;MUSK MELONS
+165 ;;MELONS, WATER;WATERMELONS
+166 ;;MILK;MILK;DAIRY PRODUCTS
+167 ;;MILK, BUTTER;BUTTERMILK
+168 ;;MILK, GOAT;GOAT MILK
+169 ;;MILK, YOGURT;YOGURT
+170 ;;MINT;MINT
+171 ;;MODIFIED FOOD STARCH;MODIFIED FOOD STARCH;FOOD STARCH, MODIFIED
+172 ;;MSG;MONOSODIUM GLUTAMATE
+173 ;;MUSHROOMS;MUSHROOMS
+174 ;;MUSTARD;MUSTARD
+175 ;;MUTTON/LAMB;MUTTON
+176 ;;NECTARINES;NECTARINES
+177 ;;NITRITES;NITRITES
+178 ;;NON-FOOD RELATED;EGGSHELLS
+179 ;;NUTMEG;NUTMEG
+180 ;;NUTS;BRAZIL NUTS;CASHEWS;CHESTNUTS;HAZELNUTS;MACADAMIA NUTS;NUTS;PECANS
+181 ;;NUTS, PEANUT;PEANUT BUTTER;PEANUT OIL;PEANUTS
+182 ;;NUTS, PINE;PINE NUTS
+183 ;;NUTS, PISTACHIOS;PISTACHIOS
+184 ;;NUTS, TREE;PECANS;TREE NUTS
+185 ;;NUTS, WALNUT;WALNUTS
+186 ;;OATS;OATS
+187 ;;OIL, COCONUT;COCONUT OIL
+188 ;;OIL, COTTONSEED;COTTONSEED OIL
+189 ;;OIL, PALM;PALM OIL
+190 ;;OIL, SAFFLOWER;SAFFLOWER OIL
+191 ;;OIL, SOY;SOYBEAN OIL
+192 ;;OIL, SUNFLOWER;SUNFLOWER OIL
+193 ;;OKRA;OKRA
+194 ;;OLIVES;BLACK OLIVES;OLIVES
+195 ;;ONIONS;ONIONS
+196 ;;ONIONS, RED;RED ONIONS
+197 ;;ORANGE;ORANGE;ORANGES;ORANGE JUICE;ORANGE OIL
+198 ;;OREGANO;OREGANO
+199 ;;OYSTERS;OYSTERS
+200 ;;PAPAYAS;PAPAYAS
+201 ;;PAPRIKA;PAPRIKA
+202 ;;PARSLEY;PARSLEY
+203 ;;PARSNIP;PARSNIP
+204 ;;PASSION FRUIT;PASSION FRUIT
+205 ;;PEACHES;PEACHES
+206 ;;PEARS;PEARS
+207 ;;PEAS;PEAS
+208 ;;PEAS, BLACK-EYED;BLACK-EYED PEAS
+209 ;;PEAS, ENGLISH;ENGLISH PEAS
+210 ;;PEAS, SNOW;SNOW PEAS
+211 ;;PEPPER;PEPPER;WHITE PEPPER
+212 ;;PEPPER, BLACK;BLACK PEPPER;PEPPER
+213 ;;PEPPERMINT;PEPPERMINT
+214 ;;PEPPERONI;PEPPERONI
+215 ;;PEPPERS;BELL PEPPERS;PEPPERS
+216 ;;PEPPERS, CHILI;CHILI PEPPER;CHILI PEPPERS
+217 ;;PEPPERS, GREEN;GREEN BELL PEPPERS;PEPPERS
+218 ;;PEPPERS, HOT;CAPSAICIN;CAYENNE PEPPER;HOT PEPPER;HOT PEPPERS;JALAPENO PEPPERS
+219 ;;PEPPERS, RED;RED BELL PEPPERS
+220 ;;PERSIMMONS;PERSIMMONS
+221 ;;PHEASANT;PHEASANT
+222 ;;PICKLES;PICKLES
+223 ;;PIMENTOS;PIMENTOS
+224 ;;PINEAPPLE;PINEAPPLES
+225 ;;PIZZA;PIZZA
+226 ;;PLUMS;PLUMS
+227 ;;POPCORN;POPCORN
+228 ;;POPPY SEEDS;POPPY SEEDS
+229 ;;PORK;PORK;PORK PRODUCTS;HAM
+230 ;;PORK, HAM;HAM
+231 ;;POTATOES;POTATOES
+232 ;;POTATOES, SALAD;POTATO SALAD
+233 ;;POTATOES, SWEET/YAMS;SWEET POTATOES;YAMS
+234 ;;POULTRY;FOWL;POULTRY
+235 ;;PRUNES;PRUNES
+236 ;;PUDDING, TAPIOCA;TAPIOCA PUDDING
+237 ;;PUMPKIN;PUMPKINS
+238 ;;RABBIT;RABBIT
+239 ;;RADISH;RADISHES
+240 ;;RAISINS;RAISINS
+241 ;;RASPBERRIES;RASPBERRIES
+242 ;;RED DYES;FD&C RED DYE #1;FD&C RED DYE #2;FD&C RED DYE #3;FD&C RED DYE #40;FD&C RED DYE #40 LAKE;FD&C RED DYE #5;RED DYES
+243 ;;RHUBARB;RHUBARB
+244 ;;RICE;RICE;WHITE RICE
+245 ;;ROSEMARY;ROSEMARY
+246 ;;RUTABAGAS;RUTABAGAS
+247 ;;RYE;RYE
+248 ;;SALAD DRESSING, ITAL;ITALIAN DRESSING
+249 ;;SALT;NON-IODIZED SALT;SALT
+250 ;;SALT, SUBSTITUTES;SALT SUBSTITUTES
+251 ;;SAUERKRAUT;SAUERKRAUT
+252 ;;SAUSAGES;SAUSAGES
+253 ;;SEAFOOD;SEAFOOD
+254 ;;SEEDS;SEEDS
+255 ;;SEEDS, SUNFLOWER;SUNFLOWER SEEDS
+256 ;;SESAME;SESAME;SESAME OIL;SESAME SEEDS
+257 ;;SHELLFISH;CLAMS;CRAB;CRAWFISH;CRUSTACEANS;LOBSTER;MUSSELS;SCALLOPS;SHELL FISH;SHELLFISH
+258 ;;SHERBET;SHERBET
+259 ;;SHRIMP;SHRIMP
+260 ;;SNAILS;SNAILS
+261 ;;SOUR CREAM;SOUR CREAM
+262 ;;SOY;SOY;SOY MILK;SOY PRODUCTS;SOY SAUCE;SOYBEANS;TOFU
+263 ;;SOY SAUCE;SOY SAUCE
+264 ;;SPAGHETTI;SPAGHETTI
+265 ;;SPAM;SPAM
+266 ;;SPICES;CONDIMENTS;SPICES
+267 ;;SPINACH;SPINACH
+268 ;;SQUASH;SQUASH
+269 ;;SQUID;SQUID
+270 ;;STARCHY FOODS;STARCHES
+271 ;;STRAWBERRIES;STRAWBERRIES;STRAWBERRIES PLUS
+272 ;;SUCRALOSE;SUCRALOSE
+273 ;;SUGAR;SUGAR;SUGAR BEETS;WHITE SUGAR
+274 ;;SUGAR SUB;ARTIFICIAL SWEETENERS
+275 ;;SUGAR SUB, ASPARTAME;ASPARTAME
+276 ;;SUGAR SUB, SACCHARIN;SACCHARIN;SWEET'N LOW
+277 ;;SUGAR, BROWN;BROWN SUGAR
+278 ;;SULFITES;SULFITES
+279 ;;SYRUP, MAPLE;MAPLE SYRUP
+280 ;;TANGERINES;TANGERINES
+281 ;;TARRAGON;TARRAGON
+282 ;;TEA;TEA
+283 ;;TOFFEE;TOFFEE
+284 ;;TOMATO;TOMATO;TOMATO JUICE;TOMATO PRODUCTS;TOMATO SAUCE;TOMATOES
+285 ;;TOMATOES, FRESH;FRESH TOMATOES
+286 ;;TUMERIC;TUMERIC
+287 ;;TURKEY;TURKEY
+288 ;;TURNIPS;TURNIPS
+289 ;;VEAL;VEAL
+290 ;;VEGETABLES;VEGETABLES
+291 ;;VEGETABLES, GREEN;GREEN VEGETABLES
+292 ;;VINEGAR;VINEGAR
+293 ;;WATERFOWL;WATERFOWL
+294 ;;WHEAT;FLOUR;WHEAT
+295 ;;WHEY;WHEY
+296 ;;WINE, RED;RED WINE
+297 ;;YEAST;YEAST
+298 ;;YELLOW DYES;FD&C YELLOW DYE #10;FD&C YELLOW DYE #2;FD&C YELLOW DYE #5;FD&C YELLOW DYE #6;FD&C YELLOW DYE #6 LAKE;TARTRAZINE;YELLOW DYES
+299 ;;ZUCCHINI;ZUCCHINI
+300 ;;ARUGULA;ARUGULA
+301 ;;CAPERS;CAPERS
+302 ;;CURRY;CURRY
+303 ;;GOOSEBERRIES;GOOSEBERRIES;GOOSE BERRIES;GOOSE BERRY;GOOSEBERRY
+304 ;;MEAT TENDERIZER;MEAT TENDERIZER
+305 ;;OLESTRA;OLESTRA;OLEAN
+306 ;;ORANGE DYE;ORANGE DYE
+307 ;;POMEGRANATES;POMEGRANATES
+308 ;;PUDDING;PUDDING
+309 ;;SAFFRON;SAFFRON
+310 ;;STEVIA;STEVIA
+311 ;;WATER CHESTNUTS;WATER CHESTNUTS
+312 ;;BEANS, KIDNEY;KIDNEY BEANS
+313 ;;OCTOPUS;OCTOPUS
+314 ;;SAGE;SAGE
+315 ;;MARGARINE;MARGARINE
+316 ;;ONIONS, RAW;RAW ONIONS
+317 ;;VEGETABLES, RAW;RAW VEGETABLES
+318 ;;TURMERIC;TURMERIC
+319 ;;OIL, CANOLA;CANOLA OIL
+320 ;;ERYTHRITOL;ERYTHRITOL
+321 ;;KALE;KALE
+322 ;;AGAVE;AGAVE
+323 ;;MILK, HEMP;HEMP MILK
+324 ;;ROOT, TARO;TARO ROOT
+325 ;;PAWPAW;PAWPAW
+326 ;;MULBERRY;MULBERRY
+327 ;;MOLASSES;MOLASSES
+328 ;;SORBITOL;SORBITOL
+329 ;;MALTITOL;MALTITOL
+330 ;;MANNITOL;MANNITOL
+331 ;;XYLITOL;XYLITOL
+332 ;;SASSAFRAS;SASSAFRAS
+333 ;;BAY LEAVES;BAY LEAVES
+334 ;;CARAWAY SEEDS;CARAWAY SEEDS
+335 ;;FRUCTOSE;FRUCTOSE
+336 ;;BEAN SPROUTS;BEAN SPROUTS
+337 ;;ARROWROOT;ARROWROOT
+338 ;;DAIRY FOODS;DAIRY FOODS
+339 ;;FRESH FRUITS;FRESH FRUITS
+340 ;;FRUITS;FRUITS
+341 ;;MINT HERB;MINT HERB
+342 ;;PEPPERMINT HERB;PEPPERMINT HERB
+343 ;;PEPPERMINT OIL;PEPPERMINT OIL
+344 ;;RABBIT MEAT;RABBITS
+345 ;;MEAT, MAMMAL HOOVED;MEAT, MAMMALIAN HOOVED
+346 ;;STARFRUIT;STARFRUIT
+347 ;;CANNABIS;CANNABIS
+348 ;;CHRYSANTHEMUM;CHRYSANTHEMUM
+349 ;;APPLES, RAW;RAW APPLES
+350 ;;CHERRIES, RAW;RAW CHERRIES
