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

BGP62Z5.m

Go to the documentation of this file.
  1. BGP62Z5 ;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,"16714-0448-02 ")
  1. ;;4392
  1. ;;21,"16714-0449-01 ")
  1. ;;4499
  1. ;;21,"16714-0450-01 ")
  1. ;;4123
  1. ;;21,"16714-0451-01 ")
  1. ;;4190
  1. ;;21,"16714-0601-01 ")
  1. ;;3461
  1. ;;21,"16714-0601-02 ")
  1. ;;3462
  1. ;;21,"16714-0611-01 ")
  1. ;;3493
  1. ;;21,"16714-0611-04 ")
  1. ;;3494
  1. ;;21,"16714-0611-05 ")
  1. ;;3495
  1. ;;21,"16714-0611-06 ")
  1. ;;3496
  1. ;;21,"16714-0612-01 ")
  1. ;;3598
  1. ;;21,"16714-0612-04 ")
  1. ;;3599
  1. ;;21,"16714-0612-05 ")
  1. ;;3600
  1. ;;21,"16714-0612-06 ")
  1. ;;3601
  1. ;;21,"16714-0613-01 ")
  1. ;;3335
  1. ;;21,"16714-0613-04 ")
  1. ;;3336
  1. ;;21,"16714-0613-05 ")
  1. ;;3337
  1. ;;21,"16714-0613-06 ")
  1. ;;3338
  1. ;;21,"16729-0168-01 ")
  1. ;;2262
  1. ;;21,"16729-0168-17 ")
  1. ;;2263
  1. ;;21,"16729-0169-01 ")
  1. ;;2128
  1. ;;21,"16729-0169-17 ")
  1. ;;2129
  1. ;;21,"16729-0170-01 ")
  1. ;;2207
  1. ;;21,"16729-0170-17 ")
  1. ;;2208
  1. ;;21,"16729-0171-01 ")
  1. ;;4012
  1. ;;21,"16729-0171-17 ")
  1. ;;4013
  1. ;;21,"16729-0172-01 ")
  1. ;;4234
  1. ;;21,"16729-0172-17 ")
  1. ;;4235
  1. ;;21,"16729-0173-01 ")
  1. ;;4393
  1. ;;21,"16729-0173-17 ")
  1. ;;4394
  1. ;;21,"16729-0174-01 ")
  1. ;;4500
  1. ;;21,"16729-0175-01 ")
  1. ;;4124
  1. ;;21,"16729-0176-01 ")
  1. ;;4191
  1. ;;21,"17236-0358-11 ")
  1. ;;4887
  1. ;;21,"17236-0359-11 ")
  1. ;;4739
  1. ;;21,"17856-0540-30 ")
  1. ;;1772
  1. ;;21,"18837-0035-90 ")
  1. ;;1105
  1. ;;21,"18837-0048-90 ")
  1. ;;1199
  1. ;;21,"18837-0076-90 ")
  1. ;;2130
  1. ;;21,"18837-0093-60 ")
  1. ;;3753
  1. ;;21,"18837-0121-30 ")
  1. ;;2969
  1. ;;21,"18837-0175-30 ")
  1. ;;279
  1. ;;21,"18837-0176-30 ")
  1. ;;350
  1. ;;21,"18837-0185-60 ")
  1. ;;3339
  1. ;;21,"18837-0185-90 ")
  1. ;;3340
  1. ;;21,"18837-0207-60 ")
  1. ;;1000
  1. ;;21,"18837-0242-30 ")
  1. ;;1691
  1. ;;21,"21695-0017-00 ")
  1. ;;408
  1. ;;21,"21695-0017-60 ")
  1. ;;409
  1. ;;21,"21695-0018-30 ")
  1. ;;16
  1. ;;21,"21695-0018-60 ")
  1. ;;17
  1. ;;21,"21695-0018-90 ")
  1. ;;18
  1. ;;21,"21695-0019-30 ")
  1. ;;185
  1. ;;21,"21695-0019-60 ")
  1. ;;186
  1. ;;21,"21695-0020-60 ")
  1. ;;325
  1. ;;21,"21695-0030-00 ")
  1. ;;1692
  1. ;;21,"21695-0030-30 ")
  1. ;;1693
  1. ;;21,"21695-0030-60 ")
  1. ;;1694
  1. ;;21,"21695-0031-00 ")
  1. ;;1814
  1. ;;21,"21695-0031-30 ")
  1. ;;1815
  1. ;;21,"21695-0031-60 ")
  1. ;;1816
  1. ;;21,"21695-0031-90 ")
  1. ;;1817
  1. ;;21,"21695-0032-00 ")
  1. ;;1987
  1. ;;21,"21695-0032-30 ")
  1. ;;1988
  1. ;;21,"21695-0045-15 ")
  1. ;;1330
  1. ;;21,"21695-0046-15 ")
  1. ;;1510
  1. ;;21,"21695-0046-30 ")
  1. ;;1511
  1. ;;21,"21695-0046-45 ")
  1. ;;1512
  1. ;;21,"21695-0046-90 ")
  1. ;;1513
  1. ;;21,"21695-0047-15 ")
  1. ;;1200
  1. ;;21,"21695-0047-45 ")
  1. ;;1201
  1. ;;21,"21695-0052-20 ")
  1. ;;2320
  1. ;;21,"21695-0052-30 ")
  1. ;;2321
  1. ;;21,"21695-0052-60 ")
  1. ;;2322
  1. ;;21,"21695-0052-90 ")
  1. ;;2323
  1. ;;21,"21695-0053-30 ")
  1. ;;2484
  1. ;;21,"21695-0053-60 ")
  1. ;;2485
  1. ;;21,"21695-0053-90 ")
  1. ;;2486
  1. ;;21,"21695-0054-30 ")
  1. ;;2702
  1. ;;21,"21695-0054-60 ")
  1. ;;2703
  1. ;;21,"21695-0054-90 ")
  1. ;;2704
  1. ;;21,"21695-0073-15 ")
  1. ;;2131
  1. ;;21,"21695-0073-30 ")
  1. ;;2132
  1. ;;21,"21695-0073-45 ")
  1. ;;2133
  1. ;;21,"21695-0074-15 ")
  1. ;;2209
  1. ;;21,"21695-0074-30 ")
  1. ;;2210
  1. ;;21,"21695-0081-00 ")
  1. ;;3754
  1. ;;21,"21695-0081-30 ")
  1. ;;3755
  1. ;;21,"21695-0081-60 ")
  1. ;;3756
  1. ;;21,"21695-0081-90 ")
  1. ;;3757
  1. ;;21,"21695-0082-00 ")
  1. ;;3848
  1. ;;21,"21695-0082-30 ")
  1. ;;3849
  1. ;;21,"21695-0082-60 ")
  1. ;;3850
  1. ;;21,"21695-0083-30 ")
  1. ;;3935
  1. ;;21,"21695-0093-00 ")
  1. ;;5049
  1. ;;21,"21695-0093-30 ")
  1. ;;5050
  1. ;;21,"21695-0093-60 ")
  1. ;;5051
  1. ;;21,"21695-0093-90 ")
  1. ;;5052
  1. ;;21,"21695-0094-30 ")
  1. ;;5130
  1. ;;21,"21695-0094-60 ")
  1. ;;5131
  1. ;;21,"21695-0094-90 ")
  1. ;;5132
  1. ;;21,"21695-0101-30 ")
  1. ;;2835
  1. ;;21,"21695-0101-60 ")
  1. ;;2836
  1. ;;21,"21695-0101-90 ")
  1. ;;2837
  1. ;;21,"21695-0102-30 ")
  1. ;;2970
  1. ;;21,"21695-0102-60 ")
  1. ;;2971
  1. ;;21,"21695-0102-90 ")
  1. ;;2972
  1. ;;21,"21695-0103-30 ")
  1. ;;3145
  1. ;;21,"21695-0103-90 ")
  1. ;;3146
  1. ;;21,"21695-0104-30 ")
  1. ;;3222
  1. ;;21,"21695-0104-60 ")
  1. ;;3223
  1. ;;21,"21695-0104-90 ")
  1. ;;3224
  1. ;;21,"21695-0133-30 ")
  1. ;;797
  1. ;;21,"21695-0133-60 ")
  1. ;;798
  1. ;;21,"21695-0133-72 ")
  1. ;;799
  1. ;;21,"21695-0133-90 ")
  1. ;;800
  1. ;;21,"21695-0134-30 ")
  1. ;;558
  1. ;;21,"21695-0134-60 ")
  1. ;;559
  1. ;;21,"21695-0134-90 ")
  1. ;;560
  1. ;;21,"21695-0135-60 ")
  1. ;;674
  1. ;;21,"21695-0135-90 ")
  1. ;;675
  1. ;;21,"21695-0137-15 ")
  1. ;;280
  1. ;;21,"21695-0137-30 ")
  1. ;;281
  1. ;;21,"21695-0137-45 ")
  1. ;;282
  1. ;;21,"21695-0138-15 ")
  1. ;;351
  1. ;;21,"21695-0138-30 ")
  1. ;;352
  1. ;;21,"21695-0145-15 ")
  1. ;;1038
  1. ;;21,"21695-0145-30 ")
  1. ;;1039
  1. ;;21,"21695-0146-15 ")
  1. ;;1106
  1. ;;21,"21695-0159-15 ")
  1. ;;2922
  1. ;;21,"21695-0159-30 ")
  1. ;;2923
  1. ;;21,"21695-0160-30 ")
  1. ;;3104
  1. ;;21,"21695-0164-30 ")
  1. ;;3497
  1. ;;21,"21695-0165-30 ")
  1. ;;3602
  1. ;;21,"21695-0165-60 ")
  1. ;;3603
  1. ;;21,"21695-0165-90 ")
  1. ;;3604
  1. ;;21,"21695-0166-30 ")
  1. ;;3341
  1. ;;21,"21695-0166-60 ")
  1. ;;3342
  1. ;;21,"21695-0166-90 ")
  1. ;;3343
  1. ;;21,"21695-0174-60 ")
  1. ;;477
  1. ;;21,"21695-0175-60 ")
  1. ;;490
  1. ;;21,"21695-0176-30 ")
  1. ;;503
  1. ;;21,"21695-0176-60 ")
  1. ;;504
  1. ;;21,"21695-0177-30 ")
  1. ;;517
  1. ;;21,"21695-0177-60 ")
  1. ;;518
  1. ;;21,"21695-0251-30 ")
  1. ;;4236
  1. ;;21,"21695-0251-60 ")
  1. ;;4237
  1. ;;21,"21695-0251-90 ")
  1. ;;4238
  1. ;;21,"21695-0252-30 ")
  1. ;;4395
  1. ;;21,"21695-0253-30 ")
  1. ;;4125
  1. ;;21,"21695-0279-30 ")
  1. ;;283
  1. ;;21,"21695-0295-60 ")
  1. ;;110
  1. ;;21,"21695-0296-15 ")
  1. ;;1514
  1. ;;21,"21695-0320-00 ")
  1. ;;2414
  1. ;;21,"21695-0320-90 ")
  1. ;;2415
  1. ;;21,"21695-0321-00 ")
  1. ;;2654
  1. ;;21,"21695-0321-30 ")
  1. ;;2655
  1. ;;21,"21695-0321-60 ")
  1. ;;2656
  1. ;;21,"21695-0321-90 ")
  1. ;;2657
  1. ;;21,"21695-0428-00 ")
  1. ;;4620
  1. ;;21,"21695-0428-28 ")
  1. ;;4621
  1. ;;21,"21695-0428-30 ")
  1. ;;4622
  1. ;;21,"21695-0441-30 ")
  1. ;;4700
  1. ;;21,"21695-0446-30 ")
  1. ;;4014
  1. ;;21,"21695-0446-90 ")
  1. ;;4015
  1. ;;21,"21695-0465-90 ")
  1. ;;2973
  1. ;;21,"21695-0577-30 ")
  1. ;;187
  1. ;;21,"21695-0578-30 ")
  1. ;;353
  1. ;;21,"21695-0596-30 ")
  1. ;;2658
  1. ;;21,"21695-0599-30 ")
  1. ;;5221
  1. ;;21,"21695-0599-60 ")
  1. ;;5222
  1. ;;21,"21695-0599-90 ")
  1. ;;5223
  1. ;;21,"21695-0600-30 ")
  1. ;;5262
  1. ;;21,"21695-0641-30 ")
  1. ;;354
  1. ;;21,"21695-0655-30 ")
  1. ;;1695
  1. ;;21,"21695-0657-60 ")
  1. ;;1001
  1. ;;21,"21695-0715-30 ")
  1. ;;1277
  1. ;;21,"21695-0715-60 ")
  1. ;;1278
  1. ;;21,"21695-0716-30 ")
  1. ;;1384
  1. ;;21,"21695-0720-60 ")
  1. ;;1164
  1. ;;21,"21695-0943-30 ")
  1. ;;4828
  1. ;;21,"23155-0246-01 ")
  1. ;;1279
  1. ;;21,"23155-0246-09 ")
  1. ;;1280
  1. ;;21,"23155-0247-01 ")
  1. ;;1385
  1. ;;21,"23155-0247-09 ")
  1. ;;1386
  1. ;;21,"23155-0248-01 ")
  1. ;;1456
  1. ;;21,"23155-0248-09 ")
  1. ;;1457
  1. ;;21,"23155-0249-01 ")
  1. ;;1586
  1. ;;21,"23155-0249-09 ")
  1. ;;1587
  1. ;;21,"23155-0250-01 ")
  1. ;;1165
  1. ;;21,"23155-0250-09 ")
  1. ;;1166
  1. ;;21,"23490-5047-00 ")
  1. ;;4016
  1. ;;21,"23490-5047-01 ")
  1. ;;4017
  1. ;;21,"23490-5047-02 ")
  1. ;;4018
  1. ;;21,"23490-5047-03 ")
  1. ;;4019
  1. ;;21,"23490-5047-04 ")
  1. ;;4020
  1. ;;21,"23490-5050-00 ")
  1. ;;4239
  1. ;;21,"23490-5050-01 ")
  1. ;;4240
  1. ;;21,"23490-5050-04 ")
  1. ;;4241
  1. ;;21,"23490-5050-05 ")
  1. ;;4242
  1. ;;21,"23490-5050-06 ")
  1. ;;4243
  1. ;;21,"23490-5050-08 ")
  1. ;;4244
  1. ;;21,"23490-5050-09 ")
  1. ;;4245
  1. ;;21,"23490-5051-01 ")
  1. ;;4396
  1. ;;21,"23490-5051-02 ")
  1. ;;4397
  1. ;;21,"23490-5051-03 ")
  1. ;;4398
  1. ;;21,"23490-5052-03 ")
  1. ;;4501
  1. ;;21,"23490-5172-03 ")
  1. ;;19
  1. ;;21,"23490-5172-06 ")
  1. ;;20
  1. ;;21,"23490-5173-03 ")
  1. ;;410
  1. ;;21,"23490-5391-01 ")
  1. ;;4590
  1. ;;21,"23490-5392-01 ")
  1. ;;4610
  1. ;;21,"23490-5393-01 ")
  1. ;;4623
  1. ;;21,"23490-5393-02 ")
  1. ;;4624
  1. ;;21,"23490-5394-01 ")
  1. ;;4672
  1. ;;21,"23490-5394-02 ")
  1. ;;4673
  1. ;;21,"23490-5394-03 ")
  1. ;;4674
  1. ;;21,"23490-5480-03 ")
  1. ;;4759
  1. ;;21,"23490-5601-03 ")
  1. ;;2324
  1. ;;21,"23490-5602-01 ")
  1. ;;2487
  1. ;;21,"23490-5602-02 ")
  1. ;;2488
  1. ;;21,"23490-5602-03 ")
  1. ;;2489
  1. ;;21,"23490-6019-01 ")
  1. ;;5053
  1. ;;21,"23490-6019-02 ")
  1. ;;5054
  1. ;;21,"23490-6019-03 ")
  1. ;;5055
  1. ;;21,"23490-6019-04 ")
  1. ;;5056
  1. ;;21,"23490-6020-01 ")
  1. ;;5133
  1. ;;21,"23490-6020-02 ")
  1. ;;5134
  1. ;;21,"23490-6020-03 ")
  1. ;;5135
  1. ;;21,"23490-6021-06 ")
  1. ;;5224
  1. ;;21,"23490-6059-01 ")
  1. ;;2974
  1. ;;21,"23490-6059-02 ")
  1. ;;2975
  1. ;;21,"23490-6059-03 ")
  1. ;;2976
  1. ;;21,"23490-6060-01 ")
  1. ;;3147
  1. ;;21,"23490-6060-02 ")
  1. ;;3148
  1. ;;21,"23490-6263-01 ")
  1. ;;3344
  1. ;;21,"23490-6263-02 ")
  1. ;;3345
  1. ;;21,"23490-6263-03 ")
  1. ;;3346
  1. ;;21,"23490-6264-01 ")
  1. ;;3605
  1. ;;21,"23490-6264-02 ")
  1. ;;3606
  1. ;;21,"23490-6264-03 ")
  1. ;;3607
  1. ;;21,"23490-6264-04 ")
  1. ;;3608
  1. ;;21,"23490-6405-01 ")
  1. ;;561
  1. ;;21,"23490-6405-02 ")
  1. ;;562
  1. ;;21,"23490-6405-09 ")
  1. ;;563
  1. ;;21,"23490-6406-01 ")
  1. ;;676
  1. ;;21,"23490-6406-02 ")
  1. ;;677
  1. ;;21,"23490-6406-06 ")
  1. ;;678
  1. ;;21,"23490-6406-09 ")
  1. ;;679
  1. ;;21,"23490-6407-01 ")
  1. ;;801
  1. ;;21,"23490-6407-02 ")
  1. ;;802
  1. ;;21,"23490-6407-03 ")
  1. ;;803
  1. ;;21,"23490-6407-04 ")
  1. ;;804
  1. ;;21,"23490-6530-06 ")
  1. ;;1588
  1. ;;21,"23490-6577-01 ")
  1. ;;478
  1. ;;21,"23490-6579-01 ")
  1. ;;505
  1. ;;21,"23490-6579-02 ")
  1. ;;506
  1. ;;21,"23490-6579-03 ")
  1. ;;507
  1. ;;21,"23490-6947-01 ")
  1. ;;2838
  1. ;;21,"23490-6947-02 ")
  1. ;;2839
  1. ;;21,"23490-6948-01 ")
  1. ;;3225
  1. ;;21,"23490-6948-02 ")
  1. ;;3226
  1. ;;21,"23490-6948-03 ")
  1. ;;3227
  1. ;;21,"23490-6989-01 ")
  1. ;;3758
  1. ;;21,"23490-6989-02 ")
  1. ;;3759
  1. ;;21,"23490-6990-03 ")
  1. ;;3851
  1. ;;21,"23490-7050-01 ")
  1. ;;3498
  1. ;;21,"23490-7050-02 ")
  1. ;;3499
  1. ;;21,"23490-7225-01 ")
  1. ;;1818
  1. ;;21,"23490-7225-02 ")
  1. ;;1819
  1. ;;21,"23490-7225-03 ")
  1. ;;1820
  1. ;;21,"23490-7225-04 ")
  1. ;;1821
  1. ;;21,"23490-7225-05 ")
  1. ;;1822
  1. ;;21,"23490-7225-09 ")
  1. ;;1823
  1. ;;21,"23490-7226-03 ")
  1. ;;1989
  1. ;;21,"23490-7226-05 ")
  1. ;;1990
  1. ;;21,"23490-7226-06 ")
  1. ;;1991
  1. ;;21,"23490-7226-09 ")
  1. ;;1992
  1. ;;21,"23490-7293-03 ")
  1. ;;3936
  1. ;;21,"23490-7327-03 ")
  1. ;;2705
  1. ;;21,"23490-7558-01 ")
  1. ;;1696
  1. ;;21,"23490-7558-02 ")
  1. ;;1697
  1. ;;21,"23490-7558-03 ")
  1. ;;1698
  1. ;;21,"23490-7689-03 ")
  1. ;;188
  1. ;;21,"23490-7689-06 ")
  1. ;;189
  1. ;;21,"23490-9210-00 ")
  1. ;;3818
  1. ;;21,"23490-9210-03 ")
  1. ;;3819
  1. ;;21,"23490-9220-00 ")
  1. ;;3760
  1. ;;21,"23490-9220-03 ")
  1. ;;3761
  1. ;;21,"23490-9230-06 ")
  1. ;;190
  1. ;;21,"23490-9231-03 ")
  1. ;;111
  1. ;;21,"23490-9232-03 ")
  1. ;;411
  1. ;;21,"23490-9240-06 ")
  1. ;;2490
  1. ;;21,"24236-0004-02 ")
  1. ;;4126
  1. ;;21,"24236-0004-24 ")
  1. ;;4127
  1. ;;21,"24236-0005-02 ")
  1. ;;4192
  1. ;;21,"24236-0005-24 ")
  1. ;;4193
  1. ;;21,"24236-0006-02 ")
  1. ;;4246
  1. ;;21,"24236-0006-33 ")
  1. ;;4247
  1. ;;21,"24236-0727-02 ")
  1. ;;1993
  1. ;;21,"24236-0727-30 ")
  1. ;;1994
  1. ;;21,"24236-0933-02 ")
  1. ;;4829
  1. ;;21,"24236-0933-24 ")
  1. ;;4830
  1. ;;21,"24658-0140-01 ")
  1. ;;1699
  1. ;;21,"24658-0140-10 ")
  1. ;;1700
  1. ;;21,"24658-0140-30 ")
  1. ;;1701
  1. ;;21,"24658-0141-01 ")
  1. ;;1824
  1. ;;21,"24658-0141-10 ")
  1. ;;1825
  1. ;;21,"24658-0141-30 ")
  1. ;;1826
  1. ;;21,"24658-0142-01 ")
  1. ;;1995
  1. ;;21,"24658-0142-10 ")
  1. ;;1996
  1. ;;21,"24658-0142-30 ")
  1. ;;1997
  1. ;;21,"24987-0447-10 ")
  1. ;;465
  1. ;;21,"27437-0298-06 ")
  1. ;;1083
  1. ;;21,"30698-0032-01 ")
  1. ;;460
  1. ;;21,"31722-0206-01 ")
  1. ;;1702
  1. ;;21,"31722-0206-05 ")
  1. ;;1703
  1. ;;21,"31722-0207-01 ")
  1. ;;1827
  1. ;;21,"31722-0207-05 ")
  1. ;;1828
  1. ;;21,"31722-0207-10 ")
  1. ;;1829
  1. ;;21,"31722-0208-01 ")
  1. ;;1998
  1. ;;21,"31722-0208-05 ")
  1. ;;1999
  1. ;;21,"31722-0208-30 ")
  1. ;;2000
  1. ;;21,"31722-0212-05 ")
  1. ;;3500
  1. ;;21,"31722-0212-30 ")
  1. ;;3501
  1. ;;21,"31722-0212-90 ")
  1. ;;3502
  1. ;;21,"31722-0213-05 ")
  1. ;;3609
  1. ;;21,"31722-0213-30 ")
  1. ;;3610
  1. ;;21,"31722-0213-90 ")
  1. ;;3611
  1. ;;21,"31722-0214-05 ")
  1. ;;3347
  1. ;;21,"31722-0214-30 ")
  1. ;;3348
  1. ;;21,"31722-0214-90 ")
  1. ;;3349
  1. ;;21,"31722-0249-90 ")
  1. ;;2264
  1. ;;21,"31722-0250-90 ")
  1. ;;2134
  1. ;;21,"31722-0251-90 ")
  1. ;;2211