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