©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
BGP21I ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
;;BGP PQA BIGUANIDE NDC
;
; This routine loads Taxonomy BGP PQA BIGUANIDE 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,"00003-4221-11 ")
;;897
;;21,"00003-4222-16 ")
;;895
;;21,"00003-4223-11 ")
;;896
;;21,"00006-0575-52 ")
;;906
;;21,"00006-0575-61 ")
;;907
;;21,"00006-0575-62 ")
;;908
;;21,"00006-0575-82 ")
;;909
;;21,"00006-0577-52 ")
;;899
;;21,"00006-0577-61 ")
;;900
;;21,"00006-0577-62 ")
;;901
;;21,"00006-0577-82 ")
;;902
;;21,"00007-3163-18 ")
;;1133
;;21,"00007-3164-18 ")
;;1142
;;21,"00007-3166-18 ")
;;1130
;;21,"00007-3166-20 ")
;;1132
;;21,"00007-3167-18 ")
;;1135
;;21,"00007-3167-20 ")
;;1141
;;21,"00007-3168-18 ")
;;1146
;;21,"00007-3168-20 ")
;;1150
;;21,"00087-6060-05 ")
;;231
;;21,"00087-6060-10 ")
;;232
;;21,"00087-6063-13 ")
;;754
;;21,"00087-6064-13 ")
;;861
;;21,"00087-6070-05 ")
;;554
;;21,"00087-6071-11 ")
;;13
;;21,"00087-6072-11 ")
;;957
;;21,"00087-6073-11 ")
;;994
;;21,"00087-6074-11 ")
;;1040
;;21,"00087-6077-31 ")
;;934
;;21,"00087-6078-31 ")
;;951
;;21,"00087-6081-31 ")
;;914
;;21,"00093-1048-01 ")
;;233
;;21,"00093-1048-05 ")
;;539
;;21,"00093-1048-10 ")
;;234
;;21,"00093-1048-19 ")
;;235
;;21,"00093-1048-93 ")
;;236
;;21,"00093-1048-98 ")
;;237
;;21,"00093-1049-01 ")
;;555
;;21,"00093-1049-05 ")
;;737
;;21,"00093-1049-10 ")
;;556
;;21,"00093-1049-19 ")
;;698
;;21,"00093-1049-93 ")
;;699
;;21,"00093-1049-98 ")
;;557
;;21,"00093-5710-01 ")
;;958
;;21,"00093-5710-05 ")
;;959
;;21,"00093-5710-19 ")
;;980
;;21,"00093-5710-83 ")
;;982
;;21,"00093-5710-93 ")
;;981
;;21,"00093-5711-01 ")
;;995
;;21,"00093-5711-05 ")
;;996
;;21,"00093-5711-19 ")
;;997
;;21,"00093-5711-93 ")
;;998
;;21,"00093-5712-01 ")
;;1041
;;21,"00093-5712-05 ")
;;1042
;;21,"00093-5712-19 ")
;;1098
;;21,"00093-5712-93 ")
;;1099
;;21,"00093-7212-01 ")
;;862
;;21,"00093-7214-01 ")
;;14
;;21,"00093-7214-05 ")
;;218
;;21,"00093-7214-10 ")
;;15
;;21,"00093-7214-98 ")
;;16
;;21,"00093-7260-01 ")
;;983
;;21,"00093-7261-01 ")
;;1030
;;21,"00093-7261-05 ")
;;1031
;;21,"00093-7262-01 ")
;;1117
;;21,"00093-7262-05 ")
;;1107
;;21,"00093-7267-01 ")
;;755
;;21,"00093-7267-10 ")
;;756
;;21,"00093-7455-01 ")
;;915
;;21,"00093-7456-01 ")
;;925
;;21,"00093-7457-01 ")
;;941
;;21,"00169-0092-01 ")
;;913
;;21,"00169-0093-01 ")
;;912
;;21,"00172-4330-00 ")
;;711
;;21,"00172-4330-10 ")
;;712
;;21,"00172-4330-60 ")
;;715
;;21,"00172-4330-70 ")
;;726
;;21,"00172-4330-80 ")
;;714
;;21,"00172-4331-00 ")
;;500
;;21,"00172-4331-10 ")
;;501
;;21,"00172-4331-60 ")
;;506
;;21,"00172-4331-70 ")
;;524
;;21,"00172-4331-80 ")
;;504
;;21,"00172-4331-88 ")
;;543
;;21,"00172-4432-00 ")
;;192
;;21,"00172-4432-10 ")
;;193
;;21,"00172-4432-60 ")
;;195
;;21,"00172-4432-70 ")
;;221
;;21,"00172-4432-80 ")
;;194
;;21,"00172-4435-00 ")
;;847
;;21,"00172-4435-10 ")
;;848
;;21,"00172-4435-60 ")
;;853
;;21,"00172-4435-70 ")
;;849
;;21,"00172-5710-00 ")
;;984
;;21,"00172-5710-10 ")
;;985
;;21,"00172-5710-60 ")
;;986
;;21,"00172-5710-70 ")
;;988
;;21,"00172-5710-84 ")
;;987
;;21,"00172-5711-00 ")
;;1032
;;21,"00172-5711-10 ")
;;1033
;;21,"00172-5711-60 ")
;;1036
;;21,"00172-5711-70 ")
;;1037
;;21,"00172-5711-88 ")
;;1035
;;21,"00172-5712-00 ")
;;1108
;;21,"00172-5712-10 ")
;;1109
;;21,"00172-5712-60 ")
;;1111
;;21,"00172-5712-70 ")
;;1112
;;21,"00172-5712-88 ")
;;1110
;;21,"00185-0213-01 ")
;;517
;;21,"00185-0213-05 ")
;;518
;;21,"00185-0215-01 ")
;;721
;;21,"00185-0215-05 ")
;;722
;;21,"00185-0221-01 ")
;;203
;;21,"00185-0221-05 ")
;;204
;;21,"00185-4416-01 ")
;;757
;;21,"00185-4416-05 ")
;;844
;;21,"00228-2657-11 ")
;;540
;;21,"00228-2657-50 ")
;;541
;;21,"00228-2715-11 ")
;;739
;;21,"00228-2715-50 ")
;;740
;;21,"00228-2718-11 ")
;;219
;;21,"00228-2718-50 ")
;;220
;;21,"00228-2728-11 ")
;;877
;;21,"00228-2740-11 ")
;;859
;;21,"00228-2751-11 ")
;;960
;;21,"00228-2751-50 ")
;;961
;;21,"00228-2752-11 ")
;;999
;;21,"00228-2752-50 ")
;;1000
;;21,"00228-2753-11 ")
;;1043
;;21,"00228-2753-50 ")
;;1044
;;21,"00247-1443-30 ")
;;238
;;21,"00378-0234-01 ")
;;239
;;21,"00378-0234-05 ")
;;240
;;21,"00378-0240-01 ")
;;558
;;21,"00378-0244-01 ")
;;17
;;21,"00378-0350-01 ")
;;863
;;21,"00378-0352-01 ")
;;758
;;21,"00378-0352-05 ")
;;759
;;21,"00378-3131-01 ")
;;916
;;21,"00378-3132-01 ")
;;926
;;21,"00378-3133-01 ")
;;942
;;21,"00378-7185-05 ")
;;241
;;21,"00378-7186-05 ")
;;559
;;21,"00378-7187-05 ")
;;18
;;21,"00406-2028-01 ")
;;242
;;21,"00406-2028-05 ")
;;243
;
OTHER ; OTHER ROUTINES
D ^BGP21I10
D ^BGP21I11
D ^BGP21I12
D ^BGP21I13
D ^BGP21I14
D ^BGP21I15
D ^BGP21I16
D ^BGP21I17
D ^BGP21I18
D ^BGP21I19
D ^BGP21I2
D ^BGP21I20
D ^BGP21I21
D ^BGP21I22
D ^BGP21I23
D ^BGP21I24
D ^BGP21I25
D ^BGP21I26
D ^BGP21I27
D ^BGP21I28
D ^BGP21I29
D ^BGP21I3
D ^BGP21I30
D ^BGP21I31
D ^BGP21I32
D ^BGP21I33
D ^BGP21I34
D ^BGP21I35
D ^BGP21I4
D ^BGP21I5
D ^BGP21I6
D ^BGP21I7
D ^BGP21I8
D ^BGP21I9
Q