FHINI0H8.m

FHINI0H8	; ; 11-OCT-1995

	;;5.0;Dietetics;;Oct 11, 1995

	Q:'DIFQR(113)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q	Q

	;;^UTILITY(U,$J,113)

	;;=^FHING(

	;;^UTILITY(U,$J,113,0)

	;;=INGREDIENT^113^1013^1012

	;;^UTILITY(U,$J,113,1,0)

	;;=ANTIOXIDANT COMPOUND^ANTI CPD FOOD SRV16OZ^^^JR^1# JR^^1^^^^^6^^^LB^1^^^^^1

	;;^UTILITY(U,$J,113,2,0)

	;;=APPLES, DEHYD, SLICED^APPL DEHYDSLCD121/2LB^^^CS^12-1/2# CS^^1^^^^^3^^^LB^12.5^^^^1616^1

	;;^UTILITY(U,$J,113,3,0)

	;;=APPLESAUCE, CND, DIET^APPLESAU GRD ADIET303^8940-00-264-4138^1^CN^#303 CN^24^1^.37^^^^3^^^LB^1^^^^1622^1

	;;^UTILITY(U,$J,113,4,0)

	;;=APPLESAUCE, CND, SWEETENED^APPLESAUCE GRD A NO10^8915-00-127-8272^1^CN^#10 CN^6^1^1.96^^^^3^^^LB^6.5^^^^1623^1

	;;^UTILITY(U,$J,113,5,0)

	;;=APRICOT PUREE, DIETETIC^APRI PUREE MDM NO 303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^6446^1

	;;^UTILITY(U,$J,113,6,0)

	;;=APRICOT HALVES, CND, SYRUP  PAK^APRIHVDLTSYRPGRDBNO10^8915-01-094-3179^1^CN^#10 CN^6^1^4.35^^^^3^^^LB^6.5^^^^1628^1

	;;^UTILITY(U,$J,113,7,0)

	;;=APRICOT HALVES, CND, WATER PAK^APRI HLF WTRPKDIET303^8940-00-982-3759^1^CN^#303 CN^24^1^.98^^^^3^^^LB^1^^^^1625^1

	;;^UTILITY(U,$J,113,8,0)

	;;=APRICOTS, WHOLE, CND, SYRUP PAK^APRICOTSWHLSYRNO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1628^1

	;;^UTILITY(U,$J,113,9,0)

	;;=ASPARAGUS SPEARS, CND, GREEN, DIET^ASPA CUT DIET NO 300^8940-00-851-7080^1^CN^#300 CN^24^1^.76^^^^3^^^LB^.9^^^^670^1

	;;^UTILITY(U,$J,113,10,0)

	;;=BAKING POWDER, DIET, LO NA^BAKING POWDER DIET7OZ^^^JR^7-OZ JR^^1^^^^^6^^^LB^.44^^^^682^1

	;;^UTILITY(U,$J,113,11,0)

	;;=BAKING POWDER, REG^BAKING POWDER 1 LB^8950-00-125-6333^1^CN^1# CN^24^1^.91^^^^6^^^LB^1^^^^680^1

	;;^UTILITY(U,$J,113,12,0)

	;;=BAKING SODA, REG^BAKING SODA 1 LB^^^BX^1# BX^^1^^^^^6^^^LB^1^^^^3071^1

	;;^UTILITY(U,$J,113,13,0)

	;;=BAMBOO SHOOTS, CND^BAMBOO SHOOTS CNNDNO2^^^CN^#2 CN^^1^^^^^3^^^LB^1.25^^^^2027^1

	;;^UTILITY(U,$J,113,14,0)

	;;=BEAN SPROUTS, CND^BEAN SPROUTS MUNGNO10^8915-00-958-0134^1^CN^#10 CN^6^1^2.20^^^^3^^^LB^6.5^^^^2082^1

	;;^UTILITY(U,$J,113,15,0)

	;;=BEANS, BLACK-EYED, DRY^BEAN BLKEYE DRY 25 LB^^^SA^25# BG^^1^^^^^3^^^LB^25^^^^2267^1

	;;^UTILITY(U,$J,113,16,0)

	;;=BEANS, FRENCH CUT GREEN, FROZEN^BEANS FR CUT FRZ^^^LB^LB^^1^^^^^3^^^LB^1^^^^718^1

	;;^UTILITY(U,$J,113,17,0)

	;;=BEANS, LIMA, FROZEN^BEANS LIMA FROZENGRDA^^^LB^LB^^1^^^^^3^^^LB^1^^^^706^1

	;;^UTILITY(U,$J,113,18,0)

	;;=BEANS, PINTO, DRY^BEAN PINTO DRY 25 LB^8915-00-975-3493^1^SA^25# BG^^1^6.32^^^^3^^^LB^25^^^^2272^1

	;;^UTILITY(U,$J,113,19,0)

	;;=BEANS, CND, W/PORK IN TOM SAUCE^BEANS WHITEW/PORKNO10^8915-00-184-5601^1^CN^#10 CN^6^1^1.83^^^^3^^^LB^6.5^^^^692^1

	;;^UTILITY(U,$J,113,20,0)

	;;=BEEF STEW, CND, R-T-S^BEEF STEWVACUPAN6.5LB^8940-01-044-8240^1^CN^6.5# CN^6^1^7.56^^^^1^^^LB^6.5^^^^769^1

	;;^UTILITY(U,$J,113,21,0)

	;;=CHIPPED BEEF W/WHITE SAUCE, CND, R-T-S^BEEF WHTSAUCESMK 50OZ^^^CN^50-OZ CN^^1^^^^^1^^^LB^3.13^^^^774^1

	;;^UTILITY(U,$J,113,22,0)

	;;=BEEF, GROUND, FROZEN^BEEF GROUND FROZEN^^^LB^LB^^1^^^^^1^^^LB^1^^^^2167^1

	;;^UTILITY(U,$J,113,23,0)

	;;=BEETS, CND, SLICED, DIET, LO NA^BEET SLICE DIET NO303^8940-00-483-7979^1^CN^#303 CN^24^1^.39^^^^3^^^LB^1^^^^782^1

	;;^UTILITY(U,$J,113,24,0)

	;;=BISCUIT MIX^BISCUIT MIX 5 LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^804^1

	;;^UTILITY(U,$J,113,25,0)

	;;=BLUE CHEESE DRESSING, IND^BLUE CHSINDIVBOAT2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^393^.055

	;;^UTILITY(U,$J,113,26,0)

	;;=BLUEBERRIES, CND, WHOLE, UNSW, WATER PAK^BLUE UNSWT WTRPKNO303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^1641^1

	;;^UTILITY(U,$J,113,27,0)

	;;=BOUILLON, BEEF, CUBES^BOUI BEEF DRD CUBES1C^^^JR^JR-100^^1^^^^^6^^^EACH^100^^^^513^.008

	;;^UTILITY(U,$J,113,28,0)

	;;=BOUILLON, BEEF, DIET, LO NA^BOUL BEEF DRDDIET 1LB^^^PG^1# PG^^1^^^^^6^^^LB^1^^^^6638^1

	;;^UTILITY(U,$J,113,29,0)

	;;=BOUILLON, CHICKEN, DIET, LO NA^BOUL CHKN DRDDIET 1LB^^^PG^1# PG^^1^^^^^6^^^LB^1^^^^6637^1

	;;^UTILITY(U,$J,113,30,0)

	;;=BREAD, WHITE, CND, WHEAT STARCH, DIET (LO PRO)^BREAD CNND LOW PTN9OZ^^^CN^9-OZ CN^^1^^^^^4^^^LB^.56^^^^6506^1

	;;^UTILITY(U,$J,113,31,0)

	;;=BROWN SAUCE, BEAD MOLASSES^BROW SAUCEBEADMOLA#10^^^CN^#10 CN^^1^^^^^6^^^GAL^1^^^^6090^11.288

	;;^UTILITY(U,$J,113,32,0)

	;;=BROWNIE MIX, CHOCOLATE (FUDGE)^BROW MIXFUDGE22-1/2OZ^^^BX^22.5-OZ BX^^1^^^^^4^^^LB^1.41^^^^2679^1

	;;^UTILITY(U,$J,113,33,0)

	;;=BUTTER, SALTED^BUTT SALT PAT 90 CUTS^^^LB^LB^^1^^^^^6^^^EACH^90^^^^1^.011

	;;^UTILITY(U,$J,113,34,0)

	;;=CAKE MIX, ANGEL FOOD^CAKE MIXANGELFOOD14OZ^^^PG^14-OZ PG^^1^^^^^4^^^LB^.88^^^^2685^1

	;;^UTILITY(U,$J,113,35,0)

	;;=CAKE MIX, DEVILS FOOD^CAKE MIXDEVILFD5PC5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^2688^1

	;;^UTILITY(U,$J,113,36,0)

	;;=CAKE MIX, POUND^CAKE MIXPOUNDPREP 5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1

FHINI0H8  ; ; 11-OCT-1995

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

 +2        IF 'DIFQR(113)

               QUIT 

           FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT 

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT 

 +1       ;;^UTILITY(U,$J,113)

 +2       ;;=^FHING(

 +3       ;;^UTILITY(U,$J,113,0)

 +4       ;;=INGREDIENT^113^1013^1012

 +5       ;;^UTILITY(U,$J,113,1,0)

 +6       ;;=ANTIOXIDANT COMPOUND^ANTI CPD FOOD SRV16OZ^^^JR^1# JR^^1^^^^^6^^^LB^1^^^^^1

 +7       ;;^UTILITY(U,$J,113,2,0)

 +8       ;;=APPLES, DEHYD, SLICED^APPL DEHYDSLCD121/2LB^^^CS^12-1/2# CS^^1^^^^^3^^^LB^12.5^^^^1616^1

 +9       ;;^UTILITY(U,$J,113,3,0)

 +10      ;;=APPLESAUCE, CND, DIET^APPLESAU GRD ADIET303^8940-00-264-4138^1^CN^#303 CN^24^1^.37^^^^3^^^LB^1^^^^1622^1

 +11      ;;^UTILITY(U,$J,113,4,0)

 +12      ;;=APPLESAUCE, CND, SWEETENED^APPLESAUCE GRD A NO10^8915-00-127-8272^1^CN^#10 CN^6^1^1.96^^^^3^^^LB^6.5^^^^1623^1

 +13      ;;^UTILITY(U,$J,113,5,0)

 +14      ;;=APRICOT PUREE, DIETETIC^APRI PUREE MDM NO 303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^6446^1

 +15      ;;^UTILITY(U,$J,113,6,0)

 +16      ;;=APRICOT HALVES, CND, SYRUP  PAK^APRIHVDLTSYRPGRDBNO10^8915-01-094-3179^1^CN^#10 CN^6^1^4.35^^^^3^^^LB^6.5^^^^1628^1

 +17      ;;^UTILITY(U,$J,113,7,0)

 +18      ;;=APRICOT HALVES, CND, WATER PAK^APRI HLF WTRPKDIET303^8940-00-982-3759^1^CN^#303 CN^24^1^.98^^^^3^^^LB^1^^^^1625^1

 +19      ;;^UTILITY(U,$J,113,8,0)

 +20      ;;=APRICOTS, WHOLE, CND, SYRUP PAK^APRICOTSWHLSYRNO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1628^1

 +21      ;;^UTILITY(U,$J,113,9,0)

 +22      ;;=ASPARAGUS SPEARS, CND, GREEN, DIET^ASPA CUT DIET NO 300^8940-00-851-7080^1^CN^#300 CN^24^1^.76^^^^3^^^LB^.9^^^^670^1

 +23      ;;^UTILITY(U,$J,113,10,0)

 +24      ;;=BAKING POWDER, DIET, LO NA^BAKING POWDER DIET7OZ^^^JR^7-OZ JR^^1^^^^^6^^^LB^.44^^^^682^1

 +25      ;;^UTILITY(U,$J,113,11,0)

 +26      ;;=BAKING POWDER, REG^BAKING POWDER 1 LB^8950-00-125-6333^1^CN^1# CN^24^1^.91^^^^6^^^LB^1^^^^680^1

 +27      ;;^UTILITY(U,$J,113,12,0)

 +28      ;;=BAKING SODA, REG^BAKING SODA 1 LB^^^BX^1# BX^^1^^^^^6^^^LB^1^^^^3071^1

 +29      ;;^UTILITY(U,$J,113,13,0)

 +30      ;;=BAMBOO SHOOTS, CND^BAMBOO SHOOTS CNNDNO2^^^CN^#2 CN^^1^^^^^3^^^LB^1.25^^^^2027^1

 +31      ;;^UTILITY(U,$J,113,14,0)

 +32      ;;=BEAN SPROUTS, CND^BEAN SPROUTS MUNGNO10^8915-00-958-0134^1^CN^#10 CN^6^1^2.20^^^^3^^^LB^6.5^^^^2082^1

 +33      ;;^UTILITY(U,$J,113,15,0)

 +34      ;;=BEANS, BLACK-EYED, DRY^BEAN BLKEYE DRY 25 LB^^^SA^25# BG^^1^^^^^3^^^LB^25^^^^2267^1

 +35      ;;^UTILITY(U,$J,113,16,0)

 +36      ;;=BEANS, FRENCH CUT GREEN, FROZEN^BEANS FR CUT FRZ^^^LB^LB^^1^^^^^3^^^LB^1^^^^718^1

 +37      ;;^UTILITY(U,$J,113,17,0)

 +38      ;;=BEANS, LIMA, FROZEN^BEANS LIMA FROZENGRDA^^^LB^LB^^1^^^^^3^^^LB^1^^^^706^1

 +39      ;;^UTILITY(U,$J,113,18,0)

 +40      ;;=BEANS, PINTO, DRY^BEAN PINTO DRY 25 LB^8915-00-975-3493^1^SA^25# BG^^1^6.32^^^^3^^^LB^25^^^^2272^1

 +41      ;;^UTILITY(U,$J,113,19,0)

 +42      ;;=BEANS, CND, W/PORK IN TOM SAUCE^BEANS WHITEW/PORKNO10^8915-00-184-5601^1^CN^#10 CN^6^1^1.83^^^^3^^^LB^6.5^^^^692^1

 +43      ;;^UTILITY(U,$J,113,20,0)

 +44      ;;=BEEF STEW, CND, R-T-S^BEEF STEWVACUPAN6.5LB^8940-01-044-8240^1^CN^6.5# CN^6^1^7.56^^^^1^^^LB^6.5^^^^769^1

 +45      ;;^UTILITY(U,$J,113,21,0)

 +46      ;;=CHIPPED BEEF W/WHITE SAUCE, CND, R-T-S^BEEF WHTSAUCESMK 50OZ^^^CN^50-OZ CN^^1^^^^^1^^^LB^3.13^^^^774^1

 +47      ;;^UTILITY(U,$J,113,22,0)

 +48      ;;=BEEF, GROUND, FROZEN^BEEF GROUND FROZEN^^^LB^LB^^1^^^^^1^^^LB^1^^^^2167^1

 +49      ;;^UTILITY(U,$J,113,23,0)

 +50      ;;=BEETS, CND, SLICED, DIET, LO NA^BEET SLICE DIET NO303^8940-00-483-7979^1^CN^#303 CN^24^1^.39^^^^3^^^LB^1^^^^782^1

 +51      ;;^UTILITY(U,$J,113,24,0)

 +52      ;;=BISCUIT MIX^BISCUIT MIX 5 LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^804^1

 +53      ;;^UTILITY(U,$J,113,25,0)

 +54      ;;=BLUE CHEESE DRESSING, IND^BLUE CHSINDIVBOAT2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^393^.055

 +55      ;;^UTILITY(U,$J,113,26,0)

 +56      ;;=BLUEBERRIES, CND, WHOLE, UNSW, WATER PAK^BLUE UNSWT WTRPKNO303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^1641^1

 +57      ;;^UTILITY(U,$J,113,27,0)

 +58      ;;=BOUILLON, BEEF, CUBES^BOUI BEEF DRD CUBES1C^^^JR^JR-100^^1^^^^^6^^^EACH^100^^^^513^.008

 +59      ;;^UTILITY(U,$J,113,28,0)

 +60      ;;=BOUILLON, BEEF, DIET, LO NA^BOUL BEEF DRDDIET 1LB^^^PG^1# PG^^1^^^^^6^^^LB^1^^^^6638^1

 +61      ;;^UTILITY(U,$J,113,29,0)

 +62      ;;=BOUILLON, CHICKEN, DIET, LO NA^BOUL CHKN DRDDIET 1LB^^^PG^1# PG^^1^^^^^6^^^LB^1^^^^6637^1

 +63      ;;^UTILITY(U,$J,113,30,0)

 +64      ;;=BREAD, WHITE, CND, WHEAT STARCH, DIET (LO PRO)^BREAD CNND LOW PTN9OZ^^^CN^9-OZ CN^^1^^^^^4^^^LB^.56^^^^6506^1

 +65      ;;^UTILITY(U,$J,113,31,0)

 +66      ;;=BROWN SAUCE, BEAD MOLASSES^BROW SAUCEBEADMOLA#10^^^CN^#10 CN^^1^^^^^6^^^GAL^1^^^^6090^11.288

 +67      ;;^UTILITY(U,$J,113,32,0)

 +68      ;;=BROWNIE MIX, CHOCOLATE (FUDGE)^BROW MIXFUDGE22-1/2OZ^^^BX^22.5-OZ BX^^1^^^^^4^^^LB^1.41^^^^2679^1

 +69      ;;^UTILITY(U,$J,113,33,0)

 +70      ;;=BUTTER, SALTED^BUTT SALT PAT 90 CUTS^^^LB^LB^^1^^^^^6^^^EACH^90^^^^1^.011

 +71      ;;^UTILITY(U,$J,113,34,0)

 +72      ;;=CAKE MIX, ANGEL FOOD^CAKE MIXANGELFOOD14OZ^^^PG^14-OZ PG^^1^^^^^4^^^LB^.88^^^^2685^1

 +73      ;;^UTILITY(U,$J,113,35,0)

 +74      ;;=CAKE MIX, DEVILS FOOD^CAKE MIXDEVILFD5PC5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^2688^1

 +75      ;;^UTILITY(U,$J,113,36,0)

 +76      ;;=CAKE MIX, POUND^CAKE MIXPOUNDPREP 5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1