FHINI0C6 ; ; 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,7863,2)
;;=.079^1.672
;;^UTILITY(U,$J,112,7863,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7864,0)
;;=FROZEN DINNERS,SIRLOIN ROAST,ARMOUR CLASSICS^BC-01137^10.45-oz.^296
;;^UTILITY(U,$J,112,7864,1)
;;=6.419^1.351^7.095^64.189^^^^21.622^.676^^60.811^168.919^327.703^^^^^977.703^6.419^.051
;;^UTILITY(U,$J,112,7864,2)
;;=.071^.811^^^^^^^18.581
;;^UTILITY(U,$J,112,7864,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7865,0)
;;=FROZEN DINNERS,SIRLOIN TIPS,ARMOUR CLASSICS^BC-01138^10.25-oz.^291
;;^UTILITY(U,$J,112,7865,1)
;;=7.56^2.405^6.873^79.038^^^^31.959^.687^^71.478^192.44^281.787^^^^^773.883^4.124^.158
;;^UTILITY(U,$J,112,7865,2)
;;=.089^.859^^^^^^^24.055
;;^UTILITY(U,$J,112,7865,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7866,0)
;;=FROZEN DINNERS,SIRLOIN TIPS,HEALTHY CHOICE^BC-01139^11.75-oz.^333
;;^UTILITY(U,$J,112,7866,1)
;;=7.508^1.802^9.91^87.087^^^^11.111^.601^^58.258^162.162^105.105^^^^^1191.291^13.814^.057
;;^UTILITY(U,$J,112,7866,2)
;;=.069^.901^^^^^^^21.021^.901^^0
;;^UTILITY(U,$J,112,7866,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7867,0)
;;=FROZEN DINNERS,SIRLOIN TIPS,LE MENU^BC-01140^11.5-oz.^326
;;^UTILITY(U,$J,112,7867,1)
;;=9.049^5.368^8.19^117.485^^^^30.368^1.411^^102.147^210.429^225.767^^^^^208.896^8.589^.049
;;^UTILITY(U,$J,112,7867,2)
;;=.117^1.595^^^^^^^^^^^^^^^1.687
;;^UTILITY(U,$J,112,7867,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7868,0)
;;=FROZEN DINNERS,SIRLOIN TIPS,SWANSON HUNGRY-MAN^BC-01141^15.8-oz.^447
;;^UTILITY(U,$J,112,7868,1)
;;=6.823^3.154^11.23^100.671^^^^20.582^1.544^^^162.864^266.219^^^^^532.662^1.79^.056
;;^UTILITY(U,$J,112,7868,2)
;;=.112^1.253
;;^UTILITY(U,$J,112,7868,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7869,0)
;;=FROZEN DINNERS,SOLE AU GRATIN,HEALTHY CHOICE^BC-01142^11-oz.^312
;;^UTILITY(U,$J,112,7869,1)
;;=5.128^1.603^12.821^86.538^^^^30.769^.321^^84.615^134.615^150.641^^^^^22.436^2.244^.077
;;^UTILITY(U,$J,112,7869,2)
;;=.054^.513^^^^^^^17.628^.962^^0
;;^UTILITY(U,$J,112,7869,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7870,0)
;;=FROZEN DINNERS,SPAGHETTI & MEATBALLS,BANQUET^BC-01143^10-oz.^284
;;^UTILITY(U,$J,112,7870,1)
;;=3.873^3.521^15.493^102.113^^^^11.972^1.056^^^190.141^204.225^^^^^2954.225^5.634^.07
;;^UTILITY(U,$J,112,7870,2)
;;=.063^1.232^^^^^^^10.563
;;^UTILITY(U,$J,112,7870,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7871,0)
;;=FROZEN DINNERS,SPAGHETTI & MEATBALLS,MORTON^BC-01144^10-oz.^284
;;^UTILITY(U,$J,112,7871,1)
;;=2.113^1.056^13.732^70.423^^^^10.211^.704^^27.465^123.239^383.803^^^^^1254.577^4.577^.053
;;^UTILITY(U,$J,112,7871,2)
;;=.042^.423^^^^^^^3.521
;;^UTILITY(U,$J,112,7871,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7872,0)
;;=FROZEN DINNERS,SPAGHETTI & MEATBALLS,SWANSON BUDGET^BC-01145^12.5-oz.^354
;;^UTILITY(U,$J,112,7872,1)
;;=3.814^4.266^12.994^105.65^^^^31.921^.876^^^116.102^309.887^^^^^342.373^3.955^.059
;;^UTILITY(U,$J,112,7872,2)
;;=.065^.96
;;^UTILITY(U,$J,112,7872,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7873,0)
;;=FROZEN DINNERS,STEAK DIANE,ARMOUR CLASSICS LITE^BC-01146^10-oz.^284
;;^UTILITY(U,$J,112,7873,1)
;;=9.507^3.169^8.803^102.113^^^^17.254^1.408^^103.169^288.732^154.93^^^^^1111.972^4.577^.106
;;^UTILITY(U,$J,112,7873,2)
;;=.095^1.479^^^^^^^28.169
;;^UTILITY(U,$J,112,7873,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7874,0)
;;=FROZEN DINNERS,STUFFED SHELLS,3 CHEESES,LE MENU LIGHT^BC-01147^10-oz.^284
;;^UTILITY(U,$J,112,7874,1)
;;=6.092^2.57^11.796^95.07^^^^84.859^.951^^^110.915^241.549^^^^^472.183^11.972^.039
;;^UTILITY(U,$J,112,7874,2)
;;=.046^.704^^^^^^^7.042^1.162^^.423
;;^UTILITY(U,$J,112,7874,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7875,0)
;;=FROZEN DINNERS,SWISS STEAK,SWANSON^BC-01148^10-oz.^284
;;^UTILITY(U,$J,112,7875,1)
;;=9.225^3.697^13.028^122.183^^^^17.254^1.549^^^170.07^246.831^^^^^198.239^3.873^.07
;;^UTILITY(U,$J,112,7875,2)
;;=.077^1.62
;;^UTILITY(U,$J,112,7875,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7876,0)
;;=FROZEN DINNERS,TAMALES,CHICKEN,SWANSON BUDGET^BC-01149^9.7-oz.^276
;;^UTILITY(U,$J,112,7876,1)
;;=2.862^4.529^16.377^117.754^^^^48.551^.543^^95.652^95.652^435.145^^^^^524.275^1.812^.091
FHINI0C6 ; ; 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,7863,2)
+2 ;;=.079^1.672
+3 ;;^UTILITY(U,$J,112,7863,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7864,0)
+6 ;;=FROZEN DINNERS,SIRLOIN ROAST,ARMOUR CLASSICS^BC-01137^10.45-oz.^296
+7 ;;^UTILITY(U,$J,112,7864,1)
+8 ;;=6.419^1.351^7.095^64.189^^^^21.622^.676^^60.811^168.919^327.703^^^^^977.703^6.419^.051
+9 ;;^UTILITY(U,$J,112,7864,2)
+10 ;;=.071^.811^^^^^^^18.581
+11 ;;^UTILITY(U,$J,112,7864,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7865,0)
+14 ;;=FROZEN DINNERS,SIRLOIN TIPS,ARMOUR CLASSICS^BC-01138^10.25-oz.^291
+15 ;;^UTILITY(U,$J,112,7865,1)
+16 ;;=7.56^2.405^6.873^79.038^^^^31.959^.687^^71.478^192.44^281.787^^^^^773.883^4.124^.158
+17 ;;^UTILITY(U,$J,112,7865,2)
+18 ;;=.089^.859^^^^^^^24.055
+19 ;;^UTILITY(U,$J,112,7865,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7866,0)
+22 ;;=FROZEN DINNERS,SIRLOIN TIPS,HEALTHY CHOICE^BC-01139^11.75-oz.^333
+23 ;;^UTILITY(U,$J,112,7866,1)
+24 ;;=7.508^1.802^9.91^87.087^^^^11.111^.601^^58.258^162.162^105.105^^^^^1191.291^13.814^.057
+25 ;;^UTILITY(U,$J,112,7866,2)
+26 ;;=.069^.901^^^^^^^21.021^.901^^0
+27 ;;^UTILITY(U,$J,112,7866,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7867,0)
+30 ;;=FROZEN DINNERS,SIRLOIN TIPS,LE MENU^BC-01140^11.5-oz.^326
+31 ;;^UTILITY(U,$J,112,7867,1)
+32 ;;=9.049^5.368^8.19^117.485^^^^30.368^1.411^^102.147^210.429^225.767^^^^^208.896^8.589^.049
+33 ;;^UTILITY(U,$J,112,7867,2)
+34 ;;=.117^1.595^^^^^^^^^^^^^^^1.687
+35 ;;^UTILITY(U,$J,112,7867,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7868,0)
+38 ;;=FROZEN DINNERS,SIRLOIN TIPS,SWANSON HUNGRY-MAN^BC-01141^15.8-oz.^447
+39 ;;^UTILITY(U,$J,112,7868,1)
+40 ;;=6.823^3.154^11.23^100.671^^^^20.582^1.544^^^162.864^266.219^^^^^532.662^1.79^.056
+41 ;;^UTILITY(U,$J,112,7868,2)
+42 ;;=.112^1.253
+43 ;;^UTILITY(U,$J,112,7868,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7869,0)
+46 ;;=FROZEN DINNERS,SOLE AU GRATIN,HEALTHY CHOICE^BC-01142^11-oz.^312
+47 ;;^UTILITY(U,$J,112,7869,1)
+48 ;;=5.128^1.603^12.821^86.538^^^^30.769^.321^^84.615^134.615^150.641^^^^^22.436^2.244^.077
+49 ;;^UTILITY(U,$J,112,7869,2)
+50 ;;=.054^.513^^^^^^^17.628^.962^^0
+51 ;;^UTILITY(U,$J,112,7869,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7870,0)
+54 ;;=FROZEN DINNERS,SPAGHETTI & MEATBALLS,BANQUET^BC-01143^10-oz.^284
+55 ;;^UTILITY(U,$J,112,7870,1)
+56 ;;=3.873^3.521^15.493^102.113^^^^11.972^1.056^^^190.141^204.225^^^^^2954.225^5.634^.07
+57 ;;^UTILITY(U,$J,112,7870,2)
+58 ;;=.063^1.232^^^^^^^10.563
+59 ;;^UTILITY(U,$J,112,7870,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7871,0)
+62 ;;=FROZEN DINNERS,SPAGHETTI & MEATBALLS,MORTON^BC-01144^10-oz.^284
+63 ;;^UTILITY(U,$J,112,7871,1)
+64 ;;=2.113^1.056^13.732^70.423^^^^10.211^.704^^27.465^123.239^383.803^^^^^1254.577^4.577^.053
+65 ;;^UTILITY(U,$J,112,7871,2)
+66 ;;=.042^.423^^^^^^^3.521
+67 ;;^UTILITY(U,$J,112,7871,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7872,0)
+70 ;;=FROZEN DINNERS,SPAGHETTI & MEATBALLS,SWANSON BUDGET^BC-01145^12.5-oz.^354
+71 ;;^UTILITY(U,$J,112,7872,1)
+72 ;;=3.814^4.266^12.994^105.65^^^^31.921^.876^^^116.102^309.887^^^^^342.373^3.955^.059
+73 ;;^UTILITY(U,$J,112,7872,2)
+74 ;;=.065^.96
+75 ;;^UTILITY(U,$J,112,7872,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7873,0)
+78 ;;=FROZEN DINNERS,STEAK DIANE,ARMOUR CLASSICS LITE^BC-01146^10-oz.^284
+79 ;;^UTILITY(U,$J,112,7873,1)
+80 ;;=9.507^3.169^8.803^102.113^^^^17.254^1.408^^103.169^288.732^154.93^^^^^1111.972^4.577^.106
+81 ;;^UTILITY(U,$J,112,7873,2)
+82 ;;=.095^1.479^^^^^^^28.169
+83 ;;^UTILITY(U,$J,112,7873,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7874,0)
+86 ;;=FROZEN DINNERS,STUFFED SHELLS,3 CHEESES,LE MENU LIGHT^BC-01147^10-oz.^284
+87 ;;^UTILITY(U,$J,112,7874,1)
+88 ;;=6.092^2.57^11.796^95.07^^^^84.859^.951^^^110.915^241.549^^^^^472.183^11.972^.039
+89 ;;^UTILITY(U,$J,112,7874,2)
+90 ;;=.046^.704^^^^^^^7.042^1.162^^.423
+91 ;;^UTILITY(U,$J,112,7874,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,7875,0)
+94 ;;=FROZEN DINNERS,SWISS STEAK,SWANSON^BC-01148^10-oz.^284
+95 ;;^UTILITY(U,$J,112,7875,1)
+96 ;;=9.225^3.697^13.028^122.183^^^^17.254^1.549^^^170.07^246.831^^^^^198.239^3.873^.07
+97 ;;^UTILITY(U,$J,112,7875,2)
+98 ;;=.077^1.62
+99 ;;^UTILITY(U,$J,112,7875,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,7876,0)
+102 ;;=FROZEN DINNERS,TAMALES,CHICKEN,SWANSON BUDGET^BC-01149^9.7-oz.^276
+103 ;;^UTILITY(U,$J,112,7876,1)
+104 ;;=2.862^4.529^16.377^117.754^^^^48.551^.543^^95.652^95.652^435.145^^^^^524.275^1.812^.091
