Changeset 623 for WorldVistAEHR/trunk/r/DIETETICS-FH/FHSELA2.m
- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/DIETETICS-FH/FHSELA2.m
r613 r623 1 FHSELA2 2 ;;5.5;DIETETICS;**8,13**;Jan 28, 2005;Build 1 3 4 TMPGL 5 6 7 8 EXIT 9 10 FPS 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 ;;GREEN LEAFY VEG;GREEN LEAFY VEGETABLES149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 1 FHSELA2 ;Hines OIFO/RTK - Map GMR Allergy file to Food Prefs ;3/07/2007 2 ;;5.5;DIETETICS;**8**;Jan 28, 2005;Build 28 3 ; 4 TMPGL ; 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) 8 EXIT K FHK,FHFPS,FHZ1 9 Q 10 FPS ;; 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 TracChangeset
for help on using the changeset viewer.