FHINI0FQ ; ; 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,9643,0)
;;=SOUPS,SIRLOIN BEEF,GOLDEN CLASSIC^BC-02916^8-oz.^226
;;^UTILITY(U,$J,112,9643,1)
;;=2.212^1.018^2.522^27.876^^^^5.31^.531^^^56.637^380.531^^^^^46.46^1.77^0
;;^UTILITY(U,$J,112,9643,2)
;;=.004^.708
;;^UTILITY(U,$J,112,9643,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9644,0)
;;=SOUPS,SPINACH,CREAMY,CAMPBELL'S^BC-02917^cup^233
;;^UTILITY(U,$J,112,9644,1)
;;=.601^2.361^3.562^37.768^^^^14.163^.258^^^26.18^291.416^^^^^703.433^.858^.004
;;^UTILITY(U,$J,112,9644,2)
;;=.03^.129
;;^UTILITY(U,$J,112,9644,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9645,0)
;;=SOUPS,TOMATO BISQUE,CAMPBELL'S^BC-02918^8-oz.^226
;;^UTILITY(U,$J,112,9645,1)
;;=.841^.973^9.823^51.327^^^^17.699^.31^^^109.292^362.389^^^^^248.673^8.85^.013
;;^UTILITY(U,$J,112,9645,2)
;;=.022^.354^^^^^^^.885^.487^^.487
;;^UTILITY(U,$J,112,9645,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9646,0)
;;=SOUPS,TOMATO,CAMPBELL'S,PREP W/WATER^BC-02919^8-oz.^226
;;^UTILITY(U,$J,112,9646,1)
;;=.752^.619^7.257^37.611^^^^5.752^.31^^^105.752^296.018^^^^^252.655^12.389^.018
;;^UTILITY(U,$J,112,9646,2)
;;=.013^.442^^^^^^^0^.133^^.133
;;^UTILITY(U,$J,112,9646,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9647,0)
;;=SOUPS,TOMATO,CRM,CAMPBELL'S HOMESTYLE^BC-02920^8-oz.^226
;;^UTILITY(U,$J,112,9647,1)
;;=.575^.929^8.628^45.133^^^^6.195^.398^^^98.23^358.407^^^^^273.451^10.619^.022
;;^UTILITY(U,$J,112,9647,2)
;;=.018^.398^^^^^^^.442
;;^UTILITY(U,$J,112,9647,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9648,0)
;;=SOUPS,TOMATO GARDEN,CRISPY,CAMPBELL'S^BC-02921^cup^233
;;^UTILITY(U,$J,112,9648,1)
;;=.601^.129^7.468^33.476^^^^14.592^.386^^^174.249^211.159^^^^^1472.532^5.15^.021
;;^UTILITY(U,$J,112,9648,2)
;;=.021^.515
;;^UTILITY(U,$J,112,9648,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9649,0)
;;=SOUPS,TOMATO RICE,CAMPBELL'S OLD FASHIONED^BC-02922^8-oz.^226
;;^UTILITY(U,$J,112,9649,1)
;;=.796^.664^9.425^46.903^^^^7.522^.265^^^80.088^323.894^^^^^181.416^6.195^.013
;;^UTILITY(U,$J,112,9649,2)
;;=.009^.31^^^^^^^0^.133^^.31
;;^UTILITY(U,$J,112,9649,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9650,0)
;;=SOUPS,TOMATO,SPECIAL REQUEST^BC-02923^8-oz.^226
;;^UTILITY(U,$J,112,9650,1)
;;=.752^.619^7.257^37.611^^^^5.752^.31^^^105.752^190.265^^^^^252.655^12.389^.018
;;^UTILITY(U,$J,112,9650,2)
;;=.013^.442^^^^^^^0^.133^^.133
;;^UTILITY(U,$J,112,9650,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9651,0)
;;=SOUPS,TOMATO ZESTY W/HERBS,CAMPBELL'S^BC-02924^8-oz.^226
;;^UTILITY(U,$J,112,9651,1)
;;=.929^.354^8.894^42.478^^^^15.044^.398^^^131.416^337.611^^^^^575.221^8.407^.018
;;^UTILITY(U,$J,112,9651,2)
;;=.022^.487
;;^UTILITY(U,$J,112,9651,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9652,0)
;;=SOUPS,TORTELLINI & VEG,GOLDEN CLASSIC^BC-02925^8-oz.^226
;;^UTILITY(U,$J,112,9652,1)
;;=1.239^.929^5.31^34.956^^^^18.142^.796^^^67.257^380.973^^^^^768.142^1.77^.186
;;^UTILITY(U,$J,112,9652,2)
;;=.022^.973
;;^UTILITY(U,$J,112,9652,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9653,0)
;;=SOUPS,TURKEY NOODLE,CAMPBELL'S^BC-02926^8-oz.^226
;;^UTILITY(U,$J,112,9653,1)
;;=1.637^.885^3.496^28.319^^^^5.752^.398^^^23.894^388.053^^^^^267.699^0^.04
;;^UTILITY(U,$J,112,9653,2)
;;=.035^.575^^^^^^^6.195^.265^^.221
;;^UTILITY(U,$J,112,9653,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9654,0)
;;=SOUPS,TURKEY VEG,CAMPBELL'S^BC-02927^8-oz.^226
;;^UTILITY(U,$J,112,9654,1)
;;=1.195^1.195^3.274^28.761^^^^7.522^.265^^^50.885^313.274^^^^^1481.858^.442^.013
;;^UTILITY(U,$J,112,9654,2)
;;=.018^.354^^^^^^^2.212^.487^^.133
;;^UTILITY(U,$J,112,9654,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9655,0)
;;=SOUPS,VEG BEEF,CAMPBELL'S MANHANDLER^BC-02928^8-oz.^226
;;^UTILITY(U,$J,112,9655,1)
;;=1.991^.575^4.071^29.646^^^^6.637^.442^^^48.673^334.956^^^^^916.372^1.327^.013
;;^UTILITY(U,$J,112,9655,2)
;;=.022^.442^^^^^^^2.655^.398^^.044^^^^^.708
;;^UTILITY(U,$J,112,9655,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9656,0)
;;=SOUPS,VEG BEEF,SPECIAL REQUEST^BC-02929^8-oz.^226
;;^UTILITY(U,$J,112,9656,1)
;;=1.991^.575^4.071^29.646^^^^6.637^.442^^^148.23^206.195^^^^^908.85^1.327^.013
FHINI0FQ ; ; 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,9643,0)
+2 ;;=SOUPS,SIRLOIN BEEF,GOLDEN CLASSIC^BC-02916^8-oz.^226
+3 ;;^UTILITY(U,$J,112,9643,1)
+4 ;;=2.212^1.018^2.522^27.876^^^^5.31^.531^^^56.637^380.531^^^^^46.46^1.77^0
+5 ;;^UTILITY(U,$J,112,9643,2)
+6 ;;=.004^.708
+7 ;;^UTILITY(U,$J,112,9643,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,9644,0)
+10 ;;=SOUPS,SPINACH,CREAMY,CAMPBELL'S^BC-02917^cup^233
+11 ;;^UTILITY(U,$J,112,9644,1)
+12 ;;=.601^2.361^3.562^37.768^^^^14.163^.258^^^26.18^291.416^^^^^703.433^.858^.004
+13 ;;^UTILITY(U,$J,112,9644,2)
+14 ;;=.03^.129
+15 ;;^UTILITY(U,$J,112,9644,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,9645,0)
+18 ;;=SOUPS,TOMATO BISQUE,CAMPBELL'S^BC-02918^8-oz.^226
+19 ;;^UTILITY(U,$J,112,9645,1)
+20 ;;=.841^.973^9.823^51.327^^^^17.699^.31^^^109.292^362.389^^^^^248.673^8.85^.013
+21 ;;^UTILITY(U,$J,112,9645,2)
+22 ;;=.022^.354^^^^^^^.885^.487^^.487
+23 ;;^UTILITY(U,$J,112,9645,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,9646,0)
+26 ;;=SOUPS,TOMATO,CAMPBELL'S,PREP W/WATER^BC-02919^8-oz.^226
+27 ;;^UTILITY(U,$J,112,9646,1)
+28 ;;=.752^.619^7.257^37.611^^^^5.752^.31^^^105.752^296.018^^^^^252.655^12.389^.018
+29 ;;^UTILITY(U,$J,112,9646,2)
+30 ;;=.013^.442^^^^^^^0^.133^^.133
+31 ;;^UTILITY(U,$J,112,9646,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,9647,0)
+34 ;;=SOUPS,TOMATO,CRM,CAMPBELL'S HOMESTYLE^BC-02920^8-oz.^226
+35 ;;^UTILITY(U,$J,112,9647,1)
+36 ;;=.575^.929^8.628^45.133^^^^6.195^.398^^^98.23^358.407^^^^^273.451^10.619^.022
+37 ;;^UTILITY(U,$J,112,9647,2)
+38 ;;=.018^.398^^^^^^^.442
+39 ;;^UTILITY(U,$J,112,9647,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,9648,0)
+42 ;;=SOUPS,TOMATO GARDEN,CRISPY,CAMPBELL'S^BC-02921^cup^233
+43 ;;^UTILITY(U,$J,112,9648,1)
+44 ;;=.601^.129^7.468^33.476^^^^14.592^.386^^^174.249^211.159^^^^^1472.532^5.15^.021
+45 ;;^UTILITY(U,$J,112,9648,2)
+46 ;;=.021^.515
+47 ;;^UTILITY(U,$J,112,9648,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,9649,0)
+50 ;;=SOUPS,TOMATO RICE,CAMPBELL'S OLD FASHIONED^BC-02922^8-oz.^226
+51 ;;^UTILITY(U,$J,112,9649,1)
+52 ;;=.796^.664^9.425^46.903^^^^7.522^.265^^^80.088^323.894^^^^^181.416^6.195^.013
+53 ;;^UTILITY(U,$J,112,9649,2)
+54 ;;=.009^.31^^^^^^^0^.133^^.31
+55 ;;^UTILITY(U,$J,112,9649,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9650,0)
+58 ;;=SOUPS,TOMATO,SPECIAL REQUEST^BC-02923^8-oz.^226
+59 ;;^UTILITY(U,$J,112,9650,1)
+60 ;;=.752^.619^7.257^37.611^^^^5.752^.31^^^105.752^190.265^^^^^252.655^12.389^.018
+61 ;;^UTILITY(U,$J,112,9650,2)
+62 ;;=.013^.442^^^^^^^0^.133^^.133
+63 ;;^UTILITY(U,$J,112,9650,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9651,0)
+66 ;;=SOUPS,TOMATO ZESTY W/HERBS,CAMPBELL'S^BC-02924^8-oz.^226
+67 ;;^UTILITY(U,$J,112,9651,1)
+68 ;;=.929^.354^8.894^42.478^^^^15.044^.398^^^131.416^337.611^^^^^575.221^8.407^.018
+69 ;;^UTILITY(U,$J,112,9651,2)
+70 ;;=.022^.487
+71 ;;^UTILITY(U,$J,112,9651,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,9652,0)
+74 ;;=SOUPS,TORTELLINI & VEG,GOLDEN CLASSIC^BC-02925^8-oz.^226
+75 ;;^UTILITY(U,$J,112,9652,1)
+76 ;;=1.239^.929^5.31^34.956^^^^18.142^.796^^^67.257^380.973^^^^^768.142^1.77^.186
+77 ;;^UTILITY(U,$J,112,9652,2)
+78 ;;=.022^.973
+79 ;;^UTILITY(U,$J,112,9652,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,9653,0)
+82 ;;=SOUPS,TURKEY NOODLE,CAMPBELL'S^BC-02926^8-oz.^226
+83 ;;^UTILITY(U,$J,112,9653,1)
+84 ;;=1.637^.885^3.496^28.319^^^^5.752^.398^^^23.894^388.053^^^^^267.699^0^.04
+85 ;;^UTILITY(U,$J,112,9653,2)
+86 ;;=.035^.575^^^^^^^6.195^.265^^.221
+87 ;;^UTILITY(U,$J,112,9653,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,9654,0)
+90 ;;=SOUPS,TURKEY VEG,CAMPBELL'S^BC-02927^8-oz.^226
+91 ;;^UTILITY(U,$J,112,9654,1)
+92 ;;=1.195^1.195^3.274^28.761^^^^7.522^.265^^^50.885^313.274^^^^^1481.858^.442^.013
+93 ;;^UTILITY(U,$J,112,9654,2)
+94 ;;=.018^.354^^^^^^^2.212^.487^^.133
+95 ;;^UTILITY(U,$J,112,9654,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9655,0)
+98 ;;=SOUPS,VEG BEEF,CAMPBELL'S MANHANDLER^BC-02928^8-oz.^226
+99 ;;^UTILITY(U,$J,112,9655,1)
+100 ;;=1.991^.575^4.071^29.646^^^^6.637^.442^^^48.673^334.956^^^^^916.372^1.327^.013
+101 ;;^UTILITY(U,$J,112,9655,2)
+102 ;;=.022^.442^^^^^^^2.655^.398^^.044^^^^^.708
+103 ;;^UTILITY(U,$J,112,9655,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,9656,0)
+106 ;;=SOUPS,VEG BEEF,SPECIAL REQUEST^BC-02929^8-oz.^226
+107 ;;^UTILITY(U,$J,112,9656,1)
+108 ;;=1.991^.575^4.071^29.646^^^^6.637^.442^^^148.23^206.195^^^^^908.85^1.327^.013