©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
FHINI0HN ; ; 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,543,0)
;;=GREEN BEAN PUREE, DIET LO NA^GREEN BEANPUREDIET303^8940-00-851-7081^1^CN^#303 CN^24^1^.57^^^^3^^^LB^1^^^^6451^1
;;^UTILITY(U,$J,113,544,0)
;;=CORN, CND, WHOLE GRAIN, DIET LO NA^CORN DIET WHL #303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^1038^1
;;^UTILITY(U,$J,113,545,0)
;;=SUSTACAL, VANILLA, BULK^DIETSUPMTVANLLLQD32OZ^^^CN^QT CN^^1^^^^^5^^^EACH^1^^^^6003^2.116
;;^UTILITY(U,$J,113,546,0)
;;=SQUASH, FROZEN, MASHED^SQUA FZN COKDFALLGRDA^^^LB^LB^^1^^^^^3^^^LB^1^^^^1901^1
;;^UTILITY(U,$J,113,547,0)
;;=CHOWCHOW, SWEET^CHOW SWEET GRD A 1GAL^^^JR^GL JR^^1^^^^^6^^^GAL^1^^^^1443^8.642
;;^UTILITY(U,$J,113,548,0)
;;=APPLE RINGS, SPICED, UNPEELED, SYRUP PAK^APPLE SPICED RINGNO10^8915-00-880-6314^1^CN^#10 CN^6^1^3.67^^^^3^^^EACH^85^^^^^.022^2930323
;;^UTILITY(U,$J,113,549,0)
;;=PAPAYA, CND, SYRUP-PAK^PAPA CNNDSLCDGRDANO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,550,0)
;;=ASPARAGUS PUREE, GREEN, DIET^ASPA PUREE DIET NO303^8940-00-890-1145^1^CN^#303 CN^24^1^1.08^^^^3^^^LB^1^^^^6447^1
;;^UTILITY(U,$J,113,551,0)
;;=PEPPERS, GREEN, CND, HALVED, BELL^PEPP GRENCNNDHVS NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^2053^1
;;^UTILITY(U,$J,113,552,0)
;;=CORN PUREE, DIET LOW SODIUM^CORN PUREE DIET NO303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^6450^1
;;^UTILITY(U,$J,113,553,0)
;;=SOUP, COND, BEEF WITH BARLEY^SOUP BEEF WBARLEY51OZ^8935-00-901-3539^1^CN^51-OZ CN^12^1^2.04^^^^6^^^GAL^.4^^^^^8.6
;;^UTILITY(U,$J,113,554,0)
;;=CEREAL, CREAM OF RICE, QUIK-COOK^CERE CREAMOFRICE 28OZ^^^PG^28-OZ PG^^1^^^^^4^^^LB^1.75^^^^1161^1
;;^UTILITY(U,$J,113,555,0)
;;=CAKE MIX, CHOCOLATE^CAKE MIX CHOCOLATE5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^2686^1
;;^UTILITY(U,$J,113,556,0)
;;=MEAT TENDERIZER^MEAT TENDERIZER 1#^^^JR^1# JR^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,557,0)
;;=PIE FILLING, INSTANT, CHEESE CAKE MIX^PIE FLLGCHEESECAKE4LB^^^PG^4# PG^^1^^^^^6^^^LB^4^^^^^1
;;^UTILITY(U,$J,113,558,0)
;;=CEREAL, CORN FLAKES, LOW SODIUM, IND^CERE CORNFLKDIETINDBX^^^CS^CS-72^^1^^^^^4^^^EACH^72^^^^1109^.04
;;^UTILITY(U,$J,113,559,0)
;;=EGGNOG MIX, DRY^EGGNOG MIX DRY PWD2LB^8910-00-917-0819^1^PG^2# PG^6^1^4.92^^^^5^^^LB^2^^^^2224^1
;;^UTILITY(U,$J,113,560,0)
;;=GREENS, KALE, CND, CHOPPED^GREENS KALE CNND NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1269^1
;;^UTILITY(U,$J,113,561,0)
;;=MERITENE, EGGNOG, BULK^DIET EGGNOG PWD 25LB^^^CO^25# CO^^1^^^^^5^^^LB^25^^^^6013^1
;;^UTILITY(U,$J,113,562,0)
;;=GREENS, TURNIP, FROZEN^TURNIP GREENS FRZN^^^LB^LB^^1^^^^^3^^^LB^1^^^^1967^1
;;^UTILITY(U,$J,113,563,0)
;;=FRUIT SALAD, CND, SYRUP-PAK^FRUIT SLD HVY PK NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1681^1
;;^UTILITY(U,$J,113,564,0)
;;=GARLIC PASTE, PURE^GARLIC PASTE 1 LB^^^JR^1# JR^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,565,0)
;;=SOY SAUCE, IND^SOY SAUCE 500S^^^CS^CS-500^^1^^^^^6^^^EACH^500^^^^3025^.009
;;^UTILITY(U,$J,113,566,0)
;;=CRACKERS, SODA, SALTED, BULK^CRAC SODA SALTED 1LB^^^CO^1# CO^^1^^^^^4^^^LB^1^^^^1080^1
;;^UTILITY(U,$J,113,567,0)
;;=SOUP AND GRAVY BASE, HAM^SOUP GRAVY HAMINST1LB^^^JR^1# JR^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,568,0)
;;=MAYONNAISE, IND^MAYO INDIV BAG PO 200^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^360^.055
;;^UTILITY(U,$J,113,569,0)
;;=BEANS, LIMA, DRY^BEANS, LIMA, DRY^^^LB^LB^^1^^^^^3^^^LB^1^^^^697^1
;;^UTILITY(U,$J,113,570,0)
;;=PEAS, DRY, SPLIT, GREEN^PEAS DRY SPLTGREN25LB^^^SA^25# SA^^1^^^^^3^^^LB^25^^^^1425^1
;;^UTILITY(U,$J,113,571,0)
;;=JUICE, GRAPEFRUIT, CND^JUIC GRAPEFRUITSW46OZ^^^CN^#3 CN^^1^^^^^3^^^GAL^.36^^^^1693^8.804
;;^UTILITY(U,$J,113,572,0)
;;=SAUERKRAUT, CND^SAUERKRAUT SHRED NO10^8915-00-957-9558^1^CN^#10 CN^6^1^2.26^^^^3^^^LB^6.5^^^^1604^1
;;^UTILITY(U,$J,113,573,0)
;;=CATSUP, TOMATO, BULK^CATSUP TOM GRD A NO10^8950-00-957-9561^1^CN^#10 CN^6^1^2.17^^^^6^^^LB^7^^^^1938^1
;;^UTILITY(U,$J,113,574,0)
;;=BEANS, KIDNEY, DRY^BEANS KIDNEY DRY 1 LB^^^BX^1# BX^^1^^^^^3^^^LB^1^^^^2644^1
;;^UTILITY(U,$J,113,575,0)
;;=JUICE, APRICOT AND ORANGE, CND^JUICE APRI&ORG NO3^^^CN^#3 CN^^1^^^^^3^^^GAL^.36^^^^1387^8.804
;;^UTILITY(U,$J,113,576,0)
;;=JAM, STRAWBERRY, IND^JAM STRWBRYINDIVCUP2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1263^.031
;;^UTILITY(U,$J,113,577,0)
;;=POPCORN, YELLOW^POPC UNPOPPED YEL50LB^^^SA^50# SA^^1^^^^^6^^^LB^50^^^^1499^1
;;^UTILITY(U,$J,113,578,0)
;;=BARBECUE SAUCE, REGULAR FLAVOR^BARBECUE SAUCE 1 GAL^^^CO^GL CO^^1^^^^^6^^^GAL^1^^^^523^8.819
;;^UTILITY(U,$J,113,579,0)
;;=CRABAPPLES, SPICED, CANNED, WHOLE, SYRUP-PAK^CRABAPPLE SPCDWHLNO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,580,0)
;;=BANANA PULP, MASHED^BANANA PULP FINE NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1635^1