Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHIPST15

FHIPST15.m

Go to the documentation of this file.
FHIPST15	; HISC/NCA - Ingredient Items 7 ;5/1/95  12:03
	;;5.0;Dietetics;;Oct 11, 1995
	F I=1:1 S A=$P($T(ITEMS+I),";",3,99) Q:A=""  I $P(A,"^",2) S ^TMP($J,"FHING",CTR)=A,CTR=CTR+1
	Q
ITEMS	;;
	;;BEANS, FRENCH CUT GREEN, CND^715^1
	;;PINEAPPLE, CND, TIDBITS, DIET^1770^1
	;;PRUNES, CND, DIET^^1
	;;CHEESE, AMERICAN SLICED^42^1
	;;CAKE, ANGELFOOD, FRESH^880^1.579
	;;PIE, APPLE, FZN^1470^.203
	;;APPLES, FRESH^1611^.304
	;;BACON, PREFRIED^213^1
	;;POTATOES, BAKING, FRESH^1503^.499
	;;BANANAS, FRESH^1635^.251
	;;BEEF LIVER^1310^1
	;;BEEF, TOP RND, FRESH^2149^1
	;;BISCUITS FRZN^803^1
	;;BOLOGNA^627^1
	;;BREAD, WHITE, SLICED^823^.055
	;;BEANS, BUTTER, FZN^2277^1
	;;BUTTERMILK, IND^85^.529
	;;CABBAGE, FRESH^845^1
	;;CARAWAY SEEDS^263^1
	;;CARROTS, FRESH, STIX^934^1
	;;CARROTS, FRESH, SHREDDED^934^1
	;;CAYENNE PEPPER^289^1
	;;CELERY CRESCENTS, FRESH^951^1
	;;CELERY STIX, FRESH^950^1
	;;CHEESE, COTTAGE^12^1
	;;CHEESE, AMER/SWISS, SLICED^44^1
	;;CHICKEN, DRUMS, FZN^^1
	;;CHICKEN THIGHS, FZN^444^1
	;;ICE CREAM, CHOCOLATE, IND^60^.148
	;;MILK, CHOCOLATE, LOWFAT^100^8.819
	;;CELERY, CHOPPED FRESH^951^1
	;;ONIONS, CHOPPED, FRESH^1378^1
	;;COD RAW BREADED^1225^1
	;;CREAMER, NONDAIRY LIQUID, BULK^66^8.466
	;;TOPPING, NONDAIRY, FROZEN^71^1
	;;CUCUMBERS, FRESH^1089^1
	;;CURRY POWDER^273^1
	;;DANISH, DEMI, FRESH^1569^.093
	;;CAKE, DEVILSFOOD, FZN^858^.209
	;;ROLLS, SOFT DINNER, FRESH^1567^.062
	;;DONUTS, FRESH^1096^.093
	;;EGGPLANT^1098^1
	;;EGGS, SHELL, FRESH^6498^.097
	;;ENDIVE^1100^1
	;;ESCAROLE^1100^1
	;;FRENCH TOAST, FZN^6427^1
	;;FRANKFURTERS, FRESH^1610^1
	;;FRENCH BREAD, FRESH^812^.033
	;;OKRA, FRZ^1370^1
	;;PANCAKE BATTER, FZN^^1
	;;CAKE, GERMAN CHOC, FZN^859^.209
	;;ONIONS, GREEN FRESH^1385^1
	;;PEPPERS, GREEN, FRESH^1434^1
	;;GRAPES, FRESH^1696^1
	;;GRAPEFRUIT SECTIONS^2785^8.113
	;;GREENS MUSTARD, FZN^1353^1
	;;HAM SMKD, BONELESS^221^1
	;;ROLLS, HAMBURGER, FRESH^1568^.088
	;;ROLLS, FRANKFURTER, FRESH^1568^.088
	;;SAUSAGE, ITALIAN^656^1
	;;KNOCKWURST^642^1
	;;LAMB LEG ROAST, BONELESS, FRESH^1281^1
	;;LETTUCE, LEAF^1308^1
	;;LEMON WEDGES, FRESH^2806^.128
	;;LEMONS, FRESH^2806^.128
	;;LETTUCE, ICEBERG^1307^1
	;;SHERBET, LIME, IND^65^.214
	;;BREAD, LO NA, SLICED^6502^.057
	;;MARJORAM^281^1
	;;MILK, LOWFAT, IND^76^.538
	;;MILK, WHOLE, IND^74^.538
	;;ORANGES, NAVAL^1728^.309
	;;SHERBET, ORANGE, IND^65^.214
	;;ORANGE SECTIONS^1726^6.349
	;;PARSLEY, FRESH^2048^1
	;;PIE, PEACH, FZN^1460^.207
	;;PEARS, FRESH^1757^.366
	;;PIE, PINAPPLE, FZN^1462^.26
	;;PORK, BOSTON BUTT, BONELESS^195^1
	;;POTATOES, DEHYD QUARTERED^^1
	;;POULTRY SEASONING^292^1
	;;CAKE, POUND, FZN^871^.141
	;;ONIONS, DEHYD QUARTERED^1384^1
	;;ROMAINE^1308^1
	;;BREAD, RYE, SLICED^818^.055
	;;SALAMI^653^1
	;;SAUSAGE PATTIES, RAW FZN^650^1
	;;CHICKEN, PULLED, UNSALTED^404^1
	;;TURKEY BREAST, UNSALTED^487^1
	;;SOUR CREAM^56^8.113
	;;CAKE, SPONGE^872^.146
	;;ICE CREAM, STRAWBERRY, IND^60^.148
	;;COOKIES, SUGAR, ARCHWAY^1022^1
	;;POTATOES, SWEET, FRESH^1909^1
	;;TANGERINES, FRESH^1735^.185
	;;TOMATOES, FRESH^1929^1
	;;TRAUMA CAL^6001^.551
	;;ICE CREAM, VANILLA, IND^60^.148
	;;VINEGAR PKT, IND^1986^.033
	;;ROLLS, WHITE HARD, FRESH^1567^.088
	;;FOOD COLORING, YELLOW^^8
	;;WATER, TAP^2021^8.36
	;;LEMON JUICE^1708^8.607
	;;CLOVE, GRD^269^1
	;;BAY LEAVES, WHOLE^262^0
	;;THYME, GROUND^300^1
	;;BASIL, DRIED^261^1
	;;PORK SLICES^199^.265
	;;LO PRO PASTA^6494^1
	;;POTATOES, PREPEELED, QUARTERED^1506^1
	;;CHIVES, DEHYD^2751^1
	;;JUICE, OR/GRAPEFRUIT, FRZ, IND^1734^.272
	;;JUICE, PINE/GRPFT, FRZ, IND^1485^.276
	;;MACE, GROUND^280^1
	;;MILK, LOWFAT, FRESH^76^8.607
	;;ONIONS, QUARTERED FRESH^1378^1
	;;JUICE, ORANGE, FRESH^1730^8.748
	;;CEREAL, CREAM OF WHEAT^1163^1
	;;LIQUID SMOKE^^8
	;;GINGER, GROUND^279^1
	;;CARROTS, FRESH, DICED^935^1
	;;BREADCRUMBS^827^1
	;;CHEESE, LOW FAT^29^1
	;;PASTA, LOW PROTEIN^6503^1
	;;POTATOES, PREPEELED, SLICED^1506^1
	;;POTATOES, PREPEELED, DICED^1506^1
	;;BREAD, WHOLE WHEAT^825^.063
	;;JUICE, PRUNE, FZN, IND^1790^.282
	;;PIE, PUMPKIN^1465^.207
	;;ALLSPICE^259^1
	;;CELERY SEED^265^1
	;;ONIONS, SLICED FRESH^1378^1
	;;TABASCO SAUCE^1940^1
	;;PORK, GROUND FROZEN^199^1
	;;BRAN, UNPROCESSED^2006^1
	;;LIVER, BEEF, FRESH FROZEN^1310^1
	;;SAUSAGE, SMOKED^655^1
	;;HAM, COOKED, FRZ^221^1
	;;CHICKEN, FROZEN, BROILER OR FRYER, READY TO COOK^401^1
	;;BEEF, PATTIES, FRZ^2173^.187
	;;TUNA, CND, LIGHT, CHUNK STYLE^1955^1
	;;CRANBERRY-ORANGE SAUCE, CND, JELLIED OR STRAINED^1662^1
	;;GRAPES, CND, SEEDLESS, THOMPSON^1699^1
	;;PRUNES, DRIED, WHOLE, PITTED^1787^1
	;;PRUNES, DRIED, CND, WHOLE, STEWED^1786^1
	;;FRUIT SALAD, CND, JUICE PAK, DIET^1679^1