FHIPST12 ; HISC/NCA - Ingredient Items 4 ;5/1/95 12:13
;;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 ;;
;;APPLES, CND, SLICED, PEELED^1615^1
;;POTATOES, WHITE, CND, DICED^1516^1
;;SALAD OIL^2873^7.69
;;CEREAL, BRAN SHRED (ALL BRAN), BULK^1102^1
;;BEEF, CUBED STEAKS, FRZN^2125^1
;;MILK, LOW SODIUM^86^1
;;ASPARAGUS, CUT SPEARS, CND, GREEN^668^1
;;MUSTARD, GROUND^^1
;;NUTMEG, GROUND^283^1
;;PAPRIKA, GROUND^286^1
;;NECTAR, APRICOT, CND^1633^8.861
;;BEANS, CUT WAX, CND^725^1
;;COOKIES, SANDWICH, CREAM /WAFFLE WAFER, IND^1023^.042
;;JUICE, PINEAPPLE, CND, UNSW, IND^1775^.414
;;COCKTAIL SAUCE, IND^^.022
;;APPLES, BKD SPICED, CND, WHOLE CORED W/SYRUP^^.265
;;WORCESTERSHIRE SAUCE^6354^8
;;POTATOES, WHITE, DEHYD, SLICED^^1
;;CAKE, DESSERT SHELL, IND^872^.132
;;CAKE MIX, LEMON GOLD^^1
;;CEREAL, BRAN SHRED, (ALL BRAN), IND^1101^.078
;;POTATO CHIPS, BULK^1529^1
;;JUICE, ORANGE, CND, UNSW^1731^8.776
;;BEANS, KIDNEY, CND, IN SWEET SAUCE^2645^1
;;MACARONI WITH CHEESE SAUCE, CND^1323^1
;;DESSERT POWDER, PUDDING, DUTCH CHOCOLATE^6617^1
;;PEPPERS, GREEN, DEHYD, DICED^^1
;;DESSERT POWDER, GELATIN, CHERRY^1230^1
;;DESSERT POWDER, GELATIN, LEMON^1230^1
;;DESSERT POWDER, GELATIN, LIME^1230^1
;;DESSERT POWDER, GELATIN, ORANGE^1230^1
;;DESSERT POWDER, GELATIN, RASPBERRY^1230^1
;;DESSERT POWDER, GELATIN, STRAWBERRY^1230^1
;;CEREAL, WHEAT, FARINA, QUIK-COOK^1167^1
;;PEARS, SPICED, CND, WHOLE^^1
;;JUICE, TOMATO, CND^1942^8.607
;;CRANBERRY JUICE COCKTAIL, SWEETENED^1660^8.917
;;PICKLING SPICES^^1
;;COOKIES, CHOCOLATE AND VANILLA WAFER, IND^1024^.042
;;CHILI SAUCE^1940^1
;;CEREAL, RICE CHEX, IND^1138^.055
;;RAISINS, SEEDLESS^1793^1
;;TARTAR SAUCE^1924^8.113
;;TOMATOES AND ZUCCHINI, CND^^1
;;JUICE, GRAPE, CND, UNSW^1700^8.917
;;BEETS, CND, SLICED^780^1
;;MERITENE, CHOCOLATE, IND^6013^.522
;;TOLEREX, UNFLAVORED^6146^.176
;;GRAPEFRUIT, CND, SECTIONS, SYRUP-PAK^1691^1
;;DOUGHNUT MIX, CAKE TYPE^1094^1
;;MERITENE, PLAIN, BULK^6013^1
;;CORN CHIPS, IND^6439^.094
;;PUDDING, CND, BUTTERSCOTCH IND^6616^.331
;;PUDDING, CND, CHOCOLATE IND^6617^.331
;;VINEGAR, WHITE^1987^8.466
;;COMPLEAT-B, MEAT BASE^6036^.589
;;PRECISION LR, LEMON^6033^.176
;;PRECISION LR, CHERRY^6033^.176
;;ENSURE, VANILLA, IND^6029^.522
;;PRECISION LR, ORANGE^6033^.176
;;ENSURE, VANILLA, BULK, LIQ^6029^2.116
;;VIVONEX-100HN, HIGH NITROGEN^6147^.177
;;SOUP AND GRAVY BASE, ONION^2791^1
;;PUDDING, CND, TAPIOCA^1923^1
;;SOUP, COND, CHICKEN CONSOMME^2985^8.854
;;PUDDING, CND, LEMON^6440^1
;;VIVONEX-100, UNFLAVORED^6147^.177
;;PORTAGEN, UNFLAVORED^^1
;;RICE, INSTANT^1558^1
;;PANCAKE MIX, DIET^^1
;;CHOCOLATE SYRUP^975^1
;;STARCH, WHEAT^6388^1
;;PEANUT BUTTER, IND^1409^.081
;;PEACHES, CND, SLICED, (FOR PIES)^1750^1
;;PEAR PUREE, DIET^6554^1
;;ORANGES, CND, SEGMENTS, SYRUP-PAK^^8
;;DESSERT POWDER, GELATIN, RASPBERRY, DIET^6408^.265
;;PICKLES, CUCUMBER, SWEET, SLICED, DIET^2897^1
;;ICING MIX, CHOCOLATE^895^1
;;CHEESE, AMERICAN, SHARP, BRICK^5^1
;;FIGS, CND, KADOTA, WATER-PAK, DIET^1669^1
;;SOUP, COND, BEAN WITH BACON^507^8.748
;;SOUP, COND, TOMATO^541^8.748
;;CLAM CHOWDER, COND, MANHATTAN STYLE^2995^8.854
;;BLUE CHEESE DRESSING^393^8.642
;;BEEF PUREE, W/ BEEF BROTH, DIET, LO NA^6473^1
;;CHICKEN PUREE, W/CHICKEN BROTH, DIET LO NA^6474^1
;;VEAL PUREE, DIET^6478^1
;;PEA PUREE, DIET^6452^1
;;SQUASH PUREE, DIET, LO NA^6456^1
;;CLAM CHOWDER, COND, NEW ENGLAND STYLE^2994^8.854
;;DESSERT POWDER, GELATIN, BLACK RASPBERRY, DIET^6408^.265
;;BOUILLON, CHICKEN, CUBES^515^.011
;;CHICKEN, FROZEN, QUARTERED, READY-TO-COOK^401^1
;;CHICKEN LEG, FROZEN, READY-TO-COOK^437^1
;;NUTRI-1000, CHOCOLATE^^.558
;;LASAGNA WITH MEAT SAUCE, FROZEN, COOKED^6071^1
;;JUICE, GRAPEFRUIT, CND, IND^1693^.413
;;CORNED BEEF, CND^772^1
;;SALT, IND^1598^.002
;;SEAFOOD SAUCE, IND^^.031
;;VEGETABLE PROTEIN MEAT SUBSTITUTE^^1
;;ISOCAL, UNFLAVORED^6005^.522
;;CEREAL, CREAM OF RICE, QUIK-COOK^1161^1
;;RELISH, CORN, SWEET^^8.5
;;JUICE, APPLE, CND^1809^8.748
;;ASPARAGUS SPEARS, FROZEN GREEN^676^1
;;SUSTAGEN, VANILLA^^1
;;CHEESE, CHEDDAR AGED, HARD, BRICK^9^1
;;CHEESE KRAFT PKG WITH CRACKERS, IND^6432^.07
;;BACON, SLICED, CND, OVEN BROILED^213^.062
;;SQUASH, FROZEN, SUMMER^1900^1
;;BEANS, CUT WAX, FROZEN^728^1
;;RELISH, PICKLE, SWEET^1445^8.642
;;JUICE, PINEAPPLE, CND, UNSW^1775^8.833
;;PEPPER, BLACK, GROUND, IND^288^.002
;;CRANBERRY SAUCE, CND, JELLIED OR STRAINED^1661^1
;;LIPOMUL-ORAL, VANILLA^^.525
;;OYSTERS, CND^1390^1
;;MUFFIN MIX, HONEY AND BRAN^^1
;;CORN MEAL, WHITE, FINE^1057^1
;;ONION SALT^^1
;;PORK, HAM, FROZEN, UNCURED^199^1
FHIPST12 ; HISC/NCA - Ingredient Items 4 ;5/1/95 12:13
+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 ;;APPLES, CND, SLICED, PEELED^1615^1
+2 ;;POTATOES, WHITE, CND, DICED^1516^1
+3 ;;SALAD OIL^2873^7.69
+4 ;;CEREAL, BRAN SHRED (ALL BRAN), BULK^1102^1
+5 ;;BEEF, CUBED STEAKS, FRZN^2125^1
+6 ;;MILK, LOW SODIUM^86^1
+7 ;;ASPARAGUS, CUT SPEARS, CND, GREEN^668^1
+8 ;;MUSTARD, GROUND^^1
+9 ;;NUTMEG, GROUND^283^1
+10 ;;PAPRIKA, GROUND^286^1
+11 ;;NECTAR, APRICOT, CND^1633^8.861
+12 ;;BEANS, CUT WAX, CND^725^1
+13 ;;COOKIES, SANDWICH, CREAM /WAFFLE WAFER, IND^1023^.042
+14 ;;JUICE, PINEAPPLE, CND, UNSW, IND^1775^.414
+15 ;;COCKTAIL SAUCE, IND^^.022
+16 ;;APPLES, BKD SPICED, CND, WHOLE CORED W/SYRUP^^.265
+17 ;;WORCESTERSHIRE SAUCE^6354^8
+18 ;;POTATOES, WHITE, DEHYD, SLICED^^1
+19 ;;CAKE, DESSERT SHELL, IND^872^.132
+20 ;;CAKE MIX, LEMON GOLD^^1
+21 ;;CEREAL, BRAN SHRED, (ALL BRAN), IND^1101^.078
+22 ;;POTATO CHIPS, BULK^1529^1
+23 ;;JUICE, ORANGE, CND, UNSW^1731^8.776
+24 ;;BEANS, KIDNEY, CND, IN SWEET SAUCE^2645^1
+25 ;;MACARONI WITH CHEESE SAUCE, CND^1323^1
+26 ;;DESSERT POWDER, PUDDING, DUTCH CHOCOLATE^6617^1
+27 ;;PEPPERS, GREEN, DEHYD, DICED^^1
+28 ;;DESSERT POWDER, GELATIN, CHERRY^1230^1
+29 ;;DESSERT POWDER, GELATIN, LEMON^1230^1
+30 ;;DESSERT POWDER, GELATIN, LIME^1230^1
+31 ;;DESSERT POWDER, GELATIN, ORANGE^1230^1
+32 ;;DESSERT POWDER, GELATIN, RASPBERRY^1230^1
+33 ;;DESSERT POWDER, GELATIN, STRAWBERRY^1230^1
+34 ;;CEREAL, WHEAT, FARINA, QUIK-COOK^1167^1
+35 ;;PEARS, SPICED, CND, WHOLE^^1
+36 ;;JUICE, TOMATO, CND^1942^8.607
+37 ;;CRANBERRY JUICE COCKTAIL, SWEETENED^1660^8.917
+38 ;;PICKLING SPICES^^1
+39 ;;COOKIES, CHOCOLATE AND VANILLA WAFER, IND^1024^.042
+40 ;;CHILI SAUCE^1940^1
+41 ;;CEREAL, RICE CHEX, IND^1138^.055
+42 ;;RAISINS, SEEDLESS^1793^1
+43 ;;TARTAR SAUCE^1924^8.113
+44 ;;TOMATOES AND ZUCCHINI, CND^^1
+45 ;;JUICE, GRAPE, CND, UNSW^1700^8.917
+46 ;;BEETS, CND, SLICED^780^1
+47 ;;MERITENE, CHOCOLATE, IND^6013^.522
+48 ;;TOLEREX, UNFLAVORED^6146^.176
+49 ;;GRAPEFRUIT, CND, SECTIONS, SYRUP-PAK^1691^1
+50 ;;DOUGHNUT MIX, CAKE TYPE^1094^1
+51 ;;MERITENE, PLAIN, BULK^6013^1
+52 ;;CORN CHIPS, IND^6439^.094
+53 ;;PUDDING, CND, BUTTERSCOTCH IND^6616^.331
+54 ;;PUDDING, CND, CHOCOLATE IND^6617^.331
+55 ;;VINEGAR, WHITE^1987^8.466
+56 ;;COMPLEAT-B, MEAT BASE^6036^.589
+57 ;;PRECISION LR, LEMON^6033^.176
+58 ;;PRECISION LR, CHERRY^6033^.176
+59 ;;ENSURE, VANILLA, IND^6029^.522
+60 ;;PRECISION LR, ORANGE^6033^.176
+61 ;;ENSURE, VANILLA, BULK, LIQ^6029^2.116
+62 ;;VIVONEX-100HN, HIGH NITROGEN^6147^.177
+63 ;;SOUP AND GRAVY BASE, ONION^2791^1
+64 ;;PUDDING, CND, TAPIOCA^1923^1
+65 ;;SOUP, COND, CHICKEN CONSOMME^2985^8.854
+66 ;;PUDDING, CND, LEMON^6440^1
+67 ;;VIVONEX-100, UNFLAVORED^6147^.177
+68 ;;PORTAGEN, UNFLAVORED^^1
+69 ;;RICE, INSTANT^1558^1
+70 ;;PANCAKE MIX, DIET^^1
+71 ;;CHOCOLATE SYRUP^975^1
+72 ;;STARCH, WHEAT^6388^1
+73 ;;PEANUT BUTTER, IND^1409^.081
+74 ;;PEACHES, CND, SLICED, (FOR PIES)^1750^1
+75 ;;PEAR PUREE, DIET^6554^1
+76 ;;ORANGES, CND, SEGMENTS, SYRUP-PAK^^8
+77 ;;DESSERT POWDER, GELATIN, RASPBERRY, DIET^6408^.265
+78 ;;PICKLES, CUCUMBER, SWEET, SLICED, DIET^2897^1
+79 ;;ICING MIX, CHOCOLATE^895^1
+80 ;;CHEESE, AMERICAN, SHARP, BRICK^5^1
+81 ;;FIGS, CND, KADOTA, WATER-PAK, DIET^1669^1
+82 ;;SOUP, COND, BEAN WITH BACON^507^8.748
+83 ;;SOUP, COND, TOMATO^541^8.748
+84 ;;CLAM CHOWDER, COND, MANHATTAN STYLE^2995^8.854
+85 ;;BLUE CHEESE DRESSING^393^8.642
+86 ;;BEEF PUREE, W/ BEEF BROTH, DIET, LO NA^6473^1
+87 ;;CHICKEN PUREE, W/CHICKEN BROTH, DIET LO NA^6474^1
+88 ;;VEAL PUREE, DIET^6478^1
+89 ;;PEA PUREE, DIET^6452^1
+90 ;;SQUASH PUREE, DIET, LO NA^6456^1
+91 ;;CLAM CHOWDER, COND, NEW ENGLAND STYLE^2994^8.854
+92 ;;DESSERT POWDER, GELATIN, BLACK RASPBERRY, DIET^6408^.265
+93 ;;BOUILLON, CHICKEN, CUBES^515^.011
+94 ;;CHICKEN, FROZEN, QUARTERED, READY-TO-COOK^401^1
+95 ;;CHICKEN LEG, FROZEN, READY-TO-COOK^437^1
+96 ;;NUTRI-1000, CHOCOLATE^^.558
+97 ;;LASAGNA WITH MEAT SAUCE, FROZEN, COOKED^6071^1
+98 ;;JUICE, GRAPEFRUIT, CND, IND^1693^.413
+99 ;;CORNED BEEF, CND^772^1
+100 ;;SALT, IND^1598^.002
+101 ;;SEAFOOD SAUCE, IND^^.031
+102 ;;VEGETABLE PROTEIN MEAT SUBSTITUTE^^1
+103 ;;ISOCAL, UNFLAVORED^6005^.522
+104 ;;CEREAL, CREAM OF RICE, QUIK-COOK^1161^1
+105 ;;RELISH, CORN, SWEET^^8.5
+106 ;;JUICE, APPLE, CND^1809^8.748
+107 ;;ASPARAGUS SPEARS, FROZEN GREEN^676^1
+108 ;;SUSTAGEN, VANILLA^^1
+109 ;;CHEESE, CHEDDAR AGED, HARD, BRICK^9^1
+110 ;;CHEESE KRAFT PKG WITH CRACKERS, IND^6432^.07
+111 ;;BACON, SLICED, CND, OVEN BROILED^213^.062
+112 ;;SQUASH, FROZEN, SUMMER^1900^1
+113 ;;BEANS, CUT WAX, FROZEN^728^1
+114 ;;RELISH, PICKLE, SWEET^1445^8.642
+115 ;;JUICE, PINEAPPLE, CND, UNSW^1775^8.833
+116 ;;PEPPER, BLACK, GROUND, IND^288^.002
+117 ;;CRANBERRY SAUCE, CND, JELLIED OR STRAINED^1661^1
+118 ;;LIPOMUL-ORAL, VANILLA^^.525
+119 ;;OYSTERS, CND^1390^1
+120 ;;MUFFIN MIX, HONEY AND BRAN^^1
+121 ;;CORN MEAL, WHITE, FINE^1057^1
+122 ;;ONION SALT^^1
+123 ;;PORK, HAM, FROZEN, UNCURED^199^1
