FHINI09J ; ; 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,6569,2)
;;=1.2
;;^UTILITY(U,$J,112,6569,20)
;;=Package Label, HJ Heinz Co. DOE: 091285 #516. Vit values calc from %RDA.
;;^UTILITY(U,$J,112,6570,0)
;;=TRAVASORB MCT DIET^^ml.^1
;;^UTILITY(U,$J,112,6570,1)
;;=4.925^3.295^12.27^100^100^^^^^^^174^35
;;^UTILITY(U,$J,112,6570,20)
;;=TRAVENOL LAB, DEERFIELD, IL. DOE:8/26/85 #516
;;^UTILITY(U,$J,112,6571,0)
;;=TRAVASORB RENAL DIET^DS-051^env.^112
;;^UTILITY(U,$J,112,6571,1)
;;=2.29^1.77^27.05^135^74^^^0^0^0^0^0^0^0^0^0^0^0^4.28^.071
;;^UTILITY(U,$J,112,6571,2)
;;=.08^.95^.26^.48^4.76^0
;;^UTILITY(U,$J,112,6571,20)
;;=Clintec Nutrition Enteral Product Guide, March 1990.
;;^UTILITY(U,$J,112,6572,0)
;;=TRAVASORB LIQUID DIET^^ml.^1
;;^UTILITY(U,$J,112,6572,1)
;;=3.5^3.5^13.64^106^94^^^^^^^120^70
;;^UTILITY(U,$J,112,6572,20)
;;=TRAVENOL LAB, INC. DEERFIELD, IL. DOE:8/26/85 #516
;;^UTILITY(U,$J,112,6573,0)
;;=TRAVASORB HEPATIC DIET^DS-052^env.^96
;;^UTILITY(U,$J,112,6573,1)
;;=2.94^1.47^21.52^110^91^^^49.1^.88^19.7^49.1^88.2^23.5^.735^.098^.123^1^73.5^4.41^.069
;;^UTILITY(U,$J,112,6573,2)
;;=.078^.88^.499^107.9^19.7^.29^^^^^^^22.07
;;^UTILITY(U,$J,112,6573,4)
;;=^^^^^^^^5.15
;;^UTILITY(U,$J,112,6573,20)
;;=Clintec Nutrition Enteral Product Guide, March 1990.
;;^UTILITY(U,$J,112,6574,0)
;;=TRAVASORB HN DIET^^ml.^1
;;^UTILITY(U,$J,112,6574,1)
;;=4.5^1.34^17.5^100^100^^^^^^^117^92
;;^UTILITY(U,$J,112,6574,20)
;;=TRAVENOL LAB, INC. DEERFIELD, IL. DOE:8/26/85 #516
;;^UTILITY(U,$J,112,6575,0)
;;=TRAVASORB STANDARD DIET^^ml.^1
;;^UTILITY(U,$J,112,6575,1)
;;=3^1.34^19^100^100^^^^^^^117^92
;;^UTILITY(U,$J,112,6575,20)
;;=Travenol Lab Prod Lit. Jun 83. DOE: 8/26/85 #516
;;^UTILITY(U,$J,112,6576,0)
;;=MCDONALD'S, BISCUIT WITH SAUSAGE^^ea.^121
;;^UTILITY(U,$J,112,6576,1)
;;=10^25.5^29.2^386^32.3^^^68^1.69^14.2^292^191^948^1.08^.06^^1.55^50^1^.46
;;^UTILITY(U,$J,112,6576,2)
;;=.18^2.8^.38^.1^10^.43^^^39.7
;;^UTILITY(U,$J,112,6576,20)
;;=MCDONALD'S PRODUCT LIT. 1984. DOE: 9/4/85 #516
;;^UTILITY(U,$J,112,6581,0)
;;=MCDONALD'S, BISCUIT WITH SAUSAGE AND EGG^^ea.^175
;;^UTILITY(U,$J,112,6581,1)
;;=11.3^22.8^20.8^334^42.9^^^68^1.96^13.6^272^178^744^1.2^.06^^1.52^240^1^.3
;;^UTILITY(U,$J,112,6581,2)
;;=.28^2.2^.85^.11^20^.76^^^163
;;^UTILITY(U,$J,112,6581,20)
;;=MCDONALD'S PRODUCT LITERATURE 1984. DOE: 9/9/85 #516
;;^UTILITY(U,$J,112,6582,0)
;;=MCDONALD'S, BISCUIT WITH BACON, EGG AND CHEESE^^ea.^145
;;^UTILITY(U,$J,112,6582,1)
;;=11.4^21.8^22.9^333^41.2^^^114^1.77^13.7^319^160^875^1.07^.05^^1.74^450^1.1^.21
;;^UTILITY(U,$J,112,6582,2)
;;=.3^1.6^.82^.07^30^.73^^^181
;;^UTILITY(U,$J,112,6582,20)
;;=MCDONALD'S PRODUCT LITERATURE. 1984. DOE: 9/9/85. #516
;;^UTILITY(U,$J,112,6583,0)
;;=MCDONALD'S, SAUSAGE MCMUFFIN^^ea.^115
;;^UTILITY(U,$J,112,6583,1)
;;=15.3^22.9^26.1^371^37.7^^^146^1.96^20.7^162^187^879^1.46^.06^^1^330^1.1^.61
;;^UTILITY(U,$J,112,6583,2)
;;=.22^3.6^.46^.13^20^.59^^^50.8
;;^UTILITY(U,$J,112,6583,20)
;;=MCDONALD'S PRODUCT LITERATURE. 1984. DOE:9/9/85 #516
;;^UTILITY(U,$J,112,6584,0)
;;=MCDONALD'S, SAUSAGE MCMUFFIN WITH EGG^^ea.^165
;;^UTILITY(U,$J,112,6584,1)
;;=13.9^19.9^19.5^313^47.4^^^119^2^18.1^174^178^632^1.43^.07^^1^400^1^.51
;;^UTILITY(U,$J,112,6584,2)
;;=.3^2.7^.85^.12^30^.83^^^173.9
;;^UTILITY(U,$J,112,6584,20)
;;=MCDONALD'S PRODUCT LITERATURE. 1984. DOE:9/9/85
;;^UTILITY(U,$J,112,6585,0)
;;=PORK SLICES SMOTHERED^^oz.^28.35
;;^UTILITY(U,$J,112,6585,1)
;;=16.5^12.27^3.29^194^65.23^^^11.67^1.44^13.9^120.6^261.32^232.98^2.91^.085^.017^.392^552.37^3.8^.307
;;^UTILITY(U,$J,112,6585,2)
;;=.227^2.45^.34^.148^4.148^.466^2.045^.284^59.32^3.69^5.28^2.386^^^^^.057
;;^UTILITY(U,$J,112,6585,20)
;;=BAY PINES STD RECIPE
;;^UTILITY(U,$J,112,6588,0)
;;=GATORADE^^oz.^28.35
;;^UTILITY(U,$J,112,6588,1)
;;=0^0^6.6^26.4^100^^^^^^^11^48.4
;;^UTILITY(U,$J,112,6589,0)
;;=BEER, NO ALCOHOL (PEARL)^^oz.^28.35
;;^UTILITY(U,$J,112,6589,1)
;;=.2^0^3.38^16.18^100
;;^UTILITY(U,$J,112,6589,20)
;;=Package Label. DOE: 110485
;;^UTILITY(U,$J,112,6590,0)
;;=QUICHE (POUR-A-QUICHE,FILLING ONLY)^^servings^123
;;^UTILITY(U,$J,112,6590,1)
;;=10.5^15.2^3.4^192^^^^235^.78^^206^125^265^^^^^566^.41^.047
;;^UTILITY(U,$J,112,6590,2)
;;=.242^.077^^^^^^^203
;;^UTILITY(U,$J,112,6590,20)
;;=Land O'Lakes Prod Lit. undated. DOE: 110485 #516
;;^UTILITY(U,$J,112,6591,0)
;;=MARGARINE BLEND, SALTED (COUNTRY MORNING)^^tsp.^4.7
;;^UTILITY(U,$J,112,6591,1)
;;=0^80.4^0^718^^^^22^.068^^20^28^807^^^^^3419^0^.006
;;^UTILITY(U,$J,112,6591,2)
;;=.028^.026^^^^^^^88^26.5^^8.4
FHINI09J ; ; 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,6569,2)
+2 ;;=1.2
+3 ;;^UTILITY(U,$J,112,6569,20)
+4 ;;=Package Label, HJ Heinz Co. DOE: 091285 #516. Vit values calc from %RDA.
+5 ;;^UTILITY(U,$J,112,6570,0)
+6 ;;=TRAVASORB MCT DIET^^ml.^1
+7 ;;^UTILITY(U,$J,112,6570,1)
+8 ;;=4.925^3.295^12.27^100^100^^^^^^^174^35
+9 ;;^UTILITY(U,$J,112,6570,20)
+10 ;;=TRAVENOL LAB, DEERFIELD, IL. DOE:8/26/85 #516
+11 ;;^UTILITY(U,$J,112,6571,0)
+12 ;;=TRAVASORB RENAL DIET^DS-051^env.^112
+13 ;;^UTILITY(U,$J,112,6571,1)
+14 ;;=2.29^1.77^27.05^135^74^^^0^0^0^0^0^0^0^0^0^0^0^4.28^.071
+15 ;;^UTILITY(U,$J,112,6571,2)
+16 ;;=.08^.95^.26^.48^4.76^0
+17 ;;^UTILITY(U,$J,112,6571,20)
+18 ;;=Clintec Nutrition Enteral Product Guide, March 1990.
+19 ;;^UTILITY(U,$J,112,6572,0)
+20 ;;=TRAVASORB LIQUID DIET^^ml.^1
+21 ;;^UTILITY(U,$J,112,6572,1)
+22 ;;=3.5^3.5^13.64^106^94^^^^^^^120^70
+23 ;;^UTILITY(U,$J,112,6572,20)
+24 ;;=TRAVENOL LAB, INC. DEERFIELD, IL. DOE:8/26/85 #516
+25 ;;^UTILITY(U,$J,112,6573,0)
+26 ;;=TRAVASORB HEPATIC DIET^DS-052^env.^96
+27 ;;^UTILITY(U,$J,112,6573,1)
+28 ;;=2.94^1.47^21.52^110^91^^^49.1^.88^19.7^49.1^88.2^23.5^.735^.098^.123^1^73.5^4.41^.069
+29 ;;^UTILITY(U,$J,112,6573,2)
+30 ;;=.078^.88^.499^107.9^19.7^.29^^^^^^^22.07
+31 ;;^UTILITY(U,$J,112,6573,4)
+32 ;;=^^^^^^^^5.15
+33 ;;^UTILITY(U,$J,112,6573,20)
+34 ;;=Clintec Nutrition Enteral Product Guide, March 1990.
+35 ;;^UTILITY(U,$J,112,6574,0)
+36 ;;=TRAVASORB HN DIET^^ml.^1
+37 ;;^UTILITY(U,$J,112,6574,1)
+38 ;;=4.5^1.34^17.5^100^100^^^^^^^117^92
+39 ;;^UTILITY(U,$J,112,6574,20)
+40 ;;=TRAVENOL LAB, INC. DEERFIELD, IL. DOE:8/26/85 #516
+41 ;;^UTILITY(U,$J,112,6575,0)
+42 ;;=TRAVASORB STANDARD DIET^^ml.^1
+43 ;;^UTILITY(U,$J,112,6575,1)
+44 ;;=3^1.34^19^100^100^^^^^^^117^92
+45 ;;^UTILITY(U,$J,112,6575,20)
+46 ;;=Travenol Lab Prod Lit. Jun 83. DOE: 8/26/85 #516
+47 ;;^UTILITY(U,$J,112,6576,0)
+48 ;;=MCDONALD'S, BISCUIT WITH SAUSAGE^^ea.^121
+49 ;;^UTILITY(U,$J,112,6576,1)
+50 ;;=10^25.5^29.2^386^32.3^^^68^1.69^14.2^292^191^948^1.08^.06^^1.55^50^1^.46
+51 ;;^UTILITY(U,$J,112,6576,2)
+52 ;;=.18^2.8^.38^.1^10^.43^^^39.7
+53 ;;^UTILITY(U,$J,112,6576,20)
+54 ;;=MCDONALD'S PRODUCT LIT. 1984. DOE: 9/4/85 #516
+55 ;;^UTILITY(U,$J,112,6581,0)
+56 ;;=MCDONALD'S, BISCUIT WITH SAUSAGE AND EGG^^ea.^175
+57 ;;^UTILITY(U,$J,112,6581,1)
+58 ;;=11.3^22.8^20.8^334^42.9^^^68^1.96^13.6^272^178^744^1.2^.06^^1.52^240^1^.3
+59 ;;^UTILITY(U,$J,112,6581,2)
+60 ;;=.28^2.2^.85^.11^20^.76^^^163
+61 ;;^UTILITY(U,$J,112,6581,20)
+62 ;;=MCDONALD'S PRODUCT LITERATURE 1984. DOE: 9/9/85 #516
+63 ;;^UTILITY(U,$J,112,6582,0)
+64 ;;=MCDONALD'S, BISCUIT WITH BACON, EGG AND CHEESE^^ea.^145
+65 ;;^UTILITY(U,$J,112,6582,1)
+66 ;;=11.4^21.8^22.9^333^41.2^^^114^1.77^13.7^319^160^875^1.07^.05^^1.74^450^1.1^.21
+67 ;;^UTILITY(U,$J,112,6582,2)
+68 ;;=.3^1.6^.82^.07^30^.73^^^181
+69 ;;^UTILITY(U,$J,112,6582,20)
+70 ;;=MCDONALD'S PRODUCT LITERATURE. 1984. DOE: 9/9/85. #516
+71 ;;^UTILITY(U,$J,112,6583,0)
+72 ;;=MCDONALD'S, SAUSAGE MCMUFFIN^^ea.^115
+73 ;;^UTILITY(U,$J,112,6583,1)
+74 ;;=15.3^22.9^26.1^371^37.7^^^146^1.96^20.7^162^187^879^1.46^.06^^1^330^1.1^.61
+75 ;;^UTILITY(U,$J,112,6583,2)
+76 ;;=.22^3.6^.46^.13^20^.59^^^50.8
+77 ;;^UTILITY(U,$J,112,6583,20)
+78 ;;=MCDONALD'S PRODUCT LITERATURE. 1984. DOE:9/9/85 #516
+79 ;;^UTILITY(U,$J,112,6584,0)
+80 ;;=MCDONALD'S, SAUSAGE MCMUFFIN WITH EGG^^ea.^165
+81 ;;^UTILITY(U,$J,112,6584,1)
+82 ;;=13.9^19.9^19.5^313^47.4^^^119^2^18.1^174^178^632^1.43^.07^^1^400^1^.51
+83 ;;^UTILITY(U,$J,112,6584,2)
+84 ;;=.3^2.7^.85^.12^30^.83^^^173.9
+85 ;;^UTILITY(U,$J,112,6584,20)
+86 ;;=MCDONALD'S PRODUCT LITERATURE. 1984. DOE:9/9/85
+87 ;;^UTILITY(U,$J,112,6585,0)
+88 ;;=PORK SLICES SMOTHERED^^oz.^28.35
+89 ;;^UTILITY(U,$J,112,6585,1)
+90 ;;=16.5^12.27^3.29^194^65.23^^^11.67^1.44^13.9^120.6^261.32^232.98^2.91^.085^.017^.392^552.37^3.8^.307
+91 ;;^UTILITY(U,$J,112,6585,2)
+92 ;;=.227^2.45^.34^.148^4.148^.466^2.045^.284^59.32^3.69^5.28^2.386^^^^^.057
+93 ;;^UTILITY(U,$J,112,6585,20)
+94 ;;=BAY PINES STD RECIPE
+95 ;;^UTILITY(U,$J,112,6588,0)
+96 ;;=GATORADE^^oz.^28.35
+97 ;;^UTILITY(U,$J,112,6588,1)
+98 ;;=0^0^6.6^26.4^100^^^^^^^11^48.4
+99 ;;^UTILITY(U,$J,112,6589,0)
+100 ;;=BEER, NO ALCOHOL (PEARL)^^oz.^28.35
+101 ;;^UTILITY(U,$J,112,6589,1)
+102 ;;=.2^0^3.38^16.18^100
+103 ;;^UTILITY(U,$J,112,6589,20)
+104 ;;=Package Label. DOE: 110485
+105 ;;^UTILITY(U,$J,112,6590,0)
+106 ;;=QUICHE (POUR-A-QUICHE,FILLING ONLY)^^servings^123
+107 ;;^UTILITY(U,$J,112,6590,1)
+108 ;;=10.5^15.2^3.4^192^^^^235^.78^^206^125^265^^^^^566^.41^.047
+109 ;;^UTILITY(U,$J,112,6590,2)
+110 ;;=.242^.077^^^^^^^203
+111 ;;^UTILITY(U,$J,112,6590,20)
+112 ;;=Land O'Lakes Prod Lit. undated. DOE: 110485 #516
+113 ;;^UTILITY(U,$J,112,6591,0)
+114 ;;=MARGARINE BLEND, SALTED (COUNTRY MORNING)^^tsp.^4.7
+115 ;;^UTILITY(U,$J,112,6591,1)
+116 ;;=0^80.4^0^718^^^^22^.068^^20^28^807^^^^^3419^0^.006
+117 ;;^UTILITY(U,$J,112,6591,2)
+118 ;;=.028^.026^^^^^^^88^26.5^^8.4
