source: WorldVistAEHR/trunk/r/DIETETICS-FH/FHSELA2.m@ 1259

Last change on this file since 1259 was 623, checked in by George Lilly, 15 years ago

revised back to 6/30/08 version

File size: 8.2 KB
Line 
1FHSELA2 ;Hines OIFO/RTK - Map GMR Allergy file to Food Prefs ;3/07/2007
2 ;;5.5;DIETETICS;**8**;Jan 28, 2005;Build 28
3 ;
4TMPGL ; Create ^TMP Global
5 K ^TMP($J,"FHALG") S FHK=0
6 F S FHK=FHK+1,FHFPS=$T(FPS+FHK),FHZ1=$P(FHFPS,";",3) Q:FHZ1="" D
7 .S ^TMP($J,"FHALG",FHZ1)=$P(FHFPS,";",3,99)
8EXIT K FHK,FHFPS,FHZ1
9 Q
10FPS ;;
11 ;;ALCOHOL;ALCOHOL
12 ;;ALCOHOL, BEER;HOPS
13 ;;ALCOHOL, GIN;GIN
14 ;;ALCOHOL, RUM;RUM
15 ;;ALCOHOL, SCOTCH;SCOTCH
16 ;;ALCOHOL, TEQUILA;TEQUILA
17 ;;ALCOHOL, VODKA;VODKA
18 ;;ALCOHOL, WINE;WINE
19 ;;ALCOHOL, WINE, WHITE;WHITE WINE
20 ;;ALFALFA SPROUTS;ALFALFA SPROUTS
21 ;;ALMONDS;ALMONDS
22 ;;ANISE OIL;ANISE OIL
23 ;;APPLES;APPLE JUICE;APPLES
24 ;;APRICOTS;APRICOTS
25 ;;ARTICHOKES;ARTICHOKES
26 ;;ARTIFICIAL COLORS;ARTIFICIAL COLORS;BLACK DYES;BLUE DYES;FD&C BLUE DYE #2;FD&C GREEN DYE #6;GREEN DYES;PINK DYES;PURPLE DYES
27 ;;ASPARAGUS;ASPARAGUS
28 ;;AVOCADOS;AVOCADOS
29 ;;BACON;BACON
30 ;;BANANAS;BANANAS
31 ;;BARBEQUE SAUCE;BARBEQUE SAUCE
32 ;;BARLEY;BARLEY;MALT BARLEY
33 ;;BASIL;BASIL
34 ;;BEANS;BEANS;LEGUMES
35 ;;BEANS, BAKED;BAKED BEANS
36 ;;BEANS, FAVA;FAVA BEANS (BROAD BEANS)
37 ;;BEANS, GREEN;GREEN BEANS
38 ;;BEANS, LENTILS;LENTILS
39 ;;BEANS, LIMA;LIMA BEANS
40 ;;BEANS, PINTO;PINTO BEANS
41 ;;BEANS, SOY;SOYBEANS
42 ;;BEANS, STRING;STRING BEANS
43 ;;BEANS, WHITE;WHITE BEANS
44 ;;BEEF;BEEF;BEEF PRODUCTS
45 ;;BEEF, CORNED;CORNED BEEF
46 ;;BEETS;BEETS
47 ;;BEETS, PICKLES;PICKLED BEETS
48 ;;BERRIES;BERRIES
49 ;;BLACKBERRIES;BLACKBERRIES
50 ;;BLUEBERRIES;BLUEBERRIES
51 ;;BROCCOLI;BROCCOLI
52 ;;BRUSSELS SPROUTS;BRUSSELS SPROUTS
53 ;;BUCKWHEAT;BUCKWHEAT
54 ;;BUTTER;BUTTER
55 ;;CABBAGE;CABBAGE
56 ;;CAFFEINE;CAFFEINE;COFFEE;COFFEE BEANS
57 ;;CAFFEINE, COLAS;COLA DRINKS
58 ;;CANTALOUPE;CANTALOUPE
59 ;;CARBONATED BEVERAGES;CARBONATED BEVERAGES;SOFT DRINKS
60 ;;CARROTS;CARROTS
61 ;;CATSUP;CATSUP
62 ;;CAULIFLOWER;CAULIFLOWER
63 ;;CAVIAR;CAVIAR
64 ;;CELERY;CELERY
65 ;;CEREAL;CEREALS
66 ;;CEREAL, CORNFLAKES;CORNFLAKES
67 ;;CEREAL, CRM OF WHEAT;CREAM OF WHEAT
68 ;;CEREAL, GRITS;GRITS
69 ;;CEREAL, OATMEAL;OATMEAL
70 ;;CHEESE;CHEESE
71 ;;CHEESE, BLUE;BLUE CHEESE
72 ;;CHEESE, CHEDDAR;CHEDDAR CHEESE
73 ;;CHEESE, COTTAGE;COTTAGE CHEESE
74 ;;CHEESE, FETA;FETA CHEESE
75 ;;CHEESE, GOAT;GOAT CHEESE
76 ;;CHEESE, PARMESAN;PARMESAN CHEESE
77 ;;CHEESE, RICOTTA;RICOTTA CHEESE
78 ;;CHEESE, SWISS;SWISS CHEESE
79 ;;CHERRIES;CHERRIES;CHERRY JUICE
80 ;;CHICKEN;CHICKEN
81 ;;CHICKPEAS;CHICKPEAS
82 ;;CHICORY;CHICORY
83 ;;CHILI;CHILI
84 ;;CHIVES;CHIVES
85 ;;CHOCOLATE;CHOCOLATE;COCOA
86 ;;CILANTRO;CILANTRO;CUMIN
87 ;;CINNAMON;CINNAMON;CINNAMON OIL
88 ;;CITRUS;CITRUS;CITRUS FRUIT;CITRUS JUICE
89 ;;CLOVES;CLOVES
90 ;;COCONUT;COCONUTS
91 ;;COLA;COLA DRINKS
92 ;;CORN;CORN
93 ;;CRACKERS;CRACKERS
94 ;;CRACKERS, GRAHAM;GRAHAM CRACKERS
95 ;;CRANBERRIES;CRANBERRIES
96 ;;CREAM, SOUR;SOUR CREAM
97 ;;CREAMER, NON-DAIRY;NON-DAIRY CREAMER
98 ;;CREAMER, POWDER;POWDERED CREAMER
99 ;;CUCUMBERS;CUCUMBERS
100 ;;DAIRY PRODUCTS;DAIRY PRODUCTS
101 ;;DATES;DATES
102 ;;DILL;DILL
103 ;;DUCK;DUCK;WATERFOWL
104 ;;DYES, VEGETABLES;VEGETABLE DYES
105 ;;EGGNOG;EGGNOG
106 ;;EGGPLANT;EGGPLANT
107 ;;EGGS;EGGS;EGG PRODUCTS;EGG WHITES;EGG YOLKS
108 ;;EGGS, SUBSTITUTES;EGG, SUBSTITUTES
109 ;;FAT EMULSIONS;FAT EMULSIONS
110 ;;FIGS;FIGS
111 ;;FISH;FISH
112 ;;FISH, ABALONE;ABALONE
113 ;;FISH, ANCHOVIES;ANCHOVIES
114 ;;FISH, CATFISH;CATFISH
115 ;;FISH, COD;CODFISH
116 ;;FISH, FLOUNDER;FLOUNDER
117 ;;FISH, HERRING;HERRING
118 ;;FISH, MACKEREL;MACKEREL
119 ;;FISH, PERCH;PERCH
120 ;;FISH, RED SNAPPER;RED SNAPPER
121 ;;FISH, SALMON;SALMON
122 ;;FISH, SARDINES;SARDINES
123 ;;FISH, SHARK;SHARK
124 ;;FISH, SWORDFISH;SWORDFISH
125 ;;FISH, TROUT;TROUT
126 ;;FISH, TUNA;TUNA
127 ;;FISH, WHITE;WHITE FISH
128 ;;FLAVORING, HICKORY;HICKORY
129 ;;FLAVORING, LICORICE;LICORICE
130 ;;FLAVORING, VANILLA;VANILLA
131 ;;FOOD PRESERVATIVES;FOOD PRESERVATIVES
132 ;;FRUIT, FRESH;FRESH FRUIT
133 ;;FROG;FROG LEGS;FROGS
134 ;;FRUIT;FRUIT
135 ;;FRUIT JUICE;FRUIT JUICE
136 ;;FRUITCAKES;FRUITCAKES
137 ;;GARLIC;GARLIC
138 ;;GELATIN;GELATIN
139 ;;GINGER;GINGER
140 ;;GLUTEN;GLUTENS
141 ;;GRAINS;GRAINS
142 ;;GRAPEFRUIT;GRAPEFRUIT
143 ;;GRAPES;GRAPES
144 ;;GRAVY;GRAVY
145 ;;GREENS, COLLARD;COLLARD GREENS
146 ;;GREENS, MUSTARD;MUSTARD GREENS
147 ;;GREENS, TURNIP;TURNIP GREENS
148 ;;GREEN LEAFY VEGETABLES;GREEN LEAFY VEGETABLES
149 ;;GUAVA;GUAVA
150 ;;HOMINY;HOMINY
151 ;;HONEY;HONEY
152 ;;HONEYDEW;HONEYDEW
153 ;;HORSERADISH;HORSERADISH
154 ;;IODINE;IODIZED SALT
155 ;;JUICE;JUICE
156 ;;KIWI;KIWI FRUIT
157 ;;LACTOSE;LACTOSE
158 ;;LEEKS;LEEKS
159 ;;LEMON;LEMON JUICE;LEMONS
160 ;;LETTUCE;LETTUCE
161 ;;LIMES;LIMES
162 ;;LYCHEE NUTS;LYCHEES
163 ;;MALTOSE;MALTOSE
164 ;;MANGOS;MANGOS
165 ;;MARSHMALLOWS;MARSHMALLOWS
166 ;;MAYONNAISE;MAYONNAISE
167 ;;MEAT;MEAT
168 ;;MEAT, LAMB;LAMB
169 ;;MEAT, LIVER;LIVER
170 ;;MEAT, PROCESSED;PROCESSED MEATS
171 ;;MEAT, RED;RED MEAT
172 ;;MEAT, VENISON;VENISON
173 ;;MELONS;MELONS
174 ;;MELONS, MUSK;MUSK MELONS
175 ;;MELONS, WATER;WATERMELONS
176 ;;MILK;MILK;DAIRY PRODUCTS
177 ;;MILK, BUTTER;BUTTERMILK
178 ;;MILK, GOAT;GOAT MILK
179 ;;MILK, YOGURT;YOGURT
180 ;;MINT;MINT
181 ;;MODIFIED FOOD STARCH;MODIFIED FOOD STARCH;FOOD STARCH, MODIFIED
182 ;;MSG;MONOSODIUM GLUTAMATE
183 ;;MUSHROOMS;MUSHROOMS
184 ;;MUSTARD;MUSTARD
185 ;;MUTTON/LAMB;MUTTON
186 ;;NECTARINES;NECTARINES
187 ;;NITRITES;NITRITES
188 ;;NON-FOOD RELATED;EGGSHELLS
189 ;;NUTMEG;NUTMEG
190 ;;NUTS;BRAZIL NUTS;CASHEWS;CHESTNUTS;HAZELNUTS;MACADAMIA NUTS;NUTS;PECANS
191 ;;NUTS, PEANUT;PEANUT BUTTER;PEANUT OIL;PEANUTS
192 ;;NUTS, PINE;PINE NUTS
193 ;;NUTS, PISTACHIOS;PISTACHIOS
194 ;;NUTS, TREE;PECANS;TREE NUTS
195 ;;NUTS, WALNUT;WALNUTS
196 ;;OATS;OATS
197 ;;OIL, COCONUT;COCONUT OIL
198 ;;OIL, COTTONSEED;COTTONSEED OIL
199 ;;OIL, PALM;PALM OIL
200 ;;OIL, SAFFLOWER;SAFFLOWER OIL
201 ;;OIL, SOY;SOYBEAN OIL
202 ;;OIL, SUNFLOWER;SUNFLOWER OIL
203 ;;OKRA;OKRA
204 ;;OLIVES;BLACK OLIVES;OLIVES
205 ;;ONIONS;ONIONS
206 ;;ONIONS, RED;RED ONIONS
207 ;;ORANGE;ORANGE;ORANGES;ORANGE JUICE;ORANGE OIL
208 ;;OREGANO;OREGANO
209 ;;OYSTERS;OYSTERS
210 ;;PAPAYAS;PAPAYAS
211 ;;PAPRIKA;PAPRIKA
212 ;;PARSLEY;PARSLEY
213 ;;PARSNIP;PARSNIP
214 ;;PASSION FRUIT;PASSION FRUIT
215 ;;PEACHES;PEACHES
216 ;;PEARS;PEARS
217 ;;PEAS;PEAS
218 ;;PEAS, BLACK-EYED;BLACK-EYED PEAS
219 ;;PEAS, ENGLISH;ENGLISH PEAS
220 ;;PEAS, SNOW;SNOW PEAS
221 ;;PEPPER;PEPPER;WHITE PEPPER
222 ;;PEPPER, BLACK;BLACK PEPPER;PEPPER
223 ;;PEPPERMINT;PEPPERMINT
224 ;;PEPPERONI;PEPPERONI
225 ;;PEPPERS;BELL PEPPERS;PEPPERS
226 ;;PEPPERS, CHILI;CHILI PEPPER;CHILI PEPPERS
227 ;;PEPPERS, GREEN;GREEN BELL PEPPERS;PEPPERS
228 ;;PEPPERS, HOT;CAPSAICIN;CAYENNE PEPPER;HOT PEPPER;HOT PEPPERS;JALAPENO PEPPERS
229 ;;PEPPERS, RED;RED BELL PEPPERS
230 ;;PERSIMMONS;PERSIMMONS
231 ;;PHEASANT;PHEASANT
232 ;;PICKLES;PICKLES
233 ;;PIMENTOS;PIMENTOS
234 ;;PINEAPPLE;PINEAPPLES
235 ;;PIZZA;PIZZA
236 ;;PLUMS;PLUMS
237 ;;POPCORN;POPCORN
238 ;;POPPY SEEDS;POPPY SEEDS
239 ;;PORK;PORK;PORK PRODUCTS;HAM
240 ;;PORK, HAM;HAM
241 ;;POTATOES;POTATOES
242 ;;POTATOES, SALAD;POTATO SALAD
243 ;;POTATOES, SWEET/YAMS;SWEET POTATOES;YAMS
244 ;;POULTRY;FOWL;POULTRY
245 ;;PRUNES;PRUNES
246 ;;PUDDING, TAPIOCA;TAPIOCA PUDDING
247 ;;PUMPKIN;PUMPKINS
248 ;;RABBIT;RABBIT
249 ;;RADISH;RADISHES
250 ;;RAISINS;RAISINS
251 ;;RASPBERRIES;RASPBERRIES
252 ;;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
253 ;;RHUBARB;RHUBARB
254 ;;RICE;RICE;WHITE RICE
255 ;;ROSEMARY;ROSEMARY
256 ;;RUTABAGAS;RUTABAGAS
257 ;;RYE;RYE
258 ;;SALAD DRESSING, ITAL;ITALIAN DRESSING
259 ;;SALT;NON-IODIZED SALT;SALT
260 ;;SALT, SUBSTITUTES;SALT SUBSTITUTES
261 ;;SAUERKRAUT;SAUERKRAUT
262 ;;SAUSAGES;SAUSAGES
263 ;;SEAFOOD;SEAFOOD
264 ;;SEEDS;SEEDS
265 ;;SEEDS, SUNFLOWER;SUNFLOWER SEEDS
266 ;;SESAME;SESAME;SESAME OIL;SESAME SEEDS
267 ;;SHELLFISH;CLAMS;CRAB;CRAWFISH;CRUSTACEANS;LOBSTER;MUSSELS;SCALLOPS;SHELL FISH;SHELLFISH
268 ;;SHERBET;SHERBET
269 ;;SHRIMP;SHRIMP
270 ;;SNAILS;SNAILS
271 ;;SOUR CREAM;SOUR CREAM
272 ;;SOY;SOY;SOY MILK;SOY PRODUCTS;SOY SAUCE;SOYBEANS;TOFU
273 ;;SOY SAUCE;SOY SAUCE
274 ;;SPAGHETTI;SPAGHETTI
275 ;;SPAM;SPAM
276 ;;SPICES;CONDIMENTS;SPICES
277 ;;SPINACH;SPINACH
278 ;;SQUASH;SQUASH
279 ;;SQUID;SQUID
280 ;;STARCHY FOODS;STARCHES
281 ;;STRAWBERRIES;STRAWBERRIES;STRAWBERRIES PLUS
282 ;;SUCRALOSE;SUCRALOSE
283 ;;SUGAR;SUGAR;SUGAR BEETS;WHITE SUGAR
284 ;;SUGAR SUB;ARTIFICIAL SWEETENERS
285 ;;SUGAR SUB, ASPARTAME;ASPARTAME
286 ;;SUGAR SUB, SACCHARIN;SACCHARIN;SWEET'N LOW
287 ;;SUGAR, BROWN;BROWN SUGAR
288 ;;SULFITES;SULFITES
289 ;;SYRUP, MAPLE;MAPLE SYRUP
290 ;;TANGERINES;TANGERINES
291 ;;TARRAGON;TARRAGON
292 ;;TEA;TEA
293 ;;TOFFEE;TOFFEE
294 ;;TOMATO;TOMATO;TOMATO JUICE;TOMATO PRODUCTS;TOMATO SAUCE;TOMATOES
295 ;;TOMATOES, FRESH;FRESH TOMATOES
296 ;;TUMERIC;TUMERIC
297 ;;TURKEY;TURKEY
298 ;;TURNIPS;TURNIPS
299 ;;VEAL;VEAL
300 ;;VEGETABLES;VEGETABLES
301 ;;VEGETABLES, GREEN;GREEN VEGETABLES
302 ;;VINEGAR;VINEGAR
303 ;;WATERFOWL;WATERFOWL
304 ;;WHEAT;FLOUR;WHEAT
305 ;;WHEY;WHEY
306 ;;WINE, RED;RED WINE
307 ;;YEAST;YEAST
308 ;;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
309 ;;ZUCCHINI;ZUCCHINI
Note: See TracBrowser for help on using the repository browser.