FHINI0GO ; ; 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,10111,1)
;;=3.333^2.5^9.167^66.667^^^^^^^^95.833^391.667
;;^UTILITY(U,$J,112,10111,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10112,0)
;;=PEAS,PEA PODS & WATER CHESTNUTS W/BUTTER SCE,FRZN,LE SUEUR^BC-03385^1/2-cup^118
;;^UTILITY(U,$J,112,10112,1)
;;=3.475^2.119^8.814^67.797^83.983^^^26.271^1.119^^57.627^105.085^361.017^^^^^729.661^162.712^.212
;;^UTILITY(U,$J,112,10112,2)
;;=.059^.932
;;^UTILITY(U,$J,112,10112,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10113,0)
;;=PEAS,GREEN,FRZN W/BUTTER SCE,LE SUEUR^BC-03386^1/2-cup^115
;;^UTILITY(U,$J,112,10113,1)
;;=4.261^1.739^11.826^78.261^81.043^^^16.522^1.6^^72.174^120^471.304^^^^^544.348^14.783^.261
;;^UTILITY(U,$J,112,10113,2)
;;=.078^1.565
;;^UTILITY(U,$J,112,10113,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10114,0)
;;=PEAS,GREEN,FROZEN W/CREAM SCE,BIRDS EYE^BC-03387^1/2-cup^76
;;^UTILITY(U,$J,112,10114,1)
;;=5.395^7.368^17.632^155.263^67.763^^^55.263^1.342^30.263^119.737^225^484.211^.829^.117^^^838.158^7.895^.25
;;^UTILITY(U,$J,112,10114,2)
;;=.171^1.316^.316^.105^48.684^.263^^^1.316^1.447^^1.316^^^^^3.553
;;^UTILITY(U,$J,112,10114,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10115,0)
;;=PEAS,GREEN,EARLY JUNE,CND,PILLSBURY^BC-03388^1/2-cup^120
;;^UTILITY(U,$J,112,10115,1)
;;=2.917^.167^9.833^51.667^86^^^18.333^1^^50.833^85^268.333^^^^^270.833^5.833^.108
;;^UTILITY(U,$J,112,10115,2)
;;=.058^.833^^^^^^^0^^^^^^^^1.583
;;^UTILITY(U,$J,112,10115,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10116,0)
;;=PEAS,GREEN,EARLY JUNE,FROZEN,LE SUEUR^BC-03389^1/2-cup^76
;;^UTILITY(U,$J,112,10116,1)
;;=6.184^.263^11.974^78.947^80^^^27.632^1.5^^97.368^152.632^222.368^^^^^534.211^14.474^.237
;;^UTILITY(U,$J,112,10116,2)
;;=.395^1.842
;;^UTILITY(U,$J,112,10116,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10117,0)
;;=PEAS,GREEN,FRZN W/BUTTER SCE,EARLY JUNE,LE SUEUR^BC-03390^1/2-cup^113
;;^UTILITY(U,$J,112,10117,1)
;;=4.425^1.77^12.389^70.796^^^^^^^^97.345^389.381
;;^UTILITY(U,$J,112,10117,2)
;;=^^^^^^^^4.425^^^0
;;^UTILITY(U,$J,112,10117,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10118,0)
;;=PEAS,SWEET,CND,50% LESS SALT,GREEN GIANT^BC-03391^1/2-cup^85
;;^UTILITY(U,$J,112,10118,1)
;;=3.294^.118^10^43.529^86^^^16.471^.6^^47.059^95.294^134.118^^^^^261.176^8.235^.153
;;^UTILITY(U,$J,112,10118,2)
;;=.059^1.294^^^^^^^^^^^^^^^2.824
;;^UTILITY(U,$J,112,10118,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10119,0)
;;=PEAS,SWEET,CND,PILLSBURY^BC-03392^1/2-cup^120
;;^UTILITY(U,$J,112,10119,1)
;;=3.167^.333^9.333^53.333^86^^^18.333^1^^55^95^265^^^^^216.667^5.833^.117
;;^UTILITY(U,$J,112,10119,2)
;;=.067^1^^^^^^^0^^^^^^^^4
;;^UTILITY(U,$J,112,10119,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10120,0)
;;=PEAS,SWEET,FRZN W/BUTTER SCE,PILLSBURY^BC-03393^1/2-cup^113
;;^UTILITY(U,$J,112,10120,1)
;;=4.425^1.77^12.389^70.796^^^^^^^^119.469^362.832
;;^UTILITY(U,$J,112,10120,2)
;;=^^^^^^^^4.425^^^0
;;^UTILITY(U,$J,112,10120,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10121,0)
;;=PEA,SWEET & CAULIFLOWER MEDLEY,FROZEN,VALLEY COMBINATIONS^BC-03394^3-oz.^85
;;^UTILITY(U,$J,112,10121,1)
;;=3.412^.353^9.529^41.176^86^^^25.882^.906^^56.471^178.824^82.353^^^^^1325.882^29.412^.141
;;^UTILITY(U,$J,112,10121,2)
;;=.071^1.294^^^^^^^^^^^^^^^3.412
;;^UTILITY(U,$J,112,10121,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10122,0)
;;=PEAS,SWEET & ONIONS,CND,PILLSBURY^BC-03395^1/2-cup^121
;;^UTILITY(U,$J,112,10122,1)
;;=2.975^.331^9.008^51.24^86.033^^^19.008^.901^^52.893^108.264^419.835^^^^^258.678^4.959^.091
;;^UTILITY(U,$J,112,10122,2)
;;=.041^1.322^^^^^^^0^^^^^^^^3.388
;;^UTILITY(U,$J,112,10122,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10123,0)
;;=PEAS,SWEET,CARROTS & PEARL ONIONS,CND,PILLSBURY^BC-03396^1/2-cup^117
;;^UTILITY(U,$J,112,10123,1)
;;=2.564^0^9.402^42.735^^^^^^^^102.564^435.897
;;^UTILITY(U,$J,112,10123,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,10123,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10124,0)
;;=PEPPERS,HOT CHILI,CND,DEL MONTE^BC-03397^3.5-oz.^100
;;^UTILITY(U,$J,112,10124,1)
;;=1.1^.1^6.9^28^86.8^^^49^.7^17^26^138^1882^.16^.18^^^272^10^.03
FHINI0GO ; ; 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,10111,1)
+2 ;;=3.333^2.5^9.167^66.667^^^^^^^^95.833^391.667
+3 ;;^UTILITY(U,$J,112,10111,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,10112,0)
+6 ;;=PEAS,PEA PODS & WATER CHESTNUTS W/BUTTER SCE,FRZN,LE SUEUR^BC-03385^1/2-cup^118
+7 ;;^UTILITY(U,$J,112,10112,1)
+8 ;;=3.475^2.119^8.814^67.797^83.983^^^26.271^1.119^^57.627^105.085^361.017^^^^^729.661^162.712^.212
+9 ;;^UTILITY(U,$J,112,10112,2)
+10 ;;=.059^.932
+11 ;;^UTILITY(U,$J,112,10112,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,10113,0)
+14 ;;=PEAS,GREEN,FRZN W/BUTTER SCE,LE SUEUR^BC-03386^1/2-cup^115
+15 ;;^UTILITY(U,$J,112,10113,1)
+16 ;;=4.261^1.739^11.826^78.261^81.043^^^16.522^1.6^^72.174^120^471.304^^^^^544.348^14.783^.261
+17 ;;^UTILITY(U,$J,112,10113,2)
+18 ;;=.078^1.565
+19 ;;^UTILITY(U,$J,112,10113,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,10114,0)
+22 ;;=PEAS,GREEN,FROZEN W/CREAM SCE,BIRDS EYE^BC-03387^1/2-cup^76
+23 ;;^UTILITY(U,$J,112,10114,1)
+24 ;;=5.395^7.368^17.632^155.263^67.763^^^55.263^1.342^30.263^119.737^225^484.211^.829^.117^^^838.158^7.895^.25
+25 ;;^UTILITY(U,$J,112,10114,2)
+26 ;;=.171^1.316^.316^.105^48.684^.263^^^1.316^1.447^^1.316^^^^^3.553
+27 ;;^UTILITY(U,$J,112,10114,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,10115,0)
+30 ;;=PEAS,GREEN,EARLY JUNE,CND,PILLSBURY^BC-03388^1/2-cup^120
+31 ;;^UTILITY(U,$J,112,10115,1)
+32 ;;=2.917^.167^9.833^51.667^86^^^18.333^1^^50.833^85^268.333^^^^^270.833^5.833^.108
+33 ;;^UTILITY(U,$J,112,10115,2)
+34 ;;=.058^.833^^^^^^^0^^^^^^^^1.583
+35 ;;^UTILITY(U,$J,112,10115,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,10116,0)
+38 ;;=PEAS,GREEN,EARLY JUNE,FROZEN,LE SUEUR^BC-03389^1/2-cup^76
+39 ;;^UTILITY(U,$J,112,10116,1)
+40 ;;=6.184^.263^11.974^78.947^80^^^27.632^1.5^^97.368^152.632^222.368^^^^^534.211^14.474^.237
+41 ;;^UTILITY(U,$J,112,10116,2)
+42 ;;=.395^1.842
+43 ;;^UTILITY(U,$J,112,10116,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,10117,0)
+46 ;;=PEAS,GREEN,FRZN W/BUTTER SCE,EARLY JUNE,LE SUEUR^BC-03390^1/2-cup^113
+47 ;;^UTILITY(U,$J,112,10117,1)
+48 ;;=4.425^1.77^12.389^70.796^^^^^^^^97.345^389.381
+49 ;;^UTILITY(U,$J,112,10117,2)
+50 ;;=^^^^^^^^4.425^^^0
+51 ;;^UTILITY(U,$J,112,10117,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,10118,0)
+54 ;;=PEAS,SWEET,CND,50% LESS SALT,GREEN GIANT^BC-03391^1/2-cup^85
+55 ;;^UTILITY(U,$J,112,10118,1)
+56 ;;=3.294^.118^10^43.529^86^^^16.471^.6^^47.059^95.294^134.118^^^^^261.176^8.235^.153
+57 ;;^UTILITY(U,$J,112,10118,2)
+58 ;;=.059^1.294^^^^^^^^^^^^^^^2.824
+59 ;;^UTILITY(U,$J,112,10118,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,10119,0)
+62 ;;=PEAS,SWEET,CND,PILLSBURY^BC-03392^1/2-cup^120
+63 ;;^UTILITY(U,$J,112,10119,1)
+64 ;;=3.167^.333^9.333^53.333^86^^^18.333^1^^55^95^265^^^^^216.667^5.833^.117
+65 ;;^UTILITY(U,$J,112,10119,2)
+66 ;;=.067^1^^^^^^^0^^^^^^^^4
+67 ;;^UTILITY(U,$J,112,10119,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,10120,0)
+70 ;;=PEAS,SWEET,FRZN W/BUTTER SCE,PILLSBURY^BC-03393^1/2-cup^113
+71 ;;^UTILITY(U,$J,112,10120,1)
+72 ;;=4.425^1.77^12.389^70.796^^^^^^^^119.469^362.832
+73 ;;^UTILITY(U,$J,112,10120,2)
+74 ;;=^^^^^^^^4.425^^^0
+75 ;;^UTILITY(U,$J,112,10120,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,10121,0)
+78 ;;=PEA,SWEET & CAULIFLOWER MEDLEY,FROZEN,VALLEY COMBINATIONS^BC-03394^3-oz.^85
+79 ;;^UTILITY(U,$J,112,10121,1)
+80 ;;=3.412^.353^9.529^41.176^86^^^25.882^.906^^56.471^178.824^82.353^^^^^1325.882^29.412^.141
+81 ;;^UTILITY(U,$J,112,10121,2)
+82 ;;=.071^1.294^^^^^^^^^^^^^^^3.412
+83 ;;^UTILITY(U,$J,112,10121,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,10122,0)
+86 ;;=PEAS,SWEET & ONIONS,CND,PILLSBURY^BC-03395^1/2-cup^121
+87 ;;^UTILITY(U,$J,112,10122,1)
+88 ;;=2.975^.331^9.008^51.24^86.033^^^19.008^.901^^52.893^108.264^419.835^^^^^258.678^4.959^.091
+89 ;;^UTILITY(U,$J,112,10122,2)
+90 ;;=.041^1.322^^^^^^^0^^^^^^^^3.388
+91 ;;^UTILITY(U,$J,112,10122,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,10123,0)
+94 ;;=PEAS,SWEET,CARROTS & PEARL ONIONS,CND,PILLSBURY^BC-03396^1/2-cup^117
+95 ;;^UTILITY(U,$J,112,10123,1)
+96 ;;=2.564^0^9.402^42.735^^^^^^^^102.564^435.897
+97 ;;^UTILITY(U,$J,112,10123,2)
+98 ;;=^^^^^^^^0
+99 ;;^UTILITY(U,$J,112,10123,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,10124,0)
+102 ;;=PEPPERS,HOT CHILI,CND,DEL MONTE^BC-03397^3.5-oz.^100
+103 ;;^UTILITY(U,$J,112,10124,1)
+104 ;;=1.1^.1^6.9^28^86.8^^^49^.7^17^26^138^1882^.16^.18^^^272^10^.03
