FHINI0FY ; ; 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,9758,2)
;;=.058^1.068^^^^^^^2.427^.631^^.388
;;^UTILITY(U,$J,112,9758,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9759,0)
;;=SOUPS,TOMATO W/VEG & MACARONI,PROGRESSO^BC-03032^9.5-oz.^269
;;^UTILITY(U,$J,112,9759,1)
;;=1.115^.743^8.922^44.61^^^^^^^^141.264^468.401
;;^UTILITY(U,$J,112,9759,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9760,0)
;;=SOUPS,TORTELLINI,PROGRESSO^BC-03033^9.5-oz.^269
;;^UTILITY(U,$J,112,9760,1)
;;=1.487^1.115^4.089^29.74^^^^^^^^104.089^401.487
;;^UTILITY(U,$J,112,9760,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9761,0)
;;=SOUPS,TORTILLA,CHUNKY,CAMPBELL'S^BC-03034^10.76-oz.^305
;;^UTILITY(U,$J,112,9761,1)
;;=5.607^3.148^11.279^96.066^^^^33.115^1.148^^^127.869^339.016^^^^^219.344^3.934^.016
;;^UTILITY(U,$J,112,9761,2)
;;=.036^.852
;;^UTILITY(U,$J,112,9761,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9762,0)
;;=SOUPS,TURKEY NOODLE,LOW NA,CAMPBELL'S^BC-03035^7.2-oz.^206
;;^UTILITY(U,$J,112,9762,1)
;;=1.553^1.068^3.641^30.583^^^^5.34^.485^^^29.126^10.194^^^^^33.981^0^.034
;;^UTILITY(U,$J,112,9762,2)
;;=.029^.631
;;^UTILITY(U,$J,112,9762,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9763,0)
;;=SOUPS,TURKEY VEG,CHUNKY,CAMPBELL'S^BC-03036^9.4-oz.^266
;;^UTILITY(U,$J,112,9763,1)
;;=3.647^1.917^5.902^55.263^^^^15.789^.489^^^140.602^396.992^^^^^3371.429^2.632^.015
;;^UTILITY(U,$J,112,9763,2)
;;=.045^1.128
;;^UTILITY(U,$J,112,9763,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9764,0)
;;=SOUPS,VEGETABLE,CAMPBELL'S^BC-03037^7.3-oz.^206
;;^UTILITY(U,$J,112,9764,1)
;;=1.165^.631^5.485^32.524^^^^10.194^.485^^^64.078^361.165^^^^^1475.728^1.456^.019
;;^UTILITY(U,$J,112,9764,2)
;;=.019^.437
;;^UTILITY(U,$J,112,9764,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9765,0)
;;=SOUPS,VEGETABLE,CHUNKY,CAMPBELL'S^BC-03038^9.5-oz.^269
;;^UTILITY(U,$J,112,9765,1)
;;=1.375^1.041^9.294^52.045^^^^21.561^.632^^^162.082^359.48^^^^^2082.9^1.487^.022
;;^UTILITY(U,$J,112,9765,2)
;;=.03^.595^^^^^^^^^^^^^^^1.636
;;^UTILITY(U,$J,112,9765,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9766,0)
;;=SOUPS,VEGETABLE,COUNTRY,HOME COOKIN'^BC-03039^9.5-oz.^269
;;^UTILITY(U,$J,112,9766,1)
;;=1.413^.595^6.691^37.546^^^^17.844^.669^^^133.086^347.584^^^^^1818.959^3.346^.03
;;^UTILITY(U,$J,112,9766,2)
;;=.041^.818
;;^UTILITY(U,$J,112,9766,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9767,0)
;;=SOUPS,VEGETABLE,COUNTRY,LUNCH BUCKET^BC-03040^8.25-oz.^234
;;^UTILITY(U,$J,112,9767,1)
;;=1.282^.427^8.12^38.462^^^^^^^^^350.427
;;^UTILITY(U,$J,112,9767,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9768,0)
;;=SOUPS,VEGETABLE,LOW NA,CAMPBELL'S^BC-03041^7.3-oz.^206
;;^UTILITY(U,$J,112,9768,1)
;;=1.748^.777^6.845^41.262^^^^8.252^.437^^^71.359^16.019^^^^^1518.932^1.456^.024
;;^UTILITY(U,$J,112,9768,2)
;;=.019^.485
;;^UTILITY(U,$J,112,9768,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9769,0)
;;=SOUPS,VEGETABLE,OLD WORLD,CAMPBELL'S SOUP-FOR-ONE^BC-03042^7.8-oz.^220
;;^UTILITY(U,$J,112,9769,1)
;;=1.818^1.636^8.182^55^^^^32.727^.682^^^136.818^636.364^^^^^1444.091^2.273^.023
;;^UTILITY(U,$J,112,9769,2)
;;=.023^.409
;;^UTILITY(U,$J,112,9769,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9770,0)
;;=SOUPS,VEGETABLE,PROGRESSO^BC-03043^9.5-oz.^269
;;^UTILITY(U,$J,112,9770,1)
;;=1.487^1.859^5.576^48.327^^^^^^^^96.654^427.509
;;^UTILITY(U,$J,112,9770,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9771,0)
;;=SOUPS,VEG BEEF,CAMPBELL'S^BC-03044^7.3-oz.^206
;;^UTILITY(U,$J,112,9771,1)
;;=2.039^.922^3.301^29.612^^^^8.738^.485^^^62.136^373.301^^^^^1083.01^0^.015
;;^UTILITY(U,$J,112,9771,2)
;;=.015^.437
;;^UTILITY(U,$J,112,9771,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9772,0)
;;=SOUPS,VEG BEEF,CHUNKY,CAMPBELL'S OLD FASHIONED^BC-03045^9.5-oz.^269
;;^UTILITY(U,$J,112,9772,1)
;;=4.312^1.599^6.431^57.249^^^^18.587^.892^^^152.416^362.082^^^^^2115.242^2.974^.019
;;^UTILITY(U,$J,112,9772,2)
;;=.056^.929^^^^^^^7.807
;;^UTILITY(U,$J,112,9772,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9773,0)
;;=SOUPS,VEG BEEF,CHUNKY,LOW NA,CAMPBELL'S^BC-03046^10.8-oz.^305
;;^UTILITY(U,$J,112,9773,1)
;;=4.426^.492^5.803^53.77^^^^16.066^.852^^38.033^132.787^22.623^^^^^1880.656^3.934^.062
FHINI0FY ; ; 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,9758,2)
+2 ;;=.058^1.068^^^^^^^2.427^.631^^.388
+3 ;;^UTILITY(U,$J,112,9758,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9759,0)
+6 ;;=SOUPS,TOMATO W/VEG & MACARONI,PROGRESSO^BC-03032^9.5-oz.^269
+7 ;;^UTILITY(U,$J,112,9759,1)
+8 ;;=1.115^.743^8.922^44.61^^^^^^^^141.264^468.401
+9 ;;^UTILITY(U,$J,112,9759,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,9760,0)
+12 ;;=SOUPS,TORTELLINI,PROGRESSO^BC-03033^9.5-oz.^269
+13 ;;^UTILITY(U,$J,112,9760,1)
+14 ;;=1.487^1.115^4.089^29.74^^^^^^^^104.089^401.487
+15 ;;^UTILITY(U,$J,112,9760,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,9761,0)
+18 ;;=SOUPS,TORTILLA,CHUNKY,CAMPBELL'S^BC-03034^10.76-oz.^305
+19 ;;^UTILITY(U,$J,112,9761,1)
+20 ;;=5.607^3.148^11.279^96.066^^^^33.115^1.148^^^127.869^339.016^^^^^219.344^3.934^.016
+21 ;;^UTILITY(U,$J,112,9761,2)
+22 ;;=.036^.852
+23 ;;^UTILITY(U,$J,112,9761,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,9762,0)
+26 ;;=SOUPS,TURKEY NOODLE,LOW NA,CAMPBELL'S^BC-03035^7.2-oz.^206
+27 ;;^UTILITY(U,$J,112,9762,1)
+28 ;;=1.553^1.068^3.641^30.583^^^^5.34^.485^^^29.126^10.194^^^^^33.981^0^.034
+29 ;;^UTILITY(U,$J,112,9762,2)
+30 ;;=.029^.631
+31 ;;^UTILITY(U,$J,112,9762,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,9763,0)
+34 ;;=SOUPS,TURKEY VEG,CHUNKY,CAMPBELL'S^BC-03036^9.4-oz.^266
+35 ;;^UTILITY(U,$J,112,9763,1)
+36 ;;=3.647^1.917^5.902^55.263^^^^15.789^.489^^^140.602^396.992^^^^^3371.429^2.632^.015
+37 ;;^UTILITY(U,$J,112,9763,2)
+38 ;;=.045^1.128
+39 ;;^UTILITY(U,$J,112,9763,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,9764,0)
+42 ;;=SOUPS,VEGETABLE,CAMPBELL'S^BC-03037^7.3-oz.^206
+43 ;;^UTILITY(U,$J,112,9764,1)
+44 ;;=1.165^.631^5.485^32.524^^^^10.194^.485^^^64.078^361.165^^^^^1475.728^1.456^.019
+45 ;;^UTILITY(U,$J,112,9764,2)
+46 ;;=.019^.437
+47 ;;^UTILITY(U,$J,112,9764,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,9765,0)
+50 ;;=SOUPS,VEGETABLE,CHUNKY,CAMPBELL'S^BC-03038^9.5-oz.^269
+51 ;;^UTILITY(U,$J,112,9765,1)
+52 ;;=1.375^1.041^9.294^52.045^^^^21.561^.632^^^162.082^359.48^^^^^2082.9^1.487^.022
+53 ;;^UTILITY(U,$J,112,9765,2)
+54 ;;=.03^.595^^^^^^^^^^^^^^^1.636
+55 ;;^UTILITY(U,$J,112,9765,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9766,0)
+58 ;;=SOUPS,VEGETABLE,COUNTRY,HOME COOKIN'^BC-03039^9.5-oz.^269
+59 ;;^UTILITY(U,$J,112,9766,1)
+60 ;;=1.413^.595^6.691^37.546^^^^17.844^.669^^^133.086^347.584^^^^^1818.959^3.346^.03
+61 ;;^UTILITY(U,$J,112,9766,2)
+62 ;;=.041^.818
+63 ;;^UTILITY(U,$J,112,9766,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9767,0)
+66 ;;=SOUPS,VEGETABLE,COUNTRY,LUNCH BUCKET^BC-03040^8.25-oz.^234
+67 ;;^UTILITY(U,$J,112,9767,1)
+68 ;;=1.282^.427^8.12^38.462^^^^^^^^^350.427
+69 ;;^UTILITY(U,$J,112,9767,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9768,0)
+72 ;;=SOUPS,VEGETABLE,LOW NA,CAMPBELL'S^BC-03041^7.3-oz.^206
+73 ;;^UTILITY(U,$J,112,9768,1)
+74 ;;=1.748^.777^6.845^41.262^^^^8.252^.437^^^71.359^16.019^^^^^1518.932^1.456^.024
+75 ;;^UTILITY(U,$J,112,9768,2)
+76 ;;=.019^.485
+77 ;;^UTILITY(U,$J,112,9768,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,9769,0)
+80 ;;=SOUPS,VEGETABLE,OLD WORLD,CAMPBELL'S SOUP-FOR-ONE^BC-03042^7.8-oz.^220
+81 ;;^UTILITY(U,$J,112,9769,1)
+82 ;;=1.818^1.636^8.182^55^^^^32.727^.682^^^136.818^636.364^^^^^1444.091^2.273^.023
+83 ;;^UTILITY(U,$J,112,9769,2)
+84 ;;=.023^.409
+85 ;;^UTILITY(U,$J,112,9769,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,9770,0)
+88 ;;=SOUPS,VEGETABLE,PROGRESSO^BC-03043^9.5-oz.^269
+89 ;;^UTILITY(U,$J,112,9770,1)
+90 ;;=1.487^1.859^5.576^48.327^^^^^^^^96.654^427.509
+91 ;;^UTILITY(U,$J,112,9770,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9771,0)
+94 ;;=SOUPS,VEG BEEF,CAMPBELL'S^BC-03044^7.3-oz.^206
+95 ;;^UTILITY(U,$J,112,9771,1)
+96 ;;=2.039^.922^3.301^29.612^^^^8.738^.485^^^62.136^373.301^^^^^1083.01^0^.015
+97 ;;^UTILITY(U,$J,112,9771,2)
+98 ;;=.015^.437
+99 ;;^UTILITY(U,$J,112,9771,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9772,0)
+102 ;;=SOUPS,VEG BEEF,CHUNKY,CAMPBELL'S OLD FASHIONED^BC-03045^9.5-oz.^269
+103 ;;^UTILITY(U,$J,112,9772,1)
+104 ;;=4.312^1.599^6.431^57.249^^^^18.587^.892^^^152.416^362.082^^^^^2115.242^2.974^.019
+105 ;;^UTILITY(U,$J,112,9772,2)
+106 ;;=.056^.929^^^^^^^7.807
+107 ;;^UTILITY(U,$J,112,9772,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,9773,0)
+110 ;;=SOUPS,VEG BEEF,CHUNKY,LOW NA,CAMPBELL'S^BC-03046^10.8-oz.^305
+111 ;;^UTILITY(U,$J,112,9773,1)
+112 ;;=4.426^.492^5.803^53.77^^^^16.066^.852^^38.033^132.787^22.623^^^^^1880.656^3.934^.062
