©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
BGP21L ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
;;BGP PQA STATIN NDC
;
; This routine loads Taxonomy BGP PQA STATIN 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,"00002-4770-90 ")
;;575
;;21,"00002-4771-90 ")
;;576
;;21,"00002-4772-90 ")
;;577
;;21,"00003-5154-05 ")
;;589
;;21,"00003-5168-11 ")
;;55
;;21,"00003-5169-11 ")
;;52
;;21,"00003-5173-11 ")
;;56
;;21,"00003-5174-11 ")
;;53
;;21,"00003-5178-05 ")
;;646
;;21,"00003-5178-06 ")
;;630
;;21,"00003-5178-75 ")
;;637
;;21,"00003-5183-11 ")
;;57
;;21,"00003-5184-11 ")
;;54
;;21,"00003-5194-10 ")
;;735
;;21,"00003-5194-33 ")
;;713
;;21,"00003-5195-10 ")
;;812
;;21,"00003-5195-33 ")
;;806
;;21,"00006-0543-28 ")
;;1412
;;21,"00006-0543-31 ")
;;1424
;;21,"00006-0543-54 ")
;;1425
;;21,"00006-0543-61 ")
;;1404
;;21,"00006-0543-82 ")
;;1413
;;21,"00006-0726-28 ")
;;1342
;;21,"00006-0726-31 ")
;;1348
;;21,"00006-0726-54 ")
;;1343
;;21,"00006-0726-61 ")
;;1336
;;21,"00006-0726-82 ")
;;1345
;;21,"00006-0730-61 ")
;;266
;;21,"00006-0731-28 ")
;;339
;;21,"00006-0731-61 ")
;;363
;;21,"00006-0731-82 ")
;;342
;;21,"00006-0731-87 ")
;;343
;;21,"00006-0731-94 ")
;;344
;;21,"00006-0732-61 ")
;;479
;;21,"00006-0732-82 ")
;;455
;;21,"00006-0732-87 ")
;;456
;;21,"00006-0732-94 ")
;;457
;;21,"00006-0735-28 ")
;;921
;;21,"00006-0735-31 ")
;;931
;;21,"00006-0735-54 ")
;;932
;;21,"00006-0735-61 ")
;;912
;;21,"00006-0735-82 ")
;;924
;;21,"00006-0735-87 ")
;;920
;;21,"00006-0740-28 ")
;;1037
;;21,"00006-0740-31 ")
;;1050
;;21,"00006-0740-54 ")
;;1051
;;21,"00006-0740-61 ")
;;1026
;;21,"00006-0740-82 ")
;;1041
;;21,"00006-0740-87 ")
;;1038
;;21,"00006-0749-28 ")
;;1188
;;21,"00006-0749-31 ")
;;1206
;;21,"00006-0749-54 ")
;;1207
;;21,"00006-0749-61 ")
;;1177
;;21,"00006-0749-82 ")
;;1196
;;21,"00069-2150-30 ")
;;80
;;21,"00069-2160-30 ")
;;59
;;21,"00069-2170-30 ")
;;85
;;21,"00069-2180-30 ")
;;63
;;21,"00069-2190-30 ")
;;88
;;21,"00069-2250-30 ")
;;67
;;21,"00069-2260-30 ")
;;90
;;21,"00069-2270-30 ")
;;71
;;21,"00069-2960-30 ")
;;74
;;21,"00069-2970-30 ")
;;75
;;21,"00069-2980-30 ")
;;77
;;21,"00071-0155-23 ")
;;102
;;21,"00071-0155-34 ")
;;103
;;21,"00071-0155-40 ")
;;104
;;21,"00071-0156-23 ")
;;141
;;21,"00071-0156-40 ")
;;142
;;21,"00071-0156-94 ")
;;143
;;21,"00071-0157-23 ")
;;177
;;21,"00071-0157-40 ")
;;178
;;21,"00071-0157-73 ")
;;179
;;21,"00071-0157-88 ")
;;180
;;21,"00071-0158-23 ")
;;211
;;21,"00071-0158-73 ")
;;212
;;21,"00071-0158-88 ")
;;213
;;21,"00071-0158-92 ")
;;214
;;21,"00074-3005-90 ")
;;1529
;;21,"00074-3007-90 ")
;;1522
;;21,"00074-3010-90 ")
;;1526
;;21,"00074-3072-90 ")
;;1536
;;21,"00074-3312-90 ")
;;1543
;;21,"00074-3315-90 ")
;;1547
;;21,"00074-3316-90 ")
;;1537
;;21,"00074-3455-90 ")
;;1538
;;21,"00074-3457-90 ")
;;1542
;;21,"00074-3459-90 ")
;;1546
;;21,"00078-0176-05 ")
;;234
;;21,"00078-0176-15 ")
;;235
;;21,"00078-0234-05 ")
;;251
;;21,"00078-0234-15 ")
;;252
;;21,"00078-0354-05 ")
;;258
;;21,"00078-0354-15 ")
;;259
;;21,"00093-0576-06 ")
;;364
;;21,"00093-0576-10 ")
;;365
;;21,"00093-0576-19 ")
;;366
;;21,"00093-0576-93 ")
;;367
;;21,"00093-0771-10 ")
;;590
;;21,"00093-0771-98 ")
;;591
;;21,"00093-0926-06 ")
;;281
;;21,"00093-0926-10 ")
;;282
;;21,"00093-0926-19 ")
;;283
;;21,"00093-0926-93 ")
;;284
;;21,"00093-0928-06 ")
;;480
;;21,"00093-0928-10 ")
;;481
;;21,"00093-0928-19 ")
;;482
;;21,"00093-0928-93 ")
;;483
;;21,"00093-7152-19 ")
;;1349
;;21,"00093-7152-56 ")
;;1350
;;21,"00093-7152-93 ")
;;1351
;;21,"00093-7152-98 ")
;;1352
;;21,"00093-7153-10 ")
;;933
;;21,"00093-7153-19 ")
;;934
;;21,"00093-7153-56 ")
;;935
;;21,"00093-7153-93 ")
;;936
;;21,"00093-7153-98 ")
;;937
;;21,"00093-7154-10 ")
;;1052
;;21,"00093-7154-19 ")
;;1053
;;21,"00093-7154-56 ")
;;1054
;;21,"00093-7154-93 ")
;;1055
;;21,"00093-7154-98 ")
;;1056
;;21,"00093-7155-10 ")
;;1208
;;21,"00093-7155-19 ")
;;1209
;;21,"00093-7155-56 ")
;;1210
;;21,"00093-7155-93 ")
;;1211
;;21,"00093-7155-98 ")
;;1212
;;21,"00093-7156-10 ")
;;1426
;;21,"00093-7156-56 ")
;;1427
;;21,"00093-7156-98 ")
;;1428
;;21,"00093-7201-10 ")
;;647
;;21,"00093-7201-98 ")
;;648
;;21,"00093-7202-10 ")
;;736
;;21,"00093-7202-98 ")
;;737
;;21,"00093-7270-10 ")
;;813
;;21,"00093-7270-98 ")
;;814
;;21,"00185-0070-01 ")
;;285
;;21,"00185-0070-05 ")
;;277
;;21,"00185-0070-10 ")
;;286
;;21,"00185-0070-60 ")
;;287
;;21,"00185-0072-01 ")
;;368
;;21,"00185-0072-10 ")
;;369
;;21,"00185-0072-60 ")
;;370
;;21,"00185-0074-01 ")
;;484
;;21,"00185-0074-10 ")
;;485
;
OTHER ; OTHER ROUTINES
D ^BGP21L10
D ^BGP21L11
D ^BGP21L12
D ^BGP21L13
D ^BGP21L14
D ^BGP21L15
D ^BGP21L16
D ^BGP21L17
D ^BGP21L18
D ^BGP21L19
D ^BGP21L2
D ^BGP21L20
D ^BGP21L21
D ^BGP21L22
D ^BGP21L23
D ^BGP21L24
D ^BGP21L25
D ^BGP21L26
D ^BGP21L27
D ^BGP21L28
D ^BGP21L29
D ^BGP21L3
D ^BGP21L30
D ^BGP21L31
D ^BGP21L32
D ^BGP21L33
D ^BGP21L34
D ^BGP21L35
D ^BGP21L36
D ^BGP21L37
D ^BGP21L38
D ^BGP21L39
D ^BGP21L4
D ^BGP21L40
D ^BGP21L41
D ^BGP21L42
D ^BGP21L43
D ^BGP21L44
D ^BGP21L45
D ^BGP21L46
D ^BGP21L47
D ^BGP21L5
D ^BGP21L6
D ^BGP21L7
D ^BGP21L8
D ^BGP21L9
Q