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

BGP7IXSC.m

Go to the documentation of this file.
BGP7IXSC ; 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,"51672-4038-03 ")
 ;;768
 ;;21,"51672-4039-01 ")
 ;;128
 ;;21,"51672-4039-03 ")
 ;;129
 ;;21,"51672-4040-01 ")
 ;;188
 ;;21,"51672-4040-03 ")
 ;;204
 ;;21,"51672-4045-01 ")
 ;;1484
 ;;21,"51672-4046-01 ")
 ;;1506
 ;;21,"51875-0355-01 ")
 ;;761
 ;;21,"51875-0955-02 ")
 ;;720
 ;;21,"51875-0955-05 ")
 ;;718
 ;;21,"52152-0238-08 ")
 ;;1562
 ;;21,"52152-0238-30 ")
 ;;1577
 ;;21,"52152-0239-08 ")
 ;;1563
 ;;21,"52152-0239-30 ")
 ;;1580
 ;;21,"52152-0240-08 ")
 ;;1565
 ;;21,"52152-0240-30 ")
 ;;1612
 ;;21,"52544-0668-01 ")
 ;;12
 ;;21,"52544-0668-05 ")
 ;;13
 ;;21,"52544-0669-01 ")
 ;;769
 ;;21,"52544-0669-05 ")
 ;;770
 ;;21,"52544-0670-01 ")
 ;;130
 ;;21,"52544-0670-05 ")
 ;;146
 ;;21,"52544-0671-01 ")
 ;;190
 ;;21,"52544-0688-01 ")
 ;;747
 ;;21,"52544-0688-05 ")
 ;;707
 ;;21,"52544-0688-10 ")
 ;;708
 ;;21,"52544-0689-01 ")
 ;;543
 ;;21,"52544-0689-05 ")
 ;;572
 ;;21,"52544-0689-10 ")
 ;;570
 ;;21,"52544-0690-01 ")
 ;;848
 ;;21,"52544-0690-05 ")
 ;;894
 ;;21,"52544-0690-10 ")
 ;;835
 ;;21,"52544-0691-01 ")
 ;;899
 ;;21,"52959-0498-00 ")
 ;;1661
 ;;21,"52959-0728-30 ")
 ;;999
 ;;21,"52959-0729-30 ")
 ;;1283
 ;;21,"54348-0099-30 ")
 ;;486
 ;;21,"54348-0100-30 ")
 ;;487
 ;;21,"54569-0522-00 ")
 ;;709
 ;;21,"54569-0522-01 ")
 ;;710
 ;;21,"54569-0522-03 ")
 ;;711
 ;;21,"54569-0523-00 ")
 ;;529
 ;;21,"54569-0523-02 ")
 ;;530
 ;;21,"54569-0606-00 ")
 ;;771
 ;;21,"54569-0606-01 ")
 ;;772
 ;;21,"54569-0606-02 ")
 ;;773
 ;;21,"54569-0606-03 ")
 ;;774
 ;;21,"54569-0607-00 ")
 ;;132
 ;;21,"54569-0607-01 ")
 ;;118
 ;;21,"54569-0607-03 ")
 ;;134
 ;;21,"54569-0612-00 ")
 ;;176
 ;;21,"54569-1752-03 ")
 ;;465
 ;;21,"54569-1944-00 ")
 ;;466
 ;;21,"54569-1944-01 ")
 ;;467
 ;;21,"54569-1944-02 ")
 ;;426
 ;;21,"54569-1944-03 ")
 ;;455
 ;;21,"54569-2051-01 ")
 ;;235
 ;;21,"54569-2051-02 ")
 ;;251
 ;;21,"54569-2665-01 ")
 ;;252
 ;;21,"54569-2665-02 ")
 ;;253
 ;;21,"54569-3258-01 ")
 ;;29
 ;;21,"54569-3300-00 ")
 ;;1290
 ;;21,"54569-3300-01 ")
 ;;400
 ;;21,"54569-3359-00 ")
 ;;681
 ;;21,"54569-3359-01 ")
 ;;682
 ;;21,"54569-3359-02 ")
 ;;1065
 ;;21,"54569-3423-00 ")
 ;;589
 ;;21,"54569-3423-01 ")
 ;;590
 ;;21,"54569-3423-04 ")
 ;;614
 ;;21,"54569-3713-00 ")
 ;;1394
 ;;21,"54569-3714-00 ")
 ;;1342
 ;;21,"54569-3733-02 ")
 ;;1064
 ;;21,"54569-3771-00 ")
 ;;401
 ;;21,"54569-3808-00 ")
 ;;96
 ;;21,"54569-3809-00 ")
 ;;114
 ;;21,"54569-3984-00 ")
 ;;1429
 ;;21,"54569-3985-00 ")
 ;;1360
 ;;21,"54569-4246-00 ")
 ;;531
 ;;21,"54569-4246-01 ")
 ;;532
 ;;21,"54569-4246-03 ")
 ;;533
 ;;21,"54569-4246-04 ")
 ;;534
 ;;21,"54569-4246-05 ")
 ;;535
 ;;21,"54569-4247-00 ")
 ;;879
 ;;21,"54569-4247-02 ")
 ;;911
 ;;21,"54569-4247-03 ")
 ;;912
 ;;21,"54569-4276-00 ")
 ;;1446
 ;;21,"54569-4454-00 ")
 ;;1348
 ;;21,"54569-4593-00 ")
 ;;712
 ;;21,"54569-4593-01 ")
 ;;713
 ;;21,"54569-4596-00 ")
 ;;1239
 ;;21,"54569-4721-00 ")
 ;;1271
 ;;21,"54569-4788-00 ")
 ;;652
 ;;21,"54569-4788-01 ")
 ;;1072
 ;;21,"54569-4829-00 ")
 ;;1660
 ;;21,"54569-4948-00 ")
 ;;68
 ;;21,"54569-4990-00 ")
 ;;1452
 ;;21,"54569-5132-00 ")
 ;;968
 ;;21,"54569-5133-00 ")
 ;;959
 ;;21,"54569-5133-01 ")
 ;;960
 ;;21,"54569-5134-00 ")
 ;;1113
 ;;21,"54569-5134-01 ")
 ;;1101
 ;;21,"54569-5134-02 ")
 ;;1089
 ;;21,"54569-5135-00 ")
 ;;985
 ;;21,"54569-5135-01 ")
 ;;986
 ;;21,"54569-5283-00 ")
 ;;1600
 ;;21,"54569-5284-00 ")
 ;;1619
 ;;21,"54569-5284-01 ")
 ;;1618
 ;;21,"54569-5285-00 ")
 ;;1614
 ;;21,"54569-5286-00 ")
 ;;1607
 ;;21,"54569-5379-00 ")
 ;;1272
 ;;21,"54569-5420-00 ")
 ;;1301
 ;;21,"54569-5421-00 ")
 ;;1289
 ;;21,"54569-5422-00 ")
 ;;1303
 ;;21,"54569-5434-00 ")
 ;;1013
 ;;21,"54569-5435-00 ")
 ;;1284
 ;;21,"54569-5437-00 ")
 ;;1273
 ;;21,"54569-5438-00 ")
 ;;1240
 ;;21,"54569-5472-00 ")
 ;;1253
 ;;21,"54569-5621-00 ")
 ;;1028
 ;;21,"54569-5668-00 ")
 ;;500
 ;;21,"54569-5668-01 ")
 ;;501
 ;;21,"54569-5669-00 ")
 ;;1066
 ;;21,"54569-5670-00 ")
 ;;1073
 ;;21,"54569-5685-00 ")
 ;;1606
 ;;21,"54569-8515-00 ")
 ;;453
 ;;21,"54569-8527-00 ")
 ;;254
 ;;21,"54569-8583-00 ")
 ;;412
 ;;21,"54569-8584-00 ")
 ;;402
 ;;21,"54569-8592-00 ")
 ;;97
 ;;21,"54569-8595-00 ")
 ;;1486
 ;;21,"54868-0541-00 ")
 ;;952
 ;;21,"54868-0541-01 ")
 ;;192
 ;;21,"54868-0541-03 ")
 ;;193
 ;;21,"54868-0620-01 ")
 ;;135
 ;;21,"54868-0620-03 ")
 ;;136
 ;;21,"54868-0620-05 ")
 ;;137
 ;;21,"54868-0669-01 ")
 ;;536
 ;;21,"54868-0669-02 ")
 ;;537
 ;;21,"54868-0669-03 ")
 ;;538
 ;;21,"54868-0669-05 ")
 ;;539
 ;;21,"54868-0669-06 ")
 ;;540
 ;;21,"54868-1001-01 ")
 ;;255
 ;;21,"54868-1090-01 ")
 ;;775
 ;;21,"54868-1090-05 ")
 ;;791
 ;;21,"54868-1090-06 ")
 ;;777
 ;;21,"54868-1296-01 ")
 ;;413
 ;;21,"54868-1296-02 ")
 ;;414
 ;;21,"54868-1415-01 ")
 ;;913
 ;;21,"54868-1501-00 ")
 ;;1254
 ;;21,"54868-1501-01 ")
 ;;1255
 ;;21,"54868-1502-00 ")
 ;;256
 ;;21,"54868-1775-01 ")
 ;;714
 ;;21,"54868-1775-04 ")
 ;;715
 ;;21,"54868-1960-00 ")
 ;;403
 ;;21,"54868-1961-01 ")
 ;;404
 ;;21,"54868-1961-02 ")
 ;;405
 ;;21,"54868-1970-01 ")
 ;;415
 ;;21,"54868-1970-02 ")
 ;;416
 ;;21,"54868-1970-03 ")
 ;;1001
 ;;21,"54868-2280-00 ")
 ;;15
 ;;21,"54868-2280-02 ")
 ;;1
 ;;21,"54868-2350-01 ")
 ;;591
 ;;21,"54868-2350-02 ")
 ;;592
 ;;21,"54868-2350-03 ")
 ;;502
 ;;21,"54868-2350-04 ")
 ;;503
 ;;21,"54868-2351-00 ")
 ;;683
 ;;21,"54868-2351-02 ")
 ;;1067
 ;;21,"54868-2351-03 ")
 ;;1068
 ;;21,"54868-2352-00 ")
 ;;653
 ;;21,"54868-2352-01 ")
 ;;1074
 ;;21,"54868-2368-00 ")
 ;;98
 ;;21,"54868-2368-01 ")
 ;;99
 ;;21,"54868-2368-02 ")
 ;;100
 ;;21,"54868-2644-00 ")
 ;;1292
 ;;21,"54868-2644-01 ")
 ;;1393
 ;;21,"54868-2644-02 ")
 ;;1293
 ;;21,"54868-2645-00 ")
 ;;1341
 ;;21,"54868-2645-01 ")
 ;;1340
 ;;21,"54868-2645-02 ")
 ;;1298
 ;;21,"54868-2665-00 ")
 ;;1437
 ;;21,"54868-2665-01 ")
 ;;1434
 ;;21,"54868-2666-01 ")
 ;;1359
 ;;21,"54868-2666-02 ")
 ;;1358
 ;;21,"54868-2666-03 ")
 ;;1357
 ;;21,"54868-2666-04 ")
 ;;1329
 ;;21,"54868-2847-00 ")
 ;;1564
 ;;21,"54868-3279-00 ")
 ;;115
 ;;21,"54868-3279-02 ")
 ;;74
 ;;21,"54868-3279-03 ")
 ;;1034
 ;;21,"54868-3307-00 ")
 ;;1438
 ;;21,"54868-3307-01 ")
 ;;1456
 ;;21,"54868-3445-00 ")
 ;;1347
 ;;21,"54868-3445-01 ")
 ;;1346
 ;;21,"54868-3690-01 ")
 ;;626
 ;;21,"54868-3723-01 ")
 ;;716
 ;;21,"54868-3723-02 ")
 ;;1041
 ;;21,"54868-3723-03 ")
 ;;1042
 ;;21,"54868-3723-04 ")
 ;;1043
 ;;21,"54868-3723-05 ")
 ;;1044
 ;;21,"54868-3724-01 ")
 ;;556
 ;;21,"54868-3724-02 ")
 ;;542
 ;;21,"54868-3724-03 ")
 ;;528
 ;;21,"54868-3724-04 ")
 ;;1061
 ;;21,"54868-3725-01 ")
 ;;914
 ;;21,"54868-3725-02 ")
 ;;915
 ;;21,"54868-3769-00 ")
 ;;1474
 ;;21,"54868-3846-00 ")
 ;;1385
 ;;21,"54868-3846-01 ")
 ;;1302
 ;;21,"54868-3846-02 ")
 ;;1300
 ;;21,"54868-3846-03 ")
 ;;1325
 ;;21,"54868-3891-00 ")
 ;;1507
 ;;21,"54868-3906-00 ")
 ;;1613
 ;;21,"54868-3906-01 ")
 ;;1599
 ;;21,"54868-4088-00 ")
 ;;1447
 ;;21,"54868-4088-01 ")
 ;;1317
 ;;21,"54868-4088-02 ")
 ;;1318
 ;;21,"54868-4209-00 ")
 ;;1037
 ;;21,"54868-4331-00 ")
 ;;977
 ;;21,"54868-4331-02 ")
 ;;975
 ;;21,"54868-4332-00 ")
 ;;969
 ;;21,"54868-4332-01 ")
 ;;970
 ;;21,"54868-4332-02 ")
 ;;971
 ;;21,"54868-4357-00 ")
 ;;961
 ;;21,"54868-4357-01 ")
 ;;962
 ;;21,"54868-4357-02 ")
 ;;990
 ;;21,"54868-4358-01 ")
 ;;1103
 ;;21,"54868-4358-02 ")
 ;;1104
 ;;21,"54868-4479-00 ")
 ;;1504
 ;;21,"54868-4479-01 ")
 ;;1573
 ;;21,"54868-4479-02 ")
 ;;1546
 ;;21,"54868-4552-00 ")
 ;;488
 ;;21,"54868-4552-01 ")
 ;;489
 ;;21,"54868-4555-00 ")
 ;;1322
 ;;21,"54868-4555-01 ")
 ;;1323
 ;;21,"54868-4646-00 ")
 ;;317
 ;;21,"54868-4646-02 ")
 ;;1256
 ;;21,"54868-4656-00 ")
 ;;1274
 ;;21,"54868-4657-00 ")
 ;;417
 ;;21,"54868-4657-01 ")
 ;;418
 ;;21,"54868-4657-02 ")
 ;;419
 ;;21,"54868-4658-00 ")
 ;;257
 ;;21,"54868-4658-01 ")
 ;;258
 ;;21,"54868-4678-00 ")
 ;;406
 ;;21,"54868-4678-01 ")
 ;;1277
 ;;21,"54868-4780-00 ")
 ;;1245
 ;;21,"54868-4883-00 ")
 ;;1319
 ;;21,"54868-4883-01 ")
 ;;1320
 ;;21,"54868-4883-02 ")
 ;;1321
 ;;21,"54868-4904-00 ")
 ;;1611
 ;;21,"54868-4904-01 ")
 ;;1623
 ;;21,"54868-5001-00 ")
 ;;504
 ;;21,"54868-5001-01 ")
 ;;505
 ;;21,"54868-5055-00 ")
 ;;1035
 ;;21,"54868-5064-00 ")
 ;;1029
 ;;21,"54868-5064-01 ")
 ;;1030
 ;;21,"54868-5079-00 ")
 ;;1069
 ;;21,"54868-5079-01 ")
 ;;1070
 ;;21,"54868-5099-00 ")
 ;;1371
 ;;21,"54868-5099-01 ")
 ;;1370
 ;;21,"54868-5182-00 ")
 ;;1002
 ;;21,"54868-5182-01 ")
 ;;1000
 ;;21,"54868-5196-00 ")
 ;;1080
 ;;21,"54868-5196-01 ")
 ;;1081
 ;;21,"54868-5204-00 ")
 ;;1088
 ;;21,"54868-5241-00 ")
 ;;1330
 ;;21,"54868-5241-01 ")
 ;;1331
 ;;21,"54868-5241-02 ")
 ;;490
 ;;21,"54868-5245-00 ")
 ;;1338
 ;;21,"54868-5245-01 ")
 ;;1326
 ;;21,"54868-5246-00 ")
 ;;1334
 ;;21,"54868-5256-00 ")
 ;;1617
 ;;21,"54868-5279-00 ")
 ;;491
 ;;21,"54868-5296-00 ")
 ;;1605
 ;;21,"54868-5313-00 ")
 ;;1604
 ;;21,"54868-5313-01 ")
 ;;1603
 ;;21,"54868-5346-00 ")
 ;;1526
 ;;21,"54868-5346-01 ")
 ;;1525
 ;;21,"55045-1820-08 ")
 ;;1105
 ;;21,"55045-2201-01 ")
 ;;1076
 ;;21,"55045-2376-00 ")
 ;;1369
 ;;21,"55045-2376-08 ")
 ;;1040
 ;;21,"55045-2376-09 ")
 ;;1077
 ;;21,"55045-2424-00 ")
 ;;1135
 ;;21,"55045-2424-06 ")
 ;;1136
 ;;21,"55045-2799-00 ")
 ;;1027
 ;;21,"55045-2827-08 ")
 ;;1106
 ;;21,"55045-2832-08 ")
 ;;941
 ;;21,"55045-3373-08 ")
 ;;1524
 ;;21,"55175-1442-01 ")
 ;;506
 ;;21,"55175-3964-03 ")
 ;;420
 ;;21,"55175-5165-01 ")
 ;;1137
 ;;21,"55289-0086-30 ")
 ;;684
 ;;21,"55289-0086-97 ")
 ;;685
 ;;21,"55289-0106-30 ")
 ;;259
 ;;21,"55289-0109-30 ")
 ;;593
 ;;21,"55289-0109-97 ")
 ;;594
 ;;21,"55289-0212-30 ")
 ;;916
 ;;21,"55289-0212-90 ")
 ;;1102
 ;;21,"55289-0344-30 ")
 ;;544
 ;;21,"55289-0344-90 ")
 ;;1115
 ;;21,"55289-0344-97 ")
 ;;545
 ;;21,"55289-0483-30 ")
 ;;138
 ;;21,"55289-0506-30 ")
 ;;1116
 ;;21,"55289-0506-97 ")
 ;;546
 ;;21,"55289-0509-30 ")
 ;;989
 ;;21,"55289-0552-30 ")
 ;;1441
 ;;21,"55289-0553-30 ")
 ;;1417
 ;;21,"55289-0554-30 ")
 ;;1356
 ;;21,"55289-0555-30 ")
 ;;1345
 ;;21,"55289-0573-30 ")
 ;;1643
 ;;21,"55289-0577-30 ")
 ;;260
 ;;21,"55289-0591-30 ")
 ;;1107
 ;;21,"55289-0622-03 ")
 ;;763
 ;;21,"55289-0622-30 ")
 ;;779
 ;;21,"55289-0638-01 ")
 ;;1003
 ;;21,"55289-0638-14 ")
 ;;1004
 ;;21,"55289-0638-30 ")
 ;;1005
 ;;21,"55289-0694-10 ")
 ;;987
 ;;21,"55289-0694-30 ")
 ;;1016
 ;;21,"55289-0696-14 ")
 ;;1285
 ;;21,"55289-0696-30 ")
 ;;1286
 ;;21,"55289-0804-30 ")
 ;;1006
 ;;21,"55289-0867-30 ")
 ;;1291
 ;;21,"55289-0929-08 ")
 ;;421
 ;;21,"55289-0929-30 ")
 ;;1007
 ;;21,"55370-0142-07 ")
 ;;547
 ;;21,"55370-0142-09 ")
 ;;548
 ;;21,"55370-0144-07 ")
 ;;917
 ;;21,"55370-0144-09 ")
 ;;918
 ;;21,"55370-0145-07 ")
 ;;900
 ;;21,"55370-0164-07 ")
 ;;717
 ;;21,"55370-0164-09 ")
 ;;733
 ;;21,"55370-0922-07 ")
 ;;972
 ;;21,"55370-0922-09 ")
 ;;973
 ;;21,"55370-0923-09 ")
 ;;1017
 ;;21,"55887-0366-30 ")
 ;;1523
 ;;21,"55887-0366-60 ")
 ;;1522
 ;;21,"55887-0366-90 ")
 ;;1521
 ;;21,"55887-0425-30 ")
 ;;1520
 ;;21,"55887-0425-60 ")
 ;;1519
 ;;21,"55887-0425-82 ")
 ;;1518
 ;;21,"55887-0425-90 ")
 ;;1517
 ;;21,"55887-0426-30 ")
 ;;1558
 ;;21,"55887-0426-60 ")
 ;;1560
 ;;21,"55887-0426-82 ")
 ;;1531
 ;;21,"55887-0426-90 ")
 ;;1572
 ;;21,"55887-0558-30 ")
 ;;492
 ;;21,"55887-0558-60 ")
 ;;493
 ;;21,"55887-0558-82 ")
 ;;494
 ;;21,"55887-0558-90 ")
 ;;495
 ;;21,"55887-0569-30 ")
 ;;496
 ;;21,"55887-0569-60 ")
 ;;497
 ;;21,"55887-0569-82 ")
 ;;541
 ;;21,"55887-0569-90 ")
 ;;585
 ;;21,"55887-0581-30 ")
 ;;514
 ;;21,"55887-0581-60 ")
 ;;559
 ;;21,"55887-0581-82 ")
 ;;560
 ;;21,"55887-0581-90 ")
 ;;1305
 ;;21,"55887-0582-30 ")
 ;;1306
 ;;21,"55887-0582-60 ")
 ;;1307
 ;;21,"55887-0582-90 ")
 ;;1308
 ;;21,"55887-0589-30 ")
 ;;1309
 ;;21,"55887-0589-60 ")
 ;;1310
 ;;21,"55887-0589-82 ")
 ;;1311
 ;;21,"55887-0589-90 ")
 ;;1312
 ;;21,"55887-0590-30 ")
 ;;1227
 ;;21,"55887-0590-60 ")
 ;;1162
 ;;21,"55887-0590-82 ")
 ;;1262
 ;;21,"55887-0590-90 ")
 ;;1166
 ;;21,"55887-0591-30 ")
 ;;1167
 ;;21,"55887-0591-60 ")
 ;;1168
 ;;21,"55887-0591-82 ")
 ;;1169
 ;;21,"55887-0591-90 ")
 ;;1170
 ;;21,"55887-0594-30 ")
 ;;1536
 ;;21,"55887-0594-60 ")
 ;;1537
 ;;21,"55887-0594-82 ")
 ;;1538
 ;;21,"55887-0594-90 ")
 ;;1539
 ;;21,"55887-0595-30 ")
 ;;1540
 ;;21,"55887-0595-60 ")
 ;;1541
 ;;21,"55887-0595-82 ")
 ;;1542
 ;;21,"55887-0595-90 ")
 ;;1543
 ;;21,"55887-0596-30 ")
 ;;1171
 ;;21,"55887-0596-60 ")
 ;;1172
 ;;21,"55887-0596-82 ")
 ;;1173
 ;;21,"55887-0596-90 ")
 ;;1174
 ;;21,"55887-0612-30 ")
 ;;1188
 ;;21,"55887-0612-60 ")
 ;;1176
 ;;21,"55887-0612-82 ")
 ;;1164
 ;;21,"55887-0612-90 ")
 ;;1178
 ;;21,"55953-0132-40 ")
 ;;719
 ;;21,"55953-0132-80 ")
 ;;705