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