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

BGP13Q8.m

Go to the documentation of this file.
BGP13Q8 ; 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,"68180-0589-01 ")
 ;;2381
 ;;21,"68180-0589-02 ")
 ;;2382
 ;;21,"68180-0590-01 ")
 ;;2383
 ;;21,"68180-0590-02 ")
 ;;2384
 ;;21,"68180-0591-01 ")
 ;;2385
 ;;21,"68180-0591-02 ")
 ;;2386
 ;;21,"68180-0755-01 ")
 ;;149
 ;;21,"68180-0756-01 ")
 ;;150
 ;;21,"68180-0757-01 ")
 ;;151
 ;;21,"68180-0758-01 ")
 ;;152
 ;;21,"68387-0543-30 ")
 ;;1979
 ;;21,"68462-0205-01 ")
 ;;1323
 ;;21,"68462-0206-01 ")
 ;;1324
 ;;21,"68462-0207-01 ")
 ;;1325
 ;;21,"68462-0294-01 ")
 ;;2421
 ;;21,"68462-0295-01 ")
 ;;2422
 ;;21,"68462-0296-01 ")
 ;;2423
 ;;21,"68462-0329-01 ")
 ;;2424
 ;;21,"68462-0367-10 ")
 ;;1117
 ;;21,"68462-0367-90 ")
 ;;1118
 ;;21,"68462-0368-10 ")
 ;;1119
 ;;21,"68462-0368-90 ")
 ;;1120
 ;;21,"68462-0369-10 ")
 ;;1121
 ;;21,"68462-0369-90 ")
 ;;1122
 ;;21,"68462-0554-01 ")
 ;;1144
 ;;21,"68462-0555-01 ")
 ;;1145
 ;;21,"68505-2510-02 ")
 ;;1123
 ;;21,"68505-2510-04 ")
 ;;1124
 ;;21,"68552-0221-10 ")
 ;;1125
 ;;21,"68552-0221-90 ")
 ;;1126
 ;;21,"68552-0222-10 ")
 ;;1127
 ;;21,"68552-0222-90 ")
 ;;1128
 ;;21,"68552-0223-10 ")
 ;;1129
 ;;21,"68552-0223-90 ")
 ;;1130
 ;;21,"68645-0160-59 ")
 ;;611
 ;;21,"68645-0161-59 ")
 ;;612
 ;;21,"68645-0162-59 ")
 ;;613
 ;;21,"68645-0163-59 ")
 ;;614
 ;;9002226,995,.01)
 ;;BGP HEDIS ACEI NDC
 ;;9002226,995,.02)
 ;;@
 ;;9002226,995,.04)
 ;;n
 ;;9002226,995,.06)
 ;;@
 ;;9002226,995,.08)
 ;;@
 ;;9002226,995,.09)
 ;;@
 ;;9002226,995,.11)
 ;;@
 ;;9002226,995,.12)
 ;;@
 ;;9002226,995,.13)
 ;;1
 ;;9002226,995,.14)
 ;;@
 ;;9002226,995,.15)
 ;;@
 ;;9002226,995,.16)
 ;;@
 ;;9002226,995,.17)
 ;;@
 ;;9002226,995,3101)
 ;;@
 ;;9002226.02101,"995,00003-0338-50 ",.01)
 ;;00003-0338-50
 ;;9002226.02101,"995,00003-0338-50 ",.02)
 ;;00003-0338-50
 ;;9002226.02101,"995,00003-0450-51 ",.01)
 ;;00003-0450-51
 ;;9002226.02101,"995,00003-0450-51 ",.02)
 ;;00003-0450-51
 ;;9002226.02101,"995,00003-0450-54 ",.01)
 ;;00003-0450-54
 ;;9002226.02101,"995,00003-0450-54 ",.02)
 ;;00003-0450-54
 ;;9002226.02101,"995,00003-0450-75 ",.01)
 ;;00003-0450-75
 ;;9002226.02101,"995,00003-0450-75 ",.02)
 ;;00003-0450-75
 ;;9002226.02101,"995,00003-0452-50 ",.01)
 ;;00003-0452-50
 ;;9002226.02101,"995,00003-0452-50 ",.02)
 ;;00003-0452-50
 ;;9002226.02101,"995,00003-0452-51 ",.01)
 ;;00003-0452-51
 ;;9002226.02101,"995,00003-0452-51 ",.02)
 ;;00003-0452-51
 ;;9002226.02101,"995,00003-0452-75 ",.01)
 ;;00003-0452-75
 ;;9002226.02101,"995,00003-0452-75 ",.02)
 ;;00003-0452-75
 ;;9002226.02101,"995,00003-0482-50 ",.01)
 ;;00003-0482-50
 ;;9002226.02101,"995,00003-0482-50 ",.02)
 ;;00003-0482-50
 ;;9002226.02101,"995,00003-0482-51 ",.01)
 ;;00003-0482-51
 ;;9002226.02101,"995,00003-0482-51 ",.02)
 ;;00003-0482-51
 ;;9002226.02101,"995,00003-0482-75 ",.01)
 ;;00003-0482-75
 ;;9002226.02101,"995,00003-0482-75 ",.02)
 ;;00003-0482-75
 ;;9002226.02101,"995,00003-0485-50 ",.01)
 ;;00003-0485-50
 ;;9002226.02101,"995,00003-0485-50 ",.02)
 ;;00003-0485-50
 ;;9002226.02101,"995,00006-0015-28 ",.01)
 ;;00006-0015-28
 ;;9002226.02101,"995,00006-0015-28 ",.02)
 ;;00006-0015-28
 ;;9002226.02101,"995,00006-0015-31 ",.01)
 ;;00006-0015-31
 ;;9002226.02101,"995,00006-0015-31 ",.02)
 ;;00006-0015-31
 ;;9002226.02101,"995,00006-0015-58 ",.01)
 ;;00006-0015-58
 ;;9002226.02101,"995,00006-0015-58 ",.02)
 ;;00006-0015-58
 ;;9002226.02101,"995,00006-0019-54 ",.01)
 ;;00006-0019-54
 ;;9002226.02101,"995,00006-0019-54 ",.02)
 ;;00006-0019-54
 ;;9002226.02101,"995,00006-0019-82 ",.01)
 ;;00006-0019-82
 ;;9002226.02101,"995,00006-0019-82 ",.02)
 ;;00006-0019-82
 ;;9002226.02101,"995,00006-0106-54 ",.01)
 ;;00006-0106-54
 ;;9002226.02101,"995,00006-0106-54 ",.02)
 ;;00006-0106-54
 ;;9002226.02101,"995,00006-0106-82 ",.01)
 ;;00006-0106-82
 ;;9002226.02101,"995,00006-0106-82 ",.02)
 ;;00006-0106-82
 ;;9002226.02101,"995,00006-0106-86 ",.01)
 ;;00006-0106-86
 ;;9002226.02101,"995,00006-0106-86 ",.02)
 ;;00006-0106-86
 ;;9002226.02101,"995,00006-0140-31 ",.01)
 ;;00006-0140-31
 ;;9002226.02101,"995,00006-0140-31 ",.02)
 ;;00006-0140-31
 ;;9002226.02101,"995,00006-0140-58 ",.01)
 ;;00006-0140-58
 ;;9002226.02101,"995,00006-0140-58 ",.02)
 ;;00006-0140-58
 ;;9002226.02101,"995,00006-0142-31 ",.01)
 ;;00006-0142-31
 ;;9002226.02101,"995,00006-0142-31 ",.02)
 ;;00006-0142-31
 ;;9002226.02101,"995,00006-0142-58 ",.01)
 ;;00006-0142-58
 ;;9002226.02101,"995,00006-0142-58 ",.02)
 ;;00006-0142-58
 ;;9002226.02101,"995,00006-0145-31 ",.01)
 ;;00006-0145-31
 ;;9002226.02101,"995,00006-0145-31 ",.02)
 ;;00006-0145-31
 ;;9002226.02101,"995,00006-0145-58 ",.01)
 ;;00006-0145-58
 ;;9002226.02101,"995,00006-0145-58 ",.02)
 ;;00006-0145-58
 ;;9002226.02101,"995,00006-0173-68 ",.01)
 ;;00006-0173-68
 ;;9002226.02101,"995,00006-0173-68 ",.02)
 ;;00006-0173-68
 ;;9002226.02101,"995,00006-0207-54 ",.01)
 ;;00006-0207-54
 ;;9002226.02101,"995,00006-0207-54 ",.02)
 ;;00006-0207-54
 ;;9002226.02101,"995,00006-0207-82 ",.01)
 ;;00006-0207-82
 ;;9002226.02101,"995,00006-0207-82 ",.02)
 ;;00006-0207-82
 ;;9002226.02101,"995,00006-0207-86 ",.01)
 ;;00006-0207-86
 ;;9002226.02101,"995,00006-0207-86 ",.02)
 ;;00006-0207-86
 ;;9002226.02101,"995,00006-0237-58 ",.01)
 ;;00006-0237-58
 ;;9002226.02101,"995,00006-0237-58 ",.02)
 ;;00006-0237-58
 ;;9002226.02101,"995,00032-1101-01 ",.01)
 ;;00032-1101-01
 ;;9002226.02101,"995,00032-1101-01 ",.02)
 ;;00032-1101-01
 ;;9002226.02101,"995,00032-1102-01 ",.01)
 ;;00032-1102-01
 ;;9002226.02101,"995,00032-1102-01 ",.02)
 ;;00032-1102-01
 ;;9002226.02101,"995,00032-1103-01 ",.01)
 ;;00032-1103-01
 ;;9002226.02101,"995,00032-1103-01 ",.02)
 ;;00032-1103-01
 ;;9002226.02101,"995,00038-0134-10 ",.01)
 ;;00038-0134-10
 ;;9002226.02101,"995,00038-0134-10 ",.02)
 ;;00038-0134-10
 ;;9002226.02101,"995,00038-0141-10 ",.01)
 ;;00038-0141-10
 ;;9002226.02101,"995,00038-0141-10 ",.02)
 ;;00038-0141-10
 ;;9002226.02101,"995,00038-0142-10 ",.01)
 ;;00038-0142-10
 ;;9002226.02101,"995,00038-0142-10 ",.02)
 ;;00038-0142-10
 ;;9002226.02101,"995,00038-0145-10 ",.01)
 ;;00038-0145-10
 ;;9002226.02101,"995,00038-0145-10 ",.02)
 ;;00038-0145-10
 ;;9002226.02101,"995,00054-0106-25 ",.01)
 ;;00054-0106-25
 ;;9002226.02101,"995,00054-0106-25 ",.02)
 ;;00054-0106-25
 ;;9002226.02101,"995,00054-0107-20 ",.01)
 ;;00054-0107-20
 ;;9002226.02101,"995,00054-0107-20 ",.02)
 ;;00054-0107-20
 ;;9002226.02101,"995,00054-0107-25 ",.01)
 ;;00054-0107-25
 ;;9002226.02101,"995,00054-0107-25 ",.02)
 ;;00054-0107-25
 ;;9002226.02101,"995,00054-0107-29 ",.01)
 ;;00054-0107-29
 ;;9002226.02101,"995,00054-0107-29 ",.02)
 ;;00054-0107-29
 ;;9002226.02101,"995,00054-0108-20 ",.01)
 ;;00054-0108-20
 ;;9002226.02101,"995,00054-0108-20 ",.02)
 ;;00054-0108-20
 ;;9002226.02101,"995,00054-0108-25 ",.01)
 ;;00054-0108-25
 ;;9002226.02101,"995,00054-0108-25 ",.02)
 ;;00054-0108-25
 ;;9002226.02101,"995,00054-0108-29 ",.01)
 ;;00054-0108-29
 ;;9002226.02101,"995,00054-0108-29 ",.02)
 ;;00054-0108-29
 ;;9002226.02101,"995,00054-0109-25 ",.01)
 ;;00054-0109-25
 ;;9002226.02101,"995,00054-0109-25 ",.02)
 ;;00054-0109-25
 ;;9002226.02101,"995,00054-0109-29 ",.01)
 ;;00054-0109-29
 ;;9002226.02101,"995,00054-0109-29 ",.02)
 ;;00054-0109-29
 ;;9002226.02101,"995,00054-0110-25 ",.01)
 ;;00054-0110-25
 ;;9002226.02101,"995,00054-0110-25 ",.02)
 ;;00054-0110-25
 ;;9002226.02101,"995,00054-0111-25 ",.01)
 ;;00054-0111-25
 ;;9002226.02101,"995,00054-0111-25 ",.02)
 ;;00054-0111-25
 ;;9002226.02101,"995,00054-0112-25 ",.01)
 ;;00054-0112-25
 ;;9002226.02101,"995,00054-0112-25 ",.02)
 ;;00054-0112-25
 ;;9002226.02101,"995,00071-0220-23 ",.01)
 ;;00071-0220-23
 ;;9002226.02101,"995,00071-0220-23 ",.02)
 ;;00071-0220-23
 ;;9002226.02101,"995,00071-0222-23 ",.01)
 ;;00071-0222-23
 ;;9002226.02101,"995,00071-0222-23 ",.02)
 ;;00071-0222-23
 ;;9002226.02101,"995,00071-0223-23 ",.01)
 ;;00071-0223-23
 ;;9002226.02101,"995,00071-0223-23 ",.02)
 ;;00071-0223-23
 ;;9002226.02101,"995,00071-0527-23 ",.01)
 ;;00071-0527-23
 ;;9002226.02101,"995,00071-0527-23 ",.02)
 ;;00071-0527-23
 ;;9002226.02101,"995,00071-0527-40 ",.01)
 ;;00071-0527-40
 ;;9002226.02101,"995,00071-0527-40 ",.02)
 ;;00071-0527-40
 ;;9002226.02101,"995,00071-0530-23 ",.01)
 ;;00071-0530-23
 ;;9002226.02101,"995,00071-0530-23 ",.02)
 ;;00071-0530-23
 ;;9002226.02101,"995,00071-0530-40 ",.01)
 ;;00071-0530-40
 ;;9002226.02101,"995,00071-0530-40 ",.02)
 ;;00071-0530-40
 ;;9002226.02101,"995,00071-0532-23 ",.01)
 ;;00071-0532-23
 ;;9002226.02101,"995,00071-0532-23 ",.02)
 ;;00071-0532-23
 ;;9002226.02101,"995,00071-0532-40 ",.01)
 ;;00071-0532-40
 ;;9002226.02101,"995,00071-0532-40 ",.02)
 ;;00071-0532-40
 ;;9002226.02101,"995,00071-0535-23 ",.01)
 ;;00071-0535-23
 ;;9002226.02101,"995,00071-0535-23 ",.02)
 ;;00071-0535-23
 ;;9002226.02101,"995,00074-2278-11 ",.01)
 ;;00074-2278-11
 ;;9002226.02101,"995,00074-2278-11 ",.02)
 ;;00074-2278-11
 ;;9002226.02101,"995,00074-2278-13 ",.01)
 ;;00074-2278-13
 ;;9002226.02101,"995,00074-2278-13 ",.02)
 ;;00074-2278-13
 ;;9002226.02101,"995,00074-2279-11 ",.01)
 ;;00074-2279-11
 ;;9002226.02101,"995,00074-2279-11 ",.02)
 ;;00074-2279-11
 ;;9002226.02101,"995,00074-2279-13 ",.01)
 ;;00074-2279-13
 ;;9002226.02101,"995,00074-2279-13 ",.02)
 ;;00074-2279-13
 ;;9002226.02101,"995,00074-2280-11 ",.01)
 ;;00074-2280-11
 ;;9002226.02101,"995,00074-2280-11 ",.02)
 ;;00074-2280-11
 ;;9002226.02101,"995,00074-2280-13 ",.01)
 ;;00074-2280-13
 ;;9002226.02101,"995,00074-2280-13 ",.02)
 ;;00074-2280-13
 ;;9002226.02101,"995,00074-3287-13 ",.01)
 ;;00074-3287-13
 ;;9002226.02101,"995,00074-3287-13 ",.02)
 ;;00074-3287-13
 ;;9002226.02101,"995,00074-3288-13 ",.01)
 ;;00074-3288-13
 ;;9002226.02101,"995,00074-3288-13 ",.02)
 ;;00074-3288-13
 ;;9002226.02101,"995,00074-3289-13 ",.01)
 ;;00074-3289-13
 ;;9002226.02101,"995,00074-3289-13 ",.02)
 ;;00074-3289-13
 ;;9002226.02101,"995,00074-3290-13 ",.01)
 ;;00074-3290-13
 ;;9002226.02101,"995,00074-3290-13 ",.02)
 ;;00074-3290-13
 ;;9002226.02101,"995,00078-0364-05 ",.01)
 ;;00078-0364-05
 ;;9002226.02101,"995,00078-0364-05 ",.02)
 ;;00078-0364-05
 ;;9002226.02101,"995,00078-0379-05 ",.01)
 ;;00078-0379-05
 ;;9002226.02101,"995,00078-0379-05 ",.02)
 ;;00078-0379-05
 ;;9002226.02101,"995,00078-0384-05 ",.01)
 ;;00078-0384-05
 ;;9002226.02101,"995,00078-0384-05 ",.02)
 ;;00078-0384-05
 ;;9002226.02101,"995,00078-0404-05 ",.01)
 ;;00078-0404-05
 ;;9002226.02101,"995,00078-0404-05 ",.02)
 ;;00078-0404-05
 ;;9002226.02101,"995,00078-0405-05 ",.01)
 ;;00078-0405-05
 ;;9002226.02101,"995,00078-0405-05 ",.02)
 ;;00078-0405-05
 ;;9002226.02101,"995,00078-0406-05 ",.01)
 ;;00078-0406-05
 ;;9002226.02101,"995,00078-0406-05 ",.02)
 ;;00078-0406-05
 ;;9002226.02101,"995,00078-0447-05 ",.01)
 ;;00078-0447-05
 ;;9002226.02101,"995,00078-0447-05 ",.02)
 ;;00078-0447-05
 ;;9002226.02101,"995,00078-0448-05 ",.01)
 ;;00078-0448-05
 ;;9002226.02101,"995,00078-0448-05 ",.02)
 ;;00078-0448-05
 ;;9002226.02101,"995,00078-0449-05 ",.01)
 ;;00078-0449-05
 ;;9002226.02101,"995,00078-0449-05 ",.02)
 ;;00078-0449-05
 ;;9002226.02101,"995,00078-0450-05 ",.01)
 ;;00078-0450-05
 ;;9002226.02101,"995,00078-0450-05 ",.02)
 ;;00078-0450-05
 ;;9002226.02101,"995,00078-0451-05 ",.01)
 ;;00078-0451-05
 ;;9002226.02101,"995,00078-0451-05 ",.02)
 ;;00078-0451-05
 ;;9002226.02101,"995,00078-0452-05 ",.01)
 ;;00078-0452-05
 ;;9002226.02101,"995,00078-0452-05 ",.02)
 ;;00078-0452-05
 ;;9002226.02101,"995,00078-0453-05 ",.01)
 ;;00078-0453-05
 ;;9002226.02101,"995,00078-0453-05 ",.02)
 ;;00078-0453-05
 ;;9002226.02101,"995,00078-0454-05 ",.01)
 ;;00078-0454-05
 ;;9002226.02101,"995,00078-0454-05 ",.02)
 ;;00078-0454-05
 ;;9002226.02101,"995,00083-0057-30 ",.01)
 ;;00083-0057-30
 ;;9002226.02101,"995,00083-0057-30 ",.02)
 ;;00083-0057-30
 ;;9002226.02101,"995,00083-0059-30 ",.01)
 ;;00083-0059-30
 ;;9002226.02101,"995,00083-0059-30 ",.02)
 ;;00083-0059-30
 ;;9002226.02101,"995,00083-0059-32 ",.01)
 ;;00083-0059-32
 ;;9002226.02101,"995,00083-0059-32 ",.02)
 ;;00083-0059-32
 ;;9002226.02101,"995,00083-0059-90 ",.01)
 ;;00083-0059-90
 ;;9002226.02101,"995,00083-0059-90 ",.02)
 ;;00083-0059-90
 ;;9002226.02101,"995,00083-0063-30 ",.01)
 ;;00083-0063-30
 ;;9002226.02101,"995,00083-0063-30 ",.02)
 ;;00083-0063-30
 ;;9002226.02101,"995,00083-0063-32 ",.01)
 ;;00083-0063-32
 ;;9002226.02101,"995,00083-0063-32 ",.02)
 ;;00083-0063-32
 ;;9002226.02101,"995,00083-0063-90 ",.01)
 ;;00083-0063-90