FHINI0BM ; ; 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,7598,1)
;;=2^1.412^16^84.706^79.059^^^7.059^.106^^^50.588^450.588^^^^^110.588^1.176^.059
;;^UTILITY(U,$J,112,7598,2)
;;=.035^.706^^^^^^^2.353
;;^UTILITY(U,$J,112,7598,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7599,0)
;;=ENTREES,RICE FRIED,CANTONESE STYLE,GREEN GIANT^BC-00872^3-oz.^85
;;^UTILITY(U,$J,112,7599,1)
;;=2.353^3.529^21.176^125.882^^^^16.471^.824^^40^81.176^337.647^^^^^1123.529^1.176^.082
;;^UTILITY(U,$J,112,7599,2)
;;=.024^.824^^^^^^^17.647^.353^^.941
;;^UTILITY(U,$J,112,7599,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7600,0)
;;=ENTREES,RICE FRIED W/CHICKEN,CHUN KING^BC-00873^8-oz.^227
;;^UTILITY(U,$J,112,7600,1)
;;=6.167^1.762^18.062^114.537^^^^16.74^.881^^56.388^83.7^643.172^^^^^299.559^3.084^.33
;;^UTILITY(U,$J,112,7600,2)
;;=.093^.661
;;^UTILITY(U,$J,112,7600,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7601,0)
;;=ENTREES,RICE FRIED W/PORK,CHUN KING^BC-00874^8-oz.^227
;;^UTILITY(U,$J,112,7601,1)
;;=4.405^2.643^19.383^118.943^^^^11.454^.441^^56.828^79.295^533.04^^^^^374.449^1.762^.154
;;^UTILITY(U,$J,112,7601,2)
;;=.106^.661
;;^UTILITY(U,$J,112,7601,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7602,0)
;;=ENTREES,RICE,PEAS &MUSHROOMS W/SCE,PILSBURY^BC-00875^5.5-oz.^156
;;^UTILITY(U,$J,112,7602,1)
;;=2.564^1.282^17.308^83.333^^^^^^^^54.487^262.821
;;^UTILITY(U,$J,112,7602,2)
;;=^^^^^^^^3.205^^^0
;;^UTILITY(U,$J,112,7602,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7603,0)
;;=ENTREES,RIGATONI W/BEEF SCE,STOUFFERS^BC-00876^6-oz.^170
;;^UTILITY(U,$J,112,7603,1)
;;=6.882^4.176^10^105.882^77^^^100^1^^^210^300^^^^^250^5.294^.088
;;^UTILITY(U,$J,112,7603,2)
;;=.1^1.294^^^^^^^12.941
;;^UTILITY(U,$J,112,7603,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7604,0)
;;=ENTREES,RIGATONI W/MEAT SCE,LEAN CUISINE^BC-00877^9.7-oz^276
;;^UTILITY(U,$J,112,7604,1)
;;=6.522^3.623^9.058^94.203^^^^90.58^.978^^^170.29^376.812^^^^^452.899^2.174^.054
;;^UTILITY(U,$J,112,7604,2)
;;=.123^1.087^^^^^^^12.681^1.087^^.362
;;^UTILITY(U,$J,112,7604,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7605,0)
;;=ENTREES,ROTINI CHEDDAR,GARDEN GOURMET (MICRO)^BC-00878^9.5-oz.^269
;;^UTILITY(U,$J,112,7605,1)
;;=3.717^4.907^12.305^104.833^80^^^63.941^.401^^78.067^117.844^207.063^^^^^2369.888^13.755^.071
;;^UTILITY(U,$J,112,7605,2)
;;=.089^.52^^^^^^^^^^^^^^^1.004
;;^UTILITY(U,$J,112,7605,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7606,0)
;;=ENTREES,SALISBURY STEAK,DINING LITE^BC-00879^9-oz.^255
;;^UTILITY(U,$J,112,7606,1)
;;=7.059^3.137^5.49^78.431^^^^25.49^1.569^^^254.902^392.157^^^^^241.569^1.176^.071
;;^UTILITY(U,$J,112,7606,2)
;;=.11^1.255^^^^^^^21.569
;;^UTILITY(U,$J,112,7606,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7607,0)
;;=ENTREES,SALISBURY STEAK W/GRAVY,BANQUET (BAG)^BC-00880^5-oz.^142
;;^UTILITY(U,$J,112,7607,1)
;;=6.338^9.859^5.634^133.803^^^^34.507^1.338^^^126.761^539.437^^^^^20.423^0^.063
;;^UTILITY(U,$J,112,7607,2)
;;=.085^.775^^^^^^^24.648
;;^UTILITY(U,$J,112,7607,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7608,0)
;;=ENTREES,SALISBURY STEAK W/GRAVY,STOUFFERS^BC-00881^6-oz.^170
;;^UTILITY(U,$J,112,7608,1)
;;=10^8.588^6^141.765^73^^^15.294^1.4^^^150^520^^^^^45.294^0^.071
;;^UTILITY(U,$J,112,7608,2)
;;=.129^1.706^^^^^^^42.941
;;^UTILITY(U,$J,112,7608,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7609,0)
;;=ENTREES,SEAFOOD CASSEROLE,PILSBURY^BC-00882^3.5-oz.^100
;;^UTILITY(U,$J,112,7609,1)
;;=5.7^9.2^14.4^166^67^^^103^.9^^66^131^372^^^^^497^4^.1
;;^UTILITY(U,$J,112,7609,2)
;;=.1^1^^^^^^^^^^^^^^^1
;;^UTILITY(U,$J,112,7609,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7610,0)
;;=ENTREES,SEAFOOD NEWBERG,HEALTHY CHOICE^BC-00883^8-oz.^227
;;^UTILITY(U,$J,112,7610,1)
;;=5.727^1.322^13.216^88.106^^^^32.159^.441^^73.128^118.943^193.833^^^^^^1.762^.057
;;^UTILITY(U,$J,112,7610,2)
;;=.057^.617^^^^^^^24.229^.441
;;^UTILITY(U,$J,112,7610,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7611,0)
;;=ENTREES,SHRIMP & CHICKEN CANTONESE,LEAN CUISINE^BC-00884^10.1-oz.^287
;;^UTILITY(U,$J,112,7611,1)
;;=8.014^3.136^7.666^90.592^^^^20.906^.627^^^104.53^337.979^^^^^261.324^1.394^.052
FHINI0BM ; ; 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,7598,1)
+2 ;;=2^1.412^16^84.706^79.059^^^7.059^.106^^^50.588^450.588^^^^^110.588^1.176^.059
+3 ;;^UTILITY(U,$J,112,7598,2)
+4 ;;=.035^.706^^^^^^^2.353
+5 ;;^UTILITY(U,$J,112,7598,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7599,0)
+8 ;;=ENTREES,RICE FRIED,CANTONESE STYLE,GREEN GIANT^BC-00872^3-oz.^85
+9 ;;^UTILITY(U,$J,112,7599,1)
+10 ;;=2.353^3.529^21.176^125.882^^^^16.471^.824^^40^81.176^337.647^^^^^1123.529^1.176^.082
+11 ;;^UTILITY(U,$J,112,7599,2)
+12 ;;=.024^.824^^^^^^^17.647^.353^^.941
+13 ;;^UTILITY(U,$J,112,7599,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7600,0)
+16 ;;=ENTREES,RICE FRIED W/CHICKEN,CHUN KING^BC-00873^8-oz.^227
+17 ;;^UTILITY(U,$J,112,7600,1)
+18 ;;=6.167^1.762^18.062^114.537^^^^16.74^.881^^56.388^83.7^643.172^^^^^299.559^3.084^.33
+19 ;;^UTILITY(U,$J,112,7600,2)
+20 ;;=.093^.661
+21 ;;^UTILITY(U,$J,112,7600,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7601,0)
+24 ;;=ENTREES,RICE FRIED W/PORK,CHUN KING^BC-00874^8-oz.^227
+25 ;;^UTILITY(U,$J,112,7601,1)
+26 ;;=4.405^2.643^19.383^118.943^^^^11.454^.441^^56.828^79.295^533.04^^^^^374.449^1.762^.154
+27 ;;^UTILITY(U,$J,112,7601,2)
+28 ;;=.106^.661
+29 ;;^UTILITY(U,$J,112,7601,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7602,0)
+32 ;;=ENTREES,RICE,PEAS &MUSHROOMS W/SCE,PILSBURY^BC-00875^5.5-oz.^156
+33 ;;^UTILITY(U,$J,112,7602,1)
+34 ;;=2.564^1.282^17.308^83.333^^^^^^^^54.487^262.821
+35 ;;^UTILITY(U,$J,112,7602,2)
+36 ;;=^^^^^^^^3.205^^^0
+37 ;;^UTILITY(U,$J,112,7602,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7603,0)
+40 ;;=ENTREES,RIGATONI W/BEEF SCE,STOUFFERS^BC-00876^6-oz.^170
+41 ;;^UTILITY(U,$J,112,7603,1)
+42 ;;=6.882^4.176^10^105.882^77^^^100^1^^^210^300^^^^^250^5.294^.088
+43 ;;^UTILITY(U,$J,112,7603,2)
+44 ;;=.1^1.294^^^^^^^12.941
+45 ;;^UTILITY(U,$J,112,7603,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7604,0)
+48 ;;=ENTREES,RIGATONI W/MEAT SCE,LEAN CUISINE^BC-00877^9.7-oz^276
+49 ;;^UTILITY(U,$J,112,7604,1)
+50 ;;=6.522^3.623^9.058^94.203^^^^90.58^.978^^^170.29^376.812^^^^^452.899^2.174^.054
+51 ;;^UTILITY(U,$J,112,7604,2)
+52 ;;=.123^1.087^^^^^^^12.681^1.087^^.362
+53 ;;^UTILITY(U,$J,112,7604,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7605,0)
+56 ;;=ENTREES,ROTINI CHEDDAR,GARDEN GOURMET (MICRO)^BC-00878^9.5-oz.^269
+57 ;;^UTILITY(U,$J,112,7605,1)
+58 ;;=3.717^4.907^12.305^104.833^80^^^63.941^.401^^78.067^117.844^207.063^^^^^2369.888^13.755^.071
+59 ;;^UTILITY(U,$J,112,7605,2)
+60 ;;=.089^.52^^^^^^^^^^^^^^^1.004
+61 ;;^UTILITY(U,$J,112,7605,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7606,0)
+64 ;;=ENTREES,SALISBURY STEAK,DINING LITE^BC-00879^9-oz.^255
+65 ;;^UTILITY(U,$J,112,7606,1)
+66 ;;=7.059^3.137^5.49^78.431^^^^25.49^1.569^^^254.902^392.157^^^^^241.569^1.176^.071
+67 ;;^UTILITY(U,$J,112,7606,2)
+68 ;;=.11^1.255^^^^^^^21.569
+69 ;;^UTILITY(U,$J,112,7606,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7607,0)
+72 ;;=ENTREES,SALISBURY STEAK W/GRAVY,BANQUET (BAG)^BC-00880^5-oz.^142
+73 ;;^UTILITY(U,$J,112,7607,1)
+74 ;;=6.338^9.859^5.634^133.803^^^^34.507^1.338^^^126.761^539.437^^^^^20.423^0^.063
+75 ;;^UTILITY(U,$J,112,7607,2)
+76 ;;=.085^.775^^^^^^^24.648
+77 ;;^UTILITY(U,$J,112,7607,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7608,0)
+80 ;;=ENTREES,SALISBURY STEAK W/GRAVY,STOUFFERS^BC-00881^6-oz.^170
+81 ;;^UTILITY(U,$J,112,7608,1)
+82 ;;=10^8.588^6^141.765^73^^^15.294^1.4^^^150^520^^^^^45.294^0^.071
+83 ;;^UTILITY(U,$J,112,7608,2)
+84 ;;=.129^1.706^^^^^^^42.941
+85 ;;^UTILITY(U,$J,112,7608,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7609,0)
+88 ;;=ENTREES,SEAFOOD CASSEROLE,PILSBURY^BC-00882^3.5-oz.^100
+89 ;;^UTILITY(U,$J,112,7609,1)
+90 ;;=5.7^9.2^14.4^166^67^^^103^.9^^66^131^372^^^^^497^4^.1
+91 ;;^UTILITY(U,$J,112,7609,2)
+92 ;;=.1^1^^^^^^^^^^^^^^^1
+93 ;;^UTILITY(U,$J,112,7609,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7610,0)
+96 ;;=ENTREES,SEAFOOD NEWBERG,HEALTHY CHOICE^BC-00883^8-oz.^227
+97 ;;^UTILITY(U,$J,112,7610,1)
+98 ;;=5.727^1.322^13.216^88.106^^^^32.159^.441^^73.128^118.943^193.833^^^^^^1.762^.057
+99 ;;^UTILITY(U,$J,112,7610,2)
+100 ;;=.057^.617^^^^^^^24.229^.441
+101 ;;^UTILITY(U,$J,112,7610,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,7611,0)
+104 ;;=ENTREES,SHRIMP & CHICKEN CANTONESE,LEAN CUISINE^BC-00884^10.1-oz.^287
+105 ;;^UTILITY(U,$J,112,7611,1)
+106 ;;=8.014^3.136^7.666^90.592^^^^20.906^.627^^^104.53^337.979^^^^^261.324^1.394^.052
