FHINI0FM ; ; 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,9589,0)
;;=SOUPS,BEEF,CAMPBELL'S^BC-02862^8-oz.^226
;;^UTILITY(U,$J,112,9589,1)
;;=2.168^.664^4.248^31.858^^^^5.752^.354^^^53.097^368.584^^^^^628.319^.885^.013
;;^UTILITY(U,$J,112,9589,2)
;;=.022^.442^^^^^^^3.54^.354^^.044
;;^UTILITY(U,$J,112,9589,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9590,0)
;;=SOUPS,BEEF NOODLE,CAMPBELL'S,PREP W/WATER^BC-02863^8-oz.^226
;;^UTILITY(U,$J,112,9590,1)
;;=1.947^.885^3.053^27.876^^^^4.425^.442^^^35.841^369.469^^^^^126.991^0^.04
;;^UTILITY(U,$J,112,9590,2)
;;=.035^.531^^^^^^^5.752^.31^^.442
;;^UTILITY(U,$J,112,9590,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9591,0)
;;=SOUPS,BEEF NOODLE,CAMPBELL'S HOMESTYLE^BC-02864^8-oz.^226
;;^UTILITY(U,$J,112,9591,1)
;;=2.611^1.239^3.274^34.956^^^^4.425^.442^^^54.425^358.85^^^^^42.92^.885^.035
;;^UTILITY(U,$J,112,9591,2)
;;=.044^.752^^^^^^^7.08^.398^^.708
;;^UTILITY(U,$J,112,9591,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9592,0)
;;=SOUPS,BEEFY MUSHROOM,CAMPBELL'S^BC-02865^8-oz.^226
;;^UTILITY(U,$J,112,9592,1)
;;=1.947^1.106^2.212^26.549^^^^2.655^.265^^^34.513^412.832^^^^^0^0^.013
;;^UTILITY(U,$J,112,9592,2)
;;=.022^.398^^^^^^^2.655^.31^^.265
;;^UTILITY(U,$J,112,9592,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9593,0)
;;=SOUPS,BLACK BEAN,CAMPBELL'S,PREP W/WATER^BC-02866^8-oz.^226
;;^UTILITY(U,$J,112,9593,1)
;;=2.345^.664^7.522^45.575^^^^15.929^1.106^^^156.637^419.027^^^^^187.168^0^.027
;;^UTILITY(U,$J,112,9593,2)
;;=.022^.265^^^^^^^0^.265^^.265^^^^^2.168
;;^UTILITY(U,$J,112,9593,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9594,0)
;;=SOUPS,BROCCOLI,CREAMY,CAMPBELL'S^BC-02867^8-oz.^226
;;^UTILITY(U,$J,112,9594,1)
;;=.708^1.239^4.115^30.531^^^^9.292^.221^^^23.009^288.053^^^^^204.867^3.54^.009
;;^UTILITY(U,$J,112,9594,2)
;;=.022^.177
;;^UTILITY(U,$J,112,9594,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9595,0)
;;=SOUPS,CAULIFLOWER,CREAMY,CAMPBELL'S^BC-02868^cup^233
;;^UTILITY(U,$J,112,9595,1)
;;=.644^2.532^4.12^41.631^^^^8.155^.215^^^27.039^354.077^^^^^0^2.575^.013
;;^UTILITY(U,$J,112,9595,2)
;;=.026^.258
;;^UTILITY(U,$J,112,9595,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9596,0)
;;=SOUPS,CELERY,CRM,CAMPBELL'S^BC-02869^8-oz.^226
;;^UTILITY(U,$J,112,9596,1)
;;=.752^2.876^3.496^42.478^^^^13.274^.177^^^53.097^364.159^^^^^141.593^0^.004
;;^UTILITY(U,$J,112,9596,2)
;;=.013^.088^^^^^^^.885^1.106^^1.593
;;^UTILITY(U,$J,112,9596,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9597,0)
;;=SOUPS,CHEESE,CHEDDAR,CAMPBELL'S,PREP W/WATER^BC-02870^8-oz.^226
;;^UTILITY(U,$J,112,9597,1)
;;=1.858^3.407^4.425^55.752^^^^43.805^.221^^^43.363^332.743^^^^^349.558^0^.013
;;^UTILITY(U,$J,112,9597,2)
;;=.049^.133^^^^^^^5.31^1.504^^.929
;;^UTILITY(U,$J,112,9597,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9598,0)
;;=SOUPS,CHEESE,GOLDEN CLASSIC,PREP W/WATER^BC-02871^8-oz.^226
;;^UTILITY(U,$J,112,9598,1)
;;=1.504^4.248^3.894^59.735^^^^65.929^.221^^^19.027^315.929^^^^^242.478^.442^.009
;;^UTILITY(U,$J,112,9598,2)
;;=.04^.088
;;^UTILITY(U,$J,112,9598,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9599,0)
;;=SOUPS,CHEESE,NACHO,CAMPBELL'S,PREP W/WATER^BC-02872^8-oz.^226
;;^UTILITY(U,$J,112,9599,1)
;;=1.726^3.23^2.655^46.46^^^^34.956^.265^^^23.894^328.761^^^^^615.044^2.212^.004
;;^UTILITY(U,$J,112,9599,2)
;;=.027^.133^^^^^^^5.31^2.257^^.929
;;^UTILITY(U,$J,112,9599,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9600,0)
;;=SOUPS,CHICKEN ALPHABET W/VEG,CAMPBELL'S^BC-02873^8-oz.^226
;;^UTILITY(U,$J,112,9600,1)
;;=1.593^.885^4.248^31.416^^^^5.31^.354^^^38.496^344.248^^^^^473.894^.442^.031
;;^UTILITY(U,$J,112,9600,2)
;;=.035^.619^^^^^^^2.655^.265^^.133
;;^UTILITY(U,$J,112,9600,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9601,0)
;;=SOUPS,CHICKEN & STAR,CAMPBELL'S^BC-02874^8-oz.^226
;;^UTILITY(U,$J,112,9601,1)
;;=1.372^.796^2.876^24.336^^^^5.752^.265^^^27.876^386.283^^^^^181.416^0^.027
;;^UTILITY(U,$J,112,9601,2)
;;=.027^.487^^^^^^^3.097^.265^^.221
;;^UTILITY(U,$J,112,9601,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9602,0)
;;=SOUPS,CHICKEN & WILD RICE,GOLDEN CLASSIC^BC-02875^cup^233
;;^UTILITY(U,$J,112,9602,1)
;;=1.502^.987^4.421^32.618^^^^8.155^.172^^^51.073^316.738^^^^^395.279^.858^.017
FHINI0FM ; ; 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,9589,0)
+2 ;;=SOUPS,BEEF,CAMPBELL'S^BC-02862^8-oz.^226
+3 ;;^UTILITY(U,$J,112,9589,1)
+4 ;;=2.168^.664^4.248^31.858^^^^5.752^.354^^^53.097^368.584^^^^^628.319^.885^.013
+5 ;;^UTILITY(U,$J,112,9589,2)
+6 ;;=.022^.442^^^^^^^3.54^.354^^.044
+7 ;;^UTILITY(U,$J,112,9589,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,9590,0)
+10 ;;=SOUPS,BEEF NOODLE,CAMPBELL'S,PREP W/WATER^BC-02863^8-oz.^226
+11 ;;^UTILITY(U,$J,112,9590,1)
+12 ;;=1.947^.885^3.053^27.876^^^^4.425^.442^^^35.841^369.469^^^^^126.991^0^.04
+13 ;;^UTILITY(U,$J,112,9590,2)
+14 ;;=.035^.531^^^^^^^5.752^.31^^.442
+15 ;;^UTILITY(U,$J,112,9590,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,9591,0)
+18 ;;=SOUPS,BEEF NOODLE,CAMPBELL'S HOMESTYLE^BC-02864^8-oz.^226
+19 ;;^UTILITY(U,$J,112,9591,1)
+20 ;;=2.611^1.239^3.274^34.956^^^^4.425^.442^^^54.425^358.85^^^^^42.92^.885^.035
+21 ;;^UTILITY(U,$J,112,9591,2)
+22 ;;=.044^.752^^^^^^^7.08^.398^^.708
+23 ;;^UTILITY(U,$J,112,9591,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,9592,0)
+26 ;;=SOUPS,BEEFY MUSHROOM,CAMPBELL'S^BC-02865^8-oz.^226
+27 ;;^UTILITY(U,$J,112,9592,1)
+28 ;;=1.947^1.106^2.212^26.549^^^^2.655^.265^^^34.513^412.832^^^^^0^0^.013
+29 ;;^UTILITY(U,$J,112,9592,2)
+30 ;;=.022^.398^^^^^^^2.655^.31^^.265
+31 ;;^UTILITY(U,$J,112,9592,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,9593,0)
+34 ;;=SOUPS,BLACK BEAN,CAMPBELL'S,PREP W/WATER^BC-02866^8-oz.^226
+35 ;;^UTILITY(U,$J,112,9593,1)
+36 ;;=2.345^.664^7.522^45.575^^^^15.929^1.106^^^156.637^419.027^^^^^187.168^0^.027
+37 ;;^UTILITY(U,$J,112,9593,2)
+38 ;;=.022^.265^^^^^^^0^.265^^.265^^^^^2.168
+39 ;;^UTILITY(U,$J,112,9593,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,9594,0)
+42 ;;=SOUPS,BROCCOLI,CREAMY,CAMPBELL'S^BC-02867^8-oz.^226
+43 ;;^UTILITY(U,$J,112,9594,1)
+44 ;;=.708^1.239^4.115^30.531^^^^9.292^.221^^^23.009^288.053^^^^^204.867^3.54^.009
+45 ;;^UTILITY(U,$J,112,9594,2)
+46 ;;=.022^.177
+47 ;;^UTILITY(U,$J,112,9594,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,9595,0)
+50 ;;=SOUPS,CAULIFLOWER,CREAMY,CAMPBELL'S^BC-02868^cup^233
+51 ;;^UTILITY(U,$J,112,9595,1)
+52 ;;=.644^2.532^4.12^41.631^^^^8.155^.215^^^27.039^354.077^^^^^0^2.575^.013
+53 ;;^UTILITY(U,$J,112,9595,2)
+54 ;;=.026^.258
+55 ;;^UTILITY(U,$J,112,9595,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9596,0)
+58 ;;=SOUPS,CELERY,CRM,CAMPBELL'S^BC-02869^8-oz.^226
+59 ;;^UTILITY(U,$J,112,9596,1)
+60 ;;=.752^2.876^3.496^42.478^^^^13.274^.177^^^53.097^364.159^^^^^141.593^0^.004
+61 ;;^UTILITY(U,$J,112,9596,2)
+62 ;;=.013^.088^^^^^^^.885^1.106^^1.593
+63 ;;^UTILITY(U,$J,112,9596,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9597,0)
+66 ;;=SOUPS,CHEESE,CHEDDAR,CAMPBELL'S,PREP W/WATER^BC-02870^8-oz.^226
+67 ;;^UTILITY(U,$J,112,9597,1)
+68 ;;=1.858^3.407^4.425^55.752^^^^43.805^.221^^^43.363^332.743^^^^^349.558^0^.013
+69 ;;^UTILITY(U,$J,112,9597,2)
+70 ;;=.049^.133^^^^^^^5.31^1.504^^.929
+71 ;;^UTILITY(U,$J,112,9597,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,9598,0)
+74 ;;=SOUPS,CHEESE,GOLDEN CLASSIC,PREP W/WATER^BC-02871^8-oz.^226
+75 ;;^UTILITY(U,$J,112,9598,1)
+76 ;;=1.504^4.248^3.894^59.735^^^^65.929^.221^^^19.027^315.929^^^^^242.478^.442^.009
+77 ;;^UTILITY(U,$J,112,9598,2)
+78 ;;=.04^.088
+79 ;;^UTILITY(U,$J,112,9598,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,9599,0)
+82 ;;=SOUPS,CHEESE,NACHO,CAMPBELL'S,PREP W/WATER^BC-02872^8-oz.^226
+83 ;;^UTILITY(U,$J,112,9599,1)
+84 ;;=1.726^3.23^2.655^46.46^^^^34.956^.265^^^23.894^328.761^^^^^615.044^2.212^.004
+85 ;;^UTILITY(U,$J,112,9599,2)
+86 ;;=.027^.133^^^^^^^5.31^2.257^^.929
+87 ;;^UTILITY(U,$J,112,9599,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,9600,0)
+90 ;;=SOUPS,CHICKEN ALPHABET W/VEG,CAMPBELL'S^BC-02873^8-oz.^226
+91 ;;^UTILITY(U,$J,112,9600,1)
+92 ;;=1.593^.885^4.248^31.416^^^^5.31^.354^^^38.496^344.248^^^^^473.894^.442^.031
+93 ;;^UTILITY(U,$J,112,9600,2)
+94 ;;=.035^.619^^^^^^^2.655^.265^^.133
+95 ;;^UTILITY(U,$J,112,9600,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9601,0)
+98 ;;=SOUPS,CHICKEN & STAR,CAMPBELL'S^BC-02874^8-oz.^226
+99 ;;^UTILITY(U,$J,112,9601,1)
+100 ;;=1.372^.796^2.876^24.336^^^^5.752^.265^^^27.876^386.283^^^^^181.416^0^.027
+101 ;;^UTILITY(U,$J,112,9601,2)
+102 ;;=.027^.487^^^^^^^3.097^.265^^.221
+103 ;;^UTILITY(U,$J,112,9601,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,9602,0)
+106 ;;=SOUPS,CHICKEN & WILD RICE,GOLDEN CLASSIC^BC-02875^cup^233
+107 ;;^UTILITY(U,$J,112,9602,1)
+108 ;;=1.502^.987^4.421^32.618^^^^8.155^.172^^^51.073^316.738^^^^^395.279^.858^.017
