FHINI0HU ; ; 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,812,0)
;;=SHERBET, LIME, IND^SHERBET, LIME, IND^^^DZ^DZ^^1^^^^^2^^^EACH^12^^^^65^.214
;;^UTILITY(U,$J,113,813,0)
;;=BREAD, LO NA, SLICED^BREAD, LO NA, SLICED^^^LF^1# LF^^1^^^^^4^^^EACH^16^^^^6502^.057
;;^UTILITY(U,$J,113,814,0)
;;=MARJORAM^MARJORAM 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^281^1
;;^UTILITY(U,$J,113,815,0)
;;=MILK, LOWFAT, IND^MILK, LOWFAT, IND^^^CT^8-OZ CT^^1^^^^^2^^^EACH^1^^^^76^.538
;;^UTILITY(U,$J,113,816,0)
;;=MILK, WHOLE, IND^MILK, WHOLE, IND^^^CT^8-OZ CT^^1^^^^^2^^^EACH^1^^^^74^.538
;;^UTILITY(U,$J,113,817,0)
;;=ORANGES, NAVAL^ORANGES, NAVAL^^^LB^LB^^1^^^^^3^^^EACH^3.5^^^^1728^.309
;;^UTILITY(U,$J,113,818,0)
;;=SHERBET, ORANGE, IND^SHERBET, ORANGE, IND^^^DZ^DZ^^1^^^^^2^^^EACH^12^^^^65^.214
;;^UTILITY(U,$J,113,819,0)
;;=ORANGE SECTIONS^ORANGE SECT 1GAL^^^GL^GL JR^^1^^^^^3^^^GAL^1^^^^1726^6.349
;;^UTILITY(U,$J,113,820,0)
;;=PARSLEY, FRESH^PARSLEY, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^2048^1
;;^UTILITY(U,$J,113,821,0)
;;=PIE, PEACH, FZN^PIE, PEACH, FZN^^^CS^CS-6^^1^^^^^4^^^EACH^6^^^^1460^.207
;;^UTILITY(U,$J,113,822,0)
;;=PEARS, FRESH^PEARS, FRESH^^^LB^LB^^1^^^^^3^^^EACH^3^^^^1757^.366
;;^UTILITY(U,$J,113,823,0)
;;=PIE, PINAPPLE, FZN^PIE, PINAPPLE, FZN^^^CS^CS-6^^1^^^^^4^^^EACH^6^^^^1462^.26
;;^UTILITY(U,$J,113,824,0)
;;=PORK, BOSTON BUTT, BONELESS^PORK BSTN BUTT BNLESS^^^LB^LB^^1^^^^^1^^^LB^1^^^^195^1
;;^UTILITY(U,$J,113,825,0)
;;=POTATOES, DEHYD QUARTERED^POTA DEHYD QUART^^^LB^LB^^1^^^^^3^^^LB^1^^^^^1
;;^UTILITY(U,$J,113,826,0)
;;=POULTRY SEASONING^POULTRY SEASN 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^292^1
;;^UTILITY(U,$J,113,827,0)
;;=CAKE, POUND, FZN^CAKE, POUND, FZN^^^CK^2# CK^^1^^^^^4^^^EACH^16^^^^871^.141
;;^UTILITY(U,$J,113,828,0)
;;=ONIONS, DEHYD QUARTERED^ONIONS DEHYD QUART^^^LB^LB^^1^^^^^3^^^LB^1^^^^1384^1
;;^UTILITY(U,$J,113,829,0)
;;=ROMAINE^ROMAINE^^^LB^LB^^1^^^^^3^^^LB^1^^^^1308^1
;;^UTILITY(U,$J,113,830,0)
;;=BREAD, RYE, SLICED^BREAD, RYE, SLICED^^^LF^1# LF^^1^^^^^4^^^EACH^16^^^^818^.055
;;^UTILITY(U,$J,113,831,0)
;;=SALAMI^SALAMI^^^LB^LB^^1^^^^^1^^^LB^1^^^^653^1
;;^UTILITY(U,$J,113,832,0)
;;=SAUSAGE PATTIES, RAW FZN^SAUSAGE PAT RAW FZN^^^LB^LB^^1^^^^^1^^^LB^1^^^^650^1
;;^UTILITY(U,$J,113,833,0)
;;=CHICKEN, PULLED, UNSALTED^CHICK PULLED UNSALT^^^LB^LB^^1^^^^^1^^^LB^1^^^^404^1
;;^UTILITY(U,$J,113,834,0)
;;=TURKEY BREAST, UNSALTED^TURKEY BRST UNSALT^^^LB^LB^^1^^^^^1^^^LB^1^^^^487^1
;;^UTILITY(U,$J,113,835,0)
;;=SOUR CREAM^SOUR CREAM 1PT BT^^^PT^PT BT^^1^^^^^6^^^GAL^.12^^^^56^8.113
;;^UTILITY(U,$J,113,836,0)
;;=CAKE, SPONGE^CAKE,SPONGE^^^CK^2.5# CK^^1^^^^^4^^^EACH^36^^^^872^.146
;;^UTILITY(U,$J,113,837,0)
;;=ICE CREAM, STRAWBERRY, IND^ICE CREAM, STRAW IND^^^DZ^DZ^^1^^^^^2^^^EACH^12^^^^60^.148
;;^UTILITY(U,$J,113,838,0)
;;=COOKIES, SUGAR, ARCHWAY^SUGAR COOKIES 1#^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^1022^1
;;^UTILITY(U,$J,113,839,0)
;;=POTATOES, SWEET, FRESH^POTA SWT FRSH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1909^1
;;^UTILITY(U,$J,113,840,0)
;;=TANGERINES, FRESH^TANGERINES, FRESH^^^LB^LB^^1^^^^^3^^^EACH^4^^^^1735^.185
;;^UTILITY(U,$J,113,841,0)
;;=TOMATOES, FRESH^TOMATOES, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1929^1
;;^UTILITY(U,$J,113,842,0)
;;=TRAUMA CAL^TRAUMA CAL 8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6001^.551
;;^UTILITY(U,$J,113,843,0)
;;=ICE CREAM, VANILLA, IND^ICE CREAM, VANIL IND^^^DZ^DZ^^1^^^^^2^^^EACH^12^^^^60^.148
;;^UTILITY(U,$J,113,844,0)
;;=VINEGAR PKT, IND^VINEGAR PKT, IND^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^1986^.033
;;^UTILITY(U,$J,113,845,0)
;;=ROLLS, WHITE HARD, FRESH^ROLLS WHITE HRD FRSH^^^PG^PG-12^^1^^^^^4^^^EACH^12^^^^1567^.088
;;^UTILITY(U,$J,113,846,0)
;;=FOOD COLORING, YELLOW^FOOD COLOR YELLOW 1QT^^^BT^QT BT^^1^^^^^6^^^GAL^.25^^^^^8
;;^UTILITY(U,$J,113,847,0)
;;=WATER, TAP^WATER, TAP^^^GL^GL BT^^1^^^^^6^^^GAL^1^^N^^2021^8.36
;;^UTILITY(U,$J,113,848,0)
;;=LEMON JUICE^LEMON JUICE 1QT^^^BT^QT BT^^1^^^^^3^^^GAL^.25^^^^1708^8.607
;;^UTILITY(U,$J,113,849,0)
;;=CLOVE, GRD^CLOVE GRD 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^269^1
;;^UTILITY(U,$J,113,850,0)
;;=BAY LEAVES, WHOLE^BAY LEAVES WHL 1 LB^^^CN^1# CN^^1^^^^^6^^^EACH^30^^^^262^0
;;^UTILITY(U,$J,113,851,0)
;;=THYME, GROUND^THYME GRD 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^300^1
;;^UTILITY(U,$J,113,852,0)
;;=BASIL, DRIED^BASIL DRIED 1LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^261^1
;;^UTILITY(U,$J,113,853,0)
;;=PORK SLICES^PORK SLICES^^^LB^LB^^1^^^^^1^^^EACH^3^^^^199^.265
;;^UTILITY(U,$J,113,854,0)
;;=LO PRO PASTA^LO PRO PASTA 1#^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^6494^1
;;^UTILITY(U,$J,113,855,0)
;;=POTATOES, PREPEELED, QUARTERED^POTATOES PEELED QTR^^^LB^LB^^1^^^^^3^^^LB^1^^^^1506^1
FHINI0HU ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(113)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,113,812,0)
+2 ;;=SHERBET, LIME, IND^SHERBET, LIME, IND^^^DZ^DZ^^1^^^^^2^^^EACH^12^^^^65^.214
+3 ;;^UTILITY(U,$J,113,813,0)
+4 ;;=BREAD, LO NA, SLICED^BREAD, LO NA, SLICED^^^LF^1# LF^^1^^^^^4^^^EACH^16^^^^6502^.057
+5 ;;^UTILITY(U,$J,113,814,0)
+6 ;;=MARJORAM^MARJORAM 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^281^1
+7 ;;^UTILITY(U,$J,113,815,0)
+8 ;;=MILK, LOWFAT, IND^MILK, LOWFAT, IND^^^CT^8-OZ CT^^1^^^^^2^^^EACH^1^^^^76^.538
+9 ;;^UTILITY(U,$J,113,816,0)
+10 ;;=MILK, WHOLE, IND^MILK, WHOLE, IND^^^CT^8-OZ CT^^1^^^^^2^^^EACH^1^^^^74^.538
+11 ;;^UTILITY(U,$J,113,817,0)
+12 ;;=ORANGES, NAVAL^ORANGES, NAVAL^^^LB^LB^^1^^^^^3^^^EACH^3.5^^^^1728^.309
+13 ;;^UTILITY(U,$J,113,818,0)
+14 ;;=SHERBET, ORANGE, IND^SHERBET, ORANGE, IND^^^DZ^DZ^^1^^^^^2^^^EACH^12^^^^65^.214
+15 ;;^UTILITY(U,$J,113,819,0)
+16 ;;=ORANGE SECTIONS^ORANGE SECT 1GAL^^^GL^GL JR^^1^^^^^3^^^GAL^1^^^^1726^6.349
+17 ;;^UTILITY(U,$J,113,820,0)
+18 ;;=PARSLEY, FRESH^PARSLEY, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^2048^1
+19 ;;^UTILITY(U,$J,113,821,0)
+20 ;;=PIE, PEACH, FZN^PIE, PEACH, FZN^^^CS^CS-6^^1^^^^^4^^^EACH^6^^^^1460^.207
+21 ;;^UTILITY(U,$J,113,822,0)
+22 ;;=PEARS, FRESH^PEARS, FRESH^^^LB^LB^^1^^^^^3^^^EACH^3^^^^1757^.366
+23 ;;^UTILITY(U,$J,113,823,0)
+24 ;;=PIE, PINAPPLE, FZN^PIE, PINAPPLE, FZN^^^CS^CS-6^^1^^^^^4^^^EACH^6^^^^1462^.26
+25 ;;^UTILITY(U,$J,113,824,0)
+26 ;;=PORK, BOSTON BUTT, BONELESS^PORK BSTN BUTT BNLESS^^^LB^LB^^1^^^^^1^^^LB^1^^^^195^1
+27 ;;^UTILITY(U,$J,113,825,0)
+28 ;;=POTATOES, DEHYD QUARTERED^POTA DEHYD QUART^^^LB^LB^^1^^^^^3^^^LB^1^^^^^1
+29 ;;^UTILITY(U,$J,113,826,0)
+30 ;;=POULTRY SEASONING^POULTRY SEASN 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^292^1
+31 ;;^UTILITY(U,$J,113,827,0)
+32 ;;=CAKE, POUND, FZN^CAKE, POUND, FZN^^^CK^2# CK^^1^^^^^4^^^EACH^16^^^^871^.141
+33 ;;^UTILITY(U,$J,113,828,0)
+34 ;;=ONIONS, DEHYD QUARTERED^ONIONS DEHYD QUART^^^LB^LB^^1^^^^^3^^^LB^1^^^^1384^1
+35 ;;^UTILITY(U,$J,113,829,0)
+36 ;;=ROMAINE^ROMAINE^^^LB^LB^^1^^^^^3^^^LB^1^^^^1308^1
+37 ;;^UTILITY(U,$J,113,830,0)
+38 ;;=BREAD, RYE, SLICED^BREAD, RYE, SLICED^^^LF^1# LF^^1^^^^^4^^^EACH^16^^^^818^.055
+39 ;;^UTILITY(U,$J,113,831,0)
+40 ;;=SALAMI^SALAMI^^^LB^LB^^1^^^^^1^^^LB^1^^^^653^1
+41 ;;^UTILITY(U,$J,113,832,0)
+42 ;;=SAUSAGE PATTIES, RAW FZN^SAUSAGE PAT RAW FZN^^^LB^LB^^1^^^^^1^^^LB^1^^^^650^1
+43 ;;^UTILITY(U,$J,113,833,0)
+44 ;;=CHICKEN, PULLED, UNSALTED^CHICK PULLED UNSALT^^^LB^LB^^1^^^^^1^^^LB^1^^^^404^1
+45 ;;^UTILITY(U,$J,113,834,0)
+46 ;;=TURKEY BREAST, UNSALTED^TURKEY BRST UNSALT^^^LB^LB^^1^^^^^1^^^LB^1^^^^487^1
+47 ;;^UTILITY(U,$J,113,835,0)
+48 ;;=SOUR CREAM^SOUR CREAM 1PT BT^^^PT^PT BT^^1^^^^^6^^^GAL^.12^^^^56^8.113
+49 ;;^UTILITY(U,$J,113,836,0)
+50 ;;=CAKE, SPONGE^CAKE,SPONGE^^^CK^2.5# CK^^1^^^^^4^^^EACH^36^^^^872^.146
+51 ;;^UTILITY(U,$J,113,837,0)
+52 ;;=ICE CREAM, STRAWBERRY, IND^ICE CREAM, STRAW IND^^^DZ^DZ^^1^^^^^2^^^EACH^12^^^^60^.148
+53 ;;^UTILITY(U,$J,113,838,0)
+54 ;;=COOKIES, SUGAR, ARCHWAY^SUGAR COOKIES 1#^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^1022^1
+55 ;;^UTILITY(U,$J,113,839,0)
+56 ;;=POTATOES, SWEET, FRESH^POTA SWT FRSH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1909^1
+57 ;;^UTILITY(U,$J,113,840,0)
+58 ;;=TANGERINES, FRESH^TANGERINES, FRESH^^^LB^LB^^1^^^^^3^^^EACH^4^^^^1735^.185
+59 ;;^UTILITY(U,$J,113,841,0)
+60 ;;=TOMATOES, FRESH^TOMATOES, FRESH^^^LB^LB^^1^^^^^3^^^LB^1^^^^1929^1
+61 ;;^UTILITY(U,$J,113,842,0)
+62 ;;=TRAUMA CAL^TRAUMA CAL 8OZ^^^CN^8-OZ CN^^1^^^^^5^^^EACH^1^^^^6001^.551
+63 ;;^UTILITY(U,$J,113,843,0)
+64 ;;=ICE CREAM, VANILLA, IND^ICE CREAM, VANIL IND^^^DZ^DZ^^1^^^^^2^^^EACH^12^^^^60^.148
+65 ;;^UTILITY(U,$J,113,844,0)
+66 ;;=VINEGAR PKT, IND^VINEGAR PKT, IND^^^CS^CS-400^^1^^^^^6^^^EACH^400^^^^1986^.033
+67 ;;^UTILITY(U,$J,113,845,0)
+68 ;;=ROLLS, WHITE HARD, FRESH^ROLLS WHITE HRD FRSH^^^PG^PG-12^^1^^^^^4^^^EACH^12^^^^1567^.088
+69 ;;^UTILITY(U,$J,113,846,0)
+70 ;;=FOOD COLORING, YELLOW^FOOD COLOR YELLOW 1QT^^^BT^QT BT^^1^^^^^6^^^GAL^.25^^^^^8
+71 ;;^UTILITY(U,$J,113,847,0)
+72 ;;=WATER, TAP^WATER, TAP^^^GL^GL BT^^1^^^^^6^^^GAL^1^^N^^2021^8.36
+73 ;;^UTILITY(U,$J,113,848,0)
+74 ;;=LEMON JUICE^LEMON JUICE 1QT^^^BT^QT BT^^1^^^^^3^^^GAL^.25^^^^1708^8.607
+75 ;;^UTILITY(U,$J,113,849,0)
+76 ;;=CLOVE, GRD^CLOVE GRD 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^269^1
+77 ;;^UTILITY(U,$J,113,850,0)
+78 ;;=BAY LEAVES, WHOLE^BAY LEAVES WHL 1 LB^^^CN^1# CN^^1^^^^^6^^^EACH^30^^^^262^0
+79 ;;^UTILITY(U,$J,113,851,0)
+80 ;;=THYME, GROUND^THYME GRD 1#CN^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^300^1
+81 ;;^UTILITY(U,$J,113,852,0)
+82 ;;=BASIL, DRIED^BASIL DRIED 1LB^^^CN^1# CN^^1^^^^^6^^^LB^1^^^^261^1
+83 ;;^UTILITY(U,$J,113,853,0)
+84 ;;=PORK SLICES^PORK SLICES^^^LB^LB^^1^^^^^1^^^EACH^3^^^^199^.265
+85 ;;^UTILITY(U,$J,113,854,0)
+86 ;;=LO PRO PASTA^LO PRO PASTA 1#^^^PG^1# PG^^1^^^^^4^^^LB^1^^^^6494^1
+87 ;;^UTILITY(U,$J,113,855,0)
+88 ;;=POTATOES, PREPEELED, QUARTERED^POTATOES PEELED QTR^^^LB^LB^^1^^^^^3^^^LB^1^^^^1506^1
