©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
FHINI0HQ ; ; 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,655,0)
;;=SUSTACAL PUDDING, CHOCOLATE^DIET SUPMTPUDCHOC 5OZ^8940-01-255-6764^1^CN^5-OZ CN^48^1^.45^^^^5^^^EACH^1^^^^6004^.309
;;^UTILITY(U,$J,113,656,0)
;;=SUSTACAL PUDDING, VANILLA^DIET SUPMTPUDVANLL5OZ^8940-01-255-6765^1^CN^5-OZ CN^48^1^.45^^^^5^^^EACH^1^^^^6004^.309
;;^UTILITY(U,$J,113,657,0)
;;=RICE, LONG GRAIN AND WILD^RICE LONG GR^^^LB^LB^^1^^^^^4^^^LB^1^^^^3070^1
;;^UTILITY(U,$J,113,658,0)
;;=OSMOLITE, UNFLAVORED^DIET SUPMTOSMOLITE8OZ^8940-01-255-6770^1^CN^8-OZ CN^24^1^.58^^^^5^^^EACH^1^^^^6030^.522
;;^UTILITY(U,$J,113,659,0)
;;=PIE FILLING, STRAWBERRY^PIE FILL STRAW NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,660,0)
;;=ENSURE, CHOCOLATE, IND^DIET CHOC ENSURE 8 OZ^8940-01-255-6763^1^CN^8-OZ CN^24^1^.40^^^^5^^^EACH^1^^^^6029^.522
;;^UTILITY(U,$J,113,661,0)
;;=SUSTACAL HC, CHOCOLATE, IND^DIET CHOCSUSTHC 8OZ^8940-01-255-6773^1^CN^8-OZ CN^24^1^.46^^^^5^^^EACH^1^^^^6012^.522
;;^UTILITY(U,$J,113,662,0)
;;=STUFFED GREEN PEPPERS IN SAUCE, CND, HEAT AND SERVE^STUFFED GRN PEPPERS^^^PN^5.5# PN^^1^^^^^1^^^LB^5.5^^^^6641^1
;;^UTILITY(U,$J,113,663,0)
;;=PECANS, SHELLED, UNSALTED, WHOLE^PECA SHLD UNSALT 10OZ^^^BG^10-OZ BG^^1^^^^^6^^^LB^.62^^^^1428^1
;;^UTILITY(U,$J,113,664,0)
;;=SUSTACAL, EGGNOG, IND^DIET ENOGSUSTACAL 8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6003^.522
;;^UTILITY(U,$J,113,665,0)
;;=ENSURE, BLACK WALNUT, IND^DIET SUPMTBWALLQD 80Z^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6029^.522
;;^UTILITY(U,$J,113,666,0)
;;=SOUP MIX, DEHYD, CREAM OF CHICKEN, DIET^SOUP MIX DIET CHKN 12^^^BX^3# BX^^1^^^^^6^^^LB^3^^^^^1
;;^UTILITY(U,$J,113,667,0)
;;=SOUP MIX, DEHYD, CREAM OF TOMATO, DIET^SOUP MIXDIETCRMTOM 12^^^BX^3# BX^^1^^^^^6^^^LB^3^^^^^1
;;^UTILITY(U,$J,113,668,0)
;;=SOUP MIX, DEHYD, CREAM OF VEGETABLE, DIET^SOUP MIXDIETCRMVEG 12^^^BX^3# BX^^1^^^^^6^^^LB^3^^^^^1
;;^UTILITY(U,$J,113,669,0)
;;=SOUP MIX, DEHYD, CREAM OF MUSHROOM, DIET^SOUP MIXDIETCRMMUSH12^^^BX^3# BX^^1^^^^^6^^^LB^3^^^^^1
;;^UTILITY(U,$J,113,670,0)
;;=VITANEED, UNFLAVORED^DIET SUPTTHPCVITA12OZ^^^BT^12-OZ BT^^1^^^^^5^^^EACH^1^^^^^.551
;;^UTILITY(U,$J,113,671,0)
;;=TURKEY, BONELESS, FROZEN, RAW, UNSEASONED^TURK BNLS FZN RAWGRDA^^^LB^LB^^1^^^^^1^^^LB^1^^^^490^1
;;^UTILITY(U,$J,113,672,0)
;;=PORK, CUTLETS, FROZEN, PREFAB, BREADED, RAW^PORK CUTLETS FRZN^^^LB^LB^^1^^^^^1^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,673,0)
;;=MERITENE VANILLA SUPREME, IND^DIET SUPMT VANLLQD8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6013^.522
;;^UTILITY(U,$J,113,674,0)
;;=CAKE, FROZEN, CARROT CAKE W/ICING, SHEET^CAKE FROZEN CARROT4LB^^^CK^4.75# CK^^1^^^^^4^^^EACH^36^^^^870^.187
;;^UTILITY(U,$J,113,675,0)
;;=CAKE, FROZEN, ORANGE CAKE W/ICING, SHEET^CAKE FROZEN ORANGE4LB^^^CK^4# CK^^1^^^^^4^^^EACH^36^^^^870^.203
;;^UTILITY(U,$J,113,676,0)
;;=CAKE, FROZEN, BANANA CAKE W/FROSTING, SHEET^CAKE FROZEN BANANA4LB^^^CK^4.4# CK^^1^^^^^4^^^EACH^36^^^^870^.187
;;^UTILITY(U,$J,113,677,0)
;;=CAKE, FROZEN, CHOC CAKE W/CHOC ICING, SHEET^CAKE FROZEN CHOC 4LBS^^^CK^4# CK^^1^^^^^4^^^EACH^36^^^^879^.209
;;^UTILITY(U,$J,113,678,0)
;;=EGGNOG, READY-TO-SERVE^EGGNOG 80Z^^^CT^8-OZ CT^^1^^^^^5^^^EACH^1^^^^57^.56
;;^UTILITY(U,$J,113,679,0)
;;=ENSURE PLUS, STRAWBERRY, IND^DIET SUPMT STRAWB 8OZ^8940-01-258-2866^1^CN^8-OZ CN^24^1^.46^^^^5^^^EACH^1^^^^6018^.522
;;^UTILITY(U,$J,113,680,0)
;;=CITROTEIN, GRAPE^DIET GRAPE DOYLE 14OZ^^^CN^14-OZ CN^^1^^^^^5^^^LB^.88^^^^6031^1
;;^UTILITY(U,$J,113,681,0)
;;=ITALIAN DRESSING MIX, DRY^ITAL DRESS MIX^^^PG^PG^^1^^^^^6^^^EACH^1^^^^^.035
;;^UTILITY(U,$J,113,682,0)
;;=ENSURE, EGGNOG, IND^DIET SUPMT EGGNOG 8OZ^8940-01-255-6761^1^CN^8-OZ CN^24^1^.44^^^^5^^^EACH^1^^^^6029^.522
;;^UTILITY(U,$J,113,683,0)
;;=ENSURE PLUS, COFFEE, IND^DIET SUPMTCOFFROSS717^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6018^.522
;;^UTILITY(U,$J,113,684,0)
;;=ENSURE, COFFEE, IND^DIET SUPMTCOFFROSS704^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6029^.522
;;^UTILITY(U,$J,113,685,0)
;;=PIE FILLING, LEMON^PIE FLLG LEMON NO. 10^^^CN^#10 CN^^1^^^^^6^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,686,0)
;;=PIE FILLING, PEACH^PIE FLLG PEACH NO. 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^^1
;;^UTILITY(U,$J,113,687,0)
;;=ENSURE, STRAWBERRY, IND^DIET STRAWBENSURE 8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6029^.522
;;^UTILITY(U,$J,113,688,0)
;;=PEPPERS, PICKLED^PEPPERS PICKLED 6 OZ^^^BT^6-OZ BT^^1^^^^^6^^^LB^.375^^^^^1
;;^UTILITY(U,$J,113,689,0)
;;=PEANUT OIL^PEANUT OIL 1QT^^^BT^QT BT^^1^^^^^6^^^GAL^.25^^^^364^7.619
;;^UTILITY(U,$J,113,690,0)
;;=POTATOES, SCALLOPED, DEHYD^POTA SCALLOPED2-1/4LB^^^CO^2-1/4# CO^^1^^^^^3^^^LB^2.25^^^^2920^1