©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
FHINI0HL ; ; 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,471,0)
;;=CLAM CHOWDER, COND, NEW ENGLAND STYLE^CLAM CHOWDER NEWE NO3^^^CN^#3 CN^^1^^^^^1^^^GAL^.36^^^^2994^8.854
;;^UTILITY(U,$J,113,472,0)
;;=DESSERT POWDER, GELATIN, BLACK RASPBERRY, DIET^DESS BLKRASPBR77/10OZ^^^JR^7.7-OZ JR^^1^^^^^6^^^EACH^1^^^^6408^.265
;;^UTILITY(U,$J,113,473,0)
;;=BOUILLON, CHICKEN, CUBES^CHICKEN BOULLON CUBES^^^JR^JR-100^^1^^^^^6^^^EACH^100^^^^515^.011
;;^UTILITY(U,$J,113,474,0)
;;=CHICKEN, FROZEN, QUARTERED, READY-TO-COOK^CHICKEN QUART FRZ^^^LB^LB^^1^^^^^1^^^LB^1^^^^401^1
;;^UTILITY(U,$J,113,475,0)
;;=CHICKEN LEG, FROZEN, READY-TO-COOK^CHICKEN LEG FRZ^^^LB^LB^^1^^^^^1^^^LB^1^^^^437^1
;;^UTILITY(U,$J,113,476,0)
;;=NUTRI-1000, CHOCOLATE^NUTRI-1000, CHOCOLATE^^^CN^QT CN^^1^^^^^5^^^EACH^1^^^^^.558
;;^UTILITY(U,$J,113,477,0)
;;=LASAGNA WITH MEAT SAUCE, FROZEN, COOKED^LASA W MEATSAUCE 24LB^^^CS^CS-4 PN^^1^^^^^1^^^LB^24^^^^6071^1
;;^UTILITY(U,$J,113,478,0)
;;=JUICE, GRAPEFRUIT, CND, IND^JUICE GRAPEFRUITSW6OZ^^^CN^6-OZ CN^^1^^^^^3^^^EACH^1^^^^1693^.413
;;^UTILITY(U,$J,113,479,0)
;;=CORNED BEEF, CND^BEEF CORNED CNND 6 LB^8905-00-559-3914^1^CN^#10 CN^6^1^8.24^^^^1^^^LB^6^^^^772^1
;;^UTILITY(U,$J,113,480,0)
;;=SALT, IND^SALT TBL IODIZINDPK1M^8950-00-559-6972^1^CS^CS-1000^10^1^1.53^^^^6^^^EACH^1000^^^^1598^.002
;;^UTILITY(U,$J,113,481,0)
;;=SEAFOOD SAUCE, IND^SEAFOOD SAUCE1/2OZ200^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^^.031
;;^UTILITY(U,$J,113,482,0)
;;=VEGETABLE PROTEIN MEAT SUBSTITUTE^VEGE PTN MEATSUB 25LB^^^CO^25# CO^^1^^^^^1^^^LB^25^^^^^1
;;^UTILITY(U,$J,113,483,0)
;;=ISOCAL, UNFLAVORED^DIET SUPMTLQISOCAL8OZ^8940-01-255-6771^1^CN^8-OZ CN^12^1^.41^^^^5^^^EACH^1^^^^6005^.522
;;^UTILITY(U,$J,113,484,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,485,0)
;;=RELISH, CORN, SWEET^RELISH CORN SWT 1GAL^^^JR^GL JR^^1^^^^^6^^^GAL^1^^^^^8.5
;;^UTILITY(U,$J,113,486,0)
;;=JUICE, APPLE, CND^JUICE APLCNNDGRDA46OZ^8915-00-584-1647^1^CN^#3 CN^12^1^.85^^^^3^^^GAL^.36^^^^1809^8.748
;;^UTILITY(U,$J,113,487,0)
;;=ASPARAGUS SPEARS, FROZEN GREEN^ASPA FZN SPEARS GRD A^^^LB^LB^^1^^^^^3^^^LB^1^^^^676^1
;;^UTILITY(U,$J,113,488,0)
;;=SUSTAGEN, VANILLA^DIET SUPMTSUSTAGEN5LB^^^CN^5# CN^^1^^^^^5^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,489,0)
;;=CHEESE, CHEDDAR AGED, HARD, BRICK^CHEE CHEDDAR NATURAL^^^LB^LB^^1^^^^^2^^^LB^1^^^^9^1
;;^UTILITY(U,$J,113,490,0)
;;=CHEESE KRAFT PKG WITH CRACKERS, IND^CHEE CRAC INDIVPK 1C^^^CS^CS-100^^1^^^^^2^^^EACH^100^^^^6432^.07
;;^UTILITY(U,$J,113,491,0)
;;=BACON, SLICED, CND, OVEN BROILED^BACON SLICED CNNDNO10^8905-00-585-5805^1^CN^#10 CN^3^1^19.76^^^^6^^^EACH^300^^^^213^.062
;;^UTILITY(U,$J,113,492,0)
;;=SQUASH, FROZEN, SUMMER^SQUA FZNSUMSLCDGRDA/B^^^LB^LB^^1^^^^^3^^^LB^1^^^^1900^1
;;^UTILITY(U,$J,113,493,0)
;;=BEANS, CUT WAX, FROZEN^BEAN WAXFZNRDCTGRDA/B^^^LB^LB^^1^^^^^3^^^LB^1^^^^728^1
;;^UTILITY(U,$J,113,494,0)
;;=RELISH, PICKLE, SWEET^RELI PICKSWTCURED1GAL^8950-00-616-5477^1^JR^GL JR^4^1^3.88^^^^6^^^GAL^1^^^^1445^8.642
;;^UTILITY(U,$J,113,495,0)
;;=JUICE, PINEAPPLE, CND, UNSW^JUIC PINESGL/CONC46OZ^8915-01-090-2666^1^CN^#3 CN^12^1^.83^^^^3^^^GAL^.36^^^^1775^8.833
;;^UTILITY(U,$J,113,496,0)
;;=PEPPER, BLACK, GROUND, IND^PEPP BLACKGRODINDIV1M^8950-00-641-8946^1^BX^CS-1000^10^1^3.24^^^^6^^^EACH^1000^^^^288^.002
;;^UTILITY(U,$J,113,497,0)
;;=CRANBERRY SAUCE, CND, JELLIED OR STRAINED^CRANBERRY SAUCE NO 10^8915-00-851-6564^1^CN^#10 CN^6^1^3.49^^^^3^^^LB^6.5^^^^1661^1
;;^UTILITY(U,$J,113,498,0)
;;=LIPOMUL-ORAL, VANILLA^DIET LIPOMUL ORAL 1PT^^^BT^PT BT^^1^^^^^5^^^EACH^1^^^^^.525
;;^UTILITY(U,$J,113,499,0)
;;=OYSTERS, CND^OYSTER WHL LT MEAT8OZ^^^CN^8-OZ CN^^1^^^^^1^^^LB^.5^^^^1390^1
;;^UTILITY(U,$J,113,500,0)
;;=MUFFIN MIX, HONEY AND BRAN^MUFF MIX HONEYBRAN5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,501,0)
;;=CORN MEAL, WHITE, FINE^CORN MEAL WHTFINE25LB^^^SA^25# BG^^1^^^^^4^^^LB^25^^^^1057^1
;;^UTILITY(U,$J,113,502,0)
;;=ONION SALT^ONION SALT 1 LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,503,0)
;;=PORK, HAM, FROZEN, UNCURED^PORK HAM FROZEN^^^LB^LB^^1^^^^^1^^^LB^1^^^^199^1
;;^UTILITY(U,$J,113,504,0)
;;=PORK CHOPS, BONELESS^PORK CHOPS FROZEN^^^LB^LB^^1^^^^^1^^^LB^1^^^^161^1
;;^UTILITY(U,$J,113,505,0)
;;=TAMALES, BEEF, CND, W/CHILI GRAVY^TAMALES BEEF CNND70OZ^^^CN^70-OZ CN^^1^^^^^1^^^LB^4.38^^^^^1
;;^UTILITY(U,$J,113,506,0)
;;=PUDDING, CND, RICE^PUDD RDYTOSRVRICENO10^^^CN^#10 CN^^1^^^^^6^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,507,0)
;;=SOUP, COND, FRENCH ONION^SOUP FRENCH ONION NO3^^^CN^#3 CN^^1^^^^^6^^^GAL^.36^^^^564^8.501