FHINI0D5 ; ; 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,8367,0)
;;=VEGETABLE OIL SPRAYS,BAKER'S JOY BAKING SPRAY^BC-01640^sprays^0.4
;;^UTILITY(U,$J,112,8367,1)
;;=0^0^0^1000^0
;;^UTILITY(U,$J,112,8367,2)
;;=^^^^^^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,8367,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8368,0)
;;=VEGETABLE OIL SPRAYS,MAZOLA NO STICK^BC-01641^2.5-sec^0.2
;;^UTILITY(U,$J,112,8368,1)
;;=0^100^0^1000^0^^^^^^^^0
;;^UTILITY(U,$J,112,8368,2)
;;=^^^^^^^^0^0^0^50
;;^UTILITY(U,$J,112,8368,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8369,0)
;;=VEGETABLE OIL SPRAYS,WESSON LITE^BC-01642^sprays^.27
;;^UTILITY(U,$J,112,8369,1)
;;=0^0^0^148.148^^^^0^0^^^^0^^^^^^0^0
;;^UTILITY(U,$J,112,8369,2)
;;=0^0^^^^^^^0^^^^0
;;^UTILITY(U,$J,112,8369,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8370,0)
;;=SHORTENINGS,CRISCO,REG/BUTTER FLAVOR^BC-01643^tbsp.^12
;;^UTILITY(U,$J,112,8370,1)
;;=0^100^0^883.333^0^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8370,2)
;;=^^^^^^^^0^25.833^50^30^^^^^0
;;^UTILITY(U,$J,112,8370,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8371,0)
;;=FISH,ALEWIFE,RAW^BC-01644^3.5-oz.^100
;;^UTILITY(U,$J,112,8371,1)
;;=19.4^4.9^0^127^79.4^^^^^^218
;;^UTILITY(U,$J,112,8371,2)
;;=^^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8371,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8372,0)
;;=FISH,ALEWIFE,CND^BC-01645^3.5-oz.^100
;;^UTILITY(U,$J,112,8372,1)
;;=16.2^8^0^141^73
;;^UTILITY(U,$J,112,8372,2)
;;=^^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8372,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8373,0)
;;=FISH,ANCHOVY,PASTE^BC-01646^tsp.^7
;;^UTILITY(U,$J,112,8373,1)
;;=20^11.429^4.286^200
;;^UTILITY(U,$J,112,8373,2)
;;=^^^^^^^^^^^7.143^^^^^0
;;^UTILITY(U,$J,112,8373,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8374,0)
;;=FISH,ANCHOVY,PICKLED^BC-01647^oz.^28
;;^UTILITY(U,$J,112,8374,1)
;;=19.286^10.357^.357^175^58.571^^^167.857^^^210.714
;;^UTILITY(U,$J,112,8374,2)
;;=^^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8374,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8375,0)
;;=FISH,BASS,BLACK,BAKED,FAT ADDED^BC-01648^4-oz.^113
;;^UTILITY(U,$J,112,8375,1)
;;=20.885^17.168^2.655^253.982^^^^84.956^1.062^^238.053^226.549^60.177^^^^^85.841^0^.062
;;^UTILITY(U,$J,112,8375,2)
;;=.142^3.097^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8375,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8376,0)
;;=FISH,BASS,BLACK,STUFFED,BAKED^BC-01649^3.5-oz.^100
;;^UTILITY(U,$J,112,8376,1)
;;=16.2^15.8^11.4^259^52.9
;;^UTILITY(U,$J,112,8376,2)
;;=^^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8376,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8377,0)
;;=FISH,CATFISH FILLETS,FRZN,MRS. PAUL'S LIGHT^BC-01650^4.5-oz.^128
;;^UTILITY(U,$J,112,8377,1)
;;=12.266^12.188^15^218.75^^^^20.313^.938^^^230.469^316.406^^^^^0^0^.07
;;^UTILITY(U,$J,112,8377,2)
;;=.078^1.328^^^^^^^50^2.656^^2.578
;;^UTILITY(U,$J,112,8377,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8378,0)
;;=FISH,CATFISH STRIPS,FRZN,MRS. PAUL'S^BC-01651^4.7-oz.^113
;;^UTILITY(U,$J,112,8378,1)
;;=10.973^11.858^16.726^217.699^^^^13.274^.619^^^240.708^250.442^^^^^0^0^.274
;;^UTILITY(U,$J,112,8378,2)
;;=.097^1.593
;;^UTILITY(U,$J,112,8378,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8379,0)
;;=CLAMS,FRIED,FRZN,MRS. PAUL'S^BC-01652^2.5-oz.^71
;;^UTILITY(U,$J,112,8379,1)
;;=10.141^17.465^32.817^328.169^^^^29.577^1.69^^^160.563^535.211^^^^^30.986^0^.197
;;^UTILITY(U,$J,112,8379,2)
;;=.099^1.972^^^^^^^8.451
;;^UTILITY(U,$J,112,8379,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8380,0)
;;=FISH,COD,FRZN,BREADED,VAN DE KAMP'S^BC-01653^5-oz.^142
;;^UTILITY(U,$J,112,8380,1)
;;=14.085^14.085^7.042^204.225^^^^^^^^^260.563
;;^UTILITY(U,$J,112,8380,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8381,0)
;;=CRAB,DEVILED,FRZN,MRS. PAUL'S^BC-01654^3-oz.^85
;;^UTILITY(U,$J,112,8381,1)
;;=9.059^10.235^22.824^218.824^^^^102.353^1.294^^^138.824^508.235^^^^^69.412^0^.141
;;^UTILITY(U,$J,112,8381,2)
;;=.129^.941^^^^^^^38.824
;;^UTILITY(U,$J,112,8381,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8382,0)
;;=FISH CAKES,FRZN,MRS. PAUL'S^BC-01655^4-oz.^113
;;^UTILITY(U,$J,112,8382,1)
;;=9.735^9.115^22.92^213.274^^^^66.372^1.327^^^203.54^692.92^^^^^0^0^.142
FHINI0D5 ; ; 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,8367,0)
+2 ;;=VEGETABLE OIL SPRAYS,BAKER'S JOY BAKING SPRAY^BC-01640^sprays^0.4
+3 ;;^UTILITY(U,$J,112,8367,1)
+4 ;;=0^0^0^1000^0
+5 ;;^UTILITY(U,$J,112,8367,2)
+6 ;;=^^^^^^^^0^0^0^0^^^^^0
+7 ;;^UTILITY(U,$J,112,8367,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,8368,0)
+10 ;;=VEGETABLE OIL SPRAYS,MAZOLA NO STICK^BC-01641^2.5-sec^0.2
+11 ;;^UTILITY(U,$J,112,8368,1)
+12 ;;=0^100^0^1000^0^^^^^^^^0
+13 ;;^UTILITY(U,$J,112,8368,2)
+14 ;;=^^^^^^^^0^0^0^50
+15 ;;^UTILITY(U,$J,112,8368,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,8369,0)
+18 ;;=VEGETABLE OIL SPRAYS,WESSON LITE^BC-01642^sprays^.27
+19 ;;^UTILITY(U,$J,112,8369,1)
+20 ;;=0^0^0^148.148^^^^0^0^^^^0^^^^^^0^0
+21 ;;^UTILITY(U,$J,112,8369,2)
+22 ;;=0^0^^^^^^^0^^^^0
+23 ;;^UTILITY(U,$J,112,8369,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,8370,0)
+26 ;;=SHORTENINGS,CRISCO,REG/BUTTER FLAVOR^BC-01643^tbsp.^12
+27 ;;^UTILITY(U,$J,112,8370,1)
+28 ;;=0^100^0^883.333^0^^^^^^^^^^^^^0
+29 ;;^UTILITY(U,$J,112,8370,2)
+30 ;;=^^^^^^^^0^25.833^50^30^^^^^0
+31 ;;^UTILITY(U,$J,112,8370,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,8371,0)
+34 ;;=FISH,ALEWIFE,RAW^BC-01644^3.5-oz.^100
+35 ;;^UTILITY(U,$J,112,8371,1)
+36 ;;=19.4^4.9^0^127^79.4^^^^^^218
+37 ;;^UTILITY(U,$J,112,8371,2)
+38 ;;=^^^^^^^^^^^^^^^^0
+39 ;;^UTILITY(U,$J,112,8371,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,8372,0)
+42 ;;=FISH,ALEWIFE,CND^BC-01645^3.5-oz.^100
+43 ;;^UTILITY(U,$J,112,8372,1)
+44 ;;=16.2^8^0^141^73
+45 ;;^UTILITY(U,$J,112,8372,2)
+46 ;;=^^^^^^^^^^^^^^^^0
+47 ;;^UTILITY(U,$J,112,8372,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,8373,0)
+50 ;;=FISH,ANCHOVY,PASTE^BC-01646^tsp.^7
+51 ;;^UTILITY(U,$J,112,8373,1)
+52 ;;=20^11.429^4.286^200
+53 ;;^UTILITY(U,$J,112,8373,2)
+54 ;;=^^^^^^^^^^^7.143^^^^^0
+55 ;;^UTILITY(U,$J,112,8373,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,8374,0)
+58 ;;=FISH,ANCHOVY,PICKLED^BC-01647^oz.^28
+59 ;;^UTILITY(U,$J,112,8374,1)
+60 ;;=19.286^10.357^.357^175^58.571^^^167.857^^^210.714
+61 ;;^UTILITY(U,$J,112,8374,2)
+62 ;;=^^^^^^^^^^^^^^^^0
+63 ;;^UTILITY(U,$J,112,8374,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,8375,0)
+66 ;;=FISH,BASS,BLACK,BAKED,FAT ADDED^BC-01648^4-oz.^113
+67 ;;^UTILITY(U,$J,112,8375,1)
+68 ;;=20.885^17.168^2.655^253.982^^^^84.956^1.062^^238.053^226.549^60.177^^^^^85.841^0^.062
+69 ;;^UTILITY(U,$J,112,8375,2)
+70 ;;=.142^3.097^^^^^^^^^^^^^^^0
+71 ;;^UTILITY(U,$J,112,8375,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,8376,0)
+74 ;;=FISH,BASS,BLACK,STUFFED,BAKED^BC-01649^3.5-oz.^100
+75 ;;^UTILITY(U,$J,112,8376,1)
+76 ;;=16.2^15.8^11.4^259^52.9
+77 ;;^UTILITY(U,$J,112,8376,2)
+78 ;;=^^^^^^^^^^^^^^^^0
+79 ;;^UTILITY(U,$J,112,8376,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,8377,0)
+82 ;;=FISH,CATFISH FILLETS,FRZN,MRS. PAUL'S LIGHT^BC-01650^4.5-oz.^128
+83 ;;^UTILITY(U,$J,112,8377,1)
+84 ;;=12.266^12.188^15^218.75^^^^20.313^.938^^^230.469^316.406^^^^^0^0^.07
+85 ;;^UTILITY(U,$J,112,8377,2)
+86 ;;=.078^1.328^^^^^^^50^2.656^^2.578
+87 ;;^UTILITY(U,$J,112,8377,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,8378,0)
+90 ;;=FISH,CATFISH STRIPS,FRZN,MRS. PAUL'S^BC-01651^4.7-oz.^113
+91 ;;^UTILITY(U,$J,112,8378,1)
+92 ;;=10.973^11.858^16.726^217.699^^^^13.274^.619^^^240.708^250.442^^^^^0^0^.274
+93 ;;^UTILITY(U,$J,112,8378,2)
+94 ;;=.097^1.593
+95 ;;^UTILITY(U,$J,112,8378,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,8379,0)
+98 ;;=CLAMS,FRIED,FRZN,MRS. PAUL'S^BC-01652^2.5-oz.^71
+99 ;;^UTILITY(U,$J,112,8379,1)
+100 ;;=10.141^17.465^32.817^328.169^^^^29.577^1.69^^^160.563^535.211^^^^^30.986^0^.197
+101 ;;^UTILITY(U,$J,112,8379,2)
+102 ;;=.099^1.972^^^^^^^8.451
+103 ;;^UTILITY(U,$J,112,8379,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,8380,0)
+106 ;;=FISH,COD,FRZN,BREADED,VAN DE KAMP'S^BC-01653^5-oz.^142
+107 ;;^UTILITY(U,$J,112,8380,1)
+108 ;;=14.085^14.085^7.042^204.225^^^^^^^^^260.563
+109 ;;^UTILITY(U,$J,112,8380,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+111 ;;^UTILITY(U,$J,112,8381,0)
+112 ;;=CRAB,DEVILED,FRZN,MRS. PAUL'S^BC-01654^3-oz.^85
+113 ;;^UTILITY(U,$J,112,8381,1)
+114 ;;=9.059^10.235^22.824^218.824^^^^102.353^1.294^^^138.824^508.235^^^^^69.412^0^.141
+115 ;;^UTILITY(U,$J,112,8381,2)
+116 ;;=.129^.941^^^^^^^38.824
+117 ;;^UTILITY(U,$J,112,8381,20)
+118 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+119 ;;^UTILITY(U,$J,112,8382,0)
+120 ;;=FISH CAKES,FRZN,MRS. PAUL'S^BC-01655^4-oz.^113
+121 ;;^UTILITY(U,$J,112,8382,1)
+122 ;;=9.735^9.115^22.92^213.274^^^^66.372^1.327^^^203.54^692.92^^^^^0^0^.142
