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

BGPM5AIR.m

Go to the documentation of this file.
BGPM5AIR ;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,"54569055703 ")
 ;;975
 ;;21,"54569055900 ")
 ;;976
 ;;21,"54569055901 ")
 ;;977
 ;;21,"54569055903 ")
 ;;978
 ;;21,"54569056101 ")
 ;;979
 ;;21,"54569056102 ")
 ;;980
 ;;21,"54569056103 ")
 ;;981
 ;;21,"54569056400 ")
 ;;982
 ;;21,"54569059000 ")
 ;;983
 ;;21,"54569059600 ")
 ;;984
 ;;21,"54569163400 ")
 ;;985
 ;;21,"54569249900 ")
 ;;986
 ;;21,"54569309700 ")
 ;;987
 ;;21,"54569343200 ")
 ;;988
 ;;21,"54569343201 ")
 ;;989
 ;;21,"54569343203 ")
 ;;990
 ;;21,"54569343204 ")
 ;;991
 ;;21,"54569343205 ")
 ;;992
 ;;21,"54569343207 ")
 ;;993
 ;;21,"54569365400 ")
 ;;994
 ;;21,"54569365403 ")
 ;;995
 ;;21,"54569365404 ")
 ;;996
 ;;21,"54569378700 ")
 ;;997
 ;;21,"54569378701 ")
 ;;998
 ;;21,"54569378702 ")
 ;;999
 ;;21,"54569378704 ")
 ;;1000
 ;;21,"54569378800 ")
 ;;1001
 ;;21,"54569378801 ")
 ;;1002
 ;;21,"54569378803 ")
 ;;1003
 ;;21,"54569379000 ")
 ;;1004
 ;;21,"54569379100 ")
 ;;1005
 ;;21,"54569388500 ")
 ;;1006
 ;;21,"54569388502 ")
 ;;1007
 ;;21,"54569388504 ")
 ;;1008
 ;;21,"54569444100 ")
 ;;1009
 ;;21,"54569444200 ")
 ;;1010
 ;;21,"54569470700 ")
 ;;1011
 ;;21,"54569470800 ")
 ;;1012
 ;;21,"54569471800 ")
 ;;1013
 ;;21,"54569471801 ")
 ;;1014
 ;;21,"54569536800 ")
 ;;1015
 ;;21,"54569538500 ")
 ;;1016
 ;;21,"54569540400 ")
 ;;1017
 ;;21,"54569540401 ")
 ;;1018
 ;;21,"54569541700 ")
 ;;1019
 ;;21,"54569541701 ")
 ;;1020
 ;;21,"54569541900 ")
 ;;1021
 ;;21,"54569541901 ")
 ;;1022
 ;;21,"54569616900 ")
 ;;1023
 ;;21,"54569853200 ")
 ;;1024
 ;;21,"54569854300 ")
 ;;1025
 ;;21,"54569854500 ")
 ;;1026
 ;;21,"54569854501 ")
 ;;1027
 ;;21,"54569857400 ")
 ;;1028
 ;;21,"54569859100 ")
 ;;1029
 ;;21,"54643105701 ")
 ;;1030
 ;;21,"54643105705 ")
 ;;1031
 ;;21,"54643570000 ")
 ;;1032
 ;;21,"54643570001 ")
 ;;1033
 ;;21,"54738046801 ")
 ;;1034
 ;;21,"54738046803 ")
 ;;1035
 ;;21,"54738046901 ")
 ;;1036
 ;;21,"54738046903 ")
 ;;1037
 ;;21,"54868005200 ")
 ;;1038
 ;;21,"54868005201 ")
 ;;1039
 ;;21,"54868005202 ")
 ;;1040
 ;;21,"54868005302 ")
 ;;1041
 ;;21,"54868005303 ")
 ;;1042
 ;;21,"54868005306 ")
 ;;1043
 ;;21,"54868005307 ")
 ;;1044
 ;;21,"54868029300 ")
 ;;1045
 ;;21,"54868029301 ")
 ;;1046
 ;;21,"54868029303 ")
 ;;1047
 ;;21,"54868029304 ")
 ;;1048
 ;;21,"54868029305 ")
 ;;1049
 ;;21,"54868029306 ")
 ;;1050
 ;;21,"54868032100 ")
 ;;1051
 ;;21,"54868067400 ")
 ;;1052
 ;;21,"54868067401 ")
 ;;1053
 ;;21,"54868068000 ")
 ;;1054
 ;;21,"54868068001 ")
 ;;1055
 ;;21,"54868068501 ")
 ;;1056
 ;;21,"54868068502 ")
 ;;1057
 ;;21,"54868069601 ")
 ;;1058
 ;;21,"54868069602 ")
 ;;1059
 ;;21,"54868069603 ")
 ;;1060
 ;;21,"54868070100 ")
 ;;1061
 ;;21,"54868085400 ")
 ;;1062
 ;;21,"54868085401 ")
 ;;1063
 ;;21,"54868106300 ")
 ;;1064
 ;;21,"54868106301 ")
 ;;1065
 ;;21,"54868106302 ")
 ;;1066
 ;;21,"54868107801 ")
 ;;1067
 ;;21,"54868107803 ")
 ;;1068
 ;;21,"54868107805 ")
 ;;1069
 ;;21,"54868144100 ")
 ;;1070
 ;;21,"54868144101 ")
 ;;1071
 ;;21,"54868144200 ")
 ;;1072
 ;;21,"54868144201 ")
 ;;1073
 ;;21,"54868144202 ")
 ;;1074
 ;;21,"54868151700 ")
 ;;1075
 ;;21,"54868151701 ")
 ;;1076
 ;;21,"54868151702 ")
 ;;1077
 ;;21,"54868151703 ")
 ;;1078
 ;;21,"54868151800 ")
 ;;1079
 ;;21,"54868151801 ")
 ;;1080
 ;;21,"54868151802 ")
 ;;1081
 ;;21,"54868151803 ")
 ;;1082
 ;;21,"54868187100 ")
 ;;1083
 ;;21,"54868187101 ")
 ;;1084
 ;;21,"54868187102 ")
 ;;1085
 ;;21,"54868187104 ")
 ;;1086
 ;;21,"54868197100 ")
 ;;1087
 ;;21,"54868197101 ")
 ;;1088
 ;;21,"54868197103 ")
 ;;1089
 ;;21,"54868197104 ")
 ;;1090
 ;;21,"54868234901 ")
 ;;1091
 ;;21,"54868234902 ")
 ;;1092
 ;;21,"54868234903 ")
 ;;1093
 ;;21,"54868234904 ")
 ;;1094
 ;;21,"54868234905 ")
 ;;1095
 ;;21,"54868257200 ")
 ;;1096
 ;;21,"54868257201 ")
 ;;1097
 ;;21,"54868257202 ")
 ;;1098
 ;;21,"54868268300 ")
 ;;1099
 ;;21,"54868268301 ")
 ;;1100
 ;;21,"54868268302 ")
 ;;1101
 ;;21,"54868286400 ")
 ;;1102
 ;;21,"54868286401 ")
 ;;1103
 ;;21,"54868298900 ")
 ;;1104
 ;;21,"54868298902 ")
 ;;1105
 ;;21,"54868298903 ")
 ;;1106
 ;;21,"54868298904 ")
 ;;1107
 ;;21,"54868298905 ")
 ;;1108
 ;;21,"54868298906 ")
 ;;1109
 ;;21,"54868299000 ")
 ;;1110
 ;;21,"54868299002 ")
 ;;1111
 ;;21,"54868299003 ")
 ;;1112
 ;;21,"54868299004 ")
 ;;1113
 ;;21,"54868299005 ")
 ;;1114
 ;;21,"54868306400 ")
 ;;1115
 ;;21,"54868306401 ")
 ;;1116
 ;;21,"54868325701 ")
 ;;1117
 ;;21,"54868325702 ")
 ;;1118
 ;;21,"54868325703 ")
 ;;1119
 ;;21,"54868325704 ")
 ;;1120
 ;;21,"54868325705 ")
 ;;1121
 ;;21,"54868325706 ")
 ;;1122
 ;;21,"54868358700 ")
 ;;1123
 ;;21,"54868358701 ")
 ;;1124
 ;;21,"54868358702 ")
 ;;1125
 ;;21,"54868358703 ")
 ;;1126
 ;;21,"54868358704 ")
 ;;1127
 ;;21,"54868358705 ")
 ;;1128
 ;;21,"54868360200 ")
 ;;1129
 ;;21,"54868372101 ")
 ;;1130
 ;;21,"54868372102 ")
 ;;1131
 ;;21,"54868387300 ")
 ;;1132
 ;;21,"54868392000 ")
 ;;1133
 ;;21,"54868417300 ")
 ;;1134
 ;;21,"54868417900 ")
 ;;1135
 ;;21,"54868422300 ")
 ;;1136
 ;;21,"54868422301 ")
 ;;1137
 ;;21,"54868422302 ")
 ;;1138
 ;;21,"54868422303 ")
 ;;1139
 ;;21,"54868422304 ")
 ;;1140
 ;;21,"54868439500 ")
 ;;1141
 ;;21,"54868439501 ")
 ;;1142
 ;;21,"54868439502 ")
 ;;1143
 ;;21,"54868439503 ")
 ;;1144
 ;;21,"54868439600 ")
 ;;1145
 ;;21,"54868439601 ")
 ;;1146
 ;;21,"54868439602 ")
 ;;1147
 ;;21,"54868439603 ")
 ;;1148
 ;;21,"54868442100 ")
 ;;1149
 ;;21,"54868442101 ")
 ;;1150
 ;;21,"54868442102 ")
 ;;1151
 ;;21,"54868442400 ")
 ;;1152
 ;;21,"54868442401 ")
 ;;1153
 ;;21,"54868442402 ")
 ;;1154
 ;;21,"54868442403 ")
 ;;1155
 ;;21,"54868448600 ")
 ;;1156
 ;;21,"54868457600 ")
 ;;1157
 ;;21,"54868457601 ")
 ;;1158
 ;;21,"54868457602 ")
 ;;1159
 ;;21,"54868457603 ")
 ;;1160
 ;;21,"54868457700 ")
 ;;1161
 ;;21,"54868457701 ")
 ;;1162
 ;;21,"54868457702 ")
 ;;1163
 ;;21,"54868457703 ")
 ;;1164
 ;;21,"54868457800 ")
 ;;1165
 ;;21,"54868457801 ")
 ;;1166
 ;;21,"54868457802 ")
 ;;1167
 ;;21,"54868457803 ")
 ;;1168
 ;;21,"54868462100 ")
 ;;1169
 ;;21,"54868466100 ")
 ;;1170
 ;;21,"54868466101 ")
 ;;1171
 ;;21,"54868466102 ")
 ;;1172
 ;;21,"54868466103 ")
 ;;1173
 ;;21,"54868484400 ")
 ;;1174
 ;;21,"54868484401 ")
 ;;1175
 ;;21,"54868484402 ")
 ;;1176
 ;;21,"54868484403 ")
 ;;1177
 ;;21,"54868490300 ")
 ;;1178
 ;;21,"54868490301 ")
 ;;1179
 ;;21,"54868490302 ")
 ;;1180
 ;;21,"54868492100 ")
 ;;1181
 ;;21,"54868492101 ")
 ;;1182
 ;;21,"54868492102 ")
 ;;1183
 ;;21,"54868493200 ")
 ;;1184
 ;;21,"54868493201 ")
 ;;1185
 ;;21,"54868501300 ")
 ;;1186
 ;;21,"54868502100 ")
 ;;1187
 ;;21,"54868502101 ")
 ;;1188
 ;;21,"54868502102 ")
 ;;1189
 ;;21,"54868502103 ")
 ;;1190
 ;;21,"54868502104 ")
 ;;1191
 ;;21,"54868506800 ")
 ;;1192
 ;;21,"54868506801 ")
 ;;1193
 ;;21,"54868506802 ")
 ;;1194
 ;;21,"54868506803 ")
 ;;1195
 ;;21,"54868509500 ")
 ;;1196
 ;;21,"54868509501 ")
 ;;1197
 ;;21,"54868509502 ")
 ;;1198
 ;;21,"54868509503 ")
 ;;1199
 ;;21,"54868529500 ")
 ;;1200
 ;;21,"54868529501 ")
 ;;1201
 ;;21,"54868534400 ")
 ;;1202
 ;;21,"54868534401 ")
 ;;1203
 ;;21,"54868534402 ")
 ;;1204
 ;;21,"54868539500 ")
 ;;1205
 ;;21,"54868540000 ")
 ;;1206
 ;;21,"54868540001 ")
 ;;1207
 ;;21,"54868552400 ")
 ;;1208
 ;;21,"54868552401 ")
 ;;1209
 ;;21,"54868556400 ")
 ;;1210
 ;;21,"54868556401 ")
 ;;1211
 ;;21,"54868558800 ")
 ;;1212
 ;;21,"54868572600 ")
 ;;1213
 ;;21,"54868575500 ")
 ;;1214
 ;;21,"54868575501 ")
 ;;1215
 ;;21,"54921010110 ")
 ;;1216
 ;;21,"54921010139 ")
 ;;1217
 ;;21,"54921010510 ")
 ;;1218
 ;;21,"54921010534 ")
 ;;1219
 ;;21,"54921010539 ")
 ;;1220
 ;;21,"54921010710 ")
 ;;1221
 ;;21,"54921011510 ")
 ;;1222
 ;;21,"54921011710 ")
 ;;1223
 ;;21,"55045123607 ")
 ;;1224
 ;;21,"55045123608 ")
 ;;1225
 ;;21,"55045123609 ")
 ;;1226
 ;;21,"55045133909 ")
 ;;1227
 ;;21,"55045185301 ")
 ;;1228
 ;;21,"55045186001 ")
 ;;1229
 ;;21,"55045186002 ")
 ;;1230
 ;;21,"55045186006 ")
 ;;1231
 ;;21,"55045186008 ")
 ;;1232
 ;;21,"55045186009 ")
 ;;1233
 ;;21,"55045207801 ")
 ;;1234
 ;;21,"55045207806 ")
 ;;1235
 ;;21,"55045207808 ")
 ;;1236
 ;;21,"55045221700 ")
 ;;1237
 ;;21,"55045221702 ")
 ;;1238
 ;;21,"55045221706 ")
 ;;1239
 ;;21,"55045221708 ")
 ;;1240
 ;;21,"55045221709 ")
 ;;1241
 ;;21,"55045226900 ")
 ;;1242
 ;;21,"55045226901 ")
 ;;1243
 ;;21,"55045226902 ")
 ;;1244
 ;;21,"55045226906 ")
 ;;1245
 ;;21,"55045226908 ")
 ;;1246
 ;;21,"55045226909 ")
 ;;1247
 ;;21,"55045228200 ")
 ;;1248
 ;;21,"55045228202 ")
 ;;1249
 ;;21,"55045228206 ")
 ;;1250
 ;;21,"55045228207 ")
 ;;1251
 ;;21,"55045228208 ")
 ;;1252
 ;;21,"55045228209 ")
 ;;1253
 ;;21,"55045243100 ")
 ;;1254
 ;;21,"55045243101 ")
 ;;1255
 ;;21,"55045243108 ")
 ;;1256
 ;;21,"55045249801 ")
 ;;1257
 ;;21,"55045249808 ")
 ;;1258
 ;;21,"55045275508 ")
 ;;1259
 ;;21,"55045297700 ")
 ;;1260
 ;;21,"55045299001 ")
 ;;1261
 ;;21,"55045299008 ")
 ;;1262
 ;;21,"55045300600 ")
 ;;1263
 ;;21,"55045300608 ")
 ;;1264
 ;;21,"55045306100 ")
 ;;1265
 ;;21,"55045336101 ")
 ;;1266
 ;;21,"55045336108 ")
 ;;1267
 ;;21,"55045337108 ")
 ;;1268
 ;;21,"55045337708 ")
 ;;1269
 ;;21,"55045360401 ")
 ;;1270
 ;;21,"55045376208 ")
 ;;1271
 ;;21,"55154020401 ")
 ;;1272
 ;;21,"55154036105 ")
 ;;1273
 ;;21,"55154037305 ")
 ;;1274
 ;;21,"55154060401 ")
 ;;1275
 ;;21,"55154060501 ")
 ;;1276
 ;;21,"55154068400 ")
 ;;1277
 ;;21,"55154100907 ")
 ;;1278
 ;;21,"55154110107 ")
 ;;1279
 ;;21,"55154235505 ")
 ;;1280
 ;;21,"55154235507 ")
 ;;1281
 ;;21,"55154343509 ")
 ;;1282
 ;;21,"55154451400 ")
 ;;1283
 ;;21,"55154451404 ")
 ;;1284
 ;;21,"55154451406 ")
 ;;1285
 ;;21,"55154451500 ")
 ;;1286
 ;;21,"55154451504 ")
 ;;1287
 ;;21,"55154451506 ")
 ;;1288
 ;;21,"55154451600 ")
 ;;1289
 ;;21,"55154451604 ")
 ;;1290
 ;;21,"55154451606 ")
 ;;1291
 ;;21,"55154451700 ")
 ;;1292
 ;;21,"55154451704 ")
 ;;1293
 ;;21,"55154451706 ")
 ;;1294
 ;;21,"55154451708 ")
 ;;1295
 ;;21,"55154455109 ")
 ;;1296
 ;;21,"55154455809 ")
 ;;1297
 ;;21,"55154502600 ")
 ;;1298
 ;;21,"55154502608 ")
 ;;1299
 ;;21,"55154505600 ")
 ;;1300
 ;;21,"55154507300 ")
 ;;1301
 ;;21,"55154535600 ")
 ;;1302
 ;;21,"55154540507 ")
 ;;1303
 ;;21,"55154541107 ")
 ;;1304
 ;;21,"55154545500 ")
 ;;1305
 ;;21,"55154547800 ")
 ;;1306
 ;;21,"55154547807 ")
 ;;1307
 ;;21,"55154548500 ")
 ;;1308
 ;;21,"55154549100 ")
 ;;1309
 ;;21,"55154551100 ")
 ;;1310
 ;;21,"55154551107 ")
 ;;1311
 ;;21,"55154551200 ")
 ;;1312
 ;;21,"55154551207 ")
 ;;1313
 ;;21,"55154567100 ")
 ;;1314
 ;;21,"55154568200 ")
 ;;1315
 ;;21,"55154583600 ")
 ;;1316
 ;;21,"55154583800 ")
 ;;1317
 ;;21,"55154617300 ")
 ;;1318
 ;;21,"55154618000 ")
 ;;1319
 ;;21,"55154618100 ")
 ;;1320
 ;;21,"55154618600 ")
 ;;1321
 ;;21,"55154621309 ")
 ;;1322
 ;;21,"55154622709 ")
 ;;1323
 ;;21,"55154665405 ")
 ;;1324
 ;;21,"55154755900 ")
 ;;1325
 ;;21,"55154756000 ")
 ;;1326