FHINI095 ; ; 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,6276,1)
;;=^^.11^.35^^^^^^^11.76^0^11.17^^^^^^0
;;^UTILITY(U,$J,112,6276,20)
;;=Coca Cola Co. Prod. Lit. Jun 84. DOE: 102284 #516
;;^UTILITY(U,$J,112,6277,0)
;;=SPRITE^^ea.^245
;;^UTILITY(U,$J,112,6277,1)
;;=^^10.58^41.75^^^^^^^0^0^13.52^^^^^^0
;;^UTILITY(U,$J,112,6277,20)
;;=Coca Cola Co. Prod. Lit. Jun 84. DOE: 102284 #516
;;^UTILITY(U,$J,112,6278,0)
;;=SPRITE, WITHOUT SUGAR^^ea.^236
;;^UTILITY(U,$J,112,6278,1)
;;=^^0^.82^^^^^^^0^0^12.35^^^^^^0
;;^UTILITY(U,$J,112,6278,20)
;;=Coca Cola Co. Prod. Lit. Jun 84. DOE: 102284 #516
;;^UTILITY(U,$J,112,6279,0)
;;=TAB^^ea.^236
;;^UTILITY(U,$J,112,6279,1)
;;=^^.094^.24^^^^^^^13.52^0^8.23^^^^^^0
;;^UTILITY(U,$J,112,6279,20)
;;=Coca Cola Co. Prod. Lit. Jun 84. DOE: 102284 #516
;;^UTILITY(U,$J,112,6280,0)
;;=FRESCA^^ea.^236
;;^UTILITY(U,$J,112,6280,1)
;;=^^0^1.06^^^^^^^0^0^10.58^^^^^^3.53
;;^UTILITY(U,$J,112,6280,20)
;;=Coca Cola Co. Prod. Lit. Jun 84. DOE: 102284 #516
;;^UTILITY(U,$J,112,6293,0)
;;=HEAVENLY FRUIT DESSERT^^oz.^28.8
;;^UTILITY(U,$J,112,6293,1)
;;=2.8^7.4^33.1^197^55.7^^^49^1.2^^99^124.9^110.9^^^^^286^2.4^.14
;;^UTILITY(U,$J,112,6293,2)
;;=.07^1.74^^^^^.55^^24^3.78
;;^UTILITY(U,$J,112,6309,0)
;;=SARA LEE, CREAM CHEESE CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6309,1)
;;=8.8^15.3^24.2^310^41.6^^^132^.7^25^132^169^204^^^^^548^0^.11
;;^UTILITY(U,$J,112,6309,2)
;;=.25^.6
;;^UTILITY(U,$J,112,6310,0)
;;=SARA LEE, TRAY, FRENCH CREAM CHEESE CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6310,1)
;;=4.2^18.7^25.8^288^48.8^^^76^.4^14^71^100^162^^^^^499^0^.05
;;^UTILITY(U,$J,112,6310,2)
;;=.12^.5
;;^UTILITY(U,$J,112,6311,0)
;;=SARA LEE, CHERRY FRENCH CREAM CHEESE CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6311,1)
;;=3^13.6^30^254^50.6^^^43^.7^9^54^84^147^^^^^526^1.6^.04
;;^UTILITY(U,$J,112,6311,2)
;;=.1^.4
;;^UTILITY(U,$J,112,6312,0)
;;=SARA LEE, STRAWBERRY FRENCH CREAM CHEESE CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6312,1)
;;=3.2^14.9^29.9^265^49.5^^^45^.6^9^46^74^133^^^^^327^26.9^.04
;;^UTILITY(U,$J,112,6312,2)
;;=.1^.4
;;^UTILITY(U,$J,112,6313,0)
;;=SARA LEE, FRENCH CREAM CHEESE CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6313,1)
;;=4.1^19.2^26.2^294^47.9^^^54^.4^9^59^66^190^^^^^267^1.2^.03
;;^UTILITY(U,$J,112,6313,2)
;;=.12^.4
;;^UTILITY(U,$J,112,6314,0)
;;=SARA LEE, PRE-CUT NEW YORK STYLE CHEESE CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6314,1)
;;=5.8^19.8^26.6^307^46.8^^^67^.7^11^111^105^261^^^^^518^1.7^.07
;;^UTILITY(U,$J,112,6314,2)
;;=.28^.6
;;^UTILITY(U,$J,112,6315,0)
;;=SARA LEE, HOMESTYLE CHEESE CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6315,1)
;;=4^16.9^28.6^318^47.4^^^107^.5^18^97^145^192^^^^^449^.4^.07
;;^UTILITY(U,$J,112,6315,2)
;;=.17^.6
;;^UTILITY(U,$J,112,6316,0)
;;=SARA LEE, INDIVIDUAL APPLE COUNTRY STRUDEL^^oz.^28.8
;;^UTILITY(U,$J,112,6316,1)
;;=3.8^24.4^40.8^398^29.6^^^15^1.4^11^33^74^267^^^^^51^9.3^.17
;;^UTILITY(U,$J,112,6316,2)
;;=.15^1.5
;;^UTILITY(U,$J,112,6317,0)
;;=SARA LEE, INDIVIDUAL CHERRY COUNTRY STRUDEL^^oz.^28.8
;;^UTILITY(U,$J,112,6317,1)
;;=4^24.2^39.8^393^29.6^^^14^1.5^13^37^100^279^^^^^234^4.3^.23
;;^UTILITY(U,$J,112,6317,2)
;;=.15^.17
;;^UTILITY(U,$J,112,6318,0)
;;=SARA LEE, BLUEBERRY CRUMB CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6318,1)
;;=4^12^54^340^27.6^^^38^1.7^8^116^65^387^^^^^272^2^.14
;;^UTILITY(U,$J,112,6318,2)
;;=.18^1.2
;;^UTILITY(U,$J,112,6319,0)
;;=SARA LEE, FRENCH CRUMB CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6319,1)
;;=4.3^13.9^61.7^389^18.3^^^35^1.3^9^125^60^352^^^^^285^1.1^.17
;;^UTILITY(U,$J,112,6319,2)
;;=.22^1.2
;;^UTILITY(U,$J,112,6320,0)
;;=SARA LEE, INDIUIDUAL CINNAMON RAISIN CRUMB CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6320,1)
;;=4.4^14.3^54.7^361^24.7^^^22^1.6^12^59^114^362^^^^^113^26.9^.2
;;^UTILITY(U,$J,112,6320,2)
;;=.15^1.5
;;^UTILITY(U,$J,112,6321,0)
;;=SARA LEE, INDIVIDUAL APPLE STREUSEL CRUMB CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6321,1)
;;=4.6^15.3^54^368^24.2^^^20^1.5^9^57^80^387^^^^^120^27.6^.2
;;^UTILITY(U,$J,112,6321,2)
;;=.15^1.6
;;^UTILITY(U,$J,112,6322,0)
;;=SARA LEE, CHOCOLATE CAKE, UNICED^^oz.^28.8
;;^UTILITY(U,$J,112,6322,1)
;;=5.4^29.2^39.9^397^23.8^^^35^1.5^17^134^116^465^^^^^171^^.14
;;^UTILITY(U,$J,112,6322,2)
;;=.12^1.2
;;^UTILITY(U,$J,112,6323,0)
;;=SARA LEE, SPONGE CAKE^^oz.^28.8
;;^UTILITY(U,$J,112,6323,1)
;;=4.6^13.2^54^356^27.1^^^40^1.3^12^99^81^297^^^^^218^^.07
;;^UTILITY(U,$J,112,6323,2)
;;=.18^1.3
;;^UTILITY(U,$J,112,6324,0)
;;=SARA LEE, BROWNIES^^oz.^28.8
;;^UTILITY(U,$J,112,6324,1)
;;=4.7^19.7^61.6^440^9.7^^^23^2.7^34^171^211^248^^^^^111^4^.08
;;^UTILITY(U,$J,112,6324,2)
;;=.27^.8
FHINI095 ; ; 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,6276,1)
+2 ;;=^^.11^.35^^^^^^^11.76^0^11.17^^^^^^0
+3 ;;^UTILITY(U,$J,112,6276,20)
+4 ;;=Coca Cola Co. Prod. Lit. Jun 84. DOE: 102284 #516
+5 ;;^UTILITY(U,$J,112,6277,0)
+6 ;;=SPRITE^^ea.^245
+7 ;;^UTILITY(U,$J,112,6277,1)
+8 ;;=^^10.58^41.75^^^^^^^0^0^13.52^^^^^^0
+9 ;;^UTILITY(U,$J,112,6277,20)
+10 ;;=Coca Cola Co. Prod. Lit. Jun 84. DOE: 102284 #516
+11 ;;^UTILITY(U,$J,112,6278,0)
+12 ;;=SPRITE, WITHOUT SUGAR^^ea.^236
+13 ;;^UTILITY(U,$J,112,6278,1)
+14 ;;=^^0^.82^^^^^^^0^0^12.35^^^^^^0
+15 ;;^UTILITY(U,$J,112,6278,20)
+16 ;;=Coca Cola Co. Prod. Lit. Jun 84. DOE: 102284 #516
+17 ;;^UTILITY(U,$J,112,6279,0)
+18 ;;=TAB^^ea.^236
+19 ;;^UTILITY(U,$J,112,6279,1)
+20 ;;=^^.094^.24^^^^^^^13.52^0^8.23^^^^^^0
+21 ;;^UTILITY(U,$J,112,6279,20)
+22 ;;=Coca Cola Co. Prod. Lit. Jun 84. DOE: 102284 #516
+23 ;;^UTILITY(U,$J,112,6280,0)
+24 ;;=FRESCA^^ea.^236
+25 ;;^UTILITY(U,$J,112,6280,1)
+26 ;;=^^0^1.06^^^^^^^0^0^10.58^^^^^^3.53
+27 ;;^UTILITY(U,$J,112,6280,20)
+28 ;;=Coca Cola Co. Prod. Lit. Jun 84. DOE: 102284 #516
+29 ;;^UTILITY(U,$J,112,6293,0)
+30 ;;=HEAVENLY FRUIT DESSERT^^oz.^28.8
+31 ;;^UTILITY(U,$J,112,6293,1)
+32 ;;=2.8^7.4^33.1^197^55.7^^^49^1.2^^99^124.9^110.9^^^^^286^2.4^.14
+33 ;;^UTILITY(U,$J,112,6293,2)
+34 ;;=.07^1.74^^^^^.55^^24^3.78
+35 ;;^UTILITY(U,$J,112,6309,0)
+36 ;;=SARA LEE, CREAM CHEESE CAKE^^oz.^28.8
+37 ;;^UTILITY(U,$J,112,6309,1)
+38 ;;=8.8^15.3^24.2^310^41.6^^^132^.7^25^132^169^204^^^^^548^0^.11
+39 ;;^UTILITY(U,$J,112,6309,2)
+40 ;;=.25^.6
+41 ;;^UTILITY(U,$J,112,6310,0)
+42 ;;=SARA LEE, TRAY, FRENCH CREAM CHEESE CAKE^^oz.^28.8
+43 ;;^UTILITY(U,$J,112,6310,1)
+44 ;;=4.2^18.7^25.8^288^48.8^^^76^.4^14^71^100^162^^^^^499^0^.05
+45 ;;^UTILITY(U,$J,112,6310,2)
+46 ;;=.12^.5
+47 ;;^UTILITY(U,$J,112,6311,0)
+48 ;;=SARA LEE, CHERRY FRENCH CREAM CHEESE CAKE^^oz.^28.8
+49 ;;^UTILITY(U,$J,112,6311,1)
+50 ;;=3^13.6^30^254^50.6^^^43^.7^9^54^84^147^^^^^526^1.6^.04
+51 ;;^UTILITY(U,$J,112,6311,2)
+52 ;;=.1^.4
+53 ;;^UTILITY(U,$J,112,6312,0)
+54 ;;=SARA LEE, STRAWBERRY FRENCH CREAM CHEESE CAKE^^oz.^28.8
+55 ;;^UTILITY(U,$J,112,6312,1)
+56 ;;=3.2^14.9^29.9^265^49.5^^^45^.6^9^46^74^133^^^^^327^26.9^.04
+57 ;;^UTILITY(U,$J,112,6312,2)
+58 ;;=.1^.4
+59 ;;^UTILITY(U,$J,112,6313,0)
+60 ;;=SARA LEE, FRENCH CREAM CHEESE CAKE^^oz.^28.8
+61 ;;^UTILITY(U,$J,112,6313,1)
+62 ;;=4.1^19.2^26.2^294^47.9^^^54^.4^9^59^66^190^^^^^267^1.2^.03
+63 ;;^UTILITY(U,$J,112,6313,2)
+64 ;;=.12^.4
+65 ;;^UTILITY(U,$J,112,6314,0)
+66 ;;=SARA LEE, PRE-CUT NEW YORK STYLE CHEESE CAKE^^oz.^28.8
+67 ;;^UTILITY(U,$J,112,6314,1)
+68 ;;=5.8^19.8^26.6^307^46.8^^^67^.7^11^111^105^261^^^^^518^1.7^.07
+69 ;;^UTILITY(U,$J,112,6314,2)
+70 ;;=.28^.6
+71 ;;^UTILITY(U,$J,112,6315,0)
+72 ;;=SARA LEE, HOMESTYLE CHEESE CAKE^^oz.^28.8
+73 ;;^UTILITY(U,$J,112,6315,1)
+74 ;;=4^16.9^28.6^318^47.4^^^107^.5^18^97^145^192^^^^^449^.4^.07
+75 ;;^UTILITY(U,$J,112,6315,2)
+76 ;;=.17^.6
+77 ;;^UTILITY(U,$J,112,6316,0)
+78 ;;=SARA LEE, INDIVIDUAL APPLE COUNTRY STRUDEL^^oz.^28.8
+79 ;;^UTILITY(U,$J,112,6316,1)
+80 ;;=3.8^24.4^40.8^398^29.6^^^15^1.4^11^33^74^267^^^^^51^9.3^.17
+81 ;;^UTILITY(U,$J,112,6316,2)
+82 ;;=.15^1.5
+83 ;;^UTILITY(U,$J,112,6317,0)
+84 ;;=SARA LEE, INDIVIDUAL CHERRY COUNTRY STRUDEL^^oz.^28.8
+85 ;;^UTILITY(U,$J,112,6317,1)
+86 ;;=4^24.2^39.8^393^29.6^^^14^1.5^13^37^100^279^^^^^234^4.3^.23
+87 ;;^UTILITY(U,$J,112,6317,2)
+88 ;;=.15^.17
+89 ;;^UTILITY(U,$J,112,6318,0)
+90 ;;=SARA LEE, BLUEBERRY CRUMB CAKE^^oz.^28.8
+91 ;;^UTILITY(U,$J,112,6318,1)
+92 ;;=4^12^54^340^27.6^^^38^1.7^8^116^65^387^^^^^272^2^.14
+93 ;;^UTILITY(U,$J,112,6318,2)
+94 ;;=.18^1.2
+95 ;;^UTILITY(U,$J,112,6319,0)
+96 ;;=SARA LEE, FRENCH CRUMB CAKE^^oz.^28.8
+97 ;;^UTILITY(U,$J,112,6319,1)
+98 ;;=4.3^13.9^61.7^389^18.3^^^35^1.3^9^125^60^352^^^^^285^1.1^.17
+99 ;;^UTILITY(U,$J,112,6319,2)
+100 ;;=.22^1.2
+101 ;;^UTILITY(U,$J,112,6320,0)
+102 ;;=SARA LEE, INDIUIDUAL CINNAMON RAISIN CRUMB CAKE^^oz.^28.8
+103 ;;^UTILITY(U,$J,112,6320,1)
+104 ;;=4.4^14.3^54.7^361^24.7^^^22^1.6^12^59^114^362^^^^^113^26.9^.2
+105 ;;^UTILITY(U,$J,112,6320,2)
+106 ;;=.15^1.5
+107 ;;^UTILITY(U,$J,112,6321,0)
+108 ;;=SARA LEE, INDIVIDUAL APPLE STREUSEL CRUMB CAKE^^oz.^28.8
+109 ;;^UTILITY(U,$J,112,6321,1)
+110 ;;=4.6^15.3^54^368^24.2^^^20^1.5^9^57^80^387^^^^^120^27.6^.2
+111 ;;^UTILITY(U,$J,112,6321,2)
+112 ;;=.15^1.6
+113 ;;^UTILITY(U,$J,112,6322,0)
+114 ;;=SARA LEE, CHOCOLATE CAKE, UNICED^^oz.^28.8
+115 ;;^UTILITY(U,$J,112,6322,1)
+116 ;;=5.4^29.2^39.9^397^23.8^^^35^1.5^17^134^116^465^^^^^171^^.14
+117 ;;^UTILITY(U,$J,112,6322,2)
+118 ;;=.12^1.2
+119 ;;^UTILITY(U,$J,112,6323,0)
+120 ;;=SARA LEE, SPONGE CAKE^^oz.^28.8
+121 ;;^UTILITY(U,$J,112,6323,1)
+122 ;;=4.6^13.2^54^356^27.1^^^40^1.3^12^99^81^297^^^^^218^^.07
+123 ;;^UTILITY(U,$J,112,6323,2)
+124 ;;=.18^1.3
+125 ;;^UTILITY(U,$J,112,6324,0)
+126 ;;=SARA LEE, BROWNIES^^oz.^28.8
+127 ;;^UTILITY(U,$J,112,6324,1)
+128 ;;=4.7^19.7^61.6^440^9.7^^^23^2.7^34^171^211^248^^^^^111^4^.08
+129 ;;^UTILITY(U,$J,112,6324,2)
+130 ;;=.27^.8
