©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
FHINI0HF ; ; 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,254,0)
;;=SUGAR SUBSTITUTE, LIQUID^SUGA SUBLQDNOCYCL120Z^^^BT^12-OZ BT^^1^^^^^6^^^GAL^.094^^^^^8
;;^UTILITY(U,$J,113,255,0)
;;=SUGAR, BROWN^SUGA BROWNSOFTMED 2LB^8925-00-537-7417^1^BG^2# BG^12^1^.95^^^^6^^^LB^2^^^^1905^1
;;^UTILITY(U,$J,113,256,0)
;;=SUGAR, GRANULATED^SUGAR REF GRAN 50 LB^8925-00-152-9796^1^SA^50# SA^^1^15.49^^^^6^^^LB^50^^^^1906^1
;;^UTILITY(U,$J,113,257,0)
;;=SUGAR, POWDERED, CONFECT XXXX^SUGAR REF PWDCONF 2LB^8925-00-537-7444^1^BG^2# BG^12^1^.95^^^^6^^^LB^2^^^^1907^1
;;^UTILITY(U,$J,113,258,0)
;;=SYRUP, CORN^SYRUP BLNDCORNREFNO10^8925-00-127-8259^1^CN^#10 CN^6^1^2.05^^^^6^^^GAL^1^^^^1835^10.67
;;^UTILITY(U,$J,113,259,0)
;;=SYRUP, MAPLE FLAVOR, IND^SYRUP IMT MPLETHIN 1C^^^CS^CS-100^^1^^^^^6^^^EACH^100^^^^1833^.094
;;^UTILITY(U,$J,113,260,0)
;;=SYRUP, DIET, IMIT MAPLE, BULK^SYRU DIET IMTMAP 1QT^^^BT^QT BT^^1^^^^^6^^^GAL^.25^^^^6444^8.2
;;^UTILITY(U,$J,113,261,0)
;;=SYRUP, MAPLE, DIET, IND^SYRUP DIET MPL FLV 2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^6444^.094
;;^UTILITY(U,$J,113,262,0)
;;=TAPIOCA, QUICK COOK^TAPI GRAN 20 MESH 5LB^^^BX^5# BX^^1^^^^^4^^^LB^5^^^^1921^1
;;^UTILITY(U,$J,113,263,0)
;;=TART SHELL, R-T-S, IND^TART SHELLPREBKD3IN72^^^CS^CS-72^^1^^^^^4^^^EACH^72^^^^1476^.132
;;^UTILITY(U,$J,113,264,0)
;;=TEA, INDIVIDUAL BAGS^TEA BLACK INDIV BAG1C^8955-00-273-8186^1^CO^CS-100^10^1^1.49^^^^6^^^EACH^100^^^^1926^.005
;;^UTILITY(U,$J,113,265,0)
;;=TEA, INSTANT, BULK^TEA INSTANT PWD63/4OZ^^^JR^6-3/4 OZ JR^^1^^^^^6^^^LB^.42^^^^1926^1
;;^UTILITY(U,$J,113,266,0)
;;=THOUSAND ISLAND DRESSING, BULK^THOU ISLAND DRESS1GAL^^^JR^GL JR^^1^^^^^6^^^GAL^1^^^^353^8.819
;;^UTILITY(U,$J,113,267,0)
;;=THOUSAND ISLAND DRESSING, DIET, IND^THOU ISLEDRESSDIET 4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^1590^.055
;;^UTILITY(U,$J,113,268,0)
;;=THOUSAND ISLAND DRESSING, IND^THOU ISLEDRESSINDIV2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^353^.055
;;^UTILITY(U,$J,113,269,0)
;;=BEAN SALAD (3 BEAN), CND^THREE BEAN SALAD NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,270,0)
;;=TOMATO PASTE^TOMA PSTLTCONC NO10^8915-01-049-9014^1^CN^#10 CN^6^1^3.36^^^^3^^^LB^6.5^^^^1948^1
;;^UTILITY(U,$J,113,271,0)
;;=TOMATO PUREE, DIET^TOMA PUREDIETGRDA#303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^1951^1
;;^UTILITY(U,$J,113,272,0)
;;=TOMATO SAUCE^TOMA SAUCE NO. 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^2069^1
;;^UTILITY(U,$J,113,273,0)
;;=TOMATOES, CND^TOMATOES GRD AORBNO10^8915-00-582-4060^1^CN^#10 CN^6^1^2.04^^^^3^^^LB^6.5^^^^1932^1
;;^UTILITY(U,$J,113,274,0)
;;=TOPPING MIX, DESSERT, POWDER^TOPP DSRTDEHYDPWD16OZ^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^68^1
;;^UTILITY(U,$J,113,275,0)
;;=VEGETABLES, CHINESE, CND^VEGE MIXED CNND NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,276,0)
;;=VEGETABLES, MIXED, CND^VEGE MIXEDCNND NO 10^8915-00-272-8928^1^CN^#10 CN^6^1^1.90^^^^3^^^LB^6.5^^^^2077^1
;;^UTILITY(U,$J,113,277,0)
;;=VEGETABLES, MIXED, FROZEN^VEGE MXDFZN GRDA OR B^^^LB^LB^^1^^^^^3^^^LB^1^^^^1984^1
;;^UTILITY(U,$J,113,278,0)
;;=VINEGAR DRESSING, DIET, IND^VINE DRESDIET INDIV4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^^.055
;;^UTILITY(U,$J,113,279,0)
;;=WATER CHESTNUTS, WHOLE, WATER PACK^WATER CHESTNUTS NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^2078^1
;;^UTILITY(U,$J,113,280,0)
;;=COFFEE, GROUND, DECAF, BULK^COFF ROAST GRD 13 OZ^8955-01-161-1389^1^CN^13-OZ CN^24^1^3.14^^^^6^^^LB^.81^^^^^1
;;^UTILITY(U,$J,113,281,0)
;;=COFFEE, INSTANT, DECAF, BULK^COFFEE INSTNTDECAF4OZ^^^JR^4-OZ JR^^1^^^^^6^^^LB^.25^^^^2213^1
;;^UTILITY(U,$J,113,282,0)
;;=COFFEE, INSTANT, REGULAR, BULK^COFFEE INSTNT PWD 4OZ^8955-00-753-3365^1^PG^4-OZ JR^24^1^.99^^^^6^^^LB^.25^^^^995^1
;;^UTILITY(U,$J,113,283,0)
;;=COFFEE, GROUND, BULK^COFF ROAST GROUND 3LB^8955-00-069-3839^1^CN^3# CN^12^1^5.96^^^^6^^^LB^3^^^^2211^1
;;^UTILITY(U,$J,113,284,0)
;;=SHORTENING COMPOUND, LIQUID, PAN COATING^SHOR ALLVEG 1/2 GAL^^^BT^1/2-GL BT^^1^^^^^6^^^GAL^.5^^^^^8
;;^UTILITY(U,$J,113,285,0)
;;=SHORTENING COMPOUND, AEROSOL SPRAY^SHOR ALLVEGESPRAY16OZ^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,286,0)
;;=SHORTENING COMPOUND, BAKING^SHORT CPD BAKERY 50LB^^^CO^50# CO^^1^^^^^6^^^LB^50^^^^394^1
;;^UTILITY(U,$J,113,287,0)
;;=SHORTENING COMPOUND, CAKE, LIQUID^SHOR CAKE LQD 5 QUART^^^CN^5-QT CN^^1^^^^^6^^^GAL^1.25^^^^^7.231
;;^UTILITY(U,$J,113,288,0)
;;=SHORTENING COMPOUND, DEEP FRY, LIQUID^SHORT CPD DP FRYFLUID^8945-00-949-5169^1^QT^QT BT^30^1^.99^^^^6^^^GAL^.25^^^^^8
;;^UTILITY(U,$J,113,289,0)
;;=SHORTENING COMPOUND, GENERAL PURPOSE, SOLID^SHOR CPDGENPURREG50LB^8945-00-191-4767^1^CN^50# CN^^1^20.17^^^^6^^^LB^50^^^^363^1