Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP21K

BGP21K.m

Go to the documentation of this file.
  1. BGP21K ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
  1. ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
  1. ;;BGP PQA THIAZOLIDINEDIONE NDC
  1. ;
  1. ; This routine loads Taxonomy BGP PQA THIAZOLIDINEDIONE NDC
  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. D OTHER
  1. I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
  1. I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
  1. D KILL^ATXSTX2
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"00007-3148-13 ")
  1. ;;43
  1. ;;21,"00007-3149-13 ")
  1. ;;44
  1. ;;21,"00007-3151-13 ")
  1. ;;36
  1. ;;21,"00007-3152-13 ")
  1. ;;38
  1. ;;21,"00007-3153-13 ")
  1. ;;40
  1. ;;21,"00007-3163-18 ")
  1. ;;16
  1. ;;21,"00007-3164-18 ")
  1. ;;25
  1. ;;21,"00007-3166-18 ")
  1. ;;13
  1. ;;21,"00007-3166-20 ")
  1. ;;15
  1. ;;21,"00007-3167-18 ")
  1. ;;18
  1. ;;21,"00007-3167-20 ")
  1. ;;24
  1. ;;21,"00007-3168-18 ")
  1. ;;29
  1. ;;21,"00007-3168-20 ")
  1. ;;33
  1. ;;21,"00029-3151-13 ")
  1. ;;37
  1. ;;21,"00029-3152-13 ")
  1. ;;39
  1. ;;21,"00029-3153-13 ")
  1. ;;41
  1. ;;21,"00029-3158-18 ")
  1. ;;128
  1. ;;21,"00029-3159-00 ")
  1. ;;166
  1. ;;21,"00029-3159-13 ")
  1. ;;145
  1. ;;21,"00029-3159-18 ")
  1. ;;174
  1. ;;21,"00029-3159-20 ")
  1. ;;172
  1. ;;21,"00029-3160-13 ")
  1. ;;176
  1. ;;21,"00029-3160-20 ")
  1. ;;194
  1. ;;21,"00029-3160-59 ")
  1. ;;188
  1. ;;21,"12280-0003-60 ")
  1. ;;28
  1. ;;21,"12280-0004-60 ")
  1. ;;32
  1. ;;21,"12280-0060-15 ")
  1. ;;74
  1. ;;21,"12280-0060-30 ")
  1. ;;75
  1. ;;21,"12280-0062-00 ")
  1. ;;169
  1. ;;21,"12280-0062-30 ")
  1. ;;170
  1. ;;21,"12280-0062-90 ")
  1. ;;171
  1. ;;21,"12280-0078-30 ")
  1. ;;192
  1. ;;21,"13411-0101-01 ")
  1. ;;77
  1. ;;21,"13411-0101-03 ")
  1. ;;78
  1. ;;21,"13411-0101-06 ")
  1. ;;79
  1. ;;21,"13411-0101-09 ")
  1. ;;80
  1. ;;21,"13411-0101-15 ")
  1. ;;81
  1. ;;21,"13411-0102-01 ")
  1. ;;110
  1. ;;21,"13411-0102-03 ")
  1. ;;111
  1. ;;21,"13411-0102-06 ")
  1. ;;112
  1. ;;21,"13411-0102-09 ")
  1. ;;113
  1. ;;21,"13411-0102-15 ")
  1. ;;114
  1. ;;21,"13411-0103-01 ")
  1. ;;49
  1. ;;21,"13411-0103-03 ")
  1. ;;50
  1. ;;21,"13411-0103-06 ")
  1. ;;51
  1. ;;21,"13411-0103-09 ")
  1. ;;52
  1. ;;21,"13411-0103-15 ")
  1. ;;53
  1. ;;21,"21695-0147-15 ")
  1. ;;54
  1. ;;21,"21695-0148-15 ")
  1. ;;82
  1. ;;21,"23490-0104-03 ")
  1. ;;45
  1. ;;21,"35356-0130-60 ")
  1. ;;5
  1. ;;21,"35356-0271-60 ")
  1. ;;129
  1. ;;21,"47463-0583-30 ")
  1. ;;46
  1. ;;21,"47463-0584-30 ")
  1. ;;76
  1. ;;21,"47463-0585-30 ")
  1. ;;109
  1. ;;21,"47463-0764-60 ")
  1. ;;127
  1. ;;21,"47463-0765-30 ")
  1. ;;144
  1. ;;21,"47463-0766-30 ")
  1. ;;175
  1. ;;21,"49999-0304-30 ")
  1. ;;146
  1. ;;21,"49999-0449-15 ")
  1. ;;47
  1. ;;21,"49999-0449-30 ")
  1. ;;55
  1. ;;21,"49999-0450-30 ")
  1. ;;83
  1. ;;21,"49999-0451-30 ")
  1. ;;115
  1. ;;21,"49999-0451-90 ")
  1. ;;116
  1. ;;21,"49999-0935-30 ")
  1. ;;177
  1. ;;21,"54569-4801-00 ")
  1. ;;143
  1. ;;21,"54569-4802-00 ")
  1. ;;167
  1. ;;21,"54569-4803-00 ")
  1. ;;190
  1. ;;21,"54569-4880-00 ")
  1. ;;56
  1. ;;21,"54569-4881-00 ")
  1. ;;84
  1. ;;21,"54569-4882-00 ")
  1. ;;117
  1. ;;21,"54569-5603-00 ")
  1. ;;23
  1. ;;21,"54868-4198-00 ")
  1. ;;147
  1. ;;21,"54868-4198-01 ")
  1. ;;148
  1. ;;21,"54868-4221-00 ")
  1. ;;178
  1. ;;21,"54868-4343-00 ")
  1. ;;57
  1. ;;21,"54868-4343-01 ")
  1. ;;58
  1. ;;21,"54868-4354-00 ")
  1. ;;85
  1. ;;21,"54868-4354-01 ")
  1. ;;86
  1. ;;21,"54868-4391-00 ")
  1. ;;118
  1. ;;21,"54868-4391-01 ")
  1. ;;119
  1. ;;21,"54868-4965-00 ")
  1. ;;19
  1. ;;21,"54868-4965-01 ")
  1. ;;20
  1. ;;21,"54868-4965-02 ")
  1. ;;21
  1. ;;21,"54868-5157-00 ")
  1. ;;30
  1. ;;21,"54868-5157-01 ")
  1. ;;31
  1. ;;21,"54868-5249-00 ")
  1. ;;130
  1. ;;21,"54868-5249-01 ")
  1. ;;131
  1. ;;21,"54868-5262-00 ")
  1. ;;26
  1. ;;21,"54868-5262-01 ")
  1. ;;27
  1. ;;21,"54868-5376-00 ")
  1. ;;17
  1. ;;21,"54868-5379-00 ")
  1. ;;14
  1. ;;21,"54868-5500-00 ")
  1. ;;1
  1. ;;21,"54868-5500-01 ")
  1. ;;2
  1. ;;21,"54868-5553-00 ")
  1. ;;6
  1. ;;21,"54868-5553-01 ")
  1. ;;7
  1. ;;21,"54868-5553-02 ")
  1. ;;8
  1. ;;21,"54868-5739-00 ")
  1. ;;42
  1. ;;21,"55289-0540-30 ")
  1. ;;124
  1. ;;21,"55289-0862-15 ")
  1. ;;100
  1. ;;21,"55289-0862-30 ")
  1. ;;101
  1. ;;21,"55289-0938-30 ")
  1. ;;191
  1. ;;21,"57866-0069-08 ")
  1. ;;163
  1. ;;21,"57866-0069-09 ")
  1. ;;164
  1. ;;21,"57866-1264-02 ")
  1. ;;165
  1. ;;21,"57866-1364-03 ")
  1. ;;189
  1. ;;21,"58016-0081-00 ")
  1. ;;179
  1. ;;21,"58016-0081-30 ")
  1. ;;180
  1. ;;21,"58016-0081-60 ")
  1. ;;181
  1. ;;21,"58016-0081-90 ")
  1. ;;182
  1. ;;21,"58016-0082-00 ")
  1. ;;132
  1. ;;21,"58016-0082-30 ")
  1. ;;133
  1. ;;21,"58016-0082-60 ")
  1. ;;134
  1. ;;21,"58016-0082-90 ")
  1. ;;135
  1. ;;21,"58864-0670-14 ")
  1. ;;71
  1. ;;21,"58864-0670-30 ")
  1. ;;72
  1. ;;21,"58864-0687-30 ")
  1. ;;149
  1. ;;21,"58864-0687-60 ")
  1. ;;150
  1. ;;21,"58864-0745-15 ")
  1. ;;102
  1. ;;21,"58864-0745-30 ")
  1. ;;103
  1. ;;21,"58864-0827-60 ")
  1. ;;173
  1. ;;21,"63629-1269-01 ")
  1. ;;151
  1. ;;21,"64764-0151-04 ")
  1. ;;59
  1. ;;21,"64764-0151-05 ")
  1. ;;60
  1. ;;21,"64764-0151-06 ")
  1. ;;61
  1. ;;21,"64764-0155-18 ")
  1. ;;3
  1. ;;21,"64764-0155-60 ")
  1. ;;4
  1. ;;21,"64764-0158-18 ")
  1. ;;9
  1. ;;21,"64764-0158-60 ")
  1. ;;10
  1. ;;21,"64764-0301-14 ")
  1. ;;87
  1. ;;21,"64764-0301-15 ")
  1. ;;88
  1. ;;21,"64764-0301-16 ")
  1. ;;89
  1. ;;21,"64764-0302-30 ")
  1. ;;34
  1. ;;21,"64764-0304-30 ")
  1. ;;35
  1. ;;21,"64764-0310-30 ")
  1. ;;12
  1. ;;21,"64764-0451-24 ")
  1. ;;120
  1. ;;21,"64764-0451-25 ")
  1. ;;121
  1. ;;21,"64764-0451-26 ")
  1. ;;122
  1. ;;21,"64764-0510-30 ")
  1. ;;11
  1. ;;21,"65243-0195-09 ")
  1. ;;152
  1. ;;21,"65243-0195-12 ")
  1. ;;153
  1. ;;21,"65243-0196-09 ")
  1. ;;183
  1. ;;21,"66105-0145-01 ")
  1. ;;136
  1. ;;21,"66105-0145-03 ")
  1. ;;137
  1. ;;21,"66105-0145-06 ")
  1. ;;138
  1. ;;21,"66105-0145-09 ")
  1. ;;139
  1. ;;21,"66105-0145-15 ")
  1. ;;140
  1. ;;21,"66105-0154-01 ")
  1. ;;90
  1. ;;21,"66105-0154-03 ")
  1. ;;91
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP21K2
  1. D ^BGP21K3
  1. D ^BGP21K4
  1. D ^BGP21K5
  1. D ^BGP21K6
  1. Q