©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
FHINI0HM ; ; 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,508,0)
;;=SOUP, COND, MINESTRONE^SOUP MINESTRONE NO. 3^8935-00-770-7364^1^CN^#3 CN^12^1^1.50^^^^3^^^GAL^.36^^^^560^8.501
;;^UTILITY(U,$J,113,509,0)
;;=SOUP, COND, CREAM OF CELERY^SOUP CONSDCRMCELYNO3^8935-00-771-4120^1^CN^#3 CN^12^1^1.20^^^^3^^^GAL^.36^^^^547^8.607
;;^UTILITY(U,$J,113,510,0)
;;=SOUP, COND, CHICKEN-VEGETABLE^SOUP CONSDCHKNVEGNO.3^^^CN^#3 CN^^1^^^^^3^^^GAL^.36^^^^555^8.501
;;^UTILITY(U,$J,113,511,0)
;;=COLESLAW DRESSING^COLE SLAW DRESS 1 GAL^^^BT^GL BT^^1^^^^^6^^^GAL^1^^^^^8.5
;;^UTILITY(U,$J,113,512,0)
;;=ICING MIX, WHITE CREAM^ICIN MIX WHTCREME 5LB^^^BX^5# BX^^1^^^^^6^^^LB^5^^^^893^1
;;^UTILITY(U,$J,113,513,0)
;;=CHICKEN/VEGETABLES, CND, CHOW MEIN^CHIC AND VEGTBCNNDNO3^^^CN^#3 CN^^1^^^^^1^^^LB^3^^^^980^1
;;^UTILITY(U,$J,113,514,0)
;;=POTATO CHIPS, IND^POTATO CHIP1/2-11/2OZ^^^CS^CS-50^^1^^^^^3^^^EACH^50^^^^1529^.094
;;^UTILITY(U,$J,113,515,0)
;;=CREAMER, NONDAIRY, POWDER IND^CREAM NONDAIRYINDIV1M^8940-00-782-4563^1^CS^CS-1000^^1^7.92^^^^6^^^EACH^1000^^^^67^.062
;;^UTILITY(U,$J,113,516,0)
;;=VANILLA, IMITATION FLAVOR^FLAV IMT VANILLA 1GAL^^^BT^GL BT^^1^^^^^6^^^GAL^1^^^^^8
;;^UTILITY(U,$J,113,517,0)
;;=MUSHROOMS, CND, WHOLE, DIET LO NA^MUSHROOM WHOLEDIET4OZ^^^CN^4-OZ CN^^1^^^^^3^^^LB^.25^^^^2022^1
;;^UTILITY(U,$J,113,518,0)
;;=STARCH, TAPIOCA^STARCH TAPIOCA 1# BX^^^BX^1# BX^^1^^^^^4^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,519,0)
;;=MACARONI, ELBOW ENRICHED^MACA ELBOW ENR REG1LB^8920-00-823-7336^1^PG^1# PG^20^1^.37^^^^4^^^LB^1^^^^1318^1
;;^UTILITY(U,$J,113,520,0)
;;=MUFFIN MIX, DATE^MUFF MIX DATE 5 LB^^^BG^5# PG^^1^^^^^4^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,521,0)
;;=WALNUTS, ENGLISH, SHELLED^WALNUT ENGL SHELD 3LB^8925-00-851-3391^1^CN^3# CN^6^1^6.68^^^^6^^^LB^3^^^^1993^1
;;^UTILITY(U,$J,113,522,0)
;;=JELLY, APPLE, BULK^JELLY APPLE GRD ANO10^8930-00-851-3395^1^CN^#10 CN^6^1^3.35^^^^6^^^LB^6.5^^^^1264^1
;;^UTILITY(U,$J,113,523,0)
;;=JELLY, GRAPE, BULK^JELLY GRAPE GRD ANO10^8930-00-851-3399^1^CN^#10 CN^6^1^3.14^^^^6^^^LB^6.5^^^^1264^1
;;^UTILITY(U,$J,113,524,0)
;;=SOY SAUCE^SOY SAUCE 1 GAL^8950-00-851-5286^1^CT^GL CO^4^1^2.18^^^^6^^^GAL^1^^^^3025^8.184
;;^UTILITY(U,$J,113,525,0)
;;=PEPPER, RED, GROUND^PEPPER RED GROUND 1LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^289^1
;;^UTILITY(U,$J,113,526,0)
;;=LARD^LARD REFINED 50 LB^^^DR^50# CN^^1^^^^^6^^^LB^50^^^^350^1
;;^UTILITY(U,$J,113,527,0)
;;=PEAS, CND, DIET, LO NA^PEAS SWT WHLDIETNO303^8940-00-851-5301^1^CN^#303 CN^24^1^.38^^^^3^^^LB^1^^^^1418^1
;;^UTILITY(U,$J,113,528,0)
;;=CARROT PUREE^CARROT PUREE7.5%NO303^8915-00-851-6557^1^CN^#303 CN^24^1^.47^^^^3^^^LB^1^^^^6449^1
;;^UTILITY(U,$J,113,529,0)
;;=BEET PUREE^BEET PUREE 9% NO 303^8915-00-851-6561^1^CN^#303 CN^24^1^.45^^^^3^^^LB^1^^^^6448^1
;;^UTILITY(U,$J,113,530,0)
;;=CRANBERRY SAUCE, CND, WHOLE^CRAN SAUCE WHOLE NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1661^1
;;^UTILITY(U,$J,113,531,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,532,0)
;;=BEANS, KIDNEY, CND, IN BRINE^BEAN KIDNEY CNND NO10^8915-00-851-6565^1^CN^#10 CN^6^1^2.05^^^^3^^^LB^6.5^^^^2645^1
;;^UTILITY(U,$J,113,533,0)
;;=JUICE, VEGETABLE, CND^JUICE VEGETABLSGL46OZ^8915-00-851-6571^1^CN^#3 CN^12^1^.92^^^^3^^^GAL^.36^^^^1976^8.536
;;^UTILITY(U,$J,113,534,0)
;;=MUSHROOMS, CND, PIECES^MUSHROOM PCS STEM16OZ^8915-00-851-6581^1^CN^1# CN^24^1^1.75^^^^3^^^LB^1^^^^1346^1
;;^UTILITY(U,$J,113,535,0)
;;=JUICE, PRUNE, CND, UNSW^JUICE PRUNE SGL 46 OZ^8915-00-851-6583^1^CN^#3 CN^12^1^1.07^^^^3^^^GAL^.36^^^^1790^9.03
;;^UTILITY(U,$J,113,536,0)
;;=JUICE, ORANGE, FROZEN, CONC, UNSW^JUICE ORG FZNCONC32OZ^^^CN^QT CN^^1^^^^^3^^^GAL^.25^^^^1733^8.776
;;^UTILITY(U,$J,113,537,0)
;;=SPAGHETTI, REGULAR COOKING^SPAG STGH REG 1 LB PG^8920-00-851-6596^1^PG^1# PG^20^1^.40^^^^4^^^LB^1^^^^1857^1
;;^UTILITY(U,$J,113,538,0)
;;=JAM, APRICOT^JAM APRICOT 2#JR^^^JR^2# JR^^1^^^^^6^^^LB^2^^^^1262^1
;;^UTILITY(U,$J,113,539,0)
;;=TOMATOES, CND, DIET^TOMATOES DIET NO 303^8940-00-851-7063^1^CN^#303 CN^24^1^.40^^^^3^^^LB^1^^^^1935^1
;;^UTILITY(U,$J,113,540,0)
;;=CHERRIES, CND, LT SWEET, UNPITTED, WATER-PAK^CHERRI WTRPKDIETNO303^8940-00-851-7068^1^CN^#303 CN^24^1^.84^^^^3^^^LB^1^^^^1653^1
;;^UTILITY(U,$J,113,541,0)
;;=CARROTS, CND, SLICED OR DICED, DIET, LO NA^CARR SLCD DCD DIET303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^941^1
;;^UTILITY(U,$J,113,542,0)
;;=FRUIT SALAD, CND, WATER PAK, DIET^FRUI SLD WTRPKDIET303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^1678^1