FHIPST13 ; HISC/NCA - Ingredient Items 5 ;5/1/95 12:11
;;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 ;;
;;PORK CHOPS, BONELESS^161^1
;;TAMALES, BEEF, CND, W/CHILI GRAVY^^1
;;PUDDING, CND, RICE^^1
;;SOUP, COND, FRENCH ONION^564^8.501
;;SOUP, COND, MINESTRONE^560^8.501
;;SOUP, COND, CREAM OF CELERY^547^8.607
;;SOUP, COND, CHICKEN-VEGETABLE^555^8.501
;;COLESLAW DRESSING^^8.5
;;ICING MIX, WHITE CREAM^893^1
;;CHICKEN/VEGETABLES, CND, CHOW MEIN^980^1
;;POTATO CHIPS, IND^1529^.094
;;CREAMER, NONDAIRY, POWDER IND^67^.062
;;VANILLA, IMITATION FLAVOR^^8
;;MUSHROOMS, CND, WHOLE, DIET LO NA^2022^1
;;STARCH, TAPIOCA^^1
;;MACARONI, ELBOW ENRICHED^1318^1
;;MUFFIN MIX, DATE^^1
;;WALNUTS, ENGLISH, SHELLED^1993^1
;;JELLY, APPLE, BULK^1264^1
;;JELLY, GRAPE, BULK^1264^1
;;SOY SAUCE^3025^8.184
;;PEPPER, RED, GROUND^289^1
;;LARD^350^1
;;PEAS, CND, DIET, LO NA^1418^1
;;CARROT PUREE^6449^1
;;BEET PUREE^6448^1
;;CRANBERRY SAUCE, CND, WHOLE^1661^1
;;CRANBERRY SAUCE, CND, JELLIED OR STRAINED^1661^1
;;BEANS, KIDNEY, CND, IN BRINE^2645^1
;;JUICE, VEGETABLE, CND^1976^8.536
;;MUSHROOMS, CND, PIECES^1346^1
;;JUICE, PRUNE, CND, UNSW^1790^9.03
;;JUICE, ORANGE, FROZEN, CONC, UNSW^1733^8.776
;;SPAGHETTI, REGULAR COOKING^1857^1
;;JAM, APRICOT^1262^1
;;TOMATOES, CND, DIET^1935^1
;;CHERRIES, CND, LT SWEET, UNPITTED, WATER-PAK^1653^1
;;CARROTS, CND, SLICED OR DICED, DIET, LO NA^941^1
;;FRUIT SALAD, CND, WATER PAK, DIET^1678^1
;;GREEN BEAN PUREE, DIET LO NA^6451^1
;;CORN, CND, WHOLE GRAIN, DIET LO NA^1038^1
;;SUSTACAL, VANILLA, BULK^6003^2.116
;;SQUASH, FROZEN, MASHED^1901^1
;;CHOWCHOW, SWEET^1443^8.642
;;APPLE RINGS, SPICED, UNPEELED, SYRUP PAK^^.022
;;PAPAYA, CND, SYRUP-PAK^^1
;;ASPARAGUS PUREE, GREEN, DIET^6447^1
;;PEPPERS, GREEN, CND, HALVED, BELL^2053^1
;;CORN PUREE, DIET LOW SODIUM^6450^1
;;SOUP, COND, BEEF WITH BARLEY^^8.6
;;CEREAL, CREAM OF RICE, QUIK-COOK^1161^1
;;CAKE MIX, CHOCOLATE^2686^1
;;MEAT TENDERIZER^^1
;;PIE FILLING, INSTANT, CHEESE CAKE MIX^^1
;;CEREAL, CORN FLAKES, LOW SODIUM, IND^1109^.04
;;EGGNOG MIX, DRY^2224^1
;;GREENS, KALE, CND, CHOPPED^1269^1
;;MERITENE, EGGNOG, BULK^6013^1
;;GREENS, TURNIP, FROZEN^1967^1
;;FRUIT SALAD, CND, SYRUP-PAK^1681^1
;;GARLIC PASTE, PURE^^1
;;SOY SAUCE, IND^3025^.009
;;CRACKERS, SODA, SALTED, BULK^1080^1
;;SOUP AND GRAVY BASE, HAM^^1
;;MAYONNAISE, IND^360^.055
;;BEANS, LIMA, DRY^697^1
;;PEAS, DRY, SPLIT, GREEN^1425^1
;;JUICE, GRAPEFRUIT, CND^1693^8.804
;;SAUERKRAUT, CND^1604^1
;;CATSUP, TOMATO, BULK^1938^1
;;BEANS, KIDNEY, DRY^2644^1
;;JUICE, APRICOT AND ORANGE, CND^1387^8.804
;;JAM, STRAWBERRY, IND^1263^.031
;;POPCORN, YELLOW^1499^1
;;BARBECUE SAUCE, REGULAR FLAVOR^523^8.819
;;CRABAPPLES, SPICED, CANNED, WHOLE, SYRUP-PAK^^1
;;BANANA PULP, MASHED^1635^1
;;BEETS, CND, DICED^780^1
;;GRAPEFRUIT AND ORANGES, CND, SYRUP-PAK^^1
;;SALAD DRESSING, MAYO-TYPE, IND^354^.050
;;CEREAL, ROLLED OATS, REGULAR-COOKING^1171^1
;;BEANS, WHITE, DRY, GREAT NORTHERN^2269^1
;;SAUCE FOR MEAT, (A-1)^^8.53
;;PEACHES, FROZEN, SLICED^1755^1
;;PLUMS, CND, GREEN GAGE^^1
;;BEANS, CUT GREEN, DIET, CND^717^1
;;BEANS, CUT GREEN, CND^715^1
;;BEANS, LIMA, CND^700^1
;;BEANS, LIMA, CND, DIET^702^1
;;TOMATO PUREE^1950^1
;;VINEGAR, CIDER^1986^8.466
;;SOUP, COND, SPLIT GREEN PEA W/HAM^568^8.924
;;SOUP, COND, NAVY BEAN^544^8.924
;;DESSERT POWDER, PUDDING, STRAWBERRY^^1
;;CLAMS, CND, MINCED^982^1
;;POLYCOSE, UNFLAVORED^6421^.265
;;CHICKEN BREAST, FROZEN, READY-TO-COOK^423^1
;;CHERRIES, MARASCHINO, HALVES^962^8.27
;;SPINACH, FROZEN, CHOPPED^1871^1
;;CITROTEIN, ORANGE^6031^1
;;STRAWBERRIES, FROZEN, WHOLE, UNSW^1804^1
;;CEREAL, ASSORTED, IND^^.062
;;JUICE, APPLE, FROZEN, UNSW, IND^1818^.264
;;CRANBERRY JUICE COCKTAIL, FROZEN, UNSW, IND^2261^.275
;;PORK PUREE, W/SALT ADDED^^1
;;PANCAKE MIX, BLUEBERRY^^1
;;DESSERT POWDER, PUDDING, TAPIOCA^1923^1
;;SUSTACAL, VANILLA, IND^6003^.522
;;PINEAPPLE, CND, CHUNKS, SYRUP-PAK^1773^1
;;CRANBERRY SAUCE, CND, JELLIED, DIET IND^^.066
;;PIE FILLING, INSTANT, VANILLA CREME^^1
;;BEANS, SMALL, RED, DRY^695^1
;;CHEESE, SWISS, SLICES^40^.066
;;PINEAPPLE, CND, SLICED, SYRUP-PAK^1772^1
;;PIE FILLING, CHERRY^^1
;;PIE FILLING, BLUEBERRY^^1
;;TURKEY PUREE, W/SALT^6477^1
;;JUICE, PRUNE, FROZEN, CONC, UNSW^1790^9.03
;;HAM PUREE, SALTED^^1
;;AMIN-AID, ORANGE^6135^.325
;;MARGARINE, CORN OIL, UNSALTED, STICK^371^1
;;CRANBERRY JUICE COCKTAIL, SWEETENED, IND^1660^.279
;;JUICE, VEGETABLE, CND, IND^1976^.401
;;PUDDING, CND, BANANA^6614^1
;;FLOUR, GENERAL PURPOSE^1998^1
;;CRACKERS, OYSTER, SALTED, IND^^.018
FHIPST13 ; HISC/NCA - Ingredient Items 5 ;5/1/95 12:11
+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 ;;PORK CHOPS, BONELESS^161^1
+2 ;;TAMALES, BEEF, CND, W/CHILI GRAVY^^1
+3 ;;PUDDING, CND, RICE^^1
+4 ;;SOUP, COND, FRENCH ONION^564^8.501
+5 ;;SOUP, COND, MINESTRONE^560^8.501
+6 ;;SOUP, COND, CREAM OF CELERY^547^8.607
+7 ;;SOUP, COND, CHICKEN-VEGETABLE^555^8.501
+8 ;;COLESLAW DRESSING^^8.5
+9 ;;ICING MIX, WHITE CREAM^893^1
+10 ;;CHICKEN/VEGETABLES, CND, CHOW MEIN^980^1
+11 ;;POTATO CHIPS, IND^1529^.094
+12 ;;CREAMER, NONDAIRY, POWDER IND^67^.062
+13 ;;VANILLA, IMITATION FLAVOR^^8
+14 ;;MUSHROOMS, CND, WHOLE, DIET LO NA^2022^1
+15 ;;STARCH, TAPIOCA^^1
+16 ;;MACARONI, ELBOW ENRICHED^1318^1
+17 ;;MUFFIN MIX, DATE^^1
+18 ;;WALNUTS, ENGLISH, SHELLED^1993^1
+19 ;;JELLY, APPLE, BULK^1264^1
+20 ;;JELLY, GRAPE, BULK^1264^1
+21 ;;SOY SAUCE^3025^8.184
+22 ;;PEPPER, RED, GROUND^289^1
+23 ;;LARD^350^1
+24 ;;PEAS, CND, DIET, LO NA^1418^1
+25 ;;CARROT PUREE^6449^1
+26 ;;BEET PUREE^6448^1
+27 ;;CRANBERRY SAUCE, CND, WHOLE^1661^1
+28 ;;CRANBERRY SAUCE, CND, JELLIED OR STRAINED^1661^1
+29 ;;BEANS, KIDNEY, CND, IN BRINE^2645^1
+30 ;;JUICE, VEGETABLE, CND^1976^8.536
+31 ;;MUSHROOMS, CND, PIECES^1346^1
+32 ;;JUICE, PRUNE, CND, UNSW^1790^9.03
+33 ;;JUICE, ORANGE, FROZEN, CONC, UNSW^1733^8.776
+34 ;;SPAGHETTI, REGULAR COOKING^1857^1
+35 ;;JAM, APRICOT^1262^1
+36 ;;TOMATOES, CND, DIET^1935^1
+37 ;;CHERRIES, CND, LT SWEET, UNPITTED, WATER-PAK^1653^1
+38 ;;CARROTS, CND, SLICED OR DICED, DIET, LO NA^941^1
+39 ;;FRUIT SALAD, CND, WATER PAK, DIET^1678^1
+40 ;;GREEN BEAN PUREE, DIET LO NA^6451^1
+41 ;;CORN, CND, WHOLE GRAIN, DIET LO NA^1038^1
+42 ;;SUSTACAL, VANILLA, BULK^6003^2.116
+43 ;;SQUASH, FROZEN, MASHED^1901^1
+44 ;;CHOWCHOW, SWEET^1443^8.642
+45 ;;APPLE RINGS, SPICED, UNPEELED, SYRUP PAK^^.022
+46 ;;PAPAYA, CND, SYRUP-PAK^^1
+47 ;;ASPARAGUS PUREE, GREEN, DIET^6447^1
+48 ;;PEPPERS, GREEN, CND, HALVED, BELL^2053^1
+49 ;;CORN PUREE, DIET LOW SODIUM^6450^1
+50 ;;SOUP, COND, BEEF WITH BARLEY^^8.6
+51 ;;CEREAL, CREAM OF RICE, QUIK-COOK^1161^1
+52 ;;CAKE MIX, CHOCOLATE^2686^1
+53 ;;MEAT TENDERIZER^^1
+54 ;;PIE FILLING, INSTANT, CHEESE CAKE MIX^^1
+55 ;;CEREAL, CORN FLAKES, LOW SODIUM, IND^1109^.04
+56 ;;EGGNOG MIX, DRY^2224^1
+57 ;;GREENS, KALE, CND, CHOPPED^1269^1
+58 ;;MERITENE, EGGNOG, BULK^6013^1
+59 ;;GREENS, TURNIP, FROZEN^1967^1
+60 ;;FRUIT SALAD, CND, SYRUP-PAK^1681^1
+61 ;;GARLIC PASTE, PURE^^1
+62 ;;SOY SAUCE, IND^3025^.009
+63 ;;CRACKERS, SODA, SALTED, BULK^1080^1
+64 ;;SOUP AND GRAVY BASE, HAM^^1
+65 ;;MAYONNAISE, IND^360^.055
+66 ;;BEANS, LIMA, DRY^697^1
+67 ;;PEAS, DRY, SPLIT, GREEN^1425^1
+68 ;;JUICE, GRAPEFRUIT, CND^1693^8.804
+69 ;;SAUERKRAUT, CND^1604^1
+70 ;;CATSUP, TOMATO, BULK^1938^1
+71 ;;BEANS, KIDNEY, DRY^2644^1
+72 ;;JUICE, APRICOT AND ORANGE, CND^1387^8.804
+73 ;;JAM, STRAWBERRY, IND^1263^.031
+74 ;;POPCORN, YELLOW^1499^1
+75 ;;BARBECUE SAUCE, REGULAR FLAVOR^523^8.819
+76 ;;CRABAPPLES, SPICED, CANNED, WHOLE, SYRUP-PAK^^1
+77 ;;BANANA PULP, MASHED^1635^1
+78 ;;BEETS, CND, DICED^780^1
+79 ;;GRAPEFRUIT AND ORANGES, CND, SYRUP-PAK^^1
+80 ;;SALAD DRESSING, MAYO-TYPE, IND^354^.050
+81 ;;CEREAL, ROLLED OATS, REGULAR-COOKING^1171^1
+82 ;;BEANS, WHITE, DRY, GREAT NORTHERN^2269^1
+83 ;;SAUCE FOR MEAT, (A-1)^^8.53
+84 ;;PEACHES, FROZEN, SLICED^1755^1
+85 ;;PLUMS, CND, GREEN GAGE^^1
+86 ;;BEANS, CUT GREEN, DIET, CND^717^1
+87 ;;BEANS, CUT GREEN, CND^715^1
+88 ;;BEANS, LIMA, CND^700^1
+89 ;;BEANS, LIMA, CND, DIET^702^1
+90 ;;TOMATO PUREE^1950^1
+91 ;;VINEGAR, CIDER^1986^8.466
+92 ;;SOUP, COND, SPLIT GREEN PEA W/HAM^568^8.924
+93 ;;SOUP, COND, NAVY BEAN^544^8.924
+94 ;;DESSERT POWDER, PUDDING, STRAWBERRY^^1
+95 ;;CLAMS, CND, MINCED^982^1
+96 ;;POLYCOSE, UNFLAVORED^6421^.265
+97 ;;CHICKEN BREAST, FROZEN, READY-TO-COOK^423^1
+98 ;;CHERRIES, MARASCHINO, HALVES^962^8.27
+99 ;;SPINACH, FROZEN, CHOPPED^1871^1
+100 ;;CITROTEIN, ORANGE^6031^1
+101 ;;STRAWBERRIES, FROZEN, WHOLE, UNSW^1804^1
+102 ;;CEREAL, ASSORTED, IND^^.062
+103 ;;JUICE, APPLE, FROZEN, UNSW, IND^1818^.264
+104 ;;CRANBERRY JUICE COCKTAIL, FROZEN, UNSW, IND^2261^.275
+105 ;;PORK PUREE, W/SALT ADDED^^1
+106 ;;PANCAKE MIX, BLUEBERRY^^1
+107 ;;DESSERT POWDER, PUDDING, TAPIOCA^1923^1
+108 ;;SUSTACAL, VANILLA, IND^6003^.522
+109 ;;PINEAPPLE, CND, CHUNKS, SYRUP-PAK^1773^1
+110 ;;CRANBERRY SAUCE, CND, JELLIED, DIET IND^^.066
+111 ;;PIE FILLING, INSTANT, VANILLA CREME^^1
+112 ;;BEANS, SMALL, RED, DRY^695^1
+113 ;;CHEESE, SWISS, SLICES^40^.066
+114 ;;PINEAPPLE, CND, SLICED, SYRUP-PAK^1772^1
+115 ;;PIE FILLING, CHERRY^^1
+116 ;;PIE FILLING, BLUEBERRY^^1
+117 ;;TURKEY PUREE, W/SALT^6477^1
+118 ;;JUICE, PRUNE, FROZEN, CONC, UNSW^1790^9.03
+119 ;;HAM PUREE, SALTED^^1
+120 ;;AMIN-AID, ORANGE^6135^.325
+121 ;;MARGARINE, CORN OIL, UNSALTED, STICK^371^1
+122 ;;CRANBERRY JUICE COCKTAIL, SWEETENED, IND^1660^.279
+123 ;;JUICE, VEGETABLE, CND, IND^1976^.401
+124 ;;PUDDING, CND, BANANA^6614^1
+125 ;;FLOUR, GENERAL PURPOSE^1998^1
+126 ;;CRACKERS, OYSTER, SALTED, IND^^.018