Routine: FHIPST9

FHIPST9	; HISC/NCA - Ingredient Items 1 ;5/1/95  12:28

	;;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

ITEMS	;;

	;;ANTIOXIDANT COMPOUND^^1

	;;APPLES, DEHYD, SLICED^1616^1

	;;APPLESAUCE, CND, DIET^1622^1

	;;APPLESAUCE, CND, SWEETENED^1623^1

	;;APRICOT PUREE, DIETETIC^6446^1

	;;APRICOT HALVES, CND, SYRUP  PAK^1628^1

	;;APRICOT HALVES, CND, WATER PAK^1625^1

	;;APRICOTS, WHOLE, CND, SYRUP PAK^1628^1

	;;ASPARAGUS SPEARS, CND, GREEN, DIET^670^1

	;;BAKING POWDER, DIET, LO NA^682^1

	;;BAKING POWDER, REG^680^1

	;;BAKING SODA, REG^3071^1

	;;BAMBOO SHOOTS, CND^2027^1

	;;BEAN SPROUTS, CND^2082^1

	;;BEANS, BLACK-EYED, DRY^2267^1

	;;BEANS, FRENCH CUT GREEN, FROZEN^718^1

	;;BEANS, LIMA, FROZEN^706^1

	;;BEANS, PINTO, DRY^2272^1

	;;BEANS, CND, W/PORK IN TOM SAUCE^692^1

	;;BEEF STEW, CND, R-T-S^769^1

	;;CHIPPED BEEF W/WHITE SAUCE, CND, R-T-S^774^1

	;;BEEF, GROUND, FROZEN^2167^1

	;;BEETS, CND, SLICED, DIET, LO NA^782^1

	;;BISCUIT MIX^804^1

	;;BLUE CHEESE DRESSING, IND^393^.055

	;;BLUEBERRIES, CND, WHOLE, UNSW, WATER PAK^1641^1

	;;BOUILLON, BEEF, CUBES^513^.008

	;;BOUILLON, BEEF, DIET, LO NA^6638^1

	;;BOUILLON, CHICKEN, DIET, LO NA^6637^1

	;;BREAD, WHITE, CND, WHEAT STARCH, DIET (LO PRO)^6506^1

	;;BROWN SAUCE, BEAD MOLASSES^6090^11.288

	;;BROWNIE MIX, CHOCOLATE (FUDGE)^2679^1

	;;BUTTER, SALTED^1^.011

	;;CAKE MIX, ANGEL FOOD^2685^1

	;;CAKE MIX, DEVILS FOOD^2688^1

	;;CAKE MIX, POUND^^1

	;;CAKE MIX, SPICE^2690^1

	;;CAKE MIX, WHITE^2692^1

	;;CAKE MIX, YELLOW^2693^1

	;;CANDY, HARD^925^.013

	;;CARROTS, CND, SLICED OR DICED^939^1

	;;CATSUP, TOMATO, DIET, IND^1939^.013

	;;CATSUP, TOMATO, IND^1938^.013

	;;CELERY SALT^^1

	;;CEREAL, BRAN FLAKES, 40% BRAN, IND^1114^.062

	;;CEREAL, BRAN FLAKES, RAISIN BRAN, IND^1136^.078

	;;CEREAL, CORN FLAKES, SUGAR COATED, IND^1143^.062

	;;CEREAL, CORN FLAKES, IND^1108^.047

	;;CEREAL, PRODUCT 19, IND^1135^.051

	;;CEREAL, CHEERIOS, IND^2714^.047

	;;CEREAL, SPECIAL K, IND^1141^.039

	;;CEREAL, RICE KRISPIES, IND^1139^.039

	;;CEREAL, PUFFED RICE, IND^1191^.051

	;;CEREAL, ROLLED OATS, INSTANT, IND^1172^.062

	;;CEREAL, ROLLED OATS, QUICK-COOKING^1171^1

	;;CEREAL, ROLLED WHEAT, QUICK-COOKING^1188^1

	;;CEREAL, RYE, ROLLED OR FLAKE, QUICK-COOKING^1187^1

	;;CEREAL, SHREDDED WHEAT BISCUIT, MINI, IND^1184^.055

	;;CEREAL, TOTAL, IND^1150^.039

	;;CEREAL, WHEATIES, IND^1155^.062

	;;CEREAL, WHEAT, FARINA, QUICK-COOK, DIET, LO NA^1167^1

	;;CEREAL, PUFFED WHEAT, IND^1192^.055

	;;CEREAL, SUGAR SMACKS^1144^.055

	;;CEREAL, WHOLE WHEAT MEAL, (WHEATENA), QUIK-COOK^1180^1

	;;CEREAL, WHOLE WHEAT MEAL, REGULAR-COOK^1181^1

	;;CHEESE SAUCE, R-T-S^535^1

	;;CHEESE, LOW SODIUM^6433^1

	;;CHEESE, PARMESAN, GRATED, IND^32^.013

	;;CHEESE, GRATED, PARMESAN, BULK^32^1

	;;CHERRIES, CND, DK SWEET, PITTED, SYRUP-PAK^1656^1

	;;CHERRIES, CND, DK SWEET, PITTED, WATER-PAK^1653^1

	;;CHERRIES, CND, LT SWEET, UNPITTED, SYRUP-PAK^1656^1

	;;CHERRIES, CND, LT SWEET, PITTED, WATER PAK^1653^1

	;;CHERRIES, MARASCHINO, WHOLE, W/O STEMS^962^8.27

	;;CHICKEN, CND, BONED, DICED^473^1

	;;CHILI CON CARNE, CND, W/BEANS^967^1

	;;CHILI POWDER^267^1

	;;CHILI SAUCE, DIET LO NA^1941^9.63

	;;CHOCOLATE CHIPS, SEMISWEET^974^1

	;;CHOCOLATE, COOKING, UNSWEETENED^974^1

	;;CINNAMON, GROUND^268^1

	;;COCOA BEVERAGE POWDER, INSTANT, IND^985^.062

	;;COCOA BEVERAGE POWDER, INSTANT, BULK^985^1

	;;COCONUT OIL^366^7.69

	;;COCONUT, PREPARED, SWEETENED, FLAKED^2847^1

	;;COFFEE EXTENDER^2217^1

	;;COFFEE, INSTANT, DECAF, IND^2213^.004

	;;COOKIES, VANILLA WAFER^1024^1

	;;CORN BREAD MIX^1055^1

	;;CORN MEAL, YELLOW, COARSE^2763^1

	;;CORN MEAL, YELLOW, FINE^2763^1

	;;CORN OIL^391^7.69

	;;CRACKERS, CHEESE, W/ PEANUT BUTTER, IND^1079^.077

	;;CRACKERS, GRAHAM, IND^1076^.031

	;;CRACKERS, GRAHAM, BULK^1076^1

	;;CRACKERS, SODA, PLAIN, DIET LO NA, BULK^6423^1

	;;CRACKERS, SODA, SALTED, IND^1080^.007

	;;CRANBERRY JUICE COCKTAIL, DIET^2223^8.353

	;;CREAMER, NONDAIRY, POWDER, BULK^67^.007

	;;CUSTARD MIX, EGG, INSTANT^1540^1

	;;DAIRY DRINK MIX, INSTANT BREAKFAST, IND^6461^.007

	;;DATES, WHOLE, PITTED^1666^1

	;;DESSERT POWDER, GELATIN, ORANGE^1230^1

	;;DESSERT POWDER, GELATIN, LIME, DIET^6408^.265

	;;DESSERT POWDER, GELATIN, ASSORTED, DIET^6408^.265

	;;DESSERT POWDER, GELATIN, CHERRY^1230^1

	;;DESSERT POWDER, GELATIN, RASPBERRY^1230^1

	;;DESSERT POWDER, GELATIN, STRAWBERRY^1230^1

	;;DESSERT POWDER, PUDDING, BUTTERSCOTCH^6616^1

	;;DESSERT POWDER, PUDDING, CHOCOLATE^6617^1

	;;DESSERT POWDER, PUDDING, LEMON^6618^1

	;;DESSERT POWDER, PUDDING, VANILLA^6620^1

	;;FRENCH DRESSING MIX^^1

	;;FRENCH DRESSING, IND^382^.055

	;;FRENCH DRESSING, BULK^382^8.819

	;;FRENCH DRESSING, DIET, IND^386^.055

	;;FRUIT COCKTAIL, CND, SYRUP-PAK^1677^1

	;;FRUIT COCKTAIL, CND, WATER PAK, DIET^1674^1

FHIPST9   ; HISC/NCA - Ingredient Items 1 ;5/1/95  12:28

 +1       ;;5.0;Dietetics;;Oct 11, 1995

 +2        FOR I=1:1

               SET A=$PIECE($TEXT(ITEMS+I),";",3,99)

               IF A=""

                   QUIT

               IF $PIECE(A,"^",2)

                   SET ^TMP($JOB,"FHING",CTR)=A

                   SET CTR=CTR+1

 +3        QUIT

ITEMS     ;;

 +1       ;;ANTIOXIDANT COMPOUND^^1

 +2       ;;APPLES, DEHYD, SLICED^1616^1

 +3       ;;APPLESAUCE, CND, DIET^1622^1

 +4       ;;APPLESAUCE, CND, SWEETENED^1623^1

 +5       ;;APRICOT PUREE, DIETETIC^6446^1

 +6       ;;APRICOT HALVES, CND, SYRUP  PAK^1628^1

 +7       ;;APRICOT HALVES, CND, WATER PAK^1625^1

 +8       ;;APRICOTS, WHOLE, CND, SYRUP PAK^1628^1

 +9       ;;ASPARAGUS SPEARS, CND, GREEN, DIET^670^1

 +10      ;;BAKING POWDER, DIET, LO NA^682^1

 +11      ;;BAKING POWDER, REG^680^1

 +12      ;;BAKING SODA, REG^3071^1

 +13      ;;BAMBOO SHOOTS, CND^2027^1

 +14      ;;BEAN SPROUTS, CND^2082^1

 +15      ;;BEANS, BLACK-EYED, DRY^2267^1

 +16      ;;BEANS, FRENCH CUT GREEN, FROZEN^718^1

 +17      ;;BEANS, LIMA, FROZEN^706^1

 +18      ;;BEANS, PINTO, DRY^2272^1

 +19      ;;BEANS, CND, W/PORK IN TOM SAUCE^692^1

 +20      ;;BEEF STEW, CND, R-T-S^769^1

 +21      ;;CHIPPED BEEF W/WHITE SAUCE, CND, R-T-S^774^1

 +22      ;;BEEF, GROUND, FROZEN^2167^1

 +23      ;;BEETS, CND, SLICED, DIET, LO NA^782^1

 +24      ;;BISCUIT MIX^804^1

 +25      ;;BLUE CHEESE DRESSING, IND^393^.055

 +26      ;;BLUEBERRIES, CND, WHOLE, UNSW, WATER PAK^1641^1

 +27      ;;BOUILLON, BEEF, CUBES^513^.008

 +28      ;;BOUILLON, BEEF, DIET, LO NA^6638^1

 +29      ;;BOUILLON, CHICKEN, DIET, LO NA^6637^1

 +30      ;;BREAD, WHITE, CND, WHEAT STARCH, DIET (LO PRO)^6506^1

 +31      ;;BROWN SAUCE, BEAD MOLASSES^6090^11.288

 +32      ;;BROWNIE MIX, CHOCOLATE (FUDGE)^2679^1

 +33      ;;BUTTER, SALTED^1^.011

 +34      ;;CAKE MIX, ANGEL FOOD^2685^1

 +35      ;;CAKE MIX, DEVILS FOOD^2688^1

 +36      ;;CAKE MIX, POUND^^1

 +37      ;;CAKE MIX, SPICE^2690^1

 +38      ;;CAKE MIX, WHITE^2692^1

 +39      ;;CAKE MIX, YELLOW^2693^1

 +40      ;;CANDY, HARD^925^.013

 +41      ;;CARROTS, CND, SLICED OR DICED^939^1

 +42      ;;CATSUP, TOMATO, DIET, IND^1939^.013

 +43      ;;CATSUP, TOMATO, IND^1938^.013

 +44      ;;CELERY SALT^^1

 +45      ;;CEREAL, BRAN FLAKES, 40% BRAN, IND^1114^.062

 +46      ;;CEREAL, BRAN FLAKES, RAISIN BRAN, IND^1136^.078

 +47      ;;CEREAL, CORN FLAKES, SUGAR COATED, IND^1143^.062

 +48      ;;CEREAL, CORN FLAKES, IND^1108^.047

 +49      ;;CEREAL, PRODUCT 19, IND^1135^.051

 +50      ;;CEREAL, CHEERIOS, IND^2714^.047

 +51      ;;CEREAL, SPECIAL K, IND^1141^.039

 +52      ;;CEREAL, RICE KRISPIES, IND^1139^.039

 +53      ;;CEREAL, PUFFED RICE, IND^1191^.051

 +54      ;;CEREAL, ROLLED OATS, INSTANT, IND^1172^.062

 +55      ;;CEREAL, ROLLED OATS, QUICK-COOKING^1171^1

 +56      ;;CEREAL, ROLLED WHEAT, QUICK-COOKING^1188^1

 +57      ;;CEREAL, RYE, ROLLED OR FLAKE, QUICK-COOKING^1187^1

 +58      ;;CEREAL, SHREDDED WHEAT BISCUIT, MINI, IND^1184^.055

 +59      ;;CEREAL, TOTAL, IND^1150^.039

 +60      ;;CEREAL, WHEATIES, IND^1155^.062

 +61      ;;CEREAL, WHEAT, FARINA, QUICK-COOK, DIET, LO NA^1167^1

 +62      ;;CEREAL, PUFFED WHEAT, IND^1192^.055

 +63      ;;CEREAL, SUGAR SMACKS^1144^.055

 +64      ;;CEREAL, WHOLE WHEAT MEAL, (WHEATENA), QUIK-COOK^1180^1

 +65      ;;CEREAL, WHOLE WHEAT MEAL, REGULAR-COOK^1181^1

 +66      ;;CHEESE SAUCE, R-T-S^535^1

 +67      ;;CHEESE, LOW SODIUM^6433^1

 +68      ;;CHEESE, PARMESAN, GRATED, IND^32^.013

 +69      ;;CHEESE, GRATED, PARMESAN, BULK^32^1

 +70      ;;CHERRIES, CND, DK SWEET, PITTED, SYRUP-PAK^1656^1

 +71      ;;CHERRIES, CND, DK SWEET, PITTED, WATER-PAK^1653^1

 +72      ;;CHERRIES, CND, LT SWEET, UNPITTED, SYRUP-PAK^1656^1

 +73      ;;CHERRIES, CND, LT SWEET, PITTED, WATER PAK^1653^1

 +74      ;;CHERRIES, MARASCHINO, WHOLE, W/O STEMS^962^8.27

 +75      ;;CHICKEN, CND, BONED, DICED^473^1

 +76      ;;CHILI CON CARNE, CND, W/BEANS^967^1

 +77      ;;CHILI POWDER^267^1

 +78      ;;CHILI SAUCE, DIET LO NA^1941^9.63

 +79      ;;CHOCOLATE CHIPS, SEMISWEET^974^1

 +80      ;;CHOCOLATE, COOKING, UNSWEETENED^974^1

 +81      ;;CINNAMON, GROUND^268^1

 +82      ;;COCOA BEVERAGE POWDER, INSTANT, IND^985^.062

 +83      ;;COCOA BEVERAGE POWDER, INSTANT, BULK^985^1

 +84      ;;COCONUT OIL^366^7.69

 +85      ;;COCONUT, PREPARED, SWEETENED, FLAKED^2847^1

 +86      ;;COFFEE EXTENDER^2217^1

 +87      ;;COFFEE, INSTANT, DECAF, IND^2213^.004

 +88      ;;COOKIES, VANILLA WAFER^1024^1

 +89      ;;CORN BREAD MIX^1055^1

 +90      ;;CORN MEAL, YELLOW, COARSE^2763^1

 +91      ;;CORN MEAL, YELLOW, FINE^2763^1

 +92      ;;CORN OIL^391^7.69

 +93      ;;CRACKERS, CHEESE, W/ PEANUT BUTTER, IND^1079^.077

 +94      ;;CRACKERS, GRAHAM, IND^1076^.031

 +95      ;;CRACKERS, GRAHAM, BULK^1076^1

 +96      ;;CRACKERS, SODA, PLAIN, DIET LO NA, BULK^6423^1

 +97      ;;CRACKERS, SODA, SALTED, IND^1080^.007

 +98      ;;CRANBERRY JUICE COCKTAIL, DIET^2223^8.353

 +99      ;;CREAMER, NONDAIRY, POWDER, BULK^67^.007

 +100     ;;CUSTARD MIX, EGG, INSTANT^1540^1

 +101     ;;DAIRY DRINK MIX, INSTANT BREAKFAST, IND^6461^.007

 +102     ;;DATES, WHOLE, PITTED^1666^1

 +103     ;;DESSERT POWDER, GELATIN, ORANGE^1230^1

 +104     ;;DESSERT POWDER, GELATIN, LIME, DIET^6408^.265

 +105     ;;DESSERT POWDER, GELATIN, ASSORTED, DIET^6408^.265

 +106     ;;DESSERT POWDER, GELATIN, CHERRY^1230^1

 +107     ;;DESSERT POWDER, GELATIN, RASPBERRY^1230^1

 +108     ;;DESSERT POWDER, GELATIN, STRAWBERRY^1230^1

 +109     ;;DESSERT POWDER, PUDDING, BUTTERSCOTCH^6616^1

 +110     ;;DESSERT POWDER, PUDDING, CHOCOLATE^6617^1

 +111     ;;DESSERT POWDER, PUDDING, LEMON^6618^1

 +112     ;;DESSERT POWDER, PUDDING, VANILLA^6620^1

 +113     ;;FRENCH DRESSING MIX^^1

 +114     ;;FRENCH DRESSING, IND^382^.055

 +115     ;;FRENCH DRESSING, BULK^382^8.819

 +116     ;;FRENCH DRESSING, DIET, IND^386^.055

 +117     ;;FRUIT COCKTAIL, CND, SYRUP-PAK^1677^1

 +118     ;;FRUIT COCKTAIL, CND, WATER PAK, DIET^1674^1

FHIPST9.m