FHINI0BX ; ; 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,7745,1)
;;=7.232^19.096^9.379^238.418^^^^35.593^.847^^^188.701^431.638^^^^^1.13^1.13^.119
;;^UTILITY(U,$J,112,7745,2)
;;=.198^1.017
;;^UTILITY(U,$J,112,7745,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7746,0)
;;=FROZEN BREAKFAST,SCRAMBLED EGGS,SWANSON W/CHEESE & PANCAKE^BC-01019^3.4-oz.^96
;;^UTILITY(U,$J,112,7746,1)
;;=7.604^17.604^21.771^276.042^^^^90.625^1.563^^^91.667^415.625^^^^^^0^.083
;;^UTILITY(U,$J,112,7746,2)
;;=.156^.938
;;^UTILITY(U,$J,112,7746,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7747,0)
;;=FROZEN BREAKFAST,WAFFLES,BELGIUM,SWANSON &SAUSAGE^BC-01020^2.9-oz.^81
;;^UTILITY(U,$J,112,7747,1)
;;=9.383^22.346^25.679^341.975^^^^56.79^1.605^^^162.963^541.975^^^^^0^2.469^.296
;;^UTILITY(U,$J,112,7747,2)
;;=.247^1.605
;;^UTILITY(U,$J,112,7747,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7748,0)
;;=FROZEN BREAKFAST,WAFFLES,BELGIUM,SWANSON W/STRAWBERRIES^BC-01021^3.5-oz.^99
;;^UTILITY(U,$J,112,7748,1)
;;=3.232^7.172^31.111^203.03^^^^45.455^1.111^^^166.667^237.374^^^^^19.192^3.03^.081
;;^UTILITY(U,$J,112,7748,2)
;;=.131^.707
;;^UTILITY(U,$J,112,7748,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7749,0)
;;=FROZEN DINNERS,BEANS & FRANKFURTERS,BANQUET^BC-01022^10-oz.^284
;;^UTILITY(U,$J,112,7749,1)
;;=5.986^8.803^20.07^183.099^^^^35.563^1.408^^^278.169^433.099^^^^^1523.592^10.563^.12
;;^UTILITY(U,$J,112,7749,2)
;;=.046^1.338^^^^^^^12.324
;;^UTILITY(U,$J,112,7749,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7750,0)
;;=FROZEN DINNERS,BEANS & FRANKFURTERS,MORTON^BC-01023^10-oz.^284
;;^UTILITY(U,$J,112,7750,1)
;;=3.873^4.577^16.197^123.239^^^^27.465^1.056^^76.408^165.493^524.648^^^^^1701.761^4.577^.106
;;^UTILITY(U,$J,112,7750,2)
;;=.046^.423^^^^^^^10.563
;;^UTILITY(U,$J,112,7750,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7751,0)
;;=FROZEN DINNERS,BEANS & FRANFURTERS,SWANSON^BC-01024^10.5-oz.^298
;;^UTILITY(U,$J,112,7751,1)
;;=4.631^6.342^17.886^147.315^^^^49.664^1.242^^^188.591^301.342^^^^^103.356^3.356^.044
;;^UTILITY(U,$J,112,7751,2)
;;=.06^.872
;;^UTILITY(U,$J,112,7751,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7752,0)
;;=FROZEN DINNERS,BEEF,BANQUET EXTRA HELPING^BC-01025^16-oz.^454
;;^UTILITY(U,$J,112,7752,1)
;;=7.489^13.436^11.013^191.63^^^^12.115^1.322^^75.771^200.441^178.414^^^^^929.515^3.744^.064
;;^UTILITY(U,$J,112,7752,2)
;;=.07^2.115^^^^^^^26.432
;;^UTILITY(U,$J,112,7752,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7753,0)
;;=FROZEN DINNERS,BEEF,SWANSON^BC-01026^11.25-oz.^319
;;^UTILITY(U,$J,112,7753,1)
;;=8.746^2.476^11.881^104.702^^^^13.48^1.505^^^168.966^242.947^^^^^132.288^1.881^.056
;;^UTILITY(U,$J,112,7753,2)
;;=.078^1.693
;;^UTILITY(U,$J,112,7753,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7754,0)
;;=FROZEN DINNERS,BEEF CHOPPED,BANQUET^BC-01027^11-oz.^312
;;^UTILITY(U,$J,112,7754,1)
;;=6.731^10.256^4.487^134.615^^^^14.103^.962^^^147.436^192.308^^^^^2938.462^.962^.042
;;^UTILITY(U,$J,112,7754,2)
;;=.074^1.827^^^^^^^25.641
;;^UTILITY(U,$J,112,7754,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7755,0)
;;=FROZEN DINNERS,BEEF CHOPPED,SWANSON HUNGRY-MAN^BC-01028^16.75-oz.^475
;;^UTILITY(U,$J,112,7755,1)
;;=8.084^6.358^9.284^126.737^^^^14.947^1.368^^^158.316^332.211^^^^^90.947^2.105^.036
;;^UTILITY(U,$J,112,7755,2)
;;=.08^1.789
;;^UTILITY(U,$J,112,7755,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7756,0)
;;=FROZEN DINNERS,BEEF ORIENTAL, LE MENU LIGHTSTYLE^BC-01029^10-oz.^284
;;^UTILITY(U,$J,112,7756,1)
;;=6.62^1.901^8.627^78.169^^^^13.732^1.197^^^127.465^197.183^^^^^510.211^3.169^.025
;;^UTILITY(U,$J,112,7756,2)
;;=.19^1.197^^^^^^^13.732^.528^^.317
;;^UTILITY(U,$J,112,7756,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7757,0)
;;=FROZEN DINNERS,BEEF PEPPER STEAK,ARMOUR CLASSICS LITE^BC-01030^11.25-oz.^319
;;^UTILITY(U,$J,112,7757,1)
;;=5.329^1.254^9.091^68.966^^^^15.674^.627^^43.574^100.313^304.075^^^^^165.204^4.702^14.734
;;^UTILITY(U,$J,112,7757,2)
;;=.085^.502^^^^^^^10.972
;;^UTILITY(U,$J,112,7757,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7758,0)
;;=FROZEN DINNERS,BEEF PEPPER STEAK,LE MENU^BC-01031^11.5-oz.^326
;;^UTILITY(U,$J,112,7758,1)
;;=7.914^3.834^10.644^108.589^^^^16.258^1.288^^^112.883^309.202^^^^^448.466^4.294^.028
FHINI0BX ; ; 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,7745,1)
+2 ;;=7.232^19.096^9.379^238.418^^^^35.593^.847^^^188.701^431.638^^^^^1.13^1.13^.119
+3 ;;^UTILITY(U,$J,112,7745,2)
+4 ;;=.198^1.017
+5 ;;^UTILITY(U,$J,112,7745,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7746,0)
+8 ;;=FROZEN BREAKFAST,SCRAMBLED EGGS,SWANSON W/CHEESE & PANCAKE^BC-01019^3.4-oz.^96
+9 ;;^UTILITY(U,$J,112,7746,1)
+10 ;;=7.604^17.604^21.771^276.042^^^^90.625^1.563^^^91.667^415.625^^^^^^0^.083
+11 ;;^UTILITY(U,$J,112,7746,2)
+12 ;;=.156^.938
+13 ;;^UTILITY(U,$J,112,7746,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7747,0)
+16 ;;=FROZEN BREAKFAST,WAFFLES,BELGIUM,SWANSON &SAUSAGE^BC-01020^2.9-oz.^81
+17 ;;^UTILITY(U,$J,112,7747,1)
+18 ;;=9.383^22.346^25.679^341.975^^^^56.79^1.605^^^162.963^541.975^^^^^0^2.469^.296
+19 ;;^UTILITY(U,$J,112,7747,2)
+20 ;;=.247^1.605
+21 ;;^UTILITY(U,$J,112,7747,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7748,0)
+24 ;;=FROZEN BREAKFAST,WAFFLES,BELGIUM,SWANSON W/STRAWBERRIES^BC-01021^3.5-oz.^99
+25 ;;^UTILITY(U,$J,112,7748,1)
+26 ;;=3.232^7.172^31.111^203.03^^^^45.455^1.111^^^166.667^237.374^^^^^19.192^3.03^.081
+27 ;;^UTILITY(U,$J,112,7748,2)
+28 ;;=.131^.707
+29 ;;^UTILITY(U,$J,112,7748,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7749,0)
+32 ;;=FROZEN DINNERS,BEANS & FRANKFURTERS,BANQUET^BC-01022^10-oz.^284
+33 ;;^UTILITY(U,$J,112,7749,1)
+34 ;;=5.986^8.803^20.07^183.099^^^^35.563^1.408^^^278.169^433.099^^^^^1523.592^10.563^.12
+35 ;;^UTILITY(U,$J,112,7749,2)
+36 ;;=.046^1.338^^^^^^^12.324
+37 ;;^UTILITY(U,$J,112,7749,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7750,0)
+40 ;;=FROZEN DINNERS,BEANS & FRANKFURTERS,MORTON^BC-01023^10-oz.^284
+41 ;;^UTILITY(U,$J,112,7750,1)
+42 ;;=3.873^4.577^16.197^123.239^^^^27.465^1.056^^76.408^165.493^524.648^^^^^1701.761^4.577^.106
+43 ;;^UTILITY(U,$J,112,7750,2)
+44 ;;=.046^.423^^^^^^^10.563
+45 ;;^UTILITY(U,$J,112,7750,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7751,0)
+48 ;;=FROZEN DINNERS,BEANS & FRANFURTERS,SWANSON^BC-01024^10.5-oz.^298
+49 ;;^UTILITY(U,$J,112,7751,1)
+50 ;;=4.631^6.342^17.886^147.315^^^^49.664^1.242^^^188.591^301.342^^^^^103.356^3.356^.044
+51 ;;^UTILITY(U,$J,112,7751,2)
+52 ;;=.06^.872
+53 ;;^UTILITY(U,$J,112,7751,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7752,0)
+56 ;;=FROZEN DINNERS,BEEF,BANQUET EXTRA HELPING^BC-01025^16-oz.^454
+57 ;;^UTILITY(U,$J,112,7752,1)
+58 ;;=7.489^13.436^11.013^191.63^^^^12.115^1.322^^75.771^200.441^178.414^^^^^929.515^3.744^.064
+59 ;;^UTILITY(U,$J,112,7752,2)
+60 ;;=.07^2.115^^^^^^^26.432
+61 ;;^UTILITY(U,$J,112,7752,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7753,0)
+64 ;;=FROZEN DINNERS,BEEF,SWANSON^BC-01026^11.25-oz.^319
+65 ;;^UTILITY(U,$J,112,7753,1)
+66 ;;=8.746^2.476^11.881^104.702^^^^13.48^1.505^^^168.966^242.947^^^^^132.288^1.881^.056
+67 ;;^UTILITY(U,$J,112,7753,2)
+68 ;;=.078^1.693
+69 ;;^UTILITY(U,$J,112,7753,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7754,0)
+72 ;;=FROZEN DINNERS,BEEF CHOPPED,BANQUET^BC-01027^11-oz.^312
+73 ;;^UTILITY(U,$J,112,7754,1)
+74 ;;=6.731^10.256^4.487^134.615^^^^14.103^.962^^^147.436^192.308^^^^^2938.462^.962^.042
+75 ;;^UTILITY(U,$J,112,7754,2)
+76 ;;=.074^1.827^^^^^^^25.641
+77 ;;^UTILITY(U,$J,112,7754,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7755,0)
+80 ;;=FROZEN DINNERS,BEEF CHOPPED,SWANSON HUNGRY-MAN^BC-01028^16.75-oz.^475
+81 ;;^UTILITY(U,$J,112,7755,1)
+82 ;;=8.084^6.358^9.284^126.737^^^^14.947^1.368^^^158.316^332.211^^^^^90.947^2.105^.036
+83 ;;^UTILITY(U,$J,112,7755,2)
+84 ;;=.08^1.789
+85 ;;^UTILITY(U,$J,112,7755,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7756,0)
+88 ;;=FROZEN DINNERS,BEEF ORIENTAL, LE MENU LIGHTSTYLE^BC-01029^10-oz.^284
+89 ;;^UTILITY(U,$J,112,7756,1)
+90 ;;=6.62^1.901^8.627^78.169^^^^13.732^1.197^^^127.465^197.183^^^^^510.211^3.169^.025
+91 ;;^UTILITY(U,$J,112,7756,2)
+92 ;;=.19^1.197^^^^^^^13.732^.528^^.317
+93 ;;^UTILITY(U,$J,112,7756,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7757,0)
+96 ;;=FROZEN DINNERS,BEEF PEPPER STEAK,ARMOUR CLASSICS LITE^BC-01030^11.25-oz.^319
+97 ;;^UTILITY(U,$J,112,7757,1)
+98 ;;=5.329^1.254^9.091^68.966^^^^15.674^.627^^43.574^100.313^304.075^^^^^165.204^4.702^14.734
+99 ;;^UTILITY(U,$J,112,7757,2)
+100 ;;=.085^.502^^^^^^^10.972
+101 ;;^UTILITY(U,$J,112,7757,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,7758,0)
+104 ;;=FROZEN DINNERS,BEEF PEPPER STEAK,LE MENU^BC-01031^11.5-oz.^326
+105 ;;^UTILITY(U,$J,112,7758,1)
+106 ;;=7.914^3.834^10.644^108.589^^^^16.258^1.288^^^112.883^309.202^^^^^448.466^4.294^.028
