©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
FHINI0HW ; ; 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,896,0)
;;=ROLLS, DANISH, CINNAMON, FRZ, IND^ROLL SWT FZNDANCINM60^^^CS^CS-60^^1^^^^^4^^^EACH^60^^^^2509^.194
;;^UTILITY(U,$J,113,897,0)
;;=CEREAL, BRAN FLAKES, UNPROCESSED^CERE BRAN FLK 16 OZ^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^1131^1
;;^UTILITY(U,$J,113,898,0)
;;=SYRUP, IMITATION MAPLE, THICK^SYRU IMTMPLE THK NO10^8925-00-682-6705^1^CN^#10 CN^4^1^2.01^^^^6^^^GAL^.75^^^^1833^11.111
;;^UTILITY(U,$J,113,899,0)
;;=JAM, BLACKBERRY, IND^JAM BLACKBERRY1/2OZ2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1262^.031
;;^UTILITY(U,$J,113,900,0)
;;=SALAD DRESSING, DIET, IND^SALA DRESSDIETINDIV2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^386^.055
;;^UTILITY(U,$J,113,901,0)
;;=VIVONEX T.E.N., UNFLAVORED^DIET VIVONEX T.E.N.^8940-01-170-2363^1^BX^2.82-OZ PG^12^10^33.26^^^^5^^^EACH^1^^^^6147^.177
;;^UTILITY(U,$J,113,902,0)
;;=OSMOLITE HN, UNFLAVORED^DIET OSMOLITE HN 8 OZ^8940-01-258-9436^1^CN^8-OZ CN^24^1^.41^^^^5^^^EACH^1^^^^6019^.522
;;^UTILITY(U,$J,113,903,0)
;;=MAGNACAL, VANILLA^DIET SUPMTMAGNACAL8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6037^.551
;;^UTILITY(U,$J,113,904,0)
;;=ENRICH, VANILLA^DIET LQD VANENRICH8OZ^8940-01-258-2871^1^CN^8-OZ CN^24^1^.47^^^^5^^^EACH^1^^^^6028^.522
;;^UTILITY(U,$J,113,905,0)
;;=PRO-MIX, UNFLAVORED, BULK^DIETPRO-MIXCARBPWD1LB^^^CN^1# CN^^1^^^^^5^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,906,0)
;;=SALT SUBSTITUTE, BULK^SALT SUB 3-1/8 OZ^^^CO^3-OZ CO^^1^^^^^6^^^LB^.195^^^^6417^1
;;^UTILITY(U,$J,113,907,0)
;;=PINEAPPLE, CND, SLICED^PINEAPPLE SLCDNATNO10^8915-01-028-6323^1^CN^#10 CN^6^1^3.34^^^^3^^^LB^6.5^^^^1773^1
;;^UTILITY(U,$J,113,908,0)
;;=TRAVASORB, BLACK WALNUT^DIET BLACK WALNUT 8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6575^.194
;;^UTILITY(U,$J,113,909,0)
;;=DESSERT POWDER, PUDDING, VANILLA, INSTANT^DESS INSTNT VANLL 8OZ^^^CN^8-OZ CN^^1^^^^^6^^^LB^.5^^^^6620^1
;;^UTILITY(U,$J,113,910,0)
;;=DESSERT POWDER, PUDDING, CHOCOLATE, INSTANT^DESS INSTNT CHOC 8OZ^^^CN^8-OZ CN^^1^^^^^6^^^LB^.5^^^^6617^1
;;^UTILITY(U,$J,113,911,0)
;;=SOUP AND GRAVY BASE, CHICKEN, LO NA^SOUP INSTNT CHKN3.50Z^^^CN^3-1/2 OZ CN^^1^^^^^6^^^LB^.22^^^^550^1
;;^UTILITY(U,$J,113,912,0)
;;=SOUP AND GRAVY BASE, BEEF, LO NA^SOUP INSTNT BEEF3.5OZ^^^CN^3-1/2 OZ CN^^1^^^^^6^^^LB^.22^^^^6638^1
;;^UTILITY(U,$J,113,913,0)
;;=TRAVASORB, VANILLA^DIET VANTRAVASORB 8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6575^.194
;;^UTILITY(U,$J,113,914,0)
;;=GRAVY, CND, CHICKEN FLAVOR, READY TO HEAT^GRAV CNND CHKN 48 OZ^^^CN^48-OZ CN^^1^^^^^6^^^GAL^.38^^^^519^8.409
;;^UTILITY(U,$J,113,915,0)
;;=SUMACAL, UNFLAVORED, POWDER, BULK^DIET SUPP SUMACAL14OZ^^^CN^14-OZ CN^^1^^^^^5^^^LB^.88^^^^6039^1
;;^UTILITY(U,$J,113,916,0)
;;=FORTA, PUDDING, VANILLA^DIET SUPMTPUDVANLL5OZ^^^CN^5-OZ CN^^1^^^^^5^^^EACH^1^^^^6022^.309
;;^UTILITY(U,$J,113,917,0)
;;=FORTA, PUDDING, CHOCOLATE^DIET SUPMTPUDCHOC 5OZ^^^CN^5-OZ CN^^1^^^^^5^^^EACH^1^^^^6022^.309
;;^UTILITY(U,$J,113,918,0)
;;=FORTA, PUDDING, BUTTERSCOTCH^DIETBUSCTHPUDSUPMT5OZ^^^CN^5-OZ CN^^1^^^^^5^^^EACH^1^^^^6022^.309
;;^UTILITY(U,$J,113,919,0)
;;=SUSTACAL, VANILLA, POWDER, IND^DIET SUPMTVANL1.9OZ4S^^^PG^1.9-OZ PG^^1^^^^^5^^^EACH^1^^^^6003^.119
;;^UTILITY(U,$J,113,920,0)
;;=ITALIAN DRESSING, DIET, IND^ITAL DRES LQDLIGHT 2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^388^.055
;;^UTILITY(U,$J,113,921,0)
;;=AMIN-AID, STRAWBERRY^DIET AMINSTRAWB5.2 OZ^^^PG^PG^^1^^^^^5^^^EACH^1^^^^6135^.325
;;^UTILITY(U,$J,113,922,0)
;;=SUSTA II, VANILLA^DIETVANLLQDSUSTAII8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^^.522
;;^UTILITY(U,$J,113,923,0)
;;=PULMOCARE, VANILLA^DIET SUPPLIQVANPUL8OZ^8940-01-259-9371^1^CN^8-OZ CN^24^1^.92^^^^5^^^EACH^1^^^^6496^.522
;;^UTILITY(U,$J,113,924,0)
;;=PAPRIKA, GROUND, SPANISH^PAPR GROD SPANISH18OZ^^^CN^18-OZ CN^^1^^^^^6^^^LB^1.12^^^^286^1
;;^UTILITY(U,$J,113,925,0)
;;=PRUNES, DRIED, WHOLE^PRUNES, DRIED, WHOLE^^^LB^LB^^1^^^^^3^^^LB^1^^^^1787^1
;;^UTILITY(U,$J,113,926,0)
;;=CRACKERS, CHEESE FLAVORED, IND^CRACKERS CHEESE 24S^^^CS^CS-24^^1^^^^^4^^^EACH^24^^^^1074^.014
;;^UTILITY(U,$J,113,927,0)
;;=DESSERT POWDER, PUDDING, BUTTERSCOTCH, INSTANT^DESS PWD BUTTER INST^^^PG^3.5# PG^^1^^^^^6^^^EACH^1^^^^6616^.06
;;^UTILITY(U,$J,113,928,0)
;;=BOUILLON, VEGETABLE^BOUI VEG DRD GRAN16OZ^^^PG^1# PG^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,929,0)
;;=CHICKEN, CND, BONED, DICED, DIET^CHICK DICE DIET 50 OZ^8940-00-114-0848^1^CN^50-OZ CN^12^1^5.98^^^^1^^^LB^3.13^^^^^1
;;^UTILITY(U,$J,113,930,0)
;;=HONEY, IND^HONEY EXT INDIV CUP2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1258^.031
;;^UTILITY(U,$J,113,931,0)
;;=JELLY, APPLE, DIET, IND^JELL DIETAPPLEINDBG4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^6419^.031