©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
FHINI0HG ; ; 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,290,0)
;;=SHORTENING COMPOUND, GRIDDLE FRY, LIQUID^SHOR CPDGRILL2-1/4GAL^^^CN^2-1/4 GL BT^^1^^^^^6^^^GAL^2.25^^^^^8
;;^UTILITY(U,$J,113,291,0)
;;=CONDIMENT PACKET, GRAY^COND PACKGREY 4551 1M^^^CS^CS-1000^^1^^^^^9^^^EACH^1000
;;^UTILITY(U,$J,113,292,0)
;;=PICKLES, CUCUMBER, SWEET, SLICED^PICKLE MIXED SWT N010^8950-00-127-9746^1^CN^#10 CN^6^1^3.66^^^^6^^^LB^6.5^^^^1441^1
;;^UTILITY(U,$J,113,293,0)
;;=PICKLES, CUCUMBER, DILL, WHOLE^PICKLE CUCDILLWHL1GAL^^^CN^GL JR^^1^^^^^6^^^GAL^1^^^^1438^7.47
;;^UTILITY(U,$J,113,294,0)
;;=PICKLES, CUCUMBER, DILL, SPEARS^PICK CUC DILLSLCDNO10^8950-00-057-0044^1^CN^#10 CN^6^1^2.56^^^^6^^^LB^6.5^^^^1438^1
;;^UTILITY(U,$J,113,295,0)
;;=BEVERAGE, CARBONATED, GINGER ALE, DIET, IND^BEVE GING ALEDIET12OZ^8940-01-055-0818^1^CN^12-OZ CN^24^1^.17^^^^6^^^EACH^1^^^^^.807
;;^UTILITY(U,$J,113,296,0)
;;=CRACKERS, SODA, PLAIN, DIET LO NA, IND^CRAC SODA DIET 2PK180^^^CS^CS-180^^1^^^^^4^^^EACH^180^^^^6423^.007
;;^UTILITY(U,$J,113,297,0)
;;=MARGARINE, SALTED, BULK^MARG VEG OILS PRINTS^^^LB^LB^^1^^^^^6^^^LB^1^^^^372^1
;;^UTILITY(U,$J,113,298,0)
;;=JUICE, TOMATO, CND, IND^JUIC TOMEASYOPN51/2-6^8915-00-006-1594^1^CN^6-OZ CN^48^1^.15^^^^3^^^EACH^1^^^^1942^.401
;;^UTILITY(U,$J,113,299,0)
;;=ITALIAN DRESSING, IND^ITAL DRES BAG INDIV2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^381^.055
;;^UTILITY(U,$J,113,300,0)
;;=BAKING MIX, DIET, LO PRO, LO NA (PAYGEL)^BAKING MX DIET 1LB^^^BX^1# BX^^1^^^^^4^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,301,0)
;;=TARTAR SAUCE, IND^TARTAR SCE INDIVBAG2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1924^.055
;;^UTILITY(U,$J,113,302,0)
;;=DATES, DEHYD, WHOLE, PITTED, SUGAR-COATED^DATES DEHY WHL PITTED^^^LB^LB^^1^^^^^3^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,303,0)
;;=GARLIC JUICE^GARLIC JUICE QT^^^BT^QT BT^^1^^^^^6^^^GAL^.25^^^^^8
;;^UTILITY(U,$J,113,304,0)
;;=PEPPERS, RED, DEHY, DICED^RED PEPPERS DEHY DIC^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1432^1
;;^UTILITY(U,$J,113,305,0)
;;=SALAD DRESSING, SWEET-SOUR^SALA DRESSSWTSOUR1GAL^^^BT^GL BT^^1^^^^^6^^^GAL^1^^^^^8.53
;;^UTILITY(U,$J,113,306,0)
;;=PEPPERS, SWEET, CND, DICED, GREEN BELL^PEPPERS SWT GREENNO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^2053^1
;;^UTILITY(U,$J,113,307,0)
;;=FLOUR, CAKE^FLOUR WHEAT SOFT 50LB^^^SA^50# SA^^1^^^^^4^^^LB^50^^^^2002^1
;;^UTILITY(U,$J,113,308,0)
;;=MUFFIN MIX, PLAIN^MUFF MIX PLN4/5PCT5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,309,0)
;;=CHILI STRIPS, GREEN, CND^CHILI STRPSGRENNO21/2^^^CN^#2-1/2 CN^^1^^^^^3^^^LB^1.81^^^^1429^1
;;^UTILITY(U,$J,113,310,0)
;;=FOOD COLORING, CARMEL^FOOD COLOR CARMEL 1QT^^^BT^QT BT^^1^^^^^6^^^GAL^.25^^^^^8
;;^UTILITY(U,$J,113,311,0)
;;=ORANGES, CND, MANDARIN, SYRUP-PAK^ORANGES MANDARIN NO10^8915-00-062-5614^1^CN^#10 CN^6^1^4.05^^^^3^^^LB^6.5^^^^1737^1
;;^UTILITY(U,$J,113,312,0)
;;=GRAPES, CND, SEEDLESS, THOMPSON, DIET, WP^GRAPES DIETWTRPKNO303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^1698^1
;;^UTILITY(U,$J,113,313,0)
;;=MERITENE, CHOCOLATE, BULK POWDER^MERITENE CHOC 1#CN^^^CN^1# CN^^1^^^^^5^^^LB^1^^^^6014^1
;;^UTILITY(U,$J,113,314,0)
;;=PEPPER, WHITE, GROUND^PEPPER WHITEGROUND1LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^290^1
;;^UTILITY(U,$J,113,315,0)
;;=MUFFIN MIX, CORN^MUFF MIX CORN 5 LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,316,0)
;;=RAVIOLI WITH CHEESE SAUCE, CND^RAVI W CHEESE NO 10^^^CN^#10 CN^^1^^^^^1^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,317,0)
;;=POTATOES, SWEET, INSTANT^POTA SWTINSTNTFLKNO10^8915-00-082-2886^1^CN^#10 CN^6^1^5.66^^^^3^^^LB^6.5^^^^1918^1
;;^UTILITY(U,$J,113,318,0)
;;=CEREAL, SHREDDED OAT BISCUIT, IND^CERE SHRDOATSMINDIVBX^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1172^.062
;;^UTILITY(U,$J,113,319,0)
;;=BEANS, CUT WAX, CND, DIET^BEAN WAXCNNDDIETNO303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^727^1
;;^UTILITY(U,$J,113,320,0)
;;=GREENS, TURNIP, CND, LEAFY AND CHOPPED^GREENS TURNIPGRDANO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1966^1
;;^UTILITY(U,$J,113,321,0)
;;=PEACHES, SPICED, CND, WHOLE^PEACHES SPIC NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1751^1
;;^UTILITY(U,$J,113,322,0)
;;=CORN, CND, GOLDEN, CREAM STYLE^CORN CREAM GOLDENNO10^8915-00-088-5769^1^CN^#10 CN^6^1^2.25^^^^3^^^LB^6.5^^^^1032^1
;;^UTILITY(U,$J,113,323,0)
;;=PIE, CHERRY, FZN^PIE, CHERRY, FZN^^^CS^CS-6^^1^^^^^4^^^EACH^6^^^^1471^.214
;;^UTILITY(U,$J,113,324,0)
;;=JUICE, PINEAPPLE, FROZEN, UNSW, IND^JUICE PINEAPLFZN4OZ48^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^1776^.275
;;^UTILITY(U,$J,113,325,0)
;;=DESSERT POWDER, GELATIN, ORANGE DIET^DESS ORG DIET77/10 OZ^^^JR^7.7-OZ JR^^1^^^^^6^^^EACH^1^^^^6408^.265