FHINI0C5 ; ; 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,7850,2)
;;=.083^2.147^^^^^^^25.641
;;^UTILITY(U,$J,112,7850,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7851,0)
;;=FROZEN DINNERS,SALISBURY STEAK,BANQUET EXTRA HELPING^BC-01124^18-oz.^510
;;^UTILITY(U,$J,112,7851,1)
;;=9.804^11.765^9.608^178.431^^^^14.51^1.373^^94.118^200^145.098^^^^^128.627^1.569^.057
;;^UTILITY(U,$J,112,7851,2)
;;=.1^2.529^^^^^^^34.314
;;^UTILITY(U,$J,112,7851,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7852,0)
;;=FROZEN DINNERS,SALISBURY STEAK,HEALTHY CHOICE^BC-01125^11.5-oz.^326
;;^UTILITY(U,$J,112,7852,1)
;;=5.828^2.147^12.577^92.025^^^^20.859^.92^^71.472^187.117^147.239^^^^^42.331^22.393^.083
;;^UTILITY(U,$J,112,7852,2)
;;=.095^1.012^^^^^^^15.337^.92^^.307
;;^UTILITY(U,$J,112,7852,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7853,0)
;;=FROZEN DINNERS,SALISBURY STEAK,LE MENU^BC-01126^10.5-oz.^298
;;^UTILITY(U,$J,112,7853,1)
;;=6.812^6.342^9.161^120.805^^^^40.268^1.208^^^246.644^289.933^^^^^245.302^.671^.057
;;^UTILITY(U,$J,112,7853,2)
;;=.087^1.477
;;^UTILITY(U,$J,112,7853,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7854,0)
;;=FROZEN DINNERS,SALISBURY STEAK,LE MENU LIGHTSTYLE^BC-01127^10.5-oz.^298
;;^UTILITY(U,$J,112,7854,1)
;;=6.678^2.282^7.852^78.523^^^^30.537^1.174^^^205.034^263.423^^^^^152.685^0^.06
;;^UTILITY(U,$J,112,7854,2)
;;=.104^1.51^^^^^^^11.074^1.074^^.302
;;^UTILITY(U,$J,112,7854,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7855,0)
;;=FROZEN DINNERS,SALISBURY STEAK,MORTON^BC-01128^10-oz.^284
;;^UTILITY(U,$J,112,7855,1)
;;=4.225^5.986^8.099^105.634^^^^19.366^.704^^66.901^151.408^500^^^^^1241.549^1.408^.06
;;^UTILITY(U,$J,112,7855,2)
;;=.063^.599^^^^^^^14.085
;;^UTILITY(U,$J,112,7855,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7856,0)
;;=FROZEN DINNERS,SALISBURY STEAK,SWANSON^BC-01129^10.8-oz.^305
;;^UTILITY(U,$J,112,7856,1)
;;=6.197^5.869^14.164^134.098^^^^23.279^1.246^^^174.098^294.754^^^^^70.164^1.639^.049
;;^UTILITY(U,$J,112,7856,2)
;;=.062^1.508
;;^UTILITY(U,$J,112,7856,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7857,0)
;;=FROZEN DINNERS,SALISBURY STEAK,SWANSON HUNGRY-MAN^BC-01130^16.5-oz.^468
;;^UTILITY(U,$J,112,7857,1)
;;=7.863^7.265^9.017^132.906^^^^46.795^1.239^^^173.932^356.838^^^^^108.547^1.068^.049
;;^UTILITY(U,$J,112,7857,2)
;;=.098^1.517
;;^UTILITY(U,$J,112,7857,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7858,0)
;;=FROZEN DINNERS,SEAFOOD W/HERBS,ARMOUR CLASSICS LITE^BC-01131^10-oz.^284
;;^UTILITY(U,$J,112,7858,1)
;;=4.577^.704^10.211^66.901^^^^79.577^.352^^60.211^123.239^359.155^^^^^163.38^13.028^.046
;;^UTILITY(U,$J,112,7858,2)
;;=.035^.458^^^^^^^12.324
;;^UTILITY(U,$J,112,7858,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7859,0)
;;=FROZEN DINNERS,SHRIMP,BABY BAY,ARMOUR CLASSICS LITE^BC-01132^9.75-oz.^276
;;^UTILITY(U,$J,112,7859,1)
;;=4.348^2.174^11.232^79.71^^^^54.71^.725^^85.87^94.203^322.464^^^^^273.913^3.623^.065
;;^UTILITY(U,$J,112,7859,2)
;;=.08^.362^^^^^^^38.043
;;^UTILITY(U,$J,112,7859,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7860,0)
;;=FROZEN DINNERS,SHRIMP CREOLE,HEALTHY CHOICE^BC-01133^11.25-oz.^319
;;^UTILITY(U,$J,112,7860,1)
;;=2.508^.313^13.166^65.831^^^^23.197^.627^^54.859^128.527^175.549^^^^^141.379^27.273^.066
;;^UTILITY(U,$J,112,7860,2)
;;=.041^.251^^^^^^^20.376
;;^UTILITY(U,$J,112,7860,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7861,0)
;;=FROZEN DINNERS,SHRIMP MARINARA,HEALTHY CHOICE^BC-01134^10.5-oz.^298
;;^UTILITY(U,$J,112,7861,1)
;;=3.02^.336^14.094^73.826^^^^19.463^.671^^44.966^107.383^107.383^^^^^153.691^33.893^.067
;;^UTILITY(U,$J,112,7861,2)
;;=.044^.302^^^^^^^16.779
;;^UTILITY(U,$J,112,7861,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7862,0)
;;=FROZEN DINNERS,SIRLOIN,CHOPPED,LE MENU^BC-01135^12.2-oz.^347
;;^UTILITY(U,$J,112,7862,1)
;;=7.464^6.628^7.925^121.037^^^^44.38^1.268^^^163.401^287.896^^^^^57.925^2.594^.037
;;^UTILITY(U,$J,112,7862,2)
;;=.092^1.614
;;^UTILITY(U,$J,112,7862,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7863,0)
;;=FROZEN DINNERS,SIRLOIN CHOPPED,SWANSON^BC-01136^10.76-oz.^305
;;^UTILITY(U,$J,112,7863,1)
;;=6.918^5.836^9.148^116.721^^^^28.525^1.18^^^180^263.934^^^^^1852.459^1.639^.039
FHINI0C5 ; ; 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,7850,2)
+2 ;;=.083^2.147^^^^^^^25.641
+3 ;;^UTILITY(U,$J,112,7850,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7851,0)
+6 ;;=FROZEN DINNERS,SALISBURY STEAK,BANQUET EXTRA HELPING^BC-01124^18-oz.^510
+7 ;;^UTILITY(U,$J,112,7851,1)
+8 ;;=9.804^11.765^9.608^178.431^^^^14.51^1.373^^94.118^200^145.098^^^^^128.627^1.569^.057
+9 ;;^UTILITY(U,$J,112,7851,2)
+10 ;;=.1^2.529^^^^^^^34.314
+11 ;;^UTILITY(U,$J,112,7851,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7852,0)
+14 ;;=FROZEN DINNERS,SALISBURY STEAK,HEALTHY CHOICE^BC-01125^11.5-oz.^326
+15 ;;^UTILITY(U,$J,112,7852,1)
+16 ;;=5.828^2.147^12.577^92.025^^^^20.859^.92^^71.472^187.117^147.239^^^^^42.331^22.393^.083
+17 ;;^UTILITY(U,$J,112,7852,2)
+18 ;;=.095^1.012^^^^^^^15.337^.92^^.307
+19 ;;^UTILITY(U,$J,112,7852,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7853,0)
+22 ;;=FROZEN DINNERS,SALISBURY STEAK,LE MENU^BC-01126^10.5-oz.^298
+23 ;;^UTILITY(U,$J,112,7853,1)
+24 ;;=6.812^6.342^9.161^120.805^^^^40.268^1.208^^^246.644^289.933^^^^^245.302^.671^.057
+25 ;;^UTILITY(U,$J,112,7853,2)
+26 ;;=.087^1.477
+27 ;;^UTILITY(U,$J,112,7853,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7854,0)
+30 ;;=FROZEN DINNERS,SALISBURY STEAK,LE MENU LIGHTSTYLE^BC-01127^10.5-oz.^298
+31 ;;^UTILITY(U,$J,112,7854,1)
+32 ;;=6.678^2.282^7.852^78.523^^^^30.537^1.174^^^205.034^263.423^^^^^152.685^0^.06
+33 ;;^UTILITY(U,$J,112,7854,2)
+34 ;;=.104^1.51^^^^^^^11.074^1.074^^.302
+35 ;;^UTILITY(U,$J,112,7854,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7855,0)
+38 ;;=FROZEN DINNERS,SALISBURY STEAK,MORTON^BC-01128^10-oz.^284
+39 ;;^UTILITY(U,$J,112,7855,1)
+40 ;;=4.225^5.986^8.099^105.634^^^^19.366^.704^^66.901^151.408^500^^^^^1241.549^1.408^.06
+41 ;;^UTILITY(U,$J,112,7855,2)
+42 ;;=.063^.599^^^^^^^14.085
+43 ;;^UTILITY(U,$J,112,7855,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7856,0)
+46 ;;=FROZEN DINNERS,SALISBURY STEAK,SWANSON^BC-01129^10.8-oz.^305
+47 ;;^UTILITY(U,$J,112,7856,1)
+48 ;;=6.197^5.869^14.164^134.098^^^^23.279^1.246^^^174.098^294.754^^^^^70.164^1.639^.049
+49 ;;^UTILITY(U,$J,112,7856,2)
+50 ;;=.062^1.508
+51 ;;^UTILITY(U,$J,112,7856,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7857,0)
+54 ;;=FROZEN DINNERS,SALISBURY STEAK,SWANSON HUNGRY-MAN^BC-01130^16.5-oz.^468
+55 ;;^UTILITY(U,$J,112,7857,1)
+56 ;;=7.863^7.265^9.017^132.906^^^^46.795^1.239^^^173.932^356.838^^^^^108.547^1.068^.049
+57 ;;^UTILITY(U,$J,112,7857,2)
+58 ;;=.098^1.517
+59 ;;^UTILITY(U,$J,112,7857,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7858,0)
+62 ;;=FROZEN DINNERS,SEAFOOD W/HERBS,ARMOUR CLASSICS LITE^BC-01131^10-oz.^284
+63 ;;^UTILITY(U,$J,112,7858,1)
+64 ;;=4.577^.704^10.211^66.901^^^^79.577^.352^^60.211^123.239^359.155^^^^^163.38^13.028^.046
+65 ;;^UTILITY(U,$J,112,7858,2)
+66 ;;=.035^.458^^^^^^^12.324
+67 ;;^UTILITY(U,$J,112,7858,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7859,0)
+70 ;;=FROZEN DINNERS,SHRIMP,BABY BAY,ARMOUR CLASSICS LITE^BC-01132^9.75-oz.^276
+71 ;;^UTILITY(U,$J,112,7859,1)
+72 ;;=4.348^2.174^11.232^79.71^^^^54.71^.725^^85.87^94.203^322.464^^^^^273.913^3.623^.065
+73 ;;^UTILITY(U,$J,112,7859,2)
+74 ;;=.08^.362^^^^^^^38.043
+75 ;;^UTILITY(U,$J,112,7859,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7860,0)
+78 ;;=FROZEN DINNERS,SHRIMP CREOLE,HEALTHY CHOICE^BC-01133^11.25-oz.^319
+79 ;;^UTILITY(U,$J,112,7860,1)
+80 ;;=2.508^.313^13.166^65.831^^^^23.197^.627^^54.859^128.527^175.549^^^^^141.379^27.273^.066
+81 ;;^UTILITY(U,$J,112,7860,2)
+82 ;;=.041^.251^^^^^^^20.376
+83 ;;^UTILITY(U,$J,112,7860,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7861,0)
+86 ;;=FROZEN DINNERS,SHRIMP MARINARA,HEALTHY CHOICE^BC-01134^10.5-oz.^298
+87 ;;^UTILITY(U,$J,112,7861,1)
+88 ;;=3.02^.336^14.094^73.826^^^^19.463^.671^^44.966^107.383^107.383^^^^^153.691^33.893^.067
+89 ;;^UTILITY(U,$J,112,7861,2)
+90 ;;=.044^.302^^^^^^^16.779
+91 ;;^UTILITY(U,$J,112,7861,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,7862,0)
+94 ;;=FROZEN DINNERS,SIRLOIN,CHOPPED,LE MENU^BC-01135^12.2-oz.^347
+95 ;;^UTILITY(U,$J,112,7862,1)
+96 ;;=7.464^6.628^7.925^121.037^^^^44.38^1.268^^^163.401^287.896^^^^^57.925^2.594^.037
+97 ;;^UTILITY(U,$J,112,7862,2)
+98 ;;=.092^1.614
+99 ;;^UTILITY(U,$J,112,7862,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,7863,0)
+102 ;;=FROZEN DINNERS,SIRLOIN CHOPPED,SWANSON^BC-01136^10.76-oz.^305
+103 ;;^UTILITY(U,$J,112,7863,1)
+104 ;;=6.918^5.836^9.148^116.721^^^^28.525^1.18^^^180^263.934^^^^^1852.459^1.639^.039
