FHINI08Z ; ; 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,6045,1)
;;=1.23^.79^5.44^34^91.5^^^7^.4^3^16^80^14^.33^.06^.14^^867^1^.02
;;^UTILITY(U,$J,112,6045,2)
;;=.02^.4^^.02^^0^.28^.05^1^.18^.23^.33
;;^UTILITY(U,$J,112,6045,20)
;;=USDA Handbook 8, Sec. 6, pg 130. Footnotes. DOE: 073184 #516
;;^UTILITY(U,$J,112,6046,0)
;;=SOUP, LOW SODIUM GREEN PEA, CND, PREP W/EQ VOL WATER^^cups^250
;;^UTILITY(U,$J,112,6046,1)
;;=3.44^1.17^10.6^66^83.5^^^11^.78^16^50^76^13^.68^.15^.26^^81^.7^.04
;;^UTILITY(U,$J,112,6046,2)
;;=.03^.5^^.02^.7^0^.14^.02^0^.56^.4^.15
;;^UTILITY(U,$J,112,6046,20)
;;=USDA Handbook 8, Sec. 6, pg 93. Footnotes. DOE: 073184 #516
;;^UTILITY(U,$J,112,6132,0)
;;=CONTROLYTE POWDER^^oz.^28.35
;;^UTILITY(U,$J,112,6132,1)
;;=.04^24^72^504^4^^^4^^^8^4^15
;;^UTILITY(U,$J,112,6132,20)
;;=Doyle (Sandoz Nutrition Co.) Prod. Lit., Feb 75. DOE:091384 #516
;;^UTILITY(U,$J,112,6133,0)
;;=HEPATIC AID II^^ml.^1
;;^UTILITY(U,$J,112,6133,1)
;;=4.4^3.6^16.9^117.6^^^^0^0^^^0^33.8^^^^^0^0^0
;;^UTILITY(U,$J,112,6133,2)
;;=0^0^^^^^^^0
;;^UTILITY(U,$J,112,6133,20)
;;=American McGaw Prod. Lit., Aug 83. DOE: 091384 #516
;;^UTILITY(U,$J,112,6134,0)
;;=HEPATIC AID PUDDING^^servings^304
;;^UTILITY(U,$J,112,6134,1)
;;=5^4.1^19.1^133.3^82.2^^^0^0^0^0^0^84.3^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,6134,2)
;;=0^0^0^0^0^0^0^^^^^^^^^^0
;;^UTILITY(U,$J,112,6134,20)
;;=American McGaw Prod. Lit., Aug 83. DOE: 091384 #516
;;^UTILITY(U,$J,112,6135,0)
;;=AMIN AID^^ml.^1
;;^UTILITY(U,$J,112,6135,1)
;;=1.94^4.6^36.6^195.6^73.5^^^0^0^0^0^0^33.8^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,6135,2)
;;=0^0^0^0^0^0^^^^^^^^^^^0
;;^UTILITY(U,$J,112,6135,20)
;;=American McGaw Prod. Lit. Dec 82. DOE: 091384 #516
;;^UTILITY(U,$J,112,6136,0)
;;=AMIN AID PUDDING^^servings^387
;;^UTILITY(U,$J,112,6136,1)
;;=1.7^4.1^34.6^175^73.6^^^0^0^0^0^0^66.6^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,6136,2)
;;=0^0^0^0^0^0^^^^^^^^^^^0
;;^UTILITY(U,$J,112,6136,20)
;;=American McGaw Prod. Lit., Dec 82. DOE: 091384 #516
;;^UTILITY(U,$J,112,6137,0)
;;=SHAKE-UPS, CHOC (HOOD)^^oz.^32.13
;;^UTILITY(U,$J,112,6137,1)
;;=3.99^3.7^15.84^112.68^^^^146.31^.267^23.43^121.99^221.36^75^.57^^^^105.12^1.85^.053
;;^UTILITY(U,$J,112,6137,2)
;;=.233^.154^.331^.053^^.437^^^10.5
;;^UTILITY(U,$J,112,6137,20)
;;=H.P. Hood Inc, Prod. Lit. Dec 1982. DOE: 091784 #516
;;^UTILITY(U,$J,112,6138,0)
;;=SHAKE-UPS, VAN (HOOD)^^oz.^31.4
;;^UTILITY(U,$J,112,6138,1)
;;=3.66^3.49^14.57^103.52^^^^144.33^.059^16.14^110.76^164.11^60^.428^^^^107.73^1.86^.048
;;^UTILITY(U,$J,112,6138,2)
;;=.229^.109^.309^.051^^.438^^^10.7
;;^UTILITY(U,$J,112,6138,20)
;;=H.P. Hood Inc, Prod. Lit. Dec 1982. DOE: 091784 #516
;;^UTILITY(U,$J,112,6139,0)
;;=SHAKE-UPS, STRAW (HOOD)^^oz.^31.95
;;^UTILITY(U,$J,112,6139,1)
;;=3.66^3.53^15.02^105.62^^^^144.5^.06^16.15^110.89^164.33^59^.43^^^^108.1^.92^.048
;;^UTILITY(U,$J,112,6139,2)
;;=.229^.109^.31^.05^^.439^^^10.8
;;^UTILITY(U,$J,112,6139,20)
;;=H.P. Hood Inc, Prod. Lit. Jun 83. DOE: 091784 #516
;;^UTILITY(U,$J,112,6140,0)
;;=COLESLAW, CC LS^^oz.^28.3
;;^UTILITY(U,$J,112,6140,1)
;;=1.176^.94^4.9^28.2^90.6^^^43.88^.94^1.647^24.47^195^19.5^0^0^0^0^255.192^36.456^0
;;^UTILITY(U,$J,112,6140,2)
;;=0^.235^0^0^0^0^.353^0^.47^.118^^^^^^^0
;;^UTILITY(U,$J,112,6140,20)
;;=BAY PINES STANDARDIZED RECIPE
;;^UTILITY(U,$J,112,6142,0)
;;=SALAD, BEAN, CAL CONT^^oz.^28.35
;;^UTILITY(U,$J,112,6142,1)
;;=1.22^.111^5.676^24.5^92.1^^^36.173^.557^0^29.828^179.86^153.04^0^0^0^0^358.78^7.791^0
;;^UTILITY(U,$J,112,6142,2)
;;=0^.223^0^0^0^0^0^0^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,6142,20)
;;=BAY PINES STANDARDIZED RECIPE
;;^UTILITY(U,$J,112,6144,0)
;;=SALAD, AUTUMN^^oz.^28.53
;;^UTILITY(U,$J,112,6144,1)
;;=.888^3.046^10.533^67.257^84.7^^^32.233^.381^4.822^21.573^164.46^72.206^0^0^.254^.381^99.997^27.41^0
;;^UTILITY(U,$J,112,6144,2)
;;=0^.254^0^0^2.03^0^1.396^.127^2.157^.381^.76^1.523^^^^^0
;;^UTILITY(U,$J,112,6144,20)
;;=BAY PINES STANDARDIZED RECIPE
;;^UTILITY(U,$J,112,6146,0)
;;=VIVONEX STD^^oz.^28.8
;;^UTILITY(U,$J,112,6146,1)
;;=2^.1^23^100^76^^^56^1^22.2^57^117.7^86^.83^.11^.16^1.7^278^3.3^.08
;;^UTILITY(U,$J,112,6146,2)
;;=.09^1.1^.56^.11^.02^.33^0^^0^0
;;^UTILITY(U,$J,112,6147,0)
;;=VIVONEX HN^^oz.^28.8
;;^UTILITY(U,$J,112,6147,1)
;;=4.3^.1^21.1^100^76^^^33^.6^13.3^33^70.2^77.1^.5^.07^.09^1^167^2^.05
;;^UTILITY(U,$J,112,6147,2)
;;=.06^.67^.33^.07^.01^.2^0^^0^0
;;^UTILITY(U,$J,112,6148,0)
;;=POLYCOSE, PWD^DS-060^4-oz.^113
;;^UTILITY(U,$J,112,6148,1)
;;=50^0^50^200^70^^^20^0^0^3^6^70^0^0^.25^0^0^0^0
;;^UTILITY(U,$J,112,6148,2)
;;=0^0^0^0^0^0^0^^0^0
FHINI08Z ; ; 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,6045,1)
+2 ;;=1.23^.79^5.44^34^91.5^^^7^.4^3^16^80^14^.33^.06^.14^^867^1^.02
+3 ;;^UTILITY(U,$J,112,6045,2)
+4 ;;=.02^.4^^.02^^0^.28^.05^1^.18^.23^.33
+5 ;;^UTILITY(U,$J,112,6045,20)
+6 ;;=USDA Handbook 8, Sec. 6, pg 130. Footnotes. DOE: 073184 #516
+7 ;;^UTILITY(U,$J,112,6046,0)
+8 ;;=SOUP, LOW SODIUM GREEN PEA, CND, PREP W/EQ VOL WATER^^cups^250
+9 ;;^UTILITY(U,$J,112,6046,1)
+10 ;;=3.44^1.17^10.6^66^83.5^^^11^.78^16^50^76^13^.68^.15^.26^^81^.7^.04
+11 ;;^UTILITY(U,$J,112,6046,2)
+12 ;;=.03^.5^^.02^.7^0^.14^.02^0^.56^.4^.15
+13 ;;^UTILITY(U,$J,112,6046,20)
+14 ;;=USDA Handbook 8, Sec. 6, pg 93. Footnotes. DOE: 073184 #516
+15 ;;^UTILITY(U,$J,112,6132,0)
+16 ;;=CONTROLYTE POWDER^^oz.^28.35
+17 ;;^UTILITY(U,$J,112,6132,1)
+18 ;;=.04^24^72^504^4^^^4^^^8^4^15
+19 ;;^UTILITY(U,$J,112,6132,20)
+20 ;;=Doyle (Sandoz Nutrition Co.) Prod. Lit., Feb 75. DOE:091384 #516
+21 ;;^UTILITY(U,$J,112,6133,0)
+22 ;;=HEPATIC AID II^^ml.^1
+23 ;;^UTILITY(U,$J,112,6133,1)
+24 ;;=4.4^3.6^16.9^117.6^^^^0^0^^^0^33.8^^^^^0^0^0
+25 ;;^UTILITY(U,$J,112,6133,2)
+26 ;;=0^0^^^^^^^0
+27 ;;^UTILITY(U,$J,112,6133,20)
+28 ;;=American McGaw Prod. Lit., Aug 83. DOE: 091384 #516
+29 ;;^UTILITY(U,$J,112,6134,0)
+30 ;;=HEPATIC AID PUDDING^^servings^304
+31 ;;^UTILITY(U,$J,112,6134,1)
+32 ;;=5^4.1^19.1^133.3^82.2^^^0^0^0^0^0^84.3^0^0^0^0^0^0^0
+33 ;;^UTILITY(U,$J,112,6134,2)
+34 ;;=0^0^0^0^0^0^0^^^^^^^^^^0
+35 ;;^UTILITY(U,$J,112,6134,20)
+36 ;;=American McGaw Prod. Lit., Aug 83. DOE: 091384 #516
+37 ;;^UTILITY(U,$J,112,6135,0)
+38 ;;=AMIN AID^^ml.^1
+39 ;;^UTILITY(U,$J,112,6135,1)
+40 ;;=1.94^4.6^36.6^195.6^73.5^^^0^0^0^0^0^33.8^0^0^0^0^0^0^0
+41 ;;^UTILITY(U,$J,112,6135,2)
+42 ;;=0^0^0^0^0^0^^^^^^^^^^^0
+43 ;;^UTILITY(U,$J,112,6135,20)
+44 ;;=American McGaw Prod. Lit. Dec 82. DOE: 091384 #516
+45 ;;^UTILITY(U,$J,112,6136,0)
+46 ;;=AMIN AID PUDDING^^servings^387
+47 ;;^UTILITY(U,$J,112,6136,1)
+48 ;;=1.7^4.1^34.6^175^73.6^^^0^0^0^0^0^66.6^0^0^0^0^0^0^0
+49 ;;^UTILITY(U,$J,112,6136,2)
+50 ;;=0^0^0^0^0^0^^^^^^^^^^^0
+51 ;;^UTILITY(U,$J,112,6136,20)
+52 ;;=American McGaw Prod. Lit., Dec 82. DOE: 091384 #516
+53 ;;^UTILITY(U,$J,112,6137,0)
+54 ;;=SHAKE-UPS, CHOC (HOOD)^^oz.^32.13
+55 ;;^UTILITY(U,$J,112,6137,1)
+56 ;;=3.99^3.7^15.84^112.68^^^^146.31^.267^23.43^121.99^221.36^75^.57^^^^105.12^1.85^.053
+57 ;;^UTILITY(U,$J,112,6137,2)
+58 ;;=.233^.154^.331^.053^^.437^^^10.5
+59 ;;^UTILITY(U,$J,112,6137,20)
+60 ;;=H.P. Hood Inc, Prod. Lit. Dec 1982. DOE: 091784 #516
+61 ;;^UTILITY(U,$J,112,6138,0)
+62 ;;=SHAKE-UPS, VAN (HOOD)^^oz.^31.4
+63 ;;^UTILITY(U,$J,112,6138,1)
+64 ;;=3.66^3.49^14.57^103.52^^^^144.33^.059^16.14^110.76^164.11^60^.428^^^^107.73^1.86^.048
+65 ;;^UTILITY(U,$J,112,6138,2)
+66 ;;=.229^.109^.309^.051^^.438^^^10.7
+67 ;;^UTILITY(U,$J,112,6138,20)
+68 ;;=H.P. Hood Inc, Prod. Lit. Dec 1982. DOE: 091784 #516
+69 ;;^UTILITY(U,$J,112,6139,0)
+70 ;;=SHAKE-UPS, STRAW (HOOD)^^oz.^31.95
+71 ;;^UTILITY(U,$J,112,6139,1)
+72 ;;=3.66^3.53^15.02^105.62^^^^144.5^.06^16.15^110.89^164.33^59^.43^^^^108.1^.92^.048
+73 ;;^UTILITY(U,$J,112,6139,2)
+74 ;;=.229^.109^.31^.05^^.439^^^10.8
+75 ;;^UTILITY(U,$J,112,6139,20)
+76 ;;=H.P. Hood Inc, Prod. Lit. Jun 83. DOE: 091784 #516
+77 ;;^UTILITY(U,$J,112,6140,0)
+78 ;;=COLESLAW, CC LS^^oz.^28.3
+79 ;;^UTILITY(U,$J,112,6140,1)
+80 ;;=1.176^.94^4.9^28.2^90.6^^^43.88^.94^1.647^24.47^195^19.5^0^0^0^0^255.192^36.456^0
+81 ;;^UTILITY(U,$J,112,6140,2)
+82 ;;=0^.235^0^0^0^0^.353^0^.47^.118^^^^^^^0
+83 ;;^UTILITY(U,$J,112,6140,20)
+84 ;;=BAY PINES STANDARDIZED RECIPE
+85 ;;^UTILITY(U,$J,112,6142,0)
+86 ;;=SALAD, BEAN, CAL CONT^^oz.^28.35
+87 ;;^UTILITY(U,$J,112,6142,1)
+88 ;;=1.22^.111^5.676^24.5^92.1^^^36.173^.557^0^29.828^179.86^153.04^0^0^0^0^358.78^7.791^0
+89 ;;^UTILITY(U,$J,112,6142,2)
+90 ;;=0^.223^0^0^0^0^0^0^0^0^0^0^^^^^0
+91 ;;^UTILITY(U,$J,112,6142,20)
+92 ;;=BAY PINES STANDARDIZED RECIPE
+93 ;;^UTILITY(U,$J,112,6144,0)
+94 ;;=SALAD, AUTUMN^^oz.^28.53
+95 ;;^UTILITY(U,$J,112,6144,1)
+96 ;;=.888^3.046^10.533^67.257^84.7^^^32.233^.381^4.822^21.573^164.46^72.206^0^0^.254^.381^99.997^27.41^0
+97 ;;^UTILITY(U,$J,112,6144,2)
+98 ;;=0^.254^0^0^2.03^0^1.396^.127^2.157^.381^.76^1.523^^^^^0
+99 ;;^UTILITY(U,$J,112,6144,20)
+100 ;;=BAY PINES STANDARDIZED RECIPE
+101 ;;^UTILITY(U,$J,112,6146,0)
+102 ;;=VIVONEX STD^^oz.^28.8
+103 ;;^UTILITY(U,$J,112,6146,1)
+104 ;;=2^.1^23^100^76^^^56^1^22.2^57^117.7^86^.83^.11^.16^1.7^278^3.3^.08
+105 ;;^UTILITY(U,$J,112,6146,2)
+106 ;;=.09^1.1^.56^.11^.02^.33^0^^0^0
+107 ;;^UTILITY(U,$J,112,6147,0)
+108 ;;=VIVONEX HN^^oz.^28.8
+109 ;;^UTILITY(U,$J,112,6147,1)
+110 ;;=4.3^.1^21.1^100^76^^^33^.6^13.3^33^70.2^77.1^.5^.07^.09^1^167^2^.05
+111 ;;^UTILITY(U,$J,112,6147,2)
+112 ;;=.06^.67^.33^.07^.01^.2^0^^0^0
+113 ;;^UTILITY(U,$J,112,6148,0)
+114 ;;=POLYCOSE, PWD^DS-060^4-oz.^113
+115 ;;^UTILITY(U,$J,112,6148,1)
+116 ;;=50^0^50^200^70^^^20^0^0^3^6^70^0^0^.25^0^0^0^0
+117 ;;^UTILITY(U,$J,112,6148,2)
+118 ;;=0^0^0^0^0^0^0^^0^0
