FHINI0D7 ; ; 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,8396,1)
;;=6.838^1.709^14.103^98.291^^^^28.632^^^95.299^162.393^166.667^^^^^^0^.085
;;^UTILITY(U,$J,112,8396,2)
;;=.06^.855^^^^^^^19.231^.855^^.427
;;^UTILITY(U,$J,112,8396,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8397,0)
;;=FISH,HADDOCK,FRZN,FILLETS,CRISPY CRUNCHY,MRS. PAUL'S^BC-01670^4.2-oz.^120
;;^UTILITY(U,$J,112,8397,1)
;;=11.25^11.833^21.333^236.667^^^^23.333^.833^^^215.833^383.333^^^^^0^.833^.1
;;^UTILITY(U,$J,112,8397,2)
;;=.117^2.5
;;^UTILITY(U,$J,112,8397,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8398,0)
;;=FISH,HADDOCK,FRZN,LIGHTLY BATTERED,CRUNCHY,MRS. PAUL'S^BC-01671^4.5-oz.^128
;;^UTILITY(U,$J,112,8398,1)
;;=8.828^12.656^24.531^246.875^^^^20.313^.469^^^208.594^555.469^^^^^0^0^.078
;;^UTILITY(U,$J,112,8398,2)
;;=.078^1.406
;;^UTILITY(U,$J,112,8398,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8399,0)
;;=FISH,HALIBUT,BREADED,FRZN,VAN DE KAMP'S^BC-01672^4-pieces^113
;;^UTILITY(U,$J,112,8399,1)
;;=13.274^8.85^13.274^194.69^^^^^^^^^460.177
;;^UTILITY(U,$J,112,8399,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8400,0)
;;=FISH,INCONNU,RAW^BC-01673^3.5-oz.^100
;;^UTILITY(U,$J,112,8400,1)
;;=19.9^6.8^0^146^72
;;^UTILITY(U,$J,112,8400,2)
;;=^^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8400,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8401,0)
;;=FISH,KINGFISH,RAW^BC-01674^3.5-oz.^100
;;^UTILITY(U,$J,112,8401,1)
;;=18.3^3^0^105^77.3^^^^^^^250^83
;;^UTILITY(U,$J,112,8401,2)
;;=^^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8401,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8402,0)
;;=FISH KINGFISH,BREADED,CKD W/FAT^BC-01675^3.5-oz.^100
;;^UTILITY(U,$J,112,8402,1)
;;=93^13.4^11.7^255^^^^80^1.9^56^287^293^101^^^^^^0^.11
;;^UTILITY(U,$J,112,8402,2)
;;=.13^2.9^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8402,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8403,0)
;;=LOBSTER PASTE^BC-01676^tsp.^7
;;^UTILITY(U,$J,112,8403,1)
;;=21.429^10^1.429^185.714^61.429^^^71.429^1.429^^185.714^^^^^^^^^.143
;;^UTILITY(U,$J,112,8403,2)
;;=.286
;;^UTILITY(U,$J,112,8403,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8404,0)
;;=LOBSTER SALAD (BC)^BC-01677^3.5-oz.^100
;;^UTILITY(U,$J,112,8404,1)
;;=10.1^6.4^2.3^110^80.3^^^36^.9^^95^264^124^^^^^^18^.09
;;^UTILITY(U,$J,112,8404,2)
;;=.08
;;^UTILITY(U,$J,112,8404,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8405,0)
;;=FISH,PERCH,FRZN,FILLET,CRISPY CRUNCHY,MRS. PAUL'S^BC-01678^4.2-oz.^120
;;^UTILITY(U,$J,112,8405,1)
;;=10.917^15.917^18.833^262.5^^^^29.167^1.333^^^158.333^390.833^^^^^0^.833^.092
;;^UTILITY(U,$J,112,8405,2)
;;=.092^1.25
;;^UTILITY(U,$J,112,8405,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8406,0)
;;=FISH,PERCH,FRZN,FILLET,MRS. PAUL'S^BC-01679^4.5-oz.^128
;;^UTILITY(U,$J,112,8406,1)
;;=12.734^10.313^16.797^210.938^^^^22.656^.938^^^258.594^401.563^^^^^0^0^.094
;;^UTILITY(U,$J,112,8406,2)
;;=.18^1.094^^^^^^^30.469^2.344^^3.125
;;^UTILITY(U,$J,112,8406,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8407,0)
;;=FISH,PIKE,PICKEREL,RAW^BC-01680^3.5-oz.^100
;;^UTILITY(U,$J,112,8407,1)
;;=18.7^.5^0^84^79.7^^^^.7
;;^UTILITY(U,$J,112,8407,2)
;;=^^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8407,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8408,0)
;;=SCALLOPS,FRENCH FRIED,FRZN,MRS. PAUL'S^BC-01681^3.5-oz.^99
;;^UTILITY(U,$J,112,8408,1)
;;=12.626^8.081^20.404^205.051^^^^50.505^1.212^^^236.364^366.667^^^^^0^0^.071
;;^UTILITY(U,$J,112,8408,2)
;;=.172^1.515
;;^UTILITY(U,$J,112,8408,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8409,0)
;;=SEAFOOD PLATTER COMBO,FRENCH FRIED,FRZN,MRS. PAUL'S^BC-01682^9-oz.^255
;;^UTILITY(U,$J,112,8409,1)
;;=8.157^12.235^22^230.588^^^^40^.98^^^167.059^478.824^^^^^0^.392^.024
;;^UTILITY(U,$J,112,8409,2)
;;=.149^1.608
;;^UTILITY(U,$J,112,8409,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8410,0)
;;=SEA NUGGETS/STRIPS,FRZN,FISHERY PRODUCTS^BC-01683^4-oz.^113
;;^UTILITY(U,$J,112,8410,1)
;;=13.274^4.071^14.513^151.327^^^^^^^^^440.708
;;^UTILITY(U,$J,112,8410,2)
;;=^^^^^^^^30.973
;;^UTILITY(U,$J,112,8410,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8411,0)
;;=SHRIMP,FRZN,CAJUN STYLE,MRS. PAUL'S^BC-01684^entrees^255
FHINI0D7 ; ; 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,8396,1)
+2 ;;=6.838^1.709^14.103^98.291^^^^28.632^^^95.299^162.393^166.667^^^^^^0^.085
+3 ;;^UTILITY(U,$J,112,8396,2)
+4 ;;=.06^.855^^^^^^^19.231^.855^^.427
+5 ;;^UTILITY(U,$J,112,8396,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8397,0)
+8 ;;=FISH,HADDOCK,FRZN,FILLETS,CRISPY CRUNCHY,MRS. PAUL'S^BC-01670^4.2-oz.^120
+9 ;;^UTILITY(U,$J,112,8397,1)
+10 ;;=11.25^11.833^21.333^236.667^^^^23.333^.833^^^215.833^383.333^^^^^0^.833^.1
+11 ;;^UTILITY(U,$J,112,8397,2)
+12 ;;=.117^2.5
+13 ;;^UTILITY(U,$J,112,8397,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8398,0)
+16 ;;=FISH,HADDOCK,FRZN,LIGHTLY BATTERED,CRUNCHY,MRS. PAUL'S^BC-01671^4.5-oz.^128
+17 ;;^UTILITY(U,$J,112,8398,1)
+18 ;;=8.828^12.656^24.531^246.875^^^^20.313^.469^^^208.594^555.469^^^^^0^0^.078
+19 ;;^UTILITY(U,$J,112,8398,2)
+20 ;;=.078^1.406
+21 ;;^UTILITY(U,$J,112,8398,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8399,0)
+24 ;;=FISH,HALIBUT,BREADED,FRZN,VAN DE KAMP'S^BC-01672^4-pieces^113
+25 ;;^UTILITY(U,$J,112,8399,1)
+26 ;;=13.274^8.85^13.274^194.69^^^^^^^^^460.177
+27 ;;^UTILITY(U,$J,112,8399,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8400,0)
+30 ;;=FISH,INCONNU,RAW^BC-01673^3.5-oz.^100
+31 ;;^UTILITY(U,$J,112,8400,1)
+32 ;;=19.9^6.8^0^146^72
+33 ;;^UTILITY(U,$J,112,8400,2)
+34 ;;=^^^^^^^^^^^^^^^^0
+35 ;;^UTILITY(U,$J,112,8400,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8401,0)
+38 ;;=FISH,KINGFISH,RAW^BC-01674^3.5-oz.^100
+39 ;;^UTILITY(U,$J,112,8401,1)
+40 ;;=18.3^3^0^105^77.3^^^^^^^250^83
+41 ;;^UTILITY(U,$J,112,8401,2)
+42 ;;=^^^^^^^^^^^^^^^^0
+43 ;;^UTILITY(U,$J,112,8401,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8402,0)
+46 ;;=FISH KINGFISH,BREADED,CKD W/FAT^BC-01675^3.5-oz.^100
+47 ;;^UTILITY(U,$J,112,8402,1)
+48 ;;=93^13.4^11.7^255^^^^80^1.9^56^287^293^101^^^^^^0^.11
+49 ;;^UTILITY(U,$J,112,8402,2)
+50 ;;=.13^2.9^^^^^^^^^^^^^^^0
+51 ;;^UTILITY(U,$J,112,8402,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,8403,0)
+54 ;;=LOBSTER PASTE^BC-01676^tsp.^7
+55 ;;^UTILITY(U,$J,112,8403,1)
+56 ;;=21.429^10^1.429^185.714^61.429^^^71.429^1.429^^185.714^^^^^^^^^.143
+57 ;;^UTILITY(U,$J,112,8403,2)
+58 ;;=.286
+59 ;;^UTILITY(U,$J,112,8403,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,8404,0)
+62 ;;=LOBSTER SALAD (BC)^BC-01677^3.5-oz.^100
+63 ;;^UTILITY(U,$J,112,8404,1)
+64 ;;=10.1^6.4^2.3^110^80.3^^^36^.9^^95^264^124^^^^^^18^.09
+65 ;;^UTILITY(U,$J,112,8404,2)
+66 ;;=.08
+67 ;;^UTILITY(U,$J,112,8404,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,8405,0)
+70 ;;=FISH,PERCH,FRZN,FILLET,CRISPY CRUNCHY,MRS. PAUL'S^BC-01678^4.2-oz.^120
+71 ;;^UTILITY(U,$J,112,8405,1)
+72 ;;=10.917^15.917^18.833^262.5^^^^29.167^1.333^^^158.333^390.833^^^^^0^.833^.092
+73 ;;^UTILITY(U,$J,112,8405,2)
+74 ;;=.092^1.25
+75 ;;^UTILITY(U,$J,112,8405,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,8406,0)
+78 ;;=FISH,PERCH,FRZN,FILLET,MRS. PAUL'S^BC-01679^4.5-oz.^128
+79 ;;^UTILITY(U,$J,112,8406,1)
+80 ;;=12.734^10.313^16.797^210.938^^^^22.656^.938^^^258.594^401.563^^^^^0^0^.094
+81 ;;^UTILITY(U,$J,112,8406,2)
+82 ;;=.18^1.094^^^^^^^30.469^2.344^^3.125
+83 ;;^UTILITY(U,$J,112,8406,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,8407,0)
+86 ;;=FISH,PIKE,PICKEREL,RAW^BC-01680^3.5-oz.^100
+87 ;;^UTILITY(U,$J,112,8407,1)
+88 ;;=18.7^.5^0^84^79.7^^^^.7
+89 ;;^UTILITY(U,$J,112,8407,2)
+90 ;;=^^^^^^^^^^^^^^^^0
+91 ;;^UTILITY(U,$J,112,8407,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,8408,0)
+94 ;;=SCALLOPS,FRENCH FRIED,FRZN,MRS. PAUL'S^BC-01681^3.5-oz.^99
+95 ;;^UTILITY(U,$J,112,8408,1)
+96 ;;=12.626^8.081^20.404^205.051^^^^50.505^1.212^^^236.364^366.667^^^^^0^0^.071
+97 ;;^UTILITY(U,$J,112,8408,2)
+98 ;;=.172^1.515
+99 ;;^UTILITY(U,$J,112,8408,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,8409,0)
+102 ;;=SEAFOOD PLATTER COMBO,FRENCH FRIED,FRZN,MRS. PAUL'S^BC-01682^9-oz.^255
+103 ;;^UTILITY(U,$J,112,8409,1)
+104 ;;=8.157^12.235^22^230.588^^^^40^.98^^^167.059^478.824^^^^^0^.392^.024
+105 ;;^UTILITY(U,$J,112,8409,2)
+106 ;;=.149^1.608
+107 ;;^UTILITY(U,$J,112,8409,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,8410,0)
+110 ;;=SEA NUGGETS/STRIPS,FRZN,FISHERY PRODUCTS^BC-01683^4-oz.^113
+111 ;;^UTILITY(U,$J,112,8410,1)
+112 ;;=13.274^4.071^14.513^151.327^^^^^^^^^440.708
+113 ;;^UTILITY(U,$J,112,8410,2)
+114 ;;=^^^^^^^^30.973
+115 ;;^UTILITY(U,$J,112,8410,20)
+116 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+117 ;;^UTILITY(U,$J,112,8411,0)
+118 ;;=SHRIMP,FRZN,CAJUN STYLE,MRS. PAUL'S^BC-01684^entrees^255