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

BGP13Y4.m

Go to the documentation of this file.
BGP13Y4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"54868-2869-01 ")
 ;;1436
 ;;21,"54868-2869-03 ")
 ;;1437
 ;;21,"54868-2870-00 ")
 ;;1472
 ;;21,"54868-2873-00 ")
 ;;515
 ;;21,"54868-2873-01 ")
 ;;516
 ;;21,"54868-2873-03 ")
 ;;517
 ;;21,"54868-2873-04 ")
 ;;518
 ;;21,"54868-2873-05 ")
 ;;519
 ;;21,"54868-2885-00 ")
 ;;1778
 ;;21,"54868-2975-02 ")
 ;;695
 ;;21,"54868-2975-03 ")
 ;;696
 ;;21,"54868-3102-00 ")
 ;;638
 ;;21,"54868-3102-03 ")
 ;;639
 ;;21,"54868-3103-00 ")
 ;;649
 ;;21,"54868-3103-02 ")
 ;;650
 ;;21,"54868-3103-03 ")
 ;;651
 ;;21,"54868-3103-04 ")
 ;;658
 ;;21,"54868-3103-05 ")
 ;;659
 ;;21,"54868-3214-00 ")
 ;;627
 ;;21,"54868-3214-01 ")
 ;;628
 ;;21,"54868-3287-00 ")
 ;;214
 ;;21,"54868-3287-01 ")
 ;;215
 ;;21,"54868-3300-01 ")
 ;;1920
 ;;21,"54868-3300-02 ")
 ;;1921
 ;;21,"54868-3300-03 ")
 ;;1922
 ;;21,"54868-3300-04 ")
 ;;1923
 ;;21,"54868-3464-01 ")
 ;;287
 ;;21,"54868-3464-02 ")
 ;;288
 ;;21,"54868-3774-00 ")
 ;;941
 ;;21,"54868-3817-00 ")
 ;;1353
 ;;21,"54868-3853-01 ")
 ;;410
 ;;21,"54868-3853-02 ")
 ;;411
 ;;21,"54868-3853-03 ")
 ;;412
 ;;21,"54868-3956-00 ")
 ;;960
 ;;21,"54868-3956-01 ")
 ;;961
 ;;21,"54868-3956-02 ")
 ;;962
 ;;21,"54868-3958-00 ")
 ;;981
 ;;21,"54868-4011-00 ")
 ;;1614
 ;;21,"54868-4011-01 ")
 ;;1615
 ;;21,"54868-4011-02 ")
 ;;1616
 ;;21,"54868-4011-03 ")
 ;;1617
 ;;21,"54868-4064-00 ")
 ;;1308
 ;;21,"54868-4064-01 ")
 ;;1309
 ;;21,"54868-4066-00 ")
 ;;43
 ;;21,"54868-4066-01 ")
 ;;44
 ;;21,"54868-4068-00 ")
 ;;1019
 ;;21,"54868-4073-00 ")
 ;;60
 ;;21,"54868-4073-01 ")
 ;;61
 ;;21,"54868-4073-02 ")
 ;;62
 ;;21,"54868-4073-03 ")
 ;;63
 ;;21,"54868-4074-00 ")
 ;;92
 ;;21,"54868-4074-01 ")
 ;;93
 ;;21,"54868-4074-02 ")
 ;;94
 ;;21,"54868-4074-03 ")
 ;;95
 ;;21,"54868-4074-04 ")
 ;;96
 ;;21,"54868-4184-00 ")
 ;;697
 ;;21,"54868-4184-01 ")
 ;;698
 ;;21,"54868-4184-02 ")
 ;;699
 ;;21,"54868-4186-00 ")
 ;;672
 ;;21,"54868-4186-01 ")
 ;;673
 ;;21,"54868-4186-02 ")
 ;;674
 ;;21,"54868-4186-03 ")
 ;;675
 ;;21,"54868-4200-00 ")
 ;;1625
 ;;21,"54868-4200-01 ")
 ;;1626
 ;;21,"54868-4200-02 ")
 ;;1627
 ;;21,"54868-4202-00 ")
 ;;1644
 ;;21,"54868-4202-01 ")
 ;;1645
 ;;21,"54868-4418-00 ")
 ;;999
 ;;21,"54868-4432-00 ")
 ;;1860
 ;;21,"54868-4432-01 ")
 ;;1861
 ;;21,"54868-4531-00 ")
 ;;1438
 ;;21,"54868-4531-01 ")
 ;;1439
 ;;21,"54868-4531-02 ")
 ;;1440
 ;;21,"54868-4531-03 ")
 ;;1441
 ;;21,"54868-4531-04 ")
 ;;1442
 ;;21,"54868-4532-00 ")
 ;;1389
 ;;21,"54868-4532-01 ")
 ;;1390
 ;;21,"54868-4532-02 ")
 ;;1391
 ;;21,"54868-4532-03 ")
 ;;1392
 ;;21,"54868-4532-04 ")
 ;;1393
 ;;21,"54868-4808-00 ")
 ;;881
 ;;21,"54868-4868-00 ")
 ;;821
 ;;21,"54868-4868-01 ")
 ;;822
 ;;21,"54868-4868-02 ")
 ;;846
 ;;21,"54868-4870-00 ")
 ;;9
 ;;21,"54868-4870-01 ")
 ;;10
 ;;21,"54868-4870-02 ")
 ;;11
 ;;21,"54868-4875-00 ")
 ;;1586
 ;;21,"54868-4875-01 ")
 ;;1587
 ;;21,"54868-4875-02 ")
 ;;1588
 ;;21,"54868-4970-00 ")
 ;;726
 ;;21,"54868-4970-01 ")
 ;;727
 ;;21,"54868-4970-02 ")
 ;;752
 ;;21,"54868-4992-00 ")
 ;;862
 ;;21,"54868-4992-01 ")
 ;;863
 ;;21,"54868-5053-00 ")
 ;;1037
 ;;21,"54868-5053-01 ")
 ;;1038
 ;;21,"54868-5081-00 ")
 ;;778
 ;;21,"54868-5150-00 ")
 ;;779
 ;;21,"54868-5179-00 ")
 ;;220
 ;;21,"54868-5197-00 ")
 ;;1275
 ;;21,"54868-5197-01 ")
 ;;1276
 ;;21,"54868-5197-02 ")
 ;;1277
 ;;21,"54868-5200-00 ")
 ;;198
 ;;21,"54868-5200-01 ")
 ;;199
 ;;21,"54868-5208-00 ")
 ;;1020
 ;;21,"54868-5208-01 ")
 ;;1021
 ;;21,"54868-5209-00 ")
 ;;197
 ;;21,"54868-5209-01 ")
 ;;196
 ;;21,"54868-5301-00 ")
 ;;899
 ;;21,"54868-5311-00 ")
 ;;134
 ;;21,"54868-5311-01 ")
 ;;135
 ;;21,"54868-5316-00 ")
 ;;823
 ;;21,"54868-5320-00 ")
 ;;139
 ;;21,"54868-5320-01 ")
 ;;140
 ;;21,"54868-5320-02 ")
 ;;141
 ;;21,"54868-5320-03 ")
 ;;142
 ;;21,"54868-5320-04 ")
 ;;143
 ;;21,"54868-5420-00 ")
 ;;222
 ;;21,"54868-5476-00 ")
 ;;1318
 ;;21,"54868-5523-00 ")
 ;;203
 ;;21,"54868-5523-01 ")
 ;;204
 ;;21,"54868-5548-00 ")
 ;;128
 ;;21,"54868-5548-01 ")
 ;;129
 ;;21,"54868-5548-02 ")
 ;;130
 ;;21,"54868-5561-00 ")
 ;;1310
 ;;21,"54868-5561-01 ")
 ;;1311
 ;;21,"54868-5567-00 ")
 ;;192
 ;;21,"54868-5672-00 ")
 ;;207
 ;;21,"54868-5690-00 ")
 ;;31
 ;;21,"54868-5690-01 ")
 ;;32
 ;;21,"54868-5690-02 ")
 ;;33
 ;;21,"54868-5690-03 ")
 ;;34
 ;;21,"54868-5699-00 ")
 ;;209
 ;;21,"54868-5761-00 ")
 ;;520
 ;;21,"54868-5761-01 ")
 ;;521
 ;;21,"54868-5761-02 ")
 ;;522
 ;;21,"54868-5762-00 ")
 ;;289
 ;;21,"54868-5762-01 ")
 ;;290
 ;;21,"54868-5762-02 ")
 ;;291
 ;;21,"54868-5764-00 ")
 ;;413
 ;;21,"54868-5764-01 ")
 ;;414
 ;;21,"54868-5781-00 ")
 ;;12
 ;;21,"54868-5781-01 ")
 ;;13
 ;;21,"54868-5781-02 ")
 ;;14
 ;;21,"54868-5781-03 ")
 ;;15
 ;;21,"54868-5782-00 ")
 ;;97
 ;;21,"54868-5782-01 ")
 ;;98
 ;;21,"54868-5782-02 ")
 ;;99
 ;;21,"54868-5782-03 ")
 ;;100
 ;;21,"54868-5782-04 ")
 ;;108
 ;;21,"54868-5783-00 ")
 ;;117
 ;;21,"54868-5783-01 ")
 ;;118
 ;;21,"54868-5792-00 ")
 ;;64
 ;;21,"54868-5792-01 ")
 ;;65
 ;;21,"54868-5792-02 ")
 ;;66
 ;;21,"54868-5804-00 ")
 ;;175
 ;;21,"54868-5841-00 ")
 ;;1692
 ;;21,"54868-5841-01 ")
 ;;1693
 ;;21,"54868-5841-02 ")
 ;;1694
 ;;21,"54868-5931-00 ")
 ;;1646
 ;;21,"54868-5931-01 ")
 ;;1647
 ;;21,"54868-5983-00 ")
 ;;177
 ;;21,"54868-5983-01 ")
 ;;178
 ;;21,"54868-5984-00 ")
 ;;1699
 ;;21,"54868-5984-01 ")
 ;;1700
 ;;21,"54868-5993-00 ")
 ;;1630
 ;;21,"54868-5993-01 ")
 ;;1631
 ;;21,"54868-5996-00 ")
 ;;183
 ;;21,"54868-5996-01 ")
 ;;184
 ;;21,"54868-5997-00 ")
 ;;180
 ;;21,"54868-5997-01 ")
 ;;181
 ;;21,"54868-6036-00 ")
 ;;167
 ;;21,"54868-6123-00 ")
 ;;148
 ;;21,"54868-6124-00 ")
 ;;1677
 ;;21,"54868-6124-01 ")
 ;;1678
 ;;21,"55045-1858-08 ")
 ;;824
 ;;21,"55045-1921-08 ")
 ;;780
 ;;21,"55045-2321-08 ")
 ;;1993
 ;;21,"55045-2321-09 ")
 ;;1994
 ;;21,"55045-2357-08 ")
 ;;1144
 ;;21,"55045-2846-08 ")
 ;;676
 ;;21,"55045-3017-06 ")
 ;;1746
 ;;21,"55045-3043-09 ")
 ;;1924
 ;;21,"55045-3344-01 ")
 ;;523
 ;;21,"55045-3499-01 ")
 ;;292
 ;;21,"55045-3791-01 ")
 ;;1078
 ;;21,"55045-3792-01 ")
 ;;1180
 ;;21,"55045-3794-09 ")
 ;;524
 ;;21,"55045-3795-09 ")
 ;;415
 ;;21,"55045-3796-09 ")
 ;;293
 ;;21,"55111-0269-90 ")
 ;;416
 ;;21,"55111-0270-05 ")
 ;;525
 ;;21,"55111-0270-90 ")
 ;;526
 ;;21,"55111-0271-05 ")
 ;;294
 ;;21,"55111-0271-90 ")
 ;;295
 ;;21,"55111-0338-01 ")
 ;;47
 ;;21,"55111-0339-01 ")
 ;;74
 ;;21,"55111-0339-05 ")
 ;;75
 ;;21,"55111-0340-01 ")
 ;;109
 ;;21,"55111-0340-05 ")
 ;;110
 ;;21,"55111-0341-01 ")
 ;;24
 ;;21,"55111-0341-05 ")
 ;;25
 ;;21,"55289-0039-30 ")
 ;;101
 ;;21,"55289-0078-30 ")
 ;;1995
 ;;21,"55289-0096-30 ")
 ;;67
 ;;21,"55289-0103-30 ")
 ;;527
 ;;21,"55289-0103-60 ")
 ;;528
 ;;21,"55289-0270-30 ")
 ;;529
 ;;21,"55289-0270-90 ")
 ;;530
 ;;21,"55289-0289-90 ")
 ;;1214
 ;;21,"55289-0299-30 ")
 ;;296
 ;;21,"55289-0299-90 ")
 ;;297
 ;;21,"55289-0306-30 ")
 ;;1278
 ;;21,"55289-0306-90 ")
 ;;1279
 ;;21,"55289-0323-01 ")
 ;;1508
 ;;21,"55289-0323-30 ")
 ;;1509
 ;;21,"55289-0329-01 ")
 ;;1145
 ;;21,"55289-0335-01 ")
 ;;1079
 ;;21,"55289-0335-10 ")
 ;;1080
 ;;21,"55289-0335-50 ")
 ;;1081
 ;;21,"55289-0357-01 ")
 ;;1555
 ;;21,"55289-0357-30 ")
 ;;1556
 ;;21,"55289-0448-30 ")
 ;;417
 ;;21,"55289-0481-01 ")
 ;;1747
 ;;21,"55289-0481-30 ")
 ;;1748
 ;;21,"55289-0481-60 ")
 ;;1749
 ;;21,"55289-0543-30 ")
 ;;1443
 ;;21,"55289-0545-30 ")
 ;;1473
 ;;21,"55289-0549-30 ")
 ;;298
 ;;21,"55289-0549-60 ")
 ;;299
 ;;21,"55289-0583-30 ")
 ;;1628
 ;;21,"55289-0602-30 ")
 ;;418
 ;;21,"55289-0607-14 ")
 ;;1925
 ;;21,"55289-0607-30 ")
 ;;1926
 ;;21,"55289-0723-30 ")
 ;;1996
 ;;21,"55289-0723-90 ")
 ;;1997
 ;;21,"55289-0723-93 ")
 ;;1998
 ;;21,"55289-0770-14 ")
 ;;781
 ;;21,"55289-0774-14 ")
 ;;825
 ;;21,"55289-0798-07 ")
 ;;1510
 ;;21,"55289-0798-30 ")
 ;;1511
 ;;21,"55289-0853-30 ")
 ;;753
 ;;21,"55289-0893-30 ")
 ;;1181
 ;;21,"55289-0893-97 ")
 ;;1182
 ;;21,"55289-0896-08 ")
 ;;1824
 ;;21,"55289-0896-30 ")
 ;;1825
 ;;21,"55289-0896-97 ")
 ;;1826
 ;;21,"55289-0981-30 ")
 ;;16
 ;;21,"55887-0135-90 ")
 ;;300
 ;;21,"55887-0136-90 ")
 ;;531
 ;;21,"55887-0361-30 ")
 ;;1512
 ;;21,"55887-0361-60 ")
 ;;1513
 ;;21,"55887-0361-90 ")
 ;;1514
 ;;21,"55887-0363-30 ")
 ;;619
 ;;21,"55887-0363-60 ")
 ;;620
 ;;21,"55887-0363-90 ")
 ;;621
 ;;21,"55887-0389-30 ")
 ;;1589
 ;;21,"55887-0389-60 ")
 ;;1590
 ;;21,"55887-0389-82 ")
 ;;1591
 ;;21,"55887-0389-90 ")
 ;;1592
 ;;21,"55887-0402-30 ")
 ;;1862
 ;;21,"55887-0402-60 ")
 ;;1863
 ;;21,"55887-0402-82 ")
 ;;1864
 ;;21,"55887-0402-90 ")
 ;;1865
 ;;21,"55887-0418-30 ")
 ;;1999
 ;;21,"55887-0449-30 ")
 ;;1750
 ;;21,"55887-0449-60 ")
 ;;1751
 ;;21,"55887-0449-90 ")
 ;;1752
 ;;21,"55887-0597-30 ")
 ;;1082
 ;;21,"55887-0597-60 ")
 ;;1083
 ;;21,"55887-0597-90 ")
 ;;1084
 ;;21,"55887-0598-30 ")
 ;;1146
 ;;21,"55887-0598-60 ")
 ;;1147
 ;;21,"55887-0598-90 ")
 ;;1148
 ;;21,"55887-0701-30 ")
 ;;728
 ;;21,"55887-0701-60 ")
 ;;729
 ;;21,"55887-0701-82 ")
 ;;730
 ;;21,"55887-0701-90 ")
 ;;731
 ;;21,"55887-0802-90 ")
 ;;1557
 ;;21,"55887-0824-30 ")
 ;;532
 ;;21,"55887-0824-60 ")
 ;;533
 ;;21,"55887-0824-82 ")
 ;;534
 ;;21,"55887-0824-90 ")
 ;;535
 ;;21,"55887-0864-30 ")
 ;;301
 ;;21,"55887-0864-60 ")
 ;;302
 ;;21,"55887-0864-90 ")
 ;;303
 ;;21,"55887-0920-30 ")
 ;;677
 ;;21,"55887-0986-30 ")
 ;;700
 ;;21,"55887-0986-90 ")
 ;;701
 ;;21,"57664-0568-13 ")
 ;;419
 ;;21,"57664-0568-99 ")
 ;;420
 ;;21,"57664-0569-13 ")
 ;;536
 ;;21,"57664-0569-99 ")
 ;;537
 ;;21,"57664-0570-13 ")
 ;;304
 ;;21,"57664-0570-18 ")
 ;;305
 ;;21,"57664-0570-99 ")
 ;;306
 ;;21,"57866-0102-01 ")
 ;;1515
 ;;21,"57866-0229-01 ")
 ;;732
 ;;21,"57866-0230-01 ")
 ;;782
 ;;21,"57866-0234-01 ")
 ;;1215
 ;;21,"57866-0284-01 ")
 ;;307
 ;;21,"57866-3025-01 ")
 ;;1280
 ;;21,"57866-3138-01 ")
 ;;308
 ;;21,"57866-4068-01 ")
 ;;1516
 ;;21,"57866-4069-01 ")
 ;;1558
 ;;21,"57866-4070-01 ")
 ;;1593
 ;;21,"57866-6126-01 ")
 ;;826
 ;;21,"57866-6127-01 ")
 ;;827
 ;;21,"57866-6127-02 ")
 ;;828
 ;;21,"57866-6414-02 ")
 ;;2000
 ;;21,"57866-6625-01 ")
 ;;538
 ;;21,"57866-6626-01 ")
 ;;309
 ;;21,"57866-6717-02 ")
 ;;1474
 ;;21,"57866-6719-03 ")
 ;;1394
 ;;21,"57866-6912-01 ")
 ;;1866
 ;;21,"57866-6914-01 ")
 ;;2001
 ;;21,"57866-7076-01 ")
 ;;539
 ;;21,"58016-0374-30 ")
 ;;2002
 ;;21,"58016-0504-00 ")
 ;;733
 ;;21,"58016-0504-20 ")
 ;;734
 ;;21,"58016-0504-30 ")
 ;;735
 ;;21,"58016-0504-60 ")
 ;;736
 ;;21,"58016-0509-00 ")
 ;;1753
 ;;21,"58016-0509-02 ")
 ;;1754
 ;;21,"58016-0509-12 ")
 ;;1755
 ;;21,"58016-0509-15 ")
 ;;1756
 ;;21,"58016-0509-20 ")
 ;;1757
 ;;21,"58016-0509-30 ")
 ;;1758
 ;;21,"58016-0509-60 ")
 ;;1759
 ;;21,"58016-0511-00 ")
 ;;1827
 ;;21,"58016-0511-08 ")
 ;;1828
 ;;21,"58016-0511-30 ")
 ;;1829
 ;;21,"58016-0606-00 ")
 ;;1085
 ;;21,"58016-0606-12 ")
 ;;1086
 ;;21,"58016-0606-15 ")
 ;;1087
 ;;21,"58016-0606-20 ")
 ;;1088
 ;;21,"58016-0606-30 ")
 ;;1089
 ;;21,"58016-0606-90 ")
 ;;1090
 ;;21,"58016-0607-00 ")
 ;;1149
 ;;21,"58016-0607-12 ")
 ;;1150
 ;;21,"58016-0607-15 ")
 ;;1151
 ;;21,"58016-0607-20 ")
 ;;1152
 ;;21,"58016-0607-30 ")
 ;;1153
 ;;21,"58016-0607-90 ")
 ;;1154
 ;;21,"58016-0608-00 ")
 ;;1183
 ;;21,"58016-0608-12 ")
 ;;1184
 ;;21,"58016-0608-15 ")
 ;;1185
 ;;21,"58016-0608-20 ")
 ;;1186
 ;;21,"58016-0608-30 ")
 ;;1187
 ;;21,"58016-0608-90 ")
 ;;1188
 ;;21,"58016-0721-00 ")
 ;;1867
 ;;21,"58016-0721-30 ")
 ;;1868
 ;;21,"58016-0721-60 ")
 ;;1869
 ;;21,"58016-0721-90 ")
 ;;1870
 ;;21,"58016-0860-00 ")
 ;;2003
 ;;21,"58016-0860-12 ")
 ;;2004
 ;;21,"58016-0860-15 ")
 ;;2005
 ;;21,"58016-0860-20 ")
 ;;2006
 ;;21,"58016-0860-30 ")
 ;;2007
 ;;21,"58177-0061-09 ")
 ;;942
 ;;21,"58177-0061-11 ")
 ;;943
 ;;21,"58177-0061-19 ")
 ;;944
 ;;21,"58177-0061-26 ")
 ;;945
 ;;21,"58177-0062-09 ")
 ;;963
 ;;21,"58177-0062-11 ")
 ;;964