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

BGP06D6.m

Go to the documentation of this file.
BGP06D6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"68462-0362-01 ")
 ;;1953
 ;;21,"68462-0362-05 ")
 ;;1954
 ;;21,"70030-0462-62 ")
 ;;1955
 ;;21,"70030-0479-62 ")
 ;;1956
 ;;21,"74300-0001-33 ")
 ;;1957
 ;;21,"74300-0003-66 ")
 ;;1958
 ;;21,"74300-0003-67 ")
 ;;1959
 ;;21,"74300-0006-10 ")
 ;;1960
 ;;21,"74300-0006-11 ")
 ;;1961
 ;;21,"75137-0004-97 ")
 ;;1962
 ;;21,"75137-0212-03 ")
 ;;1963
 ;;21,"75137-0212-12 ")
 ;;1964
 ;;9002226,978,.01)
 ;;BGP HEDIS ANTIHISTAMINE NDC
 ;;9002226,978,.02)
 ;;@
 ;;9002226,978,.04)
 ;;n
 ;;9002226,978,.06)
 ;;@
 ;;9002226,978,.08)
 ;;@
 ;;9002226,978,.09)
 ;;@
 ;;9002226,978,.11)
 ;;@
 ;;9002226,978,.12)
 ;;@
 ;;9002226,978,.13)
 ;;1
 ;;9002226,978,.14)
 ;;@
 ;;9002226,978,.15)
 ;;@
 ;;9002226,978,.16)
 ;;@
 ;;9002226,978,.17)
 ;;@
 ;;9002226,978,3101)
 ;;@
 ;;9002226.02101,"978,00006-0062-68 ",.01)
 ;;00006-0062-68
 ;;9002226.02101,"978,00006-0062-68 ",.02)
 ;;00006-0062-68
 ;;9002226.02101,"978,00008-0019-01 ",.01)
 ;;00008-0019-01
 ;;9002226.02101,"978,00008-0019-01 ",.02)
 ;;00008-0019-01
 ;;9002226.02101,"978,00008-0027-02 ",.01)
 ;;00008-0027-02
 ;;9002226.02101,"978,00008-0027-02 ",.02)
 ;;00008-0027-02
 ;;9002226.02101,"978,00008-0027-07 ",.01)
 ;;00008-0027-07
 ;;9002226.02101,"978,00008-0027-07 ",.02)
 ;;00008-0027-07
 ;;9002226.02101,"978,00031-2247-13 ",.01)
 ;;00031-2247-13
 ;;9002226.02101,"978,00031-2247-13 ",.02)
 ;;00031-2247-13
 ;;9002226.02101,"978,00031-8698-12 ",.01)
 ;;00031-8698-12
 ;;9002226.02101,"978,00031-8698-12 ",.02)
 ;;00031-8698-12
 ;;9002226.02101,"978,00031-8698-13 ",.01)
 ;;00031-8698-13
 ;;9002226.02101,"978,00031-8698-13 ",.02)
 ;;00031-8698-13
 ;;9002226.02101,"978,00031-8701-12 ",.01)
 ;;00031-8701-12
 ;;9002226.02101,"978,00031-8701-12 ",.02)
 ;;00031-8701-12
 ;;9002226.02101,"978,00031-8715-12 ",.01)
 ;;00031-8715-12
 ;;9002226.02101,"978,00031-8715-12 ",.02)
 ;;00031-8715-12
 ;;9002226.02101,"978,00043-0460-08 ",.01)
 ;;00043-0460-08
 ;;9002226.02101,"978,00043-0460-08 ",.02)
 ;;00043-0460-08
 ;;9002226.02101,"978,00043-6204-04 ",.01)
 ;;00043-6204-04
 ;;9002226.02101,"978,00043-6204-04 ",.02)
 ;;00043-6204-04
 ;;9002226.02101,"978,00043-6204-08 ",.01)
 ;;00043-6204-08
 ;;9002226.02101,"978,00043-6204-08 ",.02)
 ;;00043-6204-08
 ;;9002226.02101,"978,00043-6265-08 ",.01)
 ;;00043-6265-08
 ;;9002226.02101,"978,00043-6265-08 ",.02)
 ;;00043-6265-08
 ;;9002226.02101,"978,00045-0182-10 ",.01)
 ;;00045-0182-10
 ;;9002226.02101,"978,00045-0182-10 ",.02)
 ;;00045-0182-10
 ;;9002226.02101,"978,00045-0182-40 ",.01)
 ;;00045-0182-40
 ;;9002226.02101,"978,00045-0182-40 ",.02)
 ;;00045-0182-40
 ;;9002226.02101,"978,00045-0211-48 ",.01)
 ;;00045-0211-48
 ;;9002226.02101,"978,00045-0211-48 ",.02)
 ;;00045-0211-48
 ;;9002226.02101,"978,00045-0244-20 ",.01)
 ;;00045-0244-20
 ;;9002226.02101,"978,00045-0244-20 ",.02)
 ;;00045-0244-20
 ;;9002226.02101,"978,00045-0244-40 ",.01)
 ;;00045-0244-40
 ;;9002226.02101,"978,00045-0244-40 ",.02)
 ;;00045-0244-40
 ;;9002226.02101,"978,00045-0244-80 ",.01)
 ;;00045-0244-80
 ;;9002226.02101,"978,00045-0244-80 ",.02)
 ;;00045-0244-80
 ;;9002226.02101,"978,00045-0482-20 ",.01)
 ;;00045-0482-20
 ;;9002226.02101,"978,00045-0482-20 ",.02)
 ;;00045-0482-20
 ;;9002226.02101,"978,00045-0482-24 ",.01)
 ;;00045-0482-24
 ;;9002226.02101,"978,00045-0482-24 ",.02)
 ;;00045-0482-24
 ;;9002226.02101,"978,00045-0482-35 ",.01)
 ;;00045-0482-35
 ;;9002226.02101,"978,00045-0482-35 ",.02)
 ;;00045-0482-35
 ;;9002226.02101,"978,00045-0482-50 ",.01)
 ;;00045-0482-50
 ;;9002226.02101,"978,00045-0482-50 ",.02)
 ;;00045-0482-50
 ;;9002226.02101,"978,00049-5590-93 ",.01)
 ;;00049-5590-93
 ;;9002226.02101,"978,00049-5590-93 ",.02)
 ;;00049-5590-93
 ;;9002226.02101,"978,00049-5610-66 ",.01)
 ;;00049-5610-66
 ;;9002226.02101,"978,00049-5610-66 ",.02)
 ;;00049-5610-66
 ;;9002226.02101,"978,00049-5620-66 ",.01)
 ;;00049-5620-66
 ;;9002226.02101,"978,00049-5620-66 ",.02)
 ;;00049-5620-66
 ;;9002226.02101,"978,00049-5630-66 ",.01)
 ;;00049-5630-66
 ;;9002226.02101,"978,00049-5630-66 ",.02)
 ;;00049-5630-66
 ;;9002226.02101,"978,00067-0246-17 ",.01)
 ;;00067-0246-17
 ;;9002226.02101,"978,00067-0246-17 ",.02)
 ;;00067-0246-17
 ;;9002226.02101,"978,00067-0297-24 ",.01)
 ;;00067-0297-24
 ;;9002226.02101,"978,00067-0297-24 ",.02)
 ;;00067-0297-24
 ;;9002226.02101,"978,00067-2053-24 ",.01)
 ;;00067-2053-24
 ;;9002226.02101,"978,00067-2053-24 ",.02)
 ;;00067-2053-24
 ;;9002226.02101,"978,00067-2053-50 ",.01)
 ;;00067-2053-50
 ;;9002226.02101,"978,00067-2053-50 ",.02)
 ;;00067-2053-50
 ;;9002226.02101,"978,00067-2053-91 ",.01)
 ;;00067-2053-91
 ;;9002226.02101,"978,00067-2053-91 ",.02)
 ;;00067-2053-91
 ;;9002226.02101,"978,00067-2055-24 ",.01)
 ;;00067-2055-24
 ;;9002226.02101,"978,00067-2055-24 ",.02)
 ;;00067-2055-24
 ;;9002226.02101,"978,00067-2055-50 ",.01)
 ;;00067-2055-50
 ;;9002226.02101,"978,00067-2055-50 ",.02)
 ;;00067-2055-50
 ;;9002226.02101,"978,00067-2055-91 ",.01)
 ;;00067-2055-91
 ;;9002226.02101,"978,00067-2055-91 ",.02)
 ;;00067-2055-91
 ;;9002226.02101,"978,00067-6147-12 ",.01)
 ;;00067-6147-12
 ;;9002226.02101,"978,00067-6147-12 ",.02)
 ;;00067-6147-12
 ;;9002226.02101,"978,00067-6149-14 ",.01)
 ;;00067-6149-14
 ;;9002226.02101,"978,00067-6149-14 ",.02)
 ;;00067-6149-14
 ;;9002226.02101,"978,00067-6149-16 ",.01)
 ;;00067-6149-16
 ;;9002226.02101,"978,00067-6149-16 ",.02)
 ;;00067-6149-16
 ;;9002226.02101,"978,00067-6344-04 ",.01)
 ;;00067-6344-04
 ;;9002226.02101,"978,00067-6344-04 ",.02)
 ;;00067-6344-04
 ;;9002226.02101,"978,00067-6344-08 ",.01)
 ;;00067-6344-08
 ;;9002226.02101,"978,00067-6344-08 ",.02)
 ;;00067-6344-08
 ;;9002226.02101,"978,00067-6354-14 ",.01)
 ;;00067-6354-14
 ;;9002226.02101,"978,00067-6354-14 ",.02)
 ;;00067-6354-14
 ;;9002226.02101,"978,00067-6356-14 ",.01)
 ;;00067-6356-14
 ;;9002226.02101,"978,00067-6356-14 ",.02)
 ;;00067-6356-14
 ;;9002226.02101,"978,00069-5410-66 ",.01)
 ;;00069-5410-66
 ;;9002226.02101,"978,00069-5410-66 ",.02)
 ;;00069-5410-66
 ;;9002226.02101,"978,00069-5420-66 ",.01)
 ;;00069-5420-66
 ;;9002226.02101,"978,00069-5420-66 ",.02)
 ;;00069-5420-66
 ;;9002226.02101,"978,00069-5430-66 ",.01)
 ;;00069-5430-66
 ;;9002226.02101,"978,00069-5430-66 ",.02)
 ;;00069-5430-66
 ;;9002226.02101,"978,00069-5440-93 ",.01)
 ;;00069-5440-93
 ;;9002226.02101,"978,00069-5440-93 ",.02)
 ;;00069-5440-93
 ;;9002226.02101,"978,00069-5440-97 ",.01)
 ;;00069-5440-97
 ;;9002226.02101,"978,00069-5440-97 ",.02)
 ;;00069-5440-97
 ;;9002226.02101,"978,00071-2333-17 ",.01)
 ;;00071-2333-17
 ;;9002226.02101,"978,00071-2333-17 ",.02)
 ;;00071-2333-17
 ;;9002226.02101,"978,00071-2555-17 ",.01)
 ;;00071-2555-17
 ;;9002226.02101,"978,00071-2555-17 ",.02)
 ;;00071-2555-17
 ;;9002226.02101,"978,00083-0245-17 ",.01)
 ;;00083-0245-17
 ;;9002226.02101,"978,00083-0245-17 ",.02)
 ;;00083-0245-17
 ;;9002226.02101,"978,00085-0016-05 ",.01)
 ;;00085-0016-05
 ;;9002226.02101,"978,00085-0016-05 ",.02)
 ;;00085-0016-05
 ;;9002226.02101,"978,00085-0095-03 ",.01)
 ;;00085-0095-03
 ;;9002226.02101,"978,00085-0095-03 ",.02)
 ;;00085-0095-03
 ;;9002226.02101,"978,00085-0148-03 ",.01)
 ;;00085-0148-03
 ;;9002226.02101,"978,00085-0148-03 ",.02)
 ;;00085-0148-03
 ;;9002226.02101,"978,00085-0268-05 ",.01)
 ;;00085-0268-05
 ;;9002226.02101,"978,00085-0268-05 ",.02)
 ;;00085-0268-05
 ;;9002226.02101,"978,00085-0820-03 ",.01)
 ;;00085-0820-03
 ;;9002226.02101,"978,00085-0820-03 ",.02)
 ;;00085-0820-03
 ;;9002226.02101,"978,00085-1117-01 ",.01)
 ;;00085-1117-01
 ;;9002226.02101,"978,00085-1117-01 ",.02)
 ;;00085-1117-01
 ;;9002226.02101,"978,00093-2929-01 ",.01)
 ;;00093-2929-01
 ;;9002226.02101,"978,00093-2929-01 ",.02)
 ;;00093-2929-01
 ;;9002226.02101,"978,00113-0333-26 ",.01)
 ;;00113-0333-26
 ;;9002226.02101,"978,00113-0333-26 ",.02)
 ;;00113-0333-26
 ;;9002226.02101,"978,00113-0379-26 ",.01)
 ;;00113-0379-26
 ;;9002226.02101,"978,00113-0379-26 ",.02)
 ;;00113-0379-26
 ;;9002226.02101,"978,00113-0406-73 ",.01)
 ;;00113-0406-73
 ;;9002226.02101,"978,00113-0406-73 ",.02)
 ;;00113-0406-73
 ;;9002226.02101,"978,00113-0462-62 ",.01)
 ;;00113-0462-62
 ;;9002226.02101,"978,00113-0462-62 ",.02)
 ;;00113-0462-62
 ;;9002226.02101,"978,00113-0479-62 ",.01)
 ;;00113-0479-62
 ;;9002226.02101,"978,00113-0479-62 ",.02)
 ;;00113-0479-62
 ;;9002226.02101,"978,00115-1040-01 ",.01)
 ;;00115-1040-01
 ;;9002226.02101,"978,00115-1040-01 ",.02)
 ;;00115-1040-01
 ;;9002226.02101,"978,00115-1041-01 ",.01)
 ;;00115-1041-01
 ;;9002226.02101,"978,00115-1041-01 ",.02)
 ;;00115-1041-01
 ;;9002226.02101,"978,00115-1041-03 ",.01)
 ;;00115-1041-03
 ;;9002226.02101,"978,00115-1041-03 ",.02)
 ;;00115-1041-03
 ;;9002226.02101,"978,00115-1042-01 ",.01)
 ;;00115-1042-01
 ;;9002226.02101,"978,00115-1042-01 ",.02)
 ;;00115-1042-01
 ;;9002226.02101,"978,00115-1110-01 ",.01)
 ;;00115-1110-01
 ;;9002226.02101,"978,00115-1110-01 ",.02)
 ;;00115-1110-01
 ;;9002226.02101,"978,00115-1110-03 ",.01)
 ;;00115-1110-03
 ;;9002226.02101,"978,00115-1110-03 ",.02)
 ;;00115-1110-03
 ;;9002226.02101,"978,00115-1111-01 ",.01)
 ;;00115-1111-01
 ;;9002226.02101,"978,00115-1111-01 ",.02)
 ;;00115-1111-01
 ;;9002226.02101,"978,00115-1111-03 ",.01)
 ;;00115-1111-03
 ;;9002226.02101,"978,00115-1111-03 ",.02)
 ;;00115-1111-03
 ;;9002226.02101,"978,00121-0489-05 ",.01)
 ;;00121-0489-05
 ;;9002226.02101,"978,00121-0489-05 ",.02)
 ;;00121-0489-05
 ;;9002226.02101,"978,00121-0489-10 ",.01)
 ;;00121-0489-10
 ;;9002226.02101,"978,00121-0489-10 ",.02)
 ;;00121-0489-10
 ;;9002226.02101,"978,00121-0489-20 ",.01)
 ;;00121-0489-20
 ;;9002226.02101,"978,00121-0489-20 ",.02)
 ;;00121-0489-20
 ;;9002226.02101,"978,00121-0547-05 ",.01)
 ;;00121-0547-05
 ;;9002226.02101,"978,00121-0547-05 ",.02)
 ;;00121-0547-05
 ;;9002226.02101,"978,00122-0815-66 ",.01)
 ;;00122-0815-66
 ;;9002226.02101,"978,00122-0815-66 ",.02)
 ;;00122-0815-66
 ;;9002226.02101,"978,00122-0816-66 ",.01)
 ;;00122-0816-66
 ;;9002226.02101,"978,00122-0816-66 ",.02)
 ;;00122-0816-66
 ;;9002226.02101,"978,00122-0878-66 ",.01)
 ;;00122-0878-66
 ;;9002226.02101,"978,00122-0878-66 ",.02)
 ;;00122-0878-66
 ;;9002226.02101,"978,00135-0009-45 ",.01)
 ;;00135-0009-45
 ;;9002226.02101,"978,00135-0009-45 ",.02)
 ;;00135-0009-45
 ;;9002226.02101,"978,00147-0236-05 ",.01)
 ;;00147-0236-05
 ;;9002226.02101,"978,00147-0236-05 ",.02)
 ;;00147-0236-05
 ;;9002226.02101,"978,00172-2909-60 ",.01)
 ;;00172-2909-60
 ;;9002226.02101,"978,00172-2909-60 ",.02)
 ;;00172-2909-60
 ;;9002226.02101,"978,00172-2911-60 ",.01)
 ;;00172-2911-60
 ;;9002226.02101,"978,00172-2911-60 ",.02)
 ;;00172-2911-60
 ;;9002226.02101,"978,00172-2911-70 ",.01)
 ;;00172-2911-70
 ;;9002226.02101,"978,00172-2911-70 ",.02)
 ;;00172-2911-70
 ;;9002226.02101,"978,00172-2929-60 ",.01)
 ;;00172-2929-60
 ;;9002226.02101,"978,00172-2929-60 ",.02)
 ;;00172-2929-60
 ;;9002226.02101,"978,00172-2929-80 ",.01)
 ;;00172-2929-80
 ;;9002226.02101,"978,00172-2929-80 ",.02)
 ;;00172-2929-80
 ;;9002226.02101,"978,00182-0135-10 ",.01)
 ;;00182-0135-10
 ;;9002226.02101,"978,00182-0135-10 ",.02)
 ;;00182-0135-10
 ;;9002226.02101,"978,00182-0492-10 ",.01)
 ;;00182-0492-10
 ;;9002226.02101,"978,00182-0492-10 ",.02)
 ;;00182-0492-10
 ;;9002226.02101,"978,00182-1015-01 ",.01)
 ;;00182-1015-01
 ;;9002226.02101,"978,00182-1015-01 ",.02)
 ;;00182-1015-01
 ;;9002226.02101,"978,00182-1064-08 ",.01)
 ;;00182-1064-08
 ;;9002226.02101,"978,00182-1064-08 ",.02)
 ;;00182-1064-08
 ;;9002226.02101,"978,00182-1064-18 ",.01)
 ;;00182-1064-18
 ;;9002226.02101,"978,00182-1064-18 ",.02)
 ;;00182-1064-18
 ;;9002226.02101,"978,00182-1098-89 ",.01)
 ;;00182-1098-89
 ;;9002226.02101,"978,00182-1098-89 ",.02)
 ;;00182-1098-89
 ;;9002226.02101,"978,00182-1099-89 ",.01)
 ;;00182-1099-89
 ;;9002226.02101,"978,00182-1099-89 ",.02)
 ;;00182-1099-89
 ;;9002226.02101,"978,00182-1131-93 ",.01)
 ;;00182-1131-93
 ;;9002226.02101,"978,00182-1131-93 ",.02)
 ;;00182-1131-93
 ;;9002226.02101,"978,00182-1132-00 ",.01)
 ;;00182-1132-00
 ;;9002226.02101,"978,00182-1132-00 ",.02)
 ;;00182-1132-00
 ;;9002226.02101,"978,00182-1132-89 ",.01)
 ;;00182-1132-89
 ;;9002226.02101,"978,00182-1132-89 ",.02)
 ;;00182-1132-89
 ;;9002226.02101,"978,00182-1146-16 ",.01)
 ;;00182-1146-16
 ;;9002226.02101,"978,00182-1146-16 ",.02)
 ;;00182-1146-16
 ;;9002226.02101,"978,00182-1147-16 ",.01)
 ;;00182-1147-16
 ;;9002226.02101,"978,00182-1147-16 ",.02)
 ;;00182-1147-16
 ;;9002226.02101,"978,00182-1355-40 ",.01)
 ;;00182-1355-40
 ;;9002226.02101,"978,00182-1355-40 ",.02)
 ;;00182-1355-40
 ;;9002226.02101,"978,00182-1376-40 ",.01)
 ;;00182-1376-40
 ;;9002226.02101,"978,00182-1376-40 ",.02)
 ;;00182-1376-40
 ;;9002226.02101,"978,00182-1492-05 ",.01)
 ;;00182-1492-05
 ;;9002226.02101,"978,00182-1492-05 ",.02)
 ;;00182-1492-05
 ;;9002226.02101,"978,00182-1492-10 ",.01)
 ;;00182-1492-10
 ;;9002226.02101,"978,00182-1492-10 ",.02)
 ;;00182-1492-10
 ;;9002226.02101,"978,00182-1493-01 ",.01)
 ;;00182-1493-01
 ;;9002226.02101,"978,00182-1493-01 ",.02)
 ;;00182-1493-01
 ;;9002226.02101,"978,00182-1494-05 ",.01)
 ;;00182-1494-05
 ;;9002226.02101,"978,00182-1494-05 ",.02)
 ;;00182-1494-05
 ;;9002226.02101,"978,00182-1737-41 ",.01)
 ;;00182-1737-41
 ;;9002226.02101,"978,00182-1737-41 ",.02)
 ;;00182-1737-41
 ;;9002226.02101,"978,00182-1991-01 ",.01)
 ;;00182-1991-01
 ;;9002226.02101,"978,00182-1991-01 ",.02)
 ;;00182-1991-01