Routine: FHIPST11

FHIPST11	; HISC/NCA - Ingredient Items 3 ;5/1/95  12:15

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

	;;STRAWBERRIES, FROZEN, SLICED W/SUGAR^1806^1

	;;SUGAR SUBSTITUTE, IND^6414^.004

	;;SUGAR SUBSTITUTE, LIQUID^^8

	;;SUGAR, BROWN^1905^1

	;;SUGAR, GRANULATED^1906^1

	;;SUGAR, POWDERED, CONFECT XXXX^1907^1

	;;SYRUP, CORN^1835^10.67

	;;SYRUP, MAPLE FLAVOR, IND^1833^.094

	;;SYRUP, DIET, IMIT MAPLE, BULK^6444^8.2

	;;SYRUP, MAPLE, DIET, IND^6444^.094

	;;TAPIOCA, QUICK COOK^1921^1

	;;TART SHELL, R-T-S, IND^1476^.132

	;;TEA, INDIVIDUAL BAGS^1926^.005

	;;TEA, INSTANT, BULK^1926^1

	;;THOUSAND ISLAND DRESSING, BULK^353^8.819

	;;THOUSAND ISLAND DRESSING, DIET, IND^1590^.055

	;;THOUSAND ISLAND DRESSING, IND^353^.055

	;;BEAN SALAD (3 BEAN), CND^^1

	;;TOMATO PASTE^1948^1

	;;TOMATO PUREE, DIET^1951^1

	;;TOMATO SAUCE^2069^1

	;;TOMATOES, CND^1932^1

	;;TOPPING MIX, DESSERT, POWDER^68^1

	;;VEGETABLES, CHINESE, CND^^1

	;;VEGETABLES, MIXED, CND^2077^1

	;;VEGETABLES, MIXED, FROZEN^1984^1

	;;VINEGAR DRESSING, DIET, IND^^.055

	;;WATER CHESTNUTS, WHOLE, WATER PACK^2078^1

	;;COFFEE, GROUND, DECAF, BULK^^1

	;;COFFEE, INSTANT, DECAF, BULK^2213^1

	;;COFFEE, INSTANT, REGULAR, BULK^995^1

	;;COFFEE, GROUND, BULK^2211^1

	;;SHORTENING COMPOUND, LIQUID, PAN COATING^^8

	;;SHORTENING COMPOUND, AEROSOL SPRAY^^1

	;;SHORTENING COMPOUND, BAKING^394^1

	;;SHORTENING COMPOUND, CAKE, LIQUID^^7.231

	;;SHORTENING COMPOUND, DEEP FRY, LIQUID^^8

	;;SHORTENING COMPOUND, GENERAL PURPOSE, SOLID^363^1

	;;SHORTENING COMPOUND, GRIDDLE FRY, LIQUID^^8

	;;PICKLES, CUCUMBER, SWEET, SLICED^1441^1

	;;PICKLES, CUCUMBER, DILL, WHOLE^1438^7.47

	;;PICKLES, CUCUMBER, DILL, SPEARS^1438^1

	;;BEVERAGE, CARBONATED, GINGER ALE, DIET, IND^^.807

	;;CRACKERS, SODA, PLAIN, DIET LO NA, IND^6423^.007

	;;MARGARINE, SALTED, BULK^372^1

	;;JUICE, TOMATO, CND, IND^1942^.401

	;;ITALIAN DRESSING, IND^381^.055

	;;BAKING MIX, DIET, LO PRO, LO NA (PAYGEL)^^1

	;;TARTAR SAUCE, IND^1924^.055

	;;DATES, DEHYD, WHOLE, PITTED, SUGAR-COATED^^1

	;;GARLIC JUICE^^8

	;;PEPPERS, RED, DEHY, DICED^1432^1

	;;SALAD DRESSING, SWEET-SOUR^^8.53

	;;PEPPERS, SWEET, CND, DICED, GREEN BELL^2053^1

	;;FLOUR, CAKE^2002^1

	;;MUFFIN MIX, PLAIN^^1

	;;CHILI STRIPS, GREEN, CND^1429^1

	;;FOOD COLORING, CARMEL^^8

	;;ORANGES, CND, MANDARIN, SYRUP-PAK^1737^1

	;;GRAPES, CND, SEEDLESS, THOMPSON, DIET, WP^1698^1

	;;MERITENE, CHOCOLATE, BULK POWDER^6014^1

	;;PEPPER, WHITE, GROUND^290^1

	;;MUFFIN MIX, CORN^^1

	;;RAVIOLI WITH CHEESE SAUCE, CND^^1

	;;POTATOES, SWEET, INSTANT^1918^1

	;;CEREAL, SHREDDED OAT BISCUIT, IND^1172^.062

	;;BEANS, CUT WAX, CND, DIET^727^1

	;;GREENS, TURNIP, CND, LEAFY AND CHOPPED^1966^1

	;;PEACHES, SPICED, CND, WHOLE^1751^1

	;;CORN, CND, GOLDEN, CREAM STYLE^1032^1

	;;PIE, CHERRY, FZN^1471^.214

	;;JUICE, PINEAPPLE, FROZEN, UNSW, IND^1776^.275

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

	;;SOUP, COND, CREAM OF MUSHROOM, DIET^^8.607

	;;SOUP, COND, CREAM OF TOMATO, DIET^^8.607

	;;MARGARINE, CORN OIL, UNSALTED, PATS^371^.011

	;;TUNA, CND, DIET^1956^1

	;;CAKE MIX, GOLDEN SPONGE^^1

	;;HOMINY GRITS, WHITE, QUICK COOK^1156^1

	;;POTATOES, SWEET, CND, DIET^2065^1

	;;GARLIC ITALIAN DRESSING, CREAMY, IND^^.055

	;;PRUNES, DEHYD^1787^1

	;;CHERRIES, CND, RED SOUR, PITTED, WATER PACK^1648^1

	;;BRUSSELS SPROUTS, FROZEN^840^1

	;;SPINACH, FROZEN, LEAF^1871^1

	;;CORN, FROZEN, GOLDEN, WHOLE KERNEL^1040^1

	;;PEAS, FROZEN^2049^1

	;;CEREAL, GRAPE-NUTS, IND^1118^.083

	;;PUMPKIN, CND^1542^1

	;;HOMINY, WHOLE, CND, WHITE^2797^1

	;;ONIONS, DEHYD, SLICED^1384^1

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

	;;BROCCOLI, FROZEN, SPEARS^836^1

	;;HASH, CORNED BEEF, CND, COOKED^773^1

	;;MERITENE, VANILLA, BULK POWDER^6014^1

	;;BEEF, BONELESS, FROZEN, TOP ROUND^2149^1

	;;SPINACH, CND^1867^1

	;;PEAS AND CARROTS, FROZEN^1426^1

	;;CHILI CON CARNE, CND, W/O BEANS^972^1

	;;FIGS, CND, KADOTA, SYRUP-PAK^1671^1

	;;RUSSIAN DRESSING, IND^351^.055

	;;LAMB PUREE, DIET, LOW NA^^1

	;;LIVER PUREE, DIET, LOW SODIUM^6476^1

	;;PORK PUREE, DIET, LO NA^^1

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

	;;EGG MIX, POWDER FORM^125^1

	;;CAULIFLOWER, FROZEN^948^1

	;;STARCH, CORN^1061^1

	;;CARROTS, FROZEN, SLICED^2038^1

	;;JUICE, ORANGE, FROZEN, UNSW, IND^1733^.274

	;;JUICE, GRAPE, FROZEN, UNSW, IND^1700^.279

	;;JUICE, GRAPEFRUIT, FROZEN, UNSW, IND^1694^.272

	;;CORN, FROZEN, ON COBS^1044^.139

	;;BARLEY, PEARL, WHITE^688^1

	;;CEREAL, WHEAT CHEX, IND^1152^.04

	;;PUDDING, CND, CHOCOLATE DIET, LO NA^^1

	;;PUDDING, CND, VANILLA, DIET, LO NA^^1

	;;JUICE, ORANGE, CND, UNSW, IND^1731^.411

	;;GEVRAL PROTEIN, CHERRY^^1

	;;BEEF, STEWING, FRZN RAW, DICED^2125^1

	;;VANILLA EXTRACT^^8

	;;CORN, CND, WHOLE GRAIN^1034^1

FHIPST11  ; HISC/NCA - Ingredient Items 3 ;5/1/95  12:15

 +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       ;;STRAWBERRIES, FROZEN, SLICED W/SUGAR^1806^1

 +2       ;;SUGAR SUBSTITUTE, IND^6414^.004

 +3       ;;SUGAR SUBSTITUTE, LIQUID^^8

 +4       ;;SUGAR, BROWN^1905^1

 +5       ;;SUGAR, GRANULATED^1906^1

 +6       ;;SUGAR, POWDERED, CONFECT XXXX^1907^1

 +7       ;;SYRUP, CORN^1835^10.67

 +8       ;;SYRUP, MAPLE FLAVOR, IND^1833^.094

 +9       ;;SYRUP, DIET, IMIT MAPLE, BULK^6444^8.2

 +10      ;;SYRUP, MAPLE, DIET, IND^6444^.094

 +11      ;;TAPIOCA, QUICK COOK^1921^1

 +12      ;;TART SHELL, R-T-S, IND^1476^.132

 +13      ;;TEA, INDIVIDUAL BAGS^1926^.005

 +14      ;;TEA, INSTANT, BULK^1926^1

 +15      ;;THOUSAND ISLAND DRESSING, BULK^353^8.819

 +16      ;;THOUSAND ISLAND DRESSING, DIET, IND^1590^.055

 +17      ;;THOUSAND ISLAND DRESSING, IND^353^.055

 +18      ;;BEAN SALAD (3 BEAN), CND^^1

 +19      ;;TOMATO PASTE^1948^1

 +20      ;;TOMATO PUREE, DIET^1951^1

 +21      ;;TOMATO SAUCE^2069^1

 +22      ;;TOMATOES, CND^1932^1

 +23      ;;TOPPING MIX, DESSERT, POWDER^68^1

 +24      ;;VEGETABLES, CHINESE, CND^^1

 +25      ;;VEGETABLES, MIXED, CND^2077^1

 +26      ;;VEGETABLES, MIXED, FROZEN^1984^1

 +27      ;;VINEGAR DRESSING, DIET, IND^^.055

 +28      ;;WATER CHESTNUTS, WHOLE, WATER PACK^2078^1

 +29      ;;COFFEE, GROUND, DECAF, BULK^^1

 +30      ;;COFFEE, INSTANT, DECAF, BULK^2213^1

 +31      ;;COFFEE, INSTANT, REGULAR, BULK^995^1

 +32      ;;COFFEE, GROUND, BULK^2211^1

 +33      ;;SHORTENING COMPOUND, LIQUID, PAN COATING^^8

 +34      ;;SHORTENING COMPOUND, AEROSOL SPRAY^^1

 +35      ;;SHORTENING COMPOUND, BAKING^394^1

 +36      ;;SHORTENING COMPOUND, CAKE, LIQUID^^7.231

 +37      ;;SHORTENING COMPOUND, DEEP FRY, LIQUID^^8

 +38      ;;SHORTENING COMPOUND, GENERAL PURPOSE, SOLID^363^1

 +39      ;;SHORTENING COMPOUND, GRIDDLE FRY, LIQUID^^8

 +40      ;;PICKLES, CUCUMBER, SWEET, SLICED^1441^1

 +41      ;;PICKLES, CUCUMBER, DILL, WHOLE^1438^7.47

 +42      ;;PICKLES, CUCUMBER, DILL, SPEARS^1438^1

 +43      ;;BEVERAGE, CARBONATED, GINGER ALE, DIET, IND^^.807

 +44      ;;CRACKERS, SODA, PLAIN, DIET LO NA, IND^6423^.007

 +45      ;;MARGARINE, SALTED, BULK^372^1

 +46      ;;JUICE, TOMATO, CND, IND^1942^.401

 +47      ;;ITALIAN DRESSING, IND^381^.055

 +48      ;;BAKING MIX, DIET, LO PRO, LO NA (PAYGEL)^^1

 +49      ;;TARTAR SAUCE, IND^1924^.055

 +50      ;;DATES, DEHYD, WHOLE, PITTED, SUGAR-COATED^^1

 +51      ;;GARLIC JUICE^^8

 +52      ;;PEPPERS, RED, DEHY, DICED^1432^1

 +53      ;;SALAD DRESSING, SWEET-SOUR^^8.53

 +54      ;;PEPPERS, SWEET, CND, DICED, GREEN BELL^2053^1

 +55      ;;FLOUR, CAKE^2002^1

 +56      ;;MUFFIN MIX, PLAIN^^1

 +57      ;;CHILI STRIPS, GREEN, CND^1429^1

 +58      ;;FOOD COLORING, CARMEL^^8

 +59      ;;ORANGES, CND, MANDARIN, SYRUP-PAK^1737^1

 +60      ;;GRAPES, CND, SEEDLESS, THOMPSON, DIET, WP^1698^1

 +61      ;;MERITENE, CHOCOLATE, BULK POWDER^6014^1

 +62      ;;PEPPER, WHITE, GROUND^290^1

 +63      ;;MUFFIN MIX, CORN^^1

 +64      ;;RAVIOLI WITH CHEESE SAUCE, CND^^1

 +65      ;;POTATOES, SWEET, INSTANT^1918^1

 +66      ;;CEREAL, SHREDDED OAT BISCUIT, IND^1172^.062

 +67      ;;BEANS, CUT WAX, CND, DIET^727^1

 +68      ;;GREENS, TURNIP, CND, LEAFY AND CHOPPED^1966^1

 +69      ;;PEACHES, SPICED, CND, WHOLE^1751^1

 +70      ;;CORN, CND, GOLDEN, CREAM STYLE^1032^1

 +71      ;;PIE, CHERRY, FZN^1471^.214

 +72      ;;JUICE, PINEAPPLE, FROZEN, UNSW, IND^1776^.275

 +73      ;;DESSERT POWDER, GELATIN, ORANGE DIET^6408^.265

 +74      ;;SOUP, COND, CREAM OF MUSHROOM, DIET^^8.607

 +75      ;;SOUP, COND, CREAM OF TOMATO, DIET^^8.607

 +76      ;;MARGARINE, CORN OIL, UNSALTED, PATS^371^.011

 +77      ;;TUNA, CND, DIET^1956^1

 +78      ;;CAKE MIX, GOLDEN SPONGE^^1

 +79      ;;HOMINY GRITS, WHITE, QUICK COOK^1156^1

 +80      ;;POTATOES, SWEET, CND, DIET^2065^1

 +81      ;;GARLIC ITALIAN DRESSING, CREAMY, IND^^.055

 +82      ;;PRUNES, DEHYD^1787^1

 +83      ;;CHERRIES, CND, RED SOUR, PITTED, WATER PACK^1648^1

 +84      ;;BRUSSELS SPROUTS, FROZEN^840^1

 +85      ;;SPINACH, FROZEN, LEAF^1871^1

 +86      ;;CORN, FROZEN, GOLDEN, WHOLE KERNEL^1040^1

 +87      ;;PEAS, FROZEN^2049^1

 +88      ;;CEREAL, GRAPE-NUTS, IND^1118^.083

 +89      ;;PUMPKIN, CND^1542^1

 +90      ;;HOMINY, WHOLE, CND, WHITE^2797^1

 +91      ;;ONIONS, DEHYD, SLICED^1384^1

 +92      ;;BEANS, CUT GREEN, FROZEN^718^1

 +93      ;;BROCCOLI, FROZEN, SPEARS^836^1

 +94      ;;HASH, CORNED BEEF, CND, COOKED^773^1

 +95      ;;MERITENE, VANILLA, BULK POWDER^6014^1

 +96      ;;BEEF, BONELESS, FROZEN, TOP ROUND^2149^1

 +97      ;;SPINACH, CND^1867^1

 +98      ;;PEAS AND CARROTS, FROZEN^1426^1

 +99      ;;CHILI CON CARNE, CND, W/O BEANS^972^1

 +100     ;;FIGS, CND, KADOTA, SYRUP-PAK^1671^1

 +101     ;;RUSSIAN DRESSING, IND^351^.055

 +102     ;;LAMB PUREE, DIET, LOW NA^^1

 +103     ;;LIVER PUREE, DIET, LOW SODIUM^6476^1

 +104     ;;PORK PUREE, DIET, LO NA^^1

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

 +106     ;;EGG MIX, POWDER FORM^125^1

 +107     ;;CAULIFLOWER, FROZEN^948^1

 +108     ;;STARCH, CORN^1061^1

 +109     ;;CARROTS, FROZEN, SLICED^2038^1

 +110     ;;JUICE, ORANGE, FROZEN, UNSW, IND^1733^.274

 +111     ;;JUICE, GRAPE, FROZEN, UNSW, IND^1700^.279

 +112     ;;JUICE, GRAPEFRUIT, FROZEN, UNSW, IND^1694^.272

 +113     ;;CORN, FROZEN, ON COBS^1044^.139

 +114     ;;BARLEY, PEARL, WHITE^688^1

 +115     ;;CEREAL, WHEAT CHEX, IND^1152^.04

 +116     ;;PUDDING, CND, CHOCOLATE DIET, LO NA^^1

 +117     ;;PUDDING, CND, VANILLA, DIET, LO NA^^1

 +118     ;;JUICE, ORANGE, CND, UNSW, IND^1731^.411

 +119     ;;GEVRAL PROTEIN, CHERRY^^1

 +120     ;;BEEF, STEWING, FRZN RAW, DICED^2125^1

 +121     ;;VANILLA EXTRACT^^8

 +122     ;;CORN, CND, WHOLE GRAIN^1034^1

FHIPST11.m