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

BGP7IXSB.m

Go to the documentation of this file.
BGP7IXSB ; 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,"00185-0591-05 ")
 ;;889
 ;;21,"00185-0591-10 ")
 ;;890
 ;;21,"00185-0820-01 ")
 ;;676
 ;;21,"00185-0820-05 ")
 ;;677
 ;;21,"00185-5400-01 ")
 ;;384
 ;;21,"00185-5400-10 ")
 ;;385
 ;;21,"00185-7100-01 ")
 ;;1671
 ;;21,"00185-7100-10 ")
 ;;1670
 ;;21,"00228-2658-11 ")
 ;;51
 ;;21,"00228-2658-96 ")
 ;;52
 ;;21,"00228-2659-11 ")
 ;;792
 ;;21,"00228-2659-96 ")
 ;;808
 ;;21,"00228-2660-11 ")
 ;;169
 ;;21,"00228-2660-96 ")
 ;;170
 ;;21,"00228-2661-11 ")
 ;;230
 ;;21,"00228-2661-96 ")
 ;;231
 ;;21,"00228-2706-03 ")
 ;;1669
 ;;21,"00228-2706-11 ")
 ;;1668
 ;;21,"00228-2707-03 ")
 ;;1595
 ;;21,"00228-2707-11 ")
 ;;1594
 ;;21,"00228-2708-03 ")
 ;;1632
 ;;21,"00228-2708-11 ")
 ;;1633
 ;;21,"00247-1023-30 ")
 ;;1276
 ;;21,"00247-1023-60 ")
 ;;1264
 ;;21,"00247-1091-30 ")
 ;;1296
 ;;21,"00247-1091-60 ")
 ;;1297
 ;;21,"00247-1147-10 ")
 ;;992
 ;;21,"00247-1147-30 ")
 ;;993
 ;;21,"00247-1147-60 ")
 ;;994
 ;;21,"00247-1222-00 ")
 ;;1129
 ;;21,"00247-1396-30 ")
 ;;1270
 ;;21,"00310-0130-10 ")
 ;;386
 ;;21,"00310-0130-34 ")
 ;;387
 ;;21,"00310-0130-39 ")
 ;;388
 ;;21,"00310-0131-10 ")
 ;;449
 ;;21,"00310-0131-34 ")
 ;;450
 ;;21,"00310-0131-39 ")
 ;;451
 ;;21,"00310-0131-73 ")
 ;;452
 ;;21,"00310-0132-10 ")
 ;;290
 ;;21,"00310-0132-34 ")
 ;;291
 ;;21,"00310-0132-39 ")
 ;;250
 ;;21,"00310-0132-73 ")
 ;;248
 ;;21,"00310-0133-10 ")
 ;;344
 ;;21,"00310-0134-10 ")
 ;;304
 ;;21,"00310-0135-10 ")
 ;;1409
 ;;21,"00310-0141-10 ")
 ;;1667
 ;;21,"00310-0142-10 ")
 ;;1593
 ;;21,"00310-0145-10 ")
 ;;1634
 ;;21,"00364-2698-01 ")
 ;;53
 ;;21,"00364-2698-02 ")
 ;;54
 ;;21,"00364-2701-01 ")
 ;;809
 ;;21,"00364-2701-02 ")
 ;;810
 ;;21,"00364-2727-01 ")
 ;;171
 ;;21,"00364-2727-02 ")
 ;;172
 ;;21,"00364-2734-01 ")
 ;;232
 ;;21,"00364-2734-02 ")
 ;;191
 ;;21,"00378-0017-77 ")
 ;;1432
 ;;21,"00378-0081-01 ")
 ;;1533
 ;;21,"00378-0083-01 ")
 ;;1470
 ;;21,"00378-0084-01 ")
 ;;1462
 ;;21,"00378-0086-01 ")
 ;;1505
 ;;21,"00378-0226-77 ")
 ;;1324
 ;;21,"00378-0254-77 ")
 ;;1362
 ;;21,"00378-0272-77 ")
 ;;1350
 ;;21,"00378-0441-01 ")
 ;;624
 ;;21,"00378-0443-01 ")
 ;;631
 ;;21,"00378-0444-01 ")
 ;;678
 ;;21,"00378-0447-01 ")
 ;;649
 ;;21,"00378-0712-01 ")
 ;;1499
 ;;21,"00378-0723-01 ")
 ;;1492
 ;;21,"00378-1012-01 ")
 ;;1666
 ;;21,"00378-1051-01 ")
 ;;55
 ;;21,"00378-1051-05 ")
 ;;56
 ;;21,"00378-1052-01 ")
 ;;811
 ;;21,"00378-1052-10 ")
 ;;812
 ;;21,"00378-1053-01 ")
 ;;173
 ;;21,"00378-1053-10 ")
 ;;174
 ;;21,"00378-1054-01 ")
 ;;220
 ;;21,"00378-1054-05 ")
 ;;218
 ;;21,"00378-2012-01 ")
 ;;1592
 ;;21,"00378-2025-01 ")
 ;;1636
 ;;21,"00378-2072-01 ")
 ;;1408
 ;;21,"00378-2073-01 ")
 ;;389
 ;;21,"00378-2073-10 ")
 ;;390
 ;;21,"00378-2074-01 ")
 ;;469
 ;;21,"00378-2074-10 ")
 ;;454
 ;;21,"00378-2075-01 ")
 ;;277
 ;;21,"00378-2075-10 ")
 ;;237
 ;;21,"00378-2076-01 ")
 ;;305
 ;;21,"00378-2077-01 ")
 ;;345
 ;;21,"00378-3007-01 ")
 ;;762
 ;;21,"00378-3007-10 ")
 ;;748
 ;;21,"00378-3012-01 ")
 ;;586
 ;;21,"00378-3012-10 ")
 ;;571
 ;;21,"00378-3017-01 ")
 ;;828
 ;;21,"00378-3017-10 ")
 ;;829
 ;;21,"00378-3022-01 ")
 ;;891
 ;;21,"00378-4725-01 ")
 ;;1574
 ;;21,"00378-4735-01 ")
 ;;1551
 ;;21,"00378-4745-01 ")
 ;;1463
 ;;21,"00378-4745-04 ")
 ;;1475
 ;;21,"00378-4775-01 ")
 ;;1568
 ;;21,"00403-0527-30 ")
 ;;1049
 ;;21,"00403-2241-01 ")
 ;;813
 ;;21,"00403-2241-30 ")
 ;;814
 ;;21,"00403-2779-01 ")
 ;;238
 ;;21,"00403-2779-30 ")
 ;;239
 ;;21,"00403-3029-01 ")
 ;;440
 ;;21,"00403-3029-30 ")
 ;;456
 ;;21,"00440-7230-60 ")
 ;;512
 ;;21,"00440-7230-90 ")
 ;;472
 ;;21,"00440-7230-92 ")
 ;;473
 ;;21,"00440-7230-94 ")
 ;;474
 ;;21,"00440-7231-30 ")
 ;;1063
 ;;21,"00440-7231-60 ")
 ;;475
 ;;21,"00440-7231-90 ")
 ;;476
 ;;21,"00440-7231-91 ")
 ;;1051
 ;;21,"00440-7231-92 ")
 ;;477
 ;;21,"00440-7231-94 ")
 ;;478
 ;;21,"00440-7232-30 ")
 ;;1130
 ;;21,"00440-7232-60 ")
 ;;479
 ;;21,"00440-7232-90 ")
 ;;480
 ;;21,"00440-7232-91 ")
 ;;1131
 ;;21,"00440-7232-92 ")
 ;;481
 ;;21,"00440-7232-94 ")
 ;;482
 ;;21,"00536-3471-01 ")
 ;;734
 ;;21,"00536-3473-01 ")
 ;;830
 ;;21,"00536-3474-01 ")
 ;;892
 ;;21,"00536-4273-10 ")
 ;;1039
 ;;21,"00591-0405-01 ")
 ;;1407
 ;;21,"00591-0406-01 ")
 ;;391
 ;;21,"00591-0406-10 ")
 ;;392
 ;;21,"00591-0407-01 ")
 ;;457
 ;;21,"00591-0407-10 ")
 ;;458
 ;;21,"00591-0408-01 ")
 ;;240
 ;;21,"00591-0408-10 ")
 ;;241
 ;;21,"00591-0409-01 ")
 ;;1090
 ;;21,"00591-0409-05 ")
 ;;307
 ;;21,"00591-0668-01 ")
 ;;57
 ;;21,"00591-0669-01 ")
 ;;815
 ;;21,"00591-0670-01 ")
 ;;133
 ;;21,"00591-0671-01 ")
 ;;177
 ;;21,"00591-0671-05 ")
 ;;178
 ;;21,"00591-0671-10 ")
 ;;179
 ;;21,"00591-0860-01 ")
 ;;1665
 ;;21,"00591-0860-05 ")
 ;;1664
 ;;21,"00591-0861-01 ")
 ;;1591
 ;;21,"00591-0861-05 ")
 ;;1590
 ;;21,"00591-0862-01 ")
 ;;1638
 ;;21,"00591-0862-05 ")
 ;;1640
 ;;21,"00591-0885-01 ")
 ;;346
 ;;21,"00603-2555-21 ")
 ;;750
 ;;21,"00603-2556-21 ")
 ;;557
 ;;21,"00603-2557-21 ")
 ;;831
 ;;21,"00603-2558-21 ")
 ;;893
 ;;21,"00615-4519-29 ")
 ;;1083
 ;;21,"00615-4519-43 ")
 ;;1084
 ;;21,"00615-4519-53 ")
 ;;751
 ;;21,"00615-4519-63 ")
 ;;752
 ;;21,"00615-4519-65 ")
 ;;1085
 ;;21,"00615-4520-29 ")
 ;;1053
 ;;21,"00615-4520-43 ")
 ;;1054
 ;;21,"00615-4520-53 ")
 ;;573
 ;;21,"00615-4520-63 ")
 ;;574
 ;;21,"00615-4520-65 ")
 ;;1055
 ;;21,"00615-4521-29 ")
 ;;1132
 ;;21,"00615-4521-43 ")
 ;;832
 ;;21,"00615-4521-53 ")
 ;;833
 ;;21,"00615-4521-63 ")
 ;;834
 ;;21,"00615-4521-65 ")
 ;;850
 ;;21,"00615-4590-53 ")
 ;;948
 ;;21,"00615-4590-63 ")
 ;;949
 ;;21,"00615-4591-53 ")
 ;;1092
 ;;21,"00615-4591-63 ")
 ;;1093
 ;;21,"00781-1176-01 ")
 ;;1589
 ;;21,"00781-1178-01 ")
 ;;1641
 ;;21,"00781-1229-01 ")
 ;;16
 ;;21,"00781-1229-10 ")
 ;;14
 ;;21,"00781-1229-13 ")
 ;;43
 ;;21,"00781-1231-01 ")
 ;;816
 ;;21,"00781-1231-10 ")
 ;;817
 ;;21,"00781-1231-13 ")
 ;;818
 ;;21,"00781-1232-01 ")
 ;;131
 ;;21,"00781-1232-10 ")
 ;;160
 ;;21,"00781-1232-13 ")
 ;;120
 ;;21,"00781-1233-01 ")
 ;;180
 ;;21,"00781-1233-10 ")
 ;;181
 ;;21,"00781-1665-01 ")
 ;;393
 ;;21,"00781-1666-01 ")
 ;;459
 ;;21,"00781-1667-01 ")
 ;;242
 ;;21,"00781-1668-01 ")
 ;;790
 ;;21,"00781-1669-01 ")
 ;;1406
 ;;21,"00781-1673-01 ")
 ;;347
 ;;21,"00781-1839-01 ")
 ;;909
 ;;21,"00781-1848-01 ")
 ;;1650
 ;;21,"00781-1891-01 ")
 ;;625
 ;;21,"00781-1892-01 ")
 ;;629
 ;;21,"00781-1893-01 ")
 ;;679
 ;;21,"00781-1894-01 ")
 ;;650
 ;;21,"00781-5083-10 ")
 ;;94
 ;;21,"00781-5083-92 ")
 ;;95
 ;;21,"00781-5084-10 ")
 ;;112
 ;;21,"00781-5084-92 ")
 ;;113
 ;;21,"00781-5085-92 ")
 ;;67
 ;;21,"00781-5131-01 ")
 ;;1529
 ;;21,"00781-5132-01 ")
 ;;1550
 ;;21,"00781-5133-01 ")
 ;;1478
 ;;21,"00781-5134-01 ")
 ;;1567
 ;;21,"00839-7994-16 ")
 ;;753
 ;;21,"00839-7996-06 ")
 ;;836
 ;;21,"00839-7996-16 ")
 ;;822
 ;;21,"00839-7997-06 ")
 ;;1078
 ;;21,"00839-7997-16 ")
 ;;1079
 ;;21,"00904-5045-60 ")
 ;;754
 ;;21,"00904-5045-80 ")
 ;;755
 ;;21,"00904-5046-60 ")
 ;;575
 ;;21,"00904-5046-80 ")
 ;;576
 ;;21,"00904-5047-40 ")
 ;;838
 ;;21,"00904-5047-60 ")
 ;;839
 ;;21,"00904-5047-80 ")
 ;;840
 ;;21,"00904-5048-60 ")
 ;;895
 ;;21,"00904-5502-60 ")
 ;;819
 ;;21,"00904-5502-61 ")
 ;;778
 ;;21,"00904-5503-60 ")
 ;;121
 ;;21,"00904-5503-80 ")
 ;;1094
 ;;21,"00904-5504-60 ")
 ;;182
 ;;21,"00904-5504-80 ")
 ;;964
 ;;21,"00904-5609-60 ")
 ;;3
 ;;21,"00904-5609-61 ")
 ;;4
 ;;21,"00904-5610-60 ")
 ;;122
 ;;21,"00904-5611-80 ")
 ;;978
 ;;21,"00904-5638-43 ")
 ;;410
 ;;21,"00904-5638-46 ")
 ;;395
 ;;21,"00904-5640-43 ")
 ;;243
 ;;21,"00904-5640-93 ")
 ;;244
 ;;21,"00904-5642-43 ")
 ;;309
 ;;21,"00904-5642-46 ")
 ;;310
 ;;21,"00904-5642-48 ")
 ;;311
 ;;21,"00904-5642-52 ")
 ;;312
 ;;21,"00904-5642-93 ")
 ;;313
 ;;21,"00904-5701-61 ")
 ;;963
 ;;21,"12280-0033-00 ")
 ;;651
 ;;21,"12280-0059-90 ")
 ;;1440
 ;;21,"12280-0061-00 ")
 ;;1386
 ;;21,"12280-0120-30 ")
 ;;1566
 ;;21,"12280-0121-30 ")
 ;;1479
 ;;21,"12280-0123-30 ")
 ;;1549
 ;;21,"12280-0124-30 ")
 ;;1642
 ;;21,"12280-0126-30 ")
 ;;1588
 ;;21,"12280-0127-30 ")
 ;;1663
 ;;21,"12280-0129-60 ")
 ;;348
 ;;21,"12280-0144-00 ")
 ;;498
 ;;21,"12280-0183-30 ")
 ;;1672
 ;;21,"17236-0997-04 ")
 ;;951
 ;;21,"17236-0997-30 ")
 ;;940
 ;;21,"44514-0480-18 ")
 ;;1259
 ;;21,"44514-0481-18 ")
 ;;995
 ;;21,"44514-0482-18 ")
 ;;1278
 ;;21,"44514-0483-18 ")
 ;;1249
 ;;21,"44514-0674-99 ")
 ;;1086
 ;;21,"44514-0675-99 ")
 ;;1056
 ;;21,"44514-0676-99 ")
 ;;1133
 ;;21,"48866-0030-10 ")
 ;;965
 ;;21,"48866-0030-12 ")
 ;;966
 ;;21,"48866-0030-20 ")
 ;;953
 ;;21,"48866-0030-22 ")
 ;;954
 ;;21,"48866-0030-30 ")
 ;;1095
 ;;21,"48866-0030-32 ")
 ;;1096
 ;;21,"48866-0030-40 ")
 ;;979
 ;;21,"48866-0030-42 ")
 ;;980
 ;;21,"48866-0301-02 ")
 ;;967
 ;;21,"48866-0302-02 ")
 ;;955
 ;;21,"48866-0303-00 ")
 ;;1097
 ;;21,"48866-0304-00 ")
 ;;981
 ;;21,"48866-0304-02 ")
 ;;982
 ;;21,"49884-0556-01 ")
 ;;1405
 ;;21,"49884-0556-10 ")
 ;;1404
 ;;21,"49884-0557-01 ")
 ;;381
 ;;21,"49884-0557-10 ")
 ;;397
 ;;21,"49884-0558-01 ")
 ;;460
 ;;21,"49884-0558-10 ")
 ;;461
 ;;21,"49884-0559-01 ")
 ;;245
 ;;21,"49884-0559-10 ")
 ;;246
 ;;21,"49884-0560-01 ")
 ;;314
 ;;21,"49884-0560-10 ")
 ;;315
 ;;21,"49884-0591-01 ")
 ;;5
 ;;21,"49884-0591-10 ")
 ;;6
 ;;21,"49884-0592-01 ")
 ;;807
 ;;21,"49884-0592-10 ")
 ;;805
 ;;21,"49884-0593-01 ")
 ;;123
 ;;21,"49884-0593-10 ")
 ;;124
 ;;21,"49884-0594-01 ")
 ;;183
 ;;21,"49884-0594-10 ")
 ;;184
 ;;21,"49884-0619-01 ")
 ;;756
 ;;21,"49884-0619-10 ")
 ;;757
 ;;21,"49884-0620-01 ")
 ;;577
 ;;21,"49884-0620-10 ")
 ;;578
 ;;21,"49884-0621-01 ")
 ;;841
 ;;21,"49884-0621-10 ")
 ;;842
 ;;21,"49884-0622-01 ")
 ;;881
 ;;21,"49884-0635-01 ")
 ;;349
 ;;21,"49884-0635-10 ")
 ;;308
 ;;21,"49884-0686-01 ")
 ;;1491
 ;;21,"49884-0687-01 ")
 ;;1490
 ;;21,"49884-0793-01 ")
 ;;758
 ;;21,"49884-0793-74 ")
 ;;499
 ;;21,"49884-0794-01 ")
 ;;579
 ;;21,"49884-0794-10 ")
 ;;580
 ;;21,"49884-0794-74 ")
 ;;581
 ;;21,"49884-0795-01 ")
 ;;843
 ;;21,"49884-0795-10 ")
 ;;844
 ;;21,"49884-0795-74 ")
 ;;845
 ;;21,"49884-0796-01 ")
 ;;897
 ;;21,"49884-0815-01 ")
 ;;1476
 ;;21,"49884-0818-01 ")
 ;;1480
 ;;21,"49884-0861-01 ")
 ;;1601
 ;;21,"49884-0862-01 ")
 ;;1620
 ;;21,"49884-0863-01 ")
 ;;1615
 ;;21,"49884-0864-01 ")
 ;;1608
 ;;21,"49884-0990-09 ")
 ;;1361
 ;;21,"49884-0991-09 ")
 ;;1349
 ;;21,"49884-0992-09 ")
 ;;1433
 ;;21,"49884-0993-09 ")
 ;;1439
 ;;21,"49999-0105-00 ")
 ;;515
 ;;21,"49999-0105-30 ")
 ;;1057
 ;;21,"49999-0105-60 ")
 ;;1058
 ;;21,"49999-0182-30 ")
 ;;996
 ;;21,"49999-0183-30 ")
 ;;1279
 ;;21,"49999-0183-60 ")
 ;;1280
 ;;21,"49999-0239-00 ")
 ;;956
 ;;21,"49999-0239-30 ")
 ;;957
 ;;21,"49999-0239-60 ")
 ;;958
 ;;21,"49999-0240-00 ")
 ;;1098
 ;;21,"49999-0240-30 ")
 ;;1099
 ;;21,"49999-0287-30 ")
 ;;509
 ;;21,"49999-0294-30 ")
 ;;1372
 ;;21,"49999-0295-30 ")
 ;;1260
 ;;21,"49999-0345-00 ")
 ;;983
 ;;21,"49999-0345-30 ")
 ;;984
 ;;21,"49999-0469-10 ")
 ;;1263
 ;;21,"49999-0511-60 ")
 ;;1134
 ;;21,"50111-0891-01 ")
 ;;7
 ;;21,"50111-0891-03 ")
 ;;8
 ;;21,"50111-0892-01 ")
 ;;764
 ;;21,"50111-0892-03 ")
 ;;765
 ;;21,"50111-0893-01 ")
 ;;125
 ;;21,"50111-0893-03 ")
 ;;126
 ;;21,"50111-0894-01 ")
 ;;185
 ;;21,"50111-0894-03 ")
 ;;186
 ;;21,"51079-0145-01 ")
 ;;703
 ;;21,"51079-0145-20 ")
 ;;588
 ;;21,"51079-0146-01 ")
 ;;950
 ;;21,"51079-0146-20 ")
 ;;680
 ;;21,"51079-0863-17 ")
 ;;1087
 ;;21,"51079-0863-19 ")
 ;;1052
 ;;21,"51079-0863-20 ")
 ;;759
 ;;21,"51079-0864-17 ")
 ;;1059
 ;;21,"51079-0864-19 ")
 ;;1265
 ;;21,"51079-0864-20 ")
 ;;582
 ;;21,"51079-0950-20 ")
 ;;9
 ;;21,"51079-0951-20 ")
 ;;766
 ;;21,"51079-0952-20 ")
 ;;127
 ;;21,"51079-0953-20 ")
 ;;187
 ;;21,"51079-0981-01 ")
 ;;1261
 ;;21,"51079-0981-20 ")
 ;;398
 ;;21,"51079-0981-57 ")
 ;;399
 ;;21,"51079-0982-01 ")
 ;;997
 ;;21,"51079-0982-17 ")
 ;;998
 ;;21,"51079-0982-19 ")
 ;;462
 ;;21,"51079-0982-20 ")
 ;;463
 ;;21,"51079-0982-57 ")
 ;;464
 ;;21,"51079-0983-01 ")
 ;;1281
 ;;21,"51079-0983-17 ")
 ;;1282
 ;;21,"51079-0983-19 ")
 ;;247
 ;;21,"51079-0983-20 ")
 ;;263
 ;;21,"51079-0983-57 ")
 ;;249
 ;;21,"51079-0984-01 ")
 ;;1251
 ;;21,"51079-0984-20 ")
 ;;316
 ;;21,"51285-0955-02 ")
 ;;1050
 ;;21,"51285-0955-05 ")
 ;;1075
 ;;21,"51285-0956-02 ")
 ;;583
 ;;21,"51285-0956-05 ")
 ;;584
 ;;21,"51285-0957-02 ")
 ;;846
 ;;21,"51285-0957-05 ")
 ;;847
 ;;21,"51285-0958-02 ")
 ;;898
 ;;21,"51655-0278-25 ")
 ;;516
 ;;21,"51655-0279-24 ")
 ;;484
 ;;21,"51655-0286-24 ")
 ;;517
 ;;21,"51655-0287-24 ")
 ;;518
 ;;21,"51655-0311-25 ")
 ;;470
 ;;21,"51655-0975-24 ")
 ;;760
 ;;21,"51672-4037-01 ")
 ;;10
 ;;21,"51672-4037-03 ")
 ;;11
 ;;21,"51672-4038-01 ")
 ;;767