©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
FHINI0HB ; ; 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,110,0)
;;=DESSERT POWDER, GELATIN, LIME, DIET^DESS LIMEDIET77/10 OZ^^^JR^7.7-OZ JR^^1^^^^^6^^^EACH^1^^^^6408^.265
;;^UTILITY(U,$J,113,111,0)
;;=DESSERT POWDER, GELATIN, ASSORTED, DIET^DESS GELASSDDIET5OZ12^^^CS^CS-24^^1^^^^^6^^^EACH^24^^^^6408^.265
;;^UTILITY(U,$J,113,112,0)
;;=DESSERT POWDER, GELATIN, CHERRY^DESS PWD GEL CHRY24OZ^8940-00-253-0209^1^CO^24-OZ CO^12^1^.90^^^^6^^^LB^1.5^^^^1230^1
;;^UTILITY(U,$J,113,113,0)
;;=DESSERT POWDER, GELATIN, RASPBERRY^DESS PWDGELRASPBR24OZ^8940-00-253-0213^1^CO^24-OZ CO^12^1^.90^^^^6^^^LB^1.5^^^^1230^1
;;^UTILITY(U,$J,113,114,0)
;;=DESSERT POWDER, GELATIN, STRAWBERRY^DESS PWDGELSTRAWB24OZ^8940-00-253-0214^1^CO^24-OZ CO^12^1^.99^^^^6^^^LB^1.5^^^^1230^1
;;^UTILITY(U,$J,113,115,0)
;;=DESSERT POWDER, PUDDING, BUTTERSCOTCH^DESS BUSCTHPWD4-1/2LB^^^PG^4.5#-PG^^1^^^^^6^^^LB^4.5^^^^6616^1
;;^UTILITY(U,$J,113,116,0)
;;=DESSERT POWDER, PUDDING, CHOCOLATE^DESS PWD CHOCOLATE5LB^^^CN^5# CN^^1^^^^^6^^^LB^5^^^^6617^1
;;^UTILITY(U,$J,113,117,0)
;;=DESSERT POWDER, PUDDING, LEMON^DESS PWD LEMON 41/2LB^^^BX^4.5#-BX^^1^^^^^6^^^LB^4.5^^^^6618^1
;;^UTILITY(U,$J,113,118,0)
;;=DESSERT POWDER, PUDDING, VANILLA^DESS PWD PUDVANLL24OZ^^^PG^24-OZ PG^^1^^^^^6^^^LB^1.5^^^^6620^1
;;^UTILITY(U,$J,113,119,0)
;;=FRENCH DRESSING MIX^FRENCH DRESSINGMIX1LB^^^JR^1# JR^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,120,0)
;;=FRENCH DRESSING, IND^FREN DRESS INDIVBAG2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^382^.055
;;^UTILITY(U,$J,113,121,0)
;;=FRENCH DRESSING, BULK^FREN DRESSNO4371 1GAL^^^JR^GL JR^^1^^^^^6^^^GAL^1^^^^382^8.819
;;^UTILITY(U,$J,113,122,0)
;;=FRENCH DRESSING, DIET, IND^FREN DRESSDIETINDIV4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^386^.055
;;^UTILITY(U,$J,113,123,0)
;;=FRUIT COCKTAIL, CND, SYRUP-PAK^FRUI COCKTAIL LT NO10^8915-01-095-2099^1^CN^#10 CN^6^1^3.93^^^^3^^^LB^6.5^^^^1677^1
;;^UTILITY(U,$J,113,124,0)
;;=FRUIT COCKTAIL, CND, WATER PAK, DIET^FRUI CKTLWTRPKDIET303^8940-00-851-7074^1^CN^#303 CN^24^1^.86^^^^3^^^LB^1^^^^1674^1
;;^UTILITY(U,$J,113,125,0)
;;=GRAPEFRUIT, CND, SECTIONS, DIET JUICE PAK^GRAPFRU CNNDDIETNO303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^1690^1
;;^UTILITY(U,$J,113,126,0)
;;=GRAVY MIX, BEEF, DIET LO NA^GRAVY MIXBROWNDIET5OZ^^^JR^5-OZ JR^^1^^^^^6^^^LB^.31^^^^^1
;;^UTILITY(U,$J,113,127,0)
;;=GRAVY MIX, CHICKEN^GRAV MIXCHKNPWD22.6OZ^^^CO^22.6-OZ BG^^1^^^^^6^^^LB^1.41^^^^2789^1
;;^UTILITY(U,$J,113,128,0)
;;=GRAVY MIX, BEEF^GRAVY MIXBEEFINST16OZ^^^PG^1# PG^^1^^^^^6^^^LB^1^^^^2788^1
;;^UTILITY(U,$J,113,129,0)
;;=GARLIC POWDER^GARLIC POWDER 1 LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^278^1
;;^UTILITY(U,$J,113,130,0)
;;=GARLIC SALT^GARLIC SALT 10 OZ^^^JR^10-OZ JR^^1^^^^^6^^^LB^.62^^^^^1
;;^UTILITY(U,$J,113,131,0)
;;=GELATIN, PLAIN, UNFLAVORED^GELA PLAIN EDIBLE 1LB^^^PG^1# PG^^1^^^^^6^^^LB^1^^^^1229^1
;;^UTILITY(U,$J,113,132,0)
;;=GRAPES, CND, SEEDLESS, THOMPSON^GRAPES CNNDMARSH N010^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1699^1
;;^UTILITY(U,$J,113,133,0)
;;=HONEY^HONEY EXTD LQDGRDA5LB^^^CN^5# CN^^1^^^^^6^^^LB^5^^^^1258^1
;;^UTILITY(U,$J,113,134,0)
;;=HORSERADISH, PREPARED, CREAM STYLE^HORSERAD PREPARED32OZ^^^JR^QT JR^^1^^^^^6^^^GAL^.25^^^^1259^8.466
;;^UTILITY(U,$J,113,135,0)
;;=HOT SAUCE^HOT SAUCE 6 OZ^^^BT^6-OZ BT^^1^^^^^6^^^GAL^.047^^^^^8.2
;;^UTILITY(U,$J,113,136,0)
;;=ITALIAN DRESSING^ITAL DRESS OIL 1 GAL^^^CO^GL CO^^1^^^^^6^^^GAL^1^^^^381^8.289
;;^UTILITY(U,$J,113,137,0)
;;=ITALIAN DRESSING, CREAM TYPE, IND^ITAL DRESSAL/VEGBAG2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^^.055
;;^UTILITY(U,$J,113,138,0)
;;=ITALIAN DRESSING, DIET, LO NA IND^ITAL DRESDIETINDIV 4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^388^.055
;;^UTILITY(U,$J,113,139,0)
;;=JELLY, GRAPE, DIET, IND^JELL DIETGRAPEINDBG4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^6419^.031
;;^UTILITY(U,$J,113,140,0)
;;=JELLY, ASSORTED REGULAR, IND^JELLY ASMT INDIVCUP2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1264^.031
;;^UTILITY(U,$J,113,141,0)
;;=JUICE, APPLE, CND, UNSW, IND^JUIC APPLEASYOP51/2-6^8915-00-006-1593^1^CN^6-OZ CN^48^1^.17^^^^3^^^EACH^1^^^^1809^.41
;;^UTILITY(U,$J,113,142,0)
;;=JUICE, GRAPEFRUIT AND ORANGE, CND^JUIC GRAPFRUORG 46OZ^8915-01-039-6963^1^CN^#3 CN^12^1^1.06^^^^3^^^GAL^.36^^^^1734^8.72
;;^UTILITY(U,$J,113,143,0)
;;=JUICE, GRAPEFRUIT, CND, UNSW, IND^JUICE GRAPFRU UNSW6OZ^8915-00-957-8159^1^CN^6-OZ CN^48^1^.20^^^^3^^^EACH^1^^^^1692^.409
;;^UTILITY(U,$J,113,144,0)
;;=JUICE, GRAPEFRUIT, CND, UNSW^JUIC GRAPFRUUNSWT46OZ^8915-01-039-4768^1^CN^#3 CN^12^1^1.12^^^^3^^^GAL^.36^^^^1692^8.72
;;^UTILITY(U,$J,113,145,0)
;;=JUICE, LEMON^JUICE LEMONSINGLE32OZ^^^BT^QT BT^^1^^^^^3^^^GAL^.25^^^^1708^8.607