FHINI0C2 ; ; 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,7810,2)
;;=.066^1.967^^^^^^^16.393
;;^UTILITY(U,$J,112,7810,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7811,0)
;;=FROZEN DINNERS,CHOW MEIN,CHICKEN & WHITE RICE,LE MENU LIGHT^BC-01084^10-oz.^284
;;^UTILITY(U,$J,112,7811,1)
;;=6.162^1.725^11.831^87.676^^^^20.423^.599^^^107.042^265.493^^^^^195.775^1.761^.063
;;^UTILITY(U,$J,112,7811,2)
;;=.116^1.655^^^^^^^14.437^.563^^.423^^^^^1.901
;;^UTILITY(U,$J,112,7811,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7812,0)
;;=FROZEN DINNERS,ENCHILADA,BEEF,BANQUET^BC-01085^12-oz.^340
;;^UTILITY(U,$J,112,7812,1)
;;=5.588^4.412^21.176^147.059^^^^32.059^1.176^^^120.588^532.353^^^^^110.588^2.059^.129
;;^UTILITY(U,$J,112,7812,2)
;;=.056^.853
;;^UTILITY(U,$J,112,7812,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7813,0)
;;=FROZEN DINNERS,ENCHILADA,BEEF,PATIO MEXICAN^BC-01086^13.25-oz.^377
;;^UTILITY(U,$J,112,7813,1)
;;=4.244^6.366^15.65^137.931^^^^45.093^.796^^81.167^183.024^480.106^^^^^216.976^0^.09
;;^UTILITY(U,$J,112,7813,2)
;;=.064^.504^^^^^^^10.61
;;^UTILITY(U,$J,112,7813,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7814,0)
;;=FROZEN DINNERS,ENCHILADA,BEEF,SWANSON^BC-01087^13.8-oz.^390
;;^UTILITY(U,$J,112,7814,1)
;;=4.41^5.256^14.205^121.795^^^^53.846^.872^^^134.359^345.897^^^^^402.308^1.026^.056
;;^UTILITY(U,$J,112,7814,2)
;;=.054^.718
;;^UTILITY(U,$J,112,7814,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7815,0)
;;=FROZEN DINNERS,ENCHILADA,CHEESE,BANQUET^BC-01088^12-oz.^340
;;^UTILITY(U,$J,112,7815,1)
;;=6.471^5.588^20.882^161.765^^^^82.647^.882^^^123.529^638.235^^^^^209.118^2.059^.129
;;^UTILITY(U,$J,112,7815,2)
;;=.079^.706
;;^UTILITY(U,$J,112,7815,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7816,0)
;;=FROZEN DINNERS,ENCHILADA,CHEESE,PATIO MEXICAN^BC-01089^12.25-oz.^347
;;^UTILITY(U,$J,112,7816,1)
;;=4.035^2.882^17.003^109.51^^^^51.585^.865^^89.049^172.911^579.251^^^^^138.905^0^.075
;;^UTILITY(U,$J,112,7816,2)
;;=.061^.346^^^^^^^5.764
;;^UTILITY(U,$J,112,7816,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7817,0)
;;=FROZEN DINNERS,CHICKEN W/RED CHILI SCE,SWANSON^BC-01090^9-oz.^255
;;^UTILITY(U,$J,112,7817,1)
;;=3.804^2.824^16.196^105.49^^^^40.392^.98^^^190.98^484.314^16.078^^^^433.333^2.353^.078
;;^UTILITY(U,$J,112,7817,2)
;;=.063^.824
;;^UTILITY(U,$J,112,7817,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7818,0)
;;=FROZEN DINNERS,FIESTA,PATIO MEXICAN^BC-01091^12.25-oz.^347
;;^UTILITY(U,$J,112,7818,1)
;;=4.611^5.764^15.85^135.447^^^^64.841^.865^^98.559^178.674^587.896^^^^^222.767^0^.069
;;^UTILITY(U,$J,112,7818,2)
;;=.061^.375^^^^^^^8.646
;;^UTILITY(U,$J,112,7818,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7819,0)
;;=FROZEN DINNERS, FILET OF SOLE,LE MENU^BC-01092^10-oz.^284
;;^UTILITY(U,$J,112,7819,1)
;;=6.303^4.261^15.317^124.648^^^^36.972^.704^^^120.07^336.62^^^^^732.042^.704^.07
;;^UTILITY(U,$J,112,7819,2)
;;=.102^.845^^^^^^^^^^^^^^^1.303
;;^UTILITY(U,$J,112,7819,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7820,0)
;;=FROZEN DINNERS,FISH,MORTON^BC-01093^9.75-oz.^276
;;^UTILITY(U,$J,112,7820,1)
;;=6.522^4.71^16.667^134.058^^^^13.043^.725^^81.884^195.652^329.71^^^^^1724.275^0^.13
;;^UTILITY(U,$J,112,7820,2)
;;=.08^.978^^^^^^^23.551
;;^UTILITY(U,$J,112,7820,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7821,0)
;;=FROZEN DINNERS,FISH 'N CHIPS,SWANSON^BC-01094^10-oz.^284
;;^UTILITY(U,$J,112,7821,1)
;;=6.972^6.972^21.092^175^^^^23.944^.951^^^192.958^339.085^^^^^134.507^1.408^.099
;;^UTILITY(U,$J,112,7821,2)
;;=.063^1.232
;;^UTILITY(U,$J,112,7821,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7822,0)
;;=FROZEN DINNERS,FISH NUGGETS,SWANSON^BC-01095^9.5-oz.^269
;;^UTILITY(U,$J,112,7822,1)
;;=6.506^6.245^16.654^148.699^^^^18.216^.892^^^151.301^333.457^^^^^563.569^1.115^.063
;;^UTILITY(U,$J,112,7822,2)
;;=.067^1.152
;;^UTILITY(U,$J,112,7822,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7823,0)
;;=FROZEN DINNERS,HAM,ARMOUR CLASSICS^BC-01096^10.75-oz.^305
;;^UTILITY(U,$J,112,7823,1)
;;=4.918^2.295^11.803^88.525^^^^50.164^.656^^98.689^209.836^432.787^^^^^67.213^2.295^.193
;;^UTILITY(U,$J,112,7823,2)
;;=.092^.984^^^^^^^16.393
FHINI0C2 ; ; 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,7810,2)
+2 ;;=.066^1.967^^^^^^^16.393
+3 ;;^UTILITY(U,$J,112,7810,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7811,0)
+6 ;;=FROZEN DINNERS,CHOW MEIN,CHICKEN & WHITE RICE,LE MENU LIGHT^BC-01084^10-oz.^284
+7 ;;^UTILITY(U,$J,112,7811,1)
+8 ;;=6.162^1.725^11.831^87.676^^^^20.423^.599^^^107.042^265.493^^^^^195.775^1.761^.063
+9 ;;^UTILITY(U,$J,112,7811,2)
+10 ;;=.116^1.655^^^^^^^14.437^.563^^.423^^^^^1.901
+11 ;;^UTILITY(U,$J,112,7811,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7812,0)
+14 ;;=FROZEN DINNERS,ENCHILADA,BEEF,BANQUET^BC-01085^12-oz.^340
+15 ;;^UTILITY(U,$J,112,7812,1)
+16 ;;=5.588^4.412^21.176^147.059^^^^32.059^1.176^^^120.588^532.353^^^^^110.588^2.059^.129
+17 ;;^UTILITY(U,$J,112,7812,2)
+18 ;;=.056^.853
+19 ;;^UTILITY(U,$J,112,7812,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7813,0)
+22 ;;=FROZEN DINNERS,ENCHILADA,BEEF,PATIO MEXICAN^BC-01086^13.25-oz.^377
+23 ;;^UTILITY(U,$J,112,7813,1)
+24 ;;=4.244^6.366^15.65^137.931^^^^45.093^.796^^81.167^183.024^480.106^^^^^216.976^0^.09
+25 ;;^UTILITY(U,$J,112,7813,2)
+26 ;;=.064^.504^^^^^^^10.61
+27 ;;^UTILITY(U,$J,112,7813,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7814,0)
+30 ;;=FROZEN DINNERS,ENCHILADA,BEEF,SWANSON^BC-01087^13.8-oz.^390
+31 ;;^UTILITY(U,$J,112,7814,1)
+32 ;;=4.41^5.256^14.205^121.795^^^^53.846^.872^^^134.359^345.897^^^^^402.308^1.026^.056
+33 ;;^UTILITY(U,$J,112,7814,2)
+34 ;;=.054^.718
+35 ;;^UTILITY(U,$J,112,7814,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7815,0)
+38 ;;=FROZEN DINNERS,ENCHILADA,CHEESE,BANQUET^BC-01088^12-oz.^340
+39 ;;^UTILITY(U,$J,112,7815,1)
+40 ;;=6.471^5.588^20.882^161.765^^^^82.647^.882^^^123.529^638.235^^^^^209.118^2.059^.129
+41 ;;^UTILITY(U,$J,112,7815,2)
+42 ;;=.079^.706
+43 ;;^UTILITY(U,$J,112,7815,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7816,0)
+46 ;;=FROZEN DINNERS,ENCHILADA,CHEESE,PATIO MEXICAN^BC-01089^12.25-oz.^347
+47 ;;^UTILITY(U,$J,112,7816,1)
+48 ;;=4.035^2.882^17.003^109.51^^^^51.585^.865^^89.049^172.911^579.251^^^^^138.905^0^.075
+49 ;;^UTILITY(U,$J,112,7816,2)
+50 ;;=.061^.346^^^^^^^5.764
+51 ;;^UTILITY(U,$J,112,7816,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7817,0)
+54 ;;=FROZEN DINNERS,CHICKEN W/RED CHILI SCE,SWANSON^BC-01090^9-oz.^255
+55 ;;^UTILITY(U,$J,112,7817,1)
+56 ;;=3.804^2.824^16.196^105.49^^^^40.392^.98^^^190.98^484.314^16.078^^^^433.333^2.353^.078
+57 ;;^UTILITY(U,$J,112,7817,2)
+58 ;;=.063^.824
+59 ;;^UTILITY(U,$J,112,7817,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7818,0)
+62 ;;=FROZEN DINNERS,FIESTA,PATIO MEXICAN^BC-01091^12.25-oz.^347
+63 ;;^UTILITY(U,$J,112,7818,1)
+64 ;;=4.611^5.764^15.85^135.447^^^^64.841^.865^^98.559^178.674^587.896^^^^^222.767^0^.069
+65 ;;^UTILITY(U,$J,112,7818,2)
+66 ;;=.061^.375^^^^^^^8.646
+67 ;;^UTILITY(U,$J,112,7818,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7819,0)
+70 ;;=FROZEN DINNERS, FILET OF SOLE,LE MENU^BC-01092^10-oz.^284
+71 ;;^UTILITY(U,$J,112,7819,1)
+72 ;;=6.303^4.261^15.317^124.648^^^^36.972^.704^^^120.07^336.62^^^^^732.042^.704^.07
+73 ;;^UTILITY(U,$J,112,7819,2)
+74 ;;=.102^.845^^^^^^^^^^^^^^^1.303
+75 ;;^UTILITY(U,$J,112,7819,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7820,0)
+78 ;;=FROZEN DINNERS,FISH,MORTON^BC-01093^9.75-oz.^276
+79 ;;^UTILITY(U,$J,112,7820,1)
+80 ;;=6.522^4.71^16.667^134.058^^^^13.043^.725^^81.884^195.652^329.71^^^^^1724.275^0^.13
+81 ;;^UTILITY(U,$J,112,7820,2)
+82 ;;=.08^.978^^^^^^^23.551
+83 ;;^UTILITY(U,$J,112,7820,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7821,0)
+86 ;;=FROZEN DINNERS,FISH 'N CHIPS,SWANSON^BC-01094^10-oz.^284
+87 ;;^UTILITY(U,$J,112,7821,1)
+88 ;;=6.972^6.972^21.092^175^^^^23.944^.951^^^192.958^339.085^^^^^134.507^1.408^.099
+89 ;;^UTILITY(U,$J,112,7821,2)
+90 ;;=.063^1.232
+91 ;;^UTILITY(U,$J,112,7821,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,7822,0)
+94 ;;=FROZEN DINNERS,FISH NUGGETS,SWANSON^BC-01095^9.5-oz.^269
+95 ;;^UTILITY(U,$J,112,7822,1)
+96 ;;=6.506^6.245^16.654^148.699^^^^18.216^.892^^^151.301^333.457^^^^^563.569^1.115^.063
+97 ;;^UTILITY(U,$J,112,7822,2)
+98 ;;=.067^1.152
+99 ;;^UTILITY(U,$J,112,7822,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,7823,0)
+102 ;;=FROZEN DINNERS,HAM,ARMOUR CLASSICS^BC-01096^10.75-oz.^305
+103 ;;^UTILITY(U,$J,112,7823,1)
+104 ;;=4.918^2.295^11.803^88.525^^^^50.164^.656^^98.689^209.836^432.787^^^^^67.213^2.295^.193
+105 ;;^UTILITY(U,$J,112,7823,2)
+106 ;;=.092^.984^^^^^^^16.393
