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

FHIPST12.m

Go to the documentation of this file. 
  1. FHIPST12	; HISC/NCA - Ingredient Items 4 ;5/1/95  12:13
  1. 	;;5.0;Dietetics;;Oct 11, 1995
  1. 	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
  1. 	Q
  1. ITEMS	;;
  1. 	;;APPLES, CND, SLICED, PEELED^1615^1
  1. 	;;POTATOES, WHITE, CND, DICED^1516^1
  1. 	;;SALAD OIL^2873^7.69
  1. 	;;CEREAL, BRAN SHRED (ALL BRAN), BULK^1102^1
  1. 	;;BEEF, CUBED STEAKS, FRZN^2125^1
  1. 	;;MILK, LOW SODIUM^86^1
  1. 	;;ASPARAGUS, CUT SPEARS, CND, GREEN^668^1
  1. 	;;MUSTARD, GROUND^^1
  1. 	;;NUTMEG, GROUND^283^1
  1. 	;;PAPRIKA, GROUND^286^1
  1. 	;;NECTAR, APRICOT, CND^1633^8.861
  1. 	;;BEANS, CUT WAX, CND^725^1
  1. 	;;COOKIES, SANDWICH, CREAM /WAFFLE WAFER, IND^1023^.042
  1. 	;;JUICE, PINEAPPLE, CND, UNSW, IND^1775^.414
  1. 	;;COCKTAIL SAUCE, IND^^.022
  1. 	;;APPLES, BKD SPICED, CND, WHOLE CORED W/SYRUP^^.265
  1. 	;;WORCESTERSHIRE SAUCE^6354^8
  1. 	;;POTATOES, WHITE, DEHYD, SLICED^^1
  1. 	;;CAKE, DESSERT SHELL, IND^872^.132
  1. 	;;CAKE MIX, LEMON GOLD^^1
  1. 	;;CEREAL, BRAN SHRED, (ALL BRAN), IND^1101^.078
  1. 	;;POTATO CHIPS, BULK^1529^1
  1. 	;;JUICE, ORANGE, CND, UNSW^1731^8.776
  1. 	;;BEANS, KIDNEY, CND, IN SWEET SAUCE^2645^1
  1. 	;;MACARONI WITH CHEESE SAUCE, CND^1323^1
  1. 	;;DESSERT POWDER, PUDDING, DUTCH CHOCOLATE^6617^1
  1. 	;;PEPPERS, GREEN, DEHYD, DICED^^1
  1. 	;;DESSERT POWDER, GELATIN, CHERRY^1230^1
  1. 	;;DESSERT POWDER, GELATIN, LEMON^1230^1
  1. 	;;DESSERT POWDER, GELATIN, LIME^1230^1
  1. 	;;DESSERT POWDER, GELATIN, ORANGE^1230^1
  1. 	;;DESSERT POWDER, GELATIN, RASPBERRY^1230^1
  1. 	;;DESSERT POWDER, GELATIN, STRAWBERRY^1230^1
  1. 	;;CEREAL, WHEAT, FARINA, QUIK-COOK^1167^1
  1. 	;;PEARS, SPICED, CND, WHOLE^^1
  1. 	;;JUICE, TOMATO, CND^1942^8.607
  1. 	;;CRANBERRY JUICE COCKTAIL, SWEETENED^1660^8.917
  1. 	;;PICKLING SPICES^^1
  1. 	;;COOKIES, CHOCOLATE AND VANILLA WAFER, IND^1024^.042
  1. 	;;CHILI SAUCE^1940^1
  1. 	;;CEREAL, RICE CHEX, IND^1138^.055
  1. 	;;RAISINS, SEEDLESS^1793^1
  1. 	;;TARTAR SAUCE^1924^8.113
  1. 	;;TOMATOES AND ZUCCHINI, CND^^1
  1. 	;;JUICE, GRAPE, CND, UNSW^1700^8.917
  1. 	;;BEETS, CND, SLICED^780^1
  1. 	;;MERITENE, CHOCOLATE, IND^6013^.522
  1. 	;;TOLEREX, UNFLAVORED^6146^.176
  1. 	;;GRAPEFRUIT, CND, SECTIONS, SYRUP-PAK^1691^1
  1. 	;;DOUGHNUT MIX, CAKE TYPE^1094^1
  1. 	;;MERITENE, PLAIN, BULK^6013^1
  1. 	;;CORN CHIPS, IND^6439^.094
  1. 	;;PUDDING, CND, BUTTERSCOTCH IND^6616^.331
  1. 	;;PUDDING, CND, CHOCOLATE IND^6617^.331
  1. 	;;VINEGAR, WHITE^1987^8.466
  1. 	;;COMPLEAT-B, MEAT BASE^6036^.589
  1. 	;;PRECISION LR, LEMON^6033^.176
  1. 	;;PRECISION LR, CHERRY^6033^.176
  1. 	;;ENSURE, VANILLA, IND^6029^.522
  1. 	;;PRECISION LR, ORANGE^6033^.176
  1. 	;;ENSURE, VANILLA, BULK, LIQ^6029^2.116
  1. 	;;VIVONEX-100HN, HIGH NITROGEN^6147^.177
  1. 	;;SOUP AND GRAVY BASE, ONION^2791^1
  1. 	;;PUDDING, CND, TAPIOCA^1923^1
  1. 	;;SOUP, COND, CHICKEN CONSOMME^2985^8.854
  1. 	;;PUDDING, CND, LEMON^6440^1
  1. 	;;VIVONEX-100, UNFLAVORED^6147^.177
  1. 	;;PORTAGEN, UNFLAVORED^^1
  1. 	;;RICE, INSTANT^1558^1
  1. 	;;PANCAKE MIX, DIET^^1
  1. 	;;CHOCOLATE SYRUP^975^1
  1. 	;;STARCH, WHEAT^6388^1
  1. 	;;PEANUT BUTTER, IND^1409^.081
  1. 	;;PEACHES, CND, SLICED, (FOR PIES)^1750^1
  1. 	;;PEAR PUREE, DIET^6554^1
  1. 	;;ORANGES, CND, SEGMENTS, SYRUP-PAK^^8
  1. 	;;DESSERT POWDER, GELATIN, RASPBERRY, DIET^6408^.265
  1. 	;;PICKLES, CUCUMBER, SWEET, SLICED, DIET^2897^1
  1. 	;;ICING MIX, CHOCOLATE^895^1
  1. 	;;CHEESE, AMERICAN, SHARP, BRICK^5^1
  1. 	;;FIGS, CND, KADOTA, WATER-PAK, DIET^1669^1
  1. 	;;SOUP, COND, BEAN WITH BACON^507^8.748
  1. 	;;SOUP, COND, TOMATO^541^8.748
  1. 	;;CLAM CHOWDER, COND, MANHATTAN STYLE^2995^8.854
  1. 	;;BLUE CHEESE DRESSING^393^8.642
  1. 	;;BEEF PUREE, W/ BEEF BROTH, DIET, LO NA^6473^1
  1. 	;;CHICKEN PUREE, W/CHICKEN BROTH, DIET LO NA^6474^1
  1. 	;;VEAL PUREE, DIET^6478^1
  1. 	;;PEA PUREE, DIET^6452^1
  1. 	;;SQUASH PUREE, DIET, LO NA^6456^1
  1. 	;;CLAM CHOWDER, COND, NEW ENGLAND STYLE^2994^8.854
  1. 	;;DESSERT POWDER, GELATIN, BLACK RASPBERRY, DIET^6408^.265
  1. 	;;BOUILLON, CHICKEN, CUBES^515^.011
  1. 	;;CHICKEN, FROZEN, QUARTERED, READY-TO-COOK^401^1
  1. 	;;CHICKEN LEG, FROZEN, READY-TO-COOK^437^1
  1. 	;;NUTRI-1000, CHOCOLATE^^.558
  1. 	;;LASAGNA WITH MEAT SAUCE, FROZEN, COOKED^6071^1
  1. 	;;JUICE, GRAPEFRUIT, CND, IND^1693^.413
  1. 	;;CORNED BEEF, CND^772^1
  1. 	;;SALT, IND^1598^.002
  1. 	;;SEAFOOD SAUCE, IND^^.031
  1. 	;;VEGETABLE PROTEIN MEAT SUBSTITUTE^^1
  1. 	;;ISOCAL, UNFLAVORED^6005^.522
  1. 	;;CEREAL, CREAM OF RICE, QUIK-COOK^1161^1
  1. 	;;RELISH, CORN, SWEET^^8.5
  1. 	;;JUICE, APPLE, CND^1809^8.748
  1. 	;;ASPARAGUS SPEARS, FROZEN GREEN^676^1
  1. 	;;SUSTAGEN, VANILLA^^1
  1. 	;;CHEESE, CHEDDAR AGED, HARD, BRICK^9^1
  1. 	;;CHEESE KRAFT PKG WITH CRACKERS, IND^6432^.07
  1. 	;;BACON, SLICED, CND, OVEN BROILED^213^.062
  1. 	;;SQUASH, FROZEN, SUMMER^1900^1
  1. 	;;BEANS, CUT WAX, FROZEN^728^1
  1. 	;;RELISH, PICKLE, SWEET^1445^8.642
  1. 	;;JUICE, PINEAPPLE, CND, UNSW^1775^8.833
  1. 	;;PEPPER, BLACK, GROUND, IND^288^.002
  1. 	;;CRANBERRY SAUCE, CND, JELLIED OR STRAINED^1661^1
  1. 	;;LIPOMUL-ORAL, VANILLA^^.525
  1. 	;;OYSTERS, CND^1390^1
  1. 	;;MUFFIN MIX, HONEY AND BRAN^^1
  1. 	;;CORN MEAL, WHITE, FINE^1057^1
  1. 	;;ONION SALT^^1
  1. 	;;PORK, HAM, FROZEN, UNCURED^199^1