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

BGP8ZS7.m

Go to the documentation of this file.
BGP8ZS7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+1
 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"68382-0098-10 ")
 ;;2023
 ;;21,"68382-0098-16 ")
 ;;2024
 ;;21,"68382-0099-01 ")
 ;;2025
 ;;21,"68382-0099-05 ")
 ;;2026
 ;;21,"68382-0099-06 ")
 ;;2027
 ;;21,"68382-0099-10 ")
 ;;2028
 ;;21,"68382-0099-16 ")
 ;;2029
 ;;21,"68387-0520-12 ")
 ;;2030
 ;;21,"68387-0520-30 ")
 ;;2031
 ;;21,"68387-0520-60 ")
 ;;2032
 ;;21,"68387-0520-90 ")
 ;;2033
 ;;21,"68405-0053-26 ")
 ;;2034
 ;;21,"68645-0230-59 ")
 ;;2035
 ;;21,"68788-0748-03 ")
 ;;2036
 ;;21,"68788-0748-06 ")
 ;;2037
 ;;21,"68788-0748-09 ")
 ;;2038
 ;;21,"68788-2212-03 ")
 ;;2039
 ;;21,"68788-2212-06 ")
 ;;2040
 ;;21,"68788-2212-09 ")
 ;;2041
 ;;21,"68788-2213-03 ")
 ;;2042
 ;;21,"68788-2213-06 ")
 ;;2043
 ;;21,"68788-6320-03 ")
 ;;2044
 ;;21,"68788-6320-06 ")
 ;;2045
 ;;21,"68788-6320-08 ")
 ;;2046
 ;;21,"68788-6320-09 ")
 ;;2047
 ;;21,"68788-6432-01 ")
 ;;2048
 ;;21,"68788-6432-03 ")
 ;;2049
 ;;21,"68788-6432-06 ")
 ;;2050
 ;;21,"68788-6432-08 ")
 ;;2051
 ;;21,"68788-6432-09 ")
 ;;2052
 ;;21,"68788-6825-03 ")
 ;;2053
 ;;21,"68788-6825-06 ")
 ;;2054
 ;;21,"68788-6825-08 ")
 ;;2055
 ;;21,"68788-6825-09 ")
 ;;2056
 ;;21,"68788-9013-03 ")
 ;;2057
 ;;21,"68788-9013-06 ")
 ;;2058
 ;;21,"68788-9013-09 ")
 ;;2059
 ;;21,"68788-9830-01 ")
 ;;2060
 ;;21,"68788-9830-03 ")
 ;;2061
 ;;21,"68788-9830-06 ")
 ;;2062
 ;;21,"68788-9830-09 ")
 ;;2063
 ;;21,"68788-9879-03 ")
 ;;2064
 ;;21,"68788-9879-06 ")
 ;;2065
 ;;21,"68968-2010-01 ")
 ;;2066
 ;;21,"68968-2020-01 ")
 ;;2067
 ;;21,"68968-2030-01 ")
 ;;2068
 ;;21,"68968-2040-01 ")
 ;;2069
 ;;21,"68968-9075-03 ")
 ;;2070
 ;;21,"69158-0000-00 ")
 ;;2071
 ;;21,"69158-0001-00 ")
 ;;2072
 ;;21,"69158-0002-00 ")
 ;;2073
 ;;21,"69238-1053-01 ")
 ;;2074
 ;;21,"69238-1053-03 ")
 ;;2075
 ;;21,"69238-1055-01 ")
 ;;2076
 ;;21,"69238-1057-01 ")
 ;;2077
 ;;21,"69238-1059-01 ")
 ;;2078
 ;;21,"69238-1061-01 ")
 ;;2079
 ;;21,"69238-1063-02 ")
 ;;2080
 ;;21,"69315-0133-01 ")
 ;;2081
 ;;21,"69315-0133-10 ")
 ;;2082
 ;;21,"69315-0134-01 ")
 ;;2083
 ;;21,"69315-0134-10 ")
 ;;2084
 ;;21,"69315-0135-01 ")
 ;;2085
 ;;21,"69315-0135-10 ")
 ;;2086
 ;;21,"69499-0302-30 ")
 ;;2087
 ;;21,"69499-0302-40 ")
 ;;2088
 ;;21,"69874-0422-10 ")
 ;;2089
 ;;21,"69874-0500-10 ")
 ;;2090
 ;;21,"70362-0721-01 ")
 ;;2091
 ;;21,"70362-0722-01 ")
 ;;2092
 ;;21,"75826-0112-10 ")
 ;;2093
 ;;21,"75826-0118-10 ")
 ;;2094
 ;;21,"76478-0501-20 ")
 ;;2095
 ;;21,"76478-0501-50 ")
 ;;2096
 ;;9002226,1799,.01)
 ;;BGP HEDIS CENTRAL NERVOUS NDC
 ;;9002226,1799,.02)
 ;;@
 ;;9002226,1799,.04)
 ;;n
 ;;9002226,1799,.06)
 ;;@
 ;;9002226,1799,.08)
 ;;@
 ;;9002226,1799,.09)
 ;;3180122
 ;;9002226,1799,.11)
 ;;@
 ;;9002226,1799,.12)
 ;;@
 ;;9002226,1799,.13)
 ;;1
 ;;9002226,1799,.14)
 ;;@
 ;;9002226,1799,.15)
 ;;50.67
 ;;9002226,1799,.16)
 ;;@
 ;;9002226,1799,.17)
 ;;@
 ;;9002226,1799,.22)
 ;;1
 ;;9002226,1799,3101)
 ;;@
 ;;9002226.02101,"1799,00037-0113-60 ",.01)
 ;;00037-0113-60
 ;;9002226.02101,"1799,00037-0113-60 ",.02)
 ;;00037-0113-60
 ;;9002226.02101,"1799,00054-0210-25 ",.01)
 ;;00054-0210-25
 ;;9002226.02101,"1799,00054-0210-25 ",.02)
 ;;00054-0210-25
 ;;9002226.02101,"1799,00054-0211-25 ",.01)
 ;;00054-0211-25
 ;;9002226.02101,"1799,00054-0211-25 ",.02)
 ;;00054-0211-25
 ;;9002226.02101,"1799,00054-0273-13 ",.01)
 ;;00054-0273-13
 ;;9002226.02101,"1799,00054-0273-13 ",.02)
 ;;00054-0273-13
 ;;9002226.02101,"1799,00054-0274-13 ",.01)
 ;;00054-0274-13
 ;;9002226.02101,"1799,00054-0274-13 ",.02)
 ;;00054-0274-13
 ;;9002226.02101,"1799,00054-0275-13 ",.01)
 ;;00054-0275-13
 ;;9002226.02101,"1799,00054-0275-13 ",.02)
 ;;00054-0275-13
 ;;9002226.02101,"1799,00054-0276-13 ",.01)
 ;;00054-0276-13
 ;;9002226.02101,"1799,00054-0276-13 ",.02)
 ;;00054-0276-13
 ;;9002226.02101,"1799,00068-0007-01 ",.01)
 ;;00068-0007-01
 ;;9002226.02101,"1799,00068-0007-01 ",.02)
 ;;00068-0007-01
 ;;9002226.02101,"1799,00068-0011-01 ",.01)
 ;;00068-0011-01
 ;;9002226.02101,"1799,00068-0011-01 ",.02)
 ;;00068-0011-01
 ;;9002226.02101,"1799,00068-0015-01 ",.01)
 ;;00068-0015-01
 ;;9002226.02101,"1799,00068-0015-01 ",.02)
 ;;00068-0015-01
 ;;9002226.02101,"1799,00068-0019-01 ",.01)
 ;;00068-0019-01
 ;;9002226.02101,"1799,00068-0019-01 ",.02)
 ;;00068-0019-01
 ;;9002226.02101,"1799,00068-0020-01 ",.01)
 ;;00068-0020-01
 ;;9002226.02101,"1799,00068-0020-01 ",.02)
 ;;00068-0020-01
 ;;9002226.02101,"1799,00068-0021-50 ",.01)
 ;;00068-0021-50
 ;;9002226.02101,"1799,00068-0021-50 ",.02)
 ;;00068-0021-50
 ;;9002226.02101,"1799,00093-0810-01 ",.01)
 ;;00093-0810-01
 ;;9002226.02101,"1799,00093-0810-01 ",.02)
 ;;00093-0810-01
 ;;9002226.02101,"1799,00093-0810-05 ",.01)
 ;;00093-0810-05
 ;;9002226.02101,"1799,00093-0810-05 ",.02)
 ;;00093-0810-05
 ;;9002226.02101,"1799,00093-0811-01 ",.01)
 ;;00093-0811-01
 ;;9002226.02101,"1799,00093-0811-01 ",.02)
 ;;00093-0811-01
 ;;9002226.02101,"1799,00093-0811-05 ",.01)
 ;;00093-0811-05
 ;;9002226.02101,"1799,00093-0811-05 ",.02)
 ;;00093-0811-05
 ;;9002226.02101,"1799,00093-0812-01 ",.01)
 ;;00093-0812-01
 ;;9002226.02101,"1799,00093-0812-01 ",.02)
 ;;00093-0812-01
 ;;9002226.02101,"1799,00093-0812-05 ",.01)
 ;;00093-0812-05
 ;;9002226.02101,"1799,00093-0812-05 ",.02)
 ;;00093-0812-05
 ;;9002226.02101,"1799,00093-0813-01 ",.01)
 ;;00093-0813-01
 ;;9002226.02101,"1799,00093-0813-01 ",.02)
 ;;00093-0813-01
 ;;9002226.02101,"1799,00093-0813-05 ",.01)
 ;;00093-0813-05
 ;;9002226.02101,"1799,00093-0813-05 ",.02)
 ;;00093-0813-05
 ;;9002226.02101,"1799,00093-7114-98 ",.01)
 ;;00093-7114-98
 ;;9002226.02101,"1799,00093-7114-98 ",.02)
 ;;00093-7114-98
 ;;9002226.02101,"1799,00093-7115-98 ",.01)
 ;;00093-7115-98
 ;;9002226.02101,"1799,00093-7115-98 ",.02)
 ;;00093-7115-98
 ;;9002226.02101,"1799,00093-7116-98 ",.01)
 ;;00093-7116-98
 ;;9002226.02101,"1799,00093-7116-98 ",.02)
 ;;00093-7116-98
 ;;9002226.02101,"1799,00093-7121-98 ",.01)
 ;;00093-7121-98
 ;;9002226.02101,"1799,00093-7121-98 ",.02)
 ;;00093-7121-98
 ;;9002226.02101,"1799,00093-9612-12 ",.01)
 ;;00093-9612-12
 ;;9002226.02101,"1799,00093-9612-12 ",.02)
 ;;00093-9612-12
 ;;9002226.02101,"1799,00095-3000-01 ",.01)
 ;;00095-3000-01
 ;;9002226.02101,"1799,00095-3000-01 ",.02)
 ;;00095-3000-01
 ;;9002226.02101,"1799,00121-0678-16 ",.01)
 ;;00121-0678-16
 ;;9002226.02101,"1799,00121-0678-16 ",.02)
 ;;00121-0678-16
 ;;9002226.02101,"1799,00143-1445-01 ",.01)
 ;;00143-1445-01
 ;;9002226.02101,"1799,00143-1445-01 ",.02)
 ;;00143-1445-01
 ;;9002226.02101,"1799,00143-1445-05 ",.01)
 ;;00143-1445-05
 ;;9002226.02101,"1799,00143-1445-05 ",.02)
 ;;00143-1445-05
 ;;9002226.02101,"1799,00143-1450-01 ",.01)
 ;;00143-1450-01
 ;;9002226.02101,"1799,00143-1450-01 ",.02)
 ;;00143-1450-01
 ;;9002226.02101,"1799,00143-1450-05 ",.01)
 ;;00143-1450-05
 ;;9002226.02101,"1799,00143-1450-05 ",.02)
 ;;00143-1450-05
 ;;9002226.02101,"1799,00143-1455-01 ",.01)
 ;;00143-1455-01
 ;;9002226.02101,"1799,00143-1455-01 ",.02)
 ;;00143-1455-01
 ;;9002226.02101,"1799,00143-1455-05 ",.01)
 ;;00143-1455-05
 ;;9002226.02101,"1799,00143-1455-05 ",.02)
 ;;00143-1455-05
 ;;9002226.02101,"1799,00143-1458-01 ",.01)
 ;;00143-1458-01
 ;;9002226.02101,"1799,00143-1458-01 ",.02)
 ;;00143-1458-01
 ;;9002226.02101,"1799,00143-1458-05 ",.01)
 ;;00143-1458-05
 ;;9002226.02101,"1799,00143-1458-05 ",.02)
 ;;00143-1458-05
 ;;9002226.02101,"1799,00143-1785-01 ",.01)
 ;;00143-1785-01
 ;;9002226.02101,"1799,00143-1785-01 ",.02)
 ;;00143-1785-01
 ;;9002226.02101,"1799,00143-1785-10 ",.01)
 ;;00143-1785-10
 ;;9002226.02101,"1799,00143-1785-10 ",.02)
 ;;00143-1785-10
 ;;9002226.02101,"1799,00143-1785-30 ",.01)
 ;;00143-1785-30
 ;;9002226.02101,"1799,00143-1785-30 ",.02)
 ;;00143-1785-30
 ;;9002226.02101,"1799,00143-1787-01 ",.01)
 ;;00143-1787-01
 ;;9002226.02101,"1799,00143-1787-01 ",.02)
 ;;00143-1787-01
 ;;9002226.02101,"1799,00143-1787-05 ",.01)
 ;;00143-1787-05
 ;;9002226.02101,"1799,00143-1787-05 ",.02)
 ;;00143-1787-05
 ;;9002226.02101,"1799,00143-3000-01 ",.01)
 ;;00143-3000-01
 ;;9002226.02101,"1799,00143-3000-01 ",.02)
 ;;00143-3000-01
 ;;9002226.02101,"1799,00187-0844-01 ",.01)
 ;;00187-0844-01
 ;;9002226.02101,"1799,00187-0844-01 ",.02)
 ;;00187-0844-01
 ;;9002226.02101,"1799,00187-4220-10 ",.01)
 ;;00187-4220-10
 ;;9002226.02101,"1799,00187-4220-10 ",.02)
 ;;00187-4220-10
 ;;9002226.02101,"1799,00187-4303-05 ",.01)
 ;;00187-4303-05
 ;;9002226.02101,"1799,00187-4303-05 ",.02)
 ;;00187-4303-05
 ;;9002226.02101,"1799,00378-0042-01 ",.01)
 ;;00378-0042-01
 ;;9002226.02101,"1799,00378-0042-01 ",.02)
 ;;00378-0042-01
 ;;9002226.02101,"1799,00378-0073-01 ",.01)
 ;;00378-0073-01
 ;;9002226.02101,"1799,00378-0073-01 ",.02)
 ;;00378-0073-01
 ;;9002226.02101,"1799,00378-0211-01 ",.01)
 ;;00378-0211-01
 ;;9002226.02101,"1799,00378-0211-01 ",.02)
 ;;00378-0211-01
 ;;9002226.02101,"1799,00378-0211-05 ",.01)
 ;;00378-0211-05
 ;;9002226.02101,"1799,00378-0211-05 ",.02)
 ;;00378-0211-05
 ;;9002226.02101,"1799,00378-0277-01 ",.01)
 ;;00378-0277-01
 ;;9002226.02101,"1799,00378-0277-01 ",.02)
 ;;00378-0277-01
 ;;9002226.02101,"1799,00378-0277-05 ",.01)
 ;;00378-0277-05
 ;;9002226.02101,"1799,00378-0277-05 ",.02)
 ;;00378-0277-05
 ;;9002226.02101,"1799,00378-0330-01 ",.01)
 ;;00378-0330-01
 ;;9002226.02101,"1799,00378-0330-01 ",.02)
 ;;00378-0330-01
 ;;9002226.02101,"1799,00378-0330-05 ",.01)
 ;;00378-0330-05
 ;;9002226.02101,"1799,00378-0330-05 ",.02)
 ;;00378-0330-05
 ;;9002226.02101,"1799,00378-0442-01 ",.01)
 ;;00378-0442-01
 ;;9002226.02101,"1799,00378-0442-01 ",.02)
 ;;00378-0442-01
 ;;9002226.02101,"1799,00378-0442-05 ",.01)
 ;;00378-0442-05
 ;;9002226.02101,"1799,00378-0442-05 ",.02)
 ;;00378-0442-05
 ;;9002226.02101,"1799,00378-0574-01 ",.01)
 ;;00378-0574-01
 ;;9002226.02101,"1799,00378-0574-01 ",.02)
 ;;00378-0574-01
 ;;9002226.02101,"1799,00378-0574-05 ",.01)
 ;;00378-0574-05
 ;;9002226.02101,"1799,00378-0574-05 ",.02)
 ;;00378-0574-05
 ;;9002226.02101,"1799,00378-1049-01 ",.01)
 ;;00378-1049-01
 ;;9002226.02101,"1799,00378-1049-01 ",.02)
 ;;00378-1049-01
 ;;9002226.02101,"1799,00378-1049-10 ",.01)
 ;;00378-1049-10
 ;;9002226.02101,"1799,00378-1049-10 ",.02)
 ;;00378-1049-10
 ;;9002226.02101,"1799,00378-2003-05 ",.01)
 ;;00378-2003-05
 ;;9002226.02101,"1799,00378-2003-05 ",.02)
 ;;00378-2003-05
 ;;9002226.02101,"1799,00378-2003-93 ",.01)
 ;;00378-2003-93
 ;;9002226.02101,"1799,00378-2003-93 ",.02)
 ;;00378-2003-93
 ;;9002226.02101,"1799,00378-2004-05 ",.01)
 ;;00378-2004-05
 ;;9002226.02101,"1799,00378-2004-05 ",.02)
 ;;00378-2004-05
 ;;9002226.02101,"1799,00378-2004-93 ",.01)
 ;;00378-2004-93
 ;;9002226.02101,"1799,00378-2004-93 ",.02)
 ;;00378-2004-93
 ;;9002226.02101,"1799,00378-2005-93 ",.01)
 ;;00378-2005-93
 ;;9002226.02101,"1799,00378-2005-93 ",.02)
 ;;00378-2005-93
 ;;9002226.02101,"1799,00378-2610-01 ",.01)
 ;;00378-2610-01
 ;;9002226.02101,"1799,00378-2610-01 ",.02)
 ;;00378-2610-01
 ;;9002226.02101,"1799,00378-2610-10 ",.01)
 ;;00378-2610-10
 ;;9002226.02101,"1799,00378-2610-10 ",.02)
 ;;00378-2610-10
 ;;9002226.02101,"1799,00378-2625-01 ",.01)
 ;;00378-2625-01
 ;;9002226.02101,"1799,00378-2625-01 ",.02)
 ;;00378-2625-01
 ;;9002226.02101,"1799,00378-2625-10 ",.01)
 ;;00378-2625-10
 ;;9002226.02101,"1799,00378-2625-10 ",.02)
 ;;00378-2625-10
 ;;9002226.02101,"1799,00378-2650-01 ",.01)
 ;;00378-2650-01
 ;;9002226.02101,"1799,00378-2650-01 ",.02)
 ;;00378-2650-01
 ;;9002226.02101,"1799,00378-2650-10 ",.01)
 ;;00378-2650-10