©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
FHINI0HD ; ; 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,183,0)
;;=PEANUT BUTTER^PEANUTBUTTER MDM 28OZ^8930-01-036-0412^1^JR^28-OZ JR^12^1^1.88^^^^6^^^LB^1.75^^^^1409^1
;;^UTILITY(U,$J,113,184,0)
;;=PEANUTS, SPANISH, SALTED^PEAN SHELDSPANISH 4LB^^^CN^4# CN^^1^^^^^6^^^LB^4^^^^2285^1
;;^UTILITY(U,$J,113,185,0)
;;=PEARS, CND, HALVES, SYRUP-PAK^PEAR HVD LTSYRUP NO10^8915-01-095-1814^1^CN^#10 CN^6^1^2.76^^^^3^^^LB^6.5^^^^1761^1
;;^UTILITY(U,$J,113,186,0)
;;=PEARS, CND, HALVES, DIET^PEARS WTR PKDIETNO303^8940-00-851-5303^1^CN^#303 CN^24^1^.60^^^^3^^^LB^1^^^^1758^1
;;^UTILITY(U,$J,113,187,0)
;;=PEAS, BLACK-EYE, CND^PEAS BLKEYE NO10^8915-01-237-3205^1^CN^#10 CN^6^1^2.14^^^^3^^^LB^6.5^^^^1064^1
;;^UTILITY(U,$J,113,188,0)
;;=PEAS, CND^PEAS SWTWHOLEGRDBNO10^8915-00-902-2444^1^CN^#10 CN^6^1^1.03^^^^3^^^LB^6.5^^^^1416^1
;;^UTILITY(U,$J,113,189,0)
;;=PEAS, CHICK, CND, GARBANZO^PEAS CHICK GRD A NO10^^^CN^#10 CN^^1^^^^^3^^^LB^6.5^^^^2276^1
;;^UTILITY(U,$J,113,190,0)
;;=PECANS, UNSALTED, PIECES^PECA SHLD UNSALTED3LB^^^CN^3# CN^^1^^^^^6^^^LB^3^^^^2864^1
;;^UTILITY(U,$J,113,191,0)
;;=PEPPER SAUCE, TABASCO^PEPPER SAUCE LQD 12OZ^^^BT^12-OZ BT^^1^^^^^6^^^GAL^.094^^^^1940^8.2
;;^UTILITY(U,$J,113,192,0)
;;=PEPPER, BLACK, GROUND^PEPPER BLACK GROD 1LB^8950-00-127-8064^1^CN^1# CN^12^1^3.32^^^^6^^^LB^1^^^^288^1
;;^UTILITY(U,$J,113,193,0)
;;=PEPPERS, SWEET, CND, DICED, RED BELL^PEPP RED DICED NO 303^^^CN^#303 CN^^1^^^^^3^^^LB^1^^^^2053^1
;;^UTILITY(U,$J,113,194,0)
;;=PICKLES, CUCUMBER, SWEET, WHOLE^PICKLE CUC SWTWHLNO10^^^CN^#10 CN^^1^^^^^6^^^LB^6.5^^^^1441^1
;;^UTILITY(U,$J,113,195,0)
;;=PICKLES, CUCUMBER, DILL, SLICES^PICK CUCDILLCUT1GAL^^^JR^GL JR^^1^^^^^6^^^GAL^1^^^^1438^7.47
;;^UTILITY(U,$J,113,196,0)
;;=PIMIENTOS, CND, DICED^PIMI DCDORSLCDNO.21/2^8915-01-126-7732^1^CN^#2-1/2 CN^24^1^1.72^^^^3^^^LB^1.81^^^^1484^1
;;^UTILITY(U,$J,113,197,0)
;;=PIMIENTOS, CND, SLICED^PIMI CNND SLICED 7 OZ^^^CN^7-OZ CN^^1^^^^^3^^^LB^.44^^^^1484^1
;;^UTILITY(U,$J,113,198,0)
;;=PIMIENTOS, CND, WHOLE^PIMI WHL APPROX 6.50Z^^^CN^6.5-OZ CN^^1^^^^^3^^^LB^.41^^^^1484^1
;;^UTILITY(U,$J,113,199,0)
;;=PINEAPPLE, CND, CHUNKS, DIET^PINE CHUNKS DIET 20OZ^^^CN^20-OZ CN^^1^^^^^3^^^LB^1.25^^^^1770^1
;;^UTILITY(U,$J,113,200,0)
;;=PINEAPPLE, CND, CRUSHED, SYRUP-PAK^PINE CNNDCRSHNAT NO10^8915-01-024-2956^1^CN^#10 CN^6^1^3.37^^^^3^^^LB^6.5^^^^1773^1
;;^UTILITY(U,$J,113,201,0)
;;=PINEAPPLE, CND, CRUSHED, DIET^PINE CRSH NATSYRP NO2^^^CN^#2 CN^^1^^^^^3^^^LB^1.25^^^^1770^1
;;^UTILITY(U,$J,113,202,0)
;;=PINEAPPLE, CND, SLICED, DIET^PINEAPPLE SLDMEDSZNO2^8915-01-026-1982^1^CN^#2 CN^24^1^.72^^^^3^^^LB^1.25^^^^1770^1
;;^UTILITY(U,$J,113,203,0)
;;=PINEAPPLE, CND, TIDBITS, SYRUP-PAK^PINEAPPLE TIDBITNAT10^8915-01-024-2957^1^CN^#10 CN^6^1^3.12^^^^3^^^LB^6.5^^^^1773^1
;;^UTILITY(U,$J,113,204,0)
;;=PLUMS, CND, PURPLE, SYRUP-PAK^PLUM PUR LTSYRUP NO10^8915-01-095-1813^1^CN^#10 CN^6^1^1.78^^^^3^^^LB^6.5^^^^1783^1
;;^UTILITY(U,$J,113,205,0)
;;=PLUMS, CND, PURPLE, DIET^PLUMS WTR PKDIETNO303^8940-00-851-5304^1^CN^#303 CN^24^1^.33^^^^3^^^LB^1^^^^1780^1
;;^UTILITY(U,$J,113,206,0)
;;=POTATO SALAD, CND, GERMAN STYLE^POTATO SALDGERMAN52OZ^^^CN^52-OZ CN^^1^^^^^3^^^LB^3.25^^^^1531^1
;;^UTILITY(U,$J,113,207,0)
;;=POTATO SALAD, CND, MAYONNAISE STYLE^POTATO SALAD MAYO50OZ^^^CN^50-OZ CN^^1^^^^^3^^^LB^3.12^^^^1531^1
;;^UTILITY(U,$J,113,208,0)
;;=POTATOES, AU GRATIN, DEHYD^POTA AUGRATIN 2-1/4LB^^^CO^2-1/4# CO^^1^^^^^3^^^LB^2.25^^^^2908^1
;;^UTILITY(U,$J,113,209,0)
;;=POTATOES, SWEET, CND^POTA SWEET WHLLT NO10^8915-01-095-2392^1^CN^#10 CN^6^1^2.77^^^^3^^^LB^6.5^^^^1914^1
;;^UTILITY(U,$J,113,210,0)
;;=POTATOES, WHITE, CND, WHOLE^POTA WHT 90/110 NO 10^8915-01-196-7644^1^CN^#10 CN^6^1^2.24^^^^3^^^LB^6.5^^^^1516^1
;;^UTILITY(U,$J,113,211,0)
;;=POTATOES, WHITE, DEHYD, DICED^POTA WHTDEHYDDICE21/4^^^BG^5# BG^^1^^^^^3^^^LB^5^^^^^1
;;^UTILITY(U,$J,113,212,0)
;;=POTATOES, WHITE, INSTANT, MASHED^POTA WHTDEHYDGRAN51/2^8915-00-143-3285^1^CN^#10 CN^6^1^2.49^^^^3^^^LB^45^^^^2913^1
;;^UTILITY(U,$J,113,213,0)
;;=POTATOES, WHITE, FROZEN, HASH BROWN^POTA WHT FZN DICED^^^LB^LB^^1^^^^^3^^^LB^1^^^^1524^1
;;^UTILITY(U,$J,113,214,0)
;;=POTATOES, WHITE, FROZEN, FRENCH STYLE^POTA WHTFZN FR FRIES^^^LB^LB^^1^^^^^3^^^LB^1^^^^1525^1
;;^UTILITY(U,$J,113,215,0)
;;=PRUNES, DRIED, WHOLE, W/PITS^PRUNES DRD MOISTPK6LB^8915-00-494-8116^1^CN^#10 CN^6^1^4.79^^^^3^^^LB^6.5^^^^1787^1
;;^UTILITY(U,$J,113,216,0)
;;=PUDDING, CND, BUTTERSCOTCH^PUDD BSCTHRDYSRV NO10^8940-00-407-0391^1^CN^#10 CN^6^1^2.30^^^^6^^^LB^6.5^^^^6616^1
;;^UTILITY(U,$J,113,217,0)
;;=PUDDING, CND, CHOCOLATE^PUDD CHOC RDYSRV NO10^8940-00-407-0388^1^CN^#10 CN^6^1^2.58^^^^6^^^LB^6.5^^^^6617^1