- BGPWTXB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 21, 2005 ;
- +1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- +2 ;;;BGPW;;APR 21, 2005
- +3 ;;BGP OSTEOPOROSIS NDC
- +4 ;
- +5 ; This routine loads Taxonomy BGP OSTEOPOROSIS NDC
- +6 ;
- 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,"00002-4165-02 ")
- +2 ;;26
- +3 ;;21,"00002-4165-07 ")
- +4 ;;27
- +5 ;;21,"00002-4165-30 ")
- +6 ;;25
- +7 ;;21,"00002-8971-01 ")
- +8 ;;30
- +9 ;;21,"00006-0031-21 ")
- +10 ;;16
- +11 ;;21,"00006-0031-44 ")
- +12 ;;15
- +13 ;;21,"00006-0077-21 ")
- +14 ;;12
- +15 ;;21,"00006-0077-44 ")
- +16 ;;11
- +17 ;;21,"00006-0212-31 ")
- +18 ;;14
- +19 ;;21,"00006-0925-31 ")
- +20 ;;1
- +21 ;;21,"00006-0925-58 ")
- +22 ;;3
- +23 ;;21,"00006-0936-28 ")
- +24 ;;5
- +25 ;;21,"00006-0936-31 ")
- +26 ;;4
- +27 ;;21,"00006-0936-58 ")
- +28 ;;6
- +29 ;;21,"00006-0936-72 ")
- +30 ;;7
- +31 ;;21,"00006-0936-82 ")
- +32 ;;8
- +33 ;;21,"00032-1023-01 ")
- +34 ;;85
- +35 ;;21,"00032-1026-01 ")
- +36 ;;81
- +37 ;;21,"00032-1026-10 ")
- +38 ;;82
- +39 ;;21,"00046-0864-81 ")
- +40 ;;154
- +41 ;;21,"00046-0865-81 ")
- +42 ;;187
- +43 ;;21,"00046-0865-91 ")
- +44 ;;188
- +45 ;;21,"00046-0866-81 ")
- +46 ;;161
- +47 ;;21,"00046-0866-91 ")
- +48 ;;163
- +49 ;;21,"00046-0866-95 ")
- +50 ;;164
- +51 ;;21,"00046-0866-99 ")
- +52 ;;162
- +53 ;;21,"00046-0868-81 ")
- +54 ;;114
- +55 ;;21,"00046-0868-91 ")
- +56 ;;115
- +57 ;;21,"00046-0875-05 ")
- +58 ;;107
- +59 ;;21,"00046-0875-06 ")
- +60 ;;108
- +61 ;;21,"00046-0975-05 ")
- +62 ;;111
- +63 ;;21,"00046-0975-06 ")
- +64 ;;112
- +65 ;;21,"00046-2573-05 ")
- +66 ;;103
- +67 ;;21,"00046-2573-06 ")
- +68 ;;104
- +69 ;;21,"00078-0149-23 ")
- +70 ;;22
- +71 ;;21,"00078-0311-90 ")
- +72 ;;23
- +73 ;;21,"00087-0021-41 ")
- +74 ;;31
- +75 ;;21,"00087-0755-01 ")
- +76 ;;40
- +77 ;;21,"00087-0756-01 ")
- +78 ;;62
- +79 ;;21,"00087-0756-48 ")
- +80 ;;63
- +81 ;;21,"00149-0470-01 ")
- +82 ;;21
- +83 ;;21,"00149-0471-01 ")
- +84 ;;19
- +85 ;;21,"00149-0471-03 ")
- +86 ;;20
- +87 ;;21,"00339-5981-12 ")
- +88 ;;90
- +89 ;;21,"00339-5983-12 ")
- +90 ;;95
- +91 ;;21,"00339-5985-12 ")
- +92 ;;100
- +93 ;;21,"00339-6073-12 ")
- +94 ;;33
- +95 ;;21,"00339-6074-12 ")
- +96 ;;49
- +97 ;;21,"00339-6075-12 ")
- +98 ;;70
- +99 ;;21,"00378-1452-01 ")
- +100 ;;38
- +101 ;;21,"00378-1454-01 ")
- +102 ;;56
- +103 ;;21,"00378-1454-05 ")
- +104 ;;57
- +105 ;;21,"00378-1458-01 ")
- +106 ;;77
- +107 ;;21,"00378-1458-05 ")
- +108 ;;78
- +109 ;;21,"00378-4551-01 ")
- +110 ;;92
- +111 ;;21,"00378-4553-01 ")
- +112 ;;97
- +113 ;;21,"00378-4555-01 ")
- +114 ;;101
- +115 ;;21,"00555-0727-02 ")
- +116 ;;89
- +117 ;;21,"00555-0728-02 ")
- +118 ;;94
- +119 ;;21,"00555-0729-02 ")
- +120 ;;99
- +121 ;;21,"00555-0886-02 ")
- +122 ;;47
- +123 ;;21,"00555-0886-04 ")
- +124 ;;48
- +125 ;;21,"00555-0887-02 ")
- +126 ;;68
- +127 ;;21,"00555-0887-04 ")
- +128 ;;69
- +129 ;;21,"00555-0899-02 ")
- +130 ;;32
- +131 ;;21,"00591-0414-01 ")
- +132 ;;93
- +133 ;;21,"00591-0416-01 ")
- +134 ;;102
- +135 ;;21,"00591-0487-05 ")
- +136 ;;61
- +137 ;;21,"00904-5177-60 ")
- +138 ;;36
- +139 ;;21,"00904-5178-60 ")
- +140 ;;54
- +141 ;;21,"00904-5179-60 ")
- +142 ;;75
- +143 ;;21,"51285-0010-02 ")
- +144 ;;91
- +145 ;;21,"51285-0442-02 ")
- +146 ;;190
- +147 ;;21,"51285-0442-05 ")
- +148 ;;191
- +149 ;;21,"51285-0443-02 ")
- +150 ;;192
- +151 ;;21,"51285-0443-05 ")
- +152 ;;193
- +153 ;;21,"51285-0444-02 ")
- +154 ;;194
- +155 ;;21,"51285-0444-05 ")
- +156 ;;195
- +157 ;;21,"51285-0501-02 ")
- +158 ;;34
- +159 ;;21,"51285-0502-02 ")
- +160 ;;50
- +161 ;;21,"51285-0502-04 ")
- +162 ;;51
- +163 ;;21,"51285-0504-02 ")
- +164 ;;71
- +165 ;;21,"51285-0504-04 ")
- +166 ;;72
- +167 ;;21,"51285-0876-02 ")
- +168 ;;96
- +169 ;;21,"51655-0452-25 ")
- +170 ;;140
- +171 ;;21,"52544-0415-01 ")
- +172 ;;98
- +173 ;;21,"52544-0487-01 ")
- +174 ;;60
- +175 ;;21,"52544-0488-01 ")
- +176 ;;79
- +177 ;;21,"52544-0488-05 ")
- +178 ;;80
- +179 ;;21,"52544-0528-01 ")
- +180 ;;39
- +181 ;;21,"52555-0716-01 ")
- +182 ;;37
- +183 ;;21,"52555-0717-01 ")
- +184 ;;55
- +185 ;;21,"52555-0718-01 ")
- +186 ;;76
- +187 ;;21,"52959-0222-00 ")
- +188 ;;175
- +189 ;;21,"52959-0223-00 ")
- +190 ;;142
- +191 ;;21,"52959-0223-30 ")
- +192 ;;141
- +193 ;;21,"54569-0802-01 ")
- +194 ;;41
- +195 ;;21,"54569-0811-01 ")
- +196 ;;118
- +197 ;;21,"54569-0812-00 ")
- +198 ;;135
- +199 ;;21,"54569-0812-01 ")
- +200 ;;131
- +201 ;;21,"54569-0812-02 ")
- +202 ;;128
- +203 ;;21,"54569-0812-05 ")
- +204 ;;127
- +205 ;;21,"54569-0813-00 ")
- +206 ;;170
- +207 ;;21,"54569-0813-01 ")
- +208 ;;165
- +209 ;;21,"54569-0849-00 ")
- +210 ;;158
- +211 ;;21,"54569-0849-01 ")
- +212 ;;155
- +213 ;;21,"54569-4354-01 ")
- +214 ;;86
- +215 ;;21,"54569-4618-00 ")
- +216 ;;109
- +217 ;;21,"54569-4628-00 ")
- +218 ;;28
- +219 ;;21,"54569-4673-00 ")
- +220 ;;105
- +221 ;;21,"54569-4866-00 ")
- +222 ;;9
- +223 ;;21,"54569-4907-00 ")
- +224 ;;46
- +225 ;;21,"54569-4908-00 ")
- +226 ;;67
- +227 ;;21,"54569-4925-00 ")
- +228 ;;113
- +229 ;;21,"54569-5141-00 ")
- +230 ;;83
- +231 ;;21,"54569-5218-00 ")
- +232 ;;17
- +233 ;;21,"54569-5234-00 ")
- +234 ;;24
- +235 ;;21,"54569-8006-00 ")
- +236 ;;132
- +237 ;;21,"54569-8006-01 ")
- +238 ;;136
- +239 ;;21,"54569-8006-02 ")
- +240 ;;134
- +241 ;;21,"54569-8014-00 ")
- +242 ;;169
- +243 ;;21,"54569-8500-00 ")
- +244 ;;133
- +245 ;;21,"54569-8500-01 ")
- +246 ;;130
- +247 ;;21,"54569-8500-02 ")
- +248 ;;129
- +249 ;;21,"54569-8505-00 ")
- +250 ;;168
- +251 ;;21,"54569-8505-01 ")
- +252 ;;167
- +253 ;;21,"54569-8505-02 ")
- +254 ;;166
- +255 ;;21,"54569-8517-00 ")
- +256 ;;117
- +257 ;;21,"54569-8517-01 ")
- +258 ;;116
- +259 ;;21,"54569-8518-00 ")
- +260 ;;157
- +261 ;;21,"54569-8518-01 ")
- +262 ;;156
- +263 ;;21,"54569-8577-00 ")
- +264 ;;64
- +265 ;;21,"54868-0364-00 ")
- +266 ;;160
- +267 ;;21,"54868-0365-02 ")
- +268 ;;159
- +269 ;;21,"54868-0451-00 ")
- +270 ;;143
- +271 ;;21,"54868-0451-01 ")
- +272 ;;145
- +273 ;;21,"54868-0451-02 ")
- +274 ;;144
- +275 ;;21,"54868-0451-03 ")
- +276 ;;146
- +277 ;;21,"54868-0452-03 ")
- +278 ;;189
- +279 ;;21,"54868-0453-00 ")
- +280 ;;176
- +281 ;;21,"54868-0453-02 ")
- +282 ;;177
- +283 ;;21,"54868-0453-04 ")
- +284 ;;179
- +285 ;;21,"54868-0453-05 ")
- +286 ;;178
- +287 ;;21,"54868-0494-00 ")
- +288 ;;45
- +289 ;;21,"54868-0494-01 ")
- +290 ;;44
- +291 ;;21,"54868-0494-02 ")
- +292 ;;43
- +293 ;;21,"54868-0495-00 ")
- +294 ;;66
- +295 ;;21,"54868-2702-00 ")
- +296 ;;120
- +297 ;;21,"54868-3564-00 ")
- +298 ;;88
- +299 ;;21,"54868-3564-01 ")
- +300 ;;87
- +301 ;
- OTHER ; OTHER ROUTINES
- +1 DO ^BGPWTXBB
- +2 DO ^BGPWTXBC
- +3 DO ^BGPWTXBD
- +4 DO ^BGPWTXBE
- +5 DO ^BGPWTXBF
- +6 DO ^BGPWTXBG
- +7 QUIT