FHINI0B1 ; ; 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,7315,0)
;;=ICING FROM MIX (VAN,CREAMY),GENERAL MILLS^BC-00588^1/12-pkg.^39
;;^UTILITY(U,$J,112,7315,1)
;;=0^12.821^82.051^435.897^^^^^^^^12.821^128.205
;;^UTILITY(U,$J,112,7315,2)
;;=^^^^^^^^0^2.564^7.692^2.564
;;^UTILITY(U,$J,112,7315,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7316,0)
;;=ICING FROM MIX (VAN),DUNCAN HINES^BC-00589^1/12-pkg.^38
;;^UTILITY(U,$J,112,7316,1)
;;=.263^18.421^63.158^421.053^17.895^^^10.526^.421^^^^210.526^^^^^^^0
;;^UTILITY(U,$J,112,7316,2)
;;=.026^0^^^^^^^2.632^5.263^12.105^1.053
;;^UTILITY(U,$J,112,7316,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7317,0)
;;=ICING FROM MIX (VAN,PINK POLKA DOT),DUNCAN HINES^BC-00590^1/12-pkg.^38
;;^UTILITY(U,$J,112,7317,1)
;;=.789^18.421^63.158^421.053^^^^^^^^^197.368
;;^UTILITY(U,$J,112,7317,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7317,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7318,0)
;;=ICING FROM MIX (WHITE FLUFFY),GENERAL MILLS^BC-00591^1/12-pkg.^26
;;^UTILITY(U,$J,112,7318,1)
;;=0^0^61.538^269.231^^^^^^^^76.923^153.846
;;^UTILITY(U,$J,112,7318,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7318,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7319,0)
;;=ICING R-T-S (BUTTER PECAN),CREAMY DELUXE^BC-00592^1/12-tub^38
;;^UTILITY(U,$J,112,7319,1)
;;=0^18.421^68.421^447.368^^^^^^^^52.632^131.579
;;^UTILITY(U,$J,112,7319,2)
;;=^^^^^^^^0^5.263^10.526^0
;;^UTILITY(U,$J,112,7319,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7320,0)
;;=ICING R-T-S (CARAMEL PECAN),PILSBURY SUPREME^BC-00593^1/12-cake^37
;;^UTILITY(U,$J,112,7320,1)
;;=.541^22.703^56.216^418.919^25.676^^^5.405^.135^^16.216^91.892^183.784^^^^^8.108^0^.027
;;^UTILITY(U,$J,112,7320,2)
;;=0^0
;;^UTILITY(U,$J,112,7320,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7321,0)
;;=ICING R-T-S (CHOC CHIP),CREAMY DELUXE^BC-00594^1/12-tub^38
;;^UTILITY(U,$J,112,7321,1)
;;=0^18.421^71.053^447.368^^^^^^^^78.947^78.947
;;^UTILITY(U,$J,112,7321,2)
;;=^^^^^^^^0^7.895^7.895^0
;;^UTILITY(U,$J,112,7321,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7322,0)
;;=ICING R-T-S (CHOC CHIP),PILSBURY SUPREME^BC-00595^1/12-cake^38
;;^UTILITY(U,$J,112,7322,1)
;;=.526^14.211^71.053^407.895^13.421^^^2.632^.211^^13.158^52.632^181.579^^^^^2.632^0^0
;;^UTILITY(U,$J,112,7322,2)
;;=0^0
;;^UTILITY(U,$J,112,7322,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7323,0)
;;=ICING R-T-S (CHOC COCONUT ALMOND),CREAMY DELUXE^BC-00596^1/12-tub^37
;;^UTILITY(U,$J,112,7323,1)
;;=2.703^21.622^56.757^432.432^^^^^^^^283.784^148.649
;;^UTILITY(U,$J,112,7323,2)
;;=^^^^^^^^0^8.108^10.811^2.703
;;^UTILITY(U,$J,112,7323,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7324,0)
;;=ICING R-T-S (CHOC),CREAMY DELUXE^BC-00597^1/12-tub^38
;;^UTILITY(U,$J,112,7324,1)
;;=0^18.421^63.158^421.053^^^^^^^^276.316^157.895
;;^UTILITY(U,$J,112,7324,2)
;;=^^^^^^^^0^5.263^10.526^0
;;^UTILITY(U,$J,112,7324,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7325,0)
;;=ICING R-T-S (CHOC FUDGE),PILSBURY^BC-00598^1/8-cake^28
;;^UTILITY(U,$J,112,7325,1)
;;=1.429^16.786^59.286^389.286^18.929^^^3.571^2.464^^42.857^278.571^225^^^^^0^0^0
;;^UTILITY(U,$J,112,7325,2)
;;=0^.357
;;^UTILITY(U,$J,112,7325,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7326,0)
;;=ICING R-T-S (CHOC FUDGE),PILSBURY SUPREME^BC-00599^1/12-cake^38
;;^UTILITY(U,$J,112,7326,1)
;;=1.316^16.842^62.368^394.737^18.421^^^2.632^1.237^^102.632^244.737^215.789^^^^^0^0^0
;;^UTILITY(U,$J,112,7326,2)
;;=0^.263
;;^UTILITY(U,$J,112,7326,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7327,0)
;;=ICING R-T-S (CHOC FUDGE FUNFETTI),PILSBURY^BC-00600^1/12-can^36
;;^UTILITY(U,$J,112,7327,1)
;;=1.389^16.667^60.278^391.667^18.333^^^2.778^2.389^^41.667^272.222^219.444^^^^^0^0^0
;;^UTILITY(U,$J,112,7327,2)
;;=0^.278
;;^UTILITY(U,$J,112,7327,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7328,0)
;;=ICING R-T-S (CHOC MINT),PILSBURY SUPREME^BC-00601^1/12-cake^38
;;^UTILITY(U,$J,112,7328,1)
;;=1.316^16.842^60^389.474^19.737^^^2.632^2.421^^42.105^281.579^218.421^^^^^0^0^0
;;^UTILITY(U,$J,112,7328,2)
;;=0^.263
;;^UTILITY(U,$J,112,7328,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7329,0)
;;=ICING R-T-S (COCONUT ALMOND,PILSBURY SUPREME^BC-00602^1/12-cake^35
FHINI0B1 ; ; 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,7315,0)
+2 ;;=ICING FROM MIX (VAN,CREAMY),GENERAL MILLS^BC-00588^1/12-pkg.^39
+3 ;;^UTILITY(U,$J,112,7315,1)
+4 ;;=0^12.821^82.051^435.897^^^^^^^^12.821^128.205
+5 ;;^UTILITY(U,$J,112,7315,2)
+6 ;;=^^^^^^^^0^2.564^7.692^2.564
+7 ;;^UTILITY(U,$J,112,7315,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,7316,0)
+10 ;;=ICING FROM MIX (VAN),DUNCAN HINES^BC-00589^1/12-pkg.^38
+11 ;;^UTILITY(U,$J,112,7316,1)
+12 ;;=.263^18.421^63.158^421.053^17.895^^^10.526^.421^^^^210.526^^^^^^^0
+13 ;;^UTILITY(U,$J,112,7316,2)
+14 ;;=.026^0^^^^^^^2.632^5.263^12.105^1.053
+15 ;;^UTILITY(U,$J,112,7316,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,7317,0)
+18 ;;=ICING FROM MIX (VAN,PINK POLKA DOT),DUNCAN HINES^BC-00590^1/12-pkg.^38
+19 ;;^UTILITY(U,$J,112,7317,1)
+20 ;;=.789^18.421^63.158^421.053^^^^^^^^^197.368
+21 ;;^UTILITY(U,$J,112,7317,2)
+22 ;;=^^^^^^^^0
+23 ;;^UTILITY(U,$J,112,7317,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,7318,0)
+26 ;;=ICING FROM MIX (WHITE FLUFFY),GENERAL MILLS^BC-00591^1/12-pkg.^26
+27 ;;^UTILITY(U,$J,112,7318,1)
+28 ;;=0^0^61.538^269.231^^^^^^^^76.923^153.846
+29 ;;^UTILITY(U,$J,112,7318,2)
+30 ;;=^^^^^^^^0
+31 ;;^UTILITY(U,$J,112,7318,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,7319,0)
+34 ;;=ICING R-T-S (BUTTER PECAN),CREAMY DELUXE^BC-00592^1/12-tub^38
+35 ;;^UTILITY(U,$J,112,7319,1)
+36 ;;=0^18.421^68.421^447.368^^^^^^^^52.632^131.579
+37 ;;^UTILITY(U,$J,112,7319,2)
+38 ;;=^^^^^^^^0^5.263^10.526^0
+39 ;;^UTILITY(U,$J,112,7319,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,7320,0)
+42 ;;=ICING R-T-S (CARAMEL PECAN),PILSBURY SUPREME^BC-00593^1/12-cake^37
+43 ;;^UTILITY(U,$J,112,7320,1)
+44 ;;=.541^22.703^56.216^418.919^25.676^^^5.405^.135^^16.216^91.892^183.784^^^^^8.108^0^.027
+45 ;;^UTILITY(U,$J,112,7320,2)
+46 ;;=0^0
+47 ;;^UTILITY(U,$J,112,7320,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,7321,0)
+50 ;;=ICING R-T-S (CHOC CHIP),CREAMY DELUXE^BC-00594^1/12-tub^38
+51 ;;^UTILITY(U,$J,112,7321,1)
+52 ;;=0^18.421^71.053^447.368^^^^^^^^78.947^78.947
+53 ;;^UTILITY(U,$J,112,7321,2)
+54 ;;=^^^^^^^^0^7.895^7.895^0
+55 ;;^UTILITY(U,$J,112,7321,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,7322,0)
+58 ;;=ICING R-T-S (CHOC CHIP),PILSBURY SUPREME^BC-00595^1/12-cake^38
+59 ;;^UTILITY(U,$J,112,7322,1)
+60 ;;=.526^14.211^71.053^407.895^13.421^^^2.632^.211^^13.158^52.632^181.579^^^^^2.632^0^0
+61 ;;^UTILITY(U,$J,112,7322,2)
+62 ;;=0^0
+63 ;;^UTILITY(U,$J,112,7322,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,7323,0)
+66 ;;=ICING R-T-S (CHOC COCONUT ALMOND),CREAMY DELUXE^BC-00596^1/12-tub^37
+67 ;;^UTILITY(U,$J,112,7323,1)
+68 ;;=2.703^21.622^56.757^432.432^^^^^^^^283.784^148.649
+69 ;;^UTILITY(U,$J,112,7323,2)
+70 ;;=^^^^^^^^0^8.108^10.811^2.703
+71 ;;^UTILITY(U,$J,112,7323,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,7324,0)
+74 ;;=ICING R-T-S (CHOC),CREAMY DELUXE^BC-00597^1/12-tub^38
+75 ;;^UTILITY(U,$J,112,7324,1)
+76 ;;=0^18.421^63.158^421.053^^^^^^^^276.316^157.895
+77 ;;^UTILITY(U,$J,112,7324,2)
+78 ;;=^^^^^^^^0^5.263^10.526^0
+79 ;;^UTILITY(U,$J,112,7324,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,7325,0)
+82 ;;=ICING R-T-S (CHOC FUDGE),PILSBURY^BC-00598^1/8-cake^28
+83 ;;^UTILITY(U,$J,112,7325,1)
+84 ;;=1.429^16.786^59.286^389.286^18.929^^^3.571^2.464^^42.857^278.571^225^^^^^0^0^0
+85 ;;^UTILITY(U,$J,112,7325,2)
+86 ;;=0^.357
+87 ;;^UTILITY(U,$J,112,7325,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,7326,0)
+90 ;;=ICING R-T-S (CHOC FUDGE),PILSBURY SUPREME^BC-00599^1/12-cake^38
+91 ;;^UTILITY(U,$J,112,7326,1)
+92 ;;=1.316^16.842^62.368^394.737^18.421^^^2.632^1.237^^102.632^244.737^215.789^^^^^0^0^0
+93 ;;^UTILITY(U,$J,112,7326,2)
+94 ;;=0^.263
+95 ;;^UTILITY(U,$J,112,7326,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,7327,0)
+98 ;;=ICING R-T-S (CHOC FUDGE FUNFETTI),PILSBURY^BC-00600^1/12-can^36
+99 ;;^UTILITY(U,$J,112,7327,1)
+100 ;;=1.389^16.667^60.278^391.667^18.333^^^2.778^2.389^^41.667^272.222^219.444^^^^^0^0^0
+101 ;;^UTILITY(U,$J,112,7327,2)
+102 ;;=0^.278
+103 ;;^UTILITY(U,$J,112,7327,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,7328,0)
+106 ;;=ICING R-T-S (CHOC MINT),PILSBURY SUPREME^BC-00601^1/12-cake^38
+107 ;;^UTILITY(U,$J,112,7328,1)
+108 ;;=1.316^16.842^60^389.474^19.737^^^2.632^2.421^^42.105^281.579^218.421^^^^^0^0^0
+109 ;;^UTILITY(U,$J,112,7328,2)
+110 ;;=0^.263
+111 ;;^UTILITY(U,$J,112,7328,20)
+112 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+113 ;;^UTILITY(U,$J,112,7329,0)
+114 ;;=ICING R-T-S (COCONUT ALMOND,PILSBURY SUPREME^BC-00602^1/12-cake^35
