©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
FHINI0HO ; ; 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,581,0)
;;=BEETS, CND, DICED^BEETS DICED GRD ANO10^8915-00-958-0821^1^CN^#10 CN^6^1^1.79^^^^3^^^LB^6.5^^^^780^1
;;^UTILITY(U,$J,113,582,0)
;;=GRAPEFRUIT AND ORANGES, CND, SYRUP-PAK^GRAPEFRUIT ORANGE NO5^^^CN^#5 CN^^1^^^^^3^^^LB^3^^^^^1
;;^UTILITY(U,$J,113,583,0)
;;=SALAD DRESSING, MAYO-TYPE, IND^SALA DRESSINDIVBAG200^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^354^.050
;;^UTILITY(U,$J,113,584,0)
;;=CEREAL, ROLLED OATS, REGULAR-COOKING^CEREAL RLD OATREG42OZ^^^PG^42-OZ PG^^1^^^^^4^^^LB^2.62^^^^1171^1
;;^UTILITY(U,$J,113,585,0)
;;=BEANS, WHITE, DRY, GREAT NORTHERN^BEAN WHITE DRY 25 LB^8915-00-975-3492^1^SA^25# BG^^1^7.16^^^^3^^^LB^25^^^^2269^1
;;^UTILITY(U,$J,113,586,0)
;;=SAUCE FOR MEAT, (A-1)^SAUCE F MEATLIQ51/4OZ^^^BT^5-1/4 OZ BT^^1^^^^^6^^^GAL^.041^^^^^8.53
;;^UTILITY(U,$J,113,587,0)
;;=PEACHES, FROZEN, SLICED^PEACHES SLC FRZN^^^LB^LB^^1^^^^^3^^^LB^1^^^^1755^1
;;^UTILITY(U,$J,113,588,0)
;;=PLUMS, CND, GREEN GAGE^PLUMS CND #303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,589,0)
;;=BEANS, CUT GREEN, DIET, CND^BEAN GRENCUTDIETNO303^8940-00-984-2979^1^CN^#303 CN^24^1^.37^^^^3^^^LB^1^^^^717^1
;;^UTILITY(U,$J,113,590,0)
;;=BEANS, CUT GREEN, CND^BEAN GREENCNNDCUTNO10^8915-00-984-2980^1^CN^#10 CN^6^1^1.81^^^^3^^^LB^6.5^^^^715^1
;;^UTILITY(U,$J,113,591,0)
;;=BEANS, LIMA, CND^BEAN LIMACNNDGRDBNO10^8915-00-984-2981^1^CN^#10 CN^6^1^2.48^^^^3^^^LB^6.5^^^^700^1
;;^UTILITY(U,$J,113,592,0)
;;=BEANS, LIMA, CND, DIET^BEAN LIMA DIET NO 303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^702^1
;;^UTILITY(U,$J,113,593,0)
;;=TOMATO PUREE^TOMATO PUREE GRDANO10^8915-00-984-9765^1^CN^#10 CN^6^1^2.26^^^^3^^^LB^6.5^^^^1950^1
;;^UTILITY(U,$J,113,594,0)
;;=VINEGAR, CIDER^VINE CIDER 50 GRN1GAL^8950-00-990-0577^1^BT^GL BT^4^1^1.71^^^^6^^^GAL^1^^^^1986^8.466
;;^UTILITY(U,$J,113,595,0)
;;=SOUP, COND, SPLIT GREEN PEA W/HAM^SOUP SPLITGRENPEA NO3^8935-00-995-1051^1^CN^#3 CN^12^1^1.40^^^^3^^^GAL^.36^^^^568^8.924
;;^UTILITY(U,$J,113,596,0)
;;=SOUP, COND, NAVY BEAN^SOUP NAVY BEAN 51 OZ^^^CN^51-OZ CN^^1^^^^^3^^^GAL^.4^^^^544^8.924
;;^UTILITY(U,$J,113,597,0)
;;=DESSERT POWDER, PUDDING, STRAWBERRY^DESS INSTNTSTRAWB15OZ^^^PG^15-OZ PG^^1^^^^^6^^^LB^.94^^^^^1
;;^UTILITY(U,$J,113,598,0)
;;=CLAMS, CND, MINCED^CLAMS MINCED 5/8INNO3^8905-00-997-5965^1^CN^#3 CN^12^1^3.48^^^^1^^^LB^3.19^^^^982^1
;;^UTILITY(U,$J,113,599,0)
;;=POLYCOSE, UNFLAVORED^DIET SUPMTPLYCOSE4OZ^^^BT^4-OZ BT^^1^^^^^5^^^EACH^1^^^^6421^.265
;;^UTILITY(U,$J,113,600,0)
;;=CHICKEN BREAST, FROZEN, READY-TO-COOK^CHICKEN BREAST FRZ^^^LB^LB^^1^^^^^1^^^LB^1^^^^423^1
;;^UTILITY(U,$J,113,601,0)
;;=CHERRIES, MARASCHINO, HALVES^CHER MARAMDM HVS 640Z^^^JR^1/2-GL BT^^1^^^^^3^^^GAL^.5^^^^962^8.27
;;^UTILITY(U,$J,113,602,0)
;;=SPINACH, FROZEN, CHOPPED^SPIN FZN CHPD GRDAORB^^^LB^LB^^1^^^^^3^^^LB^1^^^^1871^1
;;^UTILITY(U,$J,113,603,0)
;;=CITROTEIN, ORANGE^DIET ORGCITROTEIN14OZ^8940-01-256-6370^1^CN^14-OZ CN^12^1^6.45^^^^5^^^LB^.88^^^^6031^1
;;^UTILITY(U,$J,113,604,0)
;;=STRAWBERRIES, FROZEN, WHOLE, UNSW^STRA FZN WHUNSW GRDA^^^LB^LB^^1^^^^^3^^^LB^1^^^^1804^1
;;^UTILITY(U,$J,113,605,0)
;;=CEREAL, ASSORTED, IND^CEREAL, ASSORTED, IND^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^^.062
;;^UTILITY(U,$J,113,606,0)
;;=JUICE, APPLE, FROZEN, UNSW, IND^JUICE APL SGL4OZIND48^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^1818^.264
;;^UTILITY(U,$J,113,607,0)
;;=CRANBERRY JUICE COCKTAIL, FROZEN, UNSW, IND^CRAN JUICE COCKTL 48S^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^2261^.275
;;^UTILITY(U,$J,113,608,0)
;;=PORK PUREE, W/SALT ADDED^PORKPUREEWSALT161/2OZ^^^CN^1# CN^^1^^^^^1^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,609,0)
;;=PANCAKE MIX, BLUEBERRY^PANC MIX WBLUBERRY5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,610,0)
;;=DESSERT POWDER, PUDDING, TAPIOCA^DESSPWDPUDTAPIOCA 2LB^^^PG^2# PG^^1^^^^^6^^^LB^2^^^^1923^1
;;^UTILITY(U,$J,113,611,0)
;;=SUSTACAL, VANILLA, IND^DIET VANLLQDSUSTA 8OZ^8940-01-255-6762^1^CN^8-OZ CN^12^1^.44^^^^5^^^EACH^1^^^^6003^.522
;;^UTILITY(U,$J,113,612,0)
;;=PINEAPPLE, CND, CHUNKS, SYRUP-PAK^PINE CNNDCHUNKSNAT 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1773^1
;;^UTILITY(U,$J,113,613,0)
;;=CRANBERRY SAUCE, CND, JELLIED, DIET IND^CRAN SAUCEDIETINDIV4C^^^CS^CS-400^^1^^^^^3^^^EACH^400^^^^^.066
;;^UTILITY(U,$J,113,614,0)
;;=PIE FILLING, INSTANT, VANILLA CREME^PIE FILL VAN CRM 6#CN^^^CN^6# CN^^1^^^^^6^^^LB^6^^^^^1
;;^UTILITY(U,$J,113,615,0)
;;=BEANS, SMALL, RED, DRY^BEANS SM RED DRY 25LB^^^BG^25# BG^^1^^^^^3^^^LB^25^^^^695^1
;;^UTILITY(U,$J,113,616,0)
;;=CHEESE, SWISS, SLICES^CHEESESWISSRIBBCUT5LB^^^BX^5# BX^^1^^^^^2^^^EACH^80^^^^40^.066