FHINI0FT ; ; 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,9686,1)
;;=3.941^1.338^6.729^54.647^^^^15.242^.52^^^132.342^396.654^^^^^2074.721^2.974^.015
;;^UTILITY(U,$J,112,9686,2)
;;=.052^1.264
;;^UTILITY(U,$J,112,9686,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9687,0)
;;=SOUPS,CHICKEN CORN CHOWDER,CHUNKY,CAMPBELL'S^BC-02960^9.5-oz.^269
;;^UTILITY(U,$J,112,9687,1)
;;=4.647^6.914^7.695^111.524^^^^12.268^.483^^^111.896^394.424^^^^^790.335^.372^.022
;;^UTILITY(U,$J,112,9687,2)
;;=.059^1.078
;;^UTILITY(U,$J,112,9687,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9688,0)
;;=SOUPS,CHICKEN,CRM,CAMPBELL'S^BC-02961^7.3-oz.^206
;;^UTILITY(U,$J,112,9688,1)
;;=1.165^2.67^3.204^41.262^^^^14.078^.34^^^28.641^410.68^^^^^262.621^0^.01
;;^UTILITY(U,$J,112,9688,2)
;;=.015^.243
;;^UTILITY(U,$J,112,9688,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9689,0)
;;=SOUPS,CHICKEN GUMBO W/SAUSAGE,HOME COOKIN'^BC-02962^10.8-oz.^305
;;^UTILITY(U,$J,112,9689,1)
;;=3.541^1.115^4.262^41.311^^^^20.984^.656^^^69.18^359.672^^^^^1008.197^.656^.026
;;^UTILITY(U,$J,112,9689,2)
;;=.043^1.082
;;^UTILITY(U,$J,112,9689,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9690,0)
;;=SOUPS,CHICKEN MINESTRONE,HOME COOKIN'^BC-02963^10.8-oz.^305
;;^UTILITY(U,$J,112,9690,1)
;;=4.885^2.033^5.574^60.328^^^^22.295^.656^^^136.721^311.803^^^^^680^.984^.062
;;^UTILITY(U,$J,112,9690,2)
;;=.052^1.049
;;^UTILITY(U,$J,112,9690,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9691,0)
;;=SOUPS,CHICKEN MINESTRONE,PROGRESSO^BC-02964^9.5-oz.^269
;;^UTILITY(U,$J,112,9691,1)
;;=4.089^2.23^5.204^55.762^^^^^^^^107.807^453.532
;;^UTILITY(U,$J,112,9691,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9692,0)
;;=SOUPS,CHICKEN MUSHROOM,CREAMY,CHUNKY,CAMPBELL'S^BC-02965^9.4-oz.^266
;;^UTILITY(U,$J,112,9692,1)
;;=3.91^6.09^4.023^86.842^^^^8.271^.489^^^36.842^424.812^^^^^518.421^0^.023
;;^UTILITY(U,$J,112,9692,2)
;;=.06^1.015^^^^^^^18.045
;;^UTILITY(U,$J,112,9692,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9693,0)
;;=SOUPS,CHICKEN NOODLE,CAMPBELL'S^BC-02966^7.3-oz.^206
;;^UTILITY(U,$J,112,9693,1)
;;=1.602^.971^3.447^29.126^^^^6.796^.485^^^30.583^427.184^^^^^165.049^0^.044
;;^UTILITY(U,$J,112,9693,2)
;;=.034^.631
;;^UTILITY(U,$J,112,9693,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9694,0)
;;=SOUPS,CHICKEN NOODLE,CAMPBELL'S EXPRESS^BC-02967^8.6-oz.^244
;;^UTILITY(U,$J,112,9694,1)
;;=4.385^1.025^3.443^40.574^^^^11.475^.533^^^52.459^377.049^^^^^1229.508^1.23^.025
;;^UTILITY(U,$J,112,9694,2)
;;=.049^1.352
;;^UTILITY(U,$J,112,9694,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9695,0)
;;=SOUPS,CHICKEN NOODLE,CAMPBELL'S SOUP-FOR-ONE^BC-02968^7.8-oz.^220
;;^UTILITY(U,$J,112,9695,1)
;;=2.773^1.636^6.136^50.455^^^^11.364^.591^^^64.091^656.818^^^^^685.909^0^.064
;;^UTILITY(U,$J,112,9695,2)
;;=.055^1
;;^UTILITY(U,$J,112,9695,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9696,0)
;;=SOUPS,CHICKEN NOODLE,LOW SODIUM,CAMPBELL'S^BC-02969^7.3-oz.^206
;;^UTILITY(U,$J,112,9696,1)
;;=4.563^1.602^5.534^54.854^^^^10.194^.68^^55.825^89.32^27.67^^^^^656.796^.971^.063
;;^UTILITY(U,$J,112,9696,2)
;;=.121^1.893^^^^^^^21.359^.485^^.34
;;^UTILITY(U,$J,112,9696,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9697,0)
;;=SOUPS,CHICKEN NOODLE,LUNCH BUCKET^BC-02970^8.25-oz.^234
;;^UTILITY(U,$J,112,9697,1)
;;=2.137^1.282^6.41^47.009^^^^^^^^^414.53
;;^UTILITY(U,$J,112,9697,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9698,0)
;;=SOUPS,CHICKEN NOODLE,PROGRESSO^BC-02971^9.5-oz.^269
;;^UTILITY(U,$J,112,9698,1)
;;=4.089^1.487^3.717^48.327^^^^^^^^75.093^368.03
;;^UTILITY(U,$J,112,9698,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9699,0)
;;=SOUPS,CHICKEN NOODLE,CHUNKY,CAMPBELL'S^BC-02972^9.2-oz.^260
;;^UTILITY(U,$J,112,9699,1)
;;=4.5^2.115^6.5^63.077^^^^10.769^.692^^^75.769^370.769^^^^^441.923^0^.038
;;^UTILITY(U,$J,112,9699,2)
;;=.077^1.5
;;^UTILITY(U,$J,112,9699,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9700,0)
;;=SOUPS,CHICKEN NOODLE W/MUSHROOMS,CHUNKY,CAMPBELL'S^BC-02973^9.5-oz.^269
;;^UTILITY(U,$J,112,9700,1)
;;=4.498^2.119^6.506^63.197^^^^10.781^.706^^^75.836^370.632^^^^^442.007^0^.041
;;^UTILITY(U,$J,112,9700,2)
;;=.078^1.524
FHINI0FT ; ; 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,9686,1)
+2 ;;=3.941^1.338^6.729^54.647^^^^15.242^.52^^^132.342^396.654^^^^^2074.721^2.974^.015
+3 ;;^UTILITY(U,$J,112,9686,2)
+4 ;;=.052^1.264
+5 ;;^UTILITY(U,$J,112,9686,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,9687,0)
+8 ;;=SOUPS,CHICKEN CORN CHOWDER,CHUNKY,CAMPBELL'S^BC-02960^9.5-oz.^269
+9 ;;^UTILITY(U,$J,112,9687,1)
+10 ;;=4.647^6.914^7.695^111.524^^^^12.268^.483^^^111.896^394.424^^^^^790.335^.372^.022
+11 ;;^UTILITY(U,$J,112,9687,2)
+12 ;;=.059^1.078
+13 ;;^UTILITY(U,$J,112,9687,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,9688,0)
+16 ;;=SOUPS,CHICKEN,CRM,CAMPBELL'S^BC-02961^7.3-oz.^206
+17 ;;^UTILITY(U,$J,112,9688,1)
+18 ;;=1.165^2.67^3.204^41.262^^^^14.078^.34^^^28.641^410.68^^^^^262.621^0^.01
+19 ;;^UTILITY(U,$J,112,9688,2)
+20 ;;=.015^.243
+21 ;;^UTILITY(U,$J,112,9688,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,9689,0)
+24 ;;=SOUPS,CHICKEN GUMBO W/SAUSAGE,HOME COOKIN'^BC-02962^10.8-oz.^305
+25 ;;^UTILITY(U,$J,112,9689,1)
+26 ;;=3.541^1.115^4.262^41.311^^^^20.984^.656^^^69.18^359.672^^^^^1008.197^.656^.026
+27 ;;^UTILITY(U,$J,112,9689,2)
+28 ;;=.043^1.082
+29 ;;^UTILITY(U,$J,112,9689,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9690,0)
+32 ;;=SOUPS,CHICKEN MINESTRONE,HOME COOKIN'^BC-02963^10.8-oz.^305
+33 ;;^UTILITY(U,$J,112,9690,1)
+34 ;;=4.885^2.033^5.574^60.328^^^^22.295^.656^^^136.721^311.803^^^^^680^.984^.062
+35 ;;^UTILITY(U,$J,112,9690,2)
+36 ;;=.052^1.049
+37 ;;^UTILITY(U,$J,112,9690,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,9691,0)
+40 ;;=SOUPS,CHICKEN MINESTRONE,PROGRESSO^BC-02964^9.5-oz.^269
+41 ;;^UTILITY(U,$J,112,9691,1)
+42 ;;=4.089^2.23^5.204^55.762^^^^^^^^107.807^453.532
+43 ;;^UTILITY(U,$J,112,9691,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9692,0)
+46 ;;=SOUPS,CHICKEN MUSHROOM,CREAMY,CHUNKY,CAMPBELL'S^BC-02965^9.4-oz.^266
+47 ;;^UTILITY(U,$J,112,9692,1)
+48 ;;=3.91^6.09^4.023^86.842^^^^8.271^.489^^^36.842^424.812^^^^^518.421^0^.023
+49 ;;^UTILITY(U,$J,112,9692,2)
+50 ;;=.06^1.015^^^^^^^18.045
+51 ;;^UTILITY(U,$J,112,9692,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9693,0)
+54 ;;=SOUPS,CHICKEN NOODLE,CAMPBELL'S^BC-02966^7.3-oz.^206
+55 ;;^UTILITY(U,$J,112,9693,1)
+56 ;;=1.602^.971^3.447^29.126^^^^6.796^.485^^^30.583^427.184^^^^^165.049^0^.044
+57 ;;^UTILITY(U,$J,112,9693,2)
+58 ;;=.034^.631
+59 ;;^UTILITY(U,$J,112,9693,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9694,0)
+62 ;;=SOUPS,CHICKEN NOODLE,CAMPBELL'S EXPRESS^BC-02967^8.6-oz.^244
+63 ;;^UTILITY(U,$J,112,9694,1)
+64 ;;=4.385^1.025^3.443^40.574^^^^11.475^.533^^^52.459^377.049^^^^^1229.508^1.23^.025
+65 ;;^UTILITY(U,$J,112,9694,2)
+66 ;;=.049^1.352
+67 ;;^UTILITY(U,$J,112,9694,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9695,0)
+70 ;;=SOUPS,CHICKEN NOODLE,CAMPBELL'S SOUP-FOR-ONE^BC-02968^7.8-oz.^220
+71 ;;^UTILITY(U,$J,112,9695,1)
+72 ;;=2.773^1.636^6.136^50.455^^^^11.364^.591^^^64.091^656.818^^^^^685.909^0^.064
+73 ;;^UTILITY(U,$J,112,9695,2)
+74 ;;=.055^1
+75 ;;^UTILITY(U,$J,112,9695,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9696,0)
+78 ;;=SOUPS,CHICKEN NOODLE,LOW SODIUM,CAMPBELL'S^BC-02969^7.3-oz.^206
+79 ;;^UTILITY(U,$J,112,9696,1)
+80 ;;=4.563^1.602^5.534^54.854^^^^10.194^.68^^55.825^89.32^27.67^^^^^656.796^.971^.063
+81 ;;^UTILITY(U,$J,112,9696,2)
+82 ;;=.121^1.893^^^^^^^21.359^.485^^.34
+83 ;;^UTILITY(U,$J,112,9696,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9697,0)
+86 ;;=SOUPS,CHICKEN NOODLE,LUNCH BUCKET^BC-02970^8.25-oz.^234
+87 ;;^UTILITY(U,$J,112,9697,1)
+88 ;;=2.137^1.282^6.41^47.009^^^^^^^^^414.53
+89 ;;^UTILITY(U,$J,112,9697,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,9698,0)
+92 ;;=SOUPS,CHICKEN NOODLE,PROGRESSO^BC-02971^9.5-oz.^269
+93 ;;^UTILITY(U,$J,112,9698,1)
+94 ;;=4.089^1.487^3.717^48.327^^^^^^^^75.093^368.03
+95 ;;^UTILITY(U,$J,112,9698,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9699,0)
+98 ;;=SOUPS,CHICKEN NOODLE,CHUNKY,CAMPBELL'S^BC-02972^9.2-oz.^260
+99 ;;^UTILITY(U,$J,112,9699,1)
+100 ;;=4.5^2.115^6.5^63.077^^^^10.769^.692^^^75.769^370.769^^^^^441.923^0^.038
+101 ;;^UTILITY(U,$J,112,9699,2)
+102 ;;=.077^1.5
+103 ;;^UTILITY(U,$J,112,9699,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,9700,0)
+106 ;;=SOUPS,CHICKEN NOODLE W/MUSHROOMS,CHUNKY,CAMPBELL'S^BC-02973^9.5-oz.^269
+107 ;;^UTILITY(U,$J,112,9700,1)
+108 ;;=4.498^2.119^6.506^63.197^^^^10.781^.706^^^75.836^370.632^^^^^442.007^0^.041
+109 ;;^UTILITY(U,$J,112,9700,2)
+110 ;;=.078^1.524
