©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
FHINI0HI ; ; 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,363,0)
;;=JUICE, GRAPE, FROZEN, UNSW, IND^JUICE GRAPE FZN 4OZ48^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^1700^.279
;;^UTILITY(U,$J,113,364,0)
;;=JUICE, GRAPEFRUIT, FROZEN, UNSW, IND^JUIC GRAPFRUTFZN4OZ48^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^1694^.272
;;^UTILITY(U,$J,113,365,0)
;;=CORN, FROZEN, ON COBS^CORN FZN ONCOB96S28LB^^^CO^28# CO^^1^^^^^3^^^EACH^96^^^^1044^.139
;;^UTILITY(U,$J,113,366,0)
;;=BARLEY, PEARL, WHITE^BARLEY PEARL WHITE1LB^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^688^1
;;^UTILITY(U,$J,113,367,0)
;;=CEREAL, WHEAT CHEX, IND^CERE SHRDWHETSM INDBX^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1152^.04
;;^UTILITY(U,$J,113,368,0)
;;=PUDDING, CND, CHOCOLATE DIET, LO NA^PUDD CNNDDIETCHOC18OZ^^^CN^18-OZ CN^^1^^^^^6^^^LB^1.12^^^^^1
;;^UTILITY(U,$J,113,369,0)
;;=PUDDING, CND, VANILLA, DIET, LO NA^PUDD DIET VANILLA18OZ^^^CN^18-OZ CN^^1^^^^^6^^^LB^1.12^^^^^1
;;^UTILITY(U,$J,113,370,0)
;;=JUICE, ORANGE, CND, UNSW, IND^JUIC ORGEASYOPN51/2-6^8915-00-172-3508^1^CN^6-OZ CN^48^1^.22^^^^3^^^EACH^1^^^^1731^.411
;;^UTILITY(U,$J,113,371,0)
;;=GEVRAL PROTEIN, CHERRY^GEVRAL CHERRY^^^PG^1# PG^^1^^^^^5^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,372,0)
;;=BEEF, STEWING, FRZN RAW, DICED^BEEF STEWING FROZEN^^^LB^LB^^1^^^^^1^^^LB^1^^^^2125^1
;;^UTILITY(U,$J,113,373,0)
;;=VANILLA EXTRACT^EXTR VANLLSGLSTGH32OZ^^^BT^QT BT^^1^^^^^6^^^GAL^.25^^^^^8
;;^UTILITY(U,$J,113,374,0)
;;=CORN, CND, WHOLE GRAIN^CORN WHL GRN GOLDNO10^8915-00-184-6593^1^CN^#10 CN^6^1^1.71^^^^3^^^LB^6.5^^^^1034^1
;;^UTILITY(U,$J,113,375,0)
;;=APPLES, CND, SLICED, PEELED^APPLES SLICEDGRDCNO10^8915-00-184-6620^1^CN^#10 CN^6^1^2.63^^^^3^^^LB^6.5^^^^1615^1
;;^UTILITY(U,$J,113,376,0)
;;=POTATOES, WHITE, CND, DICED^POTATO WHT DICED NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1516^1
;;^UTILITY(U,$J,113,377,0)
;;=SALAD OIL^SALAD OIL VEGFATS1GAL^8945-00-191-4835^1^CN^GL CN^6^1^4.48^^^^6^^^GAL^1^^^^2873^7.69
;;^UTILITY(U,$J,113,378,0)
;;=CEREAL, BRAN SHRED (ALL BRAN), BULK^CEREAL BRAN SHRED16OZ^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^1102^1
;;^UTILITY(U,$J,113,379,0)
;;=BEEF, CUBED STEAKS, FRZN^BEEF FZNCUBESTEAKSPEC^^^LB^LB^^1^^^^^1^^^LB^1^^^^2125^1
;;^UTILITY(U,$J,113,380,0)
;;=MILK, LOW SODIUM^MILK SUB PWD 1 LB^^^CN^1# CN^^1^^^^^2^^^LB^1^^^^86^1
;;^UTILITY(U,$J,113,381,0)
;;=ASPARAGUS, CUT SPEARS, CND, GREEN^ASPARAGU CUTSPEARNO10^8915-00-192-1512^1^CN^#10 CN^6^1^4.50^^^^3^^^LB^6.5^^^^668^1
;;^UTILITY(U,$J,113,382,0)
;;=MUSTARD, GROUND^MUSTARD GROUND 1 LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,383,0)
;;=NUTMEG, GROUND^NUTMEG GRD 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^283^1
;;^UTILITY(U,$J,113,384,0)
;;=PAPRIKA, GROUND^PAPR GROD SPANISH 1LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^286^1
;;^UTILITY(U,$J,113,385,0)
;;=NECTAR, APRICOT, CND^NECTAR APRICOTSWT46OZ^8915-00-194-1339^1^CN^#3 CN^12^1^.97^^^^3^^^GAL^.36^^^^1633^8.861
;;^UTILITY(U,$J,113,386,0)
;;=BEANS, CUT WAX, CND^BEANS WAX CUTGRDBNO10^8915-00-194-1407^1^CN^#10 CN^6^1^2.05^^^^3^^^LB^6.5^^^^725^1
;;^UTILITY(U,$J,113,387,0)
;;=COOKIES, SANDWICH, CREAM /WAFFLE WAFER, IND^COOK SAND WAFCRFIL300^^^CS^CS-300^^1^^^^^4^^^EACH^300^^^^1023^.042
;;^UTILITY(U,$J,113,388,0)
;;=JUICE, PINEAPPLE, CND, UNSW, IND^JUICE PINE SGL5-1/2OZ^8915-00-205-0938^1^CN^6-OZ CN^48^1^.20^^^^3^^^EACH^1^^^^1775^.414
;;^UTILITY(U,$J,113,389,0)
;;=COCKTAIL SAUCE, IND^COCKTAIL SCE 200S^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^^.022
;;^UTILITY(U,$J,113,390,0)
;;=APPLES, BKD SPICED, CND, WHOLE CORED W/SYRUP^APPLE WHLCOREDBKDNO10^^^CN^#10 CN^^1^^^^^3^^^EACH^30^^^^^.265
;;^UTILITY(U,$J,113,391,0)
;;=WORCESTERSHIRE SAUCE^WORCESTER SAUCE 10 OZ^8950-00-223-5409^1^BT^10-OZ BT^12^1^.49^^^^6^^^GAL^.078^^^^6354^8
;;^UTILITY(U,$J,113,392,0)
;;=POTATOES, WHITE, DEHYD, SLICED^POTA WHT DEHYDSLCD5LB^8915-00-225-9164^1^BG^5# BG^4^1^4.57^^^^3^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,393,0)
;;=CAKE, DESSERT SHELL, IND^CAKE FRSHTARTSHELL72S^^^CS^CS-72^^1^^^^^4^^^EACH^72^^^^872^.132
;;^UTILITY(U,$J,113,394,0)
;;=CONDIMENT PACKET, ORANGE 2^COND PACKETCODE2ORG1M^^^CS^CS-1000^^1^^^^^9^^^EACH^1000
;;^UTILITY(U,$J,113,395,0)
;;=CONDIMENT PACKET, YELLOW 2^COND PACKETCODEYEL 1M^^^CS^CS-1000^^1^^^^^9^^^EACH^1000
;;^UTILITY(U,$J,113,396,0)
;;=CAKE MIX, LEMON GOLD^CAKE MIX LEMGOLD 5#BX^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,397,0)
;;=CEREAL, BRAN SHRED, (ALL BRAN), IND^CERE ALL BRAN IND BX^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1101^.078
;;^UTILITY(U,$J,113,398,0)
;;=POTATO CHIPS, BULK^POTATO CHIPS 1 OR 3LB^^^LB^LB^^1^^^^^3^^^LB^1^^^^1529^1
;;^UTILITY(U,$J,113,399,0)
;;=JUICE, ORANGE, CND, UNSW^JUIC ORG 46OZ^8915-01-038-5106^1^CN^#3 CN^12^1^1.19^^^^3^^^GAL^.36^^^^1731^8.776