FHINI0D8 ; ; 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,8411,1)
;;=3.412^2.235^11.804^80.784^^^^30.196^.471^^^65.882^322.353^^^^^274.51^3.922^.031
;;^UTILITY(U,$J,112,8411,2)
;;=.122^2.51
;;^UTILITY(U,$J,112,8411,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8412,0)
;;=SHRIMP,FRZN,FRIED,MRS. PAUL'S^BC-01685^3-oz.^85
;;^UTILITY(U,$J,112,8412,1)
;;=10.471^12.706^18.824^231.765^^^^51.765^1.412^^^38.824^463.529^^^^^0^1.176^.141
;;^UTILITY(U,$J,112,8412,2)
;;=.082^1.647
;;^UTILITY(U,$J,112,8412,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8413,0)
;;=SHRIMP PRIMAVERA,FRZN,MRS. PAUL'S LIGHT^BC-01686^entrees^312
;;^UTILITY(U,$J,112,8413,1)
;;=4.936^2.756^11.474^90.385^^^^25.641^1.154^^^41.667^283.654^^^^^957.051^4.487^.08
;;^UTILITY(U,$J,112,8413,2)
;;=.096^.994
;;^UTILITY(U,$J,112,8413,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8414,0)
;;=FISH,TAUTOG(BLACKFISH),RAW^BC-01687^3.5-oz.^100
;;^UTILITY(U,$J,112,8414,1)
;;=18.6^1.1^0^89^79.3^^^^^^227
;;^UTILITY(U,$J,112,8414,2)
;;=^^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8414,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8415,0)
;;=FISH,TOMCOD,ATLANTIC,RAW^BC-01688^3.5-oz.^100
;;^UTILITY(U,$J,112,8415,1)
;;=17.2^.4^0^77^81.5
;;^UTILITY(U,$J,112,8415,2)
;;=.17^^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8415,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8416,0)
;;=FISH,TROUT,DOLLY VARDEN^BC-01689^3.5-oz.^100
;;^UTILITY(U,$J,112,8416,1)
;;=19.9^6.5^0^144^73.1^^^^^^^^^^^^^^^.06
;;^UTILITY(U,$J,112,8416,2)
;;=.06^^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8416,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8417,0)
;;=FISH,TUNA,CND IN OIL,CHUNK,STAR-KIST^BC-01690^2-oz.^58
;;^UTILITY(U,$J,112,8417,1)
;;=22.414^22.414^0^293.103^^^^^^93.103^143.103^136.207^534.483
;;^UTILITY(U,$J,112,8417,2)
;;=^^^^^^^^34.483^1.724^^12.069^^^^^0
;;^UTILITY(U,$J,112,8417,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8418,0)
;;=FISH,TUNA,CND IN OIL,LIGHT CHUNK,60% LS,STAR-KIST^BC-01691^2-oz.^58
;;^UTILITY(U,$J,112,8418,1)
;;=24.138^22.414^0^293.103^^^^^^93.103^143.103^136.207^232.759
;;^UTILITY(U,$J,112,8418,2)
;;=^^^^^^^^34.483^1.724^^12.069^^^^^0
;;^UTILITY(U,$J,112,8418,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8419,0)
;;=FISH,TUNA CND IN OIL,WHITE CHUNK,STAR-KIST^BC-01692^2-oz.^58
;;^UTILITY(U,$J,112,8419,1)
;;=24.138^17.241^0^241.379^^^^^^93.103^143.103^136.207^534.483
;;^UTILITY(U,$J,112,8419,2)
;;=^^^^^^^^34.483^1.724^^12.069^^^^^0
;;^UTILITY(U,$J,112,8419,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8420,0)
;;=FISH,TUNA,CND IN SPRING WATER,LIGHT,CHUNK,STAR-KIST^BC-01693^2-oz.^58
;;^UTILITY(U,$J,112,8420,1)
;;=22.414^1.724^0^103.448^^^^^^93.103^143.103^146.552^534.483
;;^UTILITY(U,$J,112,8420,2)
;;=^^^^^^^^34.483^.345^^1.379^^^^^0
;;^UTILITY(U,$J,112,8420,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8421,0)
;;=FISH,TUNA,CND IN SPRING WATER,LIGHT,60% LS,STAR-KIST^BC-01694^2-oz.^58
;;^UTILITY(U,$J,112,8421,1)
;;=24.138^1.724^0^112.069^^^^^^93.103^143.103^146.552^232.759
;;^UTILITY(U,$J,112,8421,2)
;;=^^^^^^^^34.483^.345^^1.379^^^^^0
;;^UTILITY(U,$J,112,8421,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8422,0)
;;=FISH,TUNA,CND IN SPRING WATER,DIETETIC,STAR-KIST^BC-01695^2-oz.^58
;;^UTILITY(U,$J,112,8422,1)
;;=25.862^1.724^0^120.69^^^^^^93.103^143.103^146.552^51.724
;;^UTILITY(U,$J,112,8422,2)
;;=^^^^^^^^34.483^.345^^1.379^^^^^0
;;^UTILITY(U,$J,112,8422,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8423,0)
;;=FISH,TUNA,WHITE,60% LS,STAR-KIST^BC-01696^2-oz.^58
;;^UTILITY(U,$J,112,8423,1)
;;=25.862^1.724^0^120.69^^^^^^93.103^143.103^146.552^206.897
;;^UTILITY(U,$J,112,8423,2)
;;=^^^^^^^^34.483^.345^^1.379^^^^^0
;;^UTILITY(U,$J,112,8423,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8424,0)
;;=FISH,TUNA,CND IN SPRING WATER,ALBACORE,STAR-KIST^BC-01697^2-oz.^58
;;^UTILITY(U,$J,112,8424,1)
;;=25.862^1.724^0^120.69^^^^^^93.103^143.103^146.552^534.483
;;^UTILITY(U,$J,112,8424,2)
;;=^^^^^^^^34.483^.345^^1.379^^^^^0
;;^UTILITY(U,$J,112,8424,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8425,0)
;;=FISH,WHITE PERCH,RAW^BC-01698^3.5-oz.^100
;;^UTILITY(U,$J,112,8425,1)
;;=19.3^4^0^118^75.7^^^^^^192
FHINI0D8 ; ; 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,8411,1)
+2 ;;=3.412^2.235^11.804^80.784^^^^30.196^.471^^^65.882^322.353^^^^^274.51^3.922^.031
+3 ;;^UTILITY(U,$J,112,8411,2)
+4 ;;=.122^2.51
+5 ;;^UTILITY(U,$J,112,8411,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8412,0)
+8 ;;=SHRIMP,FRZN,FRIED,MRS. PAUL'S^BC-01685^3-oz.^85
+9 ;;^UTILITY(U,$J,112,8412,1)
+10 ;;=10.471^12.706^18.824^231.765^^^^51.765^1.412^^^38.824^463.529^^^^^0^1.176^.141
+11 ;;^UTILITY(U,$J,112,8412,2)
+12 ;;=.082^1.647
+13 ;;^UTILITY(U,$J,112,8412,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8413,0)
+16 ;;=SHRIMP PRIMAVERA,FRZN,MRS. PAUL'S LIGHT^BC-01686^entrees^312
+17 ;;^UTILITY(U,$J,112,8413,1)
+18 ;;=4.936^2.756^11.474^90.385^^^^25.641^1.154^^^41.667^283.654^^^^^957.051^4.487^.08
+19 ;;^UTILITY(U,$J,112,8413,2)
+20 ;;=.096^.994
+21 ;;^UTILITY(U,$J,112,8413,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8414,0)
+24 ;;=FISH,TAUTOG(BLACKFISH),RAW^BC-01687^3.5-oz.^100
+25 ;;^UTILITY(U,$J,112,8414,1)
+26 ;;=18.6^1.1^0^89^79.3^^^^^^227
+27 ;;^UTILITY(U,$J,112,8414,2)
+28 ;;=^^^^^^^^^^^^^^^^0
+29 ;;^UTILITY(U,$J,112,8414,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8415,0)
+32 ;;=FISH,TOMCOD,ATLANTIC,RAW^BC-01688^3.5-oz.^100
+33 ;;^UTILITY(U,$J,112,8415,1)
+34 ;;=17.2^.4^0^77^81.5
+35 ;;^UTILITY(U,$J,112,8415,2)
+36 ;;=.17^^^^^^^^^^^^^^^^0
+37 ;;^UTILITY(U,$J,112,8415,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8416,0)
+40 ;;=FISH,TROUT,DOLLY VARDEN^BC-01689^3.5-oz.^100
+41 ;;^UTILITY(U,$J,112,8416,1)
+42 ;;=19.9^6.5^0^144^73.1^^^^^^^^^^^^^^^.06
+43 ;;^UTILITY(U,$J,112,8416,2)
+44 ;;=.06^^^^^^^^^^^^^^^^0
+45 ;;^UTILITY(U,$J,112,8416,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8417,0)
+48 ;;=FISH,TUNA,CND IN OIL,CHUNK,STAR-KIST^BC-01690^2-oz.^58
+49 ;;^UTILITY(U,$J,112,8417,1)
+50 ;;=22.414^22.414^0^293.103^^^^^^93.103^143.103^136.207^534.483
+51 ;;^UTILITY(U,$J,112,8417,2)
+52 ;;=^^^^^^^^34.483^1.724^^12.069^^^^^0
+53 ;;^UTILITY(U,$J,112,8417,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8418,0)
+56 ;;=FISH,TUNA,CND IN OIL,LIGHT CHUNK,60% LS,STAR-KIST^BC-01691^2-oz.^58
+57 ;;^UTILITY(U,$J,112,8418,1)
+58 ;;=24.138^22.414^0^293.103^^^^^^93.103^143.103^136.207^232.759
+59 ;;^UTILITY(U,$J,112,8418,2)
+60 ;;=^^^^^^^^34.483^1.724^^12.069^^^^^0
+61 ;;^UTILITY(U,$J,112,8418,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8419,0)
+64 ;;=FISH,TUNA CND IN OIL,WHITE CHUNK,STAR-KIST^BC-01692^2-oz.^58
+65 ;;^UTILITY(U,$J,112,8419,1)
+66 ;;=24.138^17.241^0^241.379^^^^^^93.103^143.103^136.207^534.483
+67 ;;^UTILITY(U,$J,112,8419,2)
+68 ;;=^^^^^^^^34.483^1.724^^12.069^^^^^0
+69 ;;^UTILITY(U,$J,112,8419,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8420,0)
+72 ;;=FISH,TUNA,CND IN SPRING WATER,LIGHT,CHUNK,STAR-KIST^BC-01693^2-oz.^58
+73 ;;^UTILITY(U,$J,112,8420,1)
+74 ;;=22.414^1.724^0^103.448^^^^^^93.103^143.103^146.552^534.483
+75 ;;^UTILITY(U,$J,112,8420,2)
+76 ;;=^^^^^^^^34.483^.345^^1.379^^^^^0
+77 ;;^UTILITY(U,$J,112,8420,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8421,0)
+80 ;;=FISH,TUNA,CND IN SPRING WATER,LIGHT,60% LS,STAR-KIST^BC-01694^2-oz.^58
+81 ;;^UTILITY(U,$J,112,8421,1)
+82 ;;=24.138^1.724^0^112.069^^^^^^93.103^143.103^146.552^232.759
+83 ;;^UTILITY(U,$J,112,8421,2)
+84 ;;=^^^^^^^^34.483^.345^^1.379^^^^^0
+85 ;;^UTILITY(U,$J,112,8421,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8422,0)
+88 ;;=FISH,TUNA,CND IN SPRING WATER,DIETETIC,STAR-KIST^BC-01695^2-oz.^58
+89 ;;^UTILITY(U,$J,112,8422,1)
+90 ;;=25.862^1.724^0^120.69^^^^^^93.103^143.103^146.552^51.724
+91 ;;^UTILITY(U,$J,112,8422,2)
+92 ;;=^^^^^^^^34.483^.345^^1.379^^^^^0
+93 ;;^UTILITY(U,$J,112,8422,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8423,0)
+96 ;;=FISH,TUNA,WHITE,60% LS,STAR-KIST^BC-01696^2-oz.^58
+97 ;;^UTILITY(U,$J,112,8423,1)
+98 ;;=25.862^1.724^0^120.69^^^^^^93.103^143.103^146.552^206.897
+99 ;;^UTILITY(U,$J,112,8423,2)
+100 ;;=^^^^^^^^34.483^.345^^1.379^^^^^0
+101 ;;^UTILITY(U,$J,112,8423,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,8424,0)
+104 ;;=FISH,TUNA,CND IN SPRING WATER,ALBACORE,STAR-KIST^BC-01697^2-oz.^58
+105 ;;^UTILITY(U,$J,112,8424,1)
+106 ;;=25.862^1.724^0^120.69^^^^^^93.103^143.103^146.552^534.483
+107 ;;^UTILITY(U,$J,112,8424,2)
+108 ;;=^^^^^^^^34.483^.345^^1.379^^^^^0
+109 ;;^UTILITY(U,$J,112,8424,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+111 ;;^UTILITY(U,$J,112,8425,0)
+112 ;;=FISH,WHITE PERCH,RAW^BC-01698^3.5-oz.^100
+113 ;;^UTILITY(U,$J,112,8425,1)
+114 ;;=19.3^4^0^118^75.7^^^^^^192
