FHINI0GS ; ; 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,10165,0)
;;=PUMPKIN,CND,LIBBY'S SOLID PACK^BC-03438^1/2-cup^125
;;^UTILITY(U,$J,112,10165,1)
;;=1.12^.32^8.08^33.6^^^^26.4^1.392^23.2^35.2^206.4^4.8^.168^.107^^^22056^4^.024
;;^UTILITY(U,$J,112,10165,2)
;;=.056^.4^.4^.056^12^0^^^^^^^^^^^3.04
;;^UTILITY(U,$J,112,10165,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10166,0)
;;=RATATOUILLE,FRZN,STOUFFERS^BC-03439^3-oz.^85
;;^UTILITY(U,$J,112,10166,1)
;;=1.294^1.176^5.176^36.471^91.059^^^29.412^.506^^^220^470.588^^^^^330.588^10.588^.035
;;^UTILITY(U,$J,112,10166,2)
;;=.035^.706
;;^UTILITY(U,$J,112,10166,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10167,0)
;;=BEANS,RED,CND,HUNT'S^BC-03440^4-oz.^113
;;^UTILITY(U,$J,112,10167,1)
;;=5.31^0^15.929^79.646^^^^19.469^1.504^^^309.735^495.575^^^^^^.885^.124
;;^UTILITY(U,$J,112,10167,2)
;;=.035^.442^^^^^^^0^^^^0^^^^5.31
;;^UTILITY(U,$J,112,10167,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10168,0)
;;=BEANS,RED,CND,JOAN OF ARC^BC-03441^1/2-cup^125
;;^UTILITY(U,$J,112,10168,1)
;;=4.48^.48^15.28^66.4^78.32^^^36^1.104^^60^179.2^272.8^^^^^4.8^0^.048
;;^UTILITY(U,$J,112,10168,2)
;;=.032^.32^^^^^^^0^^^^^^^^4.48
;;^UTILITY(U,$J,112,10168,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10169,0)
;;=BEANS,RED,CND,VAN CAMP'S^BC-03442^cups^227
;;^UTILITY(U,$J,112,10169,1)
;;=4.846^.264^16.74^85.463^76.211^^^37.004^1.189^^^240.529^408.811^^^^^0^0^.044
;;^UTILITY(U,$J,112,10169,2)
;;=.044^.264
;;^UTILITY(U,$J,112,10169,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10170,0)
;;=VEG,SAN FRANCISCO STYLE,FRZN,BIRDS EYE^BC-03443^1/2-cup^95
;;^UTILITY(U,$J,112,10170,1)
;;=2.316^4.737^10.947^94.737^81.053^^^22.105^.558^15.789^40^162.105^351.579^.263^.081^^^514.737^10.526^.063
;;^UTILITY(U,$J,112,10170,2)
;;=.074^.526^.158^.074^26.316^0^^^0^.947^^.947
;;^UTILITY(U,$J,112,10170,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10171,0)
;;=SAUERKRAUT,BOTTLED,CLAUSSEN^BC-03444^oz.^28
;;^UTILITY(U,$J,112,10171,1)
;;=.714^.357^4.286^21.429^92.5^^^32.143^.571^10.714^17.857^153.571^675^.143^.036^^^^10.714^.036
;;^UTILITY(U,$J,112,10171,2)
;;=0^0^.107^.107^3.571
;;^UTILITY(U,$J,112,10171,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10172,0)
;;=PEAS,SNOW,CND,LACHOY^BC-03445^3-oz.^85
;;^UTILITY(U,$J,112,10172,1)
;;=2.353^0^7.059^41.176^^^^50.588^2^^^188.235^11.765^^^^^^22.353^.059
;;^UTILITY(U,$J,112,10172,2)
;;=.106^.471^^^^^^^0^^^^14.118^^^^2.353
;;^UTILITY(U,$J,112,10172,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10173,0)
;;=PEAS,SNOW,FRZN,CHUN KING^BC-03446^1.5-oz.^43
;;^UTILITY(U,$J,112,10173,1)
;;=2.326^0^6.977^46.512^^^^39.535^^^44.186^116.279^^^^^^360.465^27.907^.14
;;^UTILITY(U,$J,112,10173,2)
;;=.07^.465
;;^UTILITY(U,$J,112,10173,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10174,0)
;;=SPINACH,FRZN,CREAMED,BIRDS EYE^BC-03447^1/3-cup^85
;;^UTILITY(U,$J,112,10174,1)
;;=2.471^4.471^6^69.412^85.529^^^84.706^1.271^31.765^50.588^234.118^367.059^.188^.049^^^4977.647^12.941^.059
;;^UTILITY(U,$J,112,10174,2)
;;=.141^.235^.165^.071^18.824^.153^^^1.176^.941^^.824^^^^^1.765
;;^UTILITY(U,$J,112,10174,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10175,0)
;;=SPINACH,FRZN W/BUTTER SCE,PILSBURY^BC-03448^1/2-cup^142
;;^UTILITY(U,$J,112,10175,1)
;;=2.113^1.408^4.225^28.169^91.901^^^145.775^1.585^^25.352^471.831^267.606^^^^^2047.183^18.31^.042
;;^UTILITY(U,$J,112,10175,2)
;;=.183^.775^^^^^^^3.521^^^0
;;^UTILITY(U,$J,112,10175,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10176,0)
;;=ZUCCHINI,BREADED,FRZN,ORE-IDA^BC-03449^3-oz.^85
;;^UTILITY(U,$J,112,10176,1)
;;=3.412^10.588^17.412^178.824^67.059^^^18.824^1.329^^^192.941^409.412^^^^^223.529^1.176^.141
;;^UTILITY(U,$J,112,10176,2)
;;=.129^1.647^^^^^^^2.353^1.882^7.294^1.412
;;^UTILITY(U,$J,112,10176,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10177,0)
;;=ZUCCHINI STICKS,BREADED,FRZN,MRS. PAUL'S^BC-03450^3-oz.^85
;;^UTILITY(U,$J,112,10177,1)
;;=3.647^9.059^27.176^204.706^^^^30.588^1.529^^^111.765^457.647^^^^^60^1.176^.165
;;^UTILITY(U,$J,112,10177,2)
;;=.106^1.059
;;^UTILITY(U,$J,112,10177,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10178,0)
;;=STEW VEG,FRZN,ORE-IDA^BC-03451^3-oz.^85
FHINI0GS ; ; 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,10165,0)
+2 ;;=PUMPKIN,CND,LIBBY'S SOLID PACK^BC-03438^1/2-cup^125
+3 ;;^UTILITY(U,$J,112,10165,1)
+4 ;;=1.12^.32^8.08^33.6^^^^26.4^1.392^23.2^35.2^206.4^4.8^.168^.107^^^22056^4^.024
+5 ;;^UTILITY(U,$J,112,10165,2)
+6 ;;=.056^.4^.4^.056^12^0^^^^^^^^^^^3.04
+7 ;;^UTILITY(U,$J,112,10165,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,10166,0)
+10 ;;=RATATOUILLE,FRZN,STOUFFERS^BC-03439^3-oz.^85
+11 ;;^UTILITY(U,$J,112,10166,1)
+12 ;;=1.294^1.176^5.176^36.471^91.059^^^29.412^.506^^^220^470.588^^^^^330.588^10.588^.035
+13 ;;^UTILITY(U,$J,112,10166,2)
+14 ;;=.035^.706
+15 ;;^UTILITY(U,$J,112,10166,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,10167,0)
+18 ;;=BEANS,RED,CND,HUNT'S^BC-03440^4-oz.^113
+19 ;;^UTILITY(U,$J,112,10167,1)
+20 ;;=5.31^0^15.929^79.646^^^^19.469^1.504^^^309.735^495.575^^^^^^.885^.124
+21 ;;^UTILITY(U,$J,112,10167,2)
+22 ;;=.035^.442^^^^^^^0^^^^0^^^^5.31
+23 ;;^UTILITY(U,$J,112,10167,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,10168,0)
+26 ;;=BEANS,RED,CND,JOAN OF ARC^BC-03441^1/2-cup^125
+27 ;;^UTILITY(U,$J,112,10168,1)
+28 ;;=4.48^.48^15.28^66.4^78.32^^^36^1.104^^60^179.2^272.8^^^^^4.8^0^.048
+29 ;;^UTILITY(U,$J,112,10168,2)
+30 ;;=.032^.32^^^^^^^0^^^^^^^^4.48
+31 ;;^UTILITY(U,$J,112,10168,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,10169,0)
+34 ;;=BEANS,RED,CND,VAN CAMP'S^BC-03442^cups^227
+35 ;;^UTILITY(U,$J,112,10169,1)
+36 ;;=4.846^.264^16.74^85.463^76.211^^^37.004^1.189^^^240.529^408.811^^^^^0^0^.044
+37 ;;^UTILITY(U,$J,112,10169,2)
+38 ;;=.044^.264
+39 ;;^UTILITY(U,$J,112,10169,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,10170,0)
+42 ;;=VEG,SAN FRANCISCO STYLE,FRZN,BIRDS EYE^BC-03443^1/2-cup^95
+43 ;;^UTILITY(U,$J,112,10170,1)
+44 ;;=2.316^4.737^10.947^94.737^81.053^^^22.105^.558^15.789^40^162.105^351.579^.263^.081^^^514.737^10.526^.063
+45 ;;^UTILITY(U,$J,112,10170,2)
+46 ;;=.074^.526^.158^.074^26.316^0^^^0^.947^^.947
+47 ;;^UTILITY(U,$J,112,10170,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,10171,0)
+50 ;;=SAUERKRAUT,BOTTLED,CLAUSSEN^BC-03444^oz.^28
+51 ;;^UTILITY(U,$J,112,10171,1)
+52 ;;=.714^.357^4.286^21.429^92.5^^^32.143^.571^10.714^17.857^153.571^675^.143^.036^^^^10.714^.036
+53 ;;^UTILITY(U,$J,112,10171,2)
+54 ;;=0^0^.107^.107^3.571
+55 ;;^UTILITY(U,$J,112,10171,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,10172,0)
+58 ;;=PEAS,SNOW,CND,LACHOY^BC-03445^3-oz.^85
+59 ;;^UTILITY(U,$J,112,10172,1)
+60 ;;=2.353^0^7.059^41.176^^^^50.588^2^^^188.235^11.765^^^^^^22.353^.059
+61 ;;^UTILITY(U,$J,112,10172,2)
+62 ;;=.106^.471^^^^^^^0^^^^14.118^^^^2.353
+63 ;;^UTILITY(U,$J,112,10172,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,10173,0)
+66 ;;=PEAS,SNOW,FRZN,CHUN KING^BC-03446^1.5-oz.^43
+67 ;;^UTILITY(U,$J,112,10173,1)
+68 ;;=2.326^0^6.977^46.512^^^^39.535^^^44.186^116.279^^^^^^360.465^27.907^.14
+69 ;;^UTILITY(U,$J,112,10173,2)
+70 ;;=.07^.465
+71 ;;^UTILITY(U,$J,112,10173,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,10174,0)
+74 ;;=SPINACH,FRZN,CREAMED,BIRDS EYE^BC-03447^1/3-cup^85
+75 ;;^UTILITY(U,$J,112,10174,1)
+76 ;;=2.471^4.471^6^69.412^85.529^^^84.706^1.271^31.765^50.588^234.118^367.059^.188^.049^^^4977.647^12.941^.059
+77 ;;^UTILITY(U,$J,112,10174,2)
+78 ;;=.141^.235^.165^.071^18.824^.153^^^1.176^.941^^.824^^^^^1.765
+79 ;;^UTILITY(U,$J,112,10174,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,10175,0)
+82 ;;=SPINACH,FRZN W/BUTTER SCE,PILSBURY^BC-03448^1/2-cup^142
+83 ;;^UTILITY(U,$J,112,10175,1)
+84 ;;=2.113^1.408^4.225^28.169^91.901^^^145.775^1.585^^25.352^471.831^267.606^^^^^2047.183^18.31^.042
+85 ;;^UTILITY(U,$J,112,10175,2)
+86 ;;=.183^.775^^^^^^^3.521^^^0
+87 ;;^UTILITY(U,$J,112,10175,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,10176,0)
+90 ;;=ZUCCHINI,BREADED,FRZN,ORE-IDA^BC-03449^3-oz.^85
+91 ;;^UTILITY(U,$J,112,10176,1)
+92 ;;=3.412^10.588^17.412^178.824^67.059^^^18.824^1.329^^^192.941^409.412^^^^^223.529^1.176^.141
+93 ;;^UTILITY(U,$J,112,10176,2)
+94 ;;=.129^1.647^^^^^^^2.353^1.882^7.294^1.412
+95 ;;^UTILITY(U,$J,112,10176,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,10177,0)
+98 ;;=ZUCCHINI STICKS,BREADED,FRZN,MRS. PAUL'S^BC-03450^3-oz.^85
+99 ;;^UTILITY(U,$J,112,10177,1)
+100 ;;=3.647^9.059^27.176^204.706^^^^30.588^1.529^^^111.765^457.647^^^^^60^1.176^.165
+101 ;;^UTILITY(U,$J,112,10177,2)
+102 ;;=.106^1.059
+103 ;;^UTILITY(U,$J,112,10177,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,10178,0)
+106 ;;=STEW VEG,FRZN,ORE-IDA^BC-03451^3-oz.^85
