FHINI0C4 ; ; 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,7837,1)
;;=5.882^5^21.176^152.941^^^^57.059^.882^^^123.529^582.353^^^^^158.529^2.059^.129
;;^UTILITY(U,$J,112,7837,2)
;;=.068^.794
;;^UTILITY(U,$J,112,7837,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7838,0)
;;=FROZEN DINNERS,MEXICAN STYLE COMBINATION,SWANSON^BC-01111^14.25-oz.^404
;;^UTILITY(U,$J,112,7838,1)
;;=4.579^5.693^14.851^128.96^^^^45.545^1.114^^^165.594^394.307^^^^^384.653^.99^.062
;;^UTILITY(U,$J,112,7838,2)
;;=.052^.916
;;^UTILITY(U,$J,112,7838,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7839,0)
;;=FROZEN DINNERS,MEXICAN STYLE,MORTON^BC-01112^10-oz.^284
;;^UTILITY(U,$J,112,7839,1)
;;=3.169^3.521^15.493^105.634^^^^31.338^.704^^66.549^176.056^489.437^^^^^548.944^1.408
;;^UTILITY(U,$J,112,7839,2)
;;=.067^.423^^^^^^^7.042
;;^UTILITY(U,$J,112,7839,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7840,0)
;;=FROZEN DINNERS,MEXICAN STYLE,PATIO MEXICAN^BC-01113^13.25-oz.^376
;;^UTILITY(U,$J,112,7840,1)
;;=3.989^6.649^17.021^143.617^^^^43.883^1.064^^81.915^180.851^515.957^^^^^416.489^1.064^.085
;;^UTILITY(U,$J,112,7840,2)
;;=.08^1.622^^^^^^^11.968
;;^UTILITY(U,$J,112,7840,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7841,0)
;;=FROZEN DINNERS,NOODLES & CHICKEN BANQUET^BC-01114^10-oz.^284
;;^UTILITY(U,$J,112,7841,1)
;;=3.521^5.282^14.789^123.239^^^^10.211^.704^^^88.028^161.972^^^^^2426.056^.704^.063
;;^UTILITY(U,$J,112,7841,2)
;;=.067^1.338^^^^^^^15.845
;;^UTILITY(U,$J,112,7841,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7842,0)
;;=FROZEN DINNERS,NOODLES & CHICKEN,SWANSON BUDGET^BC-01115^10.5-oz.^298
;;^UTILITY(U,$J,112,7842,1)
;;=2.45^2.584^15.168^93.96^^^^25.839^.537^^^71.477^248.658^^^^^1376.51^1.007^.05
;;^UTILITY(U,$J,112,7842,2)
;;=.091^1.107
;;^UTILITY(U,$J,112,7842,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7843,0)
;;=FROZEN DINNERS,PORK LOINS,SWANSON^BC-01116^10.8-oz.^305
;;^UTILITY(U,$J,112,7843,1)
;;=6.689^3.475^8.59^92.459^^^^13.115^.557^^^141.967^259.016^^^^^1742.623^1.967^.154
;;^UTILITY(U,$J,112,7843,2)
;;=.049^1.738
;;^UTILITY(U,$J,112,7843,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7844,0)
;;=FROZEN DINNERS,PORK W/APPLE GLAZE,LE MENU^BC-01117^10-oz.^284
;;^UTILITY(U,$J,112,7844,1)
;;=6.796^3.31^12.042^104.93^^^^17.958^.775^^^167.958^277.817^^^^^1920.07^40.493^.173
;;^UTILITY(U,$J,112,7844,2)
;;=.07^1.796
;;^UTILITY(U,$J,112,7844,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7845,0)
;;=FROZEN DINNERS,POT ROAST,SWANSON HUNGRY-MAN^BC-01118^16-oz.^454
;;^UTILITY(U,$J,112,7845,1)
;;=6.63^2.291^10.573^89.427^^^^17.841^1.233^^^209.031^210.352^^^^^395.154^1.982^.042
;;^UTILITY(U,$J,112,7845,2)
;;=.108^1.718
;;^UTILITY(U,$J,112,7845,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7846,0)
;;=FROZEN DINNERS,RAVIOLI BEEF,SWANSON HUNGRY-MAN^BC-01119^16.5-oz.^468
;;^UTILITY(U,$J,112,7846,1)
;;=3.44^3.59^14.594^104.487^^^^34.615^.94^^^58.761^208.333^^^^^210.043^5.342^.073
;;^UTILITY(U,$J,112,7846,2)
;;=.06^.897
;;^UTILITY(U,$J,112,7846,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7847,0)
;;=FROZEN DINNERS,SALISBURY PARMIGIANA,ARMOUR CLASSICS^BC-01120^115.-oz.^326
;;^UTILITY(U,$J,112,7847,1)
;;=6.748^6.442^9.816^125.767^^^^38.65^1.227^^^165.644^343.558^^^^^116.871^2.454^.11
;;^UTILITY(U,$J,112,7847,2)
;;=.098^.982^^^^^^^18.405
;;^UTILITY(U,$J,112,7847,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7848,0)
;;=FROZEN DINNERS,SALISBURY STEAK,ARMOUR CLASSICS^BC-01122^11.25-oz.^319
;;^UTILITY(U,$J,112,7848,1)
;;=6.897^5.329^8.15^109.718^^^^37.304^1.254^^87.147^166.144^448.276^^^^^96.865^7.524^.078
;;^UTILITY(U,$J,112,7848,2)
;;=.122^.784^^^^^^^17.241
;;^UTILITY(U,$J,112,7848,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7849,0)
;;=FROZEN DINNERS,SALISBURY STEAK,ARMOUR CLASSICS^BC-01122^11.25-oz.^319
;;^UTILITY(U,$J,112,7849,1)
;;=6.897^5.329^8.15^109.718^^^^37.304^1.254^^87.147^166.144^448.276^^^^^96.865^7.524^.078
;;^UTILITY(U,$J,112,7849,2)
;;=.122^.784^^^^^^^17.241
;;^UTILITY(U,$J,112,7849,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7850,0)
;;=FROZEN DINNERS,SALISBURY STEAK,BANQUET^BC-01123^11-oz.^312
;;^UTILITY(U,$J,112,7850,1)
;;=7.372^10.897^8.333^160.256^^^^13.782^.962^^^189.103^192.308^^^^^147.436^2.244^.058
FHINI0C4 ; ; 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,7837,1)
+2 ;;=5.882^5^21.176^152.941^^^^57.059^.882^^^123.529^582.353^^^^^158.529^2.059^.129
+3 ;;^UTILITY(U,$J,112,7837,2)
+4 ;;=.068^.794
+5 ;;^UTILITY(U,$J,112,7837,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7838,0)
+8 ;;=FROZEN DINNERS,MEXICAN STYLE COMBINATION,SWANSON^BC-01111^14.25-oz.^404
+9 ;;^UTILITY(U,$J,112,7838,1)
+10 ;;=4.579^5.693^14.851^128.96^^^^45.545^1.114^^^165.594^394.307^^^^^384.653^.99^.062
+11 ;;^UTILITY(U,$J,112,7838,2)
+12 ;;=.052^.916
+13 ;;^UTILITY(U,$J,112,7838,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7839,0)
+16 ;;=FROZEN DINNERS,MEXICAN STYLE,MORTON^BC-01112^10-oz.^284
+17 ;;^UTILITY(U,$J,112,7839,1)
+18 ;;=3.169^3.521^15.493^105.634^^^^31.338^.704^^66.549^176.056^489.437^^^^^548.944^1.408
+19 ;;^UTILITY(U,$J,112,7839,2)
+20 ;;=.067^.423^^^^^^^7.042
+21 ;;^UTILITY(U,$J,112,7839,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7840,0)
+24 ;;=FROZEN DINNERS,MEXICAN STYLE,PATIO MEXICAN^BC-01113^13.25-oz.^376
+25 ;;^UTILITY(U,$J,112,7840,1)
+26 ;;=3.989^6.649^17.021^143.617^^^^43.883^1.064^^81.915^180.851^515.957^^^^^416.489^1.064^.085
+27 ;;^UTILITY(U,$J,112,7840,2)
+28 ;;=.08^1.622^^^^^^^11.968
+29 ;;^UTILITY(U,$J,112,7840,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7841,0)
+32 ;;=FROZEN DINNERS,NOODLES & CHICKEN BANQUET^BC-01114^10-oz.^284
+33 ;;^UTILITY(U,$J,112,7841,1)
+34 ;;=3.521^5.282^14.789^123.239^^^^10.211^.704^^^88.028^161.972^^^^^2426.056^.704^.063
+35 ;;^UTILITY(U,$J,112,7841,2)
+36 ;;=.067^1.338^^^^^^^15.845
+37 ;;^UTILITY(U,$J,112,7841,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7842,0)
+40 ;;=FROZEN DINNERS,NOODLES & CHICKEN,SWANSON BUDGET^BC-01115^10.5-oz.^298
+41 ;;^UTILITY(U,$J,112,7842,1)
+42 ;;=2.45^2.584^15.168^93.96^^^^25.839^.537^^^71.477^248.658^^^^^1376.51^1.007^.05
+43 ;;^UTILITY(U,$J,112,7842,2)
+44 ;;=.091^1.107
+45 ;;^UTILITY(U,$J,112,7842,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7843,0)
+48 ;;=FROZEN DINNERS,PORK LOINS,SWANSON^BC-01116^10.8-oz.^305
+49 ;;^UTILITY(U,$J,112,7843,1)
+50 ;;=6.689^3.475^8.59^92.459^^^^13.115^.557^^^141.967^259.016^^^^^1742.623^1.967^.154
+51 ;;^UTILITY(U,$J,112,7843,2)
+52 ;;=.049^1.738
+53 ;;^UTILITY(U,$J,112,7843,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7844,0)
+56 ;;=FROZEN DINNERS,PORK W/APPLE GLAZE,LE MENU^BC-01117^10-oz.^284
+57 ;;^UTILITY(U,$J,112,7844,1)
+58 ;;=6.796^3.31^12.042^104.93^^^^17.958^.775^^^167.958^277.817^^^^^1920.07^40.493^.173
+59 ;;^UTILITY(U,$J,112,7844,2)
+60 ;;=.07^1.796
+61 ;;^UTILITY(U,$J,112,7844,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7845,0)
+64 ;;=FROZEN DINNERS,POT ROAST,SWANSON HUNGRY-MAN^BC-01118^16-oz.^454
+65 ;;^UTILITY(U,$J,112,7845,1)
+66 ;;=6.63^2.291^10.573^89.427^^^^17.841^1.233^^^209.031^210.352^^^^^395.154^1.982^.042
+67 ;;^UTILITY(U,$J,112,7845,2)
+68 ;;=.108^1.718
+69 ;;^UTILITY(U,$J,112,7845,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7846,0)
+72 ;;=FROZEN DINNERS,RAVIOLI BEEF,SWANSON HUNGRY-MAN^BC-01119^16.5-oz.^468
+73 ;;^UTILITY(U,$J,112,7846,1)
+74 ;;=3.44^3.59^14.594^104.487^^^^34.615^.94^^^58.761^208.333^^^^^210.043^5.342^.073
+75 ;;^UTILITY(U,$J,112,7846,2)
+76 ;;=.06^.897
+77 ;;^UTILITY(U,$J,112,7846,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7847,0)
+80 ;;=FROZEN DINNERS,SALISBURY PARMIGIANA,ARMOUR CLASSICS^BC-01120^115.-oz.^326
+81 ;;^UTILITY(U,$J,112,7847,1)
+82 ;;=6.748^6.442^9.816^125.767^^^^38.65^1.227^^^165.644^343.558^^^^^116.871^2.454^.11
+83 ;;^UTILITY(U,$J,112,7847,2)
+84 ;;=.098^.982^^^^^^^18.405
+85 ;;^UTILITY(U,$J,112,7847,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7848,0)
+88 ;;=FROZEN DINNERS,SALISBURY STEAK,ARMOUR CLASSICS^BC-01122^11.25-oz.^319
+89 ;;^UTILITY(U,$J,112,7848,1)
+90 ;;=6.897^5.329^8.15^109.718^^^^37.304^1.254^^87.147^166.144^448.276^^^^^96.865^7.524^.078
+91 ;;^UTILITY(U,$J,112,7848,2)
+92 ;;=.122^.784^^^^^^^17.241
+93 ;;^UTILITY(U,$J,112,7848,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7849,0)
+96 ;;=FROZEN DINNERS,SALISBURY STEAK,ARMOUR CLASSICS^BC-01122^11.25-oz.^319
+97 ;;^UTILITY(U,$J,112,7849,1)
+98 ;;=6.897^5.329^8.15^109.718^^^^37.304^1.254^^87.147^166.144^448.276^^^^^96.865^7.524^.078
+99 ;;^UTILITY(U,$J,112,7849,2)
+100 ;;=.122^.784^^^^^^^17.241
+101 ;;^UTILITY(U,$J,112,7849,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,7850,0)
+104 ;;=FROZEN DINNERS,SALISBURY STEAK,BANQUET^BC-01123^11-oz.^312
+105 ;;^UTILITY(U,$J,112,7850,1)
+106 ;;=7.372^10.897^8.333^160.256^^^^13.782^.962^^^189.103^192.308^^^^^147.436^2.244^.058
