FHINI0DR ; ; 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,8673,1)
;;=6.071^19.643^38.571^350^31.071^^^21.429^2.286^^378.571^221.429^810.714^^^^^0^0^.286
;;^UTILITY(U,$J,112,8673,2)
;;=.214^2.5
;;^UTILITY(U,$J,112,8673,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8674,0)
;;=ROLLS,HAMBURGER^BC-01947^roll^40
;;^UTILITY(U,$J,112,8674,1)
;;=8.5^5.25^50.25^285^34^^^135^2.975^20^82.5^92.5^602.5^.625^.165^^^0^0^.5
;;^UTILITY(U,$J,112,8674,2)
;;=.325^4^.525^.025^37.5^0
;;^UTILITY(U,$J,112,8674,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8675,0)
;;=ROLLS,HOAGIE^BC-01948^roll^142
;;^UTILITY(U,$J,112,8675,1)
;;=9.155^4.93^51.408^281.69^^^^^^^^^591.549
;;^UTILITY(U,$J,112,8675,2)
;;=^^^^^^^^3.521
;;^UTILITY(U,$J,112,8675,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8676,0)
;;=ROLLS,HOMESTYLE,FROM DOUGH,RICH'S^BC-01949^2-rolls^56
;;^UTILITY(U,$J,112,8676,1)
;;=8.036^4.286^50.179^271.429^37.143^^^48.214^3.643^21.429^135.714^121.429^598.214^.607^.321^^^^^.571
;;^UTILITY(U,$J,112,8676,2)
;;=.357^3.75^^^^^^^0
;;^UTILITY(U,$J,112,8676,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8677,0)
;;=ROLLS,HOTDOG^BC-01950^roll^40
;;^UTILITY(U,$J,112,8677,1)
;;=8.5^5.25^50.25^285^34^^^135^2.975^20^82.5^92.5^602.5^.625^.175^^^0^0^.5
;;^UTILITY(U,$J,112,8677,2)
;;=.325^4^.525^.025^37.5^0
;;^UTILITY(U,$J,112,8677,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8678,0)
;;=ROLLS,WIENER WRAP,FROM DOUGH,PILSBURY^BC-01951^wrap^22
;;^UTILITY(U,$J,112,8678,1)
;;=6.818^6.364^47.727^272.727^35.909^^^18.182^3.409^^509.091^104.545^1695.455^^^^^0^0^.818
;;^UTILITY(U,$J,112,8678,2)
;;=.227^3.636
;;^UTILITY(U,$J,112,8678,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8679,0)
;;=STUFFING,CHICKEN FLAVOR,FLEX SERVE,STOVE TOP^BC-01952^1/2-cup^107
;;^UTILITY(U,$J,112,8679,1)
;;=3.645^8.224^19.159^161.682^67.29^^^29.907^.935^10.28^35.514^64.486^539.252^.234^.065^^^290.654^.935^.103
;;^UTILITY(U,$J,112,8679,2)
;;=.084^1.121^.103^.028^17.757^.019^^^.935^4.673^^.561
;;^UTILITY(U,$J,112,8679,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8680,0)
;;=STUFFING,CHICKEN FLAVOR MIX,GOLDEN GRAIN^BC-01953^1/2-cup^35
;;^UTILITY(U,$J,112,8680,1)
;;=11.429^25.714^57.143^514.286^^^^65.714^3.686^^^271.429^2085.714^^^^^^^.457
;;^UTILITY(U,$J,112,8680,2)
;;=.343^4.286
;;^UTILITY(U,$J,112,8680,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8681,0)
;;=STUFFING,CHICKEN FLAVOR W/RICE,MIX,STOVE TOP^BC-01954^1/2-cup^109
;;^UTILITY(U,$J,112,8681,1)
;;=3.67^8.073^20.183^166.972^66.33^^^30.275^.917^11.009^38.532^78.899^511.009^.257^.075^^^355.046^.917^.11
;;^UTILITY(U,$J,112,8681,2)
;;=.083^1.101^.119^.037^17.431^.018^^^.917^4.587^^.55
;;^UTILITY(U,$J,112,8681,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8682,0)
;;=STUFFING,CHICKEN,FRZN,STUFFING ORIGINALS^BC-01955^1/2-cup^96
;;^UTILITY(U,$J,112,8682,1)
;;=3.75^7.813^22.708^177.083^63.646^^^28.125^1.5^^43.75^96.875^712.5^^^^^132.292^0^.333
;;^UTILITY(U,$J,112,8682,2)
;;=.125^1.771^^^^^^^^^^^^^^^.208
;;^UTILITY(U,$J,112,8682,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8683,0)
;;=STUFFING,CORNBREAD,MIX,STOVE TOP^BC-01956^1/2-cup^107
;;^UTILITY(U,$J,112,8683,1)
;;=2.991^7.944^20.093^163.551^67.29^^^20.561^.748^11.215^30.841^78.505^520.561^.196^.056^^^403.738^.935^.093
;;^UTILITY(U,$J,112,8683,2)
;;=.065^.748^.075^.037^10.28^.009^^^0^4.673^^.467
;;^UTILITY(U,$J,112,8683,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8684,0)
;;=STUFFING,CORNBREAD,FRZN,STUFFING ORIGINALS^BC-01957^1/2-cup^95
;;^UTILITY(U,$J,112,8684,1)
;;=3.474^6.737^26^178.947^62^^^21.053^1.074^^42.105^105.263^696.842^^^^^131.579^0^.295
;;^UTILITY(U,$J,112,8684,2)
;;=.105^1.579^^^^^^^^^^^^^^^.211
;;^UTILITY(U,$J,112,8684,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8685,0)
;;=STUFFING,CORNBREAD,MIX,GOLDEN GRAIN^BC-01958^1/2-cup^35
;;^UTILITY(U,$J,112,8685,1)
;;=8.571^25.714^60^514.286^^^^54.286^2.914^^^200^2485.714^^^^^^^.4
;;^UTILITY(U,$J,112,8685,2)
;;=.286^3.714
;;^UTILITY(U,$J,112,8685,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8686,0)
;;=STUFFING,COUNTRY GARDEN MIX,PEPPERIDGE FARMS^BC-01959^oz.^28
;;^UTILITY(U,$J,112,8686,1)
;;=12.857^13.929^63.929^432.143^^^^139.286^6.071^^^514.286^1067.857^^^^^0^0^.536
FHINI0DR ; ; 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,8673,1)
+2 ;;=6.071^19.643^38.571^350^31.071^^^21.429^2.286^^378.571^221.429^810.714^^^^^0^0^.286
+3 ;;^UTILITY(U,$J,112,8673,2)
+4 ;;=.214^2.5
+5 ;;^UTILITY(U,$J,112,8673,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8674,0)
+8 ;;=ROLLS,HAMBURGER^BC-01947^roll^40
+9 ;;^UTILITY(U,$J,112,8674,1)
+10 ;;=8.5^5.25^50.25^285^34^^^135^2.975^20^82.5^92.5^602.5^.625^.165^^^0^0^.5
+11 ;;^UTILITY(U,$J,112,8674,2)
+12 ;;=.325^4^.525^.025^37.5^0
+13 ;;^UTILITY(U,$J,112,8674,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8675,0)
+16 ;;=ROLLS,HOAGIE^BC-01948^roll^142
+17 ;;^UTILITY(U,$J,112,8675,1)
+18 ;;=9.155^4.93^51.408^281.69^^^^^^^^^591.549
+19 ;;^UTILITY(U,$J,112,8675,2)
+20 ;;=^^^^^^^^3.521
+21 ;;^UTILITY(U,$J,112,8675,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8676,0)
+24 ;;=ROLLS,HOMESTYLE,FROM DOUGH,RICH'S^BC-01949^2-rolls^56
+25 ;;^UTILITY(U,$J,112,8676,1)
+26 ;;=8.036^4.286^50.179^271.429^37.143^^^48.214^3.643^21.429^135.714^121.429^598.214^.607^.321^^^^^.571
+27 ;;^UTILITY(U,$J,112,8676,2)
+28 ;;=.357^3.75^^^^^^^0
+29 ;;^UTILITY(U,$J,112,8676,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8677,0)
+32 ;;=ROLLS,HOTDOG^BC-01950^roll^40
+33 ;;^UTILITY(U,$J,112,8677,1)
+34 ;;=8.5^5.25^50.25^285^34^^^135^2.975^20^82.5^92.5^602.5^.625^.175^^^0^0^.5
+35 ;;^UTILITY(U,$J,112,8677,2)
+36 ;;=.325^4^.525^.025^37.5^0
+37 ;;^UTILITY(U,$J,112,8677,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8678,0)
+40 ;;=ROLLS,WIENER WRAP,FROM DOUGH,PILSBURY^BC-01951^wrap^22
+41 ;;^UTILITY(U,$J,112,8678,1)
+42 ;;=6.818^6.364^47.727^272.727^35.909^^^18.182^3.409^^509.091^104.545^1695.455^^^^^0^0^.818
+43 ;;^UTILITY(U,$J,112,8678,2)
+44 ;;=.227^3.636
+45 ;;^UTILITY(U,$J,112,8678,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8679,0)
+48 ;;=STUFFING,CHICKEN FLAVOR,FLEX SERVE,STOVE TOP^BC-01952^1/2-cup^107
+49 ;;^UTILITY(U,$J,112,8679,1)
+50 ;;=3.645^8.224^19.159^161.682^67.29^^^29.907^.935^10.28^35.514^64.486^539.252^.234^.065^^^290.654^.935^.103
+51 ;;^UTILITY(U,$J,112,8679,2)
+52 ;;=.084^1.121^.103^.028^17.757^.019^^^.935^4.673^^.561
+53 ;;^UTILITY(U,$J,112,8679,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8680,0)
+56 ;;=STUFFING,CHICKEN FLAVOR MIX,GOLDEN GRAIN^BC-01953^1/2-cup^35
+57 ;;^UTILITY(U,$J,112,8680,1)
+58 ;;=11.429^25.714^57.143^514.286^^^^65.714^3.686^^^271.429^2085.714^^^^^^^.457
+59 ;;^UTILITY(U,$J,112,8680,2)
+60 ;;=.343^4.286
+61 ;;^UTILITY(U,$J,112,8680,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8681,0)
+64 ;;=STUFFING,CHICKEN FLAVOR W/RICE,MIX,STOVE TOP^BC-01954^1/2-cup^109
+65 ;;^UTILITY(U,$J,112,8681,1)
+66 ;;=3.67^8.073^20.183^166.972^66.33^^^30.275^.917^11.009^38.532^78.899^511.009^.257^.075^^^355.046^.917^.11
+67 ;;^UTILITY(U,$J,112,8681,2)
+68 ;;=.083^1.101^.119^.037^17.431^.018^^^.917^4.587^^.55
+69 ;;^UTILITY(U,$J,112,8681,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8682,0)
+72 ;;=STUFFING,CHICKEN,FRZN,STUFFING ORIGINALS^BC-01955^1/2-cup^96
+73 ;;^UTILITY(U,$J,112,8682,1)
+74 ;;=3.75^7.813^22.708^177.083^63.646^^^28.125^1.5^^43.75^96.875^712.5^^^^^132.292^0^.333
+75 ;;^UTILITY(U,$J,112,8682,2)
+76 ;;=.125^1.771^^^^^^^^^^^^^^^.208
+77 ;;^UTILITY(U,$J,112,8682,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8683,0)
+80 ;;=STUFFING,CORNBREAD,MIX,STOVE TOP^BC-01956^1/2-cup^107
+81 ;;^UTILITY(U,$J,112,8683,1)
+82 ;;=2.991^7.944^20.093^163.551^67.29^^^20.561^.748^11.215^30.841^78.505^520.561^.196^.056^^^403.738^.935^.093
+83 ;;^UTILITY(U,$J,112,8683,2)
+84 ;;=.065^.748^.075^.037^10.28^.009^^^0^4.673^^.467
+85 ;;^UTILITY(U,$J,112,8683,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8684,0)
+88 ;;=STUFFING,CORNBREAD,FRZN,STUFFING ORIGINALS^BC-01957^1/2-cup^95
+89 ;;^UTILITY(U,$J,112,8684,1)
+90 ;;=3.474^6.737^26^178.947^62^^^21.053^1.074^^42.105^105.263^696.842^^^^^131.579^0^.295
+91 ;;^UTILITY(U,$J,112,8684,2)
+92 ;;=.105^1.579^^^^^^^^^^^^^^^.211
+93 ;;^UTILITY(U,$J,112,8684,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8685,0)
+96 ;;=STUFFING,CORNBREAD,MIX,GOLDEN GRAIN^BC-01958^1/2-cup^35
+97 ;;^UTILITY(U,$J,112,8685,1)
+98 ;;=8.571^25.714^60^514.286^^^^54.286^2.914^^^200^2485.714^^^^^^^.4
+99 ;;^UTILITY(U,$J,112,8685,2)
+100 ;;=.286^3.714
+101 ;;^UTILITY(U,$J,112,8685,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,8686,0)
+104 ;;=STUFFING,COUNTRY GARDEN MIX,PEPPERIDGE FARMS^BC-01959^oz.^28
+105 ;;^UTILITY(U,$J,112,8686,1)
+106 ;;=12.857^13.929^63.929^432.143^^^^139.286^6.071^^^514.286^1067.857^^^^^0^0^.536
