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