FHINI09I ; ; 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,6554,20)
;;=Bay Pines Pharmacy Formulary, dated 26 Feb 85. DOE: 062085 #516
;;^UTILITY(U,$J,112,6555,0)
;;=LYONNAISE POTATOES^^oz.^28.35
;;^UTILITY(U,$J,112,6555,1)
;;=1.8^6.6^18.8^140^81.1^^^13.96^.4^19.5^41.95^319.58^385.48^.27^.15^.28^.71^416.03^7.78^.097
;;^UTILITY(U,$J,112,6555,2)
;;=.027^1.21^.478^.257^10.43^.009^.973^0^0^4.6^.708^.973^^^^^.088
;;^UTILITY(U,$J,112,6555,20)
;;=BAY PINES NONSTANDARDIZED RECIPES. DOE;JUNE 25,1985
;;^UTILITY(U,$J,112,6556,0)
;;=HAM LOAF^^oz.^28.35
;;^UTILITY(U,$J,112,6556,1)
;;=21.51^12.1^7.075^229^63.49^^^27.198^1.98^19.5^236^349.32^796.59^2.95^.113^.028^^58.29^9.92^.58
;;^UTILITY(U,$J,112,6556,2)
;;=.35^4.698^.698^.274^11^.83^1.32^.28^117.26^4.057^5.38^1.6^^^^^.094
;;^UTILITY(U,$J,112,6556,20)
;;=BAY PINES NON-STD RECIPES DOE: JUNE 29,1985
;;^UTILITY(U,$J,112,6557,0)
;;=SEAFOAM SALAD^^servings^80.19
;;^UTILITY(U,$J,112,6557,1)
;;=2.5^1.75^20.5^102^75.1^^^11.7^.16^6.97^14.3^86.8^87.1^.09^.04^.46^.35^22.46^3.75^.03
;;^UTILITY(U,$J,112,6557,2)
;;=.02^.12^.06^.05^5.97^.05^.87^0^2.12^.4^.4^.87
;;^UTILITY(U,$J,112,6557,20)
;;=BA PINES STD RECIPES 5/20/86
;;^UTILITY(U,$J,112,6558,0)
;;=LOW PRO VEGETABLE TOSS^^oz.^28.35
;;^UTILITY(U,$J,112,6558,1)
;;=1.03^1.897^17.9^92.8^63.64^^^5.25^.297^2.53^22.69^82.24^18.36^.108^.01^.046^^363.01^11.14^.021
;;^UTILITY(U,$J,112,6558,2)
;;=.015^.149^.021^.01^6.44^0^0^0^0^.359^1.33^.051^^^^^.615
;;^UTILITY(U,$J,112,6558,20)
;;=BAY PINES STD RECIPES DOE: JUNE 29,1985
;;^UTILITY(U,$J,112,6559,0)
;;=LIVER LOAF^^oz.^28.35
;;^UTILITY(U,$J,112,6559,1)
;;=16.7^9.7^22.7^250^47.8^^^67.42^4.03^3.54^225.74^238.93^597.55^.16^^^^12199.89^6.34^.18
;;^UTILITY(U,$J,112,6559,2)
;;=1.14^6.32^.15^.01^4.04^.15^.7^0^148.5^3.9^.3^.1
;;^UTILITY(U,$J,112,6559,20)
;;=Bay Pines Std Recipe. DOE:091285 #516
;;^UTILITY(U,$J,112,6560,0)
;;=CHOW MEIN, BEEF^^oz.^28.35
;;^UTILITY(U,$J,112,6560,1)
;;=12^5.98^4.5^120^76.57^^^15.1^1.69^5.29^113^202^291^.12^.054^.05^^93.51^8.1^.05
;;^UTILITY(U,$J,112,6560,2)
;;=.113^2.43^.13^.033^5.46^.004^.167^0^35.7^2.85^.04^.04^^^^^.21
;;^UTILITY(U,$J,112,6560,20)
;;=BAY PINES NON-STD RECIPES DOE: JULY 3,1985
;;^UTILITY(U,$J,112,6561,0)
;;=MEXICAN CORN^^oz.^28.35
;;^UTILITY(U,$J,112,6561,1)
;;=2.7^4.37^18^109.7^73.2^^^7.02^.37^16.23^43.2^138.1^87.82^.31^.04^.17^.48^491.6^11.4^.06
;;^UTILITY(U,$J,112,6561,2)
;;=.07^1.15^.2^.1^20^0^.71^0^0^3.1^.47^.71^^^^^1.89
;;^UTILITY(U,$J,112,6562,0)
;;=PERFECTION SALAD^^oz.^28.35
;;^UTILITY(U,$J,112,6562,1)
;;=.75^.15^4.62^20.9^94.47^^^18.07^.31^4.99^10.09^95.24^20.61^.06^.01^.06^^186.55^24.54^.01
;;^UTILITY(U,$J,112,6562,2)
;;=.01^.15^.06^.04^11.77^0^0^0^0^0^0^0^^^^^.3
;;^UTILITY(U,$J,112,6562,20)
;;=Bay Pines Non-Std Recipe. DOE: 071585 #516
;;^UTILITY(U,$J,112,6563,0)
;;=LOW PRO TOMATO PASTA^^cups^117.9
;;^UTILITY(U,$J,112,6563,1)
;;=.6^1.96^10.71^61.2^57.89^^^4.96^.3^6.79^14.57^128.38^29.01^.07^.05^.08^.2^767.6^10.78^.03
;;^UTILITY(U,$J,112,6563,2)
;;=.03^.37^.15^.03^5.78^0^.34^0^0^1.28^.17^.34^^^^^.51
;;^UTILITY(U,$J,112,6563,20)
;;=Bay Pines Std. Recipe. DOE: 071585 #516
;;^UTILITY(U,$J,112,6564,0)
;;=GREEN PEPPER SLAW^^oz.^28.35
;;^UTILITY(U,$J,112,6564,1)
;;=1.04^2.88^6.67^51.75^88.9^^^33.15^.75^13.17^23.26^217.58^93.41^.17^.05^.14^.31^288.29^62.71^.06
;;^UTILITY(U,$J,112,6564,2)
;;=.03^.34^.12^.1^35.7^.01^1.38^.23^2.07^.46^.67^1.5^^^^^.9
;;^UTILITY(U,$J,112,6564,20)
;;=Bay Pines Non-STd Recipe. DOE: 071685 #516
;;^UTILITY(U,$J,112,6565,0)
;;=LOW PRO PASTA, BUTTERED^^cups^152.7
;;^UTILITY(U,$J,112,6565,1)
;;=.2^12.1^18.7^186^^^^3^0^^2.4^3.2^6.7^^^^^496^^0
;;^UTILITY(U,$J,112,6565,2)
;;=0
;;^UTILITY(U,$J,112,6565,20)
;;=BAY PINES STD RECIPE. DOE: 8/16/85
;;^UTILITY(U,$J,112,6566,0)
;;=TRAVASORB^^ml.^1
;;^UTILITY(U,$J,112,6566,20)
;;=Travenol Lab Prod. Lit. Jun 83. DOE:8/21/85 #516
;;^UTILITY(U,$J,112,6567,0)
;;=ALBA 77 CHOCOLATE^^env.^21.2
;;^UTILITY(U,$J,112,6567,1)
;;=28.2^4.7^51.7^329^^^^752^^^752^^^^^^^282^^.23
;;^UTILITY(U,$J,112,6567,2)
;;=1.41
;;^UTILITY(U,$J,112,6567,20)
;;=Package Label, HJ Heinz Co. DOE: 091285 #516. Vit values calc from %RDA.
;;^UTILITY(U,$J,112,6568,0)
;;=SHAPELY SHAKE^^pkg.^18
;;^UTILITY(U,$J,112,6568,1)
;;=22^5.6^67.2^336^1333^^^2240^28^^2240^1528.8^585^42^^^25.2^2800^168^3.36
;;^UTILITY(U,$J,112,6568,2)
;;=4.2^42^15.4^5.6^1120^8.4^^^10
;;^UTILITY(U,$J,112,6568,20)
;;=Package Label, DOE: 091285 #516 Vit/min values calc from %RDA
;;^UTILITY(U,$J,112,6569,0)
;;=ALBA HOT COCOA MIX^^env.^19.1
;;^UTILITY(U,$J,112,6569,1)
;;=31^0^47^312^^^^1248^^^832^^^^^^^312^^.25
FHINI09I ; ; 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,6554,20)
+2 ;;=Bay Pines Pharmacy Formulary, dated 26 Feb 85. DOE: 062085 #516
+3 ;;^UTILITY(U,$J,112,6555,0)
+4 ;;=LYONNAISE POTATOES^^oz.^28.35
+5 ;;^UTILITY(U,$J,112,6555,1)
+6 ;;=1.8^6.6^18.8^140^81.1^^^13.96^.4^19.5^41.95^319.58^385.48^.27^.15^.28^.71^416.03^7.78^.097
+7 ;;^UTILITY(U,$J,112,6555,2)
+8 ;;=.027^1.21^.478^.257^10.43^.009^.973^0^0^4.6^.708^.973^^^^^.088
+9 ;;^UTILITY(U,$J,112,6555,20)
+10 ;;=BAY PINES NONSTANDARDIZED RECIPES. DOE;JUNE 25,1985
+11 ;;^UTILITY(U,$J,112,6556,0)
+12 ;;=HAM LOAF^^oz.^28.35
+13 ;;^UTILITY(U,$J,112,6556,1)
+14 ;;=21.51^12.1^7.075^229^63.49^^^27.198^1.98^19.5^236^349.32^796.59^2.95^.113^.028^^58.29^9.92^.58
+15 ;;^UTILITY(U,$J,112,6556,2)
+16 ;;=.35^4.698^.698^.274^11^.83^1.32^.28^117.26^4.057^5.38^1.6^^^^^.094
+17 ;;^UTILITY(U,$J,112,6556,20)
+18 ;;=BAY PINES NON-STD RECIPES DOE: JUNE 29,1985
+19 ;;^UTILITY(U,$J,112,6557,0)
+20 ;;=SEAFOAM SALAD^^servings^80.19
+21 ;;^UTILITY(U,$J,112,6557,1)
+22 ;;=2.5^1.75^20.5^102^75.1^^^11.7^.16^6.97^14.3^86.8^87.1^.09^.04^.46^.35^22.46^3.75^.03
+23 ;;^UTILITY(U,$J,112,6557,2)
+24 ;;=.02^.12^.06^.05^5.97^.05^.87^0^2.12^.4^.4^.87
+25 ;;^UTILITY(U,$J,112,6557,20)
+26 ;;=BA PINES STD RECIPES 5/20/86
+27 ;;^UTILITY(U,$J,112,6558,0)
+28 ;;=LOW PRO VEGETABLE TOSS^^oz.^28.35
+29 ;;^UTILITY(U,$J,112,6558,1)
+30 ;;=1.03^1.897^17.9^92.8^63.64^^^5.25^.297^2.53^22.69^82.24^18.36^.108^.01^.046^^363.01^11.14^.021
+31 ;;^UTILITY(U,$J,112,6558,2)
+32 ;;=.015^.149^.021^.01^6.44^0^0^0^0^.359^1.33^.051^^^^^.615
+33 ;;^UTILITY(U,$J,112,6558,20)
+34 ;;=BAY PINES STD RECIPES DOE: JUNE 29,1985
+35 ;;^UTILITY(U,$J,112,6559,0)
+36 ;;=LIVER LOAF^^oz.^28.35
+37 ;;^UTILITY(U,$J,112,6559,1)
+38 ;;=16.7^9.7^22.7^250^47.8^^^67.42^4.03^3.54^225.74^238.93^597.55^.16^^^^12199.89^6.34^.18
+39 ;;^UTILITY(U,$J,112,6559,2)
+40 ;;=1.14^6.32^.15^.01^4.04^.15^.7^0^148.5^3.9^.3^.1
+41 ;;^UTILITY(U,$J,112,6559,20)
+42 ;;=Bay Pines Std Recipe. DOE:091285 #516
+43 ;;^UTILITY(U,$J,112,6560,0)
+44 ;;=CHOW MEIN, BEEF^^oz.^28.35
+45 ;;^UTILITY(U,$J,112,6560,1)
+46 ;;=12^5.98^4.5^120^76.57^^^15.1^1.69^5.29^113^202^291^.12^.054^.05^^93.51^8.1^.05
+47 ;;^UTILITY(U,$J,112,6560,2)
+48 ;;=.113^2.43^.13^.033^5.46^.004^.167^0^35.7^2.85^.04^.04^^^^^.21
+49 ;;^UTILITY(U,$J,112,6560,20)
+50 ;;=BAY PINES NON-STD RECIPES DOE: JULY 3,1985
+51 ;;^UTILITY(U,$J,112,6561,0)
+52 ;;=MEXICAN CORN^^oz.^28.35
+53 ;;^UTILITY(U,$J,112,6561,1)
+54 ;;=2.7^4.37^18^109.7^73.2^^^7.02^.37^16.23^43.2^138.1^87.82^.31^.04^.17^.48^491.6^11.4^.06
+55 ;;^UTILITY(U,$J,112,6561,2)
+56 ;;=.07^1.15^.2^.1^20^0^.71^0^0^3.1^.47^.71^^^^^1.89
+57 ;;^UTILITY(U,$J,112,6562,0)
+58 ;;=PERFECTION SALAD^^oz.^28.35
+59 ;;^UTILITY(U,$J,112,6562,1)
+60 ;;=.75^.15^4.62^20.9^94.47^^^18.07^.31^4.99^10.09^95.24^20.61^.06^.01^.06^^186.55^24.54^.01
+61 ;;^UTILITY(U,$J,112,6562,2)
+62 ;;=.01^.15^.06^.04^11.77^0^0^0^0^0^0^0^^^^^.3
+63 ;;^UTILITY(U,$J,112,6562,20)
+64 ;;=Bay Pines Non-Std Recipe. DOE: 071585 #516
+65 ;;^UTILITY(U,$J,112,6563,0)
+66 ;;=LOW PRO TOMATO PASTA^^cups^117.9
+67 ;;^UTILITY(U,$J,112,6563,1)
+68 ;;=.6^1.96^10.71^61.2^57.89^^^4.96^.3^6.79^14.57^128.38^29.01^.07^.05^.08^.2^767.6^10.78^.03
+69 ;;^UTILITY(U,$J,112,6563,2)
+70 ;;=.03^.37^.15^.03^5.78^0^.34^0^0^1.28^.17^.34^^^^^.51
+71 ;;^UTILITY(U,$J,112,6563,20)
+72 ;;=Bay Pines Std. Recipe. DOE: 071585 #516
+73 ;;^UTILITY(U,$J,112,6564,0)
+74 ;;=GREEN PEPPER SLAW^^oz.^28.35
+75 ;;^UTILITY(U,$J,112,6564,1)
+76 ;;=1.04^2.88^6.67^51.75^88.9^^^33.15^.75^13.17^23.26^217.58^93.41^.17^.05^.14^.31^288.29^62.71^.06
+77 ;;^UTILITY(U,$J,112,6564,2)
+78 ;;=.03^.34^.12^.1^35.7^.01^1.38^.23^2.07^.46^.67^1.5^^^^^.9
+79 ;;^UTILITY(U,$J,112,6564,20)
+80 ;;=Bay Pines Non-STd Recipe. DOE: 071685 #516
+81 ;;^UTILITY(U,$J,112,6565,0)
+82 ;;=LOW PRO PASTA, BUTTERED^^cups^152.7
+83 ;;^UTILITY(U,$J,112,6565,1)
+84 ;;=.2^12.1^18.7^186^^^^3^0^^2.4^3.2^6.7^^^^^496^^0
+85 ;;^UTILITY(U,$J,112,6565,2)
+86 ;;=0
+87 ;;^UTILITY(U,$J,112,6565,20)
+88 ;;=BAY PINES STD RECIPE. DOE: 8/16/85
+89 ;;^UTILITY(U,$J,112,6566,0)
+90 ;;=TRAVASORB^^ml.^1
+91 ;;^UTILITY(U,$J,112,6566,20)
+92 ;;=Travenol Lab Prod. Lit. Jun 83. DOE:8/21/85 #516
+93 ;;^UTILITY(U,$J,112,6567,0)
+94 ;;=ALBA 77 CHOCOLATE^^env.^21.2
+95 ;;^UTILITY(U,$J,112,6567,1)
+96 ;;=28.2^4.7^51.7^329^^^^752^^^752^^^^^^^282^^.23
+97 ;;^UTILITY(U,$J,112,6567,2)
+98 ;;=1.41
+99 ;;^UTILITY(U,$J,112,6567,20)
+100 ;;=Package Label, HJ Heinz Co. DOE: 091285 #516. Vit values calc from %RDA.
+101 ;;^UTILITY(U,$J,112,6568,0)
+102 ;;=SHAPELY SHAKE^^pkg.^18
+103 ;;^UTILITY(U,$J,112,6568,1)
+104 ;;=22^5.6^67.2^336^1333^^^2240^28^^2240^1528.8^585^42^^^25.2^2800^168^3.36
+105 ;;^UTILITY(U,$J,112,6568,2)
+106 ;;=4.2^42^15.4^5.6^1120^8.4^^^10
+107 ;;^UTILITY(U,$J,112,6568,20)
+108 ;;=Package Label, DOE: 091285 #516 Vit/min values calc from %RDA
+109 ;;^UTILITY(U,$J,112,6569,0)
+110 ;;=ALBA HOT COCOA MIX^^env.^19.1
+111 ;;^UTILITY(U,$J,112,6569,1)
+112 ;;=31^0^47^312^^^^1248^^^832^^^^^^^312^^.25
