FHINI0AS ; ; 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,7196,2)
;;=.204^2.037
;;^UTILITY(U,$J,112,7196,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7197,0)
;;=PASTRIES,TOASTER (STRAWBERRY),KELLOGG'S POP TARTS^BC-00470^1.8-oz.^51
;;^UTILITY(U,$J,112,7197,1)
;;=3.922^11.765^72.549^411.765^^^^86.275^3.529^15.686^90.196^117.647^392.157^.569^.216^^^980.392^0^.294
;;^UTILITY(U,$J,112,7197,2)
;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,7197,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7198,0)
;;=PASTRIES,TOASTER (STRAWBERRY),PILSBURY FRZN BAKED^BC-00471^1.9-oz.^54
;;^UTILITY(U,$J,112,7198,1)
;;=4.074^13.889^50.185^346.296^22.593^^^11.111^1.296^^85.185^75.926^374.074^^^^^1.852^1.852^.241
;;^UTILITY(U,$J,112,7198,2)
;;=.204^2.037
;;^UTILITY(U,$J,112,7198,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7199,0)
;;=PIES,APPLE FRZN,BANQUET^BC-00472^1/6-pie^94
;;^UTILITY(U,$J,112,7199,1)
;;=2.128^11.702^39.362^265.957^^^^12.766^1.064^^^52.128^308.511^^^^^15.957^3.191^.021
;;^UTILITY(U,$J,112,7199,2)
;;=.032^.319
;;^UTILITY(U,$J,112,7199,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7200,0)
;;=PIES,APPLE FRZN,MRS. SMITH'S PIE IN MINUTES^BC-00473^1/8-pie^89
;;^UTILITY(U,$J,112,7200,1)
;;=2.247^10.112^32.584^235.955^^^^^^^^^280.899
;;^UTILITY(U,$J,112,7200,2)
;;=^^^^^^^^0^2.247^5.618^2.247
;;^UTILITY(U,$J,112,7200,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7201,0)
;;=PIES,BANANA CREAM FRZN,BANQUET^BC-00474^1/6-pie^66
;;^UTILITY(U,$J,112,7201,1)
;;=3.03^15.152^31.818^272.727^^^^48.485^1.515^^^^227.273^^^^^10.606^1.515^.03
;;^UTILITY(U,$J,112,7201,2)
;;=.091^3.03
;;^UTILITY(U,$J,112,7201,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7202,0)
;;=PIES,BLACKBERRY FRZN,BANQUET^BC-00475^1/6-pie^94
;;^UTILITY(U,$J,112,7202,1)
;;=3.191^11.702^42.553^287.234^^^^24.468^1.064^^^69.149^372.34^^^^^52.128^5.319^.021
;;^UTILITY(U,$J,112,7202,2)
;;=.032^.319
;;^UTILITY(U,$J,112,7202,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7203,0)
;;=PIES,BLUEBERRY FRZN,BANQUET^BC-00476^1/6-pie^94
;;^UTILITY(U,$J,112,7203,1)
;;=3.191^11.702^42.553^287.234^^^^18.085^1.064^^^47.872^372.34^^^^^26.596^3.191^.032
;;^UTILITY(U,$J,112,7203,2)
;;=.032^.319
;;^UTILITY(U,$J,112,7203,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7204,0)
;;=PIES,BLUEBERRY FRZN,MRS. SMITH'S PIE IN MINUTES^BC-00477^1/8-pie^89
;;^UTILITY(U,$J,112,7204,1)
;;=2.247^10.112^35.955^247.191^^^^^^^^^269.663
;;^UTILITY(U,$J,112,7204,2)
;;=^^^^^^^^0^2.247^5.618^2.247
;;^UTILITY(U,$J,112,7204,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7205,0)
;;=PIES,CHERRY FRZN,BANQUET^BC-00478^1/6-pie^94
;;^UTILITY(U,$J,112,7205,1)
;;=3.191^11.702^38.298^265.957^^^^13.83^1.064^^^76.596^276.596^^^^^196.809^2.128^.032
;;^UTILITY(U,$J,112,7205,2)
;;=.043^.319
;;^UTILITY(U,$J,112,7205,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7206,0)
;;=PIES,CHERRY FRZN,MRS. SMITH'S PIE IN MINUTES^BC-00479^1/8-pie^89
;;^UTILITY(U,$J,112,7206,1)
;;=2.247^10.112^35.955^247.191^^^^^^^^^224.719
;;^UTILITY(U,$J,112,7206,2)
;;=^^^^^^^^0^2.247^5.618^2.247
;;^UTILITY(U,$J,112,7206,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7207,0)
;;=PIES,CHOC CREAM FRZN,BANQUET^BC-00480^1/6-pie^66
;;^UTILITY(U,$J,112,7207,1)
;;=3.03^15.152^36.364^287.879^^^^57.576^1.515^^^130.303^166.667^^^^^10.606^0^.03
;;^UTILITY(U,$J,112,7207,2)
;;=.076^.303
;;^UTILITY(U,$J,112,7207,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7208,0)
;;=PIES,COCONUT CREAM FRZN,BANQUET^BC-00481^1/6-pie^66
;;^UTILITY(U,$J,112,7208,1)
;;=3.03^16.667^33.333^287.879^^^^45.455^1.515^^^116.667^181.818^^^^^1.515^0^.015
;;^UTILITY(U,$J,112,7208,2)
;;=.076^.303
;;^UTILITY(U,$J,112,7208,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7209,0)
;;=PIES,LEMON CREAM FRZN,BANQUET^BC-00482^1/6-pie^66
;;^UTILITY(U,$J,112,7209,1)
;;=3.03^13.636^34.848^257.576^^^^45.455^1.515^^^106.061^181.818^^^^^3.03^3.03^.03
;;^UTILITY(U,$J,112,7209,2)
;;=.061^.303
;;^UTILITY(U,$J,112,7209,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7210,0)
;;=PIES,LEMON MERINGUE FRZN,MRS. SMITH'S^BC-00483^1/8-pie^85
;;^UTILITY(U,$J,112,7210,1)
;;=2.353^5.882^44.706^247.059^^^^^^^^94.118^152.941
FHINI0AS ; ; 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,7196,2)
+2 ;;=.204^2.037
+3 ;;^UTILITY(U,$J,112,7196,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7197,0)
+6 ;;=PASTRIES,TOASTER (STRAWBERRY),KELLOGG'S POP TARTS^BC-00470^1.8-oz.^51
+7 ;;^UTILITY(U,$J,112,7197,1)
+8 ;;=3.922^11.765^72.549^411.765^^^^86.275^3.529^15.686^90.196^117.647^392.157^.569^.216^^^980.392^0^.294
+9 ;;^UTILITY(U,$J,112,7197,2)
+10 ;;=.333^3.922^^.392^78.431^^^^0^^^^^^^^0
+11 ;;^UTILITY(U,$J,112,7197,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7198,0)
+14 ;;=PASTRIES,TOASTER (STRAWBERRY),PILSBURY FRZN BAKED^BC-00471^1.9-oz.^54
+15 ;;^UTILITY(U,$J,112,7198,1)
+16 ;;=4.074^13.889^50.185^346.296^22.593^^^11.111^1.296^^85.185^75.926^374.074^^^^^1.852^1.852^.241
+17 ;;^UTILITY(U,$J,112,7198,2)
+18 ;;=.204^2.037
+19 ;;^UTILITY(U,$J,112,7198,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7199,0)
+22 ;;=PIES,APPLE FRZN,BANQUET^BC-00472^1/6-pie^94
+23 ;;^UTILITY(U,$J,112,7199,1)
+24 ;;=2.128^11.702^39.362^265.957^^^^12.766^1.064^^^52.128^308.511^^^^^15.957^3.191^.021
+25 ;;^UTILITY(U,$J,112,7199,2)
+26 ;;=.032^.319
+27 ;;^UTILITY(U,$J,112,7199,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7200,0)
+30 ;;=PIES,APPLE FRZN,MRS. SMITH'S PIE IN MINUTES^BC-00473^1/8-pie^89
+31 ;;^UTILITY(U,$J,112,7200,1)
+32 ;;=2.247^10.112^32.584^235.955^^^^^^^^^280.899
+33 ;;^UTILITY(U,$J,112,7200,2)
+34 ;;=^^^^^^^^0^2.247^5.618^2.247
+35 ;;^UTILITY(U,$J,112,7200,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7201,0)
+38 ;;=PIES,BANANA CREAM FRZN,BANQUET^BC-00474^1/6-pie^66
+39 ;;^UTILITY(U,$J,112,7201,1)
+40 ;;=3.03^15.152^31.818^272.727^^^^48.485^1.515^^^^227.273^^^^^10.606^1.515^.03
+41 ;;^UTILITY(U,$J,112,7201,2)
+42 ;;=.091^3.03
+43 ;;^UTILITY(U,$J,112,7201,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7202,0)
+46 ;;=PIES,BLACKBERRY FRZN,BANQUET^BC-00475^1/6-pie^94
+47 ;;^UTILITY(U,$J,112,7202,1)
+48 ;;=3.191^11.702^42.553^287.234^^^^24.468^1.064^^^69.149^372.34^^^^^52.128^5.319^.021
+49 ;;^UTILITY(U,$J,112,7202,2)
+50 ;;=.032^.319
+51 ;;^UTILITY(U,$J,112,7202,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7203,0)
+54 ;;=PIES,BLUEBERRY FRZN,BANQUET^BC-00476^1/6-pie^94
+55 ;;^UTILITY(U,$J,112,7203,1)
+56 ;;=3.191^11.702^42.553^287.234^^^^18.085^1.064^^^47.872^372.34^^^^^26.596^3.191^.032
+57 ;;^UTILITY(U,$J,112,7203,2)
+58 ;;=.032^.319
+59 ;;^UTILITY(U,$J,112,7203,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7204,0)
+62 ;;=PIES,BLUEBERRY FRZN,MRS. SMITH'S PIE IN MINUTES^BC-00477^1/8-pie^89
+63 ;;^UTILITY(U,$J,112,7204,1)
+64 ;;=2.247^10.112^35.955^247.191^^^^^^^^^269.663
+65 ;;^UTILITY(U,$J,112,7204,2)
+66 ;;=^^^^^^^^0^2.247^5.618^2.247
+67 ;;^UTILITY(U,$J,112,7204,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7205,0)
+70 ;;=PIES,CHERRY FRZN,BANQUET^BC-00478^1/6-pie^94
+71 ;;^UTILITY(U,$J,112,7205,1)
+72 ;;=3.191^11.702^38.298^265.957^^^^13.83^1.064^^^76.596^276.596^^^^^196.809^2.128^.032
+73 ;;^UTILITY(U,$J,112,7205,2)
+74 ;;=.043^.319
+75 ;;^UTILITY(U,$J,112,7205,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7206,0)
+78 ;;=PIES,CHERRY FRZN,MRS. SMITH'S PIE IN MINUTES^BC-00479^1/8-pie^89
+79 ;;^UTILITY(U,$J,112,7206,1)
+80 ;;=2.247^10.112^35.955^247.191^^^^^^^^^224.719
+81 ;;^UTILITY(U,$J,112,7206,2)
+82 ;;=^^^^^^^^0^2.247^5.618^2.247
+83 ;;^UTILITY(U,$J,112,7206,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7207,0)
+86 ;;=PIES,CHOC CREAM FRZN,BANQUET^BC-00480^1/6-pie^66
+87 ;;^UTILITY(U,$J,112,7207,1)
+88 ;;=3.03^15.152^36.364^287.879^^^^57.576^1.515^^^130.303^166.667^^^^^10.606^0^.03
+89 ;;^UTILITY(U,$J,112,7207,2)
+90 ;;=.076^.303
+91 ;;^UTILITY(U,$J,112,7207,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,7208,0)
+94 ;;=PIES,COCONUT CREAM FRZN,BANQUET^BC-00481^1/6-pie^66
+95 ;;^UTILITY(U,$J,112,7208,1)
+96 ;;=3.03^16.667^33.333^287.879^^^^45.455^1.515^^^116.667^181.818^^^^^1.515^0^.015
+97 ;;^UTILITY(U,$J,112,7208,2)
+98 ;;=.076^.303
+99 ;;^UTILITY(U,$J,112,7208,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,7209,0)
+102 ;;=PIES,LEMON CREAM FRZN,BANQUET^BC-00482^1/6-pie^66
+103 ;;^UTILITY(U,$J,112,7209,1)
+104 ;;=3.03^13.636^34.848^257.576^^^^45.455^1.515^^^106.061^181.818^^^^^3.03^3.03^.03
+105 ;;^UTILITY(U,$J,112,7209,2)
+106 ;;=.061^.303
+107 ;;^UTILITY(U,$J,112,7209,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,7210,0)
+110 ;;=PIES,LEMON MERINGUE FRZN,MRS. SMITH'S^BC-00483^1/8-pie^85
+111 ;;^UTILITY(U,$J,112,7210,1)
+112 ;;=2.353^5.882^44.706^247.059^^^^^^^^94.118^152.941
