FHINI0GT ; ; 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,10178,1)
;;=1.765^.235^12.471^60^84.588^^^18.824^1.2^^^272.941^41.176^^^^^4390.588^8.235^.082
;;^UTILITY(U,$J,112,10178,2)
;;=.035^1.647^^^^^^^0
;;^UTILITY(U,$J,112,10178,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10179,0)
;;=SWEET POTATO,CANDIED,CND,JOAN OF ARC^BC-03452^1/2-cup^146
;;^UTILITY(U,$J,112,10179,1)
;;=.685^0^41.096^164.384^^^^^^^^130.137^10.274
;;^UTILITY(U,$J,112,10179,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,10179,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10180,0)
;;=SWEET POTATO,CND,HEAVY SYRUP,JOAN OF ARC^BC-03453^1/2-cup^124
;;^UTILITY(U,$J,112,10180,1)
;;=.565^0^24.516^100.806^72.984^^^7.258^.403^^12.097^95.161^12.903^^^^^5445.968^1.613^.008
;;^UTILITY(U,$J,112,10180,2)
;;=.016^.403^^^^^^^0^^^^^^^^2.016
;;^UTILITY(U,$J,112,10180,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10181,0)
;;=SWEET POTATO,CND,LIGHT SYRUP,JOAN OF ARC^BC-03454^1/2-cup^113
;;^UTILITY(U,$J,112,10181,1)
;;=.973^.177^25.044^104.425^72.035^^^14.159^.292^^20.354^131.858^25.664^^^^^11300^2.655^.044
;;^UTILITY(U,$J,112,10181,2)
;;=.044^.973^^^^^^^0^^^^^^^^2.035
;;^UTILITY(U,$J,112,10181,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10182,0)
;;=SWEET POTATO,CND,MASHED,JOAN OF ARC^BC-03455^1/2-cup^113
;;^UTILITY(U,$J,112,10182,1)
;;=.885^.088^22.035^81.416^76.991^^^15.044^.796^^30.088^207.965^38.053^^^^^14400^5.31^.018
;;^UTILITY(U,$J,112,10182,2)
;;=.044^1.593^^^^^^^0^^^^^^^^2.743
;;^UTILITY(U,$J,112,10182,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10183,0)
;;=SWEET POTATO,CND W/PINEAPPLE ORANGE SCE,JOAN OF ARC^BC-03456^1/2-cup^142
;;^UTILITY(U,$J,112,10183,1)
;;=.493^0^38.31^154.93^60^^^8.451^.303^^9.859^85.211^10.563^^^^^4492.958^3.521^.007
;;^UTILITY(U,$J,112,10183,2)
;;=.007^.352^^^^^^^0
;;^UTILITY(U,$J,112,10183,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10184,0)
;;=SWEET POTATO,FRZN,MRS. PAUL'S FAMILY^BC-03457^4-oz.^113
;;^UTILITY(U,$J,112,10184,1)
;;=.885^.354^41.416^171.681^^^^30.088^.708^^^196.46^104.425^^^^^5582.301^1.77^.035
;;^UTILITY(U,$J,112,10184,2)
;;=.062^.531^^^^^^^.885
;;^UTILITY(U,$J,112,10184,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10185,0)
;;=SWEET POTATO,WHIPPED,FRZN,STOUFFER'S^BC-03458^3-oz.^85
;;^UTILITY(U,$J,112,10185,1)
;;=1.529^5.176^19.059^130.588^74^^^23.529^.306^^^170.588^320^^^^^8000^4.706^.035
;;^UTILITY(U,$J,112,10185,2)
;;=.047^.235^^^^^^^15.294
;;^UTILITY(U,$J,112,10185,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10186,0)
;;=SWEET POTATOES & APPLES,FRZN,STOUFFERS^BC-03459^3-oz.^85
;;^UTILITY(U,$J,112,10186,1)
;;=.824^2.235^26^127.059^70^^^22.353^.506^^^140^80^^^^^6000^27.059^.035
;;^UTILITY(U,$J,112,10186,2)
;;=.035^.235
;;^UTILITY(U,$J,112,10186,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10187,0)
;;=TOMATO PASTE,CND,CONTADINA^BC-03460^1/4-cup^57
;;^UTILITY(U,$J,112,10187,1)
;;=2.632^.526^19.298^87.719^^^^35.088^2.982^50.877^78.947^964.912^70.175^^^^^2454.386^42.105^.158
;;^UTILITY(U,$J,112,10187,2)
;;=.193^3.158
;;^UTILITY(U,$J,112,10187,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10188,0)
;;=TOMATO PASTE,CND,GARLIC,HUNT^BC-03461^2-oz.^57
;;^UTILITY(U,$J,112,10188,1)
;;=3.509^0^19.298^87.719^^^^36.842^1.228^^^1017.544^771.93^^^^^^47.368^.211
;;^UTILITY(U,$J,112,10188,2)
;;=.123^3.509^^^^^^^0^^^^350.877^^^^3.509
;;^UTILITY(U,$J,112,10188,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10189,0)
;;=TOMATO PASTE,CND,HUNT^BC-03462^2-oz.^57
;;^UTILITY(U,$J,112,10189,1)
;;=3.509^0^19.298^78.947^^^^31.579^1.053^^^924.561^236.842^^^^^^47.368^.211
;;^UTILITY(U,$J,112,10189,2)
;;=.123^3.158^^^^^^^^^^^350.877^^^^3.509
;;^UTILITY(U,$J,112,10189,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10190,0)
;;=TOMATO PASTE,CND,ITALIAN,HUNT^BC-03463^2-oz.^57
;;^UTILITY(U,$J,112,10190,1)
;;=3.509^0^19.298^87.719^^^^33.333^1.053^^^912.281^754.386^^^^^^47.368^.211
;;^UTILITY(U,$J,112,10190,2)
;;=.123^3.158^^^^^^^0^^^^350.877^^^^3.509
;;^UTILITY(U,$J,112,10190,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10191,0)
;;=TOMATO PASTE,CND,ITALIAN STYLE (PEAR),CONTADINA^BC-03464^1/4-cup^57
;;^UTILITY(U,$J,112,10191,1)
;;=3.509^1.754^21.053^114.035^66.491^^^66.667^2.895^^77.193^807.018^912.281^^^^^2263.158^38.596^.158
FHINI0GT ; ; 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,10178,1)
+2 ;;=1.765^.235^12.471^60^84.588^^^18.824^1.2^^^272.941^41.176^^^^^4390.588^8.235^.082
+3 ;;^UTILITY(U,$J,112,10178,2)
+4 ;;=.035^1.647^^^^^^^0
+5 ;;^UTILITY(U,$J,112,10178,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,10179,0)
+8 ;;=SWEET POTATO,CANDIED,CND,JOAN OF ARC^BC-03452^1/2-cup^146
+9 ;;^UTILITY(U,$J,112,10179,1)
+10 ;;=.685^0^41.096^164.384^^^^^^^^130.137^10.274
+11 ;;^UTILITY(U,$J,112,10179,2)
+12 ;;=^^^^^^^^0
+13 ;;^UTILITY(U,$J,112,10179,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,10180,0)
+16 ;;=SWEET POTATO,CND,HEAVY SYRUP,JOAN OF ARC^BC-03453^1/2-cup^124
+17 ;;^UTILITY(U,$J,112,10180,1)
+18 ;;=.565^0^24.516^100.806^72.984^^^7.258^.403^^12.097^95.161^12.903^^^^^5445.968^1.613^.008
+19 ;;^UTILITY(U,$J,112,10180,2)
+20 ;;=.016^.403^^^^^^^0^^^^^^^^2.016
+21 ;;^UTILITY(U,$J,112,10180,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,10181,0)
+24 ;;=SWEET POTATO,CND,LIGHT SYRUP,JOAN OF ARC^BC-03454^1/2-cup^113
+25 ;;^UTILITY(U,$J,112,10181,1)
+26 ;;=.973^.177^25.044^104.425^72.035^^^14.159^.292^^20.354^131.858^25.664^^^^^11300^2.655^.044
+27 ;;^UTILITY(U,$J,112,10181,2)
+28 ;;=.044^.973^^^^^^^0^^^^^^^^2.035
+29 ;;^UTILITY(U,$J,112,10181,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,10182,0)
+32 ;;=SWEET POTATO,CND,MASHED,JOAN OF ARC^BC-03455^1/2-cup^113
+33 ;;^UTILITY(U,$J,112,10182,1)
+34 ;;=.885^.088^22.035^81.416^76.991^^^15.044^.796^^30.088^207.965^38.053^^^^^14400^5.31^.018
+35 ;;^UTILITY(U,$J,112,10182,2)
+36 ;;=.044^1.593^^^^^^^0^^^^^^^^2.743
+37 ;;^UTILITY(U,$J,112,10182,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,10183,0)
+40 ;;=SWEET POTATO,CND W/PINEAPPLE ORANGE SCE,JOAN OF ARC^BC-03456^1/2-cup^142
+41 ;;^UTILITY(U,$J,112,10183,1)
+42 ;;=.493^0^38.31^154.93^60^^^8.451^.303^^9.859^85.211^10.563^^^^^4492.958^3.521^.007
+43 ;;^UTILITY(U,$J,112,10183,2)
+44 ;;=.007^.352^^^^^^^0
+45 ;;^UTILITY(U,$J,112,10183,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,10184,0)
+48 ;;=SWEET POTATO,FRZN,MRS. PAUL'S FAMILY^BC-03457^4-oz.^113
+49 ;;^UTILITY(U,$J,112,10184,1)
+50 ;;=.885^.354^41.416^171.681^^^^30.088^.708^^^196.46^104.425^^^^^5582.301^1.77^.035
+51 ;;^UTILITY(U,$J,112,10184,2)
+52 ;;=.062^.531^^^^^^^.885
+53 ;;^UTILITY(U,$J,112,10184,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,10185,0)
+56 ;;=SWEET POTATO,WHIPPED,FRZN,STOUFFER'S^BC-03458^3-oz.^85
+57 ;;^UTILITY(U,$J,112,10185,1)
+58 ;;=1.529^5.176^19.059^130.588^74^^^23.529^.306^^^170.588^320^^^^^8000^4.706^.035
+59 ;;^UTILITY(U,$J,112,10185,2)
+60 ;;=.047^.235^^^^^^^15.294
+61 ;;^UTILITY(U,$J,112,10185,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,10186,0)
+64 ;;=SWEET POTATOES & APPLES,FRZN,STOUFFERS^BC-03459^3-oz.^85
+65 ;;^UTILITY(U,$J,112,10186,1)
+66 ;;=.824^2.235^26^127.059^70^^^22.353^.506^^^140^80^^^^^6000^27.059^.035
+67 ;;^UTILITY(U,$J,112,10186,2)
+68 ;;=.035^.235
+69 ;;^UTILITY(U,$J,112,10186,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,10187,0)
+72 ;;=TOMATO PASTE,CND,CONTADINA^BC-03460^1/4-cup^57
+73 ;;^UTILITY(U,$J,112,10187,1)
+74 ;;=2.632^.526^19.298^87.719^^^^35.088^2.982^50.877^78.947^964.912^70.175^^^^^2454.386^42.105^.158
+75 ;;^UTILITY(U,$J,112,10187,2)
+76 ;;=.193^3.158
+77 ;;^UTILITY(U,$J,112,10187,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,10188,0)
+80 ;;=TOMATO PASTE,CND,GARLIC,HUNT^BC-03461^2-oz.^57
+81 ;;^UTILITY(U,$J,112,10188,1)
+82 ;;=3.509^0^19.298^87.719^^^^36.842^1.228^^^1017.544^771.93^^^^^^47.368^.211
+83 ;;^UTILITY(U,$J,112,10188,2)
+84 ;;=.123^3.509^^^^^^^0^^^^350.877^^^^3.509
+85 ;;^UTILITY(U,$J,112,10188,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,10189,0)
+88 ;;=TOMATO PASTE,CND,HUNT^BC-03462^2-oz.^57
+89 ;;^UTILITY(U,$J,112,10189,1)
+90 ;;=3.509^0^19.298^78.947^^^^31.579^1.053^^^924.561^236.842^^^^^^47.368^.211
+91 ;;^UTILITY(U,$J,112,10189,2)
+92 ;;=.123^3.158^^^^^^^^^^^350.877^^^^3.509
+93 ;;^UTILITY(U,$J,112,10189,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,10190,0)
+96 ;;=TOMATO PASTE,CND,ITALIAN,HUNT^BC-03463^2-oz.^57
+97 ;;^UTILITY(U,$J,112,10190,1)
+98 ;;=3.509^0^19.298^87.719^^^^33.333^1.053^^^912.281^754.386^^^^^^47.368^.211
+99 ;;^UTILITY(U,$J,112,10190,2)
+100 ;;=.123^3.158^^^^^^^0^^^^350.877^^^^3.509
+101 ;;^UTILITY(U,$J,112,10190,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,10191,0)
+104 ;;=TOMATO PASTE,CND,ITALIAN STYLE (PEAR),CONTADINA^BC-03464^1/4-cup^57
+105 ;;^UTILITY(U,$J,112,10191,1)
+106 ;;=3.509^1.754^21.053^114.035^66.491^^^66.667^2.895^^77.193^807.018^912.281^^^^^2263.158^38.596^.158
