FHINI0GV ; ; 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,10205,0)
;;=TOMATO,RED,ITALIAN (PEAR SHAPED),CND,CONTADINA^BC-03478^1/2-cup^120
;;^UTILITY(U,$J,112,10205,1)
;;=.833^0^4.167^20.833^93.25^^^47.5^.6^15^19.167^233.333^183.333^^^^^585.833^15.833^.042
;;^UTILITY(U,$J,112,10205,2)
;;=.033^.667^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,10205,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10206,0)
;;=TOMATO,RED,ITALIAN (PEAR SHAPED),CND,CRUSHED,HUNT^BC-03479^4-oz.^113
;;^UTILITY(U,$J,112,10206,1)
;;=1.77^0^7.965^35.398^^^^42.478^1.239^^^442.478^407.08^^^^^^17.699^.08
;;^UTILITY(U,$J,112,10206,2)
;;=.053^2.389^^^^^^^0^^^^117.699^^^^0
;;^UTILITY(U,$J,112,10206,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10207,0)
;;=TOMATO,RED,ITALIAN (PEAR SHAPED),CND,HUNT^BC-03480^4-oz.^113
;;^UTILITY(U,$J,112,10207,1)
;;=.885^0^4.425^17.699^^^^36.283^.354^^^230.088^283.186^^^^^^10.619^.053
;;^UTILITY(U,$J,112,10207,2)
;;=.027^.708^^^^^^^0^^^^66.372^^^^0
;;^UTILITY(U,$J,112,10207,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10208,0)
;;=TOMATO,RED,ITALIAN (PEAR SHAPED),CND,WHOLE,HUNT^BC-03481^4-oz.^113
;;^UTILITY(U,$J,112,10208,1)
;;=.885^0^5.31^22.124^^^^38.053^.354^^^203.54^371.681^^^^^^17.699^.124
;;^UTILITY(U,$J,112,10208,2)
;;=.08^2.389^^^^^^^0^^^^117.699^^^^0
;;^UTILITY(U,$J,112,10208,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10209,0)
;;=TOMATO,RED,ITALIAN (PEAR SHAPED),STEWED,CND,CONTADINA^BC-03482^1/2-cup^123
;;^UTILITY(U,$J,112,10209,1)
;;=.813^0^6.504^28.455^^^^34.959^.593^11.382^21.138^243.902^203.252^^^^^554.472^13.008^.049
;;^UTILITY(U,$J,112,10209,2)
;;=.033^.65
;;^UTILITY(U,$J,112,10209,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10210,0)
;;=TOMATO,RED,ITALIAN (PEAR SHAPED),STEWED,CND,HUNT^BC-03483^4-oz.^113
;;^UTILITY(U,$J,112,10210,1)
;;=1.77^0^7.965^35.398^^^^32.743^.796^^^230.088^327.434^^^^^^17.699^.08
;;^UTILITY(U,$J,112,10210,2)
;;=.053^2.389^^^^^^^0^^^^117.699^^^^0
;;^UTILITY(U,$J,112,10210,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10211,0)
;;=VEG & PASTA MORNAY,FRZN,LEAN CUISINE^BC-03484^9.3-oz.^265
;;^UTILITY(U,$J,112,10211,1)
;;=5.66^4.906^9.811^105.66^^^^75.472^.408^^^132.075^449.057^^^^^754.717^11.321^.113
;;^UTILITY(U,$J,112,10211,2)
;;=.128^.755^^^^^^^15.094^1.132^^.377
;;^UTILITY(U,$J,112,10211,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10212,0)
;;=VEG & RICE W/BUTTER,FRZN,BANQUET^BC-03485^4-oz.^113
;;^UTILITY(U,$J,112,10212,1)
;;=2.655^7.965^20.354^161.947^^^^17.699^.531^^^26.549^575.221^^^^^200.885^0^.035
;;^UTILITY(U,$J,112,10212,2)
;;=.035^.354^^^^^^^22.124
;;^UTILITY(U,$J,112,10212,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10213,0)
;;=VEG CASSEROLE PRIMAVERA,STOUFFERS^BC-03486^4-oz.^113
;;^UTILITY(U,$J,112,10213,1)
;;=2.743^4.779^6.991^82.301^83.982^^^64.602^.301^^^179.646^324.779^^^^^700^2.655^.044
;;^UTILITY(U,$J,112,10213,2)
;;=.088^.442^^^^^^^9.735
;;^UTILITY(U,$J,112,10213,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10214,0)
;;=VEG MEDLEY,BREADED,FRZN,ORE-IDA^BC-03487^3-oz.^85
;;^UTILITY(U,$J,112,10214,1)
;;=3.882^10.588^20^190.588^63.765^^^17.647^1.035^^^225.882^548.235^^^^^2677.647^23.529^.141
;;^UTILITY(U,$J,112,10214,2)
;;=.141^2.235^^^^^^^3.529^1.882^7.294^1.412
;;^UTILITY(U,$J,112,10214,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10215,0)
;;=WATER CHESTNUTS,CHINESE,CND,SLICED,LACHOY^BC-03488^1/4-cup^35
;;^UTILITY(U,$J,112,10215,1)
;;=0^0^11.429^51.429^^^^5.714^.857^^^117.143^8.571
;;^UTILITY(U,$J,112,10215,2)
;;=^^^^^^^^0^^^^0
;;^UTILITY(U,$J,112,10215,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10216,0)
;;=WATER CHESTNUTS,CHINESE,CND,WHOLE,LACHOY^BC-03489^4-chestnut^35
;;^UTILITY(U,$J,112,10216,1)
;;=0^0^11.429^40^^^^2.857^.571^^^100^5.714
;;^UTILITY(U,$J,112,10216,2)
;;=^^^^^^^^0^^^^0
;;^UTILITY(U,$J,112,10216,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10217,0)
;;=BEANS,WAX,CUT,CND,JOAN OF ARC^BC-03490^1/2-cup^119
;;^UTILITY(U,$J,112,10217,1)
;;=1.092^.168^3.782^21.008^^^^73.109^2.597^^14.286^219.328^269.748^^^^^68.067^5.042^.034
;;^UTILITY(U,$J,112,10217,2)
;;=.034^.252
;;^UTILITY(U,$J,112,10217,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10218,0)
;;=BEANS,YELLOW,BAKED,CND,B&M^BC-03491^7/8-cup^227
FHINI0GV ; ; 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,10205,0)
+2 ;;=TOMATO,RED,ITALIAN (PEAR SHAPED),CND,CONTADINA^BC-03478^1/2-cup^120
+3 ;;^UTILITY(U,$J,112,10205,1)
+4 ;;=.833^0^4.167^20.833^93.25^^^47.5^.6^15^19.167^233.333^183.333^^^^^585.833^15.833^.042
+5 ;;^UTILITY(U,$J,112,10205,2)
+6 ;;=.033^.667^^^^^^^0^0^^0
+7 ;;^UTILITY(U,$J,112,10205,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,10206,0)
+10 ;;=TOMATO,RED,ITALIAN (PEAR SHAPED),CND,CRUSHED,HUNT^BC-03479^4-oz.^113
+11 ;;^UTILITY(U,$J,112,10206,1)
+12 ;;=1.77^0^7.965^35.398^^^^42.478^1.239^^^442.478^407.08^^^^^^17.699^.08
+13 ;;^UTILITY(U,$J,112,10206,2)
+14 ;;=.053^2.389^^^^^^^0^^^^117.699^^^^0
+15 ;;^UTILITY(U,$J,112,10206,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,10207,0)
+18 ;;=TOMATO,RED,ITALIAN (PEAR SHAPED),CND,HUNT^BC-03480^4-oz.^113
+19 ;;^UTILITY(U,$J,112,10207,1)
+20 ;;=.885^0^4.425^17.699^^^^36.283^.354^^^230.088^283.186^^^^^^10.619^.053
+21 ;;^UTILITY(U,$J,112,10207,2)
+22 ;;=.027^.708^^^^^^^0^^^^66.372^^^^0
+23 ;;^UTILITY(U,$J,112,10207,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,10208,0)
+26 ;;=TOMATO,RED,ITALIAN (PEAR SHAPED),CND,WHOLE,HUNT^BC-03481^4-oz.^113
+27 ;;^UTILITY(U,$J,112,10208,1)
+28 ;;=.885^0^5.31^22.124^^^^38.053^.354^^^203.54^371.681^^^^^^17.699^.124
+29 ;;^UTILITY(U,$J,112,10208,2)
+30 ;;=.08^2.389^^^^^^^0^^^^117.699^^^^0
+31 ;;^UTILITY(U,$J,112,10208,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,10209,0)
+34 ;;=TOMATO,RED,ITALIAN (PEAR SHAPED),STEWED,CND,CONTADINA^BC-03482^1/2-cup^123
+35 ;;^UTILITY(U,$J,112,10209,1)
+36 ;;=.813^0^6.504^28.455^^^^34.959^.593^11.382^21.138^243.902^203.252^^^^^554.472^13.008^.049
+37 ;;^UTILITY(U,$J,112,10209,2)
+38 ;;=.033^.65
+39 ;;^UTILITY(U,$J,112,10209,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,10210,0)
+42 ;;=TOMATO,RED,ITALIAN (PEAR SHAPED),STEWED,CND,HUNT^BC-03483^4-oz.^113
+43 ;;^UTILITY(U,$J,112,10210,1)
+44 ;;=1.77^0^7.965^35.398^^^^32.743^.796^^^230.088^327.434^^^^^^17.699^.08
+45 ;;^UTILITY(U,$J,112,10210,2)
+46 ;;=.053^2.389^^^^^^^0^^^^117.699^^^^0
+47 ;;^UTILITY(U,$J,112,10210,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,10211,0)
+50 ;;=VEG & PASTA MORNAY,FRZN,LEAN CUISINE^BC-03484^9.3-oz.^265
+51 ;;^UTILITY(U,$J,112,10211,1)
+52 ;;=5.66^4.906^9.811^105.66^^^^75.472^.408^^^132.075^449.057^^^^^754.717^11.321^.113
+53 ;;^UTILITY(U,$J,112,10211,2)
+54 ;;=.128^.755^^^^^^^15.094^1.132^^.377
+55 ;;^UTILITY(U,$J,112,10211,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,10212,0)
+58 ;;=VEG & RICE W/BUTTER,FRZN,BANQUET^BC-03485^4-oz.^113
+59 ;;^UTILITY(U,$J,112,10212,1)
+60 ;;=2.655^7.965^20.354^161.947^^^^17.699^.531^^^26.549^575.221^^^^^200.885^0^.035
+61 ;;^UTILITY(U,$J,112,10212,2)
+62 ;;=.035^.354^^^^^^^22.124
+63 ;;^UTILITY(U,$J,112,10212,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,10213,0)
+66 ;;=VEG CASSEROLE PRIMAVERA,STOUFFERS^BC-03486^4-oz.^113
+67 ;;^UTILITY(U,$J,112,10213,1)
+68 ;;=2.743^4.779^6.991^82.301^83.982^^^64.602^.301^^^179.646^324.779^^^^^700^2.655^.044
+69 ;;^UTILITY(U,$J,112,10213,2)
+70 ;;=.088^.442^^^^^^^9.735
+71 ;;^UTILITY(U,$J,112,10213,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,10214,0)
+74 ;;=VEG MEDLEY,BREADED,FRZN,ORE-IDA^BC-03487^3-oz.^85
+75 ;;^UTILITY(U,$J,112,10214,1)
+76 ;;=3.882^10.588^20^190.588^63.765^^^17.647^1.035^^^225.882^548.235^^^^^2677.647^23.529^.141
+77 ;;^UTILITY(U,$J,112,10214,2)
+78 ;;=.141^2.235^^^^^^^3.529^1.882^7.294^1.412
+79 ;;^UTILITY(U,$J,112,10214,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,10215,0)
+82 ;;=WATER CHESTNUTS,CHINESE,CND,SLICED,LACHOY^BC-03488^1/4-cup^35
+83 ;;^UTILITY(U,$J,112,10215,1)
+84 ;;=0^0^11.429^51.429^^^^5.714^.857^^^117.143^8.571
+85 ;;^UTILITY(U,$J,112,10215,2)
+86 ;;=^^^^^^^^0^^^^0
+87 ;;^UTILITY(U,$J,112,10215,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,10216,0)
+90 ;;=WATER CHESTNUTS,CHINESE,CND,WHOLE,LACHOY^BC-03489^4-chestnut^35
+91 ;;^UTILITY(U,$J,112,10216,1)
+92 ;;=0^0^11.429^40^^^^2.857^.571^^^100^5.714
+93 ;;^UTILITY(U,$J,112,10216,2)
+94 ;;=^^^^^^^^0^^^^0
+95 ;;^UTILITY(U,$J,112,10216,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,10217,0)
+98 ;;=BEANS,WAX,CUT,CND,JOAN OF ARC^BC-03490^1/2-cup^119
+99 ;;^UTILITY(U,$J,112,10217,1)
+100 ;;=1.092^.168^3.782^21.008^^^^73.109^2.597^^14.286^219.328^269.748^^^^^68.067^5.042^.034
+101 ;;^UTILITY(U,$J,112,10217,2)
+102 ;;=.034^.252
+103 ;;^UTILITY(U,$J,112,10217,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,10218,0)
+106 ;;=BEANS,YELLOW,BAKED,CND,B&M^BC-03491^7/8-cup^227
