©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
FHINI0HP ; ; 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,617,0)
;;=PINEAPPLE, CND, SLICED, SYRUP-PAK^PINEAPPLE SLC CND SYR^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1772^1
;;^UTILITY(U,$J,113,618,0)
;;=PIE FILLING, CHERRY^PIE FLLG CHRY NO.10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,619,0)
;;=PIE FILLING, BLUEBERRY^PIE FLLG BLUBRY NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,620,0)
;;=TURKEY PUREE, W/SALT^TURKEY PUREESALTNO303^^^CN^#303 CN^^1^^^^^1^^^LB^1^^^^6477^1
;;^UTILITY(U,$J,113,621,0)
;;=JUICE, PRUNE, FROZEN, CONC, UNSW^JUICE PRUNE FRZ CONC^^^CN^QT CN^^1^^^^^3^^^GAL^.25^^^^1790^9.03
;;^UTILITY(U,$J,113,622,0)
;;=HAM PUREE, SALTED^HAM PUREE SALT NO.303^^^CN^#303 CN^^1^^^^^1^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,623,0)
;;=AMIN-AID, ORANGE^DIET AMINAIDORG 5.2OZ^^^PG^PG^^1^^^^^5^^^EACH^1^^^^6135^.325
;;^UTILITY(U,$J,113,624,0)
;;=MARGARINE, CORN OIL, UNSALTED, STICK^MARG CORNPRINTUNSALTD^^^LB^LB^^1^^^^^6^^^LB^1^^^^371^1
;;^UTILITY(U,$J,113,625,0)
;;=CRANBERRY JUICE COCKTAIL, SWEETENED, IND^CRANBERRY JCECOCK 48S^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^1660^.279
;;^UTILITY(U,$J,113,626,0)
;;=JUICE, VEGETABLE, CND, IND^JUICEVEGETABLESGL 6OZ^8915-01-039-8023^1^CN^6-OZ CN^48^1^.18^^^^3^^^EACH^1^^^^1976^.401
;;^UTILITY(U,$J,113,627,0)
;;=PUDDING, CND, BANANA^PUDD CNND BANANA NO10^^^CN^#10 CN^^1^^^^^6^^^LB^6.5^^^^6614^1
;;^UTILITY(U,$J,113,628,0)
;;=FLOUR, GENERAL PURPOSE^FLOUR WHTBLEDUNBL25LB^8920-01-043-4011^1^BG^25# BG^2^1^3.69^^^^4^^^LB^25^^^^1998^1
;;^UTILITY(U,$J,113,629,0)
;;=CRACKERS, OYSTER, SALTED, IND^CRACKERS OYSTER 200S^^^CS^CS-200^^1^^^^^4^^^EACH^200^^^^^.018
;;^UTILITY(U,$J,113,630,0)
;;=ENSURE PLUS, VANILLA, IND^DIET SUPMTLQD VANL8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6018^.522
;;^UTILITY(U,$J,113,631,0)
;;=PRECISION ISOTONIC, VANILLA^DIET PRECISION2.06OZ6^^^PG^2.06-OZ PG^^1^^^^^5^^^EACH^1^^^^6034^.176
;;^UTILITY(U,$J,113,632,0)
;;=MUFFIN MIX, NUT^MUFF MIX NUT 5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,633,0)
;;=OLIVE OIL^OLIV OIL PURE 16 OZ^^^BT^PT BT^^1^^^^^6^^^GAL^.12^^^^367^7.619
;;^UTILITY(U,$J,113,634,0)
;;=CHICKEN ALA KING, CND, HEAT AND SERVE^CHIC ALAKINGCNND6.5LB^^^CN^#10 CN^^1^^^^^1^^^LB^6.5^^^^6124^1
;;^UTILITY(U,$J,113,635,0)
;;=PIE FILLING, SLICED APPLES^PIE FLLG APPLE NO.10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,636,0)
;;=SUSTACAL, CHOCOLATE, IND^DIET SUPMTCHOC LQD8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6003^.522
;;^UTILITY(U,$J,113,637,0)
;;=ORANGES, CND, SEGMENTS, FRESH PAK, UNSW^ORAN VALENC8LB(1 GAL)^^^JR^GL JR^^1^^^^^3^^^GAL^1^^^^1726^6.349
;;^UTILITY(U,$J,113,638,0)
;;=COOKIES, SHORTBREAD, IND^COOK SHTBRED 8-3/4 LB^^^CS^CS-120^^1^^^^^4^^^EACH^120^^^^1021^.062
;;^UTILITY(U,$J,113,639,0)
;;=COOKIES, FIG BAR^COOKIES, FIG BAR^^^CS^10# CS^^1^^^^^4^^^LB^10^^^^1011^1
;;^UTILITY(U,$J,113,640,0)
;;=COOKIES, CHOCOLATE CHIP^COOKIES CHOC CHIP^^^CS^10# CS^^1^^^^^4^^^LB^10^^^^1009^1
;;^UTILITY(U,$J,113,641,0)
;;=COOKIES, OATMEAL^COOK OATMEAL 11-1/4LB^^^CS^11.25# CS^^1^^^^^4^^^LB^11.25^^^^1017^1
;;^UTILITY(U,$J,113,642,0)
;;=BEANS, PINTO, CND, WATER PAK^BEAN PINTO CNND NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^2273^1
;;^UTILITY(U,$J,113,643,0)
;;=CRACKERS, RYE, IND^CRACKERS RYE 200S^^^CS^CS-200^^1^^^^^4^^^EACH^200^^^^^.029
;;^UTILITY(U,$J,113,644,0)
;;=CRACKERS, WHEAT, (MELBA ROUNDS)^CRACKERS MELBA^^^CS^CS-200^^1^^^^^4^^^EACH^200^^^^^.031
;;^UTILITY(U,$J,113,645,0)
;;=COOKIES, BUTTER FLAVORED^COOKIES BUTTER^^^CS^10# CS^^1^^^^^4^^^LB^10^^^^1006^1
;;^UTILITY(U,$J,113,646,0)
;;=BARBECUE SAUCE, HICKORY SMOKE FLAVOR^BARB SAUCE HICK 1 GAL^^^CO^GL CO^^1^^^^^6^^^GAL^1^^^^523^8.53
;;^UTILITY(U,$J,113,647,0)
;;=SUGAR, GRANULATED, IND^SUGAR REF INDIV PZ 2M^8925-01-060-6408^1^CS^CS-2000^^1^8.16^^^^6^^^EACH^2000^^^^1906^.009
;;^UTILITY(U,$J,113,648,0)
;;=PEPPERS, GREEN, CND, CHILIS^GREEN PEPPRS 1#CN^^^CN^1# CN^^1^^^^^3^^^LB^1^^^^1429^1
;;^UTILITY(U,$J,113,649,0)
;;=MERITENE, EGGNOG, IND^DIET ENOGMERITN 250ML^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6013^.522
;;^UTILITY(U,$J,113,650,0)
;;=MERITENE, VANILLA, IND^MERITENE VAN IND^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6013^.522
;;^UTILITY(U,$J,113,651,0)
;;=PEPPERS, PICKLED, (JALAPENO)^PEPP PICKLED 6LB 2OZ^^^CN^#10 CN^^1^^^^^6^^^LB^6.12^^^^2083^1
;;^UTILITY(U,$J,113,652,0)
;;=GREENS, MUSTARD, CND, CHOPPED^GREENS MUSTCHOP NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1352^1
;;^UTILITY(U,$J,113,653,0)
;;=GRAVY MIX, CHICKEN, DIET LO NA^GRAV MIX CHICKEN 8 OZ^^^CO^8-OZ CO^^1^^^^^6^^^LB^.5^^^^6406^1
;;^UTILITY(U,$J,113,654,0)
;;=SUSTACAL PUDDING, BUTTERSCOTCH^DIETSUPMTPUDBUSCTH5OZ^8940-01-255-6766^1^CN^5-OZ CN^48^1^.45^^^^5^^^EACH^1^^^^6004^.309