©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
FHINI0HJ ; ; 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,400,0)
;;=BEANS, KIDNEY, CND, IN SWEET SAUCE^BEANKIDNEYCNNDGRDC#10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^2645^1
;;^UTILITY(U,$J,113,401,0)
;;=MACARONI WITH CHEESE SAUCE, CND^MACA W CHEESECNNDNO10^^^CN^#10 CN^^1^^^^^1^^^LB^6.5^^^^1323^1
;;^UTILITY(U,$J,113,402,0)
;;=DESSERT POWDER, PUDDING, DUTCH CHOCOLATE^DESS PWD DUTCHCHOC5LB^^^CN^5# CN^^1^^^^^6^^^LB^5^^^^6617^1
;;^UTILITY(U,$J,113,403,0)
;;=PEPPERS, GREEN, DEHYD, DICED^PEPP GRENDEHYDSWTNO10^8915-00-252-3787^1^CN^#10 CN^6^1^6.89^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,404,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,405,0)
;;=DESSERT POWDER, GELATIN, LEMON^DESS PWD GELLEMON24OZ^8940-00-253-0210^1^CO^24-OZ CO^12^1^.99^^^^6^^^LB^1.5^^^^1230^1
;;^UTILITY(U,$J,113,406,0)
;;=DESSERT POWDER, GELATIN, LIME^DESS PWD GEL LIME24OZ^8940-00-253-0211^1^CO^24-OZ CO^12^1^.99^^^^6^^^LB^1.5^^^^1230^1
;;^UTILITY(U,$J,113,407,0)
;;=DESSERT POWDER, GELATIN, ORANGE^DESS PWD GEL ORG 24OZ^8940-00-253-0212^1^CO^24-OZ CO^12^1^.99^^^^6^^^LB^1.5^^^^1230^1
;;^UTILITY(U,$J,113,408,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,409,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,410,0)
;;=CEREAL, WHEAT, FARINA, QUIK-COOK^CERE WHTFARINAQCK28OZ^8920-00-253-1156^1^PG^28-OZ PG^12^1^.57^^^^4^^^LB^1.75^^^^1167^1
;;^UTILITY(U,$J,113,411,0)
;;=PEARS, SPICED, CND, WHOLE^PEARS SPIC NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,412,0)
;;=JUICE, TOMATO, CND^JUICE TOMATO SGL 46OZ^8915-00-255-0523^1^CN^#3 CN^12^1^.66^^^^3^^^GAL^.36^^^^1942^8.607
;;^UTILITY(U,$J,113,413,0)
;;=CRANBERRY JUICE COCKTAIL, SWEETENED^CRAN JUICECOCK 46 OZ^8915-00-259-9185^1^CN^#3 CN^12^1^1.00^^^^3^^^GAL^.36^^^^1660^8.917
;;^UTILITY(U,$J,113,414,0)
;;=PICKLING SPICES^PICKLING SPICES 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,415,0)
;;=COOKIES, CHOCOLATE AND VANILLA WAFER, IND^COOK CHOC-VAN 6.57 LB^^^CS^CS-250^^1^^^^^4^^^EACH^250^^^^1024^.042
;;^UTILITY(U,$J,113,416,0)
;;=CHILI SAUCE^CHILI SAUCE GRD ANO10^8950-00-269-8253^1^CN^#10 CN^6^1^3.21^^^^6^^^LB^7^^^^1940^1
;;^UTILITY(U,$J,113,417,0)
;;=CEREAL, RICE CHEX, IND^CERE SHRDRICE INDIVBX^^^CS^CS-70^^1^^^^^4^^^EACH^70^^^^1138^.055
;;^UTILITY(U,$J,113,418,0)
;;=RAISINS, SEEDLESS^RAIS SDLESS GRD B15OZ^8915-00-273-8197^1^PG^15-OZ PG^24^1^.91^^^^3^^^LB^.94^^^^1793^1
;;^UTILITY(U,$J,113,419,0)
;;=TARTAR SAUCE^TARTAR SAUCE 1GL^^^JR^GL JR^^1^^^^^6^^^GAL^1^^^^1924^8.113
;;^UTILITY(U,$J,113,420,0)
;;=TOMATOES AND ZUCCHINI, CND^TOMA AND ZUCCHININO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,421,0)
;;=JUICE, GRAPE, CND, UNSW^JUICE GRAPESINGLE46OZ^8915-00-281-1809^1^CN^#3 CN^12^1^1.28^^^^3^^^GAL^.36^^^^1700^8.917
;;^UTILITY(U,$J,113,422,0)
;;=BEETS, CND, SLICED^BEETS SLICE GRD ANO10^8915-00-286-8060^1^CN^#10 CN^6^1^1.85^^^^3^^^LB^6.5^^^^780^1
;;^UTILITY(U,$J,113,423,0)
;;=MERITENE, CHOCOLATE, IND^MERITENE CHOC IND^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6013^.522
;;^UTILITY(U,$J,113,424,0)
;;=TOLEREX, UNFLAVORED^DIET SUPMT TOLEREX^^^PG^2.82-OZ PG^^1^^^^^5^^^EACH^1^^^^6146^.176
;;^UTILITY(U,$J,113,425,0)
;;=GRAPEFRUIT, CND, SECTIONS, SYRUP-PAK^GRAPEFRUIT SIRUPNO303^8915-00-290-6063^1^CN^#303 CN^24^1^.85^^^^3^^^LB^1^^^^1691^1
;;^UTILITY(U,$J,113,426,0)
;;=DOUGHNUT MIX, CAKE TYPE^DOUG MIX CAKE 5 LB^^^BG^5# BG^^1^^^^^4^^^LB^5^^^^1094^1
;;^UTILITY(U,$J,113,427,0)
;;=MERITENE, PLAIN, BULK^DIET SUPMTMERITENE1LB^^^CN^1# CN^^1^^^^^5^^^LB^1^^^^6013^1
;;^UTILITY(U,$J,113,428,0)
;;=CORN CHIPS, IND^CORN CHIPS, IND^^^CS^CS-50^^1^^^^^3^^^EACH^50^^^^6439^.094
;;^UTILITY(U,$J,113,429,0)
;;=PUDDING, CND, BUTTERSCOTCH IND^PUDD CNND BUSCTH 5 OZ^^^CN^5-OZ CN^^1^^^^^6^^^EACH^1^^^^6616^.331
;;^UTILITY(U,$J,113,430,0)
;;=PUDDING, CND, CHOCOLATE IND^PUDD CNND CHOC 5 OZ^^^CN^5-OZ CN^^1^^^^^6^^^EACH^1^^^^6617^.331
;;^UTILITY(U,$J,113,431,0)
;;=VINEGAR, WHITE^VINE WHT DISTILED1GAL^^^BT^GL BT^^1^^^^^6^^^GAL^1^^^^1987^8.466
;;^UTILITY(U,$J,113,432,0)
;;=COMPLEAT-B, MEAT BASE^DIET COMPLEAT B 250ML^8940-01-255-6767^1^CN^250-ML BT^24^1^1.38^^^^5^^^EACH^1^^^^6036^.589
;;^UTILITY(U,$J,113,433,0)
;;=PRECISION LR, LEMON^DIET PRECIS LEMON 6S^^^PG^3-OZ PG^^1^^^^^5^^^EACH^1^^^^6033^.176
;;^UTILITY(U,$J,113,434,0)
;;=PRECISION LR, CHERRY^DIET SUPPRECCHRY3OZ6S^^^PG^3-OZ PG^^1^^^^^5^^^EACH^1^^^^6033^.176