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

BGPM5BAY.m

Go to the documentation of this file.
BGPM5BAY ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"55887092530 ")
 ;;3003
 ;;21,"55887092560 ")
 ;;3004
 ;;21,"55887092582 ")
 ;;3005
 ;;21,"55887092590 ")
 ;;3006
 ;;21,"55887094730 ")
 ;;3007
 ;;21,"57228030403 ")
 ;;3008
 ;;21,"57228030406 ")
 ;;3009
 ;;21,"57297035101 ")
 ;;3010
 ;;21,"57297035103 ")
 ;;3011
 ;;21,"57297035106 ")
 ;;3012
 ;;21,"57297035108 ")
 ;;3013
 ;;21,"57297035109 ")
 ;;3014
 ;;21,"57297035201 ")
 ;;3015
 ;;21,"57297035202 ")
 ;;3016
 ;;21,"57297035203 ")
 ;;3017
 ;;21,"57297035205 ")
 ;;3018
 ;;21,"57297035206 ")
 ;;3019
 ;;21,"57297035209 ")
 ;;3020
 ;;21,"57297035211 ")
 ;;3021
 ;;21,"57297035301 ")
 ;;3022
 ;;21,"57297035302 ")
 ;;3023
 ;;21,"57297035303 ")
 ;;3024
 ;;21,"57297035305 ")
 ;;3025
 ;;21,"57297035306 ")
 ;;3026
 ;;21,"57297035309 ")
 ;;3027
 ;;21,"57297035311 ")
 ;;3028
 ;;21,"57315001301 ")
 ;;3029
 ;;21,"57315001302 ")
 ;;3030
 ;;21,"57315001303 ")
 ;;3031
 ;;21,"57315003101 ")
 ;;3032
 ;;21,"57315003102 ")
 ;;3033
 ;;21,"57315003103 ")
 ;;3034
 ;;21,"57315003104 ")
 ;;3035
 ;;21,"57315003201 ")
 ;;3036
 ;;21,"57315003202 ")
 ;;3037
 ;;21,"57315003203 ")
 ;;3038
 ;;21,"57315003204 ")
 ;;3039
 ;;21,"57315003205 ")
 ;;3040
 ;;21,"57315003206 ")
 ;;3041
 ;;21,"57315004301 ")
 ;;3042
 ;;21,"57315004302 ")
 ;;3043
 ;;21,"57315004303 ")
 ;;3044
 ;;21,"57315004401 ")
 ;;3045
 ;;21,"57315004402 ")
 ;;3046
 ;;21,"57315004403 ")
 ;;3047
 ;;21,"57315004404 ")
 ;;3048
 ;;21,"57315004501 ")
 ;;3049
 ;;21,"57315004502 ")
 ;;3050
 ;;21,"57315004503 ")
 ;;3051
 ;;21,"57315004601 ")
 ;;3052
 ;;21,"57315004602 ")
 ;;3053
 ;;21,"57315004603 ")
 ;;3054
 ;;21,"57315005101 ")
 ;;3055
 ;;21,"57315005102 ")
 ;;3056
 ;;21,"57315005103 ")
 ;;3057
 ;;21,"57315005105 ")
 ;;3058
 ;;21,"57315005201 ")
 ;;3059
 ;;21,"57315005202 ")
 ;;3060
 ;;21,"57315005203 ")
 ;;3061
 ;;21,"57315005205 ")
 ;;3062
 ;;21,"57315006101 ")
 ;;3063
 ;;21,"57315006102 ")
 ;;3064
 ;;21,"57315006103 ")
 ;;3065
 ;;21,"57315006201 ")
 ;;3066
 ;;21,"57315006202 ")
 ;;3067
 ;;21,"57315006203 ")
 ;;3068
 ;;21,"57315006301 ")
 ;;3069
 ;;21,"57315006303 ")
 ;;3070
 ;;21,"57315007801 ")
 ;;3071
 ;;21,"57315007802 ")
 ;;3072
 ;;21,"57315007803 ")
 ;;3073
 ;;21,"57315007804 ")
 ;;3074
 ;;21,"57315007805 ")
 ;;3075
 ;;21,"57315007901 ")
 ;;3076
 ;;21,"57315007902 ")
 ;;3077
 ;;21,"57315007903 ")
 ;;3078
 ;;21,"57315007905 ")
 ;;3079
 ;;21,"57315008001 ")
 ;;3080
 ;;21,"57315008002 ")
 ;;3081
 ;;21,"57315008005 ")
 ;;3082
 ;;21,"57315008401 ")
 ;;3083
 ;;21,"57315008403 ")
 ;;3084
 ;;21,"57315008501 ")
 ;;3085
 ;;21,"57315008503 ")
 ;;3086
 ;;21,"57315008601 ")
 ;;3087
 ;;21,"57315008603 ")
 ;;3088
 ;;21,"57664028513 ")
 ;;3089
 ;;21,"57664028518 ")
 ;;3090
 ;;21,"57664028588 ")
 ;;3091
 ;;21,"57664028613 ")
 ;;3092
 ;;21,"57664028618 ")
 ;;3093
 ;;21,"57664028688 ")
 ;;3094
 ;;21,"57664028713 ")
 ;;3095
 ;;21,"57664028718 ")
 ;;3096
 ;;21,"57664028788 ")
 ;;3097
 ;;21,"57664028813 ")
 ;;3098
 ;;21,"57664028818 ")
 ;;3099
 ;;21,"57664028888 ")
 ;;3100
 ;;21,"57664028913 ")
 ;;3101
 ;;21,"57664028918 ")
 ;;3102
 ;;21,"57664028988 ")
 ;;3103
 ;;21,"57664029013 ")
 ;;3104
 ;;21,"57664029018 ")
 ;;3105
 ;;21,"57664029088 ")
 ;;3106
 ;;21,"57664035713 ")
 ;;3107
 ;;21,"57664035718 ")
 ;;3108
 ;;21,"57664035788 ")
 ;;3109
 ;;21,"57664036113 ")
 ;;3110
 ;;21,"57664036118 ")
 ;;3111
 ;;21,"57664036188 ")
 ;;3112
 ;;21,"57664036213 ")
 ;;3113
 ;;21,"57664036218 ")
 ;;3114
 ;;21,"57664036288 ")
 ;;3115
 ;;21,"57664039213 ")
 ;;3116
 ;;21,"57664039218 ")
 ;;3117
 ;;21,"57664039288 ")
 ;;3118
 ;;21,"57664039313 ")
 ;;3119
 ;;21,"57664039318 ")
 ;;3120
 ;;21,"57664039388 ")
 ;;3121
 ;;21,"57664039413 ")
 ;;3122
 ;;21,"57664039418 ")
 ;;3123
 ;;21,"57664039488 ")
 ;;3124
 ;;21,"57664039513 ")
 ;;3125
 ;;21,"57664039518 ")
 ;;3126
 ;;21,"57664039588 ")
 ;;3127
 ;;21,"57664039613 ")
 ;;3128
 ;;21,"57664039618 ")
 ;;3129
 ;;21,"57664039688 ")
 ;;3130
 ;;21,"57664042113 ")
 ;;3131
 ;;21,"57664042118 ")
 ;;3132
 ;;21,"57664042183 ")
 ;;3133
 ;;21,"57664042199 ")
 ;;3134
 ;;21,"57664042213 ")
 ;;3135
 ;;21,"57664042218 ")
 ;;3136
 ;;21,"57664042283 ")
 ;;3137
 ;;21,"57664042299 ")
 ;;3138
 ;;21,"57664042413 ")
 ;;3139
 ;;21,"57664042418 ")
 ;;3140
 ;;21,"57664042483 ")
 ;;3141
 ;;21,"57664042499 ")
 ;;3142
 ;;21,"57664042513 ")
 ;;3143
 ;;21,"57664042518 ")
 ;;3144
 ;;21,"57664042583 ")
 ;;3145
 ;;21,"57664042599 ")
 ;;3146
 ;;21,"57664049913 ")
 ;;3147
 ;;21,"57664049918 ")
 ;;3148
 ;;21,"57664049983 ")
 ;;3149
 ;;21,"57664049988 ")
 ;;3150
 ;;21,"57664050013 ")
 ;;3151
 ;;21,"57664050018 ")
 ;;3152
 ;;21,"57664050083 ")
 ;;3153
 ;;21,"57664050088 ")
 ;;3154
 ;;21,"57664050113 ")
 ;;3155
 ;;21,"57664050118 ")
 ;;3156
 ;;21,"57664050183 ")
 ;;3157
 ;;21,"57664050188 ")
 ;;3158
 ;;21,"57664050713 ")
 ;;3159
 ;;21,"57664050718 ")
 ;;3160
 ;;21,"57664050783 ")
 ;;3161
 ;;21,"57664050788 ")
 ;;3162
 ;;21,"57664050813 ")
 ;;3163
 ;;21,"57664050818 ")
 ;;3164
 ;;21,"57664050883 ")
 ;;3165
 ;;21,"57664050888 ")
 ;;3166
 ;;21,"57664050913 ")
 ;;3167
 ;;21,"57664050918 ")
 ;;3168
 ;;21,"57664050983 ")
 ;;3169
 ;;21,"57664050988 ")
 ;;3170
 ;;21,"57664051013 ")
 ;;3171
 ;;21,"57664051018 ")
 ;;3172
 ;;21,"57664051083 ")
 ;;3173
 ;;21,"57664051088 ")
 ;;3174
 ;;21,"57866092001 ")
 ;;3175
 ;;21,"57866092002 ")
 ;;3176
 ;;21,"57866092003 ")
 ;;3177
 ;;21,"57866092201 ")
 ;;3178
 ;;21,"57866092202 ")
 ;;3179
 ;;21,"57866092203 ")
 ;;3180
 ;;21,"57866105401 ")
 ;;3181
 ;;21,"57866306102 ")
 ;;3182
 ;;21,"57866307101 ")
 ;;3183
 ;;21,"57866307200 ")
 ;;3184
 ;;21,"57866307201 ")
 ;;3185
 ;;21,"57866307202 ")
 ;;3186
 ;;21,"57866307203 ")
 ;;3187
 ;;21,"57866307301 ")
 ;;3188
 ;;21,"57866307302 ")
 ;;3189
 ;;21,"57866307303 ")
 ;;3190
 ;;21,"57866307701 ")
 ;;3191
 ;;21,"57866308201 ")
 ;;3192
 ;;21,"57866390601 ")
 ;;3193
 ;;21,"57866390701 ")
 ;;3194
 ;;21,"57866393001 ")
 ;;3195
 ;;21,"57866393002 ")
 ;;3196
 ;;21,"57866393101 ")
 ;;3197
 ;;21,"57866468801 ")
 ;;3198
 ;;21,"57866468802 ")
 ;;3199
 ;;21,"57866468803 ")
 ;;3200
 ;;21,"57866468804 ")
 ;;3201
 ;;21,"57866471501 ")
 ;;3202
 ;;21,"57866471502 ")
 ;;3203
 ;;21,"57866471503 ")
 ;;3204
 ;;21,"57866471504 ")
 ;;3205
 ;;21,"57866665001 ")
 ;;3206
 ;;21,"57866665002 ")
 ;;3207
 ;;21,"57866665003 ")
 ;;3208
 ;;21,"58016000400 ")
 ;;3209
 ;;21,"58016000401 ")
 ;;3210
 ;;21,"58016000402 ")
 ;;3211
 ;;21,"58016000403 ")
 ;;3212
 ;;21,"58016000404 ")
 ;;3213
 ;;21,"58016000405 ")
 ;;3214
 ;;21,"58016000430 ")
 ;;3215
 ;;21,"58016000460 ")
 ;;3216
 ;;21,"58016000490 ")
 ;;3217
 ;;21,"58016000900 ")
 ;;3218
 ;;21,"58016000930 ")
 ;;3219
 ;;21,"58016000960 ")
 ;;3220
 ;;21,"58016000990 ")
 ;;3221
 ;;21,"58016001000 ")
 ;;3222
 ;;21,"58016001002 ")
 ;;3223
 ;;21,"58016001030 ")
 ;;3224
 ;;21,"58016001060 ")
 ;;3225
 ;;21,"58016001090 ")
 ;;3226
 ;;21,"58016001100 ")
 ;;3227
 ;;21,"58016001130 ")
 ;;3228
 ;;21,"58016001160 ")
 ;;3229
 ;;21,"58016001190 ")
 ;;3230
 ;;21,"58016003000 ")
 ;;3231
 ;;21,"58016003001 ")
 ;;3232
 ;;21,"58016003002 ")
 ;;3233
 ;;21,"58016003003 ")
 ;;3234
 ;;21,"58016003004 ")
 ;;3235
 ;;21,"58016003005 ")
 ;;3236
 ;;21,"58016003006 ")
 ;;3237
 ;;21,"58016003007 ")
 ;;3238
 ;;21,"58016003008 ")
 ;;3239
 ;;21,"58016003009 ")
 ;;3240
 ;;21,"58016003010 ")
 ;;3241
 ;;21,"58016003030 ")
 ;;3242
 ;;21,"58016003060 ")
 ;;3243
 ;;21,"58016003090 ")
 ;;3244
 ;;21,"58016007300 ")
 ;;3245
 ;;21,"58016007301 ")
 ;;3246
 ;;21,"58016007302 ")
 ;;3247
 ;;21,"58016007303 ")
 ;;3248
 ;;21,"58016007304 ")
 ;;3249
 ;;21,"58016007305 ")
 ;;3250
 ;;21,"58016007330 ")
 ;;3251
 ;;21,"58016007360 ")
 ;;3252
 ;;21,"58016007390 ")
 ;;3253
 ;;21,"58016011330 ")
 ;;3254
 ;;21,"58016017800 ")
 ;;3255
 ;;21,"58016017801 ")
 ;;3256
 ;;21,"58016017802 ")
 ;;3257
 ;;21,"58016017803 ")
 ;;3258
 ;;21,"58016017804 ")
 ;;3259
 ;;21,"58016017805 ")
 ;;3260
 ;;21,"58016017806 ")
 ;;3261
 ;;21,"58016017807 ")
 ;;3262
 ;;21,"58016017808 ")
 ;;3263
 ;;21,"58016017809 ")
 ;;3264
 ;;21,"58016017810 ")
 ;;3265
 ;;21,"58016017812 ")
 ;;3266
 ;;21,"58016017814 ")
 ;;3267
 ;;21,"58016017815 ")
 ;;3268
 ;;21,"58016017816 ")
 ;;3269
 ;;21,"58016017818 ")
 ;;3270
 ;;21,"58016017820 ")
 ;;3271
 ;;21,"58016017821 ")
 ;;3272
 ;;21,"58016017824 ")
 ;;3273
 ;;21,"58016017825 ")
 ;;3274
 ;;21,"58016017826 ")
 ;;3275
 ;;21,"58016017827 ")
 ;;3276
 ;;21,"58016017828 ")
 ;;3277
 ;;21,"58016017830 ")
 ;;3278
 ;;21,"58016017832 ")
 ;;3279
 ;;21,"58016017835 ")
 ;;3280
 ;;21,"58016017836 ")
 ;;3281
 ;;21,"58016017840 ")
 ;;3282
 ;;21,"58016017842 ")
 ;;3283
 ;;21,"58016017844 ")
 ;;3284
 ;;21,"58016017845 ")
 ;;3285
 ;;21,"58016017848 ")
 ;;3286
 ;;21,"58016017850 ")
 ;;3287
 ;;21,"58016017856 ")
 ;;3288
 ;;21,"58016017860 ")
 ;;3289
 ;;21,"58016017867 ")
 ;;3290
 ;;21,"58016017869 ")
 ;;3291
 ;;21,"58016017870 ")
 ;;3292
 ;;21,"58016017871 ")
 ;;3293
 ;;21,"58016017872 ")
 ;;3294
 ;;21,"58016017873 ")
 ;;3295
 ;;21,"58016017875 ")
 ;;3296
 ;;21,"58016017876 ")
 ;;3297
 ;;21,"58016017877 ")
 ;;3298
 ;;21,"58016017879 ")
 ;;3299
 ;;21,"58016017880 ")
 ;;3300
 ;;21,"58016017881 ")
 ;;3301
 ;;21,"58016017882 ")
 ;;3302
 ;;21,"58016017883 ")
 ;;3303
 ;;21,"58016017884 ")
 ;;3304
 ;;21,"58016017887 ")
 ;;3305
 ;;21,"58016017889 ")
 ;;3306
 ;;21,"58016017890 ")
 ;;3307
 ;;21,"58016017891 ")
 ;;3308
 ;;21,"58016017892 ")
 ;;3309
 ;;21,"58016017893 ")
 ;;3310
 ;;21,"58016017896 ")
 ;;3311
 ;;21,"58016017897 ")
 ;;3312
 ;;21,"58016017898 ")
 ;;3313
 ;;21,"58016017899 ")
 ;;3314
 ;;21,"58016022400 ")
 ;;3315
 ;;21,"58016022401 ")
 ;;3316
 ;;21,"58016022402 ")
 ;;3317
 ;;21,"58016022403 ")
 ;;3318
 ;;21,"58016022404 ")
 ;;3319
 ;;21,"58016022405 ")
 ;;3320
 ;;21,"58016022406 ")
 ;;3321
 ;;21,"58016022407 ")
 ;;3322
 ;;21,"58016022408 ")
 ;;3323
 ;;21,"58016022409 ")
 ;;3324
 ;;21,"58016022410 ")
 ;;3325
 ;;21,"58016022412 ")
 ;;3326
 ;;21,"58016022414 ")
 ;;3327
 ;;21,"58016022415 ")
 ;;3328
 ;;21,"58016022416 ")
 ;;3329
 ;;21,"58016022418 ")
 ;;3330
 ;;21,"58016022420 ")
 ;;3331
 ;;21,"58016022421 ")
 ;;3332
 ;;21,"58016022424 ")
 ;;3333
 ;;21,"58016022425 ")
 ;;3334
 ;;21,"58016022426 ")
 ;;3335
 ;;21,"58016022427 ")
 ;;3336
 ;;21,"58016022428 ")
 ;;3337
 ;;21,"58016022430 ")
 ;;3338
 ;;21,"58016022432 ")
 ;;3339
 ;;21,"58016022435 ")
 ;;3340
 ;;21,"58016022436 ")
 ;;3341
 ;;21,"58016022440 ")
 ;;3342
 ;;21,"58016022442 ")
 ;;3343
 ;;21,"58016022444 ")
 ;;3344
 ;;21,"58016022445 ")
 ;;3345
 ;;21,"58016022448 ")
 ;;3346
 ;;21,"58016022450 ")
 ;;3347
 ;;21,"58016022456 ")
 ;;3348
 ;;21,"58016022460 ")
 ;;3349
 ;;21,"58016022467 ")
 ;;3350
 ;;21,"58016022469 ")
 ;;3351
 ;;21,"58016022470 ")
 ;;3352
 ;;21,"58016022471 ")
 ;;3353
 ;;21,"58016022472 ")
 ;;3354