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

BGP7IXSD.m

Go to the documentation of this file.
BGP7IXSD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 16, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"55953-0133-40 ")
 ;;549
 ;;21,"55953-0133-80 ")
 ;;550
 ;;21,"55953-0134-40 ")
 ;;919
 ;;21,"55953-0134-80 ")
 ;;920
 ;;21,"55953-0135-40 ")
 ;;901
 ;;21,"57480-0839-01 ")
 ;;551
 ;;21,"57480-0839-06 ")
 ;;552
 ;;21,"57480-0840-01 ")
 ;;921
 ;;21,"57480-0841-06 ")
 ;;1082
 ;;21,"57866-0064-09 ")
 ;;1659
 ;;21,"57866-0065-01 ")
 ;;1575
 ;;21,"57866-0245-01 ")
 ;;1179
 ;;21,"57866-0246-01 ")
 ;;1180
 ;;21,"57866-0249-01 ")
 ;;1117
 ;;21,"57866-2000-01 ")
 ;;1315
 ;;21,"57866-2000-02 ")
 ;;1316
 ;;21,"57866-3136-01 ")
 ;;1181
 ;;21,"57866-4000-01 ")
 ;;1008
 ;;21,"57866-4000-02 ")
 ;;1009
 ;;21,"57866-4420-01 ")
 ;;1352
 ;;21,"57866-4421-01 ")
 ;;1355
 ;;21,"57866-4423-01 ")
 ;;1442
 ;;21,"57866-4424-01 ")
 ;;1344
 ;;21,"57866-5000-01 ")
 ;;1287
 ;;21,"57866-5000-02 ")
 ;;1252
 ;;21,"57866-6000-01 ")
 ;;1246
 ;;21,"57866-6103-01 ")
 ;;922
 ;;21,"57866-6103-02 ")
 ;;939
 ;;21,"57866-6103-03 ")
 ;;924
 ;;21,"57866-6103-04 ")
 ;;910
 ;;21,"57866-6106-01 ")
 ;;553
 ;;21,"57866-6106-02 ")
 ;;554
 ;;21,"57866-6106-03 ")
 ;;706
 ;;21,"57866-6106-04 ")
 ;;471
 ;;21,"57866-6700-02 ")
 ;;1010
 ;;21,"57866-6701-02 ")
 ;;1250
 ;;21,"57866-6705-01 ")
 ;;422
 ;;21,"57866-6706-01 ")
 ;;261
 ;;21,"57866-6859-01 ")
 ;;780
 ;;21,"57866-6859-02 ")
 ;;781
 ;;21,"57866-6859-03 ")
 ;;782
 ;;21,"57866-6859-04 ")
 ;;783
 ;;21,"57866-7985-01 ")
 ;;407
 ;;21,"57866-7989-01 ")
 ;;318
 ;;21,"57866-7992-01 ")
 ;;1586
 ;;21,"58016-0228-00 ")
 ;;1516
 ;;21,"58016-0228-02 ")
 ;;1544
 ;;21,"58016-0228-30 ")
 ;;1528
 ;;21,"58016-0228-60 ")
 ;;1530
 ;;21,"58016-0228-90 ")
 ;;1527
 ;;21,"58016-0362-00 ")
 ;;423
 ;;21,"58016-0362-14 ")
 ;;439
 ;;21,"58016-0362-21 ")
 ;;425
 ;;21,"58016-0362-28 ")
 ;;411
 ;;21,"58016-0362-30 ")
 ;;427
 ;;21,"58016-0362-60 ")
 ;;428
 ;;21,"58016-0363-00 ")
 ;;262
 ;;21,"58016-0363-14 ")
 ;;306
 ;;21,"58016-0363-21 ")
 ;;350
 ;;21,"58016-0363-30 ")
 ;;279
 ;;21,"58016-0363-60 ")
 ;;324
 ;;21,"58016-0420-00 ")
 ;;595
 ;;21,"58016-0420-10 ")
 ;;596
 ;;21,"58016-0420-30 ")
 ;;597
 ;;21,"58016-0420-60 ")
 ;;598
 ;;21,"58016-0420-90 ")
 ;;599
 ;;21,"58016-0513-05 ")
 ;;1118
 ;;21,"58016-0564-00 ")
 ;;408
 ;;21,"58016-0564-30 ")
 ;;367
 ;;21,"58016-0564-60 ")
 ;;396
 ;;21,"58016-0564-90 ")
 ;;394
 ;;21,"58016-0569-00 ")
 ;;139
 ;;21,"58016-0569-30 ")
 ;;140
 ;;21,"58016-0569-60 ")
 ;;141
 ;;21,"58016-0569-90 ")
 ;;142
 ;;21,"58016-0571-00 ")
 ;;194
 ;;21,"58016-0571-30 ")
 ;;195
 ;;21,"58016-0571-60 ")
 ;;196
 ;;21,"58016-0571-90 ")
 ;;197
 ;;21,"58016-0572-00 ")
 ;;784
 ;;21,"58016-0572-30 ")
 ;;785
 ;;21,"58016-0572-60 ")
 ;;786
 ;;21,"58016-0572-90 ")
 ;;787
 ;;21,"58016-0579-00 ")
 ;;1018
 ;;21,"58016-0579-20 ")
 ;;1019
 ;;21,"58016-0579-30 ")
 ;;1020
 ;;21,"58016-0579-60 ")
 ;;1021
 ;;21,"58016-0580-20 ")
 ;;1108
 ;;21,"58016-0580-30 ")
 ;;1109
 ;;21,"58016-0580-60 ")
 ;;1110
 ;;21,"58016-0581-00 ")
 ;;942
 ;;21,"58016-0581-20 ")
 ;;943
 ;;21,"58016-0581-30 ")
 ;;944
 ;;21,"58016-0581-60 ")
 ;;945
 ;;21,"58016-0599-08 ")
 ;;429
 ;;21,"58016-0646-00 ")
 ;;319
 ;;21,"58016-0646-30 ")
 ;;320
 ;;21,"58016-0646-60 ")
 ;;31
 ;;21,"58016-0646-90 ")
 ;;1060
 ;;21,"58016-0685-00 ")
 ;;686
 ;;21,"58016-0685-10 ")
 ;;687
 ;;21,"58016-0685-30 ")
 ;;704
 ;;21,"58016-0685-60 ")
 ;;689
 ;;21,"58016-0685-90 ")
 ;;675
 ;;21,"58016-0686-00 ")
 ;;654
 ;;21,"58016-0686-10 ")
 ;;655
 ;;21,"58016-0686-30 ")
 ;;656
 ;;21,"58016-0686-60 ")
 ;;657
 ;;21,"58016-0686-90 ")
 ;;658
 ;;21,"58016-0760-00 ")
 ;;325
 ;;21,"58016-0760-30 ")
 ;;326
 ;;21,"58016-0760-60 ")
 ;;327
 ;;21,"58016-0760-90 ")
 ;;328
 ;;21,"58016-0917-00 ")
 ;;353
 ;;21,"58016-0917-30 ")
 ;;354
 ;;21,"58016-0917-60 ")
 ;;355
 ;;21,"58016-0917-90 ")
 ;;356
 ;;21,"58016-0956-00 ")
 ;;357
 ;;21,"58016-0956-30 ")
 ;;358
 ;;21,"58016-0956-60 ")
 ;;359
 ;;21,"58016-0956-90 ")
 ;;360
 ;;21,"58016-0963-00 ")
 ;;430
 ;;21,"58016-0963-30 ")
 ;;431
 ;;21,"58016-0963-60 ")
 ;;432
 ;;21,"58016-0963-90 ")
 ;;433
 ;;21,"58016-0998-00 ")
 ;;329
 ;;21,"58016-0998-30 ")
 ;;330
 ;;21,"58016-0998-60 ")
 ;;331
 ;;21,"58016-0998-90 ")
 ;;332
 ;;21,"58016-2638-90 ")
 ;;361
 ;;21,"58177-0341-04 ")
 ;;627
 ;;21,"58177-0342-04 ")
 ;;615
 ;;21,"58177-0342-08 ")
 ;;601
 ;;21,"58177-0343-04 ")
 ;;691
 ;;21,"58177-0343-08 ")
 ;;692
 ;;21,"58177-0344-04 ")
 ;;674
 ;;21,"58177-0344-08 ")
 ;;660
 ;;21,"58864-0006-30 ")
 ;;1275
 ;;21,"58864-0066-28 ")
 ;;1119
 ;;21,"58864-0104-30 ")
 ;;1031
 ;;21,"58864-0510-15 ")
 ;;1025
 ;;21,"58864-0603-15 ")
 ;;1011
 ;;21,"58864-0603-90 ")
 ;;1012
 ;;21,"58864-0618-30 ")
 ;;1257
 ;;21,"58864-0654-30 ")
 ;;1165
 ;;21,"58864-0661-30 ")
 ;;1458
 ;;21,"58864-0667-30 ")
 ;;1036
 ;;21,"58864-0674-30 ")
 ;;1299
 ;;21,"58864-0750-30 ")
 ;;1182
 ;;21,"58864-0753-30 ")
 ;;1183
 ;;21,"58864-0753-90 ")
 ;;1184
 ;;21,"58864-0754-30 ")
 ;;1022
 ;;21,"58864-0755-30 ")
 ;;1111
 ;;21,"58864-0762-30 ")
 ;;946
 ;;21,"58864-0774-30 ")
 ;;1032
 ;;21,"58864-0774-90 ")
 ;;1185
 ;;21,"58864-0787-30 ")
 ;;1535
 ;;21,"58864-0838-30 ")
 ;;1534
 ;;21,"58864-0847-30 ")
 ;;1186
 ;;21,"58864-0859-30 ")
 ;;1314
 ;;21,"58864-0863-30 ")
 ;;1335
 ;;21,"58864-0869-30 ")
 ;;1332
 ;;21,"59762-5019-01 ")
 ;;1443
 ;;21,"59762-5020-01 ")
 ;;1366
 ;;21,"59762-5021-01 ")
 ;;1339
 ;;21,"59762-5022-01 ")
 ;;1343
 ;;21,"59772-5160-05 ")
 ;;1473
 ;;21,"59772-5161-05 ")
 ;;1469
 ;;21,"59772-5162-05 ")
 ;;1508
 ;;21,"59772-5163-05 ")
 ;;1500
 ;;21,"59772-5541-01 ")
 ;;17
 ;;21,"59772-5541-03 ")
 ;;18
 ;;21,"59772-5542-01 ")
 ;;788
 ;;21,"59772-5542-03 ")
 ;;789
 ;;21,"59772-5543-01 ")
 ;;143
 ;;21,"59772-5543-03 ")
 ;;144
 ;;21,"59772-5544-01 ")
 ;;198
 ;;21,"59772-5544-03 ")
 ;;199
 ;;21,"59772-7045-01 ")
 ;;721
 ;;21,"59772-7045-03 ")
 ;;722
 ;;21,"59772-7046-01 ")
 ;;673
 ;;21,"59772-7046-03 ")
 ;;852
 ;;21,"59772-7046-05 ")
 ;;853
 ;;21,"59772-7047-01 ")
 ;;926
 ;;21,"59772-7047-03 ")
 ;;927
 ;;21,"59772-7048-01 ")
 ;;902
 ;;21,"59930-1655-01 ")
 ;;723
 ;;21,"59930-1655-02 ")
 ;;724
 ;;21,"59930-1655-03 ")
 ;;725
 ;;21,"59930-1656-01 ")
 ;;854
 ;;21,"59930-1656-02 ")
 ;;855
 ;;21,"59930-1656-03 ")
 ;;856
 ;;21,"59930-1657-01 ")
 ;;928
 ;;21,"59930-1657-02 ")
 ;;929
 ;;21,"59930-1657-03 ")
 ;;930
 ;;21,"59930-1658-01 ")
 ;;903
 ;;21,"59930-1658-02 ")
 ;;904
 ;;21,"59930-1658-03 ")
 ;;905
 ;;21,"60346-0232-20 ")
 ;;1120
 ;;21,"60346-0232-25 ")
 ;;1121
 ;;21,"60346-0232-90 ")
 ;;1122
 ;;21,"60346-0595-30 ")
 ;;1414
 ;;21,"60346-0612-90 ")
 ;;1023
 ;;21,"60346-0618-30 ")
 ;;1313
 ;;21,"60346-0778-30 ")
 ;;1123
 ;;21,"60346-0778-90 ")
 ;;1124
 ;;21,"60346-0868-30 ")
 ;;1100
 ;;21,"60346-0871-03 ")
 ;;434
 ;;21,"60346-0871-30 ")
 ;;435
 ;;21,"60346-0972-08 ")
 ;;1327
 ;;21,"60346-0972-30 ")
 ;;1112
 ;;21,"60346-0984-30 ")
 ;;1294
 ;;21,"60346-0984-60 ")
 ;;1295
 ;;21,"60429-0029-90 ")
 ;;726
 ;;21,"60429-0030-12 ")
 ;;857
 ;;21,"60429-0030-27 ")
 ;;858
 ;;21,"60429-0030-60 ")
 ;;859
 ;;21,"60429-0030-90 ")
 ;;860
 ;;21,"60429-0031-12 ")
 ;;931
 ;;21,"60429-0031-27 ")
 ;;932
 ;;21,"60429-0031-30 ")
 ;;933
 ;;21,"60429-0031-60 ")
 ;;934
 ;;21,"60429-0031-90 ")
 ;;935
 ;;21,"60505-0184-00 ")
 ;;1403
 ;;21,"60505-0184-01 ")
 ;;1402
 ;;21,"60505-0185-00 ")
 ;;362
 ;;21,"60505-0185-01 ")
 ;;363
 ;;21,"60505-0186-00 ")
 ;;436
 ;;21,"60505-0186-01 ")
 ;;437
 ;;21,"60505-0187-00 ")
 ;;333
 ;;21,"60505-0187-01 ")
 ;;334
 ;;21,"60505-0188-00 ")
 ;;337
 ;;21,"60505-0188-01 ")
 ;;335
 ;;21,"60505-0189-00 ")
 ;;1416
 ;;21,"60505-0189-01 ")
 ;;1427
 ;;21,"60505-0205-03 ")
 ;;1658
 ;;21,"60505-0206-03 ")
 ;;1598
 ;;21,"60505-0207-03 ")
 ;;1644
 ;;21,"60505-2510-02 ")
 ;;117
 ;;21,"60505-2511-02 ")
 ;;103
 ;;21,"60505-2512-02 ")
 ;;69
 ;;21,"60763-1011-00 ")
 ;;727
 ;;21,"60763-1011-02 ")
 ;;728
 ;;21,"60763-1012-00 ")
 ;;861
 ;;21,"60763-1012-02 ")
 ;;862
 ;;21,"60763-1013-00 ")
 ;;936
 ;;21,"60951-0721-90 ")
 ;;729
 ;;21,"60951-0724-90 ")
 ;;937
 ;;21,"60951-0731-70 ")
 ;;1509
 ;;21,"60951-0733-70 ")
 ;;1472
 ;;21,"60951-0739-70 ")
 ;;1501
 ;;21,"60951-0741-70 ")
 ;;1465
 ;;21,"61570-0110-01 ")
 ;;1388
 ;;21,"61570-0110-56 ")
 ;;1387
 ;;21,"61570-0111-01 ")
 ;;1392
 ;;21,"61570-0111-05 ")
 ;;1391
 ;;21,"61570-0111-56 ")
 ;;1390
 ;;21,"61570-0112-01 ")
 ;;1381
 ;;21,"61570-0112-05 ")
 ;;1383
 ;;21,"61570-0112-56 ")
 ;;1354
 ;;21,"61570-0120-01 ")
 ;;1384
 ;;21,"61570-0120-05 ")
 ;;1368
 ;;21,"62033-0101-20 ")
 ;;863
 ;;21,"62037-0516-01 ")
 ;;628
 ;;21,"62037-0517-01 ")
 ;;587
 ;;21,"62037-0518-01 ")
 ;;693
 ;;21,"62037-0519-01 ")
 ;;646
 ;;21,"62037-0756-01 ")
 ;;1556
 ;;21,"62037-0757-01 ")
 ;;1548
 ;;21,"62037-0758-01 ")
 ;;1482
 ;;21,"62037-0759-01 ")
 ;;1561
 ;;21,"62037-0936-90 ")
 ;;519
 ;;21,"62037-0937-90 ")
 ;;520
 ;;21,"62175-0171-37 ")
 ;;1451
 ;;21,"62175-0177-37 ")
 ;;1448
 ;;21,"62584-0164-06 ")
 ;;974
 ;;21,"62584-0166-06 ")
 ;;1015
 ;;21,"62584-0636-01 ")
 ;;1045
 ;;21,"62584-0636-33 ")
 ;;1046
 ;;21,"62584-0637-01 ")
 ;;1138
 ;;21,"62584-0637-33 ")
 ;;1126
 ;;21,"63304-0403-01 ")
 ;;1497
 ;;21,"63304-0404-01 ")
 ;;1495
 ;;21,"63304-0522-01 ")
 ;;19
 ;;21,"63304-0522-10 ")
 ;;20
 ;;21,"63304-0523-01 ")
 ;;382
 ;;21,"63304-0523-10 ")
 ;;908
 ;;21,"63304-0524-01 ")
 ;;145
 ;;21,"63304-0524-10 ")
 ;;189
 ;;21,"63304-0525-01 ")
 ;;200
 ;;21,"63304-0525-10 ")
 ;;201
 ;;21,"63304-0531-01 ")
 ;;1401
 ;;21,"63304-0532-01 ")
 ;;364
 ;;21,"63304-0532-10 ")
 ;;380
 ;;21,"63304-0533-01 ")
 ;;323
 ;;21,"63304-0533-10 ")
 ;;468
 ;;21,"63304-0534-01 ")
 ;;351
 ;;21,"63304-0534-10 ")
 ;;336
 ;;21,"63304-0535-01 ")
 ;;1418
 ;;21,"63304-0535-10 ")
 ;;1428
 ;;21,"63304-0736-00 ")
 ;;645
 ;;21,"63304-0736-05 ")
 ;;630
 ;;21,"63304-0736-90 ")
 ;;616
 ;;21,"63304-0737-05 ")
 ;;603
 ;;21,"63304-0737-90 ")
 ;;604
 ;;21,"63304-0738-05 ")
 ;;694
 ;;21,"63304-0738-90 ")
 ;;695
 ;;21,"63304-0739-05 ")
 ;;662
 ;;21,"63304-0739-90 ")
 ;;663
 ;;21,"63304-0775-10 ")
 ;;102
 ;;21,"63304-0775-90 ")
 ;;88
 ;;21,"63304-0776-10 ")
 ;;101
 ;;21,"63304-0776-90 ")
 ;;60
 ;;21,"63304-0777-10 ")
 ;;70
 ;;21,"63304-0777-90 ")
 ;;71
 ;;21,"63304-0834-01 ")
 ;;21
 ;;21,"63304-0834-10 ")
 ;;22
 ;;21,"63304-0835-01 ")
 ;;555
 ;;21,"63304-0835-10 ")
 ;;148
 ;;21,"63304-0836-01 ")
 ;;233
 ;;21,"63304-0836-10 ")
 ;;162
 ;;21,"63304-0837-01 ")
 ;;202
 ;;21,"63304-0837-10 ")
 ;;203
 ;;21,"63739-0042-01 ")
 ;;730
 ;;21,"63739-0042-02 ")
 ;;1047
 ;;21,"63739-0042-03 ")
 ;;731
 ;;21,"63739-0042-15 ")
 ;;732
 ;;21,"63739-0043-01 ")
 ;;880
 ;;21,"63739-0043-02 ")
 ;;1114
 ;;21,"63739-0043-03 ")
 ;;865
 ;;21,"63739-0043-15 ")
 ;;851
 ;;21,"63739-0302-15 ")
 ;;207
 ;;21,"63739-0322-15 ")
 ;;23
 ;;21,"63739-0323-15 ")
 ;;149
 ;;21,"63739-0348-15 ")
 ;;366
 ;;21,"63739-0349-15 ")
 ;;379
 ;;21,"63739-0350-15 ")
 ;;322
 ;;21,"63874-0058-10 ")
 ;;1187
 ;;21,"63874-0058-15 ")
 ;;1152
 ;;21,"63874-0058-30 ")
 ;;1150
 ;;21,"63874-0058-90 ")
 ;;1175
 ;;21,"63874-0347-01 ")
 ;;1141
 ;;21,"63874-0347-02 ")
 ;;1142
 ;;21,"63874-0347-05 ")
 ;;1143
 ;;21,"63874-0347-20 ")
 ;;1144
 ;;21,"63874-0347-30 ")
 ;;1145
 ;;21,"63874-0347-40 ")
 ;;1146
 ;;21,"63874-0347-42 ")
 ;;1147
 ;;21,"63874-0347-45 ")
 ;;1148
 ;;21,"63874-0347-90 ")
 ;;1149
 ;;21,"63874-0348-01 ")
 ;;1163
 ;;21,"63874-0348-10 ")
 ;;1151
 ;;21,"63874-0348-14 ")
 ;;1139
 ;;21,"63874-0348-20 ")
 ;;1153
 ;;21,"63874-0348-30 ")
 ;;1154
 ;;21,"63874-0348-60 ")
 ;;1155
 ;;21,"63874-0348-90 ")
 ;;1156
 ;;21,"63874-0349-01 ")
 ;;1157
 ;;21,"63874-0349-10 ")
 ;;1158
 ;;21,"63874-0349-30 ")
 ;;1159
 ;;21,"63874-0379-10 ")
 ;;1160
 ;;21,"63874-0379-30 ")
 ;;1161
 ;;21,"63874-0423-01 ")
 ;;1190
 ;;21,"63874-0423-07 ")
 ;;1140
 ;;21,"63874-0423-10 ")
 ;;1177
 ;;21,"63874-0423-14 ")
 ;;1215
 ;;21,"63874-0423-20 ")
 ;;1216
 ;;21,"63874-0423-30 ")
 ;;1217
 ;;21,"63874-0423-60 ")
 ;;1218
 ;;21,"63874-0514-01 ")
 ;;1219
 ;;21,"63874-0514-10 ")
 ;;1220
 ;;21,"63874-0514-14 ")
 ;;1221
 ;;21,"63874-0514-15 ")
 ;;1222
 ;;21,"63874-0514-16 ")
 ;;1223
 ;;21,"63874-0514-20 ")
 ;;1224
 ;;21,"63874-0514-28 ")
 ;;1238
 ;;21,"63874-0514-30 ")
 ;;1226
 ;;21,"63874-0514-60 ")
 ;;1214
 ;;21,"63874-0514-90 ")
 ;;1228
 ;;21,"63874-0522-01 ")
 ;;1229
 ;;21,"63874-0522-08 ")
 ;;1230
 ;;21,"63874-0522-10 ")
 ;;1231
 ;;21,"63874-0522-14 ")
 ;;1232
 ;;21,"63874-0522-15 ")
 ;;1233
 ;;21,"63874-0522-20 ")
 ;;1234
 ;;21,"63874-0522-21 ")
 ;;1235
 ;;21,"63874-0522-28 ")
 ;;1236
 ;;21,"63874-0522-30 ")
 ;;1237
 ;;21,"63874-0522-60 ")
 ;;1202
 ;;21,"63874-0522-90 ")
 ;;1200
 ;;21,"63874-0558-01 ")
 ;;1225
 ;;21,"63874-0558-10 ")
 ;;1191