FHINI0G2 ; ; 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,9815,2)
;;=.577^8.654
;;^UTILITY(U,$J,112,9815,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9816,0)
;;=SOUPS,PEA,GREEN,LIPTON CUP-A-SOUP^BC-03089^6-floz.^26
;;^UTILITY(U,$J,112,9816,1)
;;=16.154^16.154^55.385^434.615^^^^0^4.615^0^0^^2126.923^0^0^0^^361.538^0^.769
;;^UTILITY(U,$J,112,9816,2)
;;=.385^3.077
;;^UTILITY(U,$J,112,9816,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9817,0)
;;=SOUPS,RAMEN NOODLE,BEEF,FAT FRIED,CAMPBELL'S^BC-03090^1.5-oz.^43
;;^UTILITY(U,$J,112,9817,1)
;;=11.628^17.907^60.233^448.837^^^^55.814^3.721^^^106.977^2348.837^^^^^0^0^.488
;;^UTILITY(U,$J,112,9817,2)
;;=.372^4.884
;;^UTILITY(U,$J,112,9817,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9818,0)
;;=SOUPS,RAMEN NOODLE,BEEF,LOW FAT,CAMPBELL'S^BC-03091^1.5-oz.^43
;;^UTILITY(U,$J,112,9818,1)
;;=10.93^1.395^74.186^353.488^^^^32.558^4.419^^^130.233^2079.07^^^^^0^0^.372
;;^UTILITY(U,$J,112,9818,2)
;;=.302^3.256
;;^UTILITY(U,$J,112,9818,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9819,0)
;;=SOUPS,RAMEN NOODLE,BEEF W/VEG,CAMPBELL'S^BC-03092^2.2-oz.^62
;;^UTILITY(U,$J,112,9819,1)
;;=8.871^18.871^61.129^450^^^^41.935^4.516^^^116.129^2417.742^^^^^1114.516^1.613^.274
;;^UTILITY(U,$J,112,9819,2)
;;=.113^4.677
;;^UTILITY(U,$J,112,9819,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9820,0)
;;=SOUPS,RAMEN NOODLE,BEEF W/VEG,LOW FAT,CAMPBELL'S^BC-03093^2.2-oz.^62
;;^UTILITY(U,$J,112,9820,1)
;;=11.774^1.774^74.839^361.29^^^^48.387^4.355^^^259.677^2530.645^^^^^2787.097^3.226^.194
;;^UTILITY(U,$J,112,9820,2)
;;=.258^3.387
;;^UTILITY(U,$J,112,9820,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9821,0)
;;=SOUPS,RAMEN NOODLE,CHICKEN,FAT FRIED,CAMPBELL'S^BC-03094^1.5-oz.^43
;;^UTILITY(U,$J,112,9821,1)
;;=12.093^17.907^60.233^451.163^^^^48.837^3.721^^^113.953^2265.116^^^^^0^0^.465
;;^UTILITY(U,$J,112,9821,2)
;;=.302^5.581
;;^UTILITY(U,$J,112,9821,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9822,0)
;;=SOUPS,RAMEN NOODLE,CHICKEN,LOW FAT,CAMPBELL'S^BC-03095^1.5-oz.^43
;;^UTILITY(U,$J,112,9822,1)
;;=10.93^1.628^73.488^351.163^^^^32.558^4.186^^^151.163^2186.047^^^^^0^0^.372
;;^UTILITY(U,$J,112,9822,2)
;;=.302^3.488
;;^UTILITY(U,$J,112,9822,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9823,0)
;;=SOUPS,RAMEN NOODLE,CHICKEN W/VEG,CAMPBELL'S^BC-03096^2.2-oz.^62
;;^UTILITY(U,$J,112,9823,1)
;;=9.032^18.548^61.29^448.387^^^^33.871^4.355^^^91.935^2719.355^^^^^948.387^3.226^.21
;;^UTILITY(U,$J,112,9823,2)
;;=.113^4.355
;;^UTILITY(U,$J,112,9823,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9824,0)
;;=SOUPS,RAMEN NOODLE,CHICKEN W/VEG,LOW FAT,CAMPBELL'S^BC-03097^2.2-oz.^67
;;^UTILITY(U,$J,112,9824,1)
;;=11.045^1.791^67.015^328.358^^^^38.806^3.881^^^237.313^2574.627^^^^^2646.269^2.985^.224
;;^UTILITY(U,$J,112,9824,2)
;;=.239^3.134
;;^UTILITY(U,$J,112,9824,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9825,0)
;;=SOUPS,RAMEN NOODLE,ORIENTAL,FAT FRIED,CAMPBELL'S^BC-03098^1.5-oz.^43
;;^UTILITY(U,$J,112,9825,1)
;;=12.093^16.977^61.628^448.837^^^^62.791^3.721^^^111.628^2158.14^^^^^0^0^.488
;;^UTILITY(U,$J,112,9825,2)
;;=.372^5.349
;;^UTILITY(U,$J,112,9825,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9826,0)
;;=SOUPS,ORIENTAL,LOW FAT,CAMPBELL'S^BC-03099^1.5-oz.^43
;;^UTILITY(U,$J,112,9826,1)
;;=10.698^1.86^73.023^351.163^^^^34.884^4.186^^^134.884^2188.372^^^^^0^0^.372
;;^UTILITY(U,$J,112,9826,2)
;;=.279^3.256
;;^UTILITY(U,$J,112,9826,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9827,0)
;;=SOUPS,RING-O-NOODLE W/CHICKEN BROTH-LIPTON^BC-03100^8-floz.^18
;;^UTILITY(U,$J,112,9827,1)
;;=11.667^8.333^61.667^372.222^^^^27.778^2.222^^^^3933.333^^^^^27.778^0^.556
;;^UTILITY(U,$J,112,9827,2)
;;=.556^4.444
;;^UTILITY(U,$J,112,9827,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9828,0)
;;=SOUPS,TOMATO & HERB,CREAMY LITE,LIPTON CUP-A-SOUP^BC-03101^6-floz.^19
;;^UTILITY(U,$J,112,9828,1)
;;=8.421^1.579^74.211^347.368^^^^247.368^1.579^78.947^321.053^1731.579^1605.263^.526^.526^.526^^2768.421^15.789^0
;;^UTILITY(U,$J,112,9828,2)
;;=.526^3.684^^^^^^^10.526
;;^UTILITY(U,$J,112,9828,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9829,0)
;;=SOUPS,TOMATO,LIPTON CUP-A-SOUP^BC-03102^6-floz.^28
FHINI0G2 ; ; 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,9815,2)
+2 ;;=.577^8.654
+3 ;;^UTILITY(U,$J,112,9815,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9816,0)
+6 ;;=SOUPS,PEA,GREEN,LIPTON CUP-A-SOUP^BC-03089^6-floz.^26
+7 ;;^UTILITY(U,$J,112,9816,1)
+8 ;;=16.154^16.154^55.385^434.615^^^^0^4.615^0^0^^2126.923^0^0^0^^361.538^0^.769
+9 ;;^UTILITY(U,$J,112,9816,2)
+10 ;;=.385^3.077
+11 ;;^UTILITY(U,$J,112,9816,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9817,0)
+14 ;;=SOUPS,RAMEN NOODLE,BEEF,FAT FRIED,CAMPBELL'S^BC-03090^1.5-oz.^43
+15 ;;^UTILITY(U,$J,112,9817,1)
+16 ;;=11.628^17.907^60.233^448.837^^^^55.814^3.721^^^106.977^2348.837^^^^^0^0^.488
+17 ;;^UTILITY(U,$J,112,9817,2)
+18 ;;=.372^4.884
+19 ;;^UTILITY(U,$J,112,9817,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9818,0)
+22 ;;=SOUPS,RAMEN NOODLE,BEEF,LOW FAT,CAMPBELL'S^BC-03091^1.5-oz.^43
+23 ;;^UTILITY(U,$J,112,9818,1)
+24 ;;=10.93^1.395^74.186^353.488^^^^32.558^4.419^^^130.233^2079.07^^^^^0^0^.372
+25 ;;^UTILITY(U,$J,112,9818,2)
+26 ;;=.302^3.256
+27 ;;^UTILITY(U,$J,112,9818,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9819,0)
+30 ;;=SOUPS,RAMEN NOODLE,BEEF W/VEG,CAMPBELL'S^BC-03092^2.2-oz.^62
+31 ;;^UTILITY(U,$J,112,9819,1)
+32 ;;=8.871^18.871^61.129^450^^^^41.935^4.516^^^116.129^2417.742^^^^^1114.516^1.613^.274
+33 ;;^UTILITY(U,$J,112,9819,2)
+34 ;;=.113^4.677
+35 ;;^UTILITY(U,$J,112,9819,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9820,0)
+38 ;;=SOUPS,RAMEN NOODLE,BEEF W/VEG,LOW FAT,CAMPBELL'S^BC-03093^2.2-oz.^62
+39 ;;^UTILITY(U,$J,112,9820,1)
+40 ;;=11.774^1.774^74.839^361.29^^^^48.387^4.355^^^259.677^2530.645^^^^^2787.097^3.226^.194
+41 ;;^UTILITY(U,$J,112,9820,2)
+42 ;;=.258^3.387
+43 ;;^UTILITY(U,$J,112,9820,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9821,0)
+46 ;;=SOUPS,RAMEN NOODLE,CHICKEN,FAT FRIED,CAMPBELL'S^BC-03094^1.5-oz.^43
+47 ;;^UTILITY(U,$J,112,9821,1)
+48 ;;=12.093^17.907^60.233^451.163^^^^48.837^3.721^^^113.953^2265.116^^^^^0^0^.465
+49 ;;^UTILITY(U,$J,112,9821,2)
+50 ;;=.302^5.581
+51 ;;^UTILITY(U,$J,112,9821,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9822,0)
+54 ;;=SOUPS,RAMEN NOODLE,CHICKEN,LOW FAT,CAMPBELL'S^BC-03095^1.5-oz.^43
+55 ;;^UTILITY(U,$J,112,9822,1)
+56 ;;=10.93^1.628^73.488^351.163^^^^32.558^4.186^^^151.163^2186.047^^^^^0^0^.372
+57 ;;^UTILITY(U,$J,112,9822,2)
+58 ;;=.302^3.488
+59 ;;^UTILITY(U,$J,112,9822,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9823,0)
+62 ;;=SOUPS,RAMEN NOODLE,CHICKEN W/VEG,CAMPBELL'S^BC-03096^2.2-oz.^62
+63 ;;^UTILITY(U,$J,112,9823,1)
+64 ;;=9.032^18.548^61.29^448.387^^^^33.871^4.355^^^91.935^2719.355^^^^^948.387^3.226^.21
+65 ;;^UTILITY(U,$J,112,9823,2)
+66 ;;=.113^4.355
+67 ;;^UTILITY(U,$J,112,9823,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9824,0)
+70 ;;=SOUPS,RAMEN NOODLE,CHICKEN W/VEG,LOW FAT,CAMPBELL'S^BC-03097^2.2-oz.^67
+71 ;;^UTILITY(U,$J,112,9824,1)
+72 ;;=11.045^1.791^67.015^328.358^^^^38.806^3.881^^^237.313^2574.627^^^^^2646.269^2.985^.224
+73 ;;^UTILITY(U,$J,112,9824,2)
+74 ;;=.239^3.134
+75 ;;^UTILITY(U,$J,112,9824,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9825,0)
+78 ;;=SOUPS,RAMEN NOODLE,ORIENTAL,FAT FRIED,CAMPBELL'S^BC-03098^1.5-oz.^43
+79 ;;^UTILITY(U,$J,112,9825,1)
+80 ;;=12.093^16.977^61.628^448.837^^^^62.791^3.721^^^111.628^2158.14^^^^^0^0^.488
+81 ;;^UTILITY(U,$J,112,9825,2)
+82 ;;=.372^5.349
+83 ;;^UTILITY(U,$J,112,9825,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9826,0)
+86 ;;=SOUPS,ORIENTAL,LOW FAT,CAMPBELL'S^BC-03099^1.5-oz.^43
+87 ;;^UTILITY(U,$J,112,9826,1)
+88 ;;=10.698^1.86^73.023^351.163^^^^34.884^4.186^^^134.884^2188.372^^^^^0^0^.372
+89 ;;^UTILITY(U,$J,112,9826,2)
+90 ;;=.279^3.256
+91 ;;^UTILITY(U,$J,112,9826,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9827,0)
+94 ;;=SOUPS,RING-O-NOODLE W/CHICKEN BROTH-LIPTON^BC-03100^8-floz.^18
+95 ;;^UTILITY(U,$J,112,9827,1)
+96 ;;=11.667^8.333^61.667^372.222^^^^27.778^2.222^^^^3933.333^^^^^27.778^0^.556
+97 ;;^UTILITY(U,$J,112,9827,2)
+98 ;;=.556^4.444
+99 ;;^UTILITY(U,$J,112,9827,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9828,0)
+102 ;;=SOUPS,TOMATO & HERB,CREAMY LITE,LIPTON CUP-A-SOUP^BC-03101^6-floz.^19
+103 ;;^UTILITY(U,$J,112,9828,1)
+104 ;;=8.421^1.579^74.211^347.368^^^^247.368^1.579^78.947^321.053^1731.579^1605.263^.526^.526^.526^^2768.421^15.789^0
+105 ;;^UTILITY(U,$J,112,9828,2)
+106 ;;=.526^3.684^^^^^^^10.526
+107 ;;^UTILITY(U,$J,112,9828,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,9829,0)
+110 ;;=SOUPS,TOMATO,LIPTON CUP-A-SOUP^BC-03102^6-floz.^28
