FHINI0FL ; ; 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,9575,1)
;;=1.053^1.579^5.614^40.351^^^^5.263^1.579^^^43.86^512.281^^^^^115.789^0^.018
;;^UTILITY(U,$J,112,9575,2)
;;=.053^.877
;;^UTILITY(U,$J,112,9575,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9576,0)
;;=GRAVIES,TURKEY,CND,HEINZ HOMESTYLE^BC-02849^2-oz.^57
;;^UTILITY(U,$J,112,9576,1)
;;=1.404^3.509^3.684^50.877^^^^0^.123^^^157.895^245.614^^^^^0^1.754^0
;;^UTILITY(U,$J,112,9576,2)
;;=.035^0
;;^UTILITY(U,$J,112,9576,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9577,0)
;;=SOUPS,BLACK BEAN,CAMPBELL'S^BC-02850^4-oz.^113
;;^UTILITY(U,$J,112,9577,1)
;;=4.69^1.327^15.044^91.15^^^^31.858^2.212^^^313.274^838.053^^^^^374.336^0^.053
;;^UTILITY(U,$J,112,9577,2)
;;=.044^.531^^^^^^^0^.531^^.531^^^^^4.336
;;^UTILITY(U,$J,112,9577,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9578,0)
;;=SOUPS,CHEESE,GOLDEN CLASSIC^BC-02851^4-oz.^113
;;^UTILITY(U,$J,112,9578,1)
;;=3.009^8.496^7.788^119.469^^^^131.858^.442^^^38.053^631.858^^^^^484.956^.885^.018
;;^UTILITY(U,$J,112,9578,2)
;;=.08^.177
;;^UTILITY(U,$J,112,9578,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9579,0)
;;=SOUPS,CHEESE,CHEDDAR,CAMPBELL'S^BC-02852^4-oz.^113
;;^UTILITY(U,$J,112,9579,1)
;;=3.717^6.814^8.85^111.504^^^^87.611^.442^^^86.726^665.487^^^^^699.115^0^.027
;;^UTILITY(U,$J,112,9579,2)
;;=.097^.265^^^^^^^10.619^3.009^^1.858
;;^UTILITY(U,$J,112,9579,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9580,0)
;;=SOUPS,CHEESE,NACHO,CAMPBELL'S^BC-02853^4-oz.^113
;;^UTILITY(U,$J,112,9580,1)
;;=3.451^6.46^5.31^92.92^^^^69.912^.531^^^47.788^657.522^^^^^1230.088^4.425^.009
;;^UTILITY(U,$J,112,9580,2)
;;=.053^.265^^^^^^^10.619^4.513^^1.858
;;^UTILITY(U,$J,112,9580,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9581,0)
;;=SOUPS,MUSHROOM,CRM,CAMPBELL'S^BC-02854^4-oz.^113
;;^UTILITY(U,$J,112,9581,1)
;;=1.593^5.487^7.345^84.956^^^^17.699^.354^^^71.681^713.274^^^^^0^0^.018
;;^UTILITY(U,$J,112,9581,2)
;;=.062^.531^^^^^^^1.77
;;^UTILITY(U,$J,112,9581,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9582,0)
;;=SOUPS,ONION,CRM,CAMPBELL'S^BC-02855^4-oz.^113
;;^UTILITY(U,$J,112,9582,1)
;;=2.92^.885^4.071^35.398^^^^8.85^.531^^^49.558^752.212^^^^^137.168^0^.035
;;^UTILITY(U,$J,112,9582,2)
;;=.053^1.239^^^^^^^8.85^.354^^.177
;;^UTILITY(U,$J,112,9582,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9583,0)
;;=SOUPS,ASPARAGUS,CRM,CAMPBELL'S^BC-02856^8-oz.^226
;;^UTILITY(U,$J,112,9583,1)
;;=.929^1.549^4.602^35.841^^^^9.292^.265^^^45.133^365.487^^^^^155.31^.885^.013
;;^UTILITY(U,$J,112,9583,2)
;;=.027^.221^^^^^^^.885^.487^^.487
;;^UTILITY(U,$J,112,9583,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9584,0)
;;=SOUPS,ASPARAGUS,CREAMY,CAMPBELL'S^BC-02857^8-oz.^226
;;^UTILITY(U,$J,112,9584,1)
;;=.885^2.566^4.69^45.575^^^^12.389^.177^^^34.513^331.416^^^^^207.08^.885^.018
;;^UTILITY(U,$J,112,9584,2)
;;=.022^.265
;;^UTILITY(U,$J,112,9584,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9585,0)
;;=SOUPS,BEAN,CAMPBELL'S,HOMESTYLE^BC-02858^8-oz.^226
;;^UTILITY(U,$J,112,9585,1)
;;=2.434^.442^10.929^57.522^^^^27.434^.752^^^142.035^309.292^^^^^388.496^1.327^.044
;;^UTILITY(U,$J,112,9585,2)
;;=.071^.31^^^^^^^0^.221^^.221
;;^UTILITY(U,$J,112,9585,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9586,0)
;;=SOUPS,BEAN W/BACON,CAMPBELL'S^BC-02859^8-oz.^226
;;^UTILITY(U,$J,112,9586,1)
;;=2.965^1.416^9.912^64.159^^^^28.761^.885^^^243.805^206.195^^^^^289.381^0^.035
;;^UTILITY(U,$J,112,9586,2)
;;=.018^.265^^^^^^^1.327^.664^^.31^^^^^2.965
;;^UTILITY(U,$J,112,9586,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9587,0)
;;=SOUPS,BEEF BROTH &BARLEY,CAMPBELL'S^BC-02860^cup^233
;;^UTILITY(U,$J,112,9587,1)
;;=1.073^.429^4.292^25.322^^^^5.15^.258^^^37.339^373.82^^^^^672.961^0^.009
;;^UTILITY(U,$J,112,9587,2)
;;=.004^.215
;;^UTILITY(U,$J,112,9587,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9588,0)
;;=SOUPS,BEEF BROTH (BOULLION),CAMBELL'S^BC-02861^8-oz.^226
;;^UTILITY(U,$J,112,9588,1)
;;=1.283^.044^.265^6.195^^^^2.655^.133^^^32.301^363.274^^^^^0^0^.013
;;^UTILITY(U,$J,112,9588,2)
;;=.022^.398^^^^^^^0^.044^^.044
;;^UTILITY(U,$J,112,9588,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0FL ; ; 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,9575,1)
+2 ;;=1.053^1.579^5.614^40.351^^^^5.263^1.579^^^43.86^512.281^^^^^115.789^0^.018
+3 ;;^UTILITY(U,$J,112,9575,2)
+4 ;;=.053^.877
+5 ;;^UTILITY(U,$J,112,9575,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,9576,0)
+8 ;;=GRAVIES,TURKEY,CND,HEINZ HOMESTYLE^BC-02849^2-oz.^57
+9 ;;^UTILITY(U,$J,112,9576,1)
+10 ;;=1.404^3.509^3.684^50.877^^^^0^.123^^^157.895^245.614^^^^^0^1.754^0
+11 ;;^UTILITY(U,$J,112,9576,2)
+12 ;;=.035^0
+13 ;;^UTILITY(U,$J,112,9576,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,9577,0)
+16 ;;=SOUPS,BLACK BEAN,CAMPBELL'S^BC-02850^4-oz.^113
+17 ;;^UTILITY(U,$J,112,9577,1)
+18 ;;=4.69^1.327^15.044^91.15^^^^31.858^2.212^^^313.274^838.053^^^^^374.336^0^.053
+19 ;;^UTILITY(U,$J,112,9577,2)
+20 ;;=.044^.531^^^^^^^0^.531^^.531^^^^^4.336
+21 ;;^UTILITY(U,$J,112,9577,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,9578,0)
+24 ;;=SOUPS,CHEESE,GOLDEN CLASSIC^BC-02851^4-oz.^113
+25 ;;^UTILITY(U,$J,112,9578,1)
+26 ;;=3.009^8.496^7.788^119.469^^^^131.858^.442^^^38.053^631.858^^^^^484.956^.885^.018
+27 ;;^UTILITY(U,$J,112,9578,2)
+28 ;;=.08^.177
+29 ;;^UTILITY(U,$J,112,9578,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9579,0)
+32 ;;=SOUPS,CHEESE,CHEDDAR,CAMPBELL'S^BC-02852^4-oz.^113
+33 ;;^UTILITY(U,$J,112,9579,1)
+34 ;;=3.717^6.814^8.85^111.504^^^^87.611^.442^^^86.726^665.487^^^^^699.115^0^.027
+35 ;;^UTILITY(U,$J,112,9579,2)
+36 ;;=.097^.265^^^^^^^10.619^3.009^^1.858
+37 ;;^UTILITY(U,$J,112,9579,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,9580,0)
+40 ;;=SOUPS,CHEESE,NACHO,CAMPBELL'S^BC-02853^4-oz.^113
+41 ;;^UTILITY(U,$J,112,9580,1)
+42 ;;=3.451^6.46^5.31^92.92^^^^69.912^.531^^^47.788^657.522^^^^^1230.088^4.425^.009
+43 ;;^UTILITY(U,$J,112,9580,2)
+44 ;;=.053^.265^^^^^^^10.619^4.513^^1.858
+45 ;;^UTILITY(U,$J,112,9580,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,9581,0)
+48 ;;=SOUPS,MUSHROOM,CRM,CAMPBELL'S^BC-02854^4-oz.^113
+49 ;;^UTILITY(U,$J,112,9581,1)
+50 ;;=1.593^5.487^7.345^84.956^^^^17.699^.354^^^71.681^713.274^^^^^0^0^.018
+51 ;;^UTILITY(U,$J,112,9581,2)
+52 ;;=.062^.531^^^^^^^1.77
+53 ;;^UTILITY(U,$J,112,9581,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,9582,0)
+56 ;;=SOUPS,ONION,CRM,CAMPBELL'S^BC-02855^4-oz.^113
+57 ;;^UTILITY(U,$J,112,9582,1)
+58 ;;=2.92^.885^4.071^35.398^^^^8.85^.531^^^49.558^752.212^^^^^137.168^0^.035
+59 ;;^UTILITY(U,$J,112,9582,2)
+60 ;;=.053^1.239^^^^^^^8.85^.354^^.177
+61 ;;^UTILITY(U,$J,112,9582,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,9583,0)
+64 ;;=SOUPS,ASPARAGUS,CRM,CAMPBELL'S^BC-02856^8-oz.^226
+65 ;;^UTILITY(U,$J,112,9583,1)
+66 ;;=.929^1.549^4.602^35.841^^^^9.292^.265^^^45.133^365.487^^^^^155.31^.885^.013
+67 ;;^UTILITY(U,$J,112,9583,2)
+68 ;;=.027^.221^^^^^^^.885^.487^^.487
+69 ;;^UTILITY(U,$J,112,9583,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9584,0)
+72 ;;=SOUPS,ASPARAGUS,CREAMY,CAMPBELL'S^BC-02857^8-oz.^226
+73 ;;^UTILITY(U,$J,112,9584,1)
+74 ;;=.885^2.566^4.69^45.575^^^^12.389^.177^^^34.513^331.416^^^^^207.08^.885^.018
+75 ;;^UTILITY(U,$J,112,9584,2)
+76 ;;=.022^.265
+77 ;;^UTILITY(U,$J,112,9584,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,9585,0)
+80 ;;=SOUPS,BEAN,CAMPBELL'S,HOMESTYLE^BC-02858^8-oz.^226
+81 ;;^UTILITY(U,$J,112,9585,1)
+82 ;;=2.434^.442^10.929^57.522^^^^27.434^.752^^^142.035^309.292^^^^^388.496^1.327^.044
+83 ;;^UTILITY(U,$J,112,9585,2)
+84 ;;=.071^.31^^^^^^^0^.221^^.221
+85 ;;^UTILITY(U,$J,112,9585,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,9586,0)
+88 ;;=SOUPS,BEAN W/BACON,CAMPBELL'S^BC-02859^8-oz.^226
+89 ;;^UTILITY(U,$J,112,9586,1)
+90 ;;=2.965^1.416^9.912^64.159^^^^28.761^.885^^^243.805^206.195^^^^^289.381^0^.035
+91 ;;^UTILITY(U,$J,112,9586,2)
+92 ;;=.018^.265^^^^^^^1.327^.664^^.31^^^^^2.965
+93 ;;^UTILITY(U,$J,112,9586,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,9587,0)
+96 ;;=SOUPS,BEEF BROTH &BARLEY,CAMPBELL'S^BC-02860^cup^233
+97 ;;^UTILITY(U,$J,112,9587,1)
+98 ;;=1.073^.429^4.292^25.322^^^^5.15^.258^^^37.339^373.82^^^^^672.961^0^.009
+99 ;;^UTILITY(U,$J,112,9587,2)
+100 ;;=.004^.215
+101 ;;^UTILITY(U,$J,112,9587,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,9588,0)
+104 ;;=SOUPS,BEEF BROTH (BOULLION),CAMBELL'S^BC-02861^8-oz.^226
+105 ;;^UTILITY(U,$J,112,9588,1)
+106 ;;=1.283^.044^.265^6.195^^^^2.655^.133^^^32.301^363.274^^^^^0^0^.013
+107 ;;^UTILITY(U,$J,112,9588,2)
+108 ;;=.022^.398^^^^^^^0^.044^^.044
+109 ;;^UTILITY(U,$J,112,9588,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
