©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
FHINI0HX ; ; 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,932,0)
;;=JELLY, CHERRY, DIET, IND^JELLY DIETCHRYINDBG4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^6419^.031
;;^UTILITY(U,$J,113,933,0)
;;=JELLY, RASPBERRY, DIET, IND^JELLYDIETREDRASPIND4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^6419^.031
;;^UTILITY(U,$J,113,934,0)
;;=JELLY, STRAWBERRY, DIET, IND^JELLYDIETSTRAWBIND 4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^6419^.031
;;^UTILITY(U,$J,113,935,0)
;;=JELLY, APRICOT, DIET, IND^JELLY DIETAPRCTINDV4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^6419^.031
;;^UTILITY(U,$J,113,936,0)
;;=JELLY, BLACKBERRY, DIET IND^JELLYDIETBLCKBRYIND4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^6419^.031
;;^UTILITY(U,$J,113,937,0)
;;=JELLY, ASSORTED DIET, IND^JELLYDIETASSTDINDIV4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^6419^.031
;;^UTILITY(U,$J,113,938,0)
;;=JELLY, CHERRY, IND^JELLY CHERRY INDIV 2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1264^.031
;;^UTILITY(U,$J,113,939,0)
;;=JELLY, BLACKBERRY, IND^JELLY BLACKBERRY2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1264^.031
;;^UTILITY(U,$J,113,940,0)
;;=JELLY, APPLE, IND^JELLY APPLEINDIVCUP2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1264^.031
;;^UTILITY(U,$J,113,941,0)
;;=JELLY, GRAPE, IND^JELLY GRAPEINDIVCUP2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1264^.031
;;^UTILITY(U,$J,113,942,0)
;;=JELLY, STRAWBERRY, IND^JELLY STRAWINDIVCUP2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1264^.031
;;^UTILITY(U,$J,113,943,0)
;;=JELLY, CURRANT, IND^JELLY CURA INDIVCUP2C^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1264^.031
;;^UTILITY(U,$J,113,944,0)
;;=JELLY, MIXED FRUIT, IND^JELLY MIXED FRUIT 200^^^CS^CS-200^^1^^^^^6^^^EACH^200^^^^1264^.031
;;^UTILITY(U,$J,113,945,0)
;;=MILK, DRY, NONFAT, FOR BREAD MAKING^MILK DRYNONFATSPY50LB^8910-00-126-4023^1^SA^50# SA^^1^49.05^^^^2^^^LB^50^^^^138^1
;;^UTILITY(U,$J,113,946,0)
;;=PEACHES, CND, SLICED FREESTONE, SYRUP-PAK^PEAC SLCDFREESTO NO10^8915-01-094-7050^1^CN^#10 CN^6^1^3.86^^^^3^^^LB^6.5^^^^1750^1
;;^UTILITY(U,$J,113,947,0)
;;=SALAD DRESSING, ASST DIET, (ZERO), IND^SALAD DRESDIETINDIV4C^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^^.055
;;^UTILITY(U,$J,113,948,0)
;;=BEVERAGE, CARBONATED, GINGER ALE, IND^BEVE GINGER ALE 12 OZ^8960-00-958-0143^1^CN^12-OZ CN^24^1^.17^^^^6^^^EACH^1^^^^798^.807
;;^UTILITY(U,$J,113,949,0)
;;=ENSURE, VANILLA, BULK, POWDER^DIET PWDENSURVANL14OZ^^^CN^14-OZ CN^^1^^^^^5^^^LB^.88^^^^6029^1
;;^UTILITY(U,$J,113,950,0)
;;=MACARONI AND CHEESE, FROZEN^MAC & CHEESE, FROZEN^^^LB^LB^^1^^^^^1^^^LB^1^^^^1322^1
;;^UTILITY(U,$J,113,951,0)
;;=CAKE, COFFEE^COFFEE CAKE^^^CK^1# CK^^1^^^^^4^^^EACH^1^^^^882^.159
;;^UTILITY(U,$J,113,952,0)
;;=CHICKEN ALA KING, FROZEN^CHIX ALA KING^^^LB^LB^^1^^^^^1^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,953,0)
;;=POTATOES, LEACHED^LEACHED POTATOES^^^LB^LB^^1^^^^^3^^^LB^1^^^^1505^1
;;^UTILITY(U,$J,113,954,0)
;;=ICE CREAM, ANY FLAVOR, IND^ICE CREAM IND^^^DZ^DZ^^1^^^^^2^^^EACH^12^^^^60^.148
;;^UTILITY(U,$J,113,955,0)
;;=POLYRICH^POLYRICH 1QT^^^QT^QT BT^^1^^^^^6^^^GAL^.25^^^^66^8.466
;;^UTILITY(U,$J,113,956,0)
;;=CROUTONS^CROUTONS 10# BX^^^BX^10# BX^^1^^^^^4^^^LB^10^^^^^1
;;^UTILITY(U,$J,113,957,0)
;;=EGG SUBSTITUTE^EGG SUB QT CO^^^CO^QT CO^^1^^^^^1^^^GAL^.25^^^^130^8.466
;;^UTILITY(U,$J,113,958,0)
;;=POTATOES, PREPEELED, WHOLE^POTATOES, WHOLE^^^LB^LB^^1^^^^^3^^^LB^1^^^^1506^1
;;^UTILITY(U,$J,113,959,0)
;;=CLOVERLEAF ROLL^CLOVERLEAF RL 12S^^^PG^PG-12^^1^^^^^4^^^EACH^12^^^^1571^.057
;;^UTILITY(U,$J,113,960,0)
;;=ZUCCHINI, FROZEN^ZUCCHINI^^^LB^LB^^1^^^^^3^^^LB^1^^^^2100^1
;;^UTILITY(U,$J,113,961,0)
;;=POTATOES, ESCALLOPED, DEHYDRATED^POT ESCALL 6S^^^CS^CS-6^^1^^^^^3^^^EACH^6^^^^2920^.302
;;^UTILITY(U,$J,113,962,0)
;;=GRAPES, CND, SEEDLESS, THOMPSON SYRUP-PAK^GRAP SEEDLESSLT NO 10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^1699^1
;;^UTILITY(U,$J,113,963,0)
;;=BACON, RAW, FRZ^BACON^^^LB^LB^^1^^^^^6^^^LB^1^^^^212^1
;;^UTILITY(U,$J,113,964,0)
;;=KOOLADE^KOOLADE 24S^^^CS^CS-24^^1^^^^^6^^^EACH^24^^^^2265^.529
;;^UTILITY(U,$J,113,965,0)
;;=LEMONADE^LEMONADE 24S^^^CS^CS-24^^1^^^^^6^^^EACH^24^^^^2234^.529
;;^UTILITY(U,$J,113,966,0)
;;=RADISHES^RADISHES^^^LB^LB^^1^^^^^3^^^LB^1^^^^1544^1
;;^UTILITY(U,$J,113,967,0)
;;=CEREAL, CREAM OF RICE, QUIK-COOK, LO NA^CERE RICE DIET 16 OZ^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^1161^1
;;^UTILITY(U,$J,113,968,0)
;;=CRANBERRIES, FRESH^CRANBERRIES FRSH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1659^1
;;^UTILITY(U,$J,113,969,0)
;;=ORANGE, RIND^ORANGE RIND 1#JR^^^JR^1# JR^^1^^^^^6^^^LB^1^^^^2330^1
;;^UTILITY(U,$J,113,970,0)
;;=PEACH^PEACH^^^LB^LB^^1^^1^0^^3^^^EACH^3^^^^1746^.192
;;^UTILITY(U,$J,113,971,0)
;;=PEAS, FRESH^PEAS,FRESH^^^LB^LB^^1^^1^7^^3^^^LB^1^^^^2049^1