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

BGP8ZI2.m

Go to the documentation of this file.
  1. BGP8ZI2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
  1. ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
  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,"00247-1731-90 ")
  1. ;;340
  1. ;;21,"00247-1813-04 ")
  1. ;;341
  1. ;;21,"00247-1813-08 ")
  1. ;;342
  1. ;;21,"00247-1813-30 ")
  1. ;;343
  1. ;;21,"00247-1814-08 ")
  1. ;;344
  1. ;;21,"00247-1814-14 ")
  1. ;;345
  1. ;;21,"00247-1814-30 ")
  1. ;;346
  1. ;;21,"00247-1843-03 ")
  1. ;;347
  1. ;;21,"00247-1843-07 ")
  1. ;;348
  1. ;;21,"00247-1843-08 ")
  1. ;;349
  1. ;;21,"00247-1843-14 ")
  1. ;;350
  1. ;;21,"00247-1850-04 ")
  1. ;;351
  1. ;;21,"00247-1850-08 ")
  1. ;;352
  1. ;;21,"00247-1850-30 ")
  1. ;;353
  1. ;;21,"00247-1893-00 ")
  1. ;;354
  1. ;;21,"00247-1893-07 ")
  1. ;;355
  1. ;;21,"00247-1893-30 ")
  1. ;;356
  1. ;;21,"00247-1893-60 ")
  1. ;;357
  1. ;;21,"00247-1893-77 ")
  1. ;;358
  1. ;;21,"00247-1893-90 ")
  1. ;;359
  1. ;;21,"00247-1894-07 ")
  1. ;;360
  1. ;;21,"00247-1894-30 ")
  1. ;;361
  1. ;;21,"00247-1894-60 ")
  1. ;;362
  1. ;;21,"00247-1894-77 ")
  1. ;;363
  1. ;;21,"00247-1894-90 ")
  1. ;;364
  1. ;;21,"00247-1915-03 ")
  1. ;;365
  1. ;;21,"00247-1915-07 ")
  1. ;;366
  1. ;;21,"00247-1915-30 ")
  1. ;;367
  1. ;;21,"00247-1915-90 ")
  1. ;;368
  1. ;;21,"00247-1918-15 ")
  1. ;;369
  1. ;;21,"00247-1918-30 ")
  1. ;;370
  1. ;;21,"00247-1961-00 ")
  1. ;;371
  1. ;;21,"00247-1961-14 ")
  1. ;;372
  1. ;;21,"00247-1961-30 ")
  1. ;;373
  1. ;;21,"00247-1961-60 ")
  1. ;;374
  1. ;;21,"00247-1964-30 ")
  1. ;;375
  1. ;;21,"00247-1964-90 ")
  1. ;;376
  1. ;;21,"00247-1965-00 ")
  1. ;;377
  1. ;;21,"00247-1965-03 ")
  1. ;;378
  1. ;;21,"00247-1965-14 ")
  1. ;;379
  1. ;;21,"00247-1965-30 ")
  1. ;;380
  1. ;;21,"00247-1965-60 ")
  1. ;;381
  1. ;;21,"00247-1965-90 ")
  1. ;;382
  1. ;;21,"00247-1965-99 ")
  1. ;;383
  1. ;;21,"00247-2052-00 ")
  1. ;;384
  1. ;;21,"00247-2052-07 ")
  1. ;;385
  1. ;;21,"00247-2052-30 ")
  1. ;;386
  1. ;;21,"00247-2052-90 ")
  1. ;;387
  1. ;;21,"00247-2077-30 ")
  1. ;;388
  1. ;;21,"00247-2077-60 ")
  1. ;;389
  1. ;;21,"00247-2083-30 ")
  1. ;;390
  1. ;;21,"00247-2083-60 ")
  1. ;;391
  1. ;;21,"00247-2083-90 ")
  1. ;;392
  1. ;;21,"00247-2084-30 ")
  1. ;;393
  1. ;;21,"00247-2084-60 ")
  1. ;;394
  1. ;;21,"00247-2085-30 ")
  1. ;;395
  1. ;;21,"00247-2094-30 ")
  1. ;;396
  1. ;;21,"00247-2094-90 ")
  1. ;;397
  1. ;;21,"00247-2117-30 ")
  1. ;;398
  1. ;;21,"00247-2132-00 ")
  1. ;;399
  1. ;;21,"00247-2132-07 ")
  1. ;;400
  1. ;;21,"00247-2132-30 ")
  1. ;;401
  1. ;;21,"00247-2132-60 ")
  1. ;;402
  1. ;;21,"00247-2132-90 ")
  1. ;;403
  1. ;;21,"00247-2133-00 ")
  1. ;;404
  1. ;;21,"00247-2133-07 ")
  1. ;;405
  1. ;;21,"00247-2133-30 ")
  1. ;;406
  1. ;;21,"00247-2133-60 ")
  1. ;;407
  1. ;;21,"00247-2133-90 ")
  1. ;;408
  1. ;;21,"00247-2134-00 ")
  1. ;;409
  1. ;;21,"00247-2134-07 ")
  1. ;;410
  1. ;;21,"00247-2134-30 ")
  1. ;;411
  1. ;;21,"00247-2134-60 ")
  1. ;;412
  1. ;;21,"00247-2134-90 ")
  1. ;;413
  1. ;;21,"00247-2262-30 ")
  1. ;;414
  1. ;;21,"00247-2265-30 ")
  1. ;;415
  1. ;;21,"00247-2265-60 ")
  1. ;;416
  1. ;;21,"00247-2265-90 ")
  1. ;;417
  1. ;;21,"00247-2271-30 ")
  1. ;;418
  1. ;;21,"00247-2272-00 ")
  1. ;;419
  1. ;;21,"00247-2272-30 ")
  1. ;;420
  1. ;;21,"00247-2272-60 ")
  1. ;;421
  1. ;;21,"00247-2272-90 ")
  1. ;;422
  1. ;;21,"00247-2299-00 ")
  1. ;;423
  1. ;;21,"00247-2299-90 ")
  1. ;;424
  1. ;;21,"00247-2314-00 ")
  1. ;;425
  1. ;;21,"00247-2314-30 ")
  1. ;;426
  1. ;;21,"00247-2314-60 ")
  1. ;;427
  1. ;;21,"00247-2314-77 ")
  1. ;;428
  1. ;;21,"00247-2314-90 ")
  1. ;;429
  1. ;;21,"00247-2337-30 ")
  1. ;;430
  1. ;;21,"00247-2337-60 ")
  1. ;;431
  1. ;;21,"00247-2337-90 ")
  1. ;;432
  1. ;;21,"00378-0042-01 ")
  1. ;;433
  1. ;;21,"00378-0060-01 ")
  1. ;;434
  1. ;;21,"00378-0073-01 ")
  1. ;;435
  1. ;;21,"00378-0087-01 ")
  1. ;;436
  1. ;;21,"00378-0092-01 ")
  1. ;;437
  1. ;;21,"00378-0211-01 ")
  1. ;;438
  1. ;;21,"00378-0211-05 ")
  1. ;;439
  1. ;;21,"00378-0277-01 ")
  1. ;;440
  1. ;;21,"00378-0277-05 ")
  1. ;;441
  1. ;;21,"00378-0330-01 ")
  1. ;;442
  1. ;;21,"00378-0330-05 ")
  1. ;;443
  1. ;;21,"00378-0407-01 ")
  1. ;;444
  1. ;;21,"00378-0412-01 ")
  1. ;;445
  1. ;;21,"00378-0414-01 ")
  1. ;;446
  1. ;;21,"00378-0433-01 ")
  1. ;;447
  1. ;;21,"00378-0433-05 ")
  1. ;;448
  1. ;;21,"00378-0435-01 ")
  1. ;;449
  1. ;;21,"00378-0435-05 ")
  1. ;;450
  1. ;;21,"00378-0442-01 ")
  1. ;;451
  1. ;;21,"00378-0442-05 ")
  1. ;;452
  1. ;;21,"00378-0574-01 ")
  1. ;;453
  1. ;;21,"00378-0574-05 ")
  1. ;;454
  1. ;;21,"00378-0734-01 ")
  1. ;;455
  1. ;;21,"00378-0734-93 ")
  1. ;;456
  1. ;;21,"00378-0735-01 ")
  1. ;;457
  1. ;;21,"00378-0735-93 ")
  1. ;;458
  1. ;;21,"00378-1049-01 ")
  1. ;;459
  1. ;;21,"00378-1049-10 ")
  1. ;;460
  1. ;;21,"00378-2003-05 ")
  1. ;;461
  1. ;;21,"00378-2003-93 ")
  1. ;;462
  1. ;;21,"00378-2004-05 ")
  1. ;;463
  1. ;;21,"00378-2004-93 ")
  1. ;;464
  1. ;;21,"00378-2005-93 ")
  1. ;;465
  1. ;;21,"00378-2006-93 ")
  1. ;;466
  1. ;;21,"00378-2008-77 ")
  1. ;;467
  1. ;;21,"00378-2009-05 ")
  1. ;;468
  1. ;;21,"00378-2610-01 ")
  1. ;;469
  1. ;;21,"00378-2610-10 ")
  1. ;;470
  1. ;;21,"00378-2625-01 ")
  1. ;;471
  1. ;;21,"00378-2625-10 ")
  1. ;;472
  1. ;;21,"00378-2650-01 ")
  1. ;;473
  1. ;;21,"00378-2650-10 ")
  1. ;;474
  1. ;;21,"00378-2675-01 ")
  1. ;;475
  1. ;;21,"00378-2675-93 ")
  1. ;;476
  1. ;;21,"00378-2685-01 ")
  1. ;;477
  1. ;;21,"00378-2685-93 ")
  1. ;;478
  1. ;;21,"00378-2695-01 ")
  1. ;;479
  1. ;;21,"00378-2695-93 ")
  1. ;;480
  1. ;;21,"00378-3025-01 ")
  1. ;;481
  1. ;;21,"00378-3050-01 ")
  1. ;;482
  1. ;;21,"00378-3075-01 ")
  1. ;;483
  1. ;;21,"00378-3125-01 ")
  1. ;;484
  1. ;;21,"00378-3125-10 ")
  1. ;;485
  1. ;;21,"00378-3411-01 ")
  1. ;;486
  1. ;;21,"00378-3411-05 ")
  1. ;;487
  1. ;;21,"00378-3412-01 ")
  1. ;;488
  1. ;;21,"00378-3412-05 ")
  1. ;;489
  1. ;;21,"00378-3413-01 ")
  1. ;;490
  1. ;;21,"00378-3413-05 ")
  1. ;;491
  1. ;;21,"00378-3471-01 ")
  1. ;;492
  1. ;;21,"00378-3472-01 ")
  1. ;;493
  1. ;;21,"00378-3472-10 ")
  1. ;;494
  1. ;;21,"00378-3473-01 ")
  1. ;;495
  1. ;;21,"00378-3473-10 ")
  1. ;;496
  1. ;;21,"00378-3474-01 ")
  1. ;;497
  1. ;;21,"00378-3515-01 ")
  1. ;;498
  1. ;;21,"00378-3515-10 ")
  1. ;;499
  1. ;;21,"00378-3515-70 ")
  1. ;;500
  1. ;;21,"00378-3515-93 ")
  1. ;;501
  1. ;;21,"00378-3530-01 ")
  1. ;;502
  1. ;;21,"00378-3530-05 ")
  1. ;;503
  1. ;;21,"00378-3530-70 ")
  1. ;;504
  1. ;;21,"00378-3530-93 ")
  1. ;;505
  1. ;;21,"00378-3545-01 ")
  1. ;;506
  1. ;;21,"00378-3545-05 ")
  1. ;;507
  1. ;;21,"00378-3545-70 ")
  1. ;;508
  1. ;;21,"00378-3545-93 ")
  1. ;;509
  1. ;;21,"00378-3855-77 ")
  1. ;;510
  1. ;;21,"00378-3855-93 ")
  1. ;;511
  1. ;;21,"00378-3856-10 ")
  1. ;;512
  1. ;;21,"00378-3856-77 ")
  1. ;;513
  1. ;;21,"00378-3856-93 ")
  1. ;;514
  1. ;;21,"00378-3857-10 ")
  1. ;;515
  1. ;;21,"00378-3857-77 ")
  1. ;;516
  1. ;;21,"00378-3857-93 ")
  1. ;;517
  1. ;;21,"00378-4186-01 ")
  1. ;;518
  1. ;;21,"00378-4186-05 ")
  1. ;;519
  1. ;;21,"00378-4186-93 ")
  1. ;;520
  1. ;;21,"00378-4187-01 ")
  1. ;;521
  1. ;;21,"00378-4187-05 ")
  1. ;;522
  1. ;;21,"00378-4187-93 ")
  1. ;;523
  1. ;;21,"00378-4188-01 ")
  1. ;;524
  1. ;;21,"00378-4188-05 ")
  1. ;;525
  1. ;;21,"00378-4188-93 ")
  1. ;;526
  1. ;;21,"00378-4220-01 ")
  1. ;;527
  1. ;;21,"00378-4230-77 ")
  1. ;;528
  1. ;;21,"00378-4230-93 ")
  1. ;;529
  1. ;;21,"00378-4231-77 ")
  1. ;;530
  1. ;;21,"00378-4231-93 ")
  1. ;;531
  1. ;;21,"00378-4250-01 ")
  1. ;;532
  1. ;;21,"00378-4250-10 ")
  1. ;;533
  1. ;;21,"00378-4350-93 ")
  1. ;;534
  1. ;;21,"00378-4881-01 ")
  1. ;;535
  1. ;;21,"00378-4882-01 ")
  1. ;;536
  1. ;;21,"00378-4883-01 ")
  1. ;;537
  1. ;;21,"00378-4884-01 ")
  1. ;;538
  1. ;;21,"00378-4885-01 ")
  1. ;;539
  1. ;;21,"00378-5375-01 ")
  1. ;;540
  1. ;;21,"00378-5375-10 ")
  1. ;;541
  1. ;;21,"00378-5410-28 ")
  1. ;;542
  1. ;;21,"00378-5420-28 ")
  1. ;;543
  1. ;;21,"00378-5521-01 ")
  1. ;;544
  1. ;;21,"00378-6231-01 ")
  1. ;;545
  1. ;;21,"00378-6231-05 ")
  1. ;;546
  1. ;;21,"00378-6232-01 ")
  1. ;;547
  1. ;;21,"00378-6232-05 ")
  1. ;;548
  1. ;;21,"00378-6233-01 ")
  1. ;;549
  1. ;;21,"00378-6233-05 ")
  1. ;;550
  1. ;;21,"00378-6410-01 ")
  1. ;;551
  1. ;;21,"00378-6410-10 ")
  1. ;;552
  1. ;;21,"00378-7001-10 ")
  1. ;;553
  1. ;;21,"00378-7001-93 ")
  1. ;;554
  1. ;;21,"00378-7002-10 ")
  1. ;;555
  1. ;;21,"00378-7002-93 ")
  1. ;;556
  1. ;;21,"00378-7003-10 ")
  1. ;;557
  1. ;;21,"00378-7003-93 ")
  1. ;;558
  1. ;;21,"00378-7004-10 ")
  1. ;;559
  1. ;;21,"00378-7004-93 ")
  1. ;;560
  1. ;;21,"00378-8011-01 ")
  1. ;;561
  1. ;;21,"00378-8011-05 ")
  1. ;;562
  1. ;;21,"00378-8121-01 ")
  1. ;;563
  1. ;;21,"00378-8121-05 ")
  1. ;;564
  1. ;;21,"00378-8127-01 ")
  1. ;;565
  1. ;;21,"00378-8127-05 ")
  1. ;;566
  1. ;;21,"00378-9290-10 ")
  1. ;;567
  1. ;;21,"00378-9290-91 ")
  1. ;;568
  1. ;;21,"00406-0661-91 ")
  1. ;;569
  1. ;;21,"00406-2001-03 ")
  1. ;;570
  1. ;;21,"00406-2001-05 ")
  1. ;;571
  1. ;;21,"00406-2001-90 ")
  1. ;;572
  1. ;;21,"00406-2097-03 ")
  1. ;;573
  1. ;;21,"00406-2097-05 ")
  1. ;;574
  1. ;;21,"00406-2097-90 ")
  1. ;;575
  1. ;;21,"00406-2098-01 ")
  1. ;;576
  1. ;;21,"00406-2098-03 ")
  1. ;;577
  1. ;;21,"00406-2098-05 ")
  1. ;;578
  1. ;;21,"00406-2098-90 ")
  1. ;;579
  1. ;;21,"00406-2099-03 ")
  1. ;;580
  1. ;;21,"00406-2099-05 ")
  1. ;;581
  1. ;;21,"00406-2099-90 ")
  1. ;;582
  1. ;;21,"00406-8806-01 ")
  1. ;;583
  1. ;;21,"00406-8807-01 ")
  1. ;;584
  1. ;;21,"00406-8808-01 ")
  1. ;;585
  1. ;;21,"00406-9906-01 ")
  1. ;;586
  1. ;;21,"00406-9906-03 ")
  1. ;;587
  1. ;;21,"00406-9906-62 ")
  1. ;;588
  1. ;;21,"00406-9907-01 ")
  1. ;;589
  1. ;;21,"00406-9907-03 ")
  1. ;;590
  1. ;;21,"00406-9907-62 ")
  1. ;;591
  1. ;;21,"00406-9908-01 ")
  1. ;;592
  1. ;;21,"00406-9908-03 ")
  1. ;;593
  1. ;;21,"00406-9910-01 ")
  1. ;;594
  1. ;;21,"00406-9910-03 ")
  1. ;;595
  1. ;;21,"00406-9911-01 ")
  1. ;;596
  1. ;;21,"00406-9911-03 ")
  1. ;;597
  1. ;;21,"00406-9912-01 ")
  1. ;;598
  1. ;;21,"00406-9912-03 ")
  1. ;;599
  1. ;;21,"00406-9913-03 ")
  1. ;;600
  1. ;;21,"00406-9920-03 ")
  1. ;;601
  1. ;;21,"00406-9921-03 ")
  1. ;;602
  1. ;;21,"00406-9922-01 ")
  1. ;;603
  1. ;;21,"00406-9922-03 ")
  1. ;;604
  1. ;;21,"00406-9923-01 ")
  1. ;;605
  1. ;;21,"00406-9923-03 ")
  1. ;;606
  1. ;;21,"00406-9924-01 ")
  1. ;;607
  1. ;;21,"00406-9924-03 ")
  1. ;;608
  1. ;;21,"00406-9925-01 ")
  1. ;;609
  1. ;;21,"00406-9925-03 ")
  1. ;;610
  1. ;;21,"00406-9926-01 ")
  1. ;;611
  1. ;;21,"00406-9926-03 ")
  1. ;;612
  1. ;;21,"00406-9931-03 ")
  1. ;;613
  1. ;;21,"00406-9932-03 ")
  1. ;;614
  1. ;;21,"00406-9933-03 ")
  1. ;;615
  1. ;;21,"00406-9934-03 ")
  1. ;;616
  1. ;;21,"00430-0210-14 ")
  1. ;;617
  1. ;;21,"00430-0220-14 ")
  1. ;;618
  1. ;;21,"00440-7090-30 ")
  1. ;;619
  1. ;;21,"00440-7091-30 ")
  1. ;;620
  1. ;;21,"00440-7092-30 ")
  1. ;;621
  1. ;;21,"00440-7478-30 ")
  1. ;;622
  1. ;;21,"00440-8575-20 ")
  1. ;;623
  1. ;;21,"00440-8576-30 ")
  1. ;;624
  1. ;;21,"00456-1100-31 ")
  1. ;;625
  1. ;;21,"00456-1101-30 ")
  1. ;;626
  1. ;;21,"00456-1110-30 ")
  1. ;;627
  1. ;;21,"00456-1120-30 ")
  1. ;;628
  1. ;;21,"00456-1140-30 ")
  1. ;;629
  1. ;;21,"00456-2005-01 ")
  1. ;;630
  1. ;;21,"00456-2010-01 ")
  1. ;;631
  1. ;;21,"00456-2010-11 ")
  1. ;;632
  1. ;;21,"00456-2010-63 ")
  1. ;;633
  1. ;;21,"00456-2020-01 ")
  1. ;;634
  1. ;;21,"00456-2020-11 ")
  1. ;;635
  1. ;;21,"00456-2020-63 ")
  1. ;;636
  1. ;;21,"00456-2101-08 ")
  1. ;;637
  1. ;;21,"00456-2202-28 ")
  1. ;;638
  1. ;;21,"00456-2212-30 ")
  1. ;;639
  1. ;;21,"00456-2220-30 ")
  1. ;;640
  1. ;;21,"00456-2240-30 ")
  1. ;;641
  1. ;;21,"00456-2280-30 ")
  1. ;;642
  1. ;;21,"00456-4010-01 ")
  1. ;;643
  1. ;;21,"00456-4020-01 ")
  1. ;;644
  1. ;;21,"00456-4020-63 ")
  1. ;;645
  1. ;;21,"00456-4040-01 ")
  1. ;;646
  1. ;;21,"00456-4130-08 ")
  1. ;;647
  1. ;;21,"00490-0114-00 ")
  1. ;;648
  1. ;;21,"00490-0114-30 ")
  1. ;;649
  1. ;;21,"00490-0114-60 ")
  1. ;;650
  1. ;;21,"00490-0114-90 ")
  1. ;;651
  1. ;;21,"00490-0163-00 ")
  1. ;;652
  1. ;;21,"00490-0163-30 ")
  1. ;;653
  1. ;;21,"00490-0163-60 ")
  1. ;;654
  1. ;;21,"00490-0163-90 ")
  1. ;;655
  1. ;;21,"00555-0201-01 ")
  1. ;;656
  1. ;;21,"00555-0489-02 ")
  1. ;;657
  1. ;;21,"00555-0489-04 ")
  1. ;;658
  1. ;;21,"00555-0490-02 ")
  1. ;;659
  1. ;;21,"00555-0490-04 ")
  1. ;;660
  1. ;;21,"00555-0732-02 ")
  1. ;;661
  1. ;;21,"00555-0732-04 ")
  1. ;;662
  1. ;;21,"00555-0733-02 ")
  1. ;;663
  1. ;;21,"00555-0871-54 ")
  1. ;;664
  1. ;;21,"00555-0871-88 ")
  1. ;;665
  1. ;;21,"00555-0877-04 ")
  1. ;;666
  1. ;;21,"00555-0877-05 ")
  1. ;;667
  1. ;;21,"00555-0967-02 ")
  1. ;;668
  1. ;;21,"00555-0968-02 ")
  1. ;;669
  1. ;;21,"00555-0969-02 ")
  1. ;;670
  1. ;;21,"00591-0764-60 ")
  1. ;;671
  1. ;;21,"00591-0767-60 ")
  1. ;;672
  1. ;;21,"00591-0809-01 ")
  1. ;;673
  1. ;;21,"00591-0809-05 ")
  1. ;;674
  1. ;;21,"00591-0839-25 ")
  1. ;;675
  1. ;;21,"00591-0839-60 ")
  1. ;;676
  1. ;;21,"00591-0858-60 ")
  1. ;;677
  1. ;;21,"00591-1117-10 ")
  1. ;;678
  1. ;;21,"00591-1117-30 ")
  1. ;;679
  1. ;;21,"00591-1118-10 ")
  1. ;;680
  1. ;;21,"00591-1118-30 ")
  1. ;;681