- BGP21K ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
- +1 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
- +2 ;;BGP PQA THIAZOLIDINEDIONE NDC
- +3 ;
- +4 ; This routine loads Taxonomy BGP PQA THIAZOLIDINEDIONE NDC
- +5 ;
- START ;
- +1 IF '$GET(ATXPGMC)
- KILL ^TMP("ATX",$JOB)
- +2 SET ATXPGMC=$GET(ATXPGMC)+1
- +3 FOR ATXI=1:1
- SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- IF X=""
- QUIT
- SET X="^TMP(""ATX"",$J,"_X
- SET ATXI=ATXI+1
- SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- SET @X=Y
- +4 DO OTHER
- +5 IF $ORDER(^TMP("ATX",$JOB,3.6,0))
- DO BULL^ATXSTX2
- +6 IF $ORDER(^TMP("ATX",$JOB,9002226,0))
- DO TAX^ATXSTX2
- +7 DO KILL^ATXSTX2
- +8 QUIT
- +9 ;
- TMP ;;TAXONOMY (WITH BULLETIN)
- +1 ;;21,"00007-3148-13 ")
- +2 ;;43
- +3 ;;21,"00007-3149-13 ")
- +4 ;;44
- +5 ;;21,"00007-3151-13 ")
- +6 ;;36
- +7 ;;21,"00007-3152-13 ")
- +8 ;;38
- +9 ;;21,"00007-3153-13 ")
- +10 ;;40
- +11 ;;21,"00007-3163-18 ")
- +12 ;;16
- +13 ;;21,"00007-3164-18 ")
- +14 ;;25
- +15 ;;21,"00007-3166-18 ")
- +16 ;;13
- +17 ;;21,"00007-3166-20 ")
- +18 ;;15
- +19 ;;21,"00007-3167-18 ")
- +20 ;;18
- +21 ;;21,"00007-3167-20 ")
- +22 ;;24
- +23 ;;21,"00007-3168-18 ")
- +24 ;;29
- +25 ;;21,"00007-3168-20 ")
- +26 ;;33
- +27 ;;21,"00029-3151-13 ")
- +28 ;;37
- +29 ;;21,"00029-3152-13 ")
- +30 ;;39
- +31 ;;21,"00029-3153-13 ")
- +32 ;;41
- +33 ;;21,"00029-3158-18 ")
- +34 ;;128
- +35 ;;21,"00029-3159-00 ")
- +36 ;;166
- +37 ;;21,"00029-3159-13 ")
- +38 ;;145
- +39 ;;21,"00029-3159-18 ")
- +40 ;;174
- +41 ;;21,"00029-3159-20 ")
- +42 ;;172
- +43 ;;21,"00029-3160-13 ")
- +44 ;;176
- +45 ;;21,"00029-3160-20 ")
- +46 ;;194
- +47 ;;21,"00029-3160-59 ")
- +48 ;;188
- +49 ;;21,"12280-0003-60 ")
- +50 ;;28
- +51 ;;21,"12280-0004-60 ")
- +52 ;;32
- +53 ;;21,"12280-0060-15 ")
- +54 ;;74
- +55 ;;21,"12280-0060-30 ")
- +56 ;;75
- +57 ;;21,"12280-0062-00 ")
- +58 ;;169
- +59 ;;21,"12280-0062-30 ")
- +60 ;;170
- +61 ;;21,"12280-0062-90 ")
- +62 ;;171
- +63 ;;21,"12280-0078-30 ")
- +64 ;;192
- +65 ;;21,"13411-0101-01 ")
- +66 ;;77
- +67 ;;21,"13411-0101-03 ")
- +68 ;;78
- +69 ;;21,"13411-0101-06 ")
- +70 ;;79
- +71 ;;21,"13411-0101-09 ")
- +72 ;;80
- +73 ;;21,"13411-0101-15 ")
- +74 ;;81
- +75 ;;21,"13411-0102-01 ")
- +76 ;;110
- +77 ;;21,"13411-0102-03 ")
- +78 ;;111
- +79 ;;21,"13411-0102-06 ")
- +80 ;;112
- +81 ;;21,"13411-0102-09 ")
- +82 ;;113
- +83 ;;21,"13411-0102-15 ")
- +84 ;;114
- +85 ;;21,"13411-0103-01 ")
- +86 ;;49
- +87 ;;21,"13411-0103-03 ")
- +88 ;;50
- +89 ;;21,"13411-0103-06 ")
- +90 ;;51
- +91 ;;21,"13411-0103-09 ")
- +92 ;;52
- +93 ;;21,"13411-0103-15 ")
- +94 ;;53
- +95 ;;21,"21695-0147-15 ")
- +96 ;;54
- +97 ;;21,"21695-0148-15 ")
- +98 ;;82
- +99 ;;21,"23490-0104-03 ")
- +100 ;;45
- +101 ;;21,"35356-0130-60 ")
- +102 ;;5
- +103 ;;21,"35356-0271-60 ")
- +104 ;;129
- +105 ;;21,"47463-0583-30 ")
- +106 ;;46
- +107 ;;21,"47463-0584-30 ")
- +108 ;;76
- +109 ;;21,"47463-0585-30 ")
- +110 ;;109
- +111 ;;21,"47463-0764-60 ")
- +112 ;;127
- +113 ;;21,"47463-0765-30 ")
- +114 ;;144
- +115 ;;21,"47463-0766-30 ")
- +116 ;;175
- +117 ;;21,"49999-0304-30 ")
- +118 ;;146
- +119 ;;21,"49999-0449-15 ")
- +120 ;;47
- +121 ;;21,"49999-0449-30 ")
- +122 ;;55
- +123 ;;21,"49999-0450-30 ")
- +124 ;;83
- +125 ;;21,"49999-0451-30 ")
- +126 ;;115
- +127 ;;21,"49999-0451-90 ")
- +128 ;;116
- +129 ;;21,"49999-0935-30 ")
- +130 ;;177
- +131 ;;21,"54569-4801-00 ")
- +132 ;;143
- +133 ;;21,"54569-4802-00 ")
- +134 ;;167
- +135 ;;21,"54569-4803-00 ")
- +136 ;;190
- +137 ;;21,"54569-4880-00 ")
- +138 ;;56
- +139 ;;21,"54569-4881-00 ")
- +140 ;;84
- +141 ;;21,"54569-4882-00 ")
- +142 ;;117
- +143 ;;21,"54569-5603-00 ")
- +144 ;;23
- +145 ;;21,"54868-4198-00 ")
- +146 ;;147
- +147 ;;21,"54868-4198-01 ")
- +148 ;;148
- +149 ;;21,"54868-4221-00 ")
- +150 ;;178
- +151 ;;21,"54868-4343-00 ")
- +152 ;;57
- +153 ;;21,"54868-4343-01 ")
- +154 ;;58
- +155 ;;21,"54868-4354-00 ")
- +156 ;;85
- +157 ;;21,"54868-4354-01 ")
- +158 ;;86
- +159 ;;21,"54868-4391-00 ")
- +160 ;;118
- +161 ;;21,"54868-4391-01 ")
- +162 ;;119
- +163 ;;21,"54868-4965-00 ")
- +164 ;;19
- +165 ;;21,"54868-4965-01 ")
- +166 ;;20
- +167 ;;21,"54868-4965-02 ")
- +168 ;;21
- +169 ;;21,"54868-5157-00 ")
- +170 ;;30
- +171 ;;21,"54868-5157-01 ")
- +172 ;;31
- +173 ;;21,"54868-5249-00 ")
- +174 ;;130
- +175 ;;21,"54868-5249-01 ")
- +176 ;;131
- +177 ;;21,"54868-5262-00 ")
- +178 ;;26
- +179 ;;21,"54868-5262-01 ")
- +180 ;;27
- +181 ;;21,"54868-5376-00 ")
- +182 ;;17
- +183 ;;21,"54868-5379-00 ")
- +184 ;;14
- +185 ;;21,"54868-5500-00 ")
- +186 ;;1
- +187 ;;21,"54868-5500-01 ")
- +188 ;;2
- +189 ;;21,"54868-5553-00 ")
- +190 ;;6
- +191 ;;21,"54868-5553-01 ")
- +192 ;;7
- +193 ;;21,"54868-5553-02 ")
- +194 ;;8
- +195 ;;21,"54868-5739-00 ")
- +196 ;;42
- +197 ;;21,"55289-0540-30 ")
- +198 ;;124
- +199 ;;21,"55289-0862-15 ")
- +200 ;;100
- +201 ;;21,"55289-0862-30 ")
- +202 ;;101
- +203 ;;21,"55289-0938-30 ")
- +204 ;;191
- +205 ;;21,"57866-0069-08 ")
- +206 ;;163
- +207 ;;21,"57866-0069-09 ")
- +208 ;;164
- +209 ;;21,"57866-1264-02 ")
- +210 ;;165
- +211 ;;21,"57866-1364-03 ")
- +212 ;;189
- +213 ;;21,"58016-0081-00 ")
- +214 ;;179
- +215 ;;21,"58016-0081-30 ")
- +216 ;;180
- +217 ;;21,"58016-0081-60 ")
- +218 ;;181
- +219 ;;21,"58016-0081-90 ")
- +220 ;;182
- +221 ;;21,"58016-0082-00 ")
- +222 ;;132
- +223 ;;21,"58016-0082-30 ")
- +224 ;;133
- +225 ;;21,"58016-0082-60 ")
- +226 ;;134
- +227 ;;21,"58016-0082-90 ")
- +228 ;;135
- +229 ;;21,"58864-0670-14 ")
- +230 ;;71
- +231 ;;21,"58864-0670-30 ")
- +232 ;;72
- +233 ;;21,"58864-0687-30 ")
- +234 ;;149
- +235 ;;21,"58864-0687-60 ")
- +236 ;;150
- +237 ;;21,"58864-0745-15 ")
- +238 ;;102
- +239 ;;21,"58864-0745-30 ")
- +240 ;;103
- +241 ;;21,"58864-0827-60 ")
- +242 ;;173
- +243 ;;21,"63629-1269-01 ")
- +244 ;;151
- +245 ;;21,"64764-0151-04 ")
- +246 ;;59
- +247 ;;21,"64764-0151-05 ")
- +248 ;;60
- +249 ;;21,"64764-0151-06 ")
- +250 ;;61
- +251 ;;21,"64764-0155-18 ")
- +252 ;;3
- +253 ;;21,"64764-0155-60 ")
- +254 ;;4
- +255 ;;21,"64764-0158-18 ")
- +256 ;;9
- +257 ;;21,"64764-0158-60 ")
- +258 ;;10
- +259 ;;21,"64764-0301-14 ")
- +260 ;;87
- +261 ;;21,"64764-0301-15 ")
- +262 ;;88
- +263 ;;21,"64764-0301-16 ")
- +264 ;;89
- +265 ;;21,"64764-0302-30 ")
- +266 ;;34
- +267 ;;21,"64764-0304-30 ")
- +268 ;;35
- +269 ;;21,"64764-0310-30 ")
- +270 ;;12
- +271 ;;21,"64764-0451-24 ")
- +272 ;;120
- +273 ;;21,"64764-0451-25 ")
- +274 ;;121
- +275 ;;21,"64764-0451-26 ")
- +276 ;;122
- +277 ;;21,"64764-0510-30 ")
- +278 ;;11
- +279 ;;21,"65243-0195-09 ")
- +280 ;;152
- +281 ;;21,"65243-0195-12 ")
- +282 ;;153
- +283 ;;21,"65243-0196-09 ")
- +284 ;;183
- +285 ;;21,"66105-0145-01 ")
- +286 ;;136
- +287 ;;21,"66105-0145-03 ")
- +288 ;;137
- +289 ;;21,"66105-0145-06 ")
- +290 ;;138
- +291 ;;21,"66105-0145-09 ")
- +292 ;;139
- +293 ;;21,"66105-0145-15 ")
- +294 ;;140
- +295 ;;21,"66105-0154-01 ")
- +296 ;;90
- +297 ;;21,"66105-0154-03 ")
- +298 ;;91
- +299 ;
- OTHER ; OTHER ROUTINES
- +1 DO ^BGP21K2
- +2 DO ^BGP21K3
- +3 DO ^BGP21K4
- +4 DO ^BGP21K5
- +5 DO ^BGP21K6
- +6 QUIT