FHINI0GP ; ; 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,10124,2)
;;=.06^.5
;;^UTILITY(U,$J,112,10124,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10125,0)
;;=PIMIENTOS,CND,DROMEDARY^BC-03398^oz.^28
;;^UTILITY(U,$J,112,10125,1)
;;=0^0^7.143^35.714^^^^^^^^160.714^17.857
;;^UTILITY(U,$J,112,10125,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10126,0)
;;=BEANS,PINTO,CND,GEBHARDT^BC-03399^4-oz.^113
;;^UTILITY(U,$J,112,10126,1)
;;=5.31^0^16.814^88.496^^^^32.743^1.593^^^353.982^530.973^^^^^^1.77^.15
;;^UTILITY(U,$J,112,10126,2)
;;=.062^.354^^^^^^^0^^^^^^^^4.425
;;^UTILITY(U,$J,112,10126,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10127,0)
;;=BEANS,PINTO,CND,PICANTE STYLE,JOAN OF ARC^BC-03400^1/2-cup^142
;;^UTILITY(U,$J,112,10127,1)
;;=4.789^.915^15^69.014^77.394^^^35.211^.901^^59.155^190.845^407.042^^^^^240.845^^.049
;;^UTILITY(U,$J,112,10127,2)
;;=.042^.493^^^^^^^0^^^^^^^^4.718
;;^UTILITY(U,$J,112,10127,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10128,0)
;;=POTATO,BAKED W/BUTTER FLAVOR FROZEN,ORE-IDA^BC-03401^potato^142
;;^UTILITY(U,$J,112,10128,1)
;;=3.169^6.268^19.859^148.592^68.873^^^38.732^.768^^^525.352^277.465^^^^^106.338^0^.063
;;^UTILITY(U,$J,112,10128,2)
;;=.07^2.113^^^^^^^0^1.268^3.099^1.62
;;^UTILITY(U,$J,112,10128,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10129,0)
;;=POTATO,BAKED W/CHEDDAR CHEESE,FROZEN,ORE-LDA^BC-03402^potato^142
;;^UTILITY(U,$J,112,10129,1)
;;=4.437^7.606^19.366^160.563^67.042^^^56.338^1.507^^^378.873^397.887^^^^^52.817^0^.077
;;^UTILITY(U,$J,112,10129,2)
;;=.113^1.62^^^^^^^4.225^5.07^2.324^.211
;;^UTILITY(U,$J,112,10129,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10130,0)
;;=POTATO,BAKED W/CHEESE TOPPING,FROZEN,PILLSBURY^BC-03403^5-oz.^142
;;^UTILITY(U,$J,112,10130,1)
;;=3.169^3.873^23.169^140.845^68.028^^^29.577^.599^^78.873^440.141^366.901^^^^^238.732^4.93^.042
;;^UTILITY(U,$J,112,10130,2)
;;=.049^1.69^^^^^^^^^^^^^^^.634
;;^UTILITY(U,$J,112,10130,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10131,0)
;;=POTATO,BAKED W/SOUR CREAM & CHIVES,FROZEN,PILLSBURY^BC-03404^5-oz.^142
;;^UTILITY(U,$J,112,10131,1)
;;=3.31^6.972^21.62^162.676^65.986^^^35.211^.697^^78.169^404.93^407.746^^^^^309.155^3.521^.049
;;^UTILITY(U,$J,112,10131,2)
;;=.063^1.69^^^^^^^^^^^^^^^.775
;;^UTILITY(U,$J,112,10131,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10132,0)
;;=POTATO,BAKED W/SOUR CREAM,FROZEN,ORE-LDA^BC-03405^potato^142
;;^UTILITY(U,$J,112,10132,1)
;;=3.31^6.268^18.944^147.183^^^^27.465^1.303^^^410.563^313.38^^^^^54.225^.704^.092
;;^UTILITY(U,$J,112,10132,2)
;;=.07^1.69^^^^^^^0^1.268^3.099^1.62
;;^UTILITY(U,$J,112,10132,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10133,0)
;;=POTATO,CND,NEW,WHOLE,HUNT'S^BC-03406^4-oz.^113
;;^UTILITY(U,$J,112,10133,1)
;;=1.77^0^13.274^61.947^^^^4.425^1.239^^^194.69^203.54^^^^^^4.425^.053
;;^UTILITY(U,$J,112,10133,2)
;;=.009^.885^^^^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,10133,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10134,0)
;;=POTATO,CRISPERS,FROZEN,ORE-LDA^BC-03407^3-oz.^85
;;^UTILITY(U,$J,112,10134,1)
;;=2.588^16.941^29.059^271.765^49.529^^^^1.059^^^415.294^554.118^^^^^^4.706^.094
;;^UTILITY(U,$J,112,10134,2)
;;=^2.353^^^^^^^0^3.059^11.647^2.353
;;^UTILITY(U,$J,112,10134,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10135,0)
;;=POTATO,CRISPY CROWNS,FROZEN,ORE-LDA^BC-03408^3-oz.^85
;;^UTILITY(U,$J,112,10135,1)
;;=2.118^11.059^24^202.353^61.294^^^^.953^^^277.647^484.706^^^^^^2.353^.094
;;^UTILITY(U,$J,112,10135,2)
;;=^1.529^^^^^^^0^1.882^7.647^1.529
;;^UTILITY(U,$J,112,10135,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10136,0)
;;=POTATO,FRENCH FRIED,FRZN,COTTAGE FRIES,ORE-LDA^BC-03409^3-oz.^85
;;^UTILITY(U,$J,112,10136,1)
;;=2.588^4.941^22.941^147.059^68.588^^^^.847^^^449.412^20^^^^^^10.588^.106
;;^UTILITY(U,$J,112,10136,2)
;;=^2.353^^^^^^^0^.941^3.412^.706
;;^UTILITY(U,$J,112,10136,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10137,0)
;;=POTATO,FRENCH FRIED,FRZN,COUNTRY STYLE,ORE-IDA^BC-03410^3-oz.^85
;;^UTILITY(U,$J,112,10137,1)
;;=2.471^3.529^22.235^130.588^71.059^^^^.671^^^407.059^11.765^^^^^^12.941^.118
;;^UTILITY(U,$J,112,10137,2)
;;=^2^^^^^^^0^.588^2.353^.471
FHINI0GP ; ; 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,10124,2)
+2 ;;=.06^.5
+3 ;;^UTILITY(U,$J,112,10124,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,10125,0)
+6 ;;=PIMIENTOS,CND,DROMEDARY^BC-03398^oz.^28
+7 ;;^UTILITY(U,$J,112,10125,1)
+8 ;;=0^0^7.143^35.714^^^^^^^^160.714^17.857
+9 ;;^UTILITY(U,$J,112,10125,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,10126,0)
+12 ;;=BEANS,PINTO,CND,GEBHARDT^BC-03399^4-oz.^113
+13 ;;^UTILITY(U,$J,112,10126,1)
+14 ;;=5.31^0^16.814^88.496^^^^32.743^1.593^^^353.982^530.973^^^^^^1.77^.15
+15 ;;^UTILITY(U,$J,112,10126,2)
+16 ;;=.062^.354^^^^^^^0^^^^^^^^4.425
+17 ;;^UTILITY(U,$J,112,10126,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,10127,0)
+20 ;;=BEANS,PINTO,CND,PICANTE STYLE,JOAN OF ARC^BC-03400^1/2-cup^142
+21 ;;^UTILITY(U,$J,112,10127,1)
+22 ;;=4.789^.915^15^69.014^77.394^^^35.211^.901^^59.155^190.845^407.042^^^^^240.845^^.049
+23 ;;^UTILITY(U,$J,112,10127,2)
+24 ;;=.042^.493^^^^^^^0^^^^^^^^4.718
+25 ;;^UTILITY(U,$J,112,10127,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,10128,0)
+28 ;;=POTATO,BAKED W/BUTTER FLAVOR FROZEN,ORE-IDA^BC-03401^potato^142
+29 ;;^UTILITY(U,$J,112,10128,1)
+30 ;;=3.169^6.268^19.859^148.592^68.873^^^38.732^.768^^^525.352^277.465^^^^^106.338^0^.063
+31 ;;^UTILITY(U,$J,112,10128,2)
+32 ;;=.07^2.113^^^^^^^0^1.268^3.099^1.62
+33 ;;^UTILITY(U,$J,112,10128,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,10129,0)
+36 ;;=POTATO,BAKED W/CHEDDAR CHEESE,FROZEN,ORE-LDA^BC-03402^potato^142
+37 ;;^UTILITY(U,$J,112,10129,1)
+38 ;;=4.437^7.606^19.366^160.563^67.042^^^56.338^1.507^^^378.873^397.887^^^^^52.817^0^.077
+39 ;;^UTILITY(U,$J,112,10129,2)
+40 ;;=.113^1.62^^^^^^^4.225^5.07^2.324^.211
+41 ;;^UTILITY(U,$J,112,10129,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,10130,0)
+44 ;;=POTATO,BAKED W/CHEESE TOPPING,FROZEN,PILLSBURY^BC-03403^5-oz.^142
+45 ;;^UTILITY(U,$J,112,10130,1)
+46 ;;=3.169^3.873^23.169^140.845^68.028^^^29.577^.599^^78.873^440.141^366.901^^^^^238.732^4.93^.042
+47 ;;^UTILITY(U,$J,112,10130,2)
+48 ;;=.049^1.69^^^^^^^^^^^^^^^.634
+49 ;;^UTILITY(U,$J,112,10130,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,10131,0)
+52 ;;=POTATO,BAKED W/SOUR CREAM & CHIVES,FROZEN,PILLSBURY^BC-03404^5-oz.^142
+53 ;;^UTILITY(U,$J,112,10131,1)
+54 ;;=3.31^6.972^21.62^162.676^65.986^^^35.211^.697^^78.169^404.93^407.746^^^^^309.155^3.521^.049
+55 ;;^UTILITY(U,$J,112,10131,2)
+56 ;;=.063^1.69^^^^^^^^^^^^^^^.775
+57 ;;^UTILITY(U,$J,112,10131,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,10132,0)
+60 ;;=POTATO,BAKED W/SOUR CREAM,FROZEN,ORE-LDA^BC-03405^potato^142
+61 ;;^UTILITY(U,$J,112,10132,1)
+62 ;;=3.31^6.268^18.944^147.183^^^^27.465^1.303^^^410.563^313.38^^^^^54.225^.704^.092
+63 ;;^UTILITY(U,$J,112,10132,2)
+64 ;;=.07^1.69^^^^^^^0^1.268^3.099^1.62
+65 ;;^UTILITY(U,$J,112,10132,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,10133,0)
+68 ;;=POTATO,CND,NEW,WHOLE,HUNT'S^BC-03406^4-oz.^113
+69 ;;^UTILITY(U,$J,112,10133,1)
+70 ;;=1.77^0^13.274^61.947^^^^4.425^1.239^^^194.69^203.54^^^^^^4.425^.053
+71 ;;^UTILITY(U,$J,112,10133,2)
+72 ;;=.009^.885^^^^^^^0^^^^^^^^0
+73 ;;^UTILITY(U,$J,112,10133,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,10134,0)
+76 ;;=POTATO,CRISPERS,FROZEN,ORE-LDA^BC-03407^3-oz.^85
+77 ;;^UTILITY(U,$J,112,10134,1)
+78 ;;=2.588^16.941^29.059^271.765^49.529^^^^1.059^^^415.294^554.118^^^^^^4.706^.094
+79 ;;^UTILITY(U,$J,112,10134,2)
+80 ;;=^2.353^^^^^^^0^3.059^11.647^2.353
+81 ;;^UTILITY(U,$J,112,10134,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,10135,0)
+84 ;;=POTATO,CRISPY CROWNS,FROZEN,ORE-LDA^BC-03408^3-oz.^85
+85 ;;^UTILITY(U,$J,112,10135,1)
+86 ;;=2.118^11.059^24^202.353^61.294^^^^.953^^^277.647^484.706^^^^^^2.353^.094
+87 ;;^UTILITY(U,$J,112,10135,2)
+88 ;;=^1.529^^^^^^^0^1.882^7.647^1.529
+89 ;;^UTILITY(U,$J,112,10135,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,10136,0)
+92 ;;=POTATO,FRENCH FRIED,FRZN,COTTAGE FRIES,ORE-LDA^BC-03409^3-oz.^85
+93 ;;^UTILITY(U,$J,112,10136,1)
+94 ;;=2.588^4.941^22.941^147.059^68.588^^^^.847^^^449.412^20^^^^^^10.588^.106
+95 ;;^UTILITY(U,$J,112,10136,2)
+96 ;;=^2.353^^^^^^^0^.941^3.412^.706
+97 ;;^UTILITY(U,$J,112,10136,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,10137,0)
+100 ;;=POTATO,FRENCH FRIED,FRZN,COUNTRY STYLE,ORE-IDA^BC-03410^3-oz.^85
+101 ;;^UTILITY(U,$J,112,10137,1)
+102 ;;=2.471^3.529^22.235^130.588^71.059^^^^.671^^^407.059^11.765^^^^^^12.941^.118
+103 ;;^UTILITY(U,$J,112,10137,2)
+104 ;;=^2^^^^^^^0^.588^2.353^.471
