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