©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BGP21H ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
;;BGP PQA CCB NDC
;
; This routine loads Taxonomy BGP PQA CCB NDC
;
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
D OTHER
I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
D KILL^ATXSTX2
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"00004-0180-22 ")
;;1442
;;21,"00004-0180-91 ")
;;1440
;;21,"00004-0181-22 ")
;;1445
;;21,"00004-0181-91 ")
;;1446
;;21,"00004-0182-22 ")
;;1448
;;21,"00004-0183-01 ")
;;1419
;;21,"00004-0184-01 ")
;;1435
;;21,"00025-1771-31 ")
;;1882
;;21,"00025-1851-31 ")
;;1892
;;21,"00025-1851-51 ")
;;1926
;;21,"00025-1851-52 ")
;;1927
;;21,"00025-1861-31 ")
;;1809
;;21,"00025-1861-52 ")
;;1863
;;21,"00025-1891-31 ")
;;2059
;;21,"00025-1891-34 ")
;;2127
;;21,"00025-1891-51 ")
;;2060
;;21,"00025-1901-31 ")
;;1951
;;21,"00025-1901-34 ")
;;1993
;;21,"00025-1911-31 ")
;;1998
;;21,"00025-1911-34 ")
;;2048
;;21,"00025-2011-31 ")
;;2149
;;21,"00025-2011-34 ")
;;2150
;;21,"00025-2021-31 ")
;;2152
;;21,"00025-2021-34 ")
;;2153
;;21,"00026-8841-48 ")
;;1497
;;21,"00026-8841-51 ")
;;1498
;;21,"00026-8841-54 ")
;;1499
;;21,"00026-8841-72 ")
;;1504
;;21,"00026-8851-48 ")
;;1551
;;21,"00026-8851-51 ")
;;1552
;;21,"00026-8851-54 ")
;;1553
;;21,"00026-8851-72 ")
;;1556
;;21,"00026-8861-48 ")
;;1573
;;21,"00026-8861-51 ")
;;1574
;;21,"00044-1825-02 ")
;;2051
;;21,"00044-1826-02 ")
;;2147
;;21,"00044-1826-03 ")
;;2146
;;21,"00044-1827-02 ")
;;1995
;;21,"00048-5912-40 ")
;;147
;;21,"00048-5921-80 ")
;;154
;;21,"00048-5922-40 ")
;;159
;;21,"00048-5942-40 ")
;;167
;;21,"00054-0100-22 ")
;;411
;;21,"00054-0101-20 ")
;;498
;;21,"00054-0101-22 ")
;;499
;;21,"00054-0101-28 ")
;;500
;;21,"00054-0102-20 ")
;;256
;;21,"00054-0102-22 ")
;;257
;;21,"00054-0102-28 ")
;;258
;;21,"00069-1520-68 ")
;;412
;;21,"00069-1530-41 ")
;;501
;;21,"00069-1530-68 ")
;;502
;;21,"00069-1530-72 ")
;;503
;;21,"00069-1540-41 ")
;;259
;;21,"00069-1540-68 ")
;;260
;;21,"00069-2150-30 ")
;;236
;;21,"00069-2160-30 ")
;;215
;;21,"00069-2170-30 ")
;;242
;;21,"00069-2180-30 ")
;;219
;;21,"00069-2190-30 ")
;;245
;;21,"00069-2250-30 ")
;;224
;;21,"00069-2260-30 ")
;;247
;;21,"00069-2270-30 ")
;;228
;;21,"00069-2650-41 ")
;;1576
;;21,"00069-2650-66 ")
;;1577
;;21,"00069-2650-72 ")
;;1578
;;21,"00069-2660-41 ")
;;1665
;;21,"00069-2660-66 ")
;;1632
;;21,"00069-2660-72 ")
;;1633
;;21,"00069-2670-41 ")
;;1706
;;21,"00069-2670-66 ")
;;1676
;;21,"00069-2960-30 ")
;;231
;;21,"00069-2970-30 ")
;;232
;;21,"00069-2980-30 ")
;;234
;;21,"00074-1149-14 ")
;;1994
;;21,"00074-1486-14 ")
;;2049
;;21,"00074-1625-14 ")
;;2143
;;21,"00074-1625-54 ")
;;2144
;;21,"00074-3045-30 ")
;;933
;;21,"00074-3045-90 ")
;;934
;;21,"00074-3061-30 ")
;;943
;;21,"00074-3061-90 ")
;;944
;;21,"00074-3062-30 ")
;;955
;;21,"00074-3062-90 ")
;;956
;;21,"00074-3063-30 ")
;;967
;;21,"00074-3063-90 ")
;;968
;;21,"00074-3064-30 ")
;;977
;;21,"00074-3064-90 ")
;;978
;;21,"00074-3069-30 ")
;;990
;;21,"00074-3069-90 ")
;;991
;;21,"00074-3287-13 ")
;;148
;;21,"00074-3288-13 ")
;;145
;;21,"00074-3289-13 ")
;;155
;;21,"00074-3290-13 ")
;;160
;;21,"00078-0364-05 ")
;;6
;;21,"00078-0379-05 ")
;;38
;;21,"00078-0384-05 ")
;;139
;;21,"00078-0404-05 ")
;;47
;;21,"00078-0405-05 ")
;;65
;;21,"00078-0406-05 ")
;;100
;;21,"00078-0488-15 ")
;;205
;;21,"00078-0489-15 ")
;;198
;;21,"00078-0490-15 ")
;;208
;;21,"00078-0491-15 ")
;;201
;;21,"00078-0559-15 ")
;;172
;;21,"00078-0560-15 ")
;;173
;;21,"00078-0561-15 ")
;;168
;;21,"00078-0562-15 ")
;;169
;;21,"00078-0563-15 ")
;;170
;;21,"00078-0603-15 ")
;;2161
;;21,"00078-0604-15 ")
;;2160
;;21,"00078-0605-15 ")
;;2163
;;21,"00078-0606-15 ")
;;2162
;;21,"00078-0610-15 ")
;;2155
;;21,"00078-0611-15 ")
;;2158
;;21,"00078-0612-15 ")
;;2159
;;21,"00078-0613-15 ")
;;2156
;;21,"00078-0614-15 ")
;;2157
;;21,"00083-2255-30 ")
;;59
;;21,"00083-2260-30 ")
;;94
;;21,"00083-2265-30 ")
;;134
;;21,"00085-1701-01 ")
;;1453
;;21,"00085-1701-02 ")
;;1454
;;21,"00085-1701-03 ")
;;1455
;;21,"00085-1716-01 ")
;;1511
;;21,"00085-1716-02 ")
;;1512
;;21,"00085-1716-03 ")
;;1513
;;21,"00085-1722-01 ")
;;1558
;;21,"00085-1722-02 ")
;;1559
;;21,"00088-1771-47 ")
;;1173
;;21,"00088-1771-55 ")
;;1171
;;21,"00088-1771-90 ")
;;1180
;;21,"00088-1772-47 ")
;;1234
;;21,"00088-1772-55 ")
;;1235
;;21,"00088-1772-90 ")
;;1242
;;21,"00088-1777-47 ")
;;676
;;21,"00088-1778-47 ")
;;684
;;21,"00088-1779-47 ")
;;666
;;21,"00088-1791-47 ")
;;1269
;;21,"00088-1792-47 ")
;;1126
;;21,"00088-1795-30 ")
;;800
;;21,"00088-1795-42 ")
;;801
;;21,"00088-1795-49 ")
;;802
;;21,"00088-1796-30 ")
;;843
;;21,"00088-1796-42 ")
;;844
;;21,"00088-1796-49 ")
;;846
;
OTHER ; OTHER ROUTINES
D ^BGP21H10
D ^BGP21H11
D ^BGP21H12
D ^BGP21H13
D ^BGP21H14
D ^BGP21H15
D ^BGP21H16
D ^BGP21H17
D ^BGP21H18
D ^BGP21H19
D ^BGP21H2
D ^BGP21H20
D ^BGP21H21
D ^BGP21H22
D ^BGP21H23
D ^BGP21H24
D ^BGP21H25
D ^BGP21H26
D ^BGP21H27
D ^BGP21H28
D ^BGP21H29
D ^BGP21H3
D ^BGP21H30
D ^BGP21H31
D ^BGP21H32
D ^BGP21H33
D ^BGP21H34
D ^BGP21H35
D ^BGP21H36
D ^BGP21H37
D ^BGP21H38
D ^BGP21H39
D ^BGP21H4
D ^BGP21H40
D ^BGP21H41
D ^BGP21H42
D ^BGP21H43
D ^BGP21H44
D ^BGP21H45
D ^BGP21H46
D ^BGP21H47
D ^BGP21H48
D ^BGP21H49
D ^BGP21H5
D ^BGP21H50
D ^BGP21H51
D ^BGP21H52
D ^BGP21H53
D ^BGP21H54
D ^BGP21H55
D ^BGP21H56
D ^BGP21H57
D ^BGP21H58
D ^BGP21H59
D ^BGP21H6
D ^BGP21H60
D ^BGP21H61
D ^BGP21H62
D ^BGP21H63
D ^BGP21H64
D ^BGP21H65
D ^BGP21H66
D ^BGP21H7
D ^BGP21H8
D ^BGP21H9
Q