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

BGP13S7.m

Go to the documentation of this file.
  1. BGP13S7 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"68084-0211-11 ")
  1. ;;2011
  1. ;;21,"68084-0212-01 ")
  1. ;;2012
  1. ;;21,"68084-0212-11 ")
  1. ;;2013
  1. ;;21,"68084-0261-01 ")
  1. ;;767
  1. ;;21,"68084-0261-11 ")
  1. ;;768
  1. ;;21,"68084-0262-01 ")
  1. ;;769
  1. ;;21,"68084-0262-11 ")
  1. ;;770
  1. ;;21,"68084-0263-01 ")
  1. ;;771
  1. ;;21,"68084-0263-11 ")
  1. ;;772
  1. ;;21,"68084-0264-01 ")
  1. ;;773
  1. ;;21,"68084-0264-11 ")
  1. ;;774
  1. ;;21,"68084-0301-01 ")
  1. ;;1150
  1. ;;21,"68084-0302-21 ")
  1. ;;1151
  1. ;;21,"68084-0303-01 ")
  1. ;;1152
  1. ;;21,"68084-0304-01 ")
  1. ;;1153
  1. ;;21,"68084-0387-01 ")
  1. ;;2104
  1. ;;21,"68115-0038-30 ")
  1. ;;388
  1. ;;21,"68115-0039-30 ")
  1. ;;389
  1. ;;21,"68115-0039-60 ")
  1. ;;390
  1. ;;21,"68115-0039-90 ")
  1. ;;391
  1. ;;21,"68115-0040-15 ")
  1. ;;392
  1. ;;21,"68115-0040-30 ")
  1. ;;393
  1. ;;21,"68115-0040-60 ")
  1. ;;394
  1. ;;21,"68115-0040-90 ")
  1. ;;395
  1. ;;21,"68115-0238-00 ")
  1. ;;1470
  1. ;;21,"68115-0238-30 ")
  1. ;;1471
  1. ;;21,"68115-0238-60 ")
  1. ;;1472
  1. ;;21,"68115-0238-90 ")
  1. ;;1473
  1. ;;21,"68115-0239-30 ")
  1. ;;1474
  1. ;;21,"68115-0239-60 ")
  1. ;;1475
  1. ;;21,"68115-0239-90 ")
  1. ;;1476
  1. ;;21,"68115-0239-97 ")
  1. ;;1477
  1. ;;21,"68115-0307-60 ")
  1. ;;1906
  1. ;;21,"68115-0308-60 ")
  1. ;;1907
  1. ;;21,"68115-0308-99 ")
  1. ;;1908
  1. ;;21,"68115-0309-30 ")
  1. ;;1909
  1. ;;21,"68115-0309-60 ")
  1. ;;1910
  1. ;;21,"68115-0309-90 ")
  1. ;;1911
  1. ;;21,"68115-0310-30 ")
  1. ;;1912
  1. ;;21,"68115-0310-60 ")
  1. ;;1913
  1. ;;21,"68115-0419-30 ")
  1. ;;2221
  1. ;;21,"68115-0551-00 ")
  1. ;;851
  1. ;;21,"68115-0629-00 ")
  1. ;;1914
  1. ;;21,"68115-0629-30 ")
  1. ;;1915
  1. ;;21,"68115-0661-00 ")
  1. ;;2105
  1. ;;21,"68115-0715-00 ")
  1. ;;2222
  1. ;;21,"68115-0727-00 ")
  1. ;;852
  1. ;;21,"68115-0727-30 ")
  1. ;;853
  1. ;;21,"68115-0741-00 ")
  1. ;;2223
  1. ;;21,"68382-0022-01 ")
  1. ;;396
  1. ;;21,"68382-0022-10 ")
  1. ;;397
  1. ;;21,"68382-0023-01 ")
  1. ;;398
  1. ;;21,"68382-0023-10 ")
  1. ;;399
  1. ;;21,"68382-0024-01 ")
  1. ;;400
  1. ;;21,"68382-0024-10 ")
  1. ;;401
  1. ;;21,"68382-0092-01 ")
  1. ;;775
  1. ;;21,"68382-0092-05 ")
  1. ;;776
  1. ;;21,"68382-0092-17 ")
  1. ;;777
  1. ;;21,"68382-0093-01 ")
  1. ;;778
  1. ;;21,"68382-0093-05 ")
  1. ;;779
  1. ;;21,"68382-0093-17 ")
  1. ;;780
  1. ;;21,"68382-0094-01 ")
  1. ;;781
  1. ;;21,"68382-0094-05 ")
  1. ;;782
  1. ;;21,"68382-0094-17 ")
  1. ;;783
  1. ;;21,"68382-0095-01 ")
  1. ;;784
  1. ;;21,"68382-0095-05 ")
  1. ;;785
  1. ;;21,"68382-0095-17 ")
  1. ;;786
  1. ;;21,"68387-0538-30 ")
  1. ;;402
  1. ;;21,"68387-0539-30 ")
  1. ;;403
  1. ;;21,"68462-0162-01 ")
  1. ;;787
  1. ;;21,"68462-0162-05 ")
  1. ;;788
  1. ;;21,"68462-0163-01 ")
  1. ;;789
  1. ;;21,"68462-0163-05 ")
  1. ;;790
  1. ;;21,"68462-0164-01 ")
  1. ;;791
  1. ;;21,"68462-0164-05 ")
  1. ;;792
  1. ;;21,"68462-0165-01 ")
  1. ;;793
  1. ;;21,"68462-0165-05 ")
  1. ;;794
  1. ;;21,"68645-0190-59 ")
  1. ;;1478
  1. ;;21,"68645-0191-59 ")
  1. ;;1479
  1. ;;9002226,999,.01)
  1. ;;BGP HEDIS BETA BLOCKER NDC
  1. ;;9002226,999,.02)
  1. ;;@
  1. ;;9002226,999,.04)
  1. ;;n
  1. ;;9002226,999,.06)
  1. ;;@
  1. ;;9002226,999,.08)
  1. ;;@
  1. ;;9002226,999,.09)
  1. ;;@
  1. ;;9002226,999,.11)
  1. ;;@
  1. ;;9002226,999,.12)
  1. ;;@
  1. ;;9002226,999,.13)
  1. ;;1
  1. ;;9002226,999,.14)
  1. ;;@
  1. ;;9002226,999,.15)
  1. ;;@
  1. ;;9002226,999,.16)
  1. ;;@
  1. ;;9002226,999,.17)
  1. ;;@
  1. ;;9002226,999,3101)
  1. ;;@
  1. ;;9002226.02101,"999,00005-3234-23 ",.01)
  1. ;;00005-3234-23
  1. ;;9002226.02101,"999,00005-3234-23 ",.02)
  1. ;;00005-3234-23
  1. ;;9002226.02101,"999,00005-3235-38 ",.01)
  1. ;;00005-3235-38
  1. ;;9002226.02101,"999,00005-3235-38 ",.02)
  1. ;;00005-3235-38
  1. ;;9002226.02101,"999,00005-3238-23 ",.01)
  1. ;;00005-3238-23
  1. ;;9002226.02101,"999,00005-3238-23 ",.02)
  1. ;;00005-3238-23
  1. ;;9002226.02101,"999,00006-0437-68 ",.01)
  1. ;;00006-0437-68
  1. ;;9002226.02101,"999,00006-0437-68 ",.02)
  1. ;;00006-0437-68
  1. ;;9002226.02101,"999,00007-3370-13 ",.01)
  1. ;;00007-3370-13
  1. ;;9002226.02101,"999,00007-3370-13 ",.02)
  1. ;;00007-3370-13
  1. ;;9002226.02101,"999,00007-3370-59 ",.01)
  1. ;;00007-3370-59
  1. ;;9002226.02101,"999,00007-3370-59 ",.02)
  1. ;;00007-3370-59
  1. ;;9002226.02101,"999,00007-3371-13 ",.01)
  1. ;;00007-3371-13
  1. ;;9002226.02101,"999,00007-3371-13 ",.02)
  1. ;;00007-3371-13
  1. ;;9002226.02101,"999,00007-3371-59 ",.01)
  1. ;;00007-3371-59
  1. ;;9002226.02101,"999,00007-3371-59 ",.02)
  1. ;;00007-3371-59
  1. ;;9002226.02101,"999,00007-3372-13 ",.01)
  1. ;;00007-3372-13
  1. ;;9002226.02101,"999,00007-3372-13 ",.02)
  1. ;;00007-3372-13
  1. ;;9002226.02101,"999,00007-3372-59 ",.01)
  1. ;;00007-3372-59
  1. ;;9002226.02101,"999,00007-3372-59 ",.02)
  1. ;;00007-3372-59
  1. ;;9002226.02101,"999,00007-3373-13 ",.01)
  1. ;;00007-3373-13
  1. ;;9002226.02101,"999,00007-3373-13 ",.02)
  1. ;;00007-3373-13
  1. ;;9002226.02101,"999,00007-3373-59 ",.01)
  1. ;;00007-3373-59
  1. ;;9002226.02101,"999,00007-3373-59 ",.02)
  1. ;;00007-3373-59
  1. ;;9002226.02101,"999,00007-4139-20 ",.01)
  1. ;;00007-4139-20
  1. ;;9002226.02101,"999,00007-4139-20 ",.02)
  1. ;;00007-4139-20
  1. ;;9002226.02101,"999,00007-4140-20 ",.01)
  1. ;;00007-4140-20
  1. ;;9002226.02101,"999,00007-4140-20 ",.02)
  1. ;;00007-4140-20
  1. ;;9002226.02101,"999,00007-4141-20 ",.01)
  1. ;;00007-4141-20
  1. ;;9002226.02101,"999,00007-4141-20 ",.02)
  1. ;;00007-4141-20
  1. ;;9002226.02101,"999,00007-4142-20 ",.01)
  1. ;;00007-4142-20
  1. ;;9002226.02101,"999,00007-4142-20 ",.02)
  1. ;;00007-4142-20
  1. ;;9002226.02101,"999,00024-2300-20 ",.01)
  1. ;;00024-2300-20
  1. ;;9002226.02101,"999,00024-2300-20 ",.02)
  1. ;;00024-2300-20
  1. ;;9002226.02101,"999,00024-2301-10 ",.01)
  1. ;;00024-2301-10
  1. ;;9002226.02101,"999,00024-2301-10 ",.02)
  1. ;;00024-2301-10
  1. ;;9002226.02101,"999,00025-5101-31 ",.01)
  1. ;;00025-5101-31
  1. ;;9002226.02101,"999,00025-5101-31 ",.02)
  1. ;;00025-5101-31
  1. ;;9002226.02101,"999,00025-5201-31 ",.01)
  1. ;;00025-5201-31
  1. ;;9002226.02101,"999,00025-5201-31 ",.02)
  1. ;;00025-5201-31
  1. ;;9002226.02101,"999,00028-0035-01 ",.01)
  1. ;;00028-0035-01
  1. ;;9002226.02101,"999,00028-0035-01 ",.02)
  1. ;;00028-0035-01
  1. ;;9002226.02101,"999,00028-0051-01 ",.01)
  1. ;;00028-0051-01
  1. ;;9002226.02101,"999,00028-0051-01 ",.02)
  1. ;;00028-0051-01
  1. ;;9002226.02101,"999,00028-0051-10 ",.01)
  1. ;;00028-0051-10
  1. ;;9002226.02101,"999,00028-0051-10 ",.02)
  1. ;;00028-0051-10
  1. ;;9002226.02101,"999,00028-0053-01 ",.01)
  1. ;;00028-0053-01
  1. ;;9002226.02101,"999,00028-0053-01 ",.02)
  1. ;;00028-0053-01
  1. ;;9002226.02101,"999,00028-0071-01 ",.01)
  1. ;;00028-0071-01
  1. ;;9002226.02101,"999,00028-0071-01 ",.02)
  1. ;;00028-0071-01
  1. ;;9002226.02101,"999,00028-0071-10 ",.01)
  1. ;;00028-0071-10
  1. ;;9002226.02101,"999,00028-0071-10 ",.02)
  1. ;;00028-0071-10
  1. ;;9002226.02101,"999,00028-0073-01 ",.01)
  1. ;;00028-0073-01
  1. ;;9002226.02101,"999,00028-0073-01 ",.02)
  1. ;;00028-0073-01
  1. ;;9002226.02101,"999,00046-0421-81 ",.01)
  1. ;;00046-0421-81
  1. ;;9002226.02101,"999,00046-0421-81 ",.02)
  1. ;;00046-0421-81
  1. ;;9002226.02101,"999,00046-0421-95 ",.01)
  1. ;;00046-0421-95
  1. ;;9002226.02101,"999,00046-0421-95 ",.02)
  1. ;;00046-0421-95
  1. ;;9002226.02101,"999,00046-0422-81 ",.01)
  1. ;;00046-0422-81
  1. ;;9002226.02101,"999,00046-0422-81 ",.02)
  1. ;;00046-0422-81
  1. ;;9002226.02101,"999,00046-0422-95 ",.01)
  1. ;;00046-0422-95
  1. ;;9002226.02101,"999,00046-0422-95 ",.02)
  1. ;;00046-0422-95
  1. ;;9002226.02101,"999,00046-0424-81 ",.01)
  1. ;;00046-0424-81
  1. ;;9002226.02101,"999,00046-0424-81 ",.02)
  1. ;;00046-0424-81
  1. ;;9002226.02101,"999,00046-0424-95 ",.01)
  1. ;;00046-0424-95
  1. ;;9002226.02101,"999,00046-0424-95 ",.02)
  1. ;;00046-0424-95
  1. ;;9002226.02101,"999,00046-0426-81 ",.01)
  1. ;;00046-0426-81
  1. ;;9002226.02101,"999,00046-0426-81 ",.02)
  1. ;;00046-0426-81
  1. ;;9002226.02101,"999,00046-0428-81 ",.01)
  1. ;;00046-0428-81
  1. ;;9002226.02101,"999,00046-0428-81 ",.02)
  1. ;;00046-0428-81
  1. ;;9002226.02101,"999,00046-0470-81 ",.01)
  1. ;;00046-0470-81
  1. ;;9002226.02101,"999,00046-0470-81 ",.02)
  1. ;;00046-0470-81
  1. ;;9002226.02101,"999,00046-0471-81 ",.01)
  1. ;;00046-0471-81
  1. ;;9002226.02101,"999,00046-0471-81 ",.02)
  1. ;;00046-0471-81
  1. ;;9002226.02101,"999,00046-0473-81 ",.01)
  1. ;;00046-0473-81
  1. ;;9002226.02101,"999,00046-0473-81 ",.02)
  1. ;;00046-0473-81
  1. ;;9002226.02101,"999,00046-0479-81 ",.01)
  1. ;;00046-0479-81
  1. ;;9002226.02101,"999,00046-0479-81 ",.02)
  1. ;;00046-0479-81
  1. ;;9002226.02101,"999,00046-0484-81 ",.01)
  1. ;;00046-0484-81
  1. ;;9002226.02101,"999,00046-0484-81 ",.02)
  1. ;;00046-0484-81
  1. ;;9002226.02101,"999,00054-3727-63 ",.01)
  1. ;;00054-3727-63
  1. ;;9002226.02101,"999,00054-3727-63 ",.02)
  1. ;;00054-3727-63
  1. ;;9002226.02101,"999,00054-3730-63 ",.01)
  1. ;;00054-3730-63
  1. ;;9002226.02101,"999,00054-3730-63 ",.02)
  1. ;;00054-3730-63
  1. ;;9002226.02101,"999,00054-8764-16 ",.01)
  1. ;;00054-8764-16
  1. ;;9002226.02101,"999,00054-8764-16 ",.02)
  1. ;;00054-8764-16
  1. ;;9002226.02101,"999,00074-1664-13 ",.01)
  1. ;;00074-1664-13
  1. ;;9002226.02101,"999,00074-1664-13 ",.02)
  1. ;;00074-1664-13
  1. ;;9002226.02101,"999,00074-1665-13 ",.01)
  1. ;;00074-1665-13
  1. ;;9002226.02101,"999,00074-1665-13 ",.02)
  1. ;;00074-1665-13
  1. ;;9002226.02101,"999,00078-0458-05 ",.01)
  1. ;;00078-0458-05
  1. ;;9002226.02101,"999,00078-0458-05 ",.02)
  1. ;;00078-0458-05
  1. ;;9002226.02101,"999,00078-0458-09 ",.01)
  1. ;;00078-0458-09
  1. ;;9002226.02101,"999,00078-0458-09 ",.02)
  1. ;;00078-0458-09
  1. ;;9002226.02101,"999,00078-0459-05 ",.01)
  1. ;;00078-0459-05
  1. ;;9002226.02101,"999,00078-0459-05 ",.02)
  1. ;;00078-0459-05
  1. ;;9002226.02101,"999,00078-0459-09 ",.01)
  1. ;;00078-0459-09
  1. ;;9002226.02101,"999,00078-0459-09 ",.02)
  1. ;;00078-0459-09
  1. ;;9002226.02101,"999,00078-0460-05 ",.01)
  1. ;;00078-0460-05
  1. ;;9002226.02101,"999,00078-0460-05 ",.02)
  1. ;;00078-0460-05
  1. ;;9002226.02101,"999,00078-0461-05 ",.01)
  1. ;;00078-0461-05
  1. ;;9002226.02101,"999,00078-0461-05 ",.02)
  1. ;;00078-0461-05
  1. ;;9002226.02101,"999,00078-0462-05 ",.01)
  1. ;;00078-0462-05
  1. ;;9002226.02101,"999,00078-0462-05 ",.02)
  1. ;;00078-0462-05
  1. ;;9002226.02101,"999,00085-0244-04 ",.01)
  1. ;;00085-0244-04
  1. ;;9002226.02101,"999,00085-0244-04 ",.02)
  1. ;;00085-0244-04
  1. ;;9002226.02101,"999,00085-0244-05 ",.01)
  1. ;;00085-0244-05
  1. ;;9002226.02101,"999,00085-0244-05 ",.02)
  1. ;;00085-0244-05
  1. ;;9002226.02101,"999,00085-0244-07 ",.01)
  1. ;;00085-0244-07
  1. ;;9002226.02101,"999,00085-0244-07 ",.02)
  1. ;;00085-0244-07
  1. ;;9002226.02101,"999,00085-0244-08 ",.01)
  1. ;;00085-0244-08
  1. ;;9002226.02101,"999,00085-0244-08 ",.02)
  1. ;;00085-0244-08
  1. ;;9002226.02101,"999,00085-0438-03 ",.01)
  1. ;;00085-0438-03
  1. ;;9002226.02101,"999,00085-0438-03 ",.02)
  1. ;;00085-0438-03
  1. ;;9002226.02101,"999,00085-0438-05 ",.01)
  1. ;;00085-0438-05
  1. ;;9002226.02101,"999,00085-0438-05 ",.02)
  1. ;;00085-0438-05
  1. ;;9002226.02101,"999,00085-0438-06 ",.01)
  1. ;;00085-0438-06
  1. ;;9002226.02101,"999,00085-0438-06 ",.02)
  1. ;;00085-0438-06
  1. ;;9002226.02101,"999,00085-0752-04 ",.01)
  1. ;;00085-0752-04
  1. ;;9002226.02101,"999,00085-0752-04 ",.02)
  1. ;;00085-0752-04
  1. ;;9002226.02101,"999,00085-0752-05 ",.01)
  1. ;;00085-0752-05
  1. ;;9002226.02101,"999,00085-0752-05 ",.02)
  1. ;;00085-0752-05
  1. ;;9002226.02101,"999,00085-0752-07 ",.01)
  1. ;;00085-0752-07
  1. ;;9002226.02101,"999,00085-0752-07 ",.02)
  1. ;;00085-0752-07
  1. ;;9002226.02101,"999,00085-0752-08 ",.01)
  1. ;;00085-0752-08
  1. ;;9002226.02101,"999,00085-0752-08 ",.02)
  1. ;;00085-0752-08
  1. ;;9002226.02101,"999,00091-4500-15 ",.01)
  1. ;;00091-4500-15
  1. ;;9002226.02101,"999,00091-4500-15 ",.02)
  1. ;;00091-4500-15
  1. ;;9002226.02101,"999,00093-0051-01 ",.01)
  1. ;;00093-0051-01
  1. ;;9002226.02101,"999,00093-0051-01 ",.02)
  1. ;;00093-0051-01
  1. ;;9002226.02101,"999,00093-0051-05 ",.01)
  1. ;;00093-0051-05
  1. ;;9002226.02101,"999,00093-0051-05 ",.02)
  1. ;;00093-0051-05
  1. ;;9002226.02101,"999,00093-0135-01 ",.01)
  1. ;;00093-0135-01
  1. ;;9002226.02101,"999,00093-0135-01 ",.02)
  1. ;;00093-0135-01
  1. ;;9002226.02101,"999,00093-0135-05 ",.01)
  1. ;;00093-0135-05
  1. ;;9002226.02101,"999,00093-0135-05 ",.02)
  1. ;;00093-0135-05
  1. ;;9002226.02101,"999,00093-0733-01 ",.01)
  1. ;;00093-0733-01
  1. ;;9002226.02101,"999,00093-0733-01 ",.02)
  1. ;;00093-0733-01
  1. ;;9002226.02101,"999,00093-0733-10 ",.01)
  1. ;;00093-0733-10
  1. ;;9002226.02101,"999,00093-0733-10 ",.02)
  1. ;;00093-0733-10
  1. ;;9002226.02101,"999,00093-0734-01 ",.01)
  1. ;;00093-0734-01
  1. ;;9002226.02101,"999,00093-0734-01 ",.02)
  1. ;;00093-0734-01
  1. ;;9002226.02101,"999,00093-0734-10 ",.01)
  1. ;;00093-0734-10
  1. ;;9002226.02101,"999,00093-0734-10 ",.02)
  1. ;;00093-0734-10
  1. ;;9002226.02101,"999,00093-0752-01 ",.01)
  1. ;;00093-0752-01
  1. ;;9002226.02101,"999,00093-0752-01 ",.02)
  1. ;;00093-0752-01
  1. ;;9002226.02101,"999,00093-0752-10 ",.01)
  1. ;;00093-0752-10
  1. ;;9002226.02101,"999,00093-0752-10 ",.02)
  1. ;;00093-0752-10
  1. ;;9002226.02101,"999,00093-0753-01 ",.01)
  1. ;;00093-0753-01
  1. ;;9002226.02101,"999,00093-0753-01 ",.02)
  1. ;;00093-0753-01
  1. ;;9002226.02101,"999,00093-0753-05 ",.01)
  1. ;;00093-0753-05
  1. ;;9002226.02101,"999,00093-0753-05 ",.02)
  1. ;;00093-0753-05
  1. ;;9002226.02101,"999,00093-0787-01 ",.01)
  1. ;;00093-0787-01
  1. ;;9002226.02101,"999,00093-0787-01 ",.02)
  1. ;;00093-0787-01
  1. ;;9002226.02101,"999,00093-0787-10 ",.01)
  1. ;;00093-0787-10