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