©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
FHINI0HR ; ; 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,691,0)
;;=BEANS, CND, W/PORK IN MOLASSES, BROWN SUGAR^BEAN WHTMOLBRNSUGNO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^693^1
;;^UTILITY(U,$J,113,692,0)
;;=CEREAL, SPECIAL K, BULK^CERE SPEC K 1#^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^1141^1
;;^UTILITY(U,$J,113,693,0)
;;=CEREAL, RICE KRISPIES, BULK^CERE RICE KRIS 1#^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^1139^1
;;^UTILITY(U,$J,113,694,0)
;;=DESSERT POWDER, GELATIN, STRAWBERRY, DIET^DESS PWDSTRAWB77/10OZ^^^JR^7.7-OZ JR^^1^^^^^6^^^EACH^1^^^^6408^.265
;;^UTILITY(U,$J,113,695,0)
;;=ENSURE PLUS, EGGNOG, IND^DIET EGGNOGSUST^8940-01-255-6371^1^CN^8-OZ CN^12^1^.46^^^^5^^^EACH^1^^^^6018^.522
;;^UTILITY(U,$J,113,696,0)
;;=CARROTS, FROZEN, DICED^CARROTS FROZEN DICED^^^LB^LB^^1^^^^^3^^^LB^1^^^^2038^1
;;^UTILITY(U,$J,113,697,0)
;;=CHEESE, GRATED, PARMESAN AND SWISS^CHEESEPARMSWISHAK14OZ^^^CN^14-OZ CN^^1^^^^^2^^^LB^.88^^^^32^1
;;^UTILITY(U,$J,113,698,0)
;;=GREENS, COLLARD, CND, CHOPPED^GREENS COLLARD NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1000^1
;;^UTILITY(U,$J,113,699,0)
;;=GREENS, MIXED, CND, CHOPPED^MIXED GREENS CHOPPED^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,700,0)
;;=RUSSIAN DRESSING, DIET, BULK^RUSS DRESSDIETLQD57OZ^^^JR^57-OZ JR^^1^^^^^6^^^GAL^.445^^^^357^9.171
;;^UTILITY(U,$J,113,701,0)
;;=SALAD DRESSING, DIET, (ZERO), BULK^SALADRESSZERODIET57OZ^^^JR^57-OZ JR^^1^^^^^6^^^GAL^.445^^^^^8
;;^UTILITY(U,$J,113,702,0)
;;=ISOCAL HCN, UNFLAVORED^DIET ISOCAL HCN 8 OZ^8940-01-255-6769^1^CN^8-OZ CN^12^1^.54^^^^5^^^EACH^1^^^^6006^.522
;;^UTILITY(U,$J,113,703,0)
;;=SOUP, COND, GREEN PEA, DIET^SOUP GRN PEA COND #3^^^CN^8-OZ CN^^1^^^^^3^^^GAL^.062^^^^^8.607
;;^UTILITY(U,$J,113,704,0)
;;=MUFFIN MIX, BRAN^MUFFIN MIX BRAN 9-3/4^^^PG^9.75-OZ PG^^1^^^^^4^^^LB^.61^^^^^1
;;^UTILITY(U,$J,113,705,0)
;;=VITAL HN, VANILLA^DIET VITAL HN 2.79OZ^8940-01-258-2867^1^PG^2.79-OZ PG^4^1^16.56^^^^5^^^EACH^1^^^^6027^.174
;;^UTILITY(U,$J,113,706,0)
;;=SOUP AND GRAVY BASE, PORK^SOUP BASE PORK 16 OZ^^^CO^1# CO^^1^^^^^6^^^LB^1^^^^2792^1
;;^UTILITY(U,$J,113,707,0)
;;=SOUP AND GRAVY BASE, TURKEY^SOUP BASE TURKEY 16OZ^^^CO^1# CO^^1^^^^^6^^^LB^1^^^^2793^1
;;^UTILITY(U,$J,113,708,0)
;;=DESSERT POWDER, GELATIN, FRUIT FLAVOR, DIET^DESS PWDGEL FRUIT14OZ^^^CO^14-OZ CO^^1^^^^^6^^^LB^.88^^^^6408^1
;;^UTILITY(U,$J,113,709,0)
;;=BUTTER SUBSTITUTE (BUTTER BUDS), DIET^BUTTER SUBGRANUL 8 OZ^^^PG^8-OZ CO^^1^^1^^^6^^^LB^.5^^^^^1
;;^UTILITY(U,$J,113,710,0)
;;=BEAN SALAD (4 BEAN), CND^4 BEAN SALAD NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,711,0)
;;=PEAR PUREE^PEAR PUREE 15OZ N0303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^6454^1
;;^UTILITY(U,$J,113,712,0)
;;=CEREAL, KIX, IND^CERECORNPUFFUNCTDBOWL^^^CS^CS-96^^1^^^^^4^^^EACH^96^^^^1127^.047
;;^UTILITY(U,$J,113,713,0)
;;=SOUP, COND, CHEDDAR CHEESE^SOUP COND CHEDDAR11OZ^^^CN^11-OZ CN^^1^^^^^6^^^GAL^.086^^^^2984^9.065
;;^UTILITY(U,$J,113,714,0)
;;=COMPLEAT-MODIFIED (LACTOSE-FREE), UNFLAVORED^DIET COMPLEAT 250 ML^^^CN^250-ML BT^^1^^^^^5^^^EACH^1^^^^6017^.589
;;^UTILITY(U,$J,113,715,0)
;;=JAM, ASSORTED IND^JAM ASSD INDIV 2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1262^.031
;;^UTILITY(U,$J,113,716,0)
;;=CITROTEIN, PUNCH^DIET SUPMTPWDPNH14 OZ^^^CN^14-OZ CN^^1^^^^^5^^^LB^.88^^^^6031^1
;;^UTILITY(U,$J,113,717,0)
;;=MILK SHAKE MIX, CHOCOLATE^MILK SHAKECHOC1-1/2LB^^^BG^1.5#-BG^^1^^^^^5^^^LB^1.5^^^^^1
;;^UTILITY(U,$J,113,718,0)
;;=FORTA PUDDING, TAPIOCA, IND^DIET SUPMTPUD TAP15OZ^^^CN^5-OZ CN^^1^^^^^5^^^EACH^1^^^^6022^.309
;;^UTILITY(U,$J,113,719,0)
;;=CABBAGE AND BEEF ROLLS W/TOM SCE, FZN, HEAT AND SERVE^CABB/BEEFR RLS 5.5#PN^^^PN^5.5# PN^^1^^^^^1^^^LB^5.5^^^^^1
;;^UTILITY(U,$J,113,720,0)
;;=TOMATOES, CND, STEWED^TOMATOES STEWED NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^2068^1
;;^UTILITY(U,$J,113,721,0)
;;=CRITICARE HN, UNFLAVORED^DIET CRITICARE HN 8OZ^^^BT^8-OZ BT^^1^^^^^5^^^EACH^1^^^^6002^.573
;;^UTILITY(U,$J,113,722,0)
;;=PEPPERS, SWEET, CND, WHOLE, RED BELL^SWEET PEPPERS 1#CN^^^CN^1# CN^^1^^^^^3^^^LB^1^^^^2053^1
;;^UTILITY(U,$J,113,723,0)
;;=HEPATIC-AID II, EGGNOG^DIET EGGNOG 4.4 OZ 12^^^PG^4.4-OZ PG^^1^^^^^5^^^EACH^1^^^^6133^.194
;;^UTILITY(U,$J,113,724,0)
;;=MUFFIN MIX, BLUEBERRY^MUFFIN MIX BLUBRY 5LB^^^PG^5# PG^^1^^^^^4^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,725,0)
;;=ONIONS, DEHYD, CHOPPED^ONIONS DEHYD CHPD40OZ^^^PG^40-OZ PG^^1^^^^^3^^^LB^2.5^^^^1384^1
;;^UTILITY(U,$J,113,726,0)
;;=BANANA PUREE^BANANA PUREE NO. 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,727,0)
;;=TOPPING, ICE CREAM, BUTTERSCOTCH^TOPP BUSCTHFUDGE NO 3^^^CN^#3 CN^^1^^^^^6^^^GAL^.36^^^^^8