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

BGPM5AGA.m

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