©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
FHINI0HA ; ; 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,73,0)
;;=CHERRIES, CND, LT SWEET, PITTED, WATER PAK^CHER DIET PITED NO303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^1653^1
;;^UTILITY(U,$J,113,74,0)
;;=CHERRIES, MARASCHINO, WHOLE, W/O STEMS^CHER MARASCHINO 1 GAL^8915-00-851-5315^1^JR^GL JR^4^1^8.99^^^^3^^^GAL^1^^^^962^8.27
;;^UTILITY(U,$J,113,75,0)
;;=CHICKEN, CND, BONED, DICED^CHICK BONED DICED50OZ^8905-00-114-0847^1^CN^50-OZ CN^12^1^5.70^^^^1^^^LB^3.13^^^^473^1
;;^UTILITY(U,$J,113,76,0)
;;=CHILI CON CARNE, CND, W/BEANS^CHILICARNE WBEANSNO10^8940-01-034-0461^1^CN^#10 CN^6^1^3.93^^^^1^^^LB^4.55^^^^967^1
;;^UTILITY(U,$J,113,77,0)
;;=CHILI POWDER^CHILI POWDER 1 LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^267^1
;;^UTILITY(U,$J,113,78,0)
;;=CHILI SAUCE, DIET LO NA^CHIL SAUCE DIET 11 OZ^^^BT^11-OZ BT^^1^^^^^6^^^GAL^.086^^^^1941^9.63
;;^UTILITY(U,$J,113,79,0)
;;=CHOCOLATE CHIPS, SEMISWEET^CHOC COKNGSEMISWT12OZ^^^PG^12-OZ PG^^1^^^^^6^^^LB^.75^^^^974^1
;;^UTILITY(U,$J,113,80,0)
;;=CHOCOLATE, COOKING, UNSWEETENED^CHOC COOK UNSW 1#^^^PG^1# PG^^1^^^^^6^^^LB^1^^^^974^1
;;^UTILITY(U,$J,113,81,0)
;;=CINNAMON, GROUND^CINNAMON GROUND 1 LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^268^1
;;^UTILITY(U,$J,113,82,0)
;;=COCOA BEVERAGE POWDER, INSTANT, IND^COCOA BEVE PWDINDIV50^^^BX^BX-50^^1^^^^^6^^^EACH^50^^^^985^.062
;;^UTILITY(U,$J,113,83,0)
;;=COCOA BEVERAGE POWDER, INSTANT, BULK^COCOA BEVEPWD11/2%2LB^^^CO^2# BG^^1^^^^^6^^^LB^2^^^^985^1
;;^UTILITY(U,$J,113,84,0)
;;=COCONUT OIL^COCONUT OIL 5GAL^^^CN^5-GL CN^^1^^^^^6^^^GAL^5^^^^366^7.69
;;^UTILITY(U,$J,113,85,0)
;;=COCONUT, PREPARED, SWEETENED, FLAKED^COCO PRPDFLAKE 2 LB^^^PG^2# PG^^1^^^^^6^^^LB^2^^^^2847^1
;;^UTILITY(U,$J,113,86,0)
;;=COFFEE EXTENDER^COFFEE EXTENDER 1 LB^^^JR^1# JR^^1^^^^^6^^^LB^1^^^^2217^1
;;^UTILITY(U,$J,113,87,0)
;;=COFFEE, INSTANT, DECAF, IND^COFFEE INSTNT DECAF1M^8955-00-851-5285^1^CS^CS-1000^^1^27.23^^^^6^^^EACH^1000^^^^2213^.004
;;^UTILITY(U,$J,113,88,0)
;;=CONDIMENT PACKET, BLUE 2^COND PACK REG DIET 1M^^^CS^CS-1000^^1^^^^^9^^^EACH^1000
;;^UTILITY(U,$J,113,89,0)
;;=CONDIMENT PACKET, GRAY 2^COND PACKET GRAY2 1M^^^CS^CS-1000^^1^^^^^9^^^EACH^1000
;;^UTILITY(U,$J,113,90,0)
;;=CONDIMENT PACKET, GREEN^COND PACKETDIETGRN 1M^^^CS^CS-1000^^1^^^^^9^^^EACH^1000
;;^UTILITY(U,$J,113,91,0)
;;=CONDIMENT PACKET, ORANGE^COND PACKET CODEORG1M^^^CS^CS-1000^^1^^^^^9^^^EACH^1000
;;^UTILITY(U,$J,113,92,0)
;;=CONDIMENT PACKET, PINK^COND PACK PNK 4521 1M^^^CS^CS-1000^^1^^^^^9^^^EACH^1000
;;^UTILITY(U,$J,113,93,0)
;;=CONDIMENT PACKET, YELLOW^COND PACK YEL 4581 1M^^^CS^CS-1000^^1^^^^^9^^^EACH^1000
;;^UTILITY(U,$J,113,94,0)
;;=COOKIES, VANILLA WAFER^COOK VANLL WAFER 4 LB^^^BX^4# BX^^1^^^^^4^^^LB^4^^^^1024^1
;;^UTILITY(U,$J,113,95,0)
;;=CORN BREAD MIX^CORN BREAD MIX YEL5LB^^^BX^5# BX^^1^^^^^4^^^LB^5^^^^1055^1
;;^UTILITY(U,$J,113,96,0)
;;=CORN MEAL, YELLOW, COARSE^CORN MEAL CORSFINE5LB^8920-00-493-6840^1^PG^5# PG^8^1^1.03^^^^4^^^LB^5^^^^2763^1
;;^UTILITY(U,$J,113,97,0)
;;=CORN MEAL, YELLOW, FINE^CORN MEAL YELFINE25LB^^^BG^25# BG^^1^^^^^4^^^LB^25^^^^2763^1
;;^UTILITY(U,$J,113,98,0)
;;=CORN OIL^CORN OIL COOKING 1GAL^^^CN^GL CN^^1^^^^^6^^^GAL^1^^^^391^7.69
;;^UTILITY(U,$J,113,99,0)
;;=CRACKERS, CHEESE, W/ PEANUT BUTTER, IND^CRAC CHEESEPEANUT 120^^^CS^CS-120^^1^^^^^4^^^EACH^120^^^^1079^.077
;;^UTILITY(U,$J,113,100,0)
;;=CRACKERS, GRAHAM, IND^CRAC GRAHAM INDIV 2C^^^CS^CS-200^^1^^^^^4^^^EACH^200^^^^1076^.031
;;^UTILITY(U,$J,113,101,0)
;;=CRACKERS, GRAHAM, BULK^CRAC GRAHAM SQ 2 LB^^^CO^2# PG^^1^^^^^4^^^LB^2^^^^1076^1
;;^UTILITY(U,$J,113,102,0)
;;=CRACKERS, SODA, PLAIN, DIET LO NA, BULK^CRAC PLNDIET2PZ 4.2LB^^^CO^4.2# CO^^1^^^^^4^^^LB^4.2^^^^6423^1
;;^UTILITY(U,$J,113,103,0)
;;=CRACKERS, SODA, SALTED, IND^CRAC SODA SALT 6.45LB^^^CS^CS-300^^1^^^^^4^^^EACH^300^^^^1080^.007
;;^UTILITY(U,$J,113,104,0)
;;=CRANBERRY JUICE COCKTAIL, DIET^CRAN JUICECOCKDIET1QT^^^BT^QT BT^^1^^^^^3^^^GAL^.25^^^^2223^8.353
;;^UTILITY(U,$J,113,105,0)
;;=CREAMER, NONDAIRY, POWDER, BULK^CREAM NONDAIRYPWD1GAL^8940-01-039-6074^1^BG^BG^12^1^.74^^^^6^^^EACH^1^^^^67^.007
;;^UTILITY(U,$J,113,106,0)
;;=CUSTARD MIX, EGG, INSTANT^CUST MIXEGGVANL33/4LB^8940-00-105-5809^1^PG^60-OZ PG^6^1^8.43^^^^6^^^LB^3.75^^^^1540^1
;;^UTILITY(U,$J,113,107,0)
;;=DAIRY DRINK MIX, INSTANT BREAKFAST, IND^DAIRY DRNK VANLLINDIV^^^PG^1-OZ PG^^1^^^^^5^^^EACH^1^^^^6461^.007
;;^UTILITY(U,$J,113,108,0)
;;=DATES, WHOLE, PITTED^DATE PITTED WHL 10 OZ^^^PG^10-OZ PG^^1^^^^^3^^^LB^.63^^^^1666^1
;;^UTILITY(U,$J,113,109,0)
;;=DESSERT POWDER, GELATIN, ORANGE^DESS PWD GEL ORG 24OZ^8940-00-253-0212^1^CO^24-OZ CO^12^1^.99^^^^6^^^LB^1.5^^^^1230^1