FHINI09C ; ; 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,6456,1)
;;=.4^.5^7.5^38^^^^17^.44^17^34^230^4^.29^.07^.18^^5800^8.3^.02
;;^UTILITY(U,$J,112,6456,2)
;;=.07^.63
;;^UTILITY(U,$J,112,6456,20)
;;=Larsen Co.Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
;;^UTILITY(U,$J,112,6457,0)
;;=SALAD, MOLDED FLORIDA SUNSHINE^^oz.^28.35
;;^UTILITY(U,$J,112,6457,1)
;;=2.77^.58^35.49^150.4^75.5^^^14.06^.248^10.15^10.02^187.79^79.35^.088^.073^.759^^29.87^8.69^.058
;;^UTILITY(U,$J,112,6457,2)
;;=.029^.263^.073^.073^16.4^0^.146^0^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,6457,20)
;;=Bay Pines recipe, non-std. DOE:121884 #516
;;^UTILITY(U,$J,112,6458,0)
;;=SOUP, LS CHICKEN NOODLE^^oz.^28.35
;;^UTILITY(U,$J,112,6458,1)
;;=4.39^1.94^5.85^58.25^^^^7.77^.388^^^99.5^30^^^^^606^1.17^.041
;;^UTILITY(U,$J,112,6458,2)
;;=.078^1.75
;;^UTILITY(U,$J,112,6458,20)
;;=Campbell Soup, Prod. Lit. Dec 84. (Vit data calc from %RDA) DOE:121984 #516
;;^UTILITY(U,$J,112,6459,0)
;;=SOUP, LS FRENCH ONION^^oz.^28.35
;;^UTILITY(U,$J,112,6459,1)
;;=.97^1.94^2.9^34^^^^7.77^.194^^^87.4^20^^^^^0^1.74^.041
;;^UTILITY(U,$J,112,6459,2)
;;=.047^.524
;;^UTILITY(U,$J,112,6459,20)
;;=Campbell Soup Prod. Lit. Dec 84. (Vit data calc from %RDA) DOE: 121984 #516
;;^UTILITY(U,$J,112,6460,0)
;;=SOUP, LS TOMATO W/TOMATO PIECES^^oz.^28.35
;;^UTILITY(U,$J,112,6460,1)
;;=.97^1.94^10.19^63^^^^7.77^.194^^^216^15^^^^^485^10.19^.041
;;^UTILITY(U,$J,112,6460,2)
;;=.047^.874
;;^UTILITY(U,$J,112,6460,20)
;;=Campbell Soup Prod. Lit. Dec. 84. (Vit data calc from %RDA) DOE:121984 #516
;;^UTILITY(U,$J,112,6461,0)
;;=INSTANT BREAKFAST, VANILLA^DS-033^env.^34.87
;;^UTILITY(U,$J,112,6461,1)
;;=20.09^0^68.88^373.1^^^^574^12.9^229.6^516.6^1033.2^387.5^8.61^1.44^^21.52^5022.5^79.5^.86
;;^UTILITY(U,$J,112,6461,2)
;;=.86^14.35^5.74^1.15^287^1.72^^^^^^^1508.23
;;^UTILITY(U,$J,112,6461,3)
;;=.24^1.05^1.34^2.16^1.78^.56^.2^1.06^1.1^1.5^^.63
;;^UTILITY(U,$J,112,6461,20)
;;=Clintec Nutrition Co. brouchure, 1987.
;;^UTILITY(U,$J,112,6462,0)
;;=INSTANT BREAKFAST, STRAWBERRY^DS-034^env.^35.44
;;^UTILITY(U,$J,112,6462,1)
;;=19.7^0^67.7^366.6^^^^564^12.69^225.6^507.6^1015.2^535.8^8.46^1.41^^21.15^4935^78.1^.85
;;^UTILITY(U,$J,112,6462,2)
;;=.85^14.1^5.64^1.13^282^1.69^^^^^^^1181.68
;;^UTILITY(U,$J,112,6462,3)
;;=.23^1.03^1.32^2.12^1.75^.55^.2^1.04^1.09^1.47^^.61
;;^UTILITY(U,$J,112,6462,20)
;;=Clintec Nutrition Co. Brouchure, 1987.
;;^UTILITY(U,$J,112,6463,0)
;;=INSTANT BREAKFAST, COFFEE^DS-035^env.^35.72
;;^UTILITY(U,$J,112,6463,1)
;;=19.6^0^67.2^364^^^^560^12.6^224^504^1120^364^8.4^1.4^^21^4900^76.2^.84
;;^UTILITY(U,$J,112,6463,2)
;;=.84^14^5.6^1.12^280^1.68^^^^^^^1471.47
;;^UTILITY(U,$J,112,6463,3)
;;=.23^1.03^1.24^2.11^1.74^.55^.39^1.03^1.08^1.46^^.61
;;^UTILITY(U,$J,112,6463,20)
;;=Clintec Nutrition Co. Brouchure, 1987.
;;^UTILITY(U,$J,112,6464,0)
;;=INSTANT BREAKFAST, EGGNOG^DS-031^env.^34.02
;;^UTILITY(U,$J,112,6464,1)
;;=20.58^0^70.56^382.2^^^^396.9^13.23^235.2^367.5^646.8^529.2^8.82^1.47^^22.05^5145^81.44^.88
;;^UTILITY(U,$J,112,6464,2)
;;=.53^14.7^5.88^1.18^294^1.76^^^^^^^1572.09
;;^UTILITY(U,$J,112,6464,3)
;;=.25^.96^1.3^2.06^1.69^.57^.16^1.04^1.1^1.45^^.6
;;^UTILITY(U,$J,112,6464,20)
;;=Clintec Nutrition Co. Brouchure, 1987.
;;^UTILITY(U,$J,112,6465,0)
;;=INSTANT BREAKFAST, CHOCOLATE^DS-032^env.^35.44
;;^UTILITY(U,$J,112,6465,1)
;;=19.74^0^67.68^366.6^^^^465.3^12.69^225.6^451.2^817.8^380.7^8.46^1.41^^21.15^4935^78.11^.85
;;^UTILITY(U,$J,112,6465,2)
;;=.68^14.1^5.64^1.13^282^1.69^^^^^^^1181.68
;;^UTILITY(U,$J,112,6465,3)
;;=.23^.93^1.18^1.9^1.54^.49^.2^.98^1.01^1.33^^.55
;;^UTILITY(U,$J,112,6465,20)
;;=Clintec Nutrition Co. Brouchure, 1987.
;;^UTILITY(U,$J,112,6466,0)
;;=INSTANT BREAKFAST, CHOCOLATE MALT^DS-037^env.^35.15
;;^UTILITY(U,$J,112,6466,1)
;;=19.88^2.84^65.32^369.2^^^^227.2^12.78^227.2^326.6^568^482.8^8.52^1.42^^21.3^4970^78.67^.85
;;^UTILITY(U,$J,112,6466,2)
;;=.34^14.2^5.68^1.14^284^1.7^^^^^^^1492.49
;;^UTILITY(U,$J,112,6466,3)
;;=.23^.76^1.04^1.66^1.29^.43^.18^.9^.9^1.14^^.5
;;^UTILITY(U,$J,112,6466,20)
;;=Clintec Nutrition Co. Brouchure, 1987.
;;^UTILITY(U,$J,112,6467,0)
;;=CEREAL, LS RAISIN BRAN^^oz.^28.35
;;^UTILITY(U,$J,112,6467,1)
;;=8.13^2.71^81.3^325.2^^^^0^12.2^142.3^325^514.9^27.1^10.16^.406^^^542^0^.949
;;^UTILITY(U,$J,112,6467,2)
;;=1.084^12.2^^1.49^271^2.03^^^^^^^^^^^10.84
;;^UTILITY(U,$J,112,6467,20)
;;=Kellogg package label, undated. (Vit/min data calc from %RDA) DOE: 121984 #516
;;^UTILITY(U,$J,112,6472,0)
;;=GRILLED CHEESE SANDWICH (WHEAT BREAD)^^sandwiches^90
FHINI09C ; ; 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,6456,1)
+2 ;;=.4^.5^7.5^38^^^^17^.44^17^34^230^4^.29^.07^.18^^5800^8.3^.02
+3 ;;^UTILITY(U,$J,112,6456,2)
+4 ;;=.07^.63
+5 ;;^UTILITY(U,$J,112,6456,20)
+6 ;;=Larsen Co.Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
+7 ;;^UTILITY(U,$J,112,6457,0)
+8 ;;=SALAD, MOLDED FLORIDA SUNSHINE^^oz.^28.35
+9 ;;^UTILITY(U,$J,112,6457,1)
+10 ;;=2.77^.58^35.49^150.4^75.5^^^14.06^.248^10.15^10.02^187.79^79.35^.088^.073^.759^^29.87^8.69^.058
+11 ;;^UTILITY(U,$J,112,6457,2)
+12 ;;=.029^.263^.073^.073^16.4^0^.146^0^0^0^0^0^^^^^0
+13 ;;^UTILITY(U,$J,112,6457,20)
+14 ;;=Bay Pines recipe, non-std. DOE:121884 #516
+15 ;;^UTILITY(U,$J,112,6458,0)
+16 ;;=SOUP, LS CHICKEN NOODLE^^oz.^28.35
+17 ;;^UTILITY(U,$J,112,6458,1)
+18 ;;=4.39^1.94^5.85^58.25^^^^7.77^.388^^^99.5^30^^^^^606^1.17^.041
+19 ;;^UTILITY(U,$J,112,6458,2)
+20 ;;=.078^1.75
+21 ;;^UTILITY(U,$J,112,6458,20)
+22 ;;=Campbell Soup, Prod. Lit. Dec 84. (Vit data calc from %RDA) DOE:121984 #516
+23 ;;^UTILITY(U,$J,112,6459,0)
+24 ;;=SOUP, LS FRENCH ONION^^oz.^28.35
+25 ;;^UTILITY(U,$J,112,6459,1)
+26 ;;=.97^1.94^2.9^34^^^^7.77^.194^^^87.4^20^^^^^0^1.74^.041
+27 ;;^UTILITY(U,$J,112,6459,2)
+28 ;;=.047^.524
+29 ;;^UTILITY(U,$J,112,6459,20)
+30 ;;=Campbell Soup Prod. Lit. Dec 84. (Vit data calc from %RDA) DOE: 121984 #516
+31 ;;^UTILITY(U,$J,112,6460,0)
+32 ;;=SOUP, LS TOMATO W/TOMATO PIECES^^oz.^28.35
+33 ;;^UTILITY(U,$J,112,6460,1)
+34 ;;=.97^1.94^10.19^63^^^^7.77^.194^^^216^15^^^^^485^10.19^.041
+35 ;;^UTILITY(U,$J,112,6460,2)
+36 ;;=.047^.874
+37 ;;^UTILITY(U,$J,112,6460,20)
+38 ;;=Campbell Soup Prod. Lit. Dec. 84. (Vit data calc from %RDA) DOE:121984 #516
+39 ;;^UTILITY(U,$J,112,6461,0)
+40 ;;=INSTANT BREAKFAST, VANILLA^DS-033^env.^34.87
+41 ;;^UTILITY(U,$J,112,6461,1)
+42 ;;=20.09^0^68.88^373.1^^^^574^12.9^229.6^516.6^1033.2^387.5^8.61^1.44^^21.52^5022.5^79.5^.86
+43 ;;^UTILITY(U,$J,112,6461,2)
+44 ;;=.86^14.35^5.74^1.15^287^1.72^^^^^^^1508.23
+45 ;;^UTILITY(U,$J,112,6461,3)
+46 ;;=.24^1.05^1.34^2.16^1.78^.56^.2^1.06^1.1^1.5^^.63
+47 ;;^UTILITY(U,$J,112,6461,20)
+48 ;;=Clintec Nutrition Co. brouchure, 1987.
+49 ;;^UTILITY(U,$J,112,6462,0)
+50 ;;=INSTANT BREAKFAST, STRAWBERRY^DS-034^env.^35.44
+51 ;;^UTILITY(U,$J,112,6462,1)
+52 ;;=19.7^0^67.7^366.6^^^^564^12.69^225.6^507.6^1015.2^535.8^8.46^1.41^^21.15^4935^78.1^.85
+53 ;;^UTILITY(U,$J,112,6462,2)
+54 ;;=.85^14.1^5.64^1.13^282^1.69^^^^^^^1181.68
+55 ;;^UTILITY(U,$J,112,6462,3)
+56 ;;=.23^1.03^1.32^2.12^1.75^.55^.2^1.04^1.09^1.47^^.61
+57 ;;^UTILITY(U,$J,112,6462,20)
+58 ;;=Clintec Nutrition Co. Brouchure, 1987.
+59 ;;^UTILITY(U,$J,112,6463,0)
+60 ;;=INSTANT BREAKFAST, COFFEE^DS-035^env.^35.72
+61 ;;^UTILITY(U,$J,112,6463,1)
+62 ;;=19.6^0^67.2^364^^^^560^12.6^224^504^1120^364^8.4^1.4^^21^4900^76.2^.84
+63 ;;^UTILITY(U,$J,112,6463,2)
+64 ;;=.84^14^5.6^1.12^280^1.68^^^^^^^1471.47
+65 ;;^UTILITY(U,$J,112,6463,3)
+66 ;;=.23^1.03^1.24^2.11^1.74^.55^.39^1.03^1.08^1.46^^.61
+67 ;;^UTILITY(U,$J,112,6463,20)
+68 ;;=Clintec Nutrition Co. Brouchure, 1987.
+69 ;;^UTILITY(U,$J,112,6464,0)
+70 ;;=INSTANT BREAKFAST, EGGNOG^DS-031^env.^34.02
+71 ;;^UTILITY(U,$J,112,6464,1)
+72 ;;=20.58^0^70.56^382.2^^^^396.9^13.23^235.2^367.5^646.8^529.2^8.82^1.47^^22.05^5145^81.44^.88
+73 ;;^UTILITY(U,$J,112,6464,2)
+74 ;;=.53^14.7^5.88^1.18^294^1.76^^^^^^^1572.09
+75 ;;^UTILITY(U,$J,112,6464,3)
+76 ;;=.25^.96^1.3^2.06^1.69^.57^.16^1.04^1.1^1.45^^.6
+77 ;;^UTILITY(U,$J,112,6464,20)
+78 ;;=Clintec Nutrition Co. Brouchure, 1987.
+79 ;;^UTILITY(U,$J,112,6465,0)
+80 ;;=INSTANT BREAKFAST, CHOCOLATE^DS-032^env.^35.44
+81 ;;^UTILITY(U,$J,112,6465,1)
+82 ;;=19.74^0^67.68^366.6^^^^465.3^12.69^225.6^451.2^817.8^380.7^8.46^1.41^^21.15^4935^78.11^.85
+83 ;;^UTILITY(U,$J,112,6465,2)
+84 ;;=.68^14.1^5.64^1.13^282^1.69^^^^^^^1181.68
+85 ;;^UTILITY(U,$J,112,6465,3)
+86 ;;=.23^.93^1.18^1.9^1.54^.49^.2^.98^1.01^1.33^^.55
+87 ;;^UTILITY(U,$J,112,6465,20)
+88 ;;=Clintec Nutrition Co. Brouchure, 1987.
+89 ;;^UTILITY(U,$J,112,6466,0)
+90 ;;=INSTANT BREAKFAST, CHOCOLATE MALT^DS-037^env.^35.15
+91 ;;^UTILITY(U,$J,112,6466,1)
+92 ;;=19.88^2.84^65.32^369.2^^^^227.2^12.78^227.2^326.6^568^482.8^8.52^1.42^^21.3^4970^78.67^.85
+93 ;;^UTILITY(U,$J,112,6466,2)
+94 ;;=.34^14.2^5.68^1.14^284^1.7^^^^^^^1492.49
+95 ;;^UTILITY(U,$J,112,6466,3)
+96 ;;=.23^.76^1.04^1.66^1.29^.43^.18^.9^.9^1.14^^.5
+97 ;;^UTILITY(U,$J,112,6466,20)
+98 ;;=Clintec Nutrition Co. Brouchure, 1987.
+99 ;;^UTILITY(U,$J,112,6467,0)
+100 ;;=CEREAL, LS RAISIN BRAN^^oz.^28.35
+101 ;;^UTILITY(U,$J,112,6467,1)
+102 ;;=8.13^2.71^81.3^325.2^^^^0^12.2^142.3^325^514.9^27.1^10.16^.406^^^542^0^.949
+103 ;;^UTILITY(U,$J,112,6467,2)
+104 ;;=1.084^12.2^^1.49^271^2.03^^^^^^^^^^^10.84
+105 ;;^UTILITY(U,$J,112,6467,20)
+106 ;;=Kellogg package label, undated. (Vit/min data calc from %RDA) DOE: 121984 #516
+107 ;;^UTILITY(U,$J,112,6472,0)
+108 ;;=GRILLED CHEESE SANDWICH (WHEAT BREAD)^^sandwiches^90
