FHINI0GE ; ; 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,9983,1)
;;=0^0^70.952^285.714^25.714^^^^^^^^142.857
;;^UTILITY(U,$J,112,9983,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9984,0)
;;=SYRUP,MAPLE HONEY,LOG CABIN^BC-03257^floz.^39
;;^UTILITY(U,$J,112,9984,1)
;;=0^0^72.051^271.795^27.436^^^17.949^1.103^^5.128^15.385^17.949^^.121^^^0^0^0
;;^UTILITY(U,$J,112,9984,2)
;;=0^0^0^0^^0^^^0^0^^0^^^^^0
;;^UTILITY(U,$J,112,9984,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9985,0)
;;=SYRUP,PANCAKE & WAFFLE,AUNT JEMIMA^BC-03258^floz.^40
;;^UTILITY(U,$J,112,9985,1)
;;=0^0^67.75^272.5^30.25^^^0^0^0^0^2.5^80^0^0^0^^0^^0
;;^UTILITY(U,$J,112,9985,2)
;;=0^0^0^0^0^0^^^0^0^0^0
;;^UTILITY(U,$J,112,9985,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9986,0)
;;=SYRUP,PANCAKE & WAFFLE,AUNT JEMIMA BUTTER LITE^BC-03259^floz.^34
;;^UTILITY(U,$J,112,9986,1)
;;=0^0^38.824^155.882^62.353^^^0^0^0^0^0^258.824^0^0^0^^0^0^0
;;^UTILITY(U,$J,112,9986,2)
;;=0^0^0^0^0^0^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,9986,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9987,0)
;;=SYRUP,PANCAKE & WAFFLE, AUNT JEMIMA LITE^BC-03260^floz.^35
;;^UTILITY(U,$J,112,9987,1)
;;=.286^.286^37.429^154.286^60.571^^^5.714^.371^0^0^14.286^262.857^0^0^0^^0^^0
;;^UTILITY(U,$J,112,9987,2)
;;=0^0^0^0^0^0^^^0^0^0^0^^^^^.857
;;^UTILITY(U,$J,112,9987,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9988,0)
;;=SYRUP,PANCAKE & WAFFLE,GOLDEN GRIDDLE^BC-03261^tbsp.^20
;;^UTILITY(U,$J,112,9988,1)
;;=0^0^71^275^28.5^^^^^^^^75
;;^UTILITY(U,$J,112,9988,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9989,0)
;;=SYRUP,PANCAKE & WAFFLE,KARO^BC-03262^tbsp.^21
;;^UTILITY(U,$J,112,9989,1)
;;=0^0^70.952^285.714^26.19^^^^^^^^166.667
;;^UTILITY(U,$J,112,9989,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9990,0)
;;=SYRUP,PANCAKE & WAFFLE,LOG CABIN COUNTRY KITCHEN^BC-03263^floz.^39
;;^UTILITY(U,$J,112,9990,1)
;;=0^0^69.231^264.103^32.564^^^2.564^2.436^2.564^5.128^2.564^56.41^^.213^^^0^0^0
;;^UTILITY(U,$J,112,9990,2)
;;=0^0^0^0^0^0^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,9990,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9991,0)
;;=SYRUP,PANCAKE & WAFFLE,LOG CABIN LITE^BC-03264^floz.^35
;;^UTILITY(U,$J,112,9991,1)
;;=0^0^37.143^140^56.571^^^0^.029^0^42.857^2.857^262.857^0^.003^^^0^0^0
;;^UTILITY(U,$J,112,9991,2)
;;=0^0^0^0^0^0^^^0^0^^0
;;^UTILITY(U,$J,112,9991,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9992,0)
;;=SYRUP,PANCAKE & WAFFLE,MRS. BUTTER WORTH^BC-03265^floz.^40
;;^UTILITY(U,$J,112,9992,1)
;;=0^.25^67.5^277.5^^^^0^^^^0^80
;;^UTILITY(U,$J,112,9992,2)
;;=^^^^^^^^0^^^^^^^^.25
;;^UTILITY(U,$J,112,9992,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9993,0)
;;=SYRUP,PANCAKE & WAFFLE,MRS. BUTTER WORTH,LITE^BC-03266^floz.^35
;;^UTILITY(U,$J,112,9993,1)
;;=0^.571^45.714^177.143^^^^0^^^^0^180
;;^UTILITY(U,$J,112,9993,2)
;;=^^^^^^^^0^^^^^^^^.571
;;^UTILITY(U,$J,112,9993,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9994,0)
;;=SYRUP,PANCAKE & WAFFLE,NUTRADIET^BC-03267^tbsp.^20
;;^UTILITY(U,$J,112,9994,1)
;;=0^0^15^60^^^^^^^^^375
;;^UTILITY(U,$J,112,9994,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9995,0)
;;=VEGETABLE,AMERICAN STYLE,FROZEN,PILLSBURY^BC-03268^1/2-cup^108
;;^UTILITY(U,$J,112,9995,1)
;;=2.037^1.481^12.963^62.037^82.5^^^15.741^.602^^49.074^167.593^214.815^^^^^299.074^16.667^.028
;;^UTILITY(U,$J,112,9995,2)
;;=.056^.926^^^^^^^^^^^^^^^2.593
;;^UTILITY(U,$J,112,9995,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9996,0)
;;=ARTICHOKE HEARTS,MARINATED IN YEG OIL,CND,S&W FINE FOODS^BC-03269^3.5-oz.^100
;;^UTILITY(U,$J,112,9996,1)
;;=2^26^6^225^^^^^^^^^15
;;^UTILITY(U,$J,112,9996,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9997,0)
;;=ASPARAGUS,CND,GREEN GIANT,50% LESS SALT^BC-03270^1/2-cup^121
;;^UTILITY(U,$J,112,9997,1)
;;=1.901^.165^2.479^15.702^93.967^^^13.223^.397^^36.364^141.322^177.686^^^^^280.992^13.223^.033
;;^UTILITY(U,$J,112,9997,2)
;;=.083^.579^^^^^^^^^^^^^^^.992
;;^UTILITY(U,$J,112,9997,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9998,0)
;;=ASPARAGUS,CND,PILLSBURY^BC-03271^1/2-cup^106
;;^UTILITY(U,$J,112,9998,1)
;;=1.887^.189^2.547^15.094^93.962^^^13.208^.396^^36.792^140.566^354.717^^^^^281.132^13.208^.038
FHINI0GE ; ; 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,9983,1)
+2 ;;=0^0^70.952^285.714^25.714^^^^^^^^142.857
+3 ;;^UTILITY(U,$J,112,9983,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9984,0)
+6 ;;=SYRUP,MAPLE HONEY,LOG CABIN^BC-03257^floz.^39
+7 ;;^UTILITY(U,$J,112,9984,1)
+8 ;;=0^0^72.051^271.795^27.436^^^17.949^1.103^^5.128^15.385^17.949^^.121^^^0^0^0
+9 ;;^UTILITY(U,$J,112,9984,2)
+10 ;;=0^0^0^0^^0^^^0^0^^0^^^^^0
+11 ;;^UTILITY(U,$J,112,9984,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9985,0)
+14 ;;=SYRUP,PANCAKE & WAFFLE,AUNT JEMIMA^BC-03258^floz.^40
+15 ;;^UTILITY(U,$J,112,9985,1)
+16 ;;=0^0^67.75^272.5^30.25^^^0^0^0^0^2.5^80^0^0^0^^0^^0
+17 ;;^UTILITY(U,$J,112,9985,2)
+18 ;;=0^0^0^0^0^0^^^0^0^0^0
+19 ;;^UTILITY(U,$J,112,9985,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9986,0)
+22 ;;=SYRUP,PANCAKE & WAFFLE,AUNT JEMIMA BUTTER LITE^BC-03259^floz.^34
+23 ;;^UTILITY(U,$J,112,9986,1)
+24 ;;=0^0^38.824^155.882^62.353^^^0^0^0^0^0^258.824^0^0^0^^0^0^0
+25 ;;^UTILITY(U,$J,112,9986,2)
+26 ;;=0^0^0^0^0^0^^^0^0^0^0^^^^^0
+27 ;;^UTILITY(U,$J,112,9986,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9987,0)
+30 ;;=SYRUP,PANCAKE & WAFFLE, AUNT JEMIMA LITE^BC-03260^floz.^35
+31 ;;^UTILITY(U,$J,112,9987,1)
+32 ;;=.286^.286^37.429^154.286^60.571^^^5.714^.371^0^0^14.286^262.857^0^0^0^^0^^0
+33 ;;^UTILITY(U,$J,112,9987,2)
+34 ;;=0^0^0^0^0^0^^^0^0^0^0^^^^^.857
+35 ;;^UTILITY(U,$J,112,9987,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9988,0)
+38 ;;=SYRUP,PANCAKE & WAFFLE,GOLDEN GRIDDLE^BC-03261^tbsp.^20
+39 ;;^UTILITY(U,$J,112,9988,1)
+40 ;;=0^0^71^275^28.5^^^^^^^^75
+41 ;;^UTILITY(U,$J,112,9988,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,9989,0)
+44 ;;=SYRUP,PANCAKE & WAFFLE,KARO^BC-03262^tbsp.^21
+45 ;;^UTILITY(U,$J,112,9989,1)
+46 ;;=0^0^70.952^285.714^26.19^^^^^^^^166.667
+47 ;;^UTILITY(U,$J,112,9989,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,9990,0)
+50 ;;=SYRUP,PANCAKE & WAFFLE,LOG CABIN COUNTRY KITCHEN^BC-03263^floz.^39
+51 ;;^UTILITY(U,$J,112,9990,1)
+52 ;;=0^0^69.231^264.103^32.564^^^2.564^2.436^2.564^5.128^2.564^56.41^^.213^^^0^0^0
+53 ;;^UTILITY(U,$J,112,9990,2)
+54 ;;=0^0^0^0^0^0^^^0^0^0^0^^^^^0
+55 ;;^UTILITY(U,$J,112,9990,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9991,0)
+58 ;;=SYRUP,PANCAKE & WAFFLE,LOG CABIN LITE^BC-03264^floz.^35
+59 ;;^UTILITY(U,$J,112,9991,1)
+60 ;;=0^0^37.143^140^56.571^^^0^.029^0^42.857^2.857^262.857^0^.003^^^0^0^0
+61 ;;^UTILITY(U,$J,112,9991,2)
+62 ;;=0^0^0^0^0^0^^^0^0^^0
+63 ;;^UTILITY(U,$J,112,9991,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9992,0)
+66 ;;=SYRUP,PANCAKE & WAFFLE,MRS. BUTTER WORTH^BC-03265^floz.^40
+67 ;;^UTILITY(U,$J,112,9992,1)
+68 ;;=0^.25^67.5^277.5^^^^0^^^^0^80
+69 ;;^UTILITY(U,$J,112,9992,2)
+70 ;;=^^^^^^^^0^^^^^^^^.25
+71 ;;^UTILITY(U,$J,112,9992,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,9993,0)
+74 ;;=SYRUP,PANCAKE & WAFFLE,MRS. BUTTER WORTH,LITE^BC-03266^floz.^35
+75 ;;^UTILITY(U,$J,112,9993,1)
+76 ;;=0^.571^45.714^177.143^^^^0^^^^0^180
+77 ;;^UTILITY(U,$J,112,9993,2)
+78 ;;=^^^^^^^^0^^^^^^^^.571
+79 ;;^UTILITY(U,$J,112,9993,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,9994,0)
+82 ;;=SYRUP,PANCAKE & WAFFLE,NUTRADIET^BC-03267^tbsp.^20
+83 ;;^UTILITY(U,$J,112,9994,1)
+84 ;;=0^0^15^60^^^^^^^^^375
+85 ;;^UTILITY(U,$J,112,9994,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,9995,0)
+88 ;;=VEGETABLE,AMERICAN STYLE,FROZEN,PILLSBURY^BC-03268^1/2-cup^108
+89 ;;^UTILITY(U,$J,112,9995,1)
+90 ;;=2.037^1.481^12.963^62.037^82.5^^^15.741^.602^^49.074^167.593^214.815^^^^^299.074^16.667^.028
+91 ;;^UTILITY(U,$J,112,9995,2)
+92 ;;=.056^.926^^^^^^^^^^^^^^^2.593
+93 ;;^UTILITY(U,$J,112,9995,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,9996,0)
+96 ;;=ARTICHOKE HEARTS,MARINATED IN YEG OIL,CND,S&W FINE FOODS^BC-03269^3.5-oz.^100
+97 ;;^UTILITY(U,$J,112,9996,1)
+98 ;;=2^26^6^225^^^^^^^^^15
+99 ;;^UTILITY(U,$J,112,9996,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9997,0)
+102 ;;=ASPARAGUS,CND,GREEN GIANT,50% LESS SALT^BC-03270^1/2-cup^121
+103 ;;^UTILITY(U,$J,112,9997,1)
+104 ;;=1.901^.165^2.479^15.702^93.967^^^13.223^.397^^36.364^141.322^177.686^^^^^280.992^13.223^.033
+105 ;;^UTILITY(U,$J,112,9997,2)
+106 ;;=.083^.579^^^^^^^^^^^^^^^.992
+107 ;;^UTILITY(U,$J,112,9997,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,9998,0)
+110 ;;=ASPARAGUS,CND,PILLSBURY^BC-03271^1/2-cup^106
+111 ;;^UTILITY(U,$J,112,9998,1)
+112 ;;=1.887^.189^2.547^15.094^93.962^^^13.208^.396^^36.792^140.566^354.717^^^^^281.132^13.208^.038
