FHINI0BZ ; ; 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,7771,2)
;;=.083^1.503^^^^^^^18.405^.613^^0
;;^UTILITY(U,$J,112,7771,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7772,0)
;;=FROZEN DINNERS,CHICKEN, BONELESS, SWANSON HUNGRY-MAN^BC-01045^17.7-oz.^503
;;^UTILITY(U,$J,112,7772,1)
;;=8.748^5.089^13.022^132.803^^^^16.7^1.093^^^129.821^282.306^^^^^137.376^1.392^.083
;;^UTILITY(U,$J,112,7772,2)
;;=.097^2.545
;;^UTILITY(U,$J,112,7772,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7773,0)
;;=FROZEN DINNERS,CHICKEN BREAST,GLAZED,LE MENU LIGHTSTYLE^BC-01046^10-oz.^284
;;^UTILITY(U,$J,112,7773,1)
;;=9.014^1.831^10.352^94.014^^^^20.423^.669^^^160.915^229.225^^^^^826.056^1.761^.035
;;^UTILITY(U,$J,112,7773,2)
;;=.102^2.887^^^^^^^17.958^.493^^.493
;;^UTILITY(U,$J,112,7773,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7774,0)
;;=FROZEN DINNERS,CHICKEN BREAST W/ WINE SCE, LE MENU^BC-01047^10-oz.^284
;;^UTILITY(U,$J,112,7774,1)
;;=9.19^2.5^9.542^97.535^^^^25.352^.845^^^149.296^237.676^^^^^1738.732^1.408^.06
;;^UTILITY(U,$J,112,7774,2)
;;=.056^2.817
;;^UTILITY(U,$J,112,7774,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7775,0)
;;=FROZEN DINNERS,CHICKCEN BURGUNDY, ARMOUR CLASSICS LITE^BC-01048^10-oz.^284
;;^UTILITY(U,$J,112,7775,1)
;;=8.099^.704^8.803^73.944^^^^16.197^.704^^65.493^179.577^274.648^^^^^697.183^8.451^.063
;;^UTILITY(U,$J,112,7775,2)
;;=.06^2.324^^^^^^^15.845
;;^UTILITY(U,$J,112,7775,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7776,0)
;;=FROZEN DINNERS,CHICKEN CACCIATORE,LE MENU LIGHTSTYLE^BC-01049^10-oz.^284
;;^UTILITY(U,$J,112,7776,1)
;;=7.535^2.606^9.507^91.549^^^^31.69^.88^^^169.366^229.577^^^^^1787.676^5.986^.049
;;^UTILITY(U,$J,112,7776,2)
;;=.106^1.69^^^^^^^23.239^.915^^.599^^^^^2.183
;;^UTILITY(U,$J,112,7776,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7777,0)
;;=FROZEN DINNERS,CHICKENEN CORDON BLEU,LE MENU^BC-01050^11-oz.^312
;;^UTILITY(U,$J,112,7777,1)
;;=7.468^6.25^15.224^146.795^^^^42.628^.577^^^146.795^269.551^^^^^2334.295^1.282^.051
;;^UTILITY(U,$J,112,7777,2)
;;=.067^2.821^^^^^^^^^^^^^^^1.763
;;^UTILITY(U,$J,112,7777,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7778,0)
;;=FROZEN DINNERS,CHICKEN,DARK W/BBQ SCE,SWANSON HUNGRY-MAN^BC-01051^16.5-oz.^468
;;^UTILITY(U,$J,112,7778,1)
;;=8.376^3.932^15.107^129.274^^^^18.376^.897^^^178.632^230.983^^^^^373.932^3.632^.034
;;^UTILITY(U,$J,112,7778,2)
;;=.107^1.496
;;^UTILITY(U,$J,112,7778,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7779,0)
;;=FROZEN DINNERS,CHICKEN DRUMLET, SWANSON^BC-01052^10-oz.^284
;;^UTILITY(U,$J,112,7779,1)
;;=8.662^9.542^15.458^182.394^^^^18.662^1.021^^^169.014^245.423^^^^^164.437^1.761^.07
;;^UTILITY(U,$J,112,7779,2)
;;=.092^1.972
;;^UTILITY(U,$J,112,7779,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7780,0)
;;=FROZEN DINNERS,CHICKEN FETTUCINI, ARMOUR CLASSICS^BC-01053^11-oz.^312
;;^UTILITY(U,$J,112,7780,1)
;;=5.449^2.885^8.974^83.333^^^^46.795^.641^^96.154^128.205^211.538^^^^^528.526^19.551^.061
;;^UTILITY(U,$J,112,7780,2)
;;=.058^1.218^^^^^^^16.026
;;^UTILITY(U,$J,112,7780,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7781,0)
;;=FROZEN DINNERS,CHICKEN FRIED,BANQUET EXTRA HELPING^BC-01054^16-oz.^454
;;^UTILITY(U,$J,112,7781,1)
;;=4.405^6.167^15.419^125.551^^^^14.097^.22^^46.696^127.753^323.789^^^^^148.458^1.762^.035
;;^UTILITY(U,$J,112,7781,2)
;;=.037^1.388
;;^UTILITY(U,$J,112,7781,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7782,0)
;;=FROZEN DINNERS,CHICKEN,FRIED,BANQUET^BC-01055^10-oz.^284
;;^UTILITY(U,$J,112,7782,1)
;;=5.282^7.746^15.845^140.845^^^^16.197^.352^^^169.014^387.324^^^^^198.592^2.817^.049
;;^UTILITY(U,$J,112,7782,2)
;;=.046^1.725
;;^UTILITY(U,$J,112,7782,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7783,0)
;;=FROZEN DINNERS,CHICKEN,FRIED,BBQ FLAVOR, SWANSON^BC-01056^10-oz.^284
;;^UTILITY(U,$J,112,7783,1)
;;=8.838^7.817^21.479^191.549^^^^28.169^1.232^^^175.352^409.507^^^^^247.535^1.056^.099
;;^UTILITY(U,$J,112,7783,2)
;;=.092^2.042
;;^UTILITY(U,$J,112,7783,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7784,0)
;;=FROZEN DINNERS,CHICKEN,FRIED,DARK MEAT,SWANSON HUNGRY-MAN^BC-01057^14.25-oz.^404
;;^UTILITY(U,$J,112,7784,1)
;;=8.762^10.545^18.985^205.941^^^^17.327^1.213^^^179.95^423.02^^^^^15.099^1.238^.097
FHINI0BZ ; ; 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,7771,2)
+2 ;;=.083^1.503^^^^^^^18.405^.613^^0
+3 ;;^UTILITY(U,$J,112,7771,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7772,0)
+6 ;;=FROZEN DINNERS,CHICKEN, BONELESS, SWANSON HUNGRY-MAN^BC-01045^17.7-oz.^503
+7 ;;^UTILITY(U,$J,112,7772,1)
+8 ;;=8.748^5.089^13.022^132.803^^^^16.7^1.093^^^129.821^282.306^^^^^137.376^1.392^.083
+9 ;;^UTILITY(U,$J,112,7772,2)
+10 ;;=.097^2.545
+11 ;;^UTILITY(U,$J,112,7772,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7773,0)
+14 ;;=FROZEN DINNERS,CHICKEN BREAST,GLAZED,LE MENU LIGHTSTYLE^BC-01046^10-oz.^284
+15 ;;^UTILITY(U,$J,112,7773,1)
+16 ;;=9.014^1.831^10.352^94.014^^^^20.423^.669^^^160.915^229.225^^^^^826.056^1.761^.035
+17 ;;^UTILITY(U,$J,112,7773,2)
+18 ;;=.102^2.887^^^^^^^17.958^.493^^.493
+19 ;;^UTILITY(U,$J,112,7773,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7774,0)
+22 ;;=FROZEN DINNERS,CHICKEN BREAST W/ WINE SCE, LE MENU^BC-01047^10-oz.^284
+23 ;;^UTILITY(U,$J,112,7774,1)
+24 ;;=9.19^2.5^9.542^97.535^^^^25.352^.845^^^149.296^237.676^^^^^1738.732^1.408^.06
+25 ;;^UTILITY(U,$J,112,7774,2)
+26 ;;=.056^2.817
+27 ;;^UTILITY(U,$J,112,7774,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7775,0)
+30 ;;=FROZEN DINNERS,CHICKCEN BURGUNDY, ARMOUR CLASSICS LITE^BC-01048^10-oz.^284
+31 ;;^UTILITY(U,$J,112,7775,1)
+32 ;;=8.099^.704^8.803^73.944^^^^16.197^.704^^65.493^179.577^274.648^^^^^697.183^8.451^.063
+33 ;;^UTILITY(U,$J,112,7775,2)
+34 ;;=.06^2.324^^^^^^^15.845
+35 ;;^UTILITY(U,$J,112,7775,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7776,0)
+38 ;;=FROZEN DINNERS,CHICKEN CACCIATORE,LE MENU LIGHTSTYLE^BC-01049^10-oz.^284
+39 ;;^UTILITY(U,$J,112,7776,1)
+40 ;;=7.535^2.606^9.507^91.549^^^^31.69^.88^^^169.366^229.577^^^^^1787.676^5.986^.049
+41 ;;^UTILITY(U,$J,112,7776,2)
+42 ;;=.106^1.69^^^^^^^23.239^.915^^.599^^^^^2.183
+43 ;;^UTILITY(U,$J,112,7776,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7777,0)
+46 ;;=FROZEN DINNERS,CHICKENEN CORDON BLEU,LE MENU^BC-01050^11-oz.^312
+47 ;;^UTILITY(U,$J,112,7777,1)
+48 ;;=7.468^6.25^15.224^146.795^^^^42.628^.577^^^146.795^269.551^^^^^2334.295^1.282^.051
+49 ;;^UTILITY(U,$J,112,7777,2)
+50 ;;=.067^2.821^^^^^^^^^^^^^^^1.763
+51 ;;^UTILITY(U,$J,112,7777,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7778,0)
+54 ;;=FROZEN DINNERS,CHICKEN,DARK W/BBQ SCE,SWANSON HUNGRY-MAN^BC-01051^16.5-oz.^468
+55 ;;^UTILITY(U,$J,112,7778,1)
+56 ;;=8.376^3.932^15.107^129.274^^^^18.376^.897^^^178.632^230.983^^^^^373.932^3.632^.034
+57 ;;^UTILITY(U,$J,112,7778,2)
+58 ;;=.107^1.496
+59 ;;^UTILITY(U,$J,112,7778,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7779,0)
+62 ;;=FROZEN DINNERS,CHICKEN DRUMLET, SWANSON^BC-01052^10-oz.^284
+63 ;;^UTILITY(U,$J,112,7779,1)
+64 ;;=8.662^9.542^15.458^182.394^^^^18.662^1.021^^^169.014^245.423^^^^^164.437^1.761^.07
+65 ;;^UTILITY(U,$J,112,7779,2)
+66 ;;=.092^1.972
+67 ;;^UTILITY(U,$J,112,7779,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7780,0)
+70 ;;=FROZEN DINNERS,CHICKEN FETTUCINI, ARMOUR CLASSICS^BC-01053^11-oz.^312
+71 ;;^UTILITY(U,$J,112,7780,1)
+72 ;;=5.449^2.885^8.974^83.333^^^^46.795^.641^^96.154^128.205^211.538^^^^^528.526^19.551^.061
+73 ;;^UTILITY(U,$J,112,7780,2)
+74 ;;=.058^1.218^^^^^^^16.026
+75 ;;^UTILITY(U,$J,112,7780,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7781,0)
+78 ;;=FROZEN DINNERS,CHICKEN FRIED,BANQUET EXTRA HELPING^BC-01054^16-oz.^454
+79 ;;^UTILITY(U,$J,112,7781,1)
+80 ;;=4.405^6.167^15.419^125.551^^^^14.097^.22^^46.696^127.753^323.789^^^^^148.458^1.762^.035
+81 ;;^UTILITY(U,$J,112,7781,2)
+82 ;;=.037^1.388
+83 ;;^UTILITY(U,$J,112,7781,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7782,0)
+86 ;;=FROZEN DINNERS,CHICKEN,FRIED,BANQUET^BC-01055^10-oz.^284
+87 ;;^UTILITY(U,$J,112,7782,1)
+88 ;;=5.282^7.746^15.845^140.845^^^^16.197^.352^^^169.014^387.324^^^^^198.592^2.817^.049
+89 ;;^UTILITY(U,$J,112,7782,2)
+90 ;;=.046^1.725
+91 ;;^UTILITY(U,$J,112,7782,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,7783,0)
+94 ;;=FROZEN DINNERS,CHICKEN,FRIED,BBQ FLAVOR, SWANSON^BC-01056^10-oz.^284
+95 ;;^UTILITY(U,$J,112,7783,1)
+96 ;;=8.838^7.817^21.479^191.549^^^^28.169^1.232^^^175.352^409.507^^^^^247.535^1.056^.099
+97 ;;^UTILITY(U,$J,112,7783,2)
+98 ;;=.092^2.042
+99 ;;^UTILITY(U,$J,112,7783,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,7784,0)
+102 ;;=FROZEN DINNERS,CHICKEN,FRIED,DARK MEAT,SWANSON HUNGRY-MAN^BC-01057^14.25-oz.^404
+103 ;;^UTILITY(U,$J,112,7784,1)
+104 ;;=8.762^10.545^18.985^205.941^^^^17.327^1.213^^^179.95^423.02^^^^^15.099^1.238^.097
