FHINI0H9.m

FHINI0H9	; ; 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,37,0)

	;;=CAKE MIX, SPICE^CAKE MIXSPC4.10PCT5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^2690^1

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

	;;=CAKE MIX, WHITE^CAKE MIX WHT4.5PCT5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^2692^1

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

	;;=CAKE MIX, YELLOW^CAKE MIXYEL4.10PCT5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^2693^1

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

	;;=CANDY, HARD^CANDY HARD PEPSTCK120^^^BX^BX-120^^1^^^^^6^^^EACH^120^^^^925^.013

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

	;;=CARROTS, CND, SLICED OR DICED^CARR SLCD/DCD FCYNO10^8915-01-024-2958^1^CN^#10 CN^6^1^1.89^^^^3^^^LB^6.5^^^^939^1

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

	;;=CATSUP, TOMATO, DIET, IND^CATSUP TOMDIETINDIV4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^1939^.013

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

	;;=CATSUP, TOMATO, IND^CATSUP TOM INDIVBAG2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1938^.013

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

	;;=CELERY SALT^CELERY SALT 1 LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^^1

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

	;;=CEREAL, BRAN FLAKES, 40% BRAN, IND^CERE BRANFLK INDIV BX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1114^.062

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

	;;=CEREAL, BRAN FLAKES, RAISIN BRAN, IND^CERE BRANRSN INDIV BX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1136^.078

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

	;;=CEREAL, CORN FLAKES, SUGAR COATED, IND^CERE CORN SUG INDIVBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1143^.062

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

	;;=CEREAL, CORN FLAKES, IND^CERE CORN FLK INDIVBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1108^.047

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

	;;=CEREAL, PRODUCT 19, IND^CERE CORNOATRICEINDBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1135^.051

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

	;;=CEREAL, CHEERIOS, IND^CERE OAT GUN INDIV BX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^2714^.047

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

	;;=CEREAL, SPECIAL K, IND^CERE RICE FLK INDIVBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1141^.039

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

	;;=CEREAL, RICE KRISPIES, IND^CERE RICE OVENINDIVBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1139^.039

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

	;;=CEREAL, PUFFED RICE, IND^CERE RICE GUN INDIVBX^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1191^.051

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

	;;=CEREAL, ROLLED OATS, INSTANT, IND^CEREAL RLD OATINDIV10^^^CS^CS-10^^1^^^^^4^^^EACH^10^^^^1172^.062

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

	;;=CEREAL, ROLLED OATS, QUICK-COOKING^CERE RL OATQKCOOK42OZ^8920-00-890-1161^1^PG^42-OZ PG^12^1^.76^^^^4^^^LB^2.62^^^^1171^1

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

	;;=CEREAL, ROLLED WHEAT, QUICK-COOKING^CERE ROLLWHEAQUICK3LB^^^PG^3# PG^^1^^^^^4^^^LB^3^^^^1188^1

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

	;;=CEREAL, RYE, ROLLED OR FLAKE, QUICK-COOKING^CERE ROLLED RYE 3#^^^PG^3# PG^^1^^^^^4^^^LB^3^^^^1187^1

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

	;;=CEREAL, SHREDDED WHEAT BISCUIT, MINI, IND^CERE SHRDWHEATMDM 70S^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1184^.055

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

	;;=CEREAL, TOTAL, IND^CERE WHETFLKMALTINDBX^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1150^.039

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

	;;=CEREAL, WHEATIES, IND^CERE WHET FLK INDIVBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1155^.062

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

	;;=CEREAL, WHEAT, FARINA, QUICK-COOK, DIET, LO NA^CEREWHTFARINAMALT28OZ^8940-00-890-1157^1^PG^28-OZ PG^12^1^1.14^^^^4^^^LB^1.75^^^^1167^1

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

	;;=CEREAL, PUFFED WHEAT, IND^CERE WHETPUFF INDIVBX^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1192^.055

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

	;;=CEREAL, SUGAR SMACKS^CERE WHETSUGPUFFINDBX^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1144^.055

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

	;;=CEREAL, WHOLE WHEAT MEAL, (WHEATENA), QUIK-COOK^CERE WHEATMALTQCK20OZ^8920-00-952-2073^1^PG^20-OZ PG^12^1^.86^^^^4^^^LB^1.25^^^^1180^1

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

	;;=CEREAL, WHOLE WHEAT MEAL, REGULAR-COOK^CEREAL WHL WHTREG22OZ^^^PG^22-OZ PG^^1^^^^^4^^^LB^1.38^^^^1181^1

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

	;;=CHEESE SAUCE, R-T-S^CHEE SAUCE 6LB 10 OZ^^^CN^#10 CN^^1^^^^^2^^^LB^6.5^^^^535^1

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

	;;=CHEESE, LOW SODIUM^CHEE CHEDDAR LWSD 1LB^^^PG^1# PG^^1^^^^^2^^^LB^1^^^^6433^1

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

	;;=CHEESE, PARMESAN, GRATED, IND^CHEE GRATEDINDIV6GM2C^^^BX^BX-200^^1^^^^^2^^^EACH^200^^^^32^.013

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

	;;=CHEESE, GRATED, PARMESAN, BULK^CHEESE GRATED PARM5LB^^^CN^5# CN^^1^^^^^2^^^LB^5^^^^32^1

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

	;;=CHERRIES, CND, DK SWEET, PITTED, SYRUP-PAK^CHER DKSWTPITGRDANO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1656^1

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

	;;=CHERRIES, CND, DK SWEET, PITTED, WATER-PAK^CHER PIT WTRDIETNO303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^1653^1

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

	;;=CHERRIES, CND, LT SWEET, UNPITTED, SYRUP-PAK^CHER LTSWT LTSYRPNO10^8915-01-094-3178^1^CN^#10 CN^6^1^4.86^^^^3^^^LB^6.5^^^^1656^1

FHINI0H9  ; ; 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,37,0)

 +2       ;;=CAKE MIX, SPICE^CAKE MIXSPC4.10PCT5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^2690^1

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

 +4       ;;=CAKE MIX, WHITE^CAKE MIX WHT4.5PCT5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^2692^1

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

 +6       ;;=CAKE MIX, YELLOW^CAKE MIXYEL4.10PCT5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^2693^1

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

 +8       ;;=CANDY, HARD^CANDY HARD PEPSTCK120^^^BX^BX-120^^1^^^^^6^^^EACH^120^^^^925^.013

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

 +10      ;;=CARROTS, CND, SLICED OR DICED^CARR SLCD/DCD FCYNO10^8915-01-024-2958^1^CN^#10 CN^6^1^1.89^^^^3^^^LB^6.5^^^^939^1

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

 +12      ;;=CATSUP, TOMATO, DIET, IND^CATSUP TOMDIETINDIV4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^1939^.013

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

 +14      ;;=CATSUP, TOMATO, IND^CATSUP TOM INDIVBAG2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1938^.013

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

 +16      ;;=CELERY SALT^CELERY SALT 1 LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^^1

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

 +18      ;;=CEREAL, BRAN FLAKES, 40% BRAN, IND^CERE BRANFLK INDIV BX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1114^.062

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

 +20      ;;=CEREAL, BRAN FLAKES, RAISIN BRAN, IND^CERE BRANRSN INDIV BX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1136^.078

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

 +22      ;;=CEREAL, CORN FLAKES, SUGAR COATED, IND^CERE CORN SUG INDIVBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1143^.062

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

 +24      ;;=CEREAL, CORN FLAKES, IND^CERE CORN FLK INDIVBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1108^.047

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

 +26      ;;=CEREAL, PRODUCT 19, IND^CERE CORNOATRICEINDBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1135^.051

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

 +28      ;;=CEREAL, CHEERIOS, IND^CERE OAT GUN INDIV BX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^2714^.047

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

 +30      ;;=CEREAL, SPECIAL K, IND^CERE RICE FLK INDIVBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1141^.039

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

 +32      ;;=CEREAL, RICE KRISPIES, IND^CERE RICE OVENINDIVBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1139^.039

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

 +34      ;;=CEREAL, PUFFED RICE, IND^CERE RICE GUN INDIVBX^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1191^.051

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

 +36      ;;=CEREAL, ROLLED OATS, INSTANT, IND^CEREAL RLD OATINDIV10^^^CS^CS-10^^1^^^^^4^^^EACH^10^^^^1172^.062

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

 +38      ;;=CEREAL, ROLLED OATS, QUICK-COOKING^CERE RL OATQKCOOK42OZ^8920-00-890-1161^1^PG^42-OZ PG^12^1^.76^^^^4^^^LB^2.62^^^^1171^1

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

 +40      ;;=CEREAL, ROLLED WHEAT, QUICK-COOKING^CERE ROLLWHEAQUICK3LB^^^PG^3# PG^^1^^^^^4^^^LB^3^^^^1188^1

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

 +42      ;;=CEREAL, RYE, ROLLED OR FLAKE, QUICK-COOKING^CERE ROLLED RYE 3#^^^PG^3# PG^^1^^^^^4^^^LB^3^^^^1187^1

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

 +44      ;;=CEREAL, SHREDDED WHEAT BISCUIT, MINI, IND^CERE SHRDWHEATMDM 70S^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1184^.055

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

 +46      ;;=CEREAL, TOTAL, IND^CERE WHETFLKMALTINDBX^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1150^.039

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

 +48      ;;=CEREAL, WHEATIES, IND^CERE WHET FLK INDIVBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1155^.062

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

 +50      ;;=CEREAL, WHEAT, FARINA, QUICK-COOK, DIET, LO NA^CEREWHTFARINAMALT28OZ^8940-00-890-1157^1^PG^28-OZ PG^12^1^1.14^^^^4^^^LB^1.75^^^^1167^1

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

 +52      ;;=CEREAL, PUFFED WHEAT, IND^CERE WHETPUFF INDIVBX^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1192^.055

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

 +54      ;;=CEREAL, SUGAR SMACKS^CERE WHETSUGPUFFINDBX^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1144^.055

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

 +56      ;;=CEREAL, WHOLE WHEAT MEAL, (WHEATENA), QUIK-COOK^CERE WHEATMALTQCK20OZ^8920-00-952-2073^1^PG^20-OZ PG^12^1^.86^^^^4^^^LB^1.25^^^^1180^1

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

 +58      ;;=CEREAL, WHOLE WHEAT MEAL, REGULAR-COOK^CEREAL WHL WHTREG22OZ^^^PG^22-OZ PG^^1^^^^^4^^^LB^1.38^^^^1181^1

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

 +60      ;;=CHEESE SAUCE, R-T-S^CHEE SAUCE 6LB 10 OZ^^^CN^#10 CN^^1^^^^^2^^^LB^6.5^^^^535^1

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

 +62      ;;=CHEESE, LOW SODIUM^CHEE CHEDDAR LWSD 1LB^^^PG^1# PG^^1^^^^^2^^^LB^1^^^^6433^1

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

 +64      ;;=CHEESE, PARMESAN, GRATED, IND^CHEE GRATEDINDIV6GM2C^^^BX^BX-200^^1^^^^^2^^^EACH^200^^^^32^.013

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

 +66      ;;=CHEESE, GRATED, PARMESAN, BULK^CHEESE GRATED PARM5LB^^^CN^5# CN^^1^^^^^2^^^LB^5^^^^32^1

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

 +68      ;;=CHERRIES, CND, DK SWEET, PITTED, SYRUP-PAK^CHER DKSWTPITGRDANO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1656^1

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

 +70      ;;=CHERRIES, CND, DK SWEET, PITTED, WATER-PAK^CHER PIT WTRDIETNO303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^1653^1

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

 +72      ;;=CHERRIES, CND, LT SWEET, UNPITTED, SYRUP-PAK^CHER LTSWT LTSYRPNO10^8915-01-094-3178^1^CN^#10 CN^6^1^4.86^^^^3^^^LB^6.5^^^^1656^1