©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
FHINI0HE ; ; 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,218,0)
;;=PUDDING, CND, VANILLA^PUDD VANLLRDYSRV NO10^8940-00-407-0390^1^CN^#10 CN^6^1^2.54^^^^6^^^LB^6.5^^^^6620^1
;;^UTILITY(U,$J,113,219,0)
;;=RAVIOLI WITH MEAT SAUCE, CND^RAVI W MEAT SAUCENO10^8940-00-851-5306^1^CN^#10 CN^6^1^2.64^^^^1^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,220,0)
;;=RELISH, PICKLE, SWEET, IND^RELISH SWT INDIVBAG2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1445^.02
;;^UTILITY(U,$J,113,221,0)
;;=RICE^RICE PARBOIL LGGR25LB^8920-00-851-6595^1^SA^25# SA^^1^4.98^^^^4^^^LB^25^^^^2932^1
;;^UTILITY(U,$J,113,222,0)
;;=RUSSIAN DRESSING, DIET, IND^RUSS DRESS DIET BAG4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^357^.055
;;^UTILITY(U,$J,113,223,0)
;;=SAGE, GROUND^SAGE GROUND 1 LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^296^1
;;^UTILITY(U,$J,113,224,0)
;;=SALAD DRESSING, MAYO-TYPE, BULK^SALA DRESSSOYBEAN1GAL^^^JR^GL JR^^1^^^^^6^^^GAL^1^^^^354^8.289
;;^UTILITY(U,$J,113,225,0)
;;=SALAD DRESSING, DIET, (ZERO), IND^SALA DRESSZERODIET 4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^^.055
;;^UTILITY(U,$J,113,226,0)
;;=SALMON, CANNED^SALMON CANNED^^^CN^1# CN^^1^^^^^1^^^LB^1^^^^1591^1
;;^UTILITY(U,$J,113,227,0)
;;=SALMON, CND, DIET, WATER-PAK LO SODIUM^SALMON RED DIET NO1/2^^^CN^6.5-OZ CN^^1^^^^^1^^^LB^.4^^^^1592^1
;;^UTILITY(U,$J,113,228,0)
;;=SALT SUBSTITUTE, SEASONED^SALT SUB SHAKER 2 OZ^^^BT^2-OZ BT^^1^^^^^6^^^LB^.125^^^^^1
;;^UTILITY(U,$J,113,229,0)
;;=SALT SUBSTITUTE, IND^SALT SUB INDIV1/2GR1M^8940-00-450-3430^1^CS^CS-1000^5^1^3.46^^^^6^^^EACH^1000^^^^6417^.002
;;^UTILITY(U,$J,113,230,0)
;;=SALT^SALT TBL IODIZED 60LB^8950-00-125-8442^1^CO^5# BG^^12^9.55^^^^6^^^LB^5^^^^1598^1
;;^UTILITY(U,$J,113,231,0)
;;=SARDINES, CND^SARDINES VEGOIL33/4OZ^^^CN^3-3/4 OZ CN^^1^^^^^1^^^LB^.23^^^^1603^1
;;^UTILITY(U,$J,113,232,0)
;;=SOUP AND GRAVY BASE, CHICKEN^SOUP BASE CHICKEN 1LB^8935-00-851-7066^1^CO^1# CO^12^1^.91^^^^6^^^LB^1^^^^2789^1
;;^UTILITY(U,$J,113,233,0)
;;=SOUP AND GRAVY BASE, BEEF, DIET^SOUP BEEF DIET 16 OZ^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,234,0)
;;=SOUP AND GRAVY BASE, CHICKEN, DIET^SOUP CHKNCONCDIET16OZ^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^6637^1
;;^UTILITY(U,$J,113,235,0)
;;=SOUP AND GRAVY BASE, BEEF^SOUP BASE BEEF 1 LB^8935-00-851-7067^1^CO^1# CO^12^1^.95^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,236,0)
;;=SOUP AND GRAVY BASE, VEGETABLE^SOUP BASE CONSDVEG1QT^^^BT^QT BT^^1^^^^^6^^^GAL^.25^^^^^8.6
;;^UTILITY(U,$J,113,237,0)
;;=SOUP, COND, BEEF CONSOMME^SOUP CONDBEEFCONS #3^^^CN^#3 CN^^1^^^^^6^^^GAL^.36^^^^2980^8.677
;;^UTILITY(U,$J,113,238,0)
;;=SOUP, COND, BEEF NOODLE^SOUP BEEF NOODLE 51OZ^^^CN^51-OZ CN^^1^^^^^6^^^GAL^.4^^^^546^8.607
;;^UTILITY(U,$J,113,239,0)
;;=SOUP, COND, CHICKEN GUMBO^SOUP CHICKENGUMBO NO3^8935-00-771-4249^1^CN^#3 CN^12^1^1.73^^^^3^^^GAL^.36^^^^552^8.607
;;^UTILITY(U,$J,113,240,0)
;;=SOUP, COND, CHICKEN NOODLE^SOUP CHICK NOODLE NO3^8935-01-028-4646^1^CN^#3 CN^12^1^1.24^^^^6^^^GAL^.36^^^^553^8.501
;;^UTILITY(U,$J,113,241,0)
;;=SOUP, COND, CHICKEN WITH RICE^SOUP CHKNRICE STD NO3^^^CN^#3 CN^^1^^^^^6^^^GAL^.36^^^^2991^8.677
;;^UTILITY(U,$J,113,242,0)
;;=SOUP, COND, CREAM OF ASPARAGUS^SOUP CRMASPARAGUS50OZ^8935-00-099-2979^1^CN^50-OZ CN^12^1^1.96^^^^3^^^GAL^.39^^^^542^8.607
;;^UTILITY(U,$J,113,243,0)
;;=SOUP, COND, CREAM OF CHICKEN^SOUP CRM CHKN STD NO3^8935-00-480-4555^1^CN^#3 CN^12^1^1.40^^^^6^^^GAL^.36^^^^551^8.607
;;^UTILITY(U,$J,113,244,0)
;;=SOUP, COND, GREEN PEA^SOUP CONSDGRENPEA50OZ^^^CN^50-OZ CN^^1^^^^^3^^^GAL^.39^^^^567^8.819
;;^UTILITY(U,$J,113,245,0)
;;=SOUP, COND, CREAM OF MUSHROOM^SOUP CREAM MUSHSTDNO3^8935-00-455-5480^1^CN^#3 CN^12^1^1.42^^^^6^^^GAL^.36^^^^562^8.607
;;^UTILITY(U,$J,113,246,0)
;;=SOUP, COND, CREAM OF POTATO^SOUP CRM OF POTA NO.3^^^CN^#3 CN^^1^^^^^3^^^GAL^.36^^^^570^8.607
;;^UTILITY(U,$J,113,247,0)
;;=SOUP, COND, TOMATO, DIET^SOUP CONSDTOMDIET 2LB^^^CN^2# CN^^1^^^^^3^^^LB^2^^^^^1
;;^UTILITY(U,$J,113,248,0)
;;=SOUP, COND, VEGETABLE WITH BEEF^SOUP VEGWBEEF STD NO3^8935-00-480-4564^1^CN^#3 CN^12^1^1.76^^^^3^^^GAL^.36^^^^579^8.607
;;^UTILITY(U,$J,113,249,0)
;;=SOUP, COND, VEGETABLE^SOUP VEGETABLE NO.3^8935-00-480-4563^1^CN^#3 CN^12^1^1.43^^^^3^^^GAL^.36^^^^3022^8.501
;;^UTILITY(U,$J,113,250,0)
;;=SPINACH PUREE, DIET, LO NA^SPIN PUREE DIET NO303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^6455^1
;;^UTILITY(U,$J,113,251,0)
;;=SPINACH, CND, DIET^SPINACH DIET 7-3/4 OZ^^^CN^7-3/4 OZ CN^^1^^^^^3^^^LB^.48^^^^1868^1
;;^UTILITY(U,$J,113,252,0)
;;=STRAWBERRIES, FROZEN, SLICED W/SUGAR^STRA FZNSUGPK GRDAORB^^^LB^LB^^1^^^^^3^^^LB^1^^^^1806^1
;;^UTILITY(U,$J,113,253,0)
;;=SUGAR SUBSTITUTE, IND^SUGAR SUB IND 2M^8940-01-133-6132^1^CS^CS-2000^1^1^7.08^^^^6^^^EACH^2000^^^^6414^.004