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

BGPM5ADX.m

Go to the documentation of this file.
  1. BGPM5ADX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"65862016401 ")
  1. ;;3050
  1. ;;21,"65862016453 ")
  1. ;;3051
  1. ;;21,"65862016499 ")
  1. ;;3052
  1. ;;21,"65862016501 ")
  1. ;;3053
  1. ;;21,"65862016581 ")
  1. ;;3054
  1. ;;21,"65862016599 ")
  1. ;;3055
  1. ;;21,"65862028601 ")
  1. ;;3056
  1. ;;21,"65862028653 ")
  1. ;;3057
  1. ;;21,"65862028701 ")
  1. ;;3058
  1. ;;21,"65862028719 ")
  1. ;;3059
  1. ;;21,"65862028801 ")
  1. ;;3060
  1. ;;21,"65862028859 ")
  1. ;;3061
  1. ;;21,"65862030801 ")
  1. ;;3062
  1. ;;21,"65862030830 ")
  1. ;;3063
  1. ;;21,"65862030849 ")
  1. ;;3064
  1. ;;21,"65862030899 ")
  1. ;;3065
  1. ;;21,"65862030901 ")
  1. ;;3066
  1. ;;21,"65862030926 ")
  1. ;;3067
  1. ;;21,"65862030930 ")
  1. ;;3068
  1. ;;21,"65862030999 ")
  1. ;;3069
  1. ;;21,"65862047130 ")
  1. ;;3070
  1. ;;21,"65862047149 ")
  1. ;;3071
  1. ;;21,"65862047190 ")
  1. ;;3072
  1. ;;21,"65862047199 ")
  1. ;;3073
  1. ;;21,"65862047230 ")
  1. ;;3074
  1. ;;21,"65862047239 ")
  1. ;;3075
  1. ;;21,"65862047290 ")
  1. ;;3076
  1. ;;21,"65862047299 ")
  1. ;;3077
  1. ;;21,"65862047322 ")
  1. ;;3078
  1. ;;21,"65862047330 ")
  1. ;;3079
  1. ;;21,"65862047390 ")
  1. ;;3080
  1. ;;21,"65862047399 ")
  1. ;;3081
  1. ;;21,"65862047401 ")
  1. ;;3082
  1. ;;21,"65862047410 ")
  1. ;;3083
  1. ;;21,"65862047430 ")
  1. ;;3084
  1. ;;21,"65862047449 ")
  1. ;;3085
  1. ;;21,"65862047499 ")
  1. ;;3086
  1. ;;21,"65862047501 ")
  1. ;;3087
  1. ;;21,"65862047510 ")
  1. ;;3088
  1. ;;21,"65862047530 ")
  1. ;;3089
  1. ;;21,"65862047549 ")
  1. ;;3090
  1. ;;21,"65862047599 ")
  1. ;;3091
  1. ;;21,"65862047601 ")
  1. ;;3092
  1. ;;21,"65862047610 ")
  1. ;;3093
  1. ;;21,"65862047630 ")
  1. ;;3094
  1. ;;21,"65862047649 ")
  1. ;;3095
  1. ;;21,"65862047699 ")
  1. ;;3096
  1. ;;21,"65862047701 ")
  1. ;;3097
  1. ;;21,"65862047710 ")
  1. ;;3098
  1. ;;21,"65862047730 ")
  1. ;;3099
  1. ;;21,"65862047749 ")
  1. ;;3100
  1. ;;21,"65862047799 ")
  1. ;;3101
  1. ;;21,"66105066602 ")
  1. ;;3102
  1. ;;21,"66105066603 ")
  1. ;;3103
  1. ;;21,"66105066606 ")
  1. ;;3104
  1. ;;21,"66105066609 ")
  1. ;;3105
  1. ;;21,"66105066610 ")
  1. ;;3106
  1. ;;21,"66105069402 ")
  1. ;;3107
  1. ;;21,"66105069403 ")
  1. ;;3108
  1. ;;21,"66105069406 ")
  1. ;;3109
  1. ;;21,"66105069409 ")
  1. ;;3110
  1. ;;21,"66105069410 ")
  1. ;;3111
  1. ;;21,"66105069502 ")
  1. ;;3112
  1. ;;21,"66105069503 ")
  1. ;;3113
  1. ;;21,"66105069506 ")
  1. ;;3114
  1. ;;21,"66105069509 ")
  1. ;;3115
  1. ;;21,"66105069510 ")
  1. ;;3116
  1. ;;21,"66105078223 ")
  1. ;;3117
  1. ;;21,"66116030030 ")
  1. ;;3118
  1. ;;21,"66116030430 ")
  1. ;;3119
  1. ;;21,"66116031030 ")
  1. ;;3120
  1. ;;21,"66116032530 ")
  1. ;;3121
  1. ;;21,"66116032630 ")
  1. ;;3122
  1. ;;21,"66116050030 ")
  1. ;;3123
  1. ;;21,"66116050230 ")
  1. ;;3124
  1. ;;21,"66116071830 ")
  1. ;;3125
  1. ;;21,"66116081330 ")
  1. ;;3126
  1. ;;21,"66116081930 ")
  1. ;;3127
  1. ;;21,"66116082930 ")
  1. ;;3128
  1. ;;21,"66116083030 ")
  1. ;;3129
  1. ;;21,"66116083130 ")
  1. ;;3130
  1. ;;21,"66116086130 ")
  1. ;;3131
  1. ;;21,"66116087230 ")
  1. ;;3132
  1. ;;21,"66116087430 ")
  1. ;;3133
  1. ;;21,"66267004020 ")
  1. ;;3134
  1. ;;21,"66267004030 ")
  1. ;;3135
  1. ;;21,"66267004040 ")
  1. ;;3136
  1. ;;21,"66267004060 ")
  1. ;;3137
  1. ;;21,"66267004090 ")
  1. ;;3138
  1. ;;21,"66267004230 ")
  1. ;;3139
  1. ;;21,"66267004260 ")
  1. ;;3140
  1. ;;21,"66267004290 ")
  1. ;;3141
  1. ;;21,"66267029310 ")
  1. ;;3142
  1. ;;21,"66267029320 ")
  1. ;;3143
  1. ;;21,"66267029330 ")
  1. ;;3144
  1. ;;21,"66267029340 ")
  1. ;;3145
  1. ;;21,"66267029360 ")
  1. ;;3146
  1. ;;21,"66267029390 ")
  1. ;;3147
  1. ;;21,"66267032310 ")
  1. ;;3148
  1. ;;21,"66267032320 ")
  1. ;;3149
  1. ;;21,"66267032330 ")
  1. ;;3150
  1. ;;21,"66267032340 ")
  1. ;;3151
  1. ;;21,"66267032360 ")
  1. ;;3152
  1. ;;21,"66267032390 ")
  1. ;;3153
  1. ;;21,"66267032391 ")
  1. ;;3154
  1. ;;21,"66267038010 ")
  1. ;;3155
  1. ;;21,"66267038020 ")
  1. ;;3156
  1. ;;21,"66267038030 ")
  1. ;;3157
  1. ;;21,"66267038040 ")
  1. ;;3158
  1. ;;21,"66267038060 ")
  1. ;;3159
  1. ;;21,"66267038090 ")
  1. ;;3160
  1. ;;21,"66267038091 ")
  1. ;;3161
  1. ;;21,"66267041310 ")
  1. ;;3162
  1. ;;21,"66267041315 ")
  1. ;;3163
  1. ;;21,"66267041320 ")
  1. ;;3164
  1. ;;21,"66267041330 ")
  1. ;;3165
  1. ;;21,"66267041335 ")
  1. ;;3166
  1. ;;21,"66267041340 ")
  1. ;;3167
  1. ;;21,"66267041360 ")
  1. ;;3168
  1. ;;21,"66267041390 ")
  1. ;;3169
  1. ;;21,"66267041392 ")
  1. ;;3170
  1. ;;21,"66267050730 ")
  1. ;;3171
  1. ;;21,"66267054010 ")
  1. ;;3172
  1. ;;21,"66267054020 ")
  1. ;;3173
  1. ;;21,"66267054030 ")
  1. ;;3174
  1. ;;21,"66267054040 ")
  1. ;;3175
  1. ;;21,"66267054060 ")
  1. ;;3176
  1. ;;21,"66267054090 ")
  1. ;;3177
  1. ;;21,"66267057010 ")
  1. ;;3178
  1. ;;21,"66267057020 ")
  1. ;;3179
  1. ;;21,"66267057030 ")
  1. ;;3180
  1. ;;21,"66267057040 ")
  1. ;;3181
  1. ;;21,"66267057060 ")
  1. ;;3182
  1. ;;21,"66267057090 ")
  1. ;;3183
  1. ;;21,"66267057705 ")
  1. ;;3184
  1. ;;21,"66267057710 ")
  1. ;;3185
  1. ;;21,"66267057715 ")
  1. ;;3186
  1. ;;21,"66267057720 ")
  1. ;;3187
  1. ;;21,"66267057730 ")
  1. ;;3188
  1. ;;21,"66267057740 ")
  1. ;;3189
  1. ;;21,"66267057760 ")
  1. ;;3190
  1. ;;21,"66267057790 ")
  1. ;;3191
  1. ;;21,"66267057810 ")
  1. ;;3192
  1. ;;21,"66267057820 ")
  1. ;;3193
  1. ;;21,"66267057830 ")
  1. ;;3194
  1. ;;21,"66267057840 ")
  1. ;;3195
  1. ;;21,"66267057860 ")
  1. ;;3196
  1. ;;21,"66267058305 ")
  1. ;;3197
  1. ;;21,"66267058310 ")
  1. ;;3198
  1. ;;21,"66267058320 ")
  1. ;;3199
  1. ;;21,"66267058330 ")
  1. ;;3200
  1. ;;21,"66267058340 ")
  1. ;;3201
  1. ;;21,"66267058360 ")
  1. ;;3202
  1. ;;21,"66267075130 ")
  1. ;;3203
  1. ;;21,"66267075190 ")
  1. ;;3204
  1. ;;21,"66267075230 ")
  1. ;;3205
  1. ;;21,"66267075290 ")
  1. ;;3206
  1. ;;21,"66267100900 ")
  1. ;;3207
  1. ;;21,"66336038930 ")
  1. ;;3208
  1. ;;21,"66336038960 ")
  1. ;;3209
  1. ;;21,"66336039130 ")
  1. ;;3210
  1. ;;21,"66336039160 ")
  1. ;;3211
  1. ;;21,"66336039330 ")
  1. ;;3212
  1. ;;21,"66336039360 ")
  1. ;;3213
  1. ;;21,"66336057230 ")
  1. ;;3214
  1. ;;21,"66336061860 ")
  1. ;;3215
  1. ;;21,"66336074130 ")
  1. ;;3216
  1. ;;21,"66336075060 ")
  1. ;;3217
  1. ;;21,"66336075090 ")
  1. ;;3218
  1. ;;21,"66336079460 ")
  1. ;;3219
  1. ;;21,"66336080530 ")
  1. ;;3220
  1. ;;21,"66336080590 ")
  1. ;;3221
  1. ;;21,"66336086730 ")
  1. ;;3222
  1. ;;21,"66336094630 ")
  1. ;;3223
  1. ;;21,"66336094660 ")
  1. ;;3224
  1. ;;21,"66336094690 ")
  1. ;;3225
  1. ;;21,"66336097207 ")
  1. ;;3226
  1. ;;21,"66336097230 ")
  1. ;;3227
  1. ;;21,"66685030100 ")
  1. ;;3228
  1. ;;21,"66685030102 ")
  1. ;;3229
  1. ;;21,"66685030200 ")
  1. ;;3230
  1. ;;21,"66685030201 ")
  1. ;;3231
  1. ;;21,"66685030202 ")
  1. ;;3232
  1. ;;21,"66685030300 ")
  1. ;;3233
  1. ;;21,"66685030301 ")
  1. ;;3234
  1. ;;21,"66685030302 ")
  1. ;;3235
  1. ;;21,"66685030400 ")
  1. ;;3236
  1. ;;21,"66685030401 ")
  1. ;;3237
  1. ;;21,"66685030402 ")
  1. ;;3238
  1. ;;21,"66685070100 ")
  1. ;;3239
  1. ;;21,"66685070101 ")
  1. ;;3240
  1. ;;21,"66685070102 ")
  1. ;;3241
  1. ;;21,"66685070103 ")
  1. ;;3242
  1. ;;21,"66685070200 ")
  1. ;;3243
  1. ;;21,"66685070201 ")
  1. ;;3244
  1. ;;21,"66685070202 ")
  1. ;;3245
  1. ;;21,"66685070203 ")
  1. ;;3246
  1. ;;21,"66685070204 ")
  1. ;;3247
  1. ;;21,"66685070300 ")
  1. ;;3248
  1. ;;21,"66685070301 ")
  1. ;;3249
  1. ;;21,"66685070302 ")
  1. ;;3250
  1. ;;21,"66685070303 ")
  1. ;;3251
  1. ;;21,"66685070304 ")
  1. ;;3252
  1. ;;21,"66685070400 ")
  1. ;;3253
  1. ;;21,"66685070401 ")
  1. ;;3254
  1. ;;21,"66685070402 ")
  1. ;;3255
  1. ;;21,"66685070403 ")
  1. ;;3256
  1. ;;21,"66685070404 ")
  1. ;;3257
  1. ;;21,"66685070500 ")
  1. ;;3258
  1. ;;21,"66685070501 ")
  1. ;;3259
  1. ;;21,"66685070502 ")
  1. ;;3260
  1. ;;21,"66685070503 ")
  1. ;;3261
  1. ;;21,"66685070600 ")
  1. ;;3262
  1. ;;21,"66685070601 ")
  1. ;;3263
  1. ;;21,"66685070602 ")
  1. ;;3264
  1. ;;21,"66685070603 ")
  1. ;;3265
  1. ;;21,"66685070604 ")
  1. ;;3266
  1. ;;21,"67046015630 ")
  1. ;;3267
  1. ;;21,"67046015730 ")
  1. ;;3268
  1. ;;21,"67046015830 ")
  1. ;;3269
  1. ;;21,"67046015930 ")
  1. ;;3270
  1. ;;21,"67046015960 ")
  1. ;;3271
  1. ;;21,"67046016030 ")
  1. ;;3272
  1. ;;21,"67046016130 ")
  1. ;;3273
  1. ;;21,"67046016160 ")
  1. ;;3274
  1. ;;21,"67046042530 ")
  1. ;;3275
  1. ;;21,"67046042630 ")
  1. ;;3276
  1. ;;21,"67046042730 ")
  1. ;;3277
  1. ;;21,"67046042830 ")
  1. ;;3278
  1. ;;21,"67228002503 ")
  1. ;;3279
  1. ;;21,"67228002506 ")
  1. ;;3280
  1. ;;21,"67228002603 ")
  1. ;;3281
  1. ;;21,"67228002606 ")
  1. ;;3282
  1. ;;21,"67228008503 ")
  1. ;;3283
  1. ;;21,"67228008506 ")
  1. ;;3284
  1. ;;21,"67228016403 ")
  1. ;;3285
  1. ;;21,"67228016406 ")
  1. ;;3286
  1. ;;21,"67228016903 ")
  1. ;;3287
  1. ;;21,"67228016906 ")
  1. ;;3288
  1. ;;21,"67228026403 ")
  1. ;;3289
  1. ;;21,"67228026406 ")
  1. ;;3290
  1. ;;21,"67228026703 ")
  1. ;;3291
  1. ;;21,"67228026706 ")
  1. ;;3292
  1. ;;21,"67228029303 ")
  1. ;;3293
  1. ;;21,"67228029306 ")
  1. ;;3294
  1. ;;21,"67228031703 ")
  1. ;;3295
  1. ;;21,"67228031706 ")
  1. ;;3296
  1. ;;21,"67228031803 ")
  1. ;;3297
  1. ;;21,"67228031806 ")
  1. ;;3298
  1. ;;21,"67228034503 ")
  1. ;;3299
  1. ;;21,"67228034506 ")
  1. ;;3300
  1. ;;21,"67228044103 ")
  1. ;;3301
  1. ;;21,"67228044106 ")
  1. ;;3302
  1. ;;21,"67228046003 ")
  1. ;;3303
  1. ;;21,"67228046006 ")
  1. ;;3304
  1. ;;21,"67253010610 ")
  1. ;;3305
  1. ;;21,"67253010710 ")
  1. ;;3306
  1. ;;21,"67253067110 ")
  1. ;;3307
  1. ;;21,"67253067210 ")
  1. ;;3308
  1. ;;21,"67253067211 ")
  1. ;;3309
  1. ;;21,"67253067310 ")
  1. ;;3310
  1. ;;21,"67253067311 ")
  1. ;;3311
  1. ;;21,"67253067410 ")
  1. ;;3312
  1. ;;21,"67253067411 ")
  1. ;;3313
  1. ;;21,"67544006230 ")
  1. ;;3314
  1. ;;21,"67544006260 ")
  1. ;;3315
  1. ;;21,"67544006282 ")
  1. ;;3316
  1. ;;21,"67544012815 ")
  1. ;;3317
  1. ;;21,"67544012830 ")
  1. ;;3318
  1. ;;21,"67544012845 ")
  1. ;;3319
  1. ;;21,"67544012853 ")
  1. ;;3320
  1. ;;21,"67544012860 ")
  1. ;;3321
  1. ;;21,"67544013415 ")
  1. ;;3322
  1. ;;21,"67544013430 ")
  1. ;;3323
  1. ;;21,"67544013445 ")
  1. ;;3324
  1. ;;21,"67544013460 ")
  1. ;;3325
  1. ;;21,"67544013480 ")
  1. ;;3326
  1. ;;21,"67544014815 ")
  1. ;;3327
  1. ;;21,"67544014830 ")
  1. ;;3328
  1. ;;21,"67544014831 ")
  1. ;;3329
  1. ;;21,"67544014845 ")
  1. ;;3330
  1. ;;21,"67544014853 ")
  1. ;;3331
  1. ;;21,"67544014860 ")
  1. ;;3332
  1. ;;21,"67544014880 ")
  1. ;;3333
  1. ;;21,"67544015060 ")
  1. ;;3334
  1. ;;21,"67544015073 ")
  1. ;;3335
  1. ;;21,"67544015092 ")
  1. ;;3336
  1. ;;21,"67544015915 ")
  1. ;;3337
  1. ;;21,"67544015930 ")
  1. ;;3338
  1. ;;21,"67544015945 ")
  1. ;;3339
  1. ;;21,"67544015960 ")
  1. ;;3340
  1. ;;21,"67544015980 ")
  1. ;;3341
  1. ;;21,"67544016060 ")
  1. ;;3342
  1. ;;21,"67544016080 ")
  1. ;;3343
  1. ;;21,"67544016580 ")
  1. ;;3344
  1. ;;21,"67544016680 ")
  1. ;;3345
  1. ;;21,"67544017330 ")
  1. ;;3346
  1. ;;21,"67544017331 ")
  1. ;;3347
  1. ;;21,"67544017332 ")
  1. ;;3348
  1. ;;21,"67544017345 ")
  1. ;;3349
  1. ;;21,"67544017353 ")
  1. ;;3350
  1. ;;21,"67544017360 ")
  1. ;;3351
  1. ;;21,"67544017430 ")
  1. ;;3352
  1. ;;21,"67544017431 ")
  1. ;;3353
  1. ;;21,"67544017432 ")
  1. ;;3354
  1. ;;21,"67544017445 ")
  1. ;;3355
  1. ;;21,"67544017460 ")
  1. ;;3356
  1. ;;21,"67544017480 ")
  1. ;;3357
  1. ;;21,"67544017580 ")
  1. ;;3358
  1. ;;21,"67544021831 ")
  1. ;;3359
  1. ;;21,"67544021860 ")
  1. ;;3360
  1. ;;21,"67544021882 ")
  1. ;;3361
  1. ;;21,"67544021915 ")
  1. ;;3362
  1. ;;21,"67544021930 ")
  1. ;;3363
  1. ;;21,"67544021931 ")
  1. ;;3364
  1. ;;21,"67544021932 ")
  1. ;;3365
  1. ;;21,"67544021945 ")
  1. ;;3366
  1. ;;21,"67544021960 ")
  1. ;;3367
  1. ;;21,"67544025060 ")
  1. ;;3368
  1. ;;21,"67544027660 ")
  1. ;;3369
  1. ;;21,"67544030630 ")
  1. ;;3370
  1. ;;21,"67544030640 ")
  1. ;;3371
  1. ;;21,"67544030645 ")
  1. ;;3372
  1. ;;21,"67544030660 ")
  1. ;;3373
  1. ;;21,"67544031130 ")
  1. ;;3374
  1. ;;21,"67544031140 ")
  1. ;;3375
  1. ;;21,"67544031145 ")
  1. ;;3376
  1. ;;21,"67544031580 ")
  1. ;;3377
  1. ;;21,"67544032110 ")
  1. ;;3378
  1. ;;21,"67544032115 ")
  1. ;;3379
  1. ;;21,"67544032130 ")
  1. ;;3380
  1. ;;21,"67544032145 ")
  1. ;;3381
  1. ;;21,"67544032160 ")
  1. ;;3382
  1. ;;21,"67544032215 ")
  1. ;;3383
  1. ;;21,"67544032230 ")
  1. ;;3384
  1. ;;21,"67544032245 ")
  1. ;;3385
  1. ;;21,"67544032253 ")
  1. ;;3386
  1. ;;21,"67544032260 ")
  1. ;;3387
  1. ;;21,"67544032270 ")
  1. ;;3388
  1. ;;21,"67544032273 ")
  1. ;;3389
  1. ;;21,"67544032280 ")
  1. ;;3390
  1. ;;21,"67544032292 ")
  1. ;;3391
  1. ;;21,"67544032294 ")
  1. ;;3392
  1. ;;21,"67544035080 ")
  1. ;;3393
  1. ;;21,"67544037760 ")
  1. ;;3394
  1. ;;21,"67544038030 ")
  1. ;;3395
  1. ;;21,"67544038060 ")
  1. ;;3396
  1. ;;21,"67544038115 ")
  1. ;;3397
  1. ;;21,"67544038130 ")
  1. ;;3398
  1. ;;21,"67544038145 ")
  1. ;;3399
  1. ;;21,"67544038153 ")
  1. ;;3400
  1. ;;21,"67544038160 ")
  1. ;;3401