©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
FHINI0HK ; ; 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,435,0)
;;=ENSURE, VANILLA, IND^DIET VANLLQDENSURE8OZ^8940-01-259-3860^1^CN^8-OZ CN^24^1^.80^^^^5^^^EACH^1^^^^6029^.522
;;^UTILITY(U,$J,113,436,0)
;;=MILK SHAKE, CND, CHOCOLATE, IND^MILK SHAKE CHOC71/2OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1
;;^UTILITY(U,$J,113,437,0)
;;=MILK SHAKE, CND, STRAWBERRY, IND^MILK SHAKSTRAWB71/2OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1
;;^UTILITY(U,$J,113,438,0)
;;=MILK SHAKE, CND, VANILLA, IND^MILK SHAKEVANLL71/2OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1
;;^UTILITY(U,$J,113,439,0)
;;=PRECISION LR, ORANGE^DIET SUPPRECORNG3OZ6S^^^PG^3-OZ PG^^1^^^^^5^^^EACH^1^^^^6033^.176
;;^UTILITY(U,$J,113,440,0)
;;=ENSURE, VANILLA, BULK, LIQ^DIET SUPMTVANLLQD32OZ^^^CN^QT CN^^1^^^^^5^^^EACH^1^^^^6029^2.116
;;^UTILITY(U,$J,113,441,0)
;;=VIVONEX-100HN, HIGH NITROGEN^DIET SUPMTVIVOUNFL^^^PG^2.8-OZ PG^^1^^^^^5^^^EACH^1^^^^6147^.177
;;^UTILITY(U,$J,113,442,0)
;;=SOUP AND GRAVY BASE, ONION^SOUP BASE FRONION 8OZ^^^CN^8-OZ CN^^1^^^^^6^^^LB^.5^^^^2791^1
;;^UTILITY(U,$J,113,443,0)
;;=PUDDING, CND, TAPIOCA^PUDD TAPI RDYSRV NO10^8940-00-402-4263^1^CN^#10 CN^6^1^2.37^^^^6^^^LB^6.5^^^^1923^1
;;^UTILITY(U,$J,113,444,0)
;;=SOUP, COND, CHICKEN CONSOMME^SOUP CONDCHKNCONS49OZ^^^CN^49-OZ CN^^1^^^^^6^^^GAL^.38^^^^2985^8.854
;;^UTILITY(U,$J,113,445,0)
;;=PUDDING, CND, LEMON^PUDD LEMONRDYSRV NO10^8940-00-407-0389^1^CN^#10 CN^6^1^2.40^^^^6^^^LB^6.5^^^^6440^1
;;^UTILITY(U,$J,113,446,0)
;;=VIVONEX-100, UNFLAVORED^VIVONEX-100, UNFLAV^8940-00-290-4030^1^BX^2.8-OZ PG^20^6^14.50^^^^5^^^EACH^1^^^^6147^.177
;;^UTILITY(U,$J,113,447,0)
;;=PORTAGEN, UNFLAVORED^PORTAGEN UNFLA 1#CN^^^CN^1# CN^^1^^^^^5^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,448,0)
;;=RICE, INSTANT^RICE INSTANT 28 OZ^^^PG^28-OZ PG^^1^^^^^4^^^LB^1.75^^^^1558^1
;;^UTILITY(U,$J,113,449,0)
;;=PANCAKE MIX, DIET^PANC MIXPLNDIET 8OZ^^^BG^8-OZ BG^^1^^^^^4^^^LB^.5^^^^^1
;;^UTILITY(U,$J,113,450,0)
;;=CONDIMENT PACKET, BLUE^COND PACKET BLU2 500S^^^CS^CS-500^^1^^^^^9^^^EACH^500
;;^UTILITY(U,$J,113,451,0)
;;=CHOCOLATE SYRUP^CHOC SYRUP STAB NO 10^^^CN^#10 CN^^1^^^^^6^^^LB^8^^^^975^1
;;^UTILITY(U,$J,113,452,0)
;;=STARCH, WHEAT^STARCH WHETPAYGELNO10^^^CN^#10 CN^^1^^^^^4^^^LB^6.5^^^^6388^1
;;^UTILITY(U,$J,113,453,0)
;;=PEANUT BUTTER, IND^PEANUT BUTINDBOATCP2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1409^.081
;;^UTILITY(U,$J,113,454,0)
;;=PEACHES, CND, SLICED, (FOR PIES)^PEACH SLICEDSLDPKNO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1750^1
;;^UTILITY(U,$J,113,455,0)
;;=PEAR PUREE, DIET^PEAR PUREE DIET 17 OZ^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^6554^1
;;^UTILITY(U,$J,113,456,0)
;;=ORANGES, CND, SEGMENTS, SYRUP-PAK^ORANVALENC4LB(1/2GAL)^^^JR^1/2-GL JR^^1^^^^^3^^^GAL^.5^^^^^8
;;^UTILITY(U,$J,113,457,0)
;;=DESSERT POWDER, GELATIN, RASPBERRY, DIET^DESS PWDRASPBR 2.5 OZ^^^JR^2.5-OZ JR^^1^^^^^6^^^EACH^1^^^^6408^.265
;;^UTILITY(U,$J,113,458,0)
;;=PICKLES, CUCUMBER, SWEET, SLICED, DIET^PICK CUCUSLCDDIET16OZ^^^JR^1# JR^^1^^^^^6^^^LB^1^^^^2897^1
;;^UTILITY(U,$J,113,459,0)
;;=ICING MIX, CHOCOLATE^ICING MIX, CHOCOLATE^^^BX^5# BX^^1^^^^^6^^^LB^5^^^^895^1
;;^UTILITY(U,$J,113,460,0)
;;=CHEESE, AMERICAN, SHARP, BRICK^CHEE AMER PROCSHRP5LB^^^BX^5# BX^^1^^^^^2^^^LB^5^^^^5^1
;;^UTILITY(U,$J,113,461,0)
;;=FIGS, CND, KADOTA, WATER-PAK, DIET^FIGS CNNDKADOTAWP21/2^^^CN^#2-1/2 CN^^1^^^^^3^^^LB^1.81^^^^1669^1
;;^UTILITY(U,$J,113,462,0)
;;=SOUP, COND, BEAN WITH BACON^SOUP BEAN W BACON NO3^8935-00-480-4550^1^CN^#3 CN^12^1^1.21^^^^3^^^GAL^.36^^^^507^8.748
;;^UTILITY(U,$J,113,463,0)
;;=SOUP, COND, TOMATO^SOUP CONSD TOMATO NO3^8935-00-480-4561^1^CN^#3 CN^12^1^.95^^^^3^^^GAL^.36^^^^541^8.748
;;^UTILITY(U,$J,113,464,0)
;;=CLAM CHOWDER, COND, MANHATTAN STYLE^CLAM CHOWDER MANH NO3^^^CN^#3 CN^^1^^^^^1^^^GAL^.36^^^^2995^8.854
;;^UTILITY(U,$J,113,465,0)
;;=BLUE CHEESE DRESSING^BLUE CHEESE DRES 1GAL^^^JR^GL JR^^1^^^^^6^^^GAL^1^^^^393^8.642
;;^UTILITY(U,$J,113,466,0)
;;=BEEF PUREE, W/ BEEF BROTH, DIET, LO NA^BEEF PURE DIET15/17OZ^8940-00-488-7963^1^CN^1# CN^12^1^1.54^^^^1^^^LB^1^^^^6473^1
;;^UTILITY(U,$J,113,467,0)
;;=CHICKEN PUREE, W/CHICKEN BROTH, DIET LO NA^CHIC PURE DIET15/17OZ^8940-00-488-7964^1^CN^1# CN^12^1^1.08^^^^1^^^LB^1^^^^6474^1
;;^UTILITY(U,$J,113,468,0)
;;=VEAL PUREE, DIET^VEAL PURE DIET15/17OZ^8940-00-488-7965^1^CN^1# CN^12^1^1.59^^^^1^^^LB^1^^^^6478^1
;;^UTILITY(U,$J,113,469,0)
;;=PEA PUREE, DIET^PEA PURE DIET12%NO303^8940-00-488-7966^1^CN^#303 CN^24^1^.57^^^^3^^^LB^1^^^^6452^1
;;^UTILITY(U,$J,113,470,0)
;;=SQUASH PUREE, DIET, LO NA^SQUA PUREEDIET7.5%303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^6456^1