©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
FHINI0HS ; ; 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,728,0)
;;=TOPPING, ICE CREAM, STRAWBERRY^TOPP ICECR STRAWB46OZ^^^CN^#3 CN^^1^^^^^6^^^GAL^.36^^^^^8
;;^UTILITY(U,$J,113,729,0)
;;=TOPPING, ICE CREAM, PINEAPPLE^TOPP ICECR PINE 46 OZ^^^CN^#3 CN^^1^^^^^6^^^GAL^.36^^^^^8
;;^UTILITY(U,$J,113,730,0)
;;=PANCAKE MIX, BUCKWHEAT^PANC BUCKWHEAT 5 LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,731,0)
;;=CEREAL BEVERAGE, (POSTUM), IND^CERE BEVE INDIV 100S^^^BX^BX-100^^1^^^^^6^^^EACH^100^^^^6625^.009
;;^UTILITY(U,$J,113,732,0)
;;=DESSERT POWDER, PUDDING, COCONUT^DESS PWDCOCONUT 49 OZ^^^CN^3# CN^^1^^^^^6^^^LB^3.06^^^^^1
;;^UTILITY(U,$J,113,733,0)
;;=SUSTACAL HC, VANILLA, IND^SUSTACAL HC VAN IND^8940-01-255-6772^1^CN^8-OZ CN^12^1^.46^^^^5^^^EACH^1^^^^6012^.522
;;^UTILITY(U,$J,113,734,0)
;;=EGG MIX, FROZEN, WHOLE EGGS^EGG MIX FRZN 5 LB^^^CO^5# CO^^1^^^^^1^^^LB^5^^^^115^1
;;^UTILITY(U,$J,113,735,0)
;;=MAGNACAL, VANILLA, IND^DIET SUPMTMAGNACAL4OZ^^^CN^4-OZ CN^^1^^^^^5^^^EACH^1^^^^6037^.551
;;^UTILITY(U,$J,113,736,0)
;;=MILK SHAKE MIX, STRAWBERRY^MILK SHAKSTRAWB11/4LB^^^BG^1.25#-BG^^1^^^^^5^^^LB^1.25^^^^^1
;;^UTILITY(U,$J,113,737,0)
;;=DESSERT POWDER, PUDDING, CHOCOLATE, DIET^DESS INSTCHOCDIET 1LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,738,0)
;;=DESSERT POWDER, PUDDING, VANILLA, DIET^DESS INSTVANLLDIET1LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,739,0)
;;=DESSERT POWDER, PUDDING, BUTTERSCOTCH, DIET^DESS INSTBUSCHDIET1LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,740,0)
;;=TRAVASORB WHOLE PROTEIN LIQUID, EGGNOG, IND^DIET ENOGTRAVASORB8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6572^.194
;;^UTILITY(U,$J,113,741,0)
;;=GRAVY, CND, BEEF HEAT AND SERVE^GRAV CNND BEEF 50 OZ^^^CN^50-OZ CN^^1^^^^^6^^^GAL^.39^^^^518^8.219
;;^UTILITY(U,$J,113,742,0)
;;=CEREAL BEVERAGE, (POSTUM), BULK^CERE BEVE POSTUM 4 OZ^^^JR^4-OZ JR^^1^^^^^6^^^LB^.25^^^^6625^1
;;^UTILITY(U,$J,113,743,0)
;;=TURKEY, CND, BONED, DICED^TURKEY BND/DIC 50OZ^^^CN^50-OZ CN^^1^^^^^1^^^LB^3.13^^^^478^1
;;^UTILITY(U,$J,113,744,0)
;;=TURKEY PUREE, DIET^TURK PUREE DIET 15 OZ^^^CN^#303 CN^^1^^^^^1^^^LB^1^^^^6477^1
;;^UTILITY(U,$J,113,745,0)
;;=PEANUT BUTTER KRAFT PKG WITH CRACKERS^CRAC WPNTBUTFLL 100S^^^CS^CS-100^^1^^^^^6^^^EACH^100^^^^^.077
;;^UTILITY(U,$J,113,746,0)
;;=BEANS, FRENCH CUT GREEN, CND^BEAN GREN FR STY NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^715^1
;;^UTILITY(U,$J,113,747,0)
;;=PINEAPPLE, CND, TIDBITS, DIET^PINEAPPLE TIDBITSNO10^8915-01-266-8644^1^CN^#10 CN^6^1^3.42^^^^3^^^LB^6.5^^^^1770^1
;;^UTILITY(U,$J,113,748,0)
;;=PRUNES, CND, DIET^PRUNES PITTED NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,749,0)
;;=CHEESE, AMERICAN SLICED^AM CHEZ SLICD^^^LB^LB^^1^^^^^2^^^LB^1^^^^42^1
;;^UTILITY(U,$J,113,750,0)
;;=CAKE, ANGELFOOD, FRESH^CAKE ANGLEFD FRSH^^^CK^2# CK^^1^^^^^4^^^EACH^1^^^^880^1.579
;;^UTILITY(U,$J,113,751,0)
;;=PIE, APPLE, FZN^PIE, APPLE, FZN^^^CS^CS-6^^1^^^^^4^^^EACH^6^^^^1470^.203
;;^UTILITY(U,$J,113,752,0)
;;=APPLES, FRESH^APPLES, FRESH^^^LB^LB^^1^^^^^3^^^EACH^3.5^^^^1611^.304
;;^UTILITY(U,$J,113,753,0)
;;=BACON, PREFRIED^BACON PREFRIED LB BX^^^BX^1# BX^^1^^^^^6^^^LB^1^^^^213^1
;;^UTILITY(U,$J,113,754,0)
;;=POTATOES, BAKING, FRESH^POTA BAKE FRSH^^^LB^LB^^1^^^^^3^^^EACH^3.5^^^^1503^.499
;;^UTILITY(U,$J,113,755,0)
;;=BANANAS, FRESH^BANANAS, FRESH^^^LB^LB^^1^^^^^3^^^EACH^3.5^^^^1635^.251
;;^UTILITY(U,$J,113,756,0)
;;=BEEF LIVER^BEEF LIVER^^^LB^LB^^1^^^^^1^^^LB^1^^^^1310^1
;;^UTILITY(U,$J,113,757,0)
;;=BEEF, TOP RND, FRESH^BEEF TOP RND^^^LB^LB^^1^^^^^1^^^LB^1^^^^2149^1
;;^UTILITY(U,$J,113,758,0)
;;=BISCUITS FRZN^BISCUITS FRZN 10#CS^^^CS^10# CS^^1^^^^^4^^^LB^10^^^^803^1
;;^UTILITY(U,$J,113,759,0)
;;=BOLOGNA^BOLOGNA^^^LB^LB^^1^^^^^1^^^LB^1^^^^627^1
;;^UTILITY(U,$J,113,760,0)
;;=BREAD, WHITE, SLICED^BREAD, WHITE, SLICED^^^LF^1# LF^^1^^^^^4^^^EACH^16^^^^823^.055
;;^UTILITY(U,$J,113,761,0)
;;=BEANS, BUTTER, FZN^BEANS, BUTTER, FZN^^^LB^LB^^1^^^^^3^^^LB^1^^^^2277^1
;;^UTILITY(U,$J,113,762,0)
;;=BUTTERMILK, IND^BUTTERMILK, IND^^^CO^8-OZ CT^^1^^^^^2^^^EACH^1^^^^85^.529
;;^UTILITY(U,$J,113,763,0)
;;=CABBAGE, FRESH^CABBAGE, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^845^1
;;^UTILITY(U,$J,113,764,0)
;;=CARAWAY SEEDS^CARAWAY SEEDS 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^263^1
;;^UTILITY(U,$J,113,765,0)
;;=CARROTS, FRESH, STIX^CARROT STIX, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^934^1
;;^UTILITY(U,$J,113,766,0)
;;=CARROTS, FRESH, SHREDDED^CARROT SHREDDED FRSH^^^LB^LB^^1^^^^^3^^^LB^1^^^^934^1
;;^UTILITY(U,$J,113,767,0)
;;=CAYENNE PEPPER^CAYENNE PEPPER 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^289^1