FHINI0BY ; ; 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,7758,2)
;;=.08^1.227^^^^^^^^^^^^^^^1.196
;;^UTILITY(U,$J,112,7758,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7759,0)
;;=FROZEN DINNERS,BEEF PEPPER STEAK,HEALTHY CHOICE^BC-01032^11-oz.^312
;;^UTILITY(U,$J,112,7759,1)
;;=7.692^1.923^11.218^92.949^^^^12.5^.641^^57.372^125^169.872^^^^^140.705^23.077^.054
;;^UTILITY(U,$J,112,7759,2)
;;=.09^.769^^^^^^^20.833^.962^^0
;;^UTILITY(U,$J,112,7759,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7760,0)
;;=FROZEN DINNERS,BEEF SHORT RIBS BONELESS, ARMOUR CLASSICS^BC-01033^9.75-oz.^276
;;^UTILITY(U,$J,112,7760,1)
;;=8.696^5.797^12.319^137.681^^^^23.551^1.449^^75^278.986^286.232^^^^^299.275^6.522^.083
;;^UTILITY(U,$J,112,7760,2)
;;=.105^.906^^^^^^^32.609
;;^UTILITY(U,$J,112,7760,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7761,0)
;;=FROZEN DINNERS,BEEF,SLICED,MORTON^BC-01034^10-oz.^284
;;^UTILITY(U,$J,112,7761,1)
;;=8.451^1.761^7.042^77.465^^^^10.915^1.408^^61.62^158.451^334.507^^^^^1402.465^1.056^.042
;;^UTILITY(U,$J,112,7761,2)
;;=.074^1.056^^^^^^^22.887
;;^UTILITY(U,$J,112,7761,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7762,0)
;;=FROZEN DINNERS,BEEF,SLICED,SWANSON HUNGRY-MAN^BC-01035^15.2-oz.^432
;;^UTILITY(U,$J,112,7762,1)
;;=8.75^2.616^11.574^105.093^^^^9.954^1.366^^^178.704^232.176^^^^^121.759^1.62^.037
;;^UTILITY(U,$J,112,7762,2)
;;=.083^1.782
;;^UTILITY(U,$J,112,7762,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7763,0)
;;=FROZEN DINNERS,BEEF STROGANOFF,ARMOURA CLASSICS LITE^BC-01036^11.25-oz.^319
;;^UTILITY(U,$J,112,7763,1)
;;=5.643^1.881^10.345^78.37^^^^17.555^.627^^61.442^100.313^159.875^^^^^910.345^13.48^.082
;;^UTILITY(U,$J,112,7763,2)
;;=.066^.502^^^^^^^17.241
;;^UTILITY(U,$J,112,7763,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7764,0)
;;=FROZEN DINNERS,BEEF STROGANOFF,LE MENU^BC-01037^10-oz.^284
;;^UTILITY(U,$J,112,7764,1)
;;=9.331^7.148^8.38^135.211^^^^37.676^1.514^^^165.141^305.282^^^^^388.38^.352^.046
;;^UTILITY(U,$J,112,7764,2)
;;=.109^1.796
;;^UTILITY(U,$J,112,7764,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7765,0)
;;=FROZEN DINNERS,BEEF W/ BBQ SCE,SWANSON^BC-01038^11-oz.^312
;;^UTILITY(U,$J,112,7765,1)
;;=9.519^4.936^16.218^147.436^^^^24.038^1.474^^^176.923^276.603^^^^^540.705^1.282^.058
;;^UTILITY(U,$J,112,7765,2)
;;=.109^1.218
;;^UTILITY(U,$J,112,7765,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7766,0)
;;=FROZEN DINNERS,CONNELLONI,CHICKEN, LE MENU LIGHTSTYLE^BC-01039^10.3-oz.^291
;;^UTILITY(U,$J,112,7766,1)
;;=5.12^1.718^13.471^90.034^^^^31.959^1.065^^^126.46^213.402^^^^^602.405^3.093^.196
;;^UTILITY(U,$J,112,7766,2)
;;=.141^1.1^^^^^^^13.058^.55^^.619
;;^UTILITY(U,$J,112,7766,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7767,0)
;;=FROZEN DINNERS,CHICKEN A LA KING,ARMOUR CLASSICS LITE^BC-01040^11.25-oz.^319
;;^UTILITY(U,$J,112,7767,1)
;;=5.956^2.194^11.912^90.909^^^^22.571^.627^^68.025^115.987^197.492^^^^^747.962^20.69^.06
;;^UTILITY(U,$J,112,7767,2)
;;=.069^1.066^^^^^^^17.241
;;^UTILITY(U,$J,112,7767,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7768,0)
;;=FROZEN DINNERS,CHICKEN A LA KING,LE MENU^BC-01041^10.2-oz.^290
;;^UTILITY(U,$J,112,7768,1)
;;=7.966^3.862^9.69^105.862^^^^27.931^.586^^^126.207^285.862^^^^^246.897^2.414^.055
;;^UTILITY(U,$J,112,7768,2)
;;=.093^2.31^^^^^^^^^^^^^^^1.31
;;^UTILITY(U,$J,112,7768,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7769,0)
;;=FROZEN DINNERS,CHICKEN & DUMPLINGS,BANQUET^BC-01042^10-oz.^284
;;^UTILITY(U,$J,112,7769,1)
;;=5.986^8.451^11.972^151.408^^^^20.775^.704^^^161.972^330.986^^^^^1192.958^2.465^.085
;;^UTILITY(U,$J,112,7769,2)
;;=.085^2.113^^^^^^^15.845
;;^UTILITY(U,$J,112,7769,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7770,0)
;;=FROZEN DINNERS,CHICKEN & NOODLES, ARMOUR CLASSICS^BC-01043^11-oz.^312
;;^UTILITY(U,$J,112,7770,1)
;;=6.09^2.244^7.372^73.718^^^^27.885^.641^^68.269^173.077^211.538^^^^^1435.256^18.269^.064
;;^UTILITY(U,$J,112,7770,2)
;;=.067^1.506^^^^^^^16.026
;;^UTILITY(U,$J,112,7770,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7771,0)
;;=FROZEN DINNERS,CHICKEN & PASTA DIVAN,HEALTHY CHOICE^BC-01044^11.5-oz.^326
;;^UTILITY(U,$J,112,7771,1)
;;=7.055^1.227^13.804^95.092^^^^53.067^.613^^84.356^134.969^156.442^^^^^1211.043^22.393^.11
FHINI0BY ; ; 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,7758,2)
+2 ;;=.08^1.227^^^^^^^^^^^^^^^1.196
+3 ;;^UTILITY(U,$J,112,7758,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7759,0)
+6 ;;=FROZEN DINNERS,BEEF PEPPER STEAK,HEALTHY CHOICE^BC-01032^11-oz.^312
+7 ;;^UTILITY(U,$J,112,7759,1)
+8 ;;=7.692^1.923^11.218^92.949^^^^12.5^.641^^57.372^125^169.872^^^^^140.705^23.077^.054
+9 ;;^UTILITY(U,$J,112,7759,2)
+10 ;;=.09^.769^^^^^^^20.833^.962^^0
+11 ;;^UTILITY(U,$J,112,7759,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7760,0)
+14 ;;=FROZEN DINNERS,BEEF SHORT RIBS BONELESS, ARMOUR CLASSICS^BC-01033^9.75-oz.^276
+15 ;;^UTILITY(U,$J,112,7760,1)
+16 ;;=8.696^5.797^12.319^137.681^^^^23.551^1.449^^75^278.986^286.232^^^^^299.275^6.522^.083
+17 ;;^UTILITY(U,$J,112,7760,2)
+18 ;;=.105^.906^^^^^^^32.609
+19 ;;^UTILITY(U,$J,112,7760,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7761,0)
+22 ;;=FROZEN DINNERS,BEEF,SLICED,MORTON^BC-01034^10-oz.^284
+23 ;;^UTILITY(U,$J,112,7761,1)
+24 ;;=8.451^1.761^7.042^77.465^^^^10.915^1.408^^61.62^158.451^334.507^^^^^1402.465^1.056^.042
+25 ;;^UTILITY(U,$J,112,7761,2)
+26 ;;=.074^1.056^^^^^^^22.887
+27 ;;^UTILITY(U,$J,112,7761,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7762,0)
+30 ;;=FROZEN DINNERS,BEEF,SLICED,SWANSON HUNGRY-MAN^BC-01035^15.2-oz.^432
+31 ;;^UTILITY(U,$J,112,7762,1)
+32 ;;=8.75^2.616^11.574^105.093^^^^9.954^1.366^^^178.704^232.176^^^^^121.759^1.62^.037
+33 ;;^UTILITY(U,$J,112,7762,2)
+34 ;;=.083^1.782
+35 ;;^UTILITY(U,$J,112,7762,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7763,0)
+38 ;;=FROZEN DINNERS,BEEF STROGANOFF,ARMOURA CLASSICS LITE^BC-01036^11.25-oz.^319
+39 ;;^UTILITY(U,$J,112,7763,1)
+40 ;;=5.643^1.881^10.345^78.37^^^^17.555^.627^^61.442^100.313^159.875^^^^^910.345^13.48^.082
+41 ;;^UTILITY(U,$J,112,7763,2)
+42 ;;=.066^.502^^^^^^^17.241
+43 ;;^UTILITY(U,$J,112,7763,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7764,0)
+46 ;;=FROZEN DINNERS,BEEF STROGANOFF,LE MENU^BC-01037^10-oz.^284
+47 ;;^UTILITY(U,$J,112,7764,1)
+48 ;;=9.331^7.148^8.38^135.211^^^^37.676^1.514^^^165.141^305.282^^^^^388.38^.352^.046
+49 ;;^UTILITY(U,$J,112,7764,2)
+50 ;;=.109^1.796
+51 ;;^UTILITY(U,$J,112,7764,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7765,0)
+54 ;;=FROZEN DINNERS,BEEF W/ BBQ SCE,SWANSON^BC-01038^11-oz.^312
+55 ;;^UTILITY(U,$J,112,7765,1)
+56 ;;=9.519^4.936^16.218^147.436^^^^24.038^1.474^^^176.923^276.603^^^^^540.705^1.282^.058
+57 ;;^UTILITY(U,$J,112,7765,2)
+58 ;;=.109^1.218
+59 ;;^UTILITY(U,$J,112,7765,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7766,0)
+62 ;;=FROZEN DINNERS,CONNELLONI,CHICKEN, LE MENU LIGHTSTYLE^BC-01039^10.3-oz.^291
+63 ;;^UTILITY(U,$J,112,7766,1)
+64 ;;=5.12^1.718^13.471^90.034^^^^31.959^1.065^^^126.46^213.402^^^^^602.405^3.093^.196
+65 ;;^UTILITY(U,$J,112,7766,2)
+66 ;;=.141^1.1^^^^^^^13.058^.55^^.619
+67 ;;^UTILITY(U,$J,112,7766,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7767,0)
+70 ;;=FROZEN DINNERS,CHICKEN A LA KING,ARMOUR CLASSICS LITE^BC-01040^11.25-oz.^319
+71 ;;^UTILITY(U,$J,112,7767,1)
+72 ;;=5.956^2.194^11.912^90.909^^^^22.571^.627^^68.025^115.987^197.492^^^^^747.962^20.69^.06
+73 ;;^UTILITY(U,$J,112,7767,2)
+74 ;;=.069^1.066^^^^^^^17.241
+75 ;;^UTILITY(U,$J,112,7767,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7768,0)
+78 ;;=FROZEN DINNERS,CHICKEN A LA KING,LE MENU^BC-01041^10.2-oz.^290
+79 ;;^UTILITY(U,$J,112,7768,1)
+80 ;;=7.966^3.862^9.69^105.862^^^^27.931^.586^^^126.207^285.862^^^^^246.897^2.414^.055
+81 ;;^UTILITY(U,$J,112,7768,2)
+82 ;;=.093^2.31^^^^^^^^^^^^^^^1.31
+83 ;;^UTILITY(U,$J,112,7768,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7769,0)
+86 ;;=FROZEN DINNERS,CHICKEN & DUMPLINGS,BANQUET^BC-01042^10-oz.^284
+87 ;;^UTILITY(U,$J,112,7769,1)
+88 ;;=5.986^8.451^11.972^151.408^^^^20.775^.704^^^161.972^330.986^^^^^1192.958^2.465^.085
+89 ;;^UTILITY(U,$J,112,7769,2)
+90 ;;=.085^2.113^^^^^^^15.845
+91 ;;^UTILITY(U,$J,112,7769,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,7770,0)
+94 ;;=FROZEN DINNERS,CHICKEN & NOODLES, ARMOUR CLASSICS^BC-01043^11-oz.^312
+95 ;;^UTILITY(U,$J,112,7770,1)
+96 ;;=6.09^2.244^7.372^73.718^^^^27.885^.641^^68.269^173.077^211.538^^^^^1435.256^18.269^.064
+97 ;;^UTILITY(U,$J,112,7770,2)
+98 ;;=.067^1.506^^^^^^^16.026
+99 ;;^UTILITY(U,$J,112,7770,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,7771,0)
+102 ;;=FROZEN DINNERS,CHICKEN & PASTA DIVAN,HEALTHY CHOICE^BC-01044^11.5-oz.^326
+103 ;;^UTILITY(U,$J,112,7771,1)
+104 ;;=7.055^1.227^13.804^95.092^^^^53.067^.613^^84.356^134.969^156.442^^^^^1211.043^22.393^.11
