FHINI0C0 ; ; 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,7784,2)
;;=.111^2.525
;;^UTILITY(U,$J,112,7784,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7785,0)
;;=FROZEN DINNERS,CHICKEN,FRIED,PLATTER,SWANSON BUDGET^BC-01058^7.8-oz.^220
;;^UTILITY(U,$J,112,7785,1)
;;=7.136^9.545^17.045^182.727^^^^25^1.273^^^175.909^417.727^^^^^2608.182^.909^.091
;;^UTILITY(U,$J,112,7785,2)
;;=.114^2.727
;;^UTILITY(U,$J,112,7785,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7786,0)
;;=FROZEN DINNERS,CHICKEN,FRIED,WHITE, BANQUET EXTRA HELPING^BC-01059^16-oz.^454
;;^UTILITY(U,$J,112,7786,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,7786,2)
;;=.037^1.388
;;^UTILITY(U,$J,112,7786,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7787,0)
;;=FROZEN DINNERS,CHICKEN,FRIED,WHITE MEAT, SWANSON^BC-01060^10.3-oz.^291
;;^UTILITY(U,$J,112,7787,1)
;;=7.732^8.351^20.653^188.66^^^^23.368^1.031^^^157.732^487.973^^^^^48.11^1.031^.093
;;^UTILITY(U,$J,112,7787,2)
;;=.089^2.371
;;^UTILITY(U,$J,112,7787,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7788,0)
;;=FROZEN DINNERS,CHICKEN,FRIED,WHITE MEAT, SWANSON HUNGRY-MAN^BC-01061^14.25-oz.^404
;;^UTILITY(U,$J,112,7788,1)
;;=8.762^10.693^19.158^207.921^^^^22.277^1.139^^^185.396^531.931^^^^^10.891^1.238^.106
;;^UTILITY(U,$J,112,7788,2)
;;=.106^3.168
;;^UTILITY(U,$J,112,7788,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7789,0)
;;=FROZEN DINNERS,CHICKEN, GLAZED, ARMOUR CLASSICS^BC-01062^10.75-oz.^305
;;^UTILITY(U,$J,112,7789,1)
;;=4.918^5.246^7.869^98.361^^^^12.459^.328^^60^131.148^314.754^^^^^121.967^3.934^.056
;;^UTILITY(U,$J,112,7789,2)
;;=.082^1.443^^^^^^^19.672
;;^UTILITY(U,$J,112,7789,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7790,0)
;;=FROZEN DINNERS,CHICKEN,HERB ROASTED,HEALTHY CHOICE^BC-01063^11-oz.^312
;;^UTILITY(U,$J,112,7790,1)
;;=6.41^.962^12.179^83.333^^^^11.218^.321^^91.346^160.256^96.154^^^^^242.308^40.705^.099
;;^UTILITY(U,$J,112,7790,2)
;;=.051^2.051^^^^^^^12.821^.321^^.321
;;^UTILITY(U,$J,112,7790,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7791,0)
;;=FROZEN DINNERS,CHICKEN,HERB ROASTED,LE MENU LIGHTSTYLE^BC-01064^9.2-oz.^262
;;^UTILITY(U,$J,112,7791,1)
;;=9.008^2.061^7.29^83.969^^^^22.901^.725^^^212.595^202.672^^^^^246.183^3.053^.038
;;^UTILITY(U,$J,112,7791,2)
;;=.076^2.863^^^^^^^18.321^.687^^.458
;;^UTILITY(U,$J,112,7791,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7792,0)
;;=FROZEN DINNERS,CHICKEN MARSALA,ARMOUR CLASSICS LITE^BC-01065^10.5-oz.^298
;;^UTILITY(U,$J,112,7792,1)
;;=6.711^2.349^9.06^83.893^^^^22.483^.671^^101.678^147.651^312.081^^^^^130.537^6.04^.107
;;^UTILITY(U,$J,112,7792,2)
;;=.084^1.879^^^^^^^26.846
;;^UTILITY(U,$J,112,7792,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7793,0)
;;=FROZEN DINNERS,CHICKEN MESQUITE,ARMOUR CLASSICS^BC-01066^9.5-oz.^269
;;^UTILITY(U,$J,112,7793,1)
;;=5.576^5.948^15.613^137.546^^^^12.268^^^102.23^301.115^245.353^^^^^177.695^5.948^.104
;;^UTILITY(U,$J,112,7793,2)
;;=.089^1.599^^^^^^^20.446
;;^UTILITY(U,$J,112,7793,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7794,0)
;;=FROZEN DINNERS,CHICKEN MESQUITE,HEALTHY CHOICE^BC-01067^10.5-oz.^266
;;^UTILITY(U,$J,112,7794,1)
;;=7.895^.752^19.549^116.541^^^^17.293^.752^^93.609^236.842^101.504^^^^^366.917^40.226^.075
;;^UTILITY(U,$J,112,7794,2)
;;=.071^2.406^^^^^^^16.917^.376^^.376
;;^UTILITY(U,$J,112,7794,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7795,0)
;;=FROZEN DINNERS,CHICKEN MESQUITE,LE MENU^BC-01068^10-oz.^284
;;^UTILITY(U,$J,112,7795,1)
;;=10^2.817^12.711^116.197^^^^8.099^.81^^^182.042^238.732^^^^^146.831^2.113^.063
;;^UTILITY(U,$J,112,7795,2)
;;=.092^3.521
;;^UTILITY(U,$J,112,7795,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7796,0)
;;=FROZEN DINNERS,CHICKEN NUGGETS,PLATTER, SWANSON^BC-01069^8.75-oz.^248
;;^UTILITY(U,$J,112,7796,1)
;;=7.782^9.315^18.911^190.726^^^^12.097^.968^^^200.403^262.5^^^^^52.419^1.21^.077
;;^UTILITY(U,$J,112,7796,2)
;;=.089^1.855
;;^UTILITY(U,$J,112,7796,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7797,0)
;;=FROZEN DINNERS,CHICKEN NUGGETS,SWANSON HUNGRY-MAN^BC-01070^13-oz.^369
;;^UTILITY(U,$J,112,7797,1)
;;=6.341^6.911^18.537^161.518^^^^11.111^.705^^^108.401^188.347^^^^^50.949^2.71^.054
FHINI0C0 ; ; 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,7784,2)
+2 ;;=.111^2.525
+3 ;;^UTILITY(U,$J,112,7784,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7785,0)
+6 ;;=FROZEN DINNERS,CHICKEN,FRIED,PLATTER,SWANSON BUDGET^BC-01058^7.8-oz.^220
+7 ;;^UTILITY(U,$J,112,7785,1)
+8 ;;=7.136^9.545^17.045^182.727^^^^25^1.273^^^175.909^417.727^^^^^2608.182^.909^.091
+9 ;;^UTILITY(U,$J,112,7785,2)
+10 ;;=.114^2.727
+11 ;;^UTILITY(U,$J,112,7785,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7786,0)
+14 ;;=FROZEN DINNERS,CHICKEN,FRIED,WHITE, BANQUET EXTRA HELPING^BC-01059^16-oz.^454
+15 ;;^UTILITY(U,$J,112,7786,1)
+16 ;;=4.405^6.167^15.419^125.551^^^^14.097^.22^^46.696^127.753^323.789^^^^^148.458^1.762^.035
+17 ;;^UTILITY(U,$J,112,7786,2)
+18 ;;=.037^1.388
+19 ;;^UTILITY(U,$J,112,7786,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7787,0)
+22 ;;=FROZEN DINNERS,CHICKEN,FRIED,WHITE MEAT, SWANSON^BC-01060^10.3-oz.^291
+23 ;;^UTILITY(U,$J,112,7787,1)
+24 ;;=7.732^8.351^20.653^188.66^^^^23.368^1.031^^^157.732^487.973^^^^^48.11^1.031^.093
+25 ;;^UTILITY(U,$J,112,7787,2)
+26 ;;=.089^2.371
+27 ;;^UTILITY(U,$J,112,7787,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7788,0)
+30 ;;=FROZEN DINNERS,CHICKEN,FRIED,WHITE MEAT, SWANSON HUNGRY-MAN^BC-01061^14.25-oz.^404
+31 ;;^UTILITY(U,$J,112,7788,1)
+32 ;;=8.762^10.693^19.158^207.921^^^^22.277^1.139^^^185.396^531.931^^^^^10.891^1.238^.106
+33 ;;^UTILITY(U,$J,112,7788,2)
+34 ;;=.106^3.168
+35 ;;^UTILITY(U,$J,112,7788,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7789,0)
+38 ;;=FROZEN DINNERS,CHICKEN, GLAZED, ARMOUR CLASSICS^BC-01062^10.75-oz.^305
+39 ;;^UTILITY(U,$J,112,7789,1)
+40 ;;=4.918^5.246^7.869^98.361^^^^12.459^.328^^60^131.148^314.754^^^^^121.967^3.934^.056
+41 ;;^UTILITY(U,$J,112,7789,2)
+42 ;;=.082^1.443^^^^^^^19.672
+43 ;;^UTILITY(U,$J,112,7789,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7790,0)
+46 ;;=FROZEN DINNERS,CHICKEN,HERB ROASTED,HEALTHY CHOICE^BC-01063^11-oz.^312
+47 ;;^UTILITY(U,$J,112,7790,1)
+48 ;;=6.41^.962^12.179^83.333^^^^11.218^.321^^91.346^160.256^96.154^^^^^242.308^40.705^.099
+49 ;;^UTILITY(U,$J,112,7790,2)
+50 ;;=.051^2.051^^^^^^^12.821^.321^^.321
+51 ;;^UTILITY(U,$J,112,7790,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7791,0)
+54 ;;=FROZEN DINNERS,CHICKEN,HERB ROASTED,LE MENU LIGHTSTYLE^BC-01064^9.2-oz.^262
+55 ;;^UTILITY(U,$J,112,7791,1)
+56 ;;=9.008^2.061^7.29^83.969^^^^22.901^.725^^^212.595^202.672^^^^^246.183^3.053^.038
+57 ;;^UTILITY(U,$J,112,7791,2)
+58 ;;=.076^2.863^^^^^^^18.321^.687^^.458
+59 ;;^UTILITY(U,$J,112,7791,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7792,0)
+62 ;;=FROZEN DINNERS,CHICKEN MARSALA,ARMOUR CLASSICS LITE^BC-01065^10.5-oz.^298
+63 ;;^UTILITY(U,$J,112,7792,1)
+64 ;;=6.711^2.349^9.06^83.893^^^^22.483^.671^^101.678^147.651^312.081^^^^^130.537^6.04^.107
+65 ;;^UTILITY(U,$J,112,7792,2)
+66 ;;=.084^1.879^^^^^^^26.846
+67 ;;^UTILITY(U,$J,112,7792,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7793,0)
+70 ;;=FROZEN DINNERS,CHICKEN MESQUITE,ARMOUR CLASSICS^BC-01066^9.5-oz.^269
+71 ;;^UTILITY(U,$J,112,7793,1)
+72 ;;=5.576^5.948^15.613^137.546^^^^12.268^^^102.23^301.115^245.353^^^^^177.695^5.948^.104
+73 ;;^UTILITY(U,$J,112,7793,2)
+74 ;;=.089^1.599^^^^^^^20.446
+75 ;;^UTILITY(U,$J,112,7793,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7794,0)
+78 ;;=FROZEN DINNERS,CHICKEN MESQUITE,HEALTHY CHOICE^BC-01067^10.5-oz.^266
+79 ;;^UTILITY(U,$J,112,7794,1)
+80 ;;=7.895^.752^19.549^116.541^^^^17.293^.752^^93.609^236.842^101.504^^^^^366.917^40.226^.075
+81 ;;^UTILITY(U,$J,112,7794,2)
+82 ;;=.071^2.406^^^^^^^16.917^.376^^.376
+83 ;;^UTILITY(U,$J,112,7794,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7795,0)
+86 ;;=FROZEN DINNERS,CHICKEN MESQUITE,LE MENU^BC-01068^10-oz.^284
+87 ;;^UTILITY(U,$J,112,7795,1)
+88 ;;=10^2.817^12.711^116.197^^^^8.099^.81^^^182.042^238.732^^^^^146.831^2.113^.063
+89 ;;^UTILITY(U,$J,112,7795,2)
+90 ;;=.092^3.521
+91 ;;^UTILITY(U,$J,112,7795,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,7796,0)
+94 ;;=FROZEN DINNERS,CHICKEN NUGGETS,PLATTER, SWANSON^BC-01069^8.75-oz.^248
+95 ;;^UTILITY(U,$J,112,7796,1)
+96 ;;=7.782^9.315^18.911^190.726^^^^12.097^.968^^^200.403^262.5^^^^^52.419^1.21^.077
+97 ;;^UTILITY(U,$J,112,7796,2)
+98 ;;=.089^1.855
+99 ;;^UTILITY(U,$J,112,7796,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,7797,0)
+102 ;;=FROZEN DINNERS,CHICKEN NUGGETS,SWANSON HUNGRY-MAN^BC-01070^13-oz.^369
+103 ;;^UTILITY(U,$J,112,7797,1)
+104 ;;=6.341^6.911^18.537^161.518^^^^11.111^.705^^^108.401^188.347^^^^^50.949^2.71^.054
