FHINI0AD ; ; 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,6991,0)
;;=BROWNIE,FUDGE,LITTLE DEBBIE^BC-00264^2-oz.^57
;;^UTILITY(U,$J,112,6991,1)
;;=4.737^14.035^67.719^414.035^12.632^^^0^2.965^^^^212.281^^^^^0^0^.123
;;^UTILITY(U,$J,112,6991,2)
;;=.14^.175^^^^^^^1.754^3.509^7.895^2.632
;;^UTILITY(U,$J,112,6991,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6992,0)
;;=BROWNIE,FUDGE,MICRORAVE^BC-00265^oz.^29
;;^UTILITY(U,$J,112,6992,1)
;;=6.897^20.69^75.862^517.241^^^^^^^^517.241^379.31
;;^UTILITY(U,$J,112,6992,2)
;;=^^^^^^^^0^6.897^10.345^3.448
;;^UTILITY(U,$J,112,6992,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6993,0)
;;=BROWNIE,FUDGE,PILLSBURY^BC-00266^1.2-oz.^34
;;^UTILITY(U,$J,112,6993,1)
;;=3.824^15.588^63.529^408.824^15.882^^^11.765^2.529^^58.824^176.471^329.412^^^^^0^0^.118
;;^UTILITY(U,$J,112,6993,2)
;;=.147^2.353
;;^UTILITY(U,$J,112,6993,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6994,0)
;;=CHEESECAKE,FROM MIX,JELL-O^BC-00267^1/8-of 9"^99
;;^UTILITY(U,$J,112,6994,1)
;;=4.949^13.03^36.667^279.798^43.434^^^142.424^.404^18.182^188.889^200^352.525^.293^.038^^^359.596^0^.101
;;^UTILITY(U,$J,112,6994,2)
;;=.212^.505^.222^.03^6.061^.202^^^28.283^8.081^^1.01
;;^UTILITY(U,$J,112,6994,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6995,0)
;;=CAKES,BUTTER POUND,FRZN,PEPPERIDGE FARMS^BC-00268^1.1-oz.^30
;;^UTILITY(U,$J,112,6995,1)
;;=5^23.333^51.667^436.667^^^^23.333^.667^^^56.667^386.667^^^^^0^0^.033
;;^UTILITY(U,$J,112,6995,2)
;;=.1^.667
;;^UTILITY(U,$J,112,6995,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6996,0)
;;=CAKES,POUND CHOLESTEROL FREE,FRZN,PEPPERIDGE FARMS^BC-00269^oz.^28
;;^UTILITY(U,$J,112,6996,1)
;;=5^21.071^48.214^403.571^^^^17.857^.357^^^67.857^325^^^^^221.429^0^0
;;^UTILITY(U,$J,112,6996,2)
;;=.107^.357
;;^UTILITY(U,$J,112,6996,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6997,0)
;;=SNACK CAKES,APPLE DELIGHTS,LITTLE DEBBIE^BC-00270^1.3-oz.^35
;;^UTILITY(U,$J,112,6997,1)
;;=4.286^22.286^58.857^451.429^13.429^^^0^1.914^^^^300^^^^^0^0^.257
;;^UTILITY(U,$J,112,6997,2)
;;=.257^2.286^^^^^^^0^10.286^10^2
;;^UTILITY(U,$J,112,6997,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6998,0)
;;=SNACK CAKES,APPLE SPICE,LITTLE DEBBIE^BC-00271^2.2-oz.^62
;;^UTILITY(U,$J,112,6998,1)
;;=2.742^27.742^54.516^479.032^13.871^^^0^.71^^^^319.355^^^^^0^0^.129
;;^UTILITY(U,$J,112,6998,2)
;;=.081^.968^^^^^^^0^7.742^17.903^2.097
;;^UTILITY(U,$J,112,6998,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6999,0)
;;=SNACK CAKES,BANANA TWINS,LITTLE DEBBIE^BC-00272^2.2-oz.^62
;;^UTILITY(U,$J,112,6999,1)
;;=3.065^20.323^60.645^441.935^15^^^0^.887^^^^280.645^^^^^0^0^.161
;;^UTILITY(U,$J,112,6999,2)
;;=.145^1.29^^^^^^^1.613^5.161^9.355^5.806
;;^UTILITY(U,$J,112,6999,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7000,0)
;;=SNACK CAKES,CHOC CUPCAKE,HOSTESS^BC-00273^cupcakes^50
;;^UTILITY(U,$J,112,7000,1)
;;=4^12^58^340^^^^^^^^^500^^^^^0^0
;;^UTILITY(U,$J,112,7000,2)
;;=^^^^^^^^6
;;^UTILITY(U,$J,112,7000,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7001,0)
;;=SNACK CAKES,CHOCO BLISS,HOSTESS^BC-00274^cakes^50
;;^UTILITY(U,$J,112,7001,1)
;;=4^14^68^400^^^^^^^^^340^^^^^0^0^0
;;^UTILITY(U,$J,112,7001,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,7001,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7002,0)
;;=SNACK CAKES,CHOCHO-CAKES,LITTLE DEBBIE^BC-00275^2.2-oz.^62
;;^UTILITY(U,$J,112,7002,1)
;;=2.903^20.484^59.839^435.484^15.645^^^19.355^2.145^^^^361.29^^^^^0^0^.065
;;^UTILITY(U,$J,112,7002,2)
;;=.081^.645^^^^^^^1.613^5.645^12.742^2.258
;;^UTILITY(U,$J,112,7002,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7003,0)
;;=SNACK CAKES,CHOCO DILES,HOSTESS^BC-00276^cakes^57
;;^UTILITY(U,$J,112,7003,1)
;;=61.404^19.298^61.404^421.053^^^^^^^^^491.228^^^^^0^0
;;^UTILITY(U,$J,112,7003,2)
;;=^0^^^^^^^38.596
;;^UTILITY(U,$J,112,7003,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7004,0)
;;=SNACK,CAKES,CHOC CHIP,LITTLE DEBBIE^BC-00277^2.4-oz.^68
;;^UTILITY(U,$J,112,7004,1)
;;=3.088^23.529^59.265^463.235^13.088^^^0^1.294^^^^263.235^^^^^0^0^.044
;;^UTILITY(U,$J,112,7004,2)
;;=.074^^^^^^^^1.471^6.176^15.441^2.059
;;^UTILITY(U,$J,112,7004,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0AD ; ; 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,6991,0)
+2 ;;=BROWNIE,FUDGE,LITTLE DEBBIE^BC-00264^2-oz.^57
+3 ;;^UTILITY(U,$J,112,6991,1)
+4 ;;=4.737^14.035^67.719^414.035^12.632^^^0^2.965^^^^212.281^^^^^0^0^.123
+5 ;;^UTILITY(U,$J,112,6991,2)
+6 ;;=.14^.175^^^^^^^1.754^3.509^7.895^2.632
+7 ;;^UTILITY(U,$J,112,6991,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,6992,0)
+10 ;;=BROWNIE,FUDGE,MICRORAVE^BC-00265^oz.^29
+11 ;;^UTILITY(U,$J,112,6992,1)
+12 ;;=6.897^20.69^75.862^517.241^^^^^^^^517.241^379.31
+13 ;;^UTILITY(U,$J,112,6992,2)
+14 ;;=^^^^^^^^0^6.897^10.345^3.448
+15 ;;^UTILITY(U,$J,112,6992,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,6993,0)
+18 ;;=BROWNIE,FUDGE,PILLSBURY^BC-00266^1.2-oz.^34
+19 ;;^UTILITY(U,$J,112,6993,1)
+20 ;;=3.824^15.588^63.529^408.824^15.882^^^11.765^2.529^^58.824^176.471^329.412^^^^^0^0^.118
+21 ;;^UTILITY(U,$J,112,6993,2)
+22 ;;=.147^2.353
+23 ;;^UTILITY(U,$J,112,6993,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,6994,0)
+26 ;;=CHEESECAKE,FROM MIX,JELL-O^BC-00267^1/8-of 9"^99
+27 ;;^UTILITY(U,$J,112,6994,1)
+28 ;;=4.949^13.03^36.667^279.798^43.434^^^142.424^.404^18.182^188.889^200^352.525^.293^.038^^^359.596^0^.101
+29 ;;^UTILITY(U,$J,112,6994,2)
+30 ;;=.212^.505^.222^.03^6.061^.202^^^28.283^8.081^^1.01
+31 ;;^UTILITY(U,$J,112,6994,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,6995,0)
+34 ;;=CAKES,BUTTER POUND,FRZN,PEPPERIDGE FARMS^BC-00268^1.1-oz.^30
+35 ;;^UTILITY(U,$J,112,6995,1)
+36 ;;=5^23.333^51.667^436.667^^^^23.333^.667^^^56.667^386.667^^^^^0^0^.033
+37 ;;^UTILITY(U,$J,112,6995,2)
+38 ;;=.1^.667
+39 ;;^UTILITY(U,$J,112,6995,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,6996,0)
+42 ;;=CAKES,POUND CHOLESTEROL FREE,FRZN,PEPPERIDGE FARMS^BC-00269^oz.^28
+43 ;;^UTILITY(U,$J,112,6996,1)
+44 ;;=5^21.071^48.214^403.571^^^^17.857^.357^^^67.857^325^^^^^221.429^0^0
+45 ;;^UTILITY(U,$J,112,6996,2)
+46 ;;=.107^.357
+47 ;;^UTILITY(U,$J,112,6996,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,6997,0)
+50 ;;=SNACK CAKES,APPLE DELIGHTS,LITTLE DEBBIE^BC-00270^1.3-oz.^35
+51 ;;^UTILITY(U,$J,112,6997,1)
+52 ;;=4.286^22.286^58.857^451.429^13.429^^^0^1.914^^^^300^^^^^0^0^.257
+53 ;;^UTILITY(U,$J,112,6997,2)
+54 ;;=.257^2.286^^^^^^^0^10.286^10^2
+55 ;;^UTILITY(U,$J,112,6997,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,6998,0)
+58 ;;=SNACK CAKES,APPLE SPICE,LITTLE DEBBIE^BC-00271^2.2-oz.^62
+59 ;;^UTILITY(U,$J,112,6998,1)
+60 ;;=2.742^27.742^54.516^479.032^13.871^^^0^.71^^^^319.355^^^^^0^0^.129
+61 ;;^UTILITY(U,$J,112,6998,2)
+62 ;;=.081^.968^^^^^^^0^7.742^17.903^2.097
+63 ;;^UTILITY(U,$J,112,6998,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,6999,0)
+66 ;;=SNACK CAKES,BANANA TWINS,LITTLE DEBBIE^BC-00272^2.2-oz.^62
+67 ;;^UTILITY(U,$J,112,6999,1)
+68 ;;=3.065^20.323^60.645^441.935^15^^^0^.887^^^^280.645^^^^^0^0^.161
+69 ;;^UTILITY(U,$J,112,6999,2)
+70 ;;=.145^1.29^^^^^^^1.613^5.161^9.355^5.806
+71 ;;^UTILITY(U,$J,112,6999,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,7000,0)
+74 ;;=SNACK CAKES,CHOC CUPCAKE,HOSTESS^BC-00273^cupcakes^50
+75 ;;^UTILITY(U,$J,112,7000,1)
+76 ;;=4^12^58^340^^^^^^^^^500^^^^^0^0
+77 ;;^UTILITY(U,$J,112,7000,2)
+78 ;;=^^^^^^^^6
+79 ;;^UTILITY(U,$J,112,7000,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,7001,0)
+82 ;;=SNACK CAKES,CHOCO BLISS,HOSTESS^BC-00274^cakes^50
+83 ;;^UTILITY(U,$J,112,7001,1)
+84 ;;=4^14^68^400^^^^^^^^^340^^^^^0^0^0
+85 ;;^UTILITY(U,$J,112,7001,2)
+86 ;;=^^^^^^^^0
+87 ;;^UTILITY(U,$J,112,7001,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,7002,0)
+90 ;;=SNACK CAKES,CHOCHO-CAKES,LITTLE DEBBIE^BC-00275^2.2-oz.^62
+91 ;;^UTILITY(U,$J,112,7002,1)
+92 ;;=2.903^20.484^59.839^435.484^15.645^^^19.355^2.145^^^^361.29^^^^^0^0^.065
+93 ;;^UTILITY(U,$J,112,7002,2)
+94 ;;=.081^.645^^^^^^^1.613^5.645^12.742^2.258
+95 ;;^UTILITY(U,$J,112,7002,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,7003,0)
+98 ;;=SNACK CAKES,CHOCO DILES,HOSTESS^BC-00276^cakes^57
+99 ;;^UTILITY(U,$J,112,7003,1)
+100 ;;=61.404^19.298^61.404^421.053^^^^^^^^^491.228^^^^^0^0
+101 ;;^UTILITY(U,$J,112,7003,2)
+102 ;;=^0^^^^^^^38.596
+103 ;;^UTILITY(U,$J,112,7003,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,7004,0)
+106 ;;=SNACK,CAKES,CHOC CHIP,LITTLE DEBBIE^BC-00277^2.4-oz.^68
+107 ;;^UTILITY(U,$J,112,7004,1)
+108 ;;=3.088^23.529^59.265^463.235^13.088^^^0^1.294^^^^263.235^^^^^0^0^.044
+109 ;;^UTILITY(U,$J,112,7004,2)
+110 ;;=.074^^^^^^^^1.471^6.176^15.441^2.059
+111 ;;^UTILITY(U,$J,112,7004,20)
+112 ;;=Bowes & Church's Food Values, Sixteenth Edition.
