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

BGPM5AZS.m

Go to the documentation of this file.
BGPM5AZS ;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,"00228272150 ")
 ;;6963
 ;;21,"00228272203 ")
 ;;6964
 ;;21,"00228272209 ")
 ;;6965
 ;;21,"00228272290 ")
 ;;6966
 ;;21,"00228272303 ")
 ;;6967
 ;;21,"00228272309 ")
 ;;6968
 ;;21,"00228272396 ")
 ;;6969
 ;;21,"00228275511 ")
 ;;6970
 ;;21,"00228275550 ")
 ;;6971
 ;;21,"00228275596 ")
 ;;6972
 ;;21,"00228275611 ")
 ;;6973
 ;;21,"00228275650 ")
 ;;6974
 ;;21,"00228275696 ")
 ;;6975
 ;;21,"00228275711 ")
 ;;6976
 ;;21,"00228275750 ")
 ;;6977
 ;;21,"00228275796 ")
 ;;6978
 ;;21,"00247037030 ")
 ;;6979
 ;;21,"00247061510 ")
 ;;6980
 ;;21,"00247061550 ")
 ;;6981
 ;;21,"00247061552 ")
 ;;6982
 ;;21,"00247061610 ")
 ;;6983
 ;;21,"00247061615 ")
 ;;6984
 ;;21,"00247061630 ")
 ;;6985
 ;;21,"00247067300 ")
 ;;6986
 ;;21,"00247067307 ")
 ;;6987
 ;;21,"00247067310 ")
 ;;6988
 ;;21,"00247067314 ")
 ;;6989
 ;;21,"00247067330 ")
 ;;6990
 ;;21,"00247067360 ")
 ;;6991
 ;;21,"00247067390 ")
 ;;6992
 ;;21,"00247078907 ")
 ;;6993
 ;;21,"00247078914 ")
 ;;6994
 ;;21,"00247078930 ")
 ;;6995
 ;;21,"00247104103 ")
 ;;6996
 ;;21,"00247104107 ")
 ;;6997
 ;;21,"00247104130 ")
 ;;6998
 ;;21,"00247104230 ")
 ;;6999
 ;;21,"00247107510 ")
 ;;7000
 ;;21,"00247107530 ")
 ;;7001
 ;;21,"00247107560 ")
 ;;7002
 ;;21,"00247167910 ")
 ;;7003
 ;;21,"00247167960 ")
 ;;7004
 ;;21,"00247168010 ")
 ;;7005
 ;;21,"00247181304 ")
 ;;7006
 ;;21,"00247181308 ")
 ;;7007
 ;;21,"00247181330 ")
 ;;7008
 ;;21,"00247191503 ")
 ;;7009
 ;;21,"00247191507 ")
 ;;7010
 ;;21,"00247191530 ")
 ;;7011
 ;;21,"00247191590 ")
 ;;7012
 ;;21,"00247196430 ")
 ;;7013
 ;;21,"00247196490 ")
 ;;7014
 ;;21,"00247196500 ")
 ;;7015
 ;;21,"00247196503 ")
 ;;7016
 ;;21,"00247196514 ")
 ;;7017
 ;;21,"00247196530 ")
 ;;7018
 ;;21,"00247196560 ")
 ;;7019
 ;;21,"00247196590 ")
 ;;7020
 ;;21,"00247196599 ")
 ;;7021
 ;;21,"00247205200 ")
 ;;7022
 ;;21,"00247205207 ")
 ;;7023
 ;;21,"00247205230 ")
 ;;7024
 ;;21,"00247205290 ")
 ;;7025
 ;;21,"00247208330 ")
 ;;7026
 ;;21,"00247208360 ")
 ;;7027
 ;;21,"00247208390 ")
 ;;7028
 ;;21,"00247208430 ")
 ;;7029
 ;;21,"00247208460 ")
 ;;7030
 ;;21,"00247208530 ")
 ;;7031
 ;;21,"00247209430 ")
 ;;7032
 ;;21,"00247209490 ")
 ;;7033
 ;;21,"00247213200 ")
 ;;7034
 ;;21,"00247213207 ")
 ;;7035
 ;;21,"00247213230 ")
 ;;7036
 ;;21,"00247213260 ")
 ;;7037
 ;;21,"00247213290 ")
 ;;7038
 ;;21,"00247213300 ")
 ;;7039
 ;;21,"00247213307 ")
 ;;7040
 ;;21,"00247213330 ")
 ;;7041
 ;;21,"00247213360 ")
 ;;7042
 ;;21,"00247213390 ")
 ;;7043
 ;;21,"00247213400 ")
 ;;7044
 ;;21,"00247213407 ")
 ;;7045
 ;;21,"00247213430 ")
 ;;7046
 ;;21,"00247213460 ")
 ;;7047
 ;;21,"00247213490 ")
 ;;7048
 ;;21,"00247226530 ")
 ;;7049
 ;;21,"00247226560 ")
 ;;7050
 ;;21,"00247226590 ")
 ;;7051
 ;;21,"00247227130 ")
 ;;7052
 ;;21,"00247227200 ")
 ;;7053
 ;;21,"00247227230 ")
 ;;7054
 ;;21,"00247227260 ")
 ;;7055
 ;;21,"00247227290 ")
 ;;7056
 ;;21,"00247229900 ")
 ;;7057
 ;;21,"00247229990 ")
 ;;7058
 ;;21,"00254210119 ")
 ;;7059
 ;;21,"00254210121 ")
 ;;7060
 ;;21,"00254210125 ")
 ;;7061
 ;;21,"00254210126 ")
 ;;7062
 ;;21,"00254210128 ")
 ;;7063
 ;;21,"00254210132 ")
 ;;7064
 ;;21,"00254210135 ")
 ;;7065
 ;;21,"00254210138 ")
 ;;7066
 ;;21,"00254210219 ")
 ;;7067
 ;;21,"00254210225 ")
 ;;7068
 ;;21,"00254210226 ")
 ;;7069
 ;;21,"00254210228 ")
 ;;7070
 ;;21,"00254210232 ")
 ;;7071
 ;;21,"00254210235 ")
 ;;7072
 ;;21,"00254210238 ")
 ;;7073
 ;;21,"00254210302 ")
 ;;7074
 ;;21,"00254210316 ")
 ;;7075
 ;;21,"00254210320 ")
 ;;7076
 ;;21,"00254210321 ")
 ;;7077
 ;;21,"00254210328 ")
 ;;7078
 ;;21,"00254210332 ")
 ;;7079
 ;;21,"00254210335 ")
 ;;7080
 ;;21,"00254210338 ")
 ;;7081
 ;;21,"00254210419 ")
 ;;7082
 ;;21,"00254210421 ")
 ;;7083
 ;;21,"00254210425 ")
 ;;7084
 ;;21,"00254210426 ")
 ;;7085
 ;;21,"00254210428 ")
 ;;7086
 ;;21,"00254210435 ")
 ;;7087
 ;;21,"00254210438 ")
 ;;7088
 ;;21,"00254210519 ")
 ;;7089
 ;;21,"00254210521 ")
 ;;7090
 ;;21,"00254210525 ")
 ;;7091
 ;;21,"00254210526 ")
 ;;7092
 ;;21,"00254210528 ")
 ;;7093
 ;;21,"00254210535 ")
 ;;7094
 ;;21,"00254210538 ")
 ;;7095
 ;;21,"00254210619 ")
 ;;7096
 ;;21,"00254210621 ")
 ;;7097
 ;;21,"00254210625 ")
 ;;7098
 ;;21,"00254210626 ")
 ;;7099
 ;;21,"00254210628 ")
 ;;7100
 ;;21,"00254210635 ")
 ;;7101
 ;;21,"00254210638 ")
 ;;7102
 ;;21,"00258369501 ")
 ;;7103
 ;;21,"00258369505 ")
 ;;7104
 ;;21,"00258369601 ")
 ;;7105
 ;;21,"00258369701 ")
 ;;7106
 ;;21,"00339567811 ")
 ;;7107
 ;;21,"00339580411 ")
 ;;7108
 ;;21,"00339613711 ")
 ;;7109
 ;;21,"00339645211 ")
 ;;7110
 ;;21,"00339647530 ")
 ;;7111
 ;;21,"00339647630 ")
 ;;7112
 ;;21,"00378004201 ")
 ;;7113
 ;;21,"00378006001 ")
 ;;7114
 ;;21,"00378007301 ")
 ;;7115
 ;;21,"00378008701 ")
 ;;7116
 ;;21,"00378009201 ")
 ;;7117
 ;;21,"00378021101 ")
 ;;7118
 ;;21,"00378021105 ")
 ;;7119
 ;;21,"00378027701 ")
 ;;7120
 ;;21,"00378027705 ")
 ;;7121
 ;;21,"00378033001 ")
 ;;7122
 ;;21,"00378033005 ")
 ;;7123
 ;;21,"00378040701 ")
 ;;7124
 ;;21,"00378040705 ")
 ;;7125
 ;;21,"00378041201 ")
 ;;7126
 ;;21,"00378041205 ")
 ;;7127
 ;;21,"00378041401 ")
 ;;7128
 ;;21,"00378041405 ")
 ;;7129
 ;;21,"00378044201 ")
 ;;7130
 ;;21,"00378044205 ")
 ;;7131
 ;;21,"00378057401 ")
 ;;7132
 ;;21,"00378057405 ")
 ;;7133
 ;;21,"00378141001 ")
 ;;7134
 ;;21,"00378192101 ")
 ;;7135
 ;;21,"00378192105 ")
 ;;7136
 ;;21,"00378192201 ")
 ;;7137
 ;;21,"00378192205 ")
 ;;7138
 ;;21,"00378192401 ")
 ;;7139
 ;;21,"00378192405 ")
 ;;7140
 ;;21,"00378200301 ")
 ;;7141
 ;;21,"00378200305 ")
 ;;7142
 ;;21,"00378200393 ")
 ;;7143
 ;;21,"00378200401 ")
 ;;7144
 ;;21,"00378200405 ")
 ;;7145
 ;;21,"00378200493 ")
 ;;7146
 ;;21,"00378200501 ")
 ;;7147
 ;;21,"00378200505 ")
 ;;7148
 ;;21,"00378200593 ")
 ;;7149
 ;;21,"00378200693 ")
 ;;7150
 ;;21,"00378201191 ")
 ;;7151
 ;;21,"00378225291 ")
 ;;7152
 ;;21,"00378232501 ")
 ;;7153
 ;;21,"00378261001 ")
 ;;7154
 ;;21,"00378261010 ")
 ;;7155
 ;;21,"00378261093 ")
 ;;7156
 ;;21,"00378262501 ")
 ;;7157
 ;;21,"00378262510 ")
 ;;7158
 ;;21,"00378262593 ")
 ;;7159
 ;;21,"00378265001 ")
 ;;7160
 ;;21,"00378265010 ")
 ;;7161
 ;;21,"00378265093 ")
 ;;7162
 ;;21,"00378267501 ")
 ;;7163
 ;;21,"00378267593 ")
 ;;7164
 ;;21,"00378268501 ")
 ;;7165
 ;;21,"00378268593 ")
 ;;7166
 ;;21,"00378269501 ")
 ;;7167
 ;;21,"00378269593 ")
 ;;7168
 ;;21,"00378302501 ")
 ;;7169
 ;;21,"00378305001 ")
 ;;7170
 ;;21,"00378307501 ")
 ;;7171
 ;;21,"00378325001 ")
 ;;7172
 ;;21,"00378347101 ")
 ;;7173
 ;;21,"00378347110 ")
 ;;7174
 ;;21,"00378347201 ")
 ;;7175
 ;;21,"00378347210 ")
 ;;7176
 ;;21,"00378347301 ")
 ;;7177
 ;;21,"00378347310 ")
 ;;7178
 ;;21,"00378347401 ")
 ;;7179
 ;;21,"00378347405 ")
 ;;7180
 ;;21,"00378347410 ")
 ;;7181
 ;;21,"00378351501 ")
 ;;7182
 ;;21,"00378351510 ")
 ;;7183
 ;;21,"00378351593 ")
 ;;7184
 ;;21,"00378353001 ")
 ;;7185
 ;;21,"00378353005 ")
 ;;7186
 ;;21,"00378353093 ")
 ;;7187
 ;;21,"00378354501 ")
 ;;7188
 ;;21,"00378354505 ")
 ;;7189
 ;;21,"00378354593 ")
 ;;7190
 ;;21,"00378417501 ")
 ;;7191
 ;;21,"00378418601 ")
 ;;7192
 ;;21,"00378418605 ")
 ;;7193
 ;;21,"00378418693 ")
 ;;7194
 ;;21,"00378418701 ")
 ;;7195
 ;;21,"00378418705 ")
 ;;7196
 ;;21,"00378418793 ")
 ;;7197
 ;;21,"00378418801 ")
 ;;7198
 ;;21,"00378418805 ")
 ;;7199
 ;;21,"00378418893 ")
 ;;7200
 ;;21,"00378421001 ")
 ;;7201
 ;;21,"00378421005 ")
 ;;7202
 ;;21,"00378422001 ")
 ;;7203
 ;;21,"00378422005 ")
 ;;7204
 ;;21,"00378422093 ")
 ;;7205
 ;;21,"00378435001 ")
 ;;7206
 ;;21,"00378435005 ")
 ;;7207
 ;;21,"00378435093 ")
 ;;7208
 ;;21,"00378488101 ")
 ;;7209
 ;;21,"00378488105 ")
 ;;7210
 ;;21,"00378488201 ")
 ;;7211
 ;;21,"00378488205 ")
 ;;7212
 ;;21,"00378488301 ")
 ;;7213
 ;;21,"00378488305 ")
 ;;7214
 ;;21,"00378488401 ")
 ;;7215
 ;;21,"00378488405 ")
 ;;7216
 ;;21,"00378488501 ")
 ;;7217
 ;;21,"00378488505 ")
 ;;7218
 ;;21,"00378513105 ")
 ;;7219
 ;;21,"00378513177 ")
 ;;7220
 ;;21,"00378513205 ")
 ;;7221
 ;;21,"00378513277 ")
 ;;7222
 ;;21,"00378513305 ")
 ;;7223
 ;;21,"00378513377 ")
 ;;7224
 ;;21,"00378541028 ")
 ;;7225
 ;;21,"00378541084 ")
 ;;7226
 ;;21,"00378542028 ")
 ;;7227
 ;;21,"00378542084 ")
 ;;7228
 ;;21,"00378623101 ")
 ;;7229
 ;;21,"00378623105 ")
 ;;7230
 ;;21,"00378623201 ")
 ;;7231
 ;;21,"00378623205 ")
 ;;7232
 ;;21,"00378623301 ")
 ;;7233
 ;;21,"00378623305 ")
 ;;7234
 ;;21,"00378700101 ")
 ;;7235
 ;;21,"00378700110 ")
 ;;7236
 ;;21,"00378700193 ")
 ;;7237
 ;;21,"00378700201 ")
 ;;7238
 ;;21,"00378700210 ")
 ;;7239
 ;;21,"00378700293 ")
 ;;7240
 ;;21,"00378700301 ")
 ;;7241
 ;;21,"00378700310 ")
 ;;7242
 ;;21,"00378700393 ")
 ;;7243
 ;;21,"00378700401 ")
 ;;7244
 ;;21,"00378700410 ")
 ;;7245
 ;;21,"00378700493 ")
 ;;7246
 ;;21,"00378929010 ")
 ;;7247
 ;;21,"00378929091 ")
 ;;7248
 ;;21,"00406066101 ")
 ;;7249
 ;;21,"00406066105 ")
 ;;7250
 ;;21,"00406066110 ")
 ;;7251
 ;;21,"00406066162 ")
 ;;7252
 ;;21,"00406066163 ")
 ;;7253
 ;;21,"00406066191 ")
 ;;7254
 ;;21,"00406066301 ")
 ;;7255
 ;;21,"00406066303 ")
 ;;7256
 ;;21,"00406066305 ")
 ;;7257
 ;;21,"00406066310 ")
 ;;7258
 ;;21,"00406066312 ")
 ;;7259
 ;;21,"00406066360 ")
 ;;7260
 ;;21,"00406066362 ")
 ;;7261
 ;;21,"00406066363 ")
 ;;7262
 ;;21,"00406066390 ")
 ;;7263
 ;;21,"00406066391 ")
 ;;7264
 ;;21,"00406200103 ")
 ;;7265
 ;;21,"00406200105 ")
 ;;7266
 ;;21,"00406200109 ")
 ;;7267
 ;;21,"00406200190 ")
 ;;7268
 ;;21,"00406209703 ")
 ;;7269
 ;;21,"00406209705 ")
 ;;7270
 ;;21,"00406209790 ")
 ;;7271
 ;;21,"00406209801 ")
 ;;7272
 ;;21,"00406209803 ")
 ;;7273
 ;;21,"00406209805 ")
 ;;7274
 ;;21,"00406209809 ")
 ;;7275
 ;;21,"00406209890 ")
 ;;7276
 ;;21,"00406209903 ")
 ;;7277
 ;;21,"00406209905 ")
 ;;7278
 ;;21,"00406209990 ")
 ;;7279
 ;;21,"00406993103 ")
 ;;7280
 ;;21,"00406993203 ")
 ;;7281
 ;;21,"00406993303 ")
 ;;7282
 ;;21,"00406993403 ")
 ;;7283
 ;;21,"00440709030 ")
 ;;7284
 ;;21,"00440709130 ")
 ;;7285
 ;;21,"00440709160 ")
 ;;7286
 ;;21,"00440709190 ")
 ;;7287
 ;;21,"00440709191 ")
 ;;7288
 ;;21,"00440709194 ")
 ;;7289
 ;;21,"00440709230 ")
 ;;7290
 ;;21,"00440709260 ")
 ;;7291
 ;;21,"00440709290 ")
 ;;7292
 ;;21,"00440709291 ")
 ;;7293
 ;;21,"00440709294 ")
 ;;7294
 ;;21,"00440752130 ")
 ;;7295
 ;;21,"00440752190 ")
 ;;7296
 ;;21,"00440857520 ")
 ;;7297
 ;;21,"00440857530 ")
 ;;7298
 ;;21,"00440857560 ")
 ;;7299
 ;;21,"00440857590 ")
 ;;7300
 ;;21,"00440857630 ")
 ;;7301
 ;;21,"00440857660 ")
 ;;7302
 ;;21,"00480005601 ")
 ;;7303
 ;;21,"00480005701 ")
 ;;7304
 ;;21,"00480007201 ")
 ;;7305
 ;;21,"00480019901 ")
 ;;7306
 ;;21,"00480063701 ")
 ;;7307
 ;;21,"00480063710 ")
 ;;7308
 ;;21,"00480063801 ")
 ;;7309
 ;;21,"00480063810 ")
 ;;7310
 ;;21,"00480069501 ")
 ;;7311
 ;;21,"00480078806 ")
 ;;7312
 ;;21,"00480095601 ")
 ;;7313
 ;;21,"00480095801 ")
 ;;7314