©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
BGP21J ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
;;BGP PQA SULFONYLUREA NDC
;
; This routine loads Taxonomy BGP PQA SULFONYLUREA 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,"00007-3148-13 ")
;;1283
;;21,"00007-3149-13 ")
;;1284
;;21,"00007-3151-13 ")
;;1276
;;21,"00007-3152-13 ")
;;1278
;;21,"00007-3153-13 ")
;;1280
;;21,"00009-0070-02 ")
;;1252
;;21,"00009-0114-04 ")
;;1262
;;21,"00009-0114-05 ")
;;1263
;;21,"00009-0131-01 ")
;;929
;;21,"00009-0141-01 ")
;;1009
;;21,"00009-0141-02 ")
;;1018
;;21,"00009-0171-03 ")
;;1237
;;21,"00009-0171-05 ")
;;1217
;;21,"00009-0171-06 ")
;;1040
;;21,"00009-0171-07 ")
;;1234
;;21,"00009-0341-01 ")
;;813
;;21,"00009-0341-02 ")
;;829
;;21,"00009-0352-01 ")
;;831
;;21,"00009-0352-02 ")
;;832
;;21,"00009-0352-03 ")
;;863
;;21,"00009-0352-04 ")
;;833
;;21,"00009-3449-01 ")
;;869
;;21,"00009-3449-03 ")
;;870
;;21,"00029-3151-13 ")
;;1277
;;21,"00029-3152-13 ")
;;1279
;;21,"00029-3153-13 ")
;;1281
;;21,"00039-0051-10 ")
;;938
;;21,"00039-0051-11 ")
;;1022
;;21,"00039-0051-50 ")
;;1007
;;21,"00039-0052-10 ")
;;1041
;;21,"00039-0052-11 ")
;;1241
;;21,"00039-0052-50 ")
;;1233
;;21,"00039-0052-70 ")
;;1042
;;21,"00039-0053-05 ")
;;901
;;21,"00039-0221-10 ")
;;261
;;21,"00039-0222-10 ")
;;286
;;21,"00039-0222-11 ")
;;329
;;21,"00039-0223-10 ")
;;336
;;21,"00039-0223-11 ")
;;386
;;21,"00049-1550-66 ")
;;767
;;21,"00049-1550-73 ")
;;768
;;21,"00049-1560-66 ")
;;702
;;21,"00049-1560-73 ")
;;703
;;21,"00049-1620-30 ")
;;755
;;21,"00049-4110-66 ")
;;545
;;21,"00049-4110-73 ")
;;546
;;21,"00049-4120-66 ")
;;390
;;21,"00049-4120-73 ")
;;531
;;21,"00069-3930-66 ")
;;213
;;21,"00069-3940-66 ")
;;245
;;21,"00069-3940-82 ")
;;249
;;21,"00087-6072-11 ")
;;44
;;21,"00087-6073-11 ")
;;81
;;21,"00087-6074-11 ")
;;127
;;21,"00087-6077-31 ")
;;21
;;21,"00087-6078-31 ")
;;38
;;21,"00087-6081-31 ")
;;1
;;21,"00093-5710-01 ")
;;45
;;21,"00093-5710-05 ")
;;46
;;21,"00093-5710-19 ")
;;67
;;21,"00093-5710-83 ")
;;69
;;21,"00093-5710-93 ")
;;68
;;21,"00093-5711-01 ")
;;82
;;21,"00093-5711-05 ")
;;83
;;21,"00093-5711-19 ")
;;84
;;21,"00093-5711-93 ")
;;85
;;21,"00093-5712-01 ")
;;128
;;21,"00093-5712-05 ")
;;129
;;21,"00093-5712-19 ")
;;185
;;21,"00093-5712-93 ")
;;186
;;21,"00093-7254-01 ")
;;262
;;21,"00093-7255-01 ")
;;287
;;21,"00093-7256-01 ")
;;337
;;21,"00093-7256-52 ")
;;338
;;21,"00093-7260-01 ")
;;70
;;21,"00093-7261-01 ")
;;117
;;21,"00093-7261-05 ")
;;118
;;21,"00093-7262-01 ")
;;204
;;21,"00093-7262-05 ")
;;194
;;21,"00093-7455-01 ")
;;2
;;21,"00093-7456-01 ")
;;12
;;21,"00093-7457-01 ")
;;28
;;21,"00093-8034-01 ")
;;814
;;21,"00093-8035-01 ")
;;834
;;21,"00093-8035-05 ")
;;835
;;21,"00093-8035-10 ")
;;864
;;21,"00093-8036-01 ")
;;871
;;21,"00093-8342-01 ")
;;902
;;21,"00093-8343-01 ")
;;939
;;21,"00093-8343-05 ")
;;940
;;21,"00093-8343-10 ")
;;941
;;21,"00093-8343-98 ")
;;942
;;21,"00093-8344-01 ")
;;1043
;;21,"00093-8344-05 ")
;;1044
;;21,"00093-8344-10 ")
;;1045
;;21,"00093-8344-19 ")
;;1046
;;21,"00093-8344-93 ")
;;1047
;;21,"00093-8344-98 ")
;;1048
;;21,"00093-9364-01 ")
;;1049
;;21,"00093-9364-05 ")
;;1050
;;21,"00093-9364-10 ")
;;1051
;;21,"00093-9433-01 ")
;;943
;;21,"00093-9433-05 ")
;;944
;;21,"00093-9477-53 ")
;;903
;;21,"00143-9918-01 ")
;;815
;;21,"00143-9919-01 ")
;;836
;;21,"00143-9919-05 ")
;;837
;;21,"00143-9920-01 ")
;;872
;;21,"00143-9920-05 ")
;;873
;;21,"00143-9920-10 ")
;;874
;;21,"00172-2978-60 ")
;;1251
;;21,"00172-2979-60 ")
;;1261
;;21,"00172-2979-80 ")
;;1260
;;21,"00172-2980-60 ")
;;1267
;;21,"00172-3649-00 ")
;;664
;;21,"00172-3649-10 ")
;;665
;;21,"00172-3649-60 ")
;;547
;;21,"00172-3649-70 ")
;;680
;;21,"00172-3650-00 ")
;;510
;;21,"00172-3650-10 ")
;;511
;;21,"00172-3650-60 ")
;;391
;;21,"00172-3650-70 ")
;;392
;;21,"00172-5710-00 ")
;;71
;;21,"00172-5710-10 ")
;;72
;;21,"00172-5710-60 ")
;;73
;;21,"00172-5710-70 ")
;;75
;;21,"00172-5710-84 ")
;;74
;;21,"00172-5711-00 ")
;;119
;;21,"00172-5711-10 ")
;;120
;;21,"00172-5711-60 ")
;;123
;;21,"00172-5711-70 ")
;;124
;;21,"00172-5711-88 ")
;;122
;;21,"00172-5712-00 ")
;;195
;;21,"00172-5712-10 ")
;;196
;;21,"00172-5712-60 ")
;;198
;;21,"00172-5712-70 ")
;;199
;;21,"00172-5712-88 ")
;;197
;;21,"00182-1851-89 ")
;;211
;;21,"00182-1994-00 ")
;;672
;;21,"00182-1994-89 ")
;;673
;;21,"00182-1995-00 ")
;;517
;;21,"00182-1995-89 ")
;;518
;;21,"00182-2646-00 ")
;;1000
;;21,"00182-2646-89 ")
;;1001
;;21,"00182-2647-00 ")
;;1209
;;21,"00182-2647-89 ")
;;1210
;;21,"00228-2751-11 ")
;;47
;
OTHER ; OTHER ROUTINES
D ^BGP21J10
D ^BGP21J11
D ^BGP21J12
D ^BGP21J13
D ^BGP21J14
D ^BGP21J15
D ^BGP21J16
D ^BGP21J17
D ^BGP21J18
D ^BGP21J19
D ^BGP21J2
D ^BGP21J20
D ^BGP21J21
D ^BGP21J22
D ^BGP21J23
D ^BGP21J24
D ^BGP21J25
D ^BGP21J26
D ^BGP21J27
D ^BGP21J28
D ^BGP21J29
D ^BGP21J3
D ^BGP21J30
D ^BGP21J31
D ^BGP21J32
D ^BGP21J33
D ^BGP21J34
D ^BGP21J35
D ^BGP21J36
D ^BGP21J37
D ^BGP21J38
D ^BGP21J39
D ^BGP21J4
D ^BGP21J5
D ^BGP21J6
D ^BGP21J7
D ^BGP21J8
D ^BGP21J9
Q