FHIPST16.m

FHIPST16	; HISC/NCA - Ingredient Items 8 ;5/1/95  12:01

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

	;;CEREAL, PREPARED, ASST, IND^^.062

	;;CEREAL, RICE AND RYE FLAKES WITH RAISINS, IND^1137^.039

	;;CEREAL, WHOLE WHEAT MEAL, QUIK-COOK, RYE, BRAN^1181^1

	;;ROLLS, DANISH, CHEESE, FRZ, IND^2508^.201

	;;ROLLS, DANISH, CINNAMON, FRZ, IND^2509^.194

	;;CEREAL, BRAN FLAKES, UNPROCESSED^1131^1

	;;SYRUP, IMITATION MAPLE, THICK^1833^11.111

	;;JAM, BLACKBERRY, IND^1262^.031

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

	;;VIVONEX T.E.N., UNFLAVORED^6147^.177

	;;OSMOLITE HN, UNFLAVORED^6019^.522

	;;MAGNACAL, VANILLA^6037^.551

	;;ENRICH, VANILLA^6028^.522

	;;PRO-MIX, UNFLAVORED, BULK^^1

	;;SALT SUBSTITUTE, BULK^6417^1

	;;PINEAPPLE, CND, SLICED^1773^1

	;;TRAVASORB, BLACK WALNUT^6575^.194

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

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

	;;SOUP AND GRAVY BASE, CHICKEN, LO NA^550^1

	;;SOUP AND GRAVY BASE, BEEF, LO NA^6638^1

	;;TRAVASORB, VANILLA^6575^.194

	;;GRAVY, CND, CHICKEN FLAVOR, READY TO HEAT^519^8.409

	;;SUMACAL, UNFLAVORED, POWDER, BULK^6039^1

	;;FORTA, PUDDING, VANILLA^6022^.309

	;;FORTA, PUDDING, CHOCOLATE^6022^.309

	;;FORTA, PUDDING, BUTTERSCOTCH^6022^.309

	;;SUSTACAL, VANILLA, POWDER, IND^6003^.119

	;;ITALIAN DRESSING, DIET, IND^388^.055

	;;AMIN-AID, STRAWBERRY^6135^.325

	;;SUSTA II, VANILLA^^.522

	;;PULMOCARE, VANILLA^6496^.522

	;;PAPRIKA, GROUND, SPANISH^286^1

	;;PRUNES, DRIED, WHOLE^1787^1

	;;CRACKERS, CHEESE FLAVORED, IND^1074^.014

	;;DESSERT POWDER, PUDDING, BUTTERSCOTCH, INSTANT^6616^.06

	;;BOUILLON, VEGETABLE^^1

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

	;;HONEY, IND^1258^.031

	;;JELLY, APPLE, DIET, IND^6419^.031

	;;JELLY, CHERRY, DIET, IND^6419^.031

	;;JELLY, RASPBERRY, DIET, IND^6419^.031

	;;JELLY, STRAWBERRY, DIET, IND^6419^.031

	;;JELLY, APRICOT, DIET, IND^6419^.031

	;;JELLY, BLACKBERRY, DIET IND^6419^.031

	;;JELLY, ASSORTED DIET, IND^6419^.031

	;;JELLY, CHERRY, IND^1264^.031

	;;JELLY, BLACKBERRY, IND^1264^.031

	;;JELLY, APPLE, IND^1264^.031

	;;JELLY, GRAPE, IND^1264^.031

	;;JELLY, STRAWBERRY, IND^1264^.031

	;;JELLY, CURRANT, IND^1264^.031

	;;JELLY, MIXED FRUIT, IND^1264^.031

	;;MILK, DRY, NONFAT, FOR BREAD MAKING^138^1

	;;PEACHES, CND, SLICED FREESTONE, SYRUP-PAK^1750^1

	;;SALAD DRESSING, ASST DIET, (ZERO), IND^^.055

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

	;;ENSURE, VANILLA, BULK, POWDER^6029^1

	;;MACARONI AND CHEESE, FROZEN^1322^1

	;;CAKE, COFFEE^882^.159

	;;CHICKEN ALA KING, FROZEN^^1

	;;POTATOES, LEACHED^1505^1

	;;ICE CREAM, ANY FLAVOR, IND^60^.148

	;;POLYRICH^66^8.466

	;;CROUTONS^^1

	;;EGG SUBSTITUTE^130^8.466

	;;POTATOES, PREPEELED, WHOLE^1506^1

	;;CLOVERLEAF ROLL^1571^.057

	;;ZUCCHINI, FROZEN^2100^1

	;;POTATOES, ESCALLOPED, DEHYDRATED^2920^.302

	;;GRAPES, CND, SEEDLESS, THOMPSON SYRUP-PAK^1699^1

	;;BACON, RAW, FRZ^212^1

	;;KOOLADE^2265^.529

	;;LEMONADE^2234^.529

	;;RADISHES^1544^1

	;;CEREAL, CREAM OF RICE, QUIK-COOK, LO NA^1161^1

	;;CRANBERRIES, FRESH^1659^1

	;;ORANGE, RIND^2330^1

	;;PEACH^1746^.192

	;;PEAS, FRESH^2049^1

	;;BEEF, CORNED, FRZ^771^1

	;;MILK, SKIM^82^8.642

	;;SOUP, COND, VEGETARIAN VEGETABLE^578^8.501

	;;SPAGHETTI SAUCE, ITALIAN, MEATLESS^6643^1

	;;TEA, 1 OZ BAG^1926^.062

	;;CRANBERRY SAUCE, CND, JELLIED OR STRAINED, IND^1661^.066

	;;RESOURCE INSTANT CRYSTAL^^.176

	;;COFFEE, GROUND, HIGH EXTRACTION^^1

	;;MILK, SKIM, IND^82^.54

	;;MILK, CHOCOLATE, IND^99^.551

	;;SUSTACAL, STRAWBERRY, IND^6003^.522

	;;NUTREX BESURE, VANILLA, POWDER^^1

	;;NUTRI-SOURCE CARBOHYDRATE^6484^.551

	;;NUTREX AMINEX, POWDER^^.176

	;;LONALAC, POWDER^6011^1

	;;BACON BITS, COOKED ^^1

	;;BEVERAGE BASE, CHERRY, SWT^^.529

	;;BEVERAGE BASE, FRUIT PUNCH, SWT^^.529

	;;BEVERAGE BASE, GRAPE, SWT^^.529

	;;BEVERAGE BASE, LEMON, SWT^^.529

	;;BEVERAGE BASE, ORANGE, SWT^^.529

	;;SAUCE, BROWNING/SEASONING^^8

	;;CHERRIES, CND, LT SWEET, UNPITTED, NAT-PAK^1654^1

	;;MACARONI, RIGATONI^1318^1

	;;ORANGES, CND, MANDARIN, NAT-PAK^1736^1

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

	;;PINEAPPLE, CND, SLICED, JCE-PAK^1771^1

	;;BEVERAGE BASE, CHERRY, ART SWT^^.529

	;;BEVERAGE BASE, FRUIT PUNCH, ART SWT^^.529

	;;BEVERAGE BASE, GRAPE, ART SWT^^.529

	;;BEVERAGE BASE, LEMON, ART SWT^^.529

	;;BEVERAGE BASE, ORANGE, ART SWT^^.529

	;;WATER, COLD^2021^8.36

	;;WATER, HOT^2021^8.36

	;;STOCK, SOUP^^8

	;;SALT PORK, CUBES^243^1

	;;PORK, LOIN ROAST^164^1

	;;ONION POWDER^284^1

	;;SQUASH, FROZEN, WINTER^1901^1

	;;POTATOES, NEW WITH SKINS^1505^1

FHIPST16  ; HISC/NCA - Ingredient Items 8 ;5/1/95  12:01

 +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       ;;CEREAL, PREPARED, ASST, IND^^.062

 +2       ;;CEREAL, RICE AND RYE FLAKES WITH RAISINS, IND^1137^.039

 +3       ;;CEREAL, WHOLE WHEAT MEAL, QUIK-COOK, RYE, BRAN^1181^1

 +4       ;;ROLLS, DANISH, CHEESE, FRZ, IND^2508^.201

 +5       ;;ROLLS, DANISH, CINNAMON, FRZ, IND^2509^.194

 +6       ;;CEREAL, BRAN FLAKES, UNPROCESSED^1131^1

 +7       ;;SYRUP, IMITATION MAPLE, THICK^1833^11.111

 +8       ;;JAM, BLACKBERRY, IND^1262^.031

 +9       ;;SALAD DRESSING, DIET, IND^386^.055

 +10      ;;VIVONEX T.E.N., UNFLAVORED^6147^.177

 +11      ;;OSMOLITE HN, UNFLAVORED^6019^.522

 +12      ;;MAGNACAL, VANILLA^6037^.551

 +13      ;;ENRICH, VANILLA^6028^.522

 +14      ;;PRO-MIX, UNFLAVORED, BULK^^1

 +15      ;;SALT SUBSTITUTE, BULK^6417^1

 +16      ;;PINEAPPLE, CND, SLICED^1773^1

 +17      ;;TRAVASORB, BLACK WALNUT^6575^.194

 +18      ;;DESSERT POWDER, PUDDING, VANILLA, INSTANT^6620^1

 +19      ;;DESSERT POWDER, PUDDING, CHOCOLATE, INSTANT^6617^1

 +20      ;;SOUP AND GRAVY BASE, CHICKEN, LO NA^550^1

 +21      ;;SOUP AND GRAVY BASE, BEEF, LO NA^6638^1

 +22      ;;TRAVASORB, VANILLA^6575^.194

 +23      ;;GRAVY, CND, CHICKEN FLAVOR, READY TO HEAT^519^8.409

 +24      ;;SUMACAL, UNFLAVORED, POWDER, BULK^6039^1

 +25      ;;FORTA, PUDDING, VANILLA^6022^.309

 +26      ;;FORTA, PUDDING, CHOCOLATE^6022^.309

 +27      ;;FORTA, PUDDING, BUTTERSCOTCH^6022^.309

 +28      ;;SUSTACAL, VANILLA, POWDER, IND^6003^.119

 +29      ;;ITALIAN DRESSING, DIET, IND^388^.055

 +30      ;;AMIN-AID, STRAWBERRY^6135^.325

 +31      ;;SUSTA II, VANILLA^^.522

 +32      ;;PULMOCARE, VANILLA^6496^.522

 +33      ;;PAPRIKA, GROUND, SPANISH^286^1

 +34      ;;PRUNES, DRIED, WHOLE^1787^1

 +35      ;;CRACKERS, CHEESE FLAVORED, IND^1074^.014

 +36      ;;DESSERT POWDER, PUDDING, BUTTERSCOTCH, INSTANT^6616^.06

 +37      ;;BOUILLON, VEGETABLE^^1

 +38      ;;CHICKEN, CND, BONED, DICED, DIET^^1

 +39      ;;HONEY, IND^1258^.031

 +40      ;;JELLY, APPLE, DIET, IND^6419^.031

 +41      ;;JELLY, CHERRY, DIET, IND^6419^.031

 +42      ;;JELLY, RASPBERRY, DIET, IND^6419^.031

 +43      ;;JELLY, STRAWBERRY, DIET, IND^6419^.031

 +44      ;;JELLY, APRICOT, DIET, IND^6419^.031

 +45      ;;JELLY, BLACKBERRY, DIET IND^6419^.031

 +46      ;;JELLY, ASSORTED DIET, IND^6419^.031

 +47      ;;JELLY, CHERRY, IND^1264^.031

 +48      ;;JELLY, BLACKBERRY, IND^1264^.031

 +49      ;;JELLY, APPLE, IND^1264^.031

 +50      ;;JELLY, GRAPE, IND^1264^.031

 +51      ;;JELLY, STRAWBERRY, IND^1264^.031

 +52      ;;JELLY, CURRANT, IND^1264^.031

 +53      ;;JELLY, MIXED FRUIT, IND^1264^.031

 +54      ;;MILK, DRY, NONFAT, FOR BREAD MAKING^138^1

 +55      ;;PEACHES, CND, SLICED FREESTONE, SYRUP-PAK^1750^1

 +56      ;;SALAD DRESSING, ASST DIET, (ZERO), IND^^.055

 +57      ;;BEVERAGE, CARBONATED, GINGER ALE, IND^798^.807

 +58      ;;ENSURE, VANILLA, BULK, POWDER^6029^1

 +59      ;;MACARONI AND CHEESE, FROZEN^1322^1

 +60      ;;CAKE, COFFEE^882^.159

 +61      ;;CHICKEN ALA KING, FROZEN^^1

 +62      ;;POTATOES, LEACHED^1505^1

 +63      ;;ICE CREAM, ANY FLAVOR, IND^60^.148

 +64      ;;POLYRICH^66^8.466

 +65      ;;CROUTONS^^1

 +66      ;;EGG SUBSTITUTE^130^8.466

 +67      ;;POTATOES, PREPEELED, WHOLE^1506^1

 +68      ;;CLOVERLEAF ROLL^1571^.057

 +69      ;;ZUCCHINI, FROZEN^2100^1

 +70      ;;POTATOES, ESCALLOPED, DEHYDRATED^2920^.302

 +71      ;;GRAPES, CND, SEEDLESS, THOMPSON SYRUP-PAK^1699^1

 +72      ;;BACON, RAW, FRZ^212^1

 +73      ;;KOOLADE^2265^.529

 +74      ;;LEMONADE^2234^.529

 +75      ;;RADISHES^1544^1

 +76      ;;CEREAL, CREAM OF RICE, QUIK-COOK, LO NA^1161^1

 +77      ;;CRANBERRIES, FRESH^1659^1

 +78      ;;ORANGE, RIND^2330^1

 +79      ;;PEACH^1746^.192

 +80      ;;PEAS, FRESH^2049^1

 +81      ;;BEEF, CORNED, FRZ^771^1

 +82      ;;MILK, SKIM^82^8.642

 +83      ;;SOUP, COND, VEGETARIAN VEGETABLE^578^8.501

 +84      ;;SPAGHETTI SAUCE, ITALIAN, MEATLESS^6643^1

 +85      ;;TEA, 1 OZ BAG^1926^.062

 +86      ;;CRANBERRY SAUCE, CND, JELLIED OR STRAINED, IND^1661^.066

 +87      ;;RESOURCE INSTANT CRYSTAL^^.176

 +88      ;;COFFEE, GROUND, HIGH EXTRACTION^^1

 +89      ;;MILK, SKIM, IND^82^.54

 +90      ;;MILK, CHOCOLATE, IND^99^.551

 +91      ;;SUSTACAL, STRAWBERRY, IND^6003^.522

 +92      ;;NUTREX BESURE, VANILLA, POWDER^^1

 +93      ;;NUTRI-SOURCE CARBOHYDRATE^6484^.551

 +94      ;;NUTREX AMINEX, POWDER^^.176

 +95      ;;LONALAC, POWDER^6011^1

 +96      ;;BACON BITS, COOKED ^^1

 +97      ;;BEVERAGE BASE, CHERRY, SWT^^.529

 +98      ;;BEVERAGE BASE, FRUIT PUNCH, SWT^^.529

 +99      ;;BEVERAGE BASE, GRAPE, SWT^^.529

 +100     ;;BEVERAGE BASE, LEMON, SWT^^.529

 +101     ;;BEVERAGE BASE, ORANGE, SWT^^.529

 +102     ;;SAUCE, BROWNING/SEASONING^^8

 +103     ;;CHERRIES, CND, LT SWEET, UNPITTED, NAT-PAK^1654^1

 +104     ;;MACARONI, RIGATONI^1318^1

 +105     ;;ORANGES, CND, MANDARIN, NAT-PAK^1736^1

 +106     ;;PICKLES, CUCUMBER, DILL, HAMBURGER^1438^1

 +107     ;;PINEAPPLE, CND, SLICED, JCE-PAK^1771^1

 +108     ;;BEVERAGE BASE, CHERRY, ART SWT^^.529

 +109     ;;BEVERAGE BASE, FRUIT PUNCH, ART SWT^^.529

 +110     ;;BEVERAGE BASE, GRAPE, ART SWT^^.529

 +111     ;;BEVERAGE BASE, LEMON, ART SWT^^.529

 +112     ;;BEVERAGE BASE, ORANGE, ART SWT^^.529

 +113     ;;WATER, COLD^2021^8.36

 +114     ;;WATER, HOT^2021^8.36

 +115     ;;STOCK, SOUP^^8

 +116     ;;SALT PORK, CUBES^243^1

 +117     ;;PORK, LOIN ROAST^164^1

 +118     ;;ONION POWDER^284^1

 +119     ;;SQUASH, FROZEN, WINTER^1901^1

 +120     ;;POTATOES, NEW WITH SKINS^1505^1