©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
FHINI0HV ; ; 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,856,0)
;;=CHIVES, DEHYD^CHIVES DEHYD 1#CN^^^CN^1# CN^^1^^^^^3^^^LB^1^^^^2751^1
;;^UTILITY(U,$J,113,857,0)
;;=JUICE, OR/GRAPEFRUIT, FRZ, IND^JUICE OR&GRAPEF IND^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^1734^.272
;;^UTILITY(U,$J,113,858,0)
;;=JUICE, PINE/GRPFT, FRZ, IND^JCE PINE/GRAPEF IND^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^1485^.276
;;^UTILITY(U,$J,113,859,0)
;;=MACE, GROUND^MACE GRD 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^280^1
;;^UTILITY(U,$J,113,860,0)
;;=MILK, LOWFAT, FRESH^MILK LOWF FRSH 5GL^^^CT^5 GL CT^^1^^^^^2^^^GAL^5^^^^76^8.607
;;^UTILITY(U,$J,113,861,0)
;;=ONIONS, QUARTERED FRESH^ONIONS QTR FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1378^1
;;^UTILITY(U,$J,113,862,0)
;;=JUICE, ORANGE, FRESH^JUICE ORAN FRSH 1QT^^^CO^QT CO^^1^^^^^3^^^GAL^.25^^^^1730^8.748
;;^UTILITY(U,$J,113,863,0)
;;=CEREAL, CREAM OF WHEAT^CERE CRM WHEAT 1#^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^1163^1
;;^UTILITY(U,$J,113,864,0)
;;=LIQUID SMOKE^LIQUID SMOKE 1QT^^^BT^QT BT^^1^^^^^6^^^GAL^.25^^^^^8
;;^UTILITY(U,$J,113,865,0)
;;=GINGER, GROUND^GINGER GRD 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^279^1
;;^UTILITY(U,$J,113,866,0)
;;=CARROTS, FRESH, DICED^CARROTS, FRESH, DICED^^^LB^LB^^1^^^^^3^^^LB^1^^^^935^1
;;^UTILITY(U,$J,113,867,0)
;;=BREADCRUMBS^BREADCRUMBS 10#CS^^^CS^10# CS^^1^^^^^4^^^LB^10^^^^827^1
;;^UTILITY(U,$J,113,868,0)
;;=CHEESE, LOW FAT^CHEESE, LOW FAT^^^LB^LB^^1^^^^^2^^^LB^1^^^^29^1
;;^UTILITY(U,$J,113,869,0)
;;=PASTA, LOW PROTEIN^PASTA LOW PRO 1#PG^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^6503^1
;;^UTILITY(U,$J,113,870,0)
;;=POTATOES, PREPEELED, SLICED^POTATOES PEELED SLC^^^LB^LB^^1^^^^^3^^^LB^1^^^^1506^1
;;^UTILITY(U,$J,113,871,0)
;;=POTATOES, PREPEELED, DICED^POTATOES PEELED DICED^^^LB^LB^^1^^^^^3^^^LB^1^^^^1506^1
;;^UTILITY(U,$J,113,872,0)
;;=BREAD, WHOLE WHEAT^BREAD, WHOLE WHEAT^^^LF^1# LF^^1^^^^^4^^^EACH^16^^^^825^.063
;;^UTILITY(U,$J,113,873,0)
;;=JUICE, PRUNE, FZN, IND^JUICE PRUNE FZN 48S^^^CS^CS-48^^1^^^^^3^^^EACH^48^^^^1790^.282
;;^UTILITY(U,$J,113,874,0)
;;=PIE, PUMPKIN^PIE, PUMPKIN^^^CS^CS-6^^1^^^^^4^^^EACH^6^^^^1465^.207
;;^UTILITY(U,$J,113,875,0)
;;=ALLSPICE^ALLSPICE 1LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^259^1
;;^UTILITY(U,$J,113,876,0)
;;=CELERY SEED^CELERY SEED 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^265^1
;;^UTILITY(U,$J,113,877,0)
;;=ONIONS, SLICED FRESH^ONIONS, SLICED FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1378^1
;;^UTILITY(U,$J,113,878,0)
;;=TABASCO SAUCE^TABASCO SAUCE 4OZ BT^^^BT^4-OZ BT^^1^^^^^6^^^LB^.25^^^^1940^1
;;^UTILITY(U,$J,113,879,0)
;;=PORK, GROUND FROZEN^PORK, GROUND FROZEN^^^LB^LB^^1^^^^^1^^^LB^1^^^^199^1
;;^UTILITY(U,$J,113,880,0)
;;=BRAN, UNPROCESSED^BRAN WHEAT NAT 16 OZ^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^2006^1
;;^UTILITY(U,$J,113,881,0)
;;=LIVER, BEEF, FRESH FROZEN^BEEF LIVER FRZN^^^LB^LB^^1^^^^^1^^^LB^1^^^^1310^1
;;^UTILITY(U,$J,113,882,0)
;;=SAUSAGE, SMOKED^SAUSAGE, SMOKED^^^LB^LB^^1^^^^^1^^^LB^1^^^^655^1
;;^UTILITY(U,$J,113,883,0)
;;=HAM, COOKED, FRZ^HAM COOKED FROZEN^^^LB^LB^^1^^^^^1^^^LB^1^^^^221^1
;;^UTILITY(U,$J,113,884,0)
;;=CHICKEN, FROZEN, BROILER OR FRYER, READY TO COOK^CHIC FRZN 9 PIECES^^^CO^3# CO^^1^^^^^1^^^LB^3^^^^401^1
;;^UTILITY(U,$J,113,885,0)
;;=BEEF, PATTIES, FRZ^BEEF GRNDPATTIES FRZN^^^LB^LB^^1^^^^^1^^^EACH^5^^^^2173^.187
;;^UTILITY(U,$J,113,886,0)
;;=TUNA, CND, LIGHT, CHUNK STYLE^TUNA WHTLTCHUNK66.5OZ^8905-01-220-2260^1^CN^66-1/2 OZ CN^6^1^6.04^^^^1^^^LB^4.12^^^^1955^1
;;^UTILITY(U,$J,113,887,0)
;;=CRANBERRY-ORANGE SAUCE, CND, JELLIED OR STRAINED^CRAN-ORANGESAUCE 55OZ^^^CN^55-OZ CN^^1^^^^^3^^^LB^3.44^^^^1662^1
;;^UTILITY(U,$J,113,888,0)
;;=GRAPES, CND, SEEDLESS, THOMPSON^GRAPES CNNDMARSH N010^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1699^1
;;^UTILITY(U,$J,113,889,0)
;;=PRUNES, DRIED, WHOLE, PITTED^PRUNES PITTED DRD12OZ^^^BX^12-OZ BX^^1^^^^^3^^^LB^.75^^^^1787^1
;;^UTILITY(U,$J,113,890,0)
;;=PRUNES, DRIED, CND, WHOLE, STEWED^PRUNES DRD CNND 6.8LB^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1786^1
;;^UTILITY(U,$J,113,891,0)
;;=FRUIT SALAD, CND, JUICE PAK, DIET^FRUI SLD NATJCE NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1679^1
;;^UTILITY(U,$J,113,892,0)
;;=CEREAL, PREPARED, ASST, IND^CEREAL ASMT INDIV 70S^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^^.062
;;^UTILITY(U,$J,113,893,0)
;;=CEREAL, RICE AND RYE FLAKES WITH RAISINS, IND^CERE RICE&RYE INDIV70^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1137^.039
;;^UTILITY(U,$J,113,894,0)
;;=CEREAL, WHOLE WHEAT MEAL, QUIK-COOK, RYE, BRAN^CERE WHL WHT REG 16OZ^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^1181^1
;;^UTILITY(U,$J,113,895,0)
;;=ROLLS, DANISH, CHEESE, FRZ, IND^ROLL SWT FZNDANCHS 60^^^CS^CS-60^^1^^^^^4^^^EACH^60^^^^2508^.201