Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VENKI00R

VENKI00R.m

Go to the documentation of this file.
VENKI00R ; ; 16-MAR-2007
 ;;2.6;PCC+;;NOV 12, 2007
 Q:'DIFQR(19707.12)  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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,19707.12,1912,0)
 ;;=5^Use Spoon/Fork^wcds1912^^^^^^^^0^65^16.5^17^^1
 ;;^UTILITY(U,$J,19707.12,1913,0)
 ;;=5^Use Spoon/Fork^wcds1913^^^^^^^^0^70^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,1914,0)
 ;;=5^Use Spoon/Fork^wcds1914^^^^^^^^0^75^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,1915,0)
 ;;=5^Use Spoon/Fork^wcds1915^^^^^^^^0^80^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,1916,0)
 ;;=5^Use Spoon/Fork^wcds1916^^^^^^^^0^85^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,1917,0)
 ;;=5^Use Spoon/Fork^wcds1917^^^^^^^^0^90^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,1918,0)
 ;;=5^Use Spoon/Fork^wcds1918^^^^^^^^1^100^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,1919,0)
 ;;=5^Use Spoon/Fork^wcds1919^^^^^^^^1^100^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,1920,0)
 ;;=5^Use Spoon/Fork^wcds1920^^^^^^^^1^100^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,1921,0)
 ;;=5^Use Spoon/Fork^wcds1921^^^^^^^^1^100^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,1922,0)
 ;;=5^Wash & Dry Hands^wcds1922^^^^^^^^0^25^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,1923,0)
 ;;=5^Wash & Dry Hands^wcds1923^^^^^^^^0^30^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,1924,0)
 ;;=5^Wash & Dry Hands^wcds1924^^^^^^^^1^40^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,1925,0)
 ;;=5^Wash & Dry Hands^wcds1925^^^^^^^^0^50^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,1926,0)
 ;;=5^Wash & Dry Hands^wcds1926^^^^^^^^0^55^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,1927,0)
 ;;=5^Wash & Dry Hands^wcds1927^^^^^^^^0^60^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,1928,0)
 ;;=5^Wash & Dry Hands^wcds1928^^^^^^^^0^65^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,1929,0)
 ;;=5^Wash & Dry Hands^wcds1929^^^^^^^^0^70^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,1930,0)
 ;;=5^Wash & Dry Hands^wcds1930^^^^^^^^0^75^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,1931,0)
 ;;=5^Wash & Dry Hands^wcds1931^^^^^^^^0^80^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,1932,0)
 ;;=5^Wash & Dry Hands^wcds1932^^^^^^^^0^80^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,1933,0)
 ;;=5^Wash & Dry Hands^wcds1933^^^^^^^^0^80^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,1934,0)
 ;;=5^Wash & Dry Hands^wcds1934^^^^^^^^0^80^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,1935,0)
 ;;=5^Wash & Dry Hands^wcds1935^^^^^^^^1^85^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,1936,0)
 ;;=5^Wash & Dry Hands^wcds1936^^^^^^^^0^85^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,1937,0)
 ;;=5^Wash & Dry Hands^wcds1937^^^^^^^^0^85^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,1938,0)
 ;;=5^Wash & Dry Hands^wcds1938^^^^^^^^0^85^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,1939,0)
 ;;=5^Wash & Dry Hands^wcds1939^^^^^^^^0^90^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,1940,0)
 ;;=5^Wash & Dry Hands^wcds1940^^^^^^^^1^100^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,1941,0)
 ;;=5^Wave Bye-Bye^wcds1941^^^^^^^^0^30^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,1942,0)
 ;;=5^Wave Bye-Bye^wcds1942^^^^^^^^0^50^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,1943,0)
 ;;=5^Wave Bye-Bye^wcds1943^^^^^^^^0^60^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,1944,0)
 ;;=5^Wave Bye-Bye^wcds1944^^^^^^^^0^65^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,1945,0)
 ;;=5^Wave Bye-Bye^wcds1945^^^^^^^^0^70^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,1946,0)
 ;;=5^Wave Bye-Bye^wcds1946^^^^^^^^0^75^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,1947,0)
 ;;=5^Wave Bye-Bye^wcds1947^^^^^^^^0^75^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,1948,0)
 ;;=5^Wave Bye-Bye^wcds1948^^^^^^^^0^80^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,1949,0)
 ;;=5^Wave Bye-Bye^wcds1949^^^^^^^^0^80^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,1950,0)
 ;;=5^Wave Bye-Bye^wcds1950^^^^^^^^0^80^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,1951,0)
 ;;=5^Wave Bye-Bye^wcds1951^^^^^^^^0^80^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,1952,0)
 ;;=5^Wave Bye-Bye^wcds1952^^^^^^^^0^85^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,1953,0)
 ;;=5^Wave Bye-Bye^wcds1953^^^^^^^^0^85^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,1954,0)
 ;;=5^Wave Bye-Bye^wcds1954^^^^^^^^0^85^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,1955,0)
 ;;=5^Wave Bye-Bye^wcds1955^^^^^^^^0^90^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,1956,0)
 ;;=5^Wave Bye-Bye^wcds1956^^^^^^^^0^100^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,1957,0)
 ;;=5^Wave Bye-Bye^wcds1957^^^^^^^^0^100^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,1958,0)
 ;;=5^Wave Bye-Bye^wcds1958^^^^^^^^1^100^15.5^16^^1
 ;;^UTILITY(U,$J,19707.12,1959,0)
 ;;=5^Work for Toy^wcds1959^^^^^^^^0^25^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,1960,0)
 ;;=5^Work for Toy^wcds1960^^^^^^^^0^40^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,1961,0)
 ;;=5^Work for Toy^wcds1961^^^^^^^^0^65^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,1962,0)
 ;;=5^Work for Toy^wcds1962^^^^^^^^0^75^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,1963,0)
 ;;=5^Work for Toy^wcds1963^^^^^^^^0^90^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,1964,0)
 ;;=5^Work for Toy^wcds1964^^^^^^^^0^100^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,1965,0)
 ;;=8^TESTX^^123^^^^^^M^^^111^222
 ;;^UTILITY(U,$J,19707.12,1966,0)
 ;;=13^Car seat, rear facing, in rear seat, NEVER in front seat with air bag^^CHN-S^0^7^^^^^0^^0^.25
 ;;^UTILITY(U,$J,19707.12,1966,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1967,0)
 ;;=13^Crib safety (slats less than 2 3/8" apart)^^CHN-S^0^7^^^^^1^^0^.25
 ;;^UTILITY(U,$J,19707.12,1967,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1968,0)
 ;;=13^SIDS --Back to Sleep, No soft bedding or toys, Not too warm^^CHN-S^0^7^^^^^0^^0^.25
 ;;^UTILITY(U,$J,19707.12,1968,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1969,0)
 ;;=13^Water heater <120^^CHN-S^0^7^^^^^1^^0^.25
 ;;^UTILITY(U,$J,19707.12,1969,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1970,0)
 ;;=13^Never shake baby^^CHN-S^0^7^^^^^1^^0^.25
 ;;^UTILITY(U,$J,19707.12,1970,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1971,0)
 ;;=13^Keep home and car smoke-free^^CHN-S^0^7^^^^^0^^0^.25
 ;;^UTILITY(U,$J,19707.12,1971,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1972,0)
 ;;=13^Keep hot liquids away from baby^^CHN-S^0^7^^^^^1^^0^.25
 ;;^UTILITY(U,$J,19707.12,1972,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1973,0)
 ;;=13^Don't smoke or use drugs; moderate alcohol^^CHN-S^0^7^^^^^1^^0^.25
 ;;^UTILITY(U,$J,19707.12,1973,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1974,0)
 ;;=13^Signs of illness-1: T >100.4, seizure, rash, irritability, lethargy, jaundice^^CHN-S^0^7^^^^^1^^0^.25
 ;;^UTILITY(U,$J,19707.12,1974,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1975,0)
 ;;=13^Signs of illness-2: Failure to eat, vomiting, diarrhea, dehydration^^CHN-S^0^7^^^^^1^^0^.25
 ;;^UTILITY(U,$J,19707.12,1975,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1976,0)
 ;;=13^When to call clinic^^CHN-S^0^7^^^^^0^^0^.25
 ;;^UTILITY(U,$J,19707.12,1976,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1977,0)
 ;;=13^Don't leave baby alone^^CHN-S^0^7^^^^^0^^0^.25
 ;;^UTILITY(U,$J,19707.12,1977,2)
 ;;=^^CHN-S
 ;;^UTILITY(U,$J,19707.12,1978,0)
 ;;=14^Breastfeeding:  Holding, latching on, demand feeds, 6-8 wet diapers/day^^CHN-N^0^7^^^^^0^^0^.25
 ;;^UTILITY(U,$J,19707.12,1978,2)
 ;;=^^CHN-N
 ;;^UTILITY(U,$J,19707.12,1979,0)
 ;;=14^Maternal care:  rest, fluids, engorgement, nipple care, eating, support^^CHN-N^0^7^^^^^0^^0^.25
 ;;^UTILITY(U,$J,19707.12,1979,2)
 ;;=^^CHN-N
 ;;^UTILITY(U,$J,19707.12,1980,0)
 ;;=14^Bottlefeeding:  iron-fortified formula, don't warm bottles in microwave^^CHN-N^0^7^^^^^0^^0^.25
 ;;^UTILITY(U,$J,19707.12,1980,2)
 ;;=^^CHN-N
 ;;^UTILITY(U,$J,19707.12,1981,0)
 ;;=14^No bottle propping^^CHN-N^0^7^^^^^1^^0^.25
 ;;^UTILITY(U,$J,19707.12,1981,2)
 ;;=^^CHN-N
 ;;^UTILITY(U,$J,19707.12,1982,0)
 ;;=14^Feed in semi-sitting position^^CHN-N^0^7^^^^^0^^0^.25
 ;;^UTILITY(U,$J,19707.12,1982,2)
 ;;=^^CHN-N
 ;;^UTILITY(U,$J,19707.12,1983,0)
 ;;=15^Don't put baby to bed with bottle^^CHN-DC^0^7^^^^^1^^0^.25
 ;;^UTILITY(U,$J,19707.12,1983,2)
 ;;=^^CHN-DC
 ;;^UTILITY(U,$J,19707.12,1984,0)
 ;;=15^Good family oral health habits^^CHN-DC^0^7^^^^^1^^0^.25
 ;;^UTILITY(U,$J,19707.12,1984,2)
 ;;=^^CHN-DC