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

BGP13S4.m

Go to the documentation of this file.
BGP13S4 ; 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,"54569-1634-00 ")
 ;;943
 ;;21,"54569-2499-00 ")
 ;;1749
 ;;21,"54569-3097-00 ")
 ;;1979
 ;;21,"54569-3432-00 ")
 ;;165
 ;;21,"54569-3432-01 ")
 ;;166
 ;;21,"54569-3432-03 ")
 ;;167
 ;;21,"54569-3432-04 ")
 ;;168
 ;;21,"54569-3432-05 ")
 ;;169
 ;;21,"54569-3432-07 ")
 ;;170
 ;;21,"54569-3654-00 ")
 ;;171
 ;;21,"54569-3654-03 ")
 ;;172
 ;;21,"54569-3654-04 ")
 ;;173
 ;;21,"54569-3787-00 ")
 ;;1276
 ;;21,"54569-3787-01 ")
 ;;1277
 ;;21,"54569-3787-02 ")
 ;;1278
 ;;21,"54569-3788-00 ")
 ;;1279
 ;;21,"54569-3788-01 ")
 ;;1280
 ;;21,"54569-3790-00 ")
 ;;1510
 ;;21,"54569-3791-00 ")
 ;;1511
 ;;21,"54569-3885-00 ")
 ;;174
 ;;21,"54569-3885-02 ")
 ;;175
 ;;21,"54569-3885-04 ")
 ;;176
 ;;21,"54569-4441-00 ")
 ;;2174
 ;;21,"54569-4442-00 ")
 ;;2175
 ;;21,"54569-4707-00 ")
 ;;2254
 ;;21,"54569-4708-00 ")
 ;;2255
 ;;21,"54569-4718-00 ")
 ;;2176
 ;;21,"54569-4718-01 ")
 ;;2177
 ;;21,"54569-5368-00 ")
 ;;2256
 ;;21,"54569-5385-00 ")
 ;;825
 ;;21,"54569-5404-00 ")
 ;;583
 ;;21,"54569-5404-01 ")
 ;;584
 ;;21,"54569-5417-00 ")
 ;;585
 ;;21,"54569-5417-01 ")
 ;;586
 ;;21,"54569-5419-00 ")
 ;;587
 ;;21,"54569-5419-01 ")
 ;;588
 ;;21,"54569-5870-00 ")
 ;;1112
 ;;21,"54569-5954-00 ")
 ;;1113
 ;;21,"54569-5961-00 ")
 ;;1114
 ;;21,"54569-5974-00 ")
 ;;708
 ;;21,"54569-5975-00 ")
 ;;709
 ;;21,"54569-5976-00 ")
 ;;710
 ;;21,"54569-5977-00 ")
 ;;711
 ;;21,"54569-8532-00 ")
 ;;878
 ;;21,"54569-8543-00 ")
 ;;1067
 ;;21,"54569-8545-00 ")
 ;;1068
 ;;21,"54569-8545-01 ")
 ;;1069
 ;;21,"54569-8574-00 ")
 ;;1281
 ;;21,"54569-8591-00 ")
 ;;1512
 ;;21,"54738-0468-01 ")
 ;;1750
 ;;21,"54738-0468-03 ")
 ;;1751
 ;;21,"54738-0469-01 ")
 ;;1752
 ;;21,"54738-0469-03 ")
 ;;1753
 ;;21,"54868-0052-00 ")
 ;;1754
 ;;21,"54868-0052-01 ")
 ;;1755
 ;;21,"54868-0052-02 ")
 ;;1756
 ;;21,"54868-0053-02 ")
 ;;1757
 ;;21,"54868-0053-03 ")
 ;;1758
 ;;21,"54868-0053-06 ")
 ;;1759
 ;;21,"54868-0053-07 ")
 ;;1760
 ;;21,"54868-0106-00 ")
 ;;868
 ;;21,"54868-0106-01 ")
 ;;869
 ;;21,"54868-0293-00 ")
 ;;1761
 ;;21,"54868-0293-01 ")
 ;;1762
 ;;21,"54868-0293-03 ")
 ;;1763
 ;;21,"54868-0293-04 ")
 ;;1764
 ;;21,"54868-0293-05 ")
 ;;1765
 ;;21,"54868-0293-06 ")
 ;;1766
 ;;21,"54868-0321-00 ")
 ;;2130
 ;;21,"54868-0674-00 ")
 ;;879
 ;;21,"54868-0674-01 ")
 ;;880
 ;;21,"54868-0680-00 ")
 ;;944
 ;;21,"54868-0680-01 ")
 ;;945
 ;;21,"54868-0685-01 ")
 ;;1070
 ;;21,"54868-0696-01 ")
 ;;1767
 ;;21,"54868-0696-02 ")
 ;;1768
 ;;21,"54868-0696-03 ")
 ;;1769
 ;;21,"54868-0701-00 ")
 ;;2135
 ;;21,"54868-0854-00 ")
 ;;1980
 ;;21,"54868-0854-01 ")
 ;;1981
 ;;21,"54868-1004-01 ")
 ;;1561
 ;;21,"54868-1063-00 ")
 ;;1071
 ;;21,"54868-1063-01 ")
 ;;1072
 ;;21,"54868-1063-02 ")
 ;;1073
 ;;21,"54868-1078-01 ")
 ;;1982
 ;;21,"54868-1078-03 ")
 ;;1983
 ;;21,"54868-1078-05 ")
 ;;1984
 ;;21,"54868-1441-00 ")
 ;;946
 ;;21,"54868-1441-01 ")
 ;;947
 ;;21,"54868-1442-00 ")
 ;;948
 ;;21,"54868-1442-01 ")
 ;;949
 ;;21,"54868-1442-02 ")
 ;;950
 ;;21,"54868-1517-00 ")
 ;;1985
 ;;21,"54868-1517-01 ")
 ;;1986
 ;;21,"54868-1517-02 ")
 ;;1987
 ;;21,"54868-1517-03 ")
 ;;1988
 ;;21,"54868-1518-00 ")
 ;;1989
 ;;21,"54868-1518-01 ")
 ;;1990
 ;;21,"54868-1518-02 ")
 ;;1991
 ;;21,"54868-1871-00 ")
 ;;177
 ;;21,"54868-1871-01 ")
 ;;178
 ;;21,"54868-1871-02 ")
 ;;179
 ;;21,"54868-1871-04 ")
 ;;180
 ;;21,"54868-1971-00 ")
 ;;181
 ;;21,"54868-1971-01 ")
 ;;182
 ;;21,"54868-1971-03 ")
 ;;183
 ;;21,"54868-1971-04 ")
 ;;184
 ;;21,"54868-1980-00 ")
 ;;712
 ;;21,"54868-1980-01 ")
 ;;713
 ;;21,"54868-2349-01 ")
 ;;185
 ;;21,"54868-2349-02 ")
 ;;186
 ;;21,"54868-2349-03 ")
 ;;187
 ;;21,"54868-2349-04 ")
 ;;188
 ;;21,"54868-2349-05 ")
 ;;189
 ;;21,"54868-2572-00 ")
 ;;951
 ;;21,"54868-2572-01 ")
 ;;952
 ;;21,"54868-2572-02 ")
 ;;953
 ;;21,"54868-2683-00 ")
 ;;422
 ;;21,"54868-2683-01 ")
 ;;423
 ;;21,"54868-2683-02 ")
 ;;424
 ;;21,"54868-2864-00 ")
 ;;2224
 ;;21,"54868-2864-01 ")
 ;;2225
 ;;21,"54868-2989-00 ")
 ;;1282
 ;;21,"54868-2989-02 ")
 ;;1283
 ;;21,"54868-2989-03 ")
 ;;1284
 ;;21,"54868-2989-04 ")
 ;;1285
 ;;21,"54868-2989-05 ")
 ;;1286
 ;;21,"54868-2989-06 ")
 ;;1287
 ;;21,"54868-2990-00 ")
 ;;1288
 ;;21,"54868-2990-02 ")
 ;;1289
 ;;21,"54868-2990-03 ")
 ;;1290
 ;;21,"54868-2990-04 ")
 ;;1291
 ;;21,"54868-3062-00 ")
 ;;714
 ;;21,"54868-3062-01 ")
 ;;715
 ;;21,"54868-3062-02 ")
 ;;716
 ;;21,"54868-3064-00 ")
 ;;425
 ;;21,"54868-3257-01 ")
 ;;1513
 ;;21,"54868-3257-02 ")
 ;;1514
 ;;21,"54868-3257-03 ")
 ;;1515
 ;;21,"54868-3257-04 ")
 ;;1516
 ;;21,"54868-3257-05 ")
 ;;1517
 ;;21,"54868-3587-00 ")
 ;;2178
 ;;21,"54868-3587-01 ")
 ;;2179
 ;;21,"54868-3587-02 ")
 ;;2180
 ;;21,"54868-3587-03 ")
 ;;2181
 ;;21,"54868-3587-04 ")
 ;;2182
 ;;21,"54868-3587-05 ")
 ;;2183
 ;;21,"54868-3602-00 ")
 ;;1576
 ;;21,"54868-3721-01 ")
 ;;1518
 ;;21,"54868-3721-02 ")
 ;;1519
 ;;21,"54868-4173-00 ")
 ;;2257
 ;;21,"54868-4179-00 ")
 ;;2258
 ;;21,"54868-4223-00 ")
 ;;2184
 ;;21,"54868-4223-01 ")
 ;;2185
 ;;21,"54868-4223-02 ")
 ;;2186
 ;;21,"54868-4223-03 ")
 ;;2187
 ;;21,"54868-4223-04 ")
 ;;2188
 ;;21,"54868-4395-00 ")
 ;;826
 ;;21,"54868-4395-01 ")
 ;;827
 ;;21,"54868-4395-02 ")
 ;;828
 ;;21,"54868-4395-03 ")
 ;;829
 ;;21,"54868-4396-00 ")
 ;;830
 ;;21,"54868-4396-01 ")
 ;;831
 ;;21,"54868-4396-02 ")
 ;;832
 ;;21,"54868-4396-03 ")
 ;;833
 ;;21,"54868-4421-00 ")
 ;;834
 ;;21,"54868-4421-01 ")
 ;;835
 ;;21,"54868-4421-02 ")
 ;;836
 ;;21,"54868-4423-00 ")
 ;;470
 ;;21,"54868-4423-01 ")
 ;;477
 ;;21,"54868-4424-00 ")
 ;;837
 ;;21,"54868-4424-01 ")
 ;;838
 ;;21,"54868-4424-02 ")
 ;;839
 ;;21,"54868-4424-03 ")
 ;;840
 ;;21,"54868-4435-00 ")
 ;;2066
 ;;21,"54868-4435-01 ")
 ;;2067
 ;;21,"54868-4435-02 ")
 ;;2068
 ;;21,"54868-4435-03 ")
 ;;2069
 ;;21,"54868-4576-00 ")
 ;;589
 ;;21,"54868-4576-01 ")
 ;;590
 ;;21,"54868-4576-02 ")
 ;;591
 ;;21,"54868-4576-03 ")
 ;;592
 ;;21,"54868-4577-00 ")
 ;;593
 ;;21,"54868-4577-01 ")
 ;;594
 ;;21,"54868-4577-03 ")
 ;;595
 ;;21,"54868-4578-00 ")
 ;;596
 ;;21,"54868-4578-01 ")
 ;;597
 ;;21,"54868-4578-02 ")
 ;;598
 ;;21,"54868-4578-03 ")
 ;;599
 ;;21,"54868-4621-00 ")
 ;;2243
 ;;21,"54868-4661-00 ")
 ;;2189
 ;;21,"54868-4661-01 ")
 ;;2190
 ;;21,"54868-4661-02 ")
 ;;2191
 ;;21,"54868-4661-03 ")
 ;;2192
 ;;21,"54868-4844-00 ")
 ;;1038
 ;;21,"54868-4844-01 ")
 ;;1039
 ;;21,"54868-4844-02 ")
 ;;1040
 ;;21,"54868-4903-00 ")
 ;;1041
 ;;21,"54868-4903-01 ")
 ;;1042
 ;;21,"54868-4903-02 ")
 ;;1043
 ;;21,"54868-4921-00 ")
 ;;1044
 ;;21,"54868-4921-01 ")
 ;;1045
 ;;21,"54868-4932-00 ")
 ;;482
 ;;21,"54868-4932-01 ")
 ;;483
 ;;21,"54868-5013-00 ")
 ;;505
 ;;21,"54868-5021-00 ")
 ;;1292
 ;;21,"54868-5021-01 ")
 ;;1293
 ;;21,"54868-5021-02 ")
 ;;1294
 ;;21,"54868-5068-00 ")
 ;;2193
 ;;21,"54868-5068-01 ")
 ;;2194
 ;;21,"54868-5068-02 ")
 ;;2195
 ;;21,"54868-5068-03 ")
 ;;2196
 ;;21,"54868-5095-00 ")
 ;;506
 ;;21,"54868-5095-01 ")
 ;;507
 ;;21,"54868-5095-02 ")
 ;;508
 ;;21,"54868-5095-03 ")
 ;;509
 ;;21,"54868-5295-00 ")
 ;;1520
 ;;21,"54868-5295-01 ")
 ;;1521
 ;;21,"54868-5344-00 ")
 ;;891
 ;;21,"54868-5344-01 ")
 ;;892
 ;;21,"54868-5344-02 ")
 ;;893
 ;;21,"54868-5395-00 ")
 ;;966
 ;;21,"54868-5400-00 ")
 ;;901
 ;;21,"54868-5400-01 ")
 ;;902
 ;;21,"54868-5520-00 ")
 ;;6
 ;;21,"54868-5524-00 ")
 ;;903
 ;;21,"54868-5524-01 ")
 ;;904
 ;;21,"54868-5549-00 ")
 ;;2070
 ;;21,"54868-5549-01 ")
 ;;2071
 ;;21,"54868-5564-00 ")
 ;;1770
 ;;21,"54868-5564-01 ")
 ;;1771
 ;;21,"54868-5588-00 ")
 ;;1522
 ;;21,"54868-5614-00 ")
 ;;2072
 ;;21,"54868-5729-00 ")
 ;;1115
 ;;21,"54868-5729-01 ")
 ;;1116
 ;;21,"54868-5729-02 ")
 ;;1117
 ;;21,"54868-5729-03 ")
 ;;1118
 ;;21,"54868-5729-04 ")
 ;;1119
 ;;21,"54868-5730-00 ")
 ;;1120
 ;;21,"54868-5730-01 ")
 ;;1121
 ;;21,"54868-5730-02 ")
 ;;1122
 ;;21,"54868-5730-03 ")
 ;;1123
 ;;21,"54868-5731-00 ")
 ;;1124
 ;;21,"54868-5731-01 ")
 ;;1125
 ;;21,"54868-5731-02 ")
 ;;1126
 ;;21,"54868-5731-03 ")
 ;;1127
 ;;21,"54868-5732-00 ")
 ;;1128
 ;;21,"54868-5755-00 ")
 ;;1992
 ;;21,"54868-5755-01 ")
 ;;1993
 ;;21,"54868-5771-00 ")
 ;;870
 ;;21,"54868-5771-01 ")
 ;;871
 ;;21,"54868-5773-00 ")
 ;;717
 ;;21,"54868-5773-01 ")
 ;;718
 ;;21,"54868-5773-02 ")
 ;;719
 ;;21,"54868-5773-03 ")
 ;;720
 ;;21,"54868-5817-00 ")
 ;;721
 ;;21,"54868-5817-01 ")
 ;;722
 ;;21,"54868-5869-00 ")
 ;;872
 ;;21,"54868-5869-01 ")
 ;;873
 ;;21,"54868-5944-00 ")
 ;;628
 ;;21,"54868-6018-00 ")
 ;;629
 ;;21,"54868-6019-00 ")
 ;;874
 ;;21,"54868-6019-01 ")
 ;;875
 ;;21,"54921-0101-10 ")
 ;;190
 ;;21,"54921-0101-39 ")
 ;;191
 ;;21,"54921-0105-10 ")
 ;;192
 ;;21,"54921-0105-34 ")
 ;;193
 ;;21,"54921-0105-39 ")
 ;;194
 ;;21,"54921-0107-10 ")
 ;;195
 ;;21,"54921-0115-10 ")
 ;;426
 ;;21,"54921-0117-10 ")
 ;;427
 ;;21,"55045-1236-07 ")
 ;;1772
 ;;21,"55045-1236-08 ")
 ;;1773
 ;;21,"55045-1236-09 ")
 ;;1774
 ;;21,"55045-1860-01 ")
 ;;196
 ;;21,"55045-1860-02 ")
 ;;197
 ;;21,"55045-1860-06 ")
 ;;198
 ;;21,"55045-1860-08 ")
 ;;199
 ;;21,"55045-1860-09 ")
 ;;200
 ;;21,"55045-2078-01 ")
 ;;1775
 ;;21,"55045-2078-06 ")
 ;;1776
 ;;21,"55045-2078-08 ")
 ;;1777
 ;;21,"55045-2217-00 ")
 ;;1295
 ;;21,"55045-2217-02 ")
 ;;1296
 ;;21,"55045-2217-06 ")
 ;;1297
 ;;21,"55045-2217-08 ")
 ;;1298
 ;;21,"55045-2217-09 ")
 ;;1299
 ;;21,"55045-2269-01 ")
 ;;201
 ;;21,"55045-2269-02 ")
 ;;202
 ;;21,"55045-2269-06 ")
 ;;203
 ;;21,"55045-2269-08 ")
 ;;204
 ;;21,"55045-2269-09 ")
 ;;205
 ;;21,"55045-2282-00 ")
 ;;1300
 ;;21,"55045-2282-02 ")
 ;;1301
 ;;21,"55045-2282-06 ")
 ;;1302
 ;;21,"55045-2282-07 ")
 ;;1303
 ;;21,"55045-2282-08 ")
 ;;1304
 ;;21,"55045-2282-09 ")
 ;;1305
 ;;21,"55045-2431-01 ")
 ;;2197
 ;;21,"55045-2431-08 ")
 ;;2198
 ;;21,"55045-2498-01 ")
 ;;206
 ;;21,"55045-2498-08 ")
 ;;207
 ;;21,"55045-2755-08 ")
 ;;428
 ;;21,"55045-2990-08 ")
 ;;600
 ;;21,"55045-3006-08 ")
 ;;601
 ;;21,"55045-3160-00 ")
 ;;2073
 ;;21,"55045-3361-01 ")
 ;;2199
 ;;21,"55045-3361-08 ")
 ;;2200
 ;;21,"55045-3371-08 ")
 ;;1778
 ;;21,"55045-3762-08 ")
 ;;1306
 ;;21,"55045-3798-01 ")
 ;;1129
 ;;21,"55111-0252-01 ")
 ;;723
 ;;21,"55111-0252-05 ")
 ;;724
 ;;21,"55111-0253-01 ")
 ;;725
 ;;21,"55111-0253-05 ")
 ;;726
 ;;21,"55111-0254-01 ")
 ;;727
 ;;21,"55111-0254-05 ")
 ;;728
 ;;21,"55111-0255-01 ")
 ;;729
 ;;21,"55111-0255-05 ")
 ;;730
 ;;21,"55289-0093-30 ")
 ;;1307
 ;;21,"55289-0093-90 ")
 ;;1308
 ;;21,"55289-0093-93 ")
 ;;1309
 ;;21,"55289-0093-97 ")
 ;;1310
 ;;21,"55289-0131-97 ")
 ;;932
 ;;21,"55289-0171-30 ")
 ;;1074
 ;;21,"55289-0227-01 ")
 ;;208
 ;;21,"55289-0227-30 ")
 ;;209
 ;;21,"55289-0227-90 ")
 ;;210
 ;;21,"55289-0227-97 ")
 ;;211
 ;;21,"55289-0228-01 ")
 ;;212
 ;;21,"55289-0228-03 ")
 ;;213
 ;;21,"55289-0228-06 ")
 ;;214
 ;;21,"55289-0228-14 ")
 ;;215
 ;;21,"55289-0228-30 ")
 ;;216
 ;;21,"55289-0228-60 ")
 ;;217
 ;;21,"55289-0228-90 ")
 ;;218
 ;;21,"55289-0228-97 ")
 ;;219
 ;;21,"55289-0233-01 ")
 ;;1779
 ;;21,"55289-0233-10 ")
 ;;1780
 ;;21,"55289-0233-12 ")
 ;;1781
 ;;21,"55289-0233-60 ")
 ;;1782
 ;;21,"55289-0233-90 ")
 ;;1783
 ;;21,"55289-0233-97 ")
 ;;1784
 ;;21,"55289-0234-01 ")
 ;;1785
 ;;21,"55289-0234-30 ")
 ;;1786
 ;;21,"55289-0234-60 ")
 ;;1787
 ;;21,"55289-0234-90 ")
 ;;1788
 ;;21,"55289-0254-30 ")
 ;;2136
 ;;21,"55289-0382-30 ")
 ;;1311
 ;;21,"55289-0382-93 ")
 ;;1312
 ;;21,"55289-0413-01 ")
 ;;1313
 ;;21,"55289-0413-30 ")
 ;;1314
 ;;21,"55289-0413-60 ")
 ;;1315
 ;;21,"55289-0413-90 ")
 ;;1316
 ;;21,"55289-0413-93 ")
 ;;1317
 ;;21,"55289-0413-94 ")
 ;;1318
 ;;21,"55289-0413-97 ")
 ;;1319
 ;;21,"55289-0587-30 ")
 ;;2137
 ;;21,"55289-0627-30 ")
 ;;1075
 ;;21,"55289-0630-30 ")
 ;;602
 ;;21,"55289-0653-30 ")
 ;;220
 ;;21,"55289-0653-90 ")
 ;;221
 ;;21,"55289-0855-30 ")
 ;;2201
 ;;21,"55289-0902-30 ")
 ;;2202