©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
FHINI0HH ; ; 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,326,0)
;;=SOUP, COND, CREAM OF MUSHROOM, DIET^SOUP CRM MUSH COND#3^^^CN^8-OZ CN^^1^^^^^6^^^GAL^.062^^^^^8.607
;;^UTILITY(U,$J,113,327,0)
;;=SOUP, COND, CREAM OF TOMATO, DIET^SOUP CRMTOMATODIET8OZ^^^CN^8-OZ CN^^1^^^^^3^^^GAL^.062^^^^^8.607
;;^UTILITY(U,$J,113,328,0)
;;=MARGARINE, CORN OIL, UNSALTED, PATS^MARG CORN INDIV 72PAT^^^LB^LB^^1^^^^^6^^^EACH^72^^^^371^.011
;;^UTILITY(U,$J,113,329,0)
;;=TUNA, CND, DIET^TUNA WHT LT DIETNO1/2^8940-00-103-4503^1^CN^6.5-OZ CN^24^1^1.08^^^^1^^^LB^.4^^^^1956^1
;;^UTILITY(U,$J,113,330,0)
;;=CAKE MIX, GOLDEN SPONGE^CAKE MIXGOLDSPONGE5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,331,0)
;;=HOMINY GRITS, WHITE, QUICK COOK^HOMINY GRITWHTQCK24OZ^8920-00-114-2565^1^PG^24-OZ PG^24^1^.35^^^^4^^^LB^1.5^^^^1156^1
;;^UTILITY(U,$J,113,332,0)
;;=POTATOES, SWEET, CND, DIET^POTA SWT CNND DIET303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^2065^1
;;^UTILITY(U,$J,113,333,0)
;;=GARLIC ITALIAN DRESSING, CREAMY, IND^GARL ITALDRESSCRMTY2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^^.055
;;^UTILITY(U,$J,113,334,0)
;;=PRUNES, DEHYD^PRUN DEHYDWHLGRDB25LB^8915-00-122-9484^1^BG^25# BG^^1^67.19^^^^3^^^LB^25^^^^1787^1
;;^UTILITY(U,$J,113,335,0)
;;=CHERRIES, CND, RED SOUR, PITTED, WATER PACK^CHERRIES RED SOURNO10^8915-00-126-8788^1^CN^#10 CN^6^1^3.13^^^^3^^^LB^6.5^^^^1648^1
;;^UTILITY(U,$J,113,336,0)
;;=BRUSSELS SPROUTS, FROZEN^BRUS SPROUTSFRZGRDA/B^^^LB^LB^^1^^^^^3^^^LB^1^^^^840^1
;;^UTILITY(U,$J,113,337,0)
;;=SPINACH, FROZEN, LEAF^SPIN FZN CT/WHL LEAF^^^LB^LB^^1^^^^^3^^^LB^1^^^^1871^1
;;^UTILITY(U,$J,113,338,0)
;;=CORN, FROZEN, GOLDEN, WHOLE KERNEL^CORN FZNGOLD WHL AORB^^^LB^LB^^1^^^^^3^^^LB^1^^^^1040^1
;;^UTILITY(U,$J,113,339,0)
;;=PEAS, FROZEN^PEAS FZN GRADE A OR B^^^LB^LB^^1^^^^^3^^^LB^1^^^^2049^1
;;^UTILITY(U,$J,113,340,0)
;;=CEREAL, GRAPE-NUTS, IND^CERE MALTGRANUL INDBX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1118^.083
;;^UTILITY(U,$J,113,341,0)
;;=PUMPKIN, CND^PUMPKIN GRD A NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1542^1
;;^UTILITY(U,$J,113,342,0)
;;=HOMINY, WHOLE, CND, WHITE^HOMI WHL WHITEFCYNO10^8920-00-127-9784^1^CN^#10 CN^6^1^1.66^^^^3^^^LB^6.5^^^^2797^1
;;^UTILITY(U,$J,113,343,0)
;;=ONIONS, DEHYD, SLICED^ONIONS DEHYD SLCDNO10^8915-00-128-1171^1^CN^#10 CN^6^1^3.62^^^^3^^^LB^6.5^^^^1384^1
;;^UTILITY(U,$J,113,344,0)
;;=BEANS, CUT GREEN, FROZEN^BEANS GREENFZN RD CUT^^^LB^LB^^1^^^^^3^^^LB^1^^^^718^1
;;^UTILITY(U,$J,113,345,0)
;;=BROCCOLI, FROZEN, SPEARS^BROC FZNSPEAR GRD A/B^^^LB^LB^^1^^^^^3^^^LB^1^^^^836^1
;;^UTILITY(U,$J,113,346,0)
;;=HASH, CORNED BEEF, CND, COOKED^HASH CORNBEEFCNNDNO10^8940-00-133-3141^1^CN^#10 CN^6^1^5.17^^^^1^^^LB^6.5^^^^773^1
;;^UTILITY(U,$J,113,347,0)
;;=MERITENE, VANILLA, BULK POWDER^MERITENE VAN 1#CN^^^CN^1# CN^^1^^^^^5^^^LB^1^^^^6014^1
;;^UTILITY(U,$J,113,348,0)
;;=BEEF, BONELESS, FROZEN, TOP ROUND^BEEF BONELESS FROZEN^^^LB^LB^^1^^^^^1^^^LB^1^^^^2149^1
;;^UTILITY(U,$J,113,349,0)
;;=SPINACH, CND^SPINACH GRD A NO 10^8915-00-143-0931^1^CN^#10 CN^6^1^2.41^^^^3^^^LB^6.5^^^^1867^1
;;^UTILITY(U,$J,113,350,0)
;;=PEAS AND CARROTS, FROZEN^PEAS &CARROTSFZN AORB^^^LB^LB^^1^^^^^3^^^LB^1^^^^1426^1
;;^UTILITY(U,$J,113,351,0)
;;=CHILI CON CARNE, CND, W/O BEANS^CHIL CONW/OBEANS NO10^^^CN^#10 CN^^1^^^^^1^^^LB^3.9^^^^972^1
;;^UTILITY(U,$J,113,352,0)
;;=FIGS, CND, KADOTA, SYRUP-PAK^FIGS KADOTA LT NO 10^8915-01-095-2391^1^CN^#10 CN^6^1^4.90^^^^3^^^LB^6.5^^^^1671^1
;;^UTILITY(U,$J,113,353,0)
;;=RUSSIAN DRESSING, IND^RUSS DRESSLQDINDIV 2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^351^.055
;;^UTILITY(U,$J,113,354,0)
;;=LAMB PUREE, DIET, LOW NA^LAMB PURE DIET15/17OZ^8940-00-151-6459^1^CN^1# CN^12^1^2.04^^^^1^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,355,0)
;;=LIVER PUREE, DIET, LOW SODIUM^LIVER PUREDIET15/17OZ^^^CN^1# CN^^1^^^^^1^^^LB^1^^^^6476^1
;;^UTILITY(U,$J,113,356,0)
;;=PORK PUREE, DIET, LO NA^PORK PURE DIET15/17OZ^8940-00-151-6461^1^CN^1# CN^12^1^1.90^^^^1^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,357,0)
;;=DESSERT POWDER, GELATIN, CHERRY, DIET^DESS CHRYDIET77/10 OZ^^^JR^7.7-OZ JR^^1^^^^^6^^^EACH^1^^^^6408^.265
;;^UTILITY(U,$J,113,358,0)
;;=EGG MIX, POWDER FORM^EGG MIX DEHY PWD^^^LB^LB^^1^^^^^1^^^LB^1^^^^125^1
;;^UTILITY(U,$J,113,359,0)
;;=CAULIFLOWER, FROZEN^CAULIFLOWERFRZGRD A/B^^^LB^LB^^1^^^^^3^^^LB^1^^^^948^1
;;^UTILITY(U,$J,113,360,0)
;;=STARCH, CORN^STARCH EDIBLE 1 LB^8920-00-160-6165^1^CT^1# CT^24^1^.33^^^^4^^^LB^1^^^^1061^1
;;^UTILITY(U,$J,113,361,0)
;;=CARROTS, FROZEN, SLICED^CARR FROZEN SLICED^^^LB^LB^^1^^^^^3^^^LB^1^^^^2038^1
;;^UTILITY(U,$J,113,362,0)
;;=JUICE, ORANGE, FROZEN, UNSW, IND^JUICE ORANGE FZN4OZ48^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^1733^.274