FHINI0G0 ; ; 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,9788,1)
;;=11.818^10.909^57.273^381.818^^^^272.727^1.818^54.545^481.818^627.273^3881.818^.909^0^0^^390.909^9.091^0
;;^UTILITY(U,$J,112,9788,2)
;;=.909^4.545^^^^^^^9.091
;;^UTILITY(U,$J,112,9788,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9789,0)
;;=SOUPS,CAULIFLOWER,KNORR^BC-03062^8-floz.^20
;;^UTILITY(U,$J,112,9789,1)
;;=16.5^9.5^57^400^4.5^^^250^2.5^^^^3650^^^^^350^115^.5
;;^UTILITY(U,$J,112,9789,2)
;;=.6^1.5
;;^UTILITY(U,$J,112,9789,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9790,0)
;;=SOUPS,CHICKEN & NOODLES,LIPTON CUP-A SOUP^BC-03063^6-floz.^29
;;^UTILITY(U,$J,112,9790,1)
;;=13.793^5.517^68.966^379.31^^^^55.172^4.828^55.172^244.828^324.138^2024.138^1.379^.345^0^^2420.69^0^.69
;;^UTILITY(U,$J,112,9790,2)
;;=.345^10.69
;;^UTILITY(U,$J,112,9790,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9791,0)
;;=SOUPS,CHICKEN BROTH,LIPTON CUP-A-SOUP^BC-03064^6-floz.^6
;;^UTILITY(U,$J,112,9791,1)
;;=6.667^10^55^333.333^^^^0^0^0^0^^10083.333^0^0^0^^0^0^0
;;^UTILITY(U,$J,112,9791,2)
;;=0^0^^^^^^^16.667
;;^UTILITY(U,$J,112,9791,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9792,0)
;;=SOUPS,CHICKEN,COUNTRY STYLE,LIPTON CUP-A-SOUP^BC-03065^6-floz.^18
;;^UTILITY(U,$J,112,9792,1)
;;=9.444^32.778^65.556^594.444^^^^111.111^1.667^22.222^244.444^600^4205.556^.556^0^0^^0^0^.556
;;^UTILITY(U,$J,112,9792,2)
;;=.556^1.111
;;^UTILITY(U,$J,112,9792,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9793,0)
;;=SOUPS,CHICKEN,COUNTRY STYLE HEARTY,LIPTON^BC-03066^6-floz.^19
;;^UTILITY(U,$J,112,9793,1)
;;=20^5.789^58.421^363.158^^^^42.105^3.158^52.632^278.947^405.263^3621.053^1.053^0^.526^^147.368^0^1.053
;;^UTILITY(U,$J,112,9793,2)
;;=.526^7.895
;;^UTILITY(U,$J,112,9793,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9794,0)
;;=SOUPS,CHICKEN,CRM,LIPTON CUP-A-SOUP^BC-03067^6-floz.^18
;;^UTILITY(U,$J,112,9794,1)
;;=7.778^24.444^53.889^466.667^^^^88.889^1.111^22.222^244.444^600^4205.556^.556^0^0^^0^0^.556
;;^UTILITY(U,$J,112,9794,2)
;;=.556^1.111
;;^UTILITY(U,$J,112,9794,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9795,0)
;;=SOUPS,CHICKEN,CREAMY,LIPTON CUP-A-SOUP^BC-03068^7-floz.^38
;;^UTILITY(U,$J,112,9795,1)
;;=13.421^21.579^56.316^471.053^^^^63.158^4.211^42.105^207.895^252.632^1681.579^1.316^.263^0^^0^0^.789
;;^UTILITY(U,$J,112,9795,2)
;;=.263^9.211
;;^UTILITY(U,$J,112,9795,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9796,0)
;;=SOUPS,CHICKENE,CREAMY W/VEG,LIPTON CUP-A-SOUP^BC-03069^6-floz.^22
;;^UTILITY(U,$J,112,9796,1)
;;=7.727^14.091^65.455^422.727^^^^77.273^1.364^27.273^254.545^518.182^3218.182^.909^0^0^^4581.818^0^.455
;;^UTILITY(U,$J,112,9796,2)
;;=.455^3.182
;;^UTILITY(U,$J,112,9796,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9797,0)
;;=SOUPS,CHICKEN NOODLE,HEARTY,LIPTON^BC-03070^8-floz.^22
;;^UTILITY(U,$J,112,9797,1)
;;=20^5.909^60.455^377.273^^^^45.455^3.636^45.455^245.455^295.455^3422.727^1.818^0^.455^^177.273^0^.909
;;^UTILITY(U,$J,112,9797,2)
;;=.455^9.545
;;^UTILITY(U,$J,112,9797,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9798,0)
;;=SOUPS,CHICKEN NOODLE,KNORR^BC-03071^8-floz.^28
;;^UTILITY(U,$J,112,9798,1)
;;=14.286^5.357^63.929^357.143^6.786^^^50^1.786^^^^2535.714^^^^^167.857^0^.071
;;^UTILITY(U,$J,112,9798,2)
;;=.036^2.143
;;^UTILITY(U,$J,112,9798,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9799,0)
;;=SOUPS,CHICKEN NOODLE W/CHICKEN MEAT,LIPTON^BC-03072^6-floz.^14
;;^UTILITY(U,$J,112,9799,1)
;;=18.571^7.143^47.143^328.571^^^^71.429^2.857^42.857^242.857^385.714^4714.286^1.429^0^0^^71.429^7.143^.714
;;^UTILITY(U,$J,112,9799,2)
;;=.714^7.143
;;^UTILITY(U,$J,112,9799,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9800,0)
;;=SOUPS,CHICKEN NOODLE W/DICED WHITE CHICKEN,LIPTON^BC-03073^8-floz.^21
;;^UTILITY(U,$J,112,9800,1)
;;=20.476^8.571^57.619^385.714^^^^47.619^3.333^52.381^204.762^^3785.714^1.429^0^.476^^190.476^0^.952
;;^UTILITY(U,$J,112,9800,2)
;;=.476^8.095
;;^UTILITY(U,$J,112,9800,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9801,0)
;;=SOUPS,CHICKEN NOODLE W/MEAT,CAMPBELL'S^BC-03074^.92-oz.^26
;;^UTILITY(U,$J,112,9801,1)
;;=21.923^6.538^57.692^380.769^^^^34.615^3.462^^^342.308^3096.154^^^^^0^0^.577
FHINI0G0 ; ; 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,9788,1)
+2 ;;=11.818^10.909^57.273^381.818^^^^272.727^1.818^54.545^481.818^627.273^3881.818^.909^0^0^^390.909^9.091^0
+3 ;;^UTILITY(U,$J,112,9788,2)
+4 ;;=.909^4.545^^^^^^^9.091
+5 ;;^UTILITY(U,$J,112,9788,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,9789,0)
+8 ;;=SOUPS,CAULIFLOWER,KNORR^BC-03062^8-floz.^20
+9 ;;^UTILITY(U,$J,112,9789,1)
+10 ;;=16.5^9.5^57^400^4.5^^^250^2.5^^^^3650^^^^^350^115^.5
+11 ;;^UTILITY(U,$J,112,9789,2)
+12 ;;=.6^1.5
+13 ;;^UTILITY(U,$J,112,9789,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,9790,0)
+16 ;;=SOUPS,CHICKEN & NOODLES,LIPTON CUP-A SOUP^BC-03063^6-floz.^29
+17 ;;^UTILITY(U,$J,112,9790,1)
+18 ;;=13.793^5.517^68.966^379.31^^^^55.172^4.828^55.172^244.828^324.138^2024.138^1.379^.345^0^^2420.69^0^.69
+19 ;;^UTILITY(U,$J,112,9790,2)
+20 ;;=.345^10.69
+21 ;;^UTILITY(U,$J,112,9790,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,9791,0)
+24 ;;=SOUPS,CHICKEN BROTH,LIPTON CUP-A-SOUP^BC-03064^6-floz.^6
+25 ;;^UTILITY(U,$J,112,9791,1)
+26 ;;=6.667^10^55^333.333^^^^0^0^0^0^^10083.333^0^0^0^^0^0^0
+27 ;;^UTILITY(U,$J,112,9791,2)
+28 ;;=0^0^^^^^^^16.667
+29 ;;^UTILITY(U,$J,112,9791,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9792,0)
+32 ;;=SOUPS,CHICKEN,COUNTRY STYLE,LIPTON CUP-A-SOUP^BC-03065^6-floz.^18
+33 ;;^UTILITY(U,$J,112,9792,1)
+34 ;;=9.444^32.778^65.556^594.444^^^^111.111^1.667^22.222^244.444^600^4205.556^.556^0^0^^0^0^.556
+35 ;;^UTILITY(U,$J,112,9792,2)
+36 ;;=.556^1.111
+37 ;;^UTILITY(U,$J,112,9792,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,9793,0)
+40 ;;=SOUPS,CHICKEN,COUNTRY STYLE HEARTY,LIPTON^BC-03066^6-floz.^19
+41 ;;^UTILITY(U,$J,112,9793,1)
+42 ;;=20^5.789^58.421^363.158^^^^42.105^3.158^52.632^278.947^405.263^3621.053^1.053^0^.526^^147.368^0^1.053
+43 ;;^UTILITY(U,$J,112,9793,2)
+44 ;;=.526^7.895
+45 ;;^UTILITY(U,$J,112,9793,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,9794,0)
+48 ;;=SOUPS,CHICKEN,CRM,LIPTON CUP-A-SOUP^BC-03067^6-floz.^18
+49 ;;^UTILITY(U,$J,112,9794,1)
+50 ;;=7.778^24.444^53.889^466.667^^^^88.889^1.111^22.222^244.444^600^4205.556^.556^0^0^^0^0^.556
+51 ;;^UTILITY(U,$J,112,9794,2)
+52 ;;=.556^1.111
+53 ;;^UTILITY(U,$J,112,9794,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,9795,0)
+56 ;;=SOUPS,CHICKEN,CREAMY,LIPTON CUP-A-SOUP^BC-03068^7-floz.^38
+57 ;;^UTILITY(U,$J,112,9795,1)
+58 ;;=13.421^21.579^56.316^471.053^^^^63.158^4.211^42.105^207.895^252.632^1681.579^1.316^.263^0^^0^0^.789
+59 ;;^UTILITY(U,$J,112,9795,2)
+60 ;;=.263^9.211
+61 ;;^UTILITY(U,$J,112,9795,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,9796,0)
+64 ;;=SOUPS,CHICKENE,CREAMY W/VEG,LIPTON CUP-A-SOUP^BC-03069^6-floz.^22
+65 ;;^UTILITY(U,$J,112,9796,1)
+66 ;;=7.727^14.091^65.455^422.727^^^^77.273^1.364^27.273^254.545^518.182^3218.182^.909^0^0^^4581.818^0^.455
+67 ;;^UTILITY(U,$J,112,9796,2)
+68 ;;=.455^3.182
+69 ;;^UTILITY(U,$J,112,9796,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9797,0)
+72 ;;=SOUPS,CHICKEN NOODLE,HEARTY,LIPTON^BC-03070^8-floz.^22
+73 ;;^UTILITY(U,$J,112,9797,1)
+74 ;;=20^5.909^60.455^377.273^^^^45.455^3.636^45.455^245.455^295.455^3422.727^1.818^0^.455^^177.273^0^.909
+75 ;;^UTILITY(U,$J,112,9797,2)
+76 ;;=.455^9.545
+77 ;;^UTILITY(U,$J,112,9797,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,9798,0)
+80 ;;=SOUPS,CHICKEN NOODLE,KNORR^BC-03071^8-floz.^28
+81 ;;^UTILITY(U,$J,112,9798,1)
+82 ;;=14.286^5.357^63.929^357.143^6.786^^^50^1.786^^^^2535.714^^^^^167.857^0^.071
+83 ;;^UTILITY(U,$J,112,9798,2)
+84 ;;=.036^2.143
+85 ;;^UTILITY(U,$J,112,9798,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,9799,0)
+88 ;;=SOUPS,CHICKEN NOODLE W/CHICKEN MEAT,LIPTON^BC-03072^6-floz.^14
+89 ;;^UTILITY(U,$J,112,9799,1)
+90 ;;=18.571^7.143^47.143^328.571^^^^71.429^2.857^42.857^242.857^385.714^4714.286^1.429^0^0^^71.429^7.143^.714
+91 ;;^UTILITY(U,$J,112,9799,2)
+92 ;;=.714^7.143
+93 ;;^UTILITY(U,$J,112,9799,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,9800,0)
+96 ;;=SOUPS,CHICKEN NOODLE W/DICED WHITE CHICKEN,LIPTON^BC-03073^8-floz.^21
+97 ;;^UTILITY(U,$J,112,9800,1)
+98 ;;=20.476^8.571^57.619^385.714^^^^47.619^3.333^52.381^204.762^^3785.714^1.429^0^.476^^190.476^0^.952
+99 ;;^UTILITY(U,$J,112,9800,2)
+100 ;;=.476^8.095
+101 ;;^UTILITY(U,$J,112,9800,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,9801,0)
+104 ;;=SOUPS,CHICKEN NOODLE W/MEAT,CAMPBELL'S^BC-03074^.92-oz.^26
+105 ;;^UTILITY(U,$J,112,9801,1)
+106 ;;=21.923^6.538^57.692^380.769^^^^34.615^3.462^^^342.308^3096.154^^^^^0^0^.577
