FHINI0D4 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(112) 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,112,8351,1)
;;=10.714^14.286^41.071^339.286^^^^^^^^196.429^562.5
;;^UTILITY(U,$J,112,8351,2)
;;=^^^^^^^^8.929
;;^UTILITY(U,$J,112,8351,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8352,0)
;;=TOAST,WHITE W/MARGARINE,WENDY'S^BC-01625^2-slices^69
;;^UTILITY(U,$J,112,8352,1)
;;=8.696^13.043^50.725^362.319^^^^^^^^115.942^594.203
;;^UTILITY(U,$J,112,8352,2)
;;=^^^^^^^^28.986
;;^UTILITY(U,$J,112,8352,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8353,0)
;;=TORTELLINI,CHEESE W/SPAGHETTI SCE,WENDY'S^BC-01626^2-oz.^56
;;^UTILITY(U,$J,112,8353,1)
;;=3.571^.714^21.429^107.143^^^^^^^^196.429^500
;;^UTILITY(U,$J,112,8353,2)
;;=^^^^^^^^8.929^.536^^.179
;;^UTILITY(U,$J,112,8353,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8354,0)
;;=TORTILLA,FLOUR,WENDY'S^BC-01627^tortilla^37
;;^UTILITY(U,$J,112,8354,1)
;;=8.108^8.108^51.351^297.297^^^^^^^^^594.595
;;^UTILITY(U,$J,112,8354,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8355,0)
;;=TUNA SALAD,WENDY'S^BC-01628^2-oz.^56
;;^UTILITY(U,$J,112,8355,1)
;;=14.286^10.714^7.143^178.571^^^^^^^^160.714^517.857
;;^UTILITY(U,$J,112,8355,2)
;;=^^^^^^^^0^1.607^^5.714
;;^UTILITY(U,$J,112,8355,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8356,0)
;;=VEGETABLE OILS,CANOLA,WESSON^BC-01629^tbsp.^14
;;^UTILITY(U,$J,112,8356,1)
;;=0^100^0^857.143^^^^0^0^^^0^0^^^^^^0^0
;;^UTILITY(U,$J,112,8356,2)
;;=0^0^^^^^^^0^28.571^^7.143^0^^^^0
;;^UTILITY(U,$J,112,8356,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8357,0)
;;=VEGETABLE OILS,CORN,CRISCO^BC-1630^tbsp.^14
;;^UTILITY(U,$J,112,8357,1)
;;=0^100^0^857.143^0^^^^^^^^0
;;^UTILITY(U,$J,112,8357,2)
;;=^^^^^^^^0^14.286^28.571^57.143^^^^^0
;;^UTILITY(U,$J,112,8357,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8358,0)
;;=VEGETABLE OILS,CORN,FLEISCHMANN'S^BC-01631^tbsp.^14
;;^UTILITY(U,$J,112,8358,1)
;;=0^100^0^857.143^^^^^^^^0^0
;;^UTILITY(U,$J,112,8358,2)
;;=^^^^^^^^0^14.286^^57.143
;;^UTILITY(U,$J,112,8358,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8359,0)
;;=VEGETABLE OILS,CORN,MAZOLA^BC-01632^tbsp.^14
;;^UTILITY(U,$J,112,8359,1)
;;=0^100^0^892.857^0^^^^^^^^0
;;^UTILITY(U,$J,112,8359,2)
;;=^^^^^^^^0^12.857^25.714^60
;;^UTILITY(U,$J,112,8359,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8360,0)
;;=VEGETABLE OILS,CORN,WESSON^BC-01633^tbsp.^14
;;^UTILITY(U,$J,112,8360,1)
;;=0^100^0^857.143^^^^0^0^^^0^0^^^^^^0^0
;;^UTILITY(U,$J,112,8360,2)
;;=0^0^^^^^^^0^13.571^^57.143^0^^^^0
;;^UTILITY(U,$J,112,8360,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8361,0)
;;=VEGETABLE OILS,CRISCO^BC-01634^tbsp.^14
;;^UTILITY(U,$J,112,8361,1)
;;=0^100^0^885.714^0
;;^UTILITY(U,$J,112,8361,2)
;;=^^^^^^^^0^12.857^^52.143^^^^^0
;;^UTILITY(U,$J,112,8361,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8362,0)
;;=VEGETABLE OILS,OLIVE,WESSON^BC-01635^tbsp.^14
;;^UTILITY(U,$J,112,8362,1)
;;=0^100^0^857.143^^^^0^0^^^0^0^^^^^^0^0
;;^UTILITY(U,$J,112,8362,2)
;;=0^0^^^^^^^0^7.143^^14.286^0^^^^0
;;^UTILITY(U,$J,112,8362,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8363,0)
;;=VEGETABLE OILS,POPPING & TOPPING ORVILLE REDENBACHER'S^BC-01636^tbsp.^14
;;^UTILITY(U,$J,112,8363,1)
;;=0^100^0^857.143^^^^^^^^0^0
;;^UTILITY(U,$J,112,8363,2)
;;=^^^^^^^^0^14.286^^57.143^^^^^0
;;^UTILITY(U,$J,112,8363,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8364,0)
;;=VEGETABLE OILS,PURITAN^BC-01637^tbsp.^14
;;^UTILITY(U,$J,112,8364,1)
;;=0^100^0^885.714^0^^^^^^^^0
;;^UTILITY(U,$J,112,8364,2)
;;=^^^^^^^^0^12.143^^67.857^^^^^0
;;^UTILITY(U,$J,112,8364,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8365,0)
;;=VEGETABLE OILS,SUNFLOWER,WESSON^BC-01638^tbsp.^14
;;^UTILITY(U,$J,112,8365,1)
;;=0^100^0^857.143^^^^0^^^^0^0^^^^^^0^0
;;^UTILITY(U,$J,112,8365,2)
;;=0^0^^^^^^^0^12.143^^69.286^0^^^^^0
;;^UTILITY(U,$J,112,8365,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8366,0)
;;=VEGETABLE OILS,WESSON^BC-01639^tbsp.^14
;;^UTILITY(U,$J,112,8366,1)
;;=0^100^0^857.143^^^^0^0^^^0^0^^^^^^0^0
;;^UTILITY(U,$J,112,8366,2)
;;=0^0^^^^^^^0^14.286^^57.143^0^^^^0
;;^UTILITY(U,$J,112,8366,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0D4 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(112)
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,112,8351,1)
+2 ;;=10.714^14.286^41.071^339.286^^^^^^^^196.429^562.5
+3 ;;^UTILITY(U,$J,112,8351,2)
+4 ;;=^^^^^^^^8.929
+5 ;;^UTILITY(U,$J,112,8351,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8352,0)
+8 ;;=TOAST,WHITE W/MARGARINE,WENDY'S^BC-01625^2-slices^69
+9 ;;^UTILITY(U,$J,112,8352,1)
+10 ;;=8.696^13.043^50.725^362.319^^^^^^^^115.942^594.203
+11 ;;^UTILITY(U,$J,112,8352,2)
+12 ;;=^^^^^^^^28.986
+13 ;;^UTILITY(U,$J,112,8352,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8353,0)
+16 ;;=TORTELLINI,CHEESE W/SPAGHETTI SCE,WENDY'S^BC-01626^2-oz.^56
+17 ;;^UTILITY(U,$J,112,8353,1)
+18 ;;=3.571^.714^21.429^107.143^^^^^^^^196.429^500
+19 ;;^UTILITY(U,$J,112,8353,2)
+20 ;;=^^^^^^^^8.929^.536^^.179
+21 ;;^UTILITY(U,$J,112,8353,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8354,0)
+24 ;;=TORTILLA,FLOUR,WENDY'S^BC-01627^tortilla^37
+25 ;;^UTILITY(U,$J,112,8354,1)
+26 ;;=8.108^8.108^51.351^297.297^^^^^^^^^594.595
+27 ;;^UTILITY(U,$J,112,8354,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8355,0)
+30 ;;=TUNA SALAD,WENDY'S^BC-01628^2-oz.^56
+31 ;;^UTILITY(U,$J,112,8355,1)
+32 ;;=14.286^10.714^7.143^178.571^^^^^^^^160.714^517.857
+33 ;;^UTILITY(U,$J,112,8355,2)
+34 ;;=^^^^^^^^0^1.607^^5.714
+35 ;;^UTILITY(U,$J,112,8355,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8356,0)
+38 ;;=VEGETABLE OILS,CANOLA,WESSON^BC-01629^tbsp.^14
+39 ;;^UTILITY(U,$J,112,8356,1)
+40 ;;=0^100^0^857.143^^^^0^0^^^0^0^^^^^^0^0
+41 ;;^UTILITY(U,$J,112,8356,2)
+42 ;;=0^0^^^^^^^0^28.571^^7.143^0^^^^0
+43 ;;^UTILITY(U,$J,112,8356,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8357,0)
+46 ;;=VEGETABLE OILS,CORN,CRISCO^BC-1630^tbsp.^14
+47 ;;^UTILITY(U,$J,112,8357,1)
+48 ;;=0^100^0^857.143^0^^^^^^^^0
+49 ;;^UTILITY(U,$J,112,8357,2)
+50 ;;=^^^^^^^^0^14.286^28.571^57.143^^^^^0
+51 ;;^UTILITY(U,$J,112,8357,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,8358,0)
+54 ;;=VEGETABLE OILS,CORN,FLEISCHMANN'S^BC-01631^tbsp.^14
+55 ;;^UTILITY(U,$J,112,8358,1)
+56 ;;=0^100^0^857.143^^^^^^^^0^0
+57 ;;^UTILITY(U,$J,112,8358,2)
+58 ;;=^^^^^^^^0^14.286^^57.143
+59 ;;^UTILITY(U,$J,112,8358,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,8359,0)
+62 ;;=VEGETABLE OILS,CORN,MAZOLA^BC-01632^tbsp.^14
+63 ;;^UTILITY(U,$J,112,8359,1)
+64 ;;=0^100^0^892.857^0^^^^^^^^0
+65 ;;^UTILITY(U,$J,112,8359,2)
+66 ;;=^^^^^^^^0^12.857^25.714^60
+67 ;;^UTILITY(U,$J,112,8359,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,8360,0)
+70 ;;=VEGETABLE OILS,CORN,WESSON^BC-01633^tbsp.^14
+71 ;;^UTILITY(U,$J,112,8360,1)
+72 ;;=0^100^0^857.143^^^^0^0^^^0^0^^^^^^0^0
+73 ;;^UTILITY(U,$J,112,8360,2)
+74 ;;=0^0^^^^^^^0^13.571^^57.143^0^^^^0
+75 ;;^UTILITY(U,$J,112,8360,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,8361,0)
+78 ;;=VEGETABLE OILS,CRISCO^BC-01634^tbsp.^14
+79 ;;^UTILITY(U,$J,112,8361,1)
+80 ;;=0^100^0^885.714^0
+81 ;;^UTILITY(U,$J,112,8361,2)
+82 ;;=^^^^^^^^0^12.857^^52.143^^^^^0
+83 ;;^UTILITY(U,$J,112,8361,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,8362,0)
+86 ;;=VEGETABLE OILS,OLIVE,WESSON^BC-01635^tbsp.^14
+87 ;;^UTILITY(U,$J,112,8362,1)
+88 ;;=0^100^0^857.143^^^^0^0^^^0^0^^^^^^0^0
+89 ;;^UTILITY(U,$J,112,8362,2)
+90 ;;=0^0^^^^^^^0^7.143^^14.286^0^^^^0
+91 ;;^UTILITY(U,$J,112,8362,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,8363,0)
+94 ;;=VEGETABLE OILS,POPPING & TOPPING ORVILLE REDENBACHER'S^BC-01636^tbsp.^14
+95 ;;^UTILITY(U,$J,112,8363,1)
+96 ;;=0^100^0^857.143^^^^^^^^0^0
+97 ;;^UTILITY(U,$J,112,8363,2)
+98 ;;=^^^^^^^^0^14.286^^57.143^^^^^0
+99 ;;^UTILITY(U,$J,112,8363,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,8364,0)
+102 ;;=VEGETABLE OILS,PURITAN^BC-01637^tbsp.^14
+103 ;;^UTILITY(U,$J,112,8364,1)
+104 ;;=0^100^0^885.714^0^^^^^^^^0
+105 ;;^UTILITY(U,$J,112,8364,2)
+106 ;;=^^^^^^^^0^12.143^^67.857^^^^^0
+107 ;;^UTILITY(U,$J,112,8364,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,8365,0)
+110 ;;=VEGETABLE OILS,SUNFLOWER,WESSON^BC-01638^tbsp.^14
+111 ;;^UTILITY(U,$J,112,8365,1)
+112 ;;=0^100^0^857.143^^^^0^^^^0^0^^^^^^0^0
+113 ;;^UTILITY(U,$J,112,8365,2)
+114 ;;=0^0^^^^^^^0^12.143^^69.286^0^^^^^0
+115 ;;^UTILITY(U,$J,112,8365,20)
+116 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+117 ;;^UTILITY(U,$J,112,8366,0)
+118 ;;=VEGETABLE OILS,WESSON^BC-01639^tbsp.^14
+119 ;;^UTILITY(U,$J,112,8366,1)
+120 ;;=0^100^0^857.143^^^^0^0^^^0^0^^^^^^0^0
+121 ;;^UTILITY(U,$J,112,8366,2)
+122 ;;=0^0^^^^^^^0^14.286^^57.143^0^^^^0
+123 ;;^UTILITY(U,$J,112,8366,20)
+124 ;;=Bowes & Church's Food Values, Sixteenth Edition.
