FHINI0B2 ; ; 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,7329,1)
;;=1.714^26.571^48.857^431.429^21.143^^^20^.657^^48.571^168.571^168.571^^^^^0^0^.029
;;^UTILITY(U,$J,112,7329,2)
;;=.057^.286
;;^UTILITY(U,$J,112,7329,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7330,0)
;;=ICING R-T-S (COCONUT PECAN),CREAMY DELUXE^BC-00603^1/12-tub^38
;;^UTILITY(U,$J,112,7330,1)
;;=0^23.684^52.632^421.053^^^^^^^^210.526^210.526
;;^UTILITY(U,$J,112,7330,2)
;;=^^^^^^^^0^7.895^13.158^2.632
;;^UTILITY(U,$J,112,7330,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7331,0)
;;=ICING R-T-S (COCONUT PECAN),PILSBURY SUPREME^BC-00604^1/12-cake^35
;;^UTILITY(U,$J,112,7331,1)
;;=1.429^27.429^48^434.286^21.143^^^11.429^.514^^40^154.286^168.571^^^^^8.571^0^.057
;;^UTILITY(U,$J,112,7331,2)
;;=0^0
;;^UTILITY(U,$J,112,7331,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7332,0)
;;=ICING R-T-S (CREAM CHEESE),CREAMY DELUXE^BC-00605^1/12-tub^38
;;^UTILITY(U,$J,112,7332,1)
;;=0^15.789^71.053^421.053^^^^^^^^52.632^197.368
;;^UTILITY(U,$J,112,7332,2)
;;=^^^^^^^^0^5.263^7.895^0
;;^UTILITY(U,$J,112,7332,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7333,0)
;;=ICING R-T-S (CREAM CHEESE),PILSBURY SUPREME^BC-00606^1/12-cake^38
;;^UTILITY(U,$J,112,7333,1)
;;=0^16.316^69.211^421.053^13.684^^^2.632^.053^^2.632^26.316^307.895^^^^^0^0^0
;;^UTILITY(U,$J,112,7333,2)
;;=0^0
;;^UTILITY(U,$J,112,7333,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7334,0)
;;=ICING R-T-S (DOUBLE CHOC CHIP),CREAMY DELUXE^BC-00607^1/12-tub^38
;;^UTILITY(U,$J,112,7334,1)
;;=0^21.053^63.158^447.368^^^^^^^^263.158^157.895
;;^UTILITY(U,$J,112,7334,2)
;;=^^^^^^^^0^7.895^10.526^0
;;^UTILITY(U,$J,112,7334,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7335,0)
;;=ICING R-T-S (DOUBLE DUTCH),PILSBURY SUPREME^BC-00608^1/12-cake^38
;;^UTILITY(U,$J,112,7335,1)
;;=1.842^17.105^63.158^381.579^21.053^^^2.632^3.211^^57.895^363.158^121.053^^^^^0^0^0
;;^UTILITY(U,$J,112,7335,2)
;;=0^.263
;;^UTILITY(U,$J,112,7335,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7336,0)
;;=ICING R-T-S (LEMON),CREAMY DELUXE^BC-00609^1/12-tub^38
;;^UTILITY(U,$J,112,7336,1)
;;=0^15.789^73.684^447.368^^^^^^^^39.474^184.211
;;^UTILITY(U,$J,112,7336,2)
;;=^^^^^^^^0^5.263^7.895^0
;;^UTILITY(U,$J,112,7336,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7337,0)
;;=ICING R-T-S (LEMON),PILSBURY SUPREME^BC-00610^1/12-cake^38
;;^UTILITY(U,$J,112,7337,1)
;;=0^16.316^69.211^421.053^13.684^^^0^.053^^2.632^26.316^207.895^^^^^0^0^0
;;^UTILITY(U,$J,112,7337,2)
;;=0^0
;;^UTILITY(U,$J,112,7337,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7338,0)
;;=ICING R-T-S (MILK CHOC),CREAMY DELUXE^BC-00611^1/12-tub^38
;;^UTILITY(U,$J,112,7338,1)
;;=0^15.789^65.789^421.053^^^^^^^^144.737^144.737
;;^UTILITY(U,$J,112,7338,2)
;;=^^^^^^^^0^5.263^7.895^0
;;^UTILITY(U,$J,112,7338,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7339,0)
;;=ICING R-T-S (MILK CHOC),PILSBURY SUPREME^BC-00612^1/12-cake^38
;;^UTILITY(U,$J,112,7339,1)
;;=1.053^16.842^62.368^402.632^18.421^^^2.632^1.053^^39.474^207.895^160.526^^^^^0^0^0
;;^UTILITY(U,$J,112,7339,2)
;;=0^.263
;;^UTILITY(U,$J,112,7339,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7340,0)
;;=ICING R-T-S (MOCHA),PILSBURY SUPREME^BC-00613^1/12-cake^38
;;^UTILITY(U,$J,112,7340,1)
;;=.526^16.316^64.474^402.632^16.842^^^2.632^1.211^^23.684^168.421^157.895^^^^^0^0^0
;;^UTILITY(U,$J,112,7340,2)
;;=0^.263
;;^UTILITY(U,$J,112,7340,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7341,0)
;;=ICING R-T-S (RAINBOW CHIP),CREAMY DELUXE^BC-00614^1/12-tub^38
;;^UTILITY(U,$J,112,7341,1)
;;=0^18.421^71.053^447.368^^^^^^^^52.632^78.947
;;^UTILITY(U,$J,112,7341,2)
;;=^^^^^^^^0^7.895^7.895^0
;;^UTILITY(U,$J,112,7341,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7342,0)
;;=ICING R-T-S (ROCKY ROAD),CREAMY DELUXE^BC-00615^1/12-tub^33
;;^UTILITY(U,$J,112,7342,1)
;;=0^24.242^60.606^454.545^^^^^^^^242.424^151.515
;;^UTILITY(U,$J,112,7342,2)
;;=^^^^^^^^0^6.061^12.121^3.03
;;^UTILITY(U,$J,112,7342,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7343,0)
;;=ICING R-T-S (SOUR CREAM CHOC),CREAMY DELUXE^BC-00616^1/12-tub^38
;;^UTILITY(U,$J,112,7343,1)
;;=0^18.421^60.526^421.053^^^^^^^^250^289.474
FHINI0B2 ; ; 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,7329,1)
+2 ;;=1.714^26.571^48.857^431.429^21.143^^^20^.657^^48.571^168.571^168.571^^^^^0^0^.029
+3 ;;^UTILITY(U,$J,112,7329,2)
+4 ;;=.057^.286
+5 ;;^UTILITY(U,$J,112,7329,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,7330,0)
+8 ;;=ICING R-T-S (COCONUT PECAN),CREAMY DELUXE^BC-00603^1/12-tub^38
+9 ;;^UTILITY(U,$J,112,7330,1)
+10 ;;=0^23.684^52.632^421.053^^^^^^^^210.526^210.526
+11 ;;^UTILITY(U,$J,112,7330,2)
+12 ;;=^^^^^^^^0^7.895^13.158^2.632
+13 ;;^UTILITY(U,$J,112,7330,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,7331,0)
+16 ;;=ICING R-T-S (COCONUT PECAN),PILSBURY SUPREME^BC-00604^1/12-cake^35
+17 ;;^UTILITY(U,$J,112,7331,1)
+18 ;;=1.429^27.429^48^434.286^21.143^^^11.429^.514^^40^154.286^168.571^^^^^8.571^0^.057
+19 ;;^UTILITY(U,$J,112,7331,2)
+20 ;;=0^0
+21 ;;^UTILITY(U,$J,112,7331,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,7332,0)
+24 ;;=ICING R-T-S (CREAM CHEESE),CREAMY DELUXE^BC-00605^1/12-tub^38
+25 ;;^UTILITY(U,$J,112,7332,1)
+26 ;;=0^15.789^71.053^421.053^^^^^^^^52.632^197.368
+27 ;;^UTILITY(U,$J,112,7332,2)
+28 ;;=^^^^^^^^0^5.263^7.895^0
+29 ;;^UTILITY(U,$J,112,7332,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,7333,0)
+32 ;;=ICING R-T-S (CREAM CHEESE),PILSBURY SUPREME^BC-00606^1/12-cake^38
+33 ;;^UTILITY(U,$J,112,7333,1)
+34 ;;=0^16.316^69.211^421.053^13.684^^^2.632^.053^^2.632^26.316^307.895^^^^^0^0^0
+35 ;;^UTILITY(U,$J,112,7333,2)
+36 ;;=0^0
+37 ;;^UTILITY(U,$J,112,7333,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,7334,0)
+40 ;;=ICING R-T-S (DOUBLE CHOC CHIP),CREAMY DELUXE^BC-00607^1/12-tub^38
+41 ;;^UTILITY(U,$J,112,7334,1)
+42 ;;=0^21.053^63.158^447.368^^^^^^^^263.158^157.895
+43 ;;^UTILITY(U,$J,112,7334,2)
+44 ;;=^^^^^^^^0^7.895^10.526^0
+45 ;;^UTILITY(U,$J,112,7334,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,7335,0)
+48 ;;=ICING R-T-S (DOUBLE DUTCH),PILSBURY SUPREME^BC-00608^1/12-cake^38
+49 ;;^UTILITY(U,$J,112,7335,1)
+50 ;;=1.842^17.105^63.158^381.579^21.053^^^2.632^3.211^^57.895^363.158^121.053^^^^^0^0^0
+51 ;;^UTILITY(U,$J,112,7335,2)
+52 ;;=0^.263
+53 ;;^UTILITY(U,$J,112,7335,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,7336,0)
+56 ;;=ICING R-T-S (LEMON),CREAMY DELUXE^BC-00609^1/12-tub^38
+57 ;;^UTILITY(U,$J,112,7336,1)
+58 ;;=0^15.789^73.684^447.368^^^^^^^^39.474^184.211
+59 ;;^UTILITY(U,$J,112,7336,2)
+60 ;;=^^^^^^^^0^5.263^7.895^0
+61 ;;^UTILITY(U,$J,112,7336,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,7337,0)
+64 ;;=ICING R-T-S (LEMON),PILSBURY SUPREME^BC-00610^1/12-cake^38
+65 ;;^UTILITY(U,$J,112,7337,1)
+66 ;;=0^16.316^69.211^421.053^13.684^^^0^.053^^2.632^26.316^207.895^^^^^0^0^0
+67 ;;^UTILITY(U,$J,112,7337,2)
+68 ;;=0^0
+69 ;;^UTILITY(U,$J,112,7337,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,7338,0)
+72 ;;=ICING R-T-S (MILK CHOC),CREAMY DELUXE^BC-00611^1/12-tub^38
+73 ;;^UTILITY(U,$J,112,7338,1)
+74 ;;=0^15.789^65.789^421.053^^^^^^^^144.737^144.737
+75 ;;^UTILITY(U,$J,112,7338,2)
+76 ;;=^^^^^^^^0^5.263^7.895^0
+77 ;;^UTILITY(U,$J,112,7338,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,7339,0)
+80 ;;=ICING R-T-S (MILK CHOC),PILSBURY SUPREME^BC-00612^1/12-cake^38
+81 ;;^UTILITY(U,$J,112,7339,1)
+82 ;;=1.053^16.842^62.368^402.632^18.421^^^2.632^1.053^^39.474^207.895^160.526^^^^^0^0^0
+83 ;;^UTILITY(U,$J,112,7339,2)
+84 ;;=0^.263
+85 ;;^UTILITY(U,$J,112,7339,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,7340,0)
+88 ;;=ICING R-T-S (MOCHA),PILSBURY SUPREME^BC-00613^1/12-cake^38
+89 ;;^UTILITY(U,$J,112,7340,1)
+90 ;;=.526^16.316^64.474^402.632^16.842^^^2.632^1.211^^23.684^168.421^157.895^^^^^0^0^0
+91 ;;^UTILITY(U,$J,112,7340,2)
+92 ;;=0^.263
+93 ;;^UTILITY(U,$J,112,7340,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,7341,0)
+96 ;;=ICING R-T-S (RAINBOW CHIP),CREAMY DELUXE^BC-00614^1/12-tub^38
+97 ;;^UTILITY(U,$J,112,7341,1)
+98 ;;=0^18.421^71.053^447.368^^^^^^^^52.632^78.947
+99 ;;^UTILITY(U,$J,112,7341,2)
+100 ;;=^^^^^^^^0^7.895^7.895^0
+101 ;;^UTILITY(U,$J,112,7341,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,7342,0)
+104 ;;=ICING R-T-S (ROCKY ROAD),CREAMY DELUXE^BC-00615^1/12-tub^33
+105 ;;^UTILITY(U,$J,112,7342,1)
+106 ;;=0^24.242^60.606^454.545^^^^^^^^242.424^151.515
+107 ;;^UTILITY(U,$J,112,7342,2)
+108 ;;=^^^^^^^^0^6.061^12.121^3.03
+109 ;;^UTILITY(U,$J,112,7342,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+111 ;;^UTILITY(U,$J,112,7343,0)
+112 ;;=ICING R-T-S (SOUR CREAM CHOC),CREAMY DELUXE^BC-00616^1/12-tub^38
+113 ;;^UTILITY(U,$J,112,7343,1)
+114 ;;=0^18.421^60.526^421.053^^^^^^^^250^289.474
