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

BGP62Z9.m

Go to the documentation of this file.
BGP62Z9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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-2433-00 ")
 ;;4147
 ;;21,"54868-2433-02 ")
 ;;4148
 ;;21,"54868-2434-00 ")
 ;;4196
 ;;21,"54868-2434-02 ")
 ;;4197
 ;;21,"54868-2481-01 ")
 ;;5235
 ;;21,"54868-2481-02 ")
 ;;5236
 ;;21,"54868-2481-03 ")
 ;;5237
 ;;21,"54868-2482-02 ")
 ;;5267
 ;;21,"54868-2546-00 ")
 ;;4596
 ;;21,"54868-2552-00 ")
 ;;4890
 ;;21,"54868-2552-02 ")
 ;;4891
 ;;21,"54868-2637-00 ")
 ;;3377
 ;;21,"54868-2637-01 ")
 ;;3378
 ;;21,"54868-2637-03 ")
 ;;3379
 ;;21,"54868-2637-04 ")
 ;;3380
 ;;21,"54868-2637-05 ")
 ;;3381
 ;;21,"54868-2637-06 ")
 ;;3382
 ;;21,"54868-2637-07 ")
 ;;3383
 ;;21,"54868-2637-08 ")
 ;;3384
 ;;21,"54868-2833-00 ")
 ;;5072
 ;;21,"54868-2833-01 ")
 ;;5073
 ;;21,"54868-2835-01 ")
 ;;5074
 ;;21,"54868-2835-02 ")
 ;;5075
 ;;21,"54868-2835-03 ")
 ;;5076
 ;;21,"54868-2835-04 ")
 ;;5077
 ;;21,"54868-2976-00 ")
 ;;3011
 ;;21,"54868-2976-02 ")
 ;;3012
 ;;21,"54868-2976-03 ")
 ;;3013
 ;;21,"54868-3033-00 ")
 ;;2348
 ;;21,"54868-3033-02 ")
 ;;2349
 ;;21,"54868-3414-00 ")
 ;;1398
 ;;21,"54868-3414-01 ")
 ;;1399
 ;;21,"54868-3414-02 ")
 ;;1400
 ;;21,"54868-3414-03 ")
 ;;1401
 ;;21,"54868-3414-05 ")
 ;;1402
 ;;21,"54868-3523-00 ")
 ;;1608
 ;;21,"54868-3523-01 ")
 ;;1609
 ;;21,"54868-3523-02 ")
 ;;1610
 ;;21,"54868-3523-03 ")
 ;;1611
 ;;21,"54868-3526-00 ")
 ;;3153
 ;;21,"54868-3962-00 ")
 ;;3237
 ;;21,"54868-4023-00 ")
 ;;4568
 ;;21,"54868-4023-01 ")
 ;;4569
 ;;21,"54868-4055-00 ")
 ;;1403
 ;;21,"54868-4055-01 ")
 ;;1404
 ;;21,"54868-4055-02 ")
 ;;1405
 ;;21,"54868-4055-03 ")
 ;;1406
 ;;21,"54868-4065-00 ")
 ;;2861
 ;;21,"54868-4134-00 ")
 ;;420
 ;;21,"54868-4159-00 ")
 ;;1858
 ;;21,"54868-4159-01 ")
 ;;1859
 ;;21,"54868-4159-02 ")
 ;;1860
 ;;21,"54868-4159-03 ")
 ;;1861
 ;;21,"54868-4159-04 ")
 ;;1862
 ;;21,"54868-4226-00 ")
 ;;2029
 ;;21,"54868-4226-01 ")
 ;;2030
 ;;21,"54868-4226-02 ")
 ;;2031
 ;;21,"54868-4252-00 ")
 ;;1214
 ;;21,"54868-4252-01 ")
 ;;1215
 ;;21,"54868-4252-02 ")
 ;;1216
 ;;21,"54868-4252-03 ")
 ;;1217
 ;;21,"54868-4252-04 ")
 ;;1218
 ;;21,"54868-4253-00 ")
 ;;1523
 ;;21,"54868-4253-01 ")
 ;;1524
 ;;21,"54868-4253-02 ")
 ;;1525
 ;;21,"54868-4253-03 ")
 ;;1526
 ;;21,"54868-4372-00 ")
 ;;3520
 ;;21,"54868-4372-01 ")
 ;;3521
 ;;21,"54868-4372-02 ")
 ;;3522
 ;;21,"54868-4394-00 ")
 ;;2720
 ;;21,"54868-4504-00 ")
 ;;1335
 ;;21,"54868-4504-01 ")
 ;;1336
 ;;21,"54868-4537-00 ")
 ;;2546
 ;;21,"54868-4537-01 ")
 ;;2547
 ;;21,"54868-4537-02 ")
 ;;2548
 ;;21,"54868-4537-03 ")
 ;;2549
 ;;21,"54868-4537-04 ")
 ;;2550
 ;;21,"54868-4550-00 ")
 ;;35
 ;;21,"54868-4550-01 ")
 ;;36
 ;;21,"54868-4550-02 ")
 ;;37
 ;;21,"54868-4560-00 ")
 ;;2422
 ;;21,"54868-4560-01 ")
 ;;2423
 ;;21,"54868-4560-02 ")
 ;;2424
 ;;21,"54868-4562-00 ")
 ;;2721
 ;;21,"54868-4562-01 ")
 ;;2722
 ;;21,"54868-4700-00 ")
 ;;2151
 ;;21,"54868-4700-01 ")
 ;;2152
 ;;21,"54868-4700-02 ")
 ;;2153
 ;;21,"54868-4700-03 ")
 ;;2154
 ;;21,"54868-4700-04 ")
 ;;2155
 ;;21,"54868-4700-05 ")
 ;;2156
 ;;21,"54868-4700-06 ")
 ;;2157
 ;;21,"54868-4775-00 ")
 ;;2228
 ;;21,"54868-4775-01 ")
 ;;2229
 ;;21,"54868-4775-02 ")
 ;;2230
 ;;21,"54868-4775-03 ")
 ;;2231
 ;;21,"54868-4791-00 ")
 ;;3110
 ;;21,"54868-4817-00 ")
 ;;3238
 ;;21,"54868-4817-01 ")
 ;;3239
 ;;21,"54868-4817-02 ")
 ;;3240
 ;;21,"54868-4848-00 ")
 ;;3771
 ;;21,"54868-4892-00 ")
 ;;207
 ;;21,"54868-4892-01 ")
 ;;208
 ;;21,"54868-4892-02 ")
 ;;209
 ;;21,"54868-4892-03 ")
 ;;210
 ;;21,"54868-4935-00 ")
 ;;369
 ;;21,"54868-4937-00 ")
 ;;3014
 ;;21,"54868-4937-01 ")
 ;;3015
 ;;21,"54868-4937-02 ")
 ;;3016
 ;;21,"54868-4937-03 ")
 ;;3017
 ;;21,"54868-4937-04 ")
 ;;3018
 ;;21,"54868-4938-00 ")
 ;;3154
 ;;21,"54868-4985-00 ")
 ;;1715
 ;;21,"54868-4985-01 ")
 ;;1716
 ;;21,"54868-5080-00 ")
 ;;2862
 ;;21,"54868-5178-00 ")
 ;;1863
 ;;21,"54868-5178-01 ")
 ;;1864
 ;;21,"54868-5178-02 ")
 ;;1865
 ;;21,"54868-5178-03 ")
 ;;1866
 ;;21,"54868-5178-04 ")
 ;;1867
 ;;21,"54868-5178-05 ")
 ;;1868
 ;;21,"54868-5192-00 ")
 ;;1119
 ;;21,"54868-5215-00 ")
 ;;1004
 ;;21,"54868-5215-01 ")
 ;;1005
 ;;21,"54868-5215-02 ")
 ;;1006
 ;;21,"54868-5275-00 ")
 ;;1717
 ;;21,"54868-5275-01 ")
 ;;1718
 ;;21,"54868-5275-02 ")
 ;;1719
 ;;21,"54868-5315-00 ")
 ;;1052
 ;;21,"54868-5347-00 ")
 ;;2926
 ;;21,"54868-5365-00 ")
 ;;3194
 ;;21,"54868-5448-00 ")
 ;;3863
 ;;21,"54868-5562-00 ")
 ;;493
 ;;21,"54868-5638-00 ")
 ;;3385
 ;;21,"54868-5638-01 ")
 ;;3386
 ;;21,"54868-5638-02 ")
 ;;3387
 ;;21,"54868-5638-03 ")
 ;;3388
 ;;21,"54868-5638-04 ")
 ;;3389
 ;;21,"54868-5638-05 ")
 ;;3390
 ;;21,"54868-5638-06 ")
 ;;3391
 ;;21,"54868-5638-07 ")
 ;;3392
 ;;21,"54868-5639-00 ")
 ;;3654
 ;;21,"54868-5639-01 ")
 ;;3655
 ;;21,"54868-5639-02 ")
 ;;3656
 ;;21,"54868-5639-03 ")
 ;;3657
 ;;21,"54868-5639-05 ")
 ;;3658
 ;;21,"54868-5639-06 ")
 ;;3659
 ;;21,"54868-5658-00 ")
 ;;3523
 ;;21,"54868-5663-00 ")
 ;;2350
 ;;21,"54868-5663-01 ")
 ;;2351
 ;;21,"54868-5663-02 ")
 ;;2352
 ;;21,"54868-5736-00 ")
 ;;370
 ;;21,"54868-5736-01 ")
 ;;371
 ;;21,"54868-5754-00 ")
 ;;1612
 ;;21,"54868-5754-01 ")
 ;;1613
 ;;21,"54868-5754-02 ")
 ;;1614
 ;;21,"54868-5812-00 ")
 ;;3942
 ;;21,"54868-5927-00 ")
 ;;293
 ;;21,"54868-5951-00 ")
 ;;2267
 ;;21,"55045-1463-00 ")
 ;;4293
 ;;21,"55045-1463-01 ")
 ;;4294
 ;;21,"55045-1463-02 ")
 ;;4295
 ;;21,"55045-1463-03 ")
 ;;4296
 ;;21,"55045-1463-04 ")
 ;;4297
 ;;21,"55045-1463-06 ")
 ;;4298
 ;;21,"55045-1463-07 ")
 ;;4299
 ;;21,"55045-1463-08 ")
 ;;4300
 ;;21,"55045-1463-09 ")
 ;;4301
 ;;21,"55045-1592-00 ")
 ;;4149
 ;;21,"55045-1592-01 ")
 ;;4150
 ;;21,"55045-1592-05 ")
 ;;4151
 ;;21,"55045-1592-06 ")
 ;;4152
 ;;21,"55045-1592-08 ")
 ;;4153
 ;;21,"55045-1592-09 ")
 ;;4154
 ;;21,"55045-1682-00 ")
 ;;4051
 ;;21,"55045-1682-01 ")
 ;;4052
 ;;21,"55045-1682-02 ")
 ;;4053
 ;;21,"55045-1682-03 ")
 ;;4054
 ;;21,"55045-1682-04 ")
 ;;4055
 ;;21,"55045-1682-05 ")
 ;;4056
 ;;21,"55045-1682-06 ")
 ;;4057
 ;;21,"55045-1682-08 ")
 ;;4058
 ;;21,"55045-1682-09 ")
 ;;4059
 ;;21,"55045-1715-00 ")
 ;;837
 ;;21,"55045-1715-01 ")
 ;;838
 ;;21,"55045-1715-02 ")
 ;;839
 ;;21,"55045-1715-03 ")
 ;;840
 ;;21,"55045-1715-07 ")
 ;;841
 ;;21,"55045-1715-08 ")
 ;;842
 ;;21,"55045-1715-09 ")
 ;;843
 ;;21,"55045-1718-02 ")
 ;;4632
 ;;21,"55045-1718-06 ")
 ;;4633
 ;;21,"55045-1718-08 ")
 ;;4634
 ;;21,"55045-1718-09 ")
 ;;4635
 ;;21,"55045-1721-00 ")
 ;;4951
 ;;21,"55045-1721-08 ")
 ;;4952
 ;;21,"55045-1722-08 ")
 ;;4994
 ;;21,"55045-1724-00 ")
 ;;590
 ;;21,"55045-1724-01 ")
 ;;591
 ;;21,"55045-1724-06 ")
 ;;592
 ;;21,"55045-1724-08 ")
 ;;593
 ;;21,"55045-1724-09 ")
 ;;594
 ;;21,"55045-1741-00 ")
 ;;4427
 ;;21,"55045-1741-01 ")
 ;;4428
 ;;21,"55045-1741-02 ")
 ;;4429
 ;;21,"55045-1741-03 ")
 ;;4430
 ;;21,"55045-1741-05 ")
 ;;4431
 ;;21,"55045-1741-06 ")
 ;;4432
 ;;21,"55045-1741-08 ")
 ;;4433
 ;;21,"55045-1741-09 ")
 ;;4434
 ;;21,"55045-1794-08 ")
 ;;4912
 ;;21,"55045-1837-01 ")
 ;;4712
 ;;21,"55045-1837-02 ")
 ;;4713
 ;;21,"55045-1837-06 ")
 ;;4714
 ;;21,"55045-1837-08 ")
 ;;4715
 ;;21,"55045-1837-09 ")
 ;;4716
 ;;21,"55045-1884-01 ")
 ;;4774
 ;;21,"55045-1884-02 ")
 ;;4775
 ;;21,"55045-1884-06 ")
 ;;4776
 ;;21,"55045-1884-08 ")
 ;;4777
 ;;21,"55045-1884-09 ")
 ;;4778
 ;;21,"55045-1920-01 ")
 ;;5078
 ;;21,"55045-1920-02 ")
 ;;5079
 ;;21,"55045-1920-06 ")
 ;;5080
 ;;21,"55045-1920-08 ")
 ;;5081
 ;;21,"55045-1920-09 ")
 ;;5082
 ;;21,"55045-1956-01 ")
 ;;5157
 ;;21,"55045-1956-02 ")
 ;;5158
 ;;21,"55045-1956-04 ")
 ;;5159
 ;;21,"55045-1956-06 ")
 ;;5160
 ;;21,"55045-1956-08 ")
 ;;5161
 ;;21,"55045-1956-09 ")
 ;;5162
 ;;21,"55045-1982-02 ")
 ;;5238
 ;;21,"55045-1982-08 ")
 ;;5239
 ;;21,"55045-1982-09 ")
 ;;5240
 ;;21,"55045-2084-01 ")
 ;;4842
 ;;21,"55045-2084-03 ")
 ;;4843
 ;;21,"55045-2084-06 ")
 ;;4844
 ;;21,"55045-2153-01 ")
 ;;4518
 ;;21,"55045-2153-08 ")
 ;;4519
 ;;21,"55045-2208-01 ")
 ;;3393
 ;;21,"55045-2208-03 ")
 ;;3394
 ;;21,"55045-2208-07 ")
 ;;3395
 ;;21,"55045-2208-08 ")
 ;;3396
 ;;21,"55045-2224-00 ")
 ;;3660
 ;;21,"55045-2224-02 ")
 ;;3661
 ;;21,"55045-2224-07 ")
 ;;3662
 ;;21,"55045-2224-08 ")
 ;;3663
 ;;21,"55045-2509-00 ")
 ;;696
 ;;21,"55045-2509-01 ")
 ;;697
 ;;21,"55045-2509-06 ")
 ;;698
 ;;21,"55045-2509-08 ")
 ;;699
 ;;21,"55045-2509-09 ")
 ;;700
 ;;21,"55045-2546-08 ")
 ;;3019
 ;;21,"55045-2631-08 ")
 ;;211
 ;;21,"55045-2705-00 ")
 ;;2032
 ;;21,"55045-2706-09 ")
 ;;1869
 ;;21,"55045-2907-00 ")
 ;;2353
 ;;21,"55045-2907-02 ")
 ;;2354
 ;;21,"55045-2907-06 ")
 ;;2355
 ;;21,"55045-2907-08 ")
 ;;2356
 ;;21,"55045-2907-09 ")
 ;;2357
 ;;21,"55045-2908-00 ")
 ;;2551
 ;;21,"55045-2908-02 ")
 ;;2552
 ;;21,"55045-2908-06 ")
 ;;2553
 ;;21,"55045-2908-08 ")
 ;;2554
 ;;21,"55045-2908-09 ")
 ;;2555
 ;;21,"55045-2934-00 ")
 ;;2158
 ;;21,"55045-2934-08 ")
 ;;2159
 ;;21,"55045-2985-00 ")
 ;;2232
 ;;21,"55045-2985-08 ")
 ;;2233
 ;;21,"55045-3088-08 ")
 ;;1282
 ;;21,"55045-3137-08 ")
 ;;2723
 ;;21,"55045-3171-08 ")
 ;;2863
 ;;21,"55045-3172-08 ")
 ;;3020
 ;;21,"55045-3172-09 ")
 ;;3021
 ;;21,"55045-3195-06 ")
 ;;38
 ;;21,"55045-3195-08 ")
 ;;39
 ;;21,"55045-3196-06 ")
 ;;1527
 ;;21,"55045-3196-08 ")
 ;;1528
 ;;21,"55045-3196-09 ")
 ;;1529
 ;;21,"55045-3197-06 ")
 ;;212
 ;;21,"55045-3220-09 ")
 ;;1407
 ;;21,"55045-3341-06 ")
 ;;1870
 ;;21,"55045-3341-08 ")
 ;;1871
 ;;21,"55045-3368-08 ")
 ;;1219
 ;;21,"55045-3386-08 ")
 ;;3524
 ;;21,"55045-3387-08 ")
 ;;1615
 ;;21,"55045-3423-01 ")
 ;;1720
 ;;21,"55045-3423-02 ")
 ;;1721
 ;;21,"55045-3424-00 ")
 ;;2033
 ;;21,"55045-3424-08 ")
 ;;2034
 ;;21,"55045-3562-01 ")
 ;;3397
 ;;21,"55045-3566-01 ")
 ;;3664
 ;;21,"55045-3697-03 ")
 ;;1120
 ;;21,"55045-3757-08 ")
 ;;844
 ;;21,"55045-3766-08 ")
 ;;2358
 ;;21,"55045-3799-01 ")
 ;;4913
 ;;21,"55111-0142-60 ")
 ;;522
 ;;21,"55111-0147-01 ")
 ;;2359
 ;;21,"55111-0148-01 ")
 ;;2556
 ;;21,"55111-0148-10 ")
 ;;2557
 ;;21,"55111-0149-01 ")
 ;;2724
 ;;21,"55111-0149-30 ")
 ;;2725
 ;;21,"55111-0284-48 ")
 ;;2758
 ;;21,"55111-0342-01 ")
 ;;1722
 ;;21,"55111-0342-05 ")
 ;;1723
 ;;21,"55111-0342-30 ")
 ;;1724
 ;;21,"55111-0343-01 ")
 ;;1872
 ;;21,"55111-0343-05 ")
 ;;1873
 ;;21,"55111-0343-30 ")
 ;;1874
 ;;21,"55111-0344-01 ")
 ;;2035
 ;;21,"55111-0344-05 ")
 ;;2036
 ;;21,"55111-0344-30 ")
 ;;2037
 ;;21,"55111-0453-05 ")
 ;;1337
 ;;21,"55111-0453-30 ")
 ;;1338
 ;;21,"55111-0453-90 ")
 ;;1339
 ;;21,"55111-0454-05 ")
 ;;1530
 ;;21,"55111-0454-30 ")
 ;;1531
 ;;21,"55111-0454-90 ")
 ;;1532
 ;;21,"55111-0455-05 ")
 ;;1220
 ;;21,"55111-0455-30 ")
 ;;1221
 ;;21,"55111-0455-90 ")
 ;;1222
 ;;21,"55111-0545-90 ")
 ;;1283
 ;;21,"55111-0546-05 ")
 ;;1408
 ;;21,"55111-0546-90 ")
 ;;1409
 ;;21,"55111-0547-90 ")
 ;;1459
 ;;21,"55111-0548-05 ")
 ;;1616
 ;;21,"55111-0548-90 ")
 ;;1617
 ;;21,"55111-0549-90 ")
 ;;1169
 ;;21,"55111-0608-60 ")
 ;;1007
 ;;21,"55111-0609-30 ")
 ;;1053
 ;;21,"55111-0609-90 ")
 ;;1054
 ;;21,"55111-0610-10 ")
 ;;1121