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

BGP47Y6.m

Go to the documentation of this file.
BGP47Y6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"42254-0409-90 ")
 ;;4798
 ;;21,"42254-0435-30 ")
 ;;5037
 ;;21,"42254-0435-90 ")
 ;;5038
 ;;21,"42254-0436-30 ")
 ;;5092
 ;;21,"42254-0436-90 ")
 ;;5093
 ;;21,"42254-0437-30 ")
 ;;5190
 ;;21,"42254-0437-90 ")
 ;;5191
 ;;21,"42291-0160-90 ")
 ;;37
 ;;21,"42291-0161-90 ")
 ;;55
 ;;21,"42291-0162-18 ")
 ;;160
 ;;21,"42291-0162-50 ")
 ;;161
 ;;21,"42291-0162-90 ")
 ;;162
 ;;21,"42291-0163-18 ")
 ;;290
 ;;21,"42291-0163-50 ")
 ;;291
 ;;21,"42291-0163-90 ")
 ;;292
 ;;21,"42291-0269-01 ")
 ;;4153
 ;;21,"42291-0340-90 ")
 ;;4681
 ;;21,"42291-0341-90 ")
 ;;4714
 ;;21,"42291-0342-90 ")
 ;;4680
 ;;21,"42291-0343-90 ")
 ;;4715
 ;;21,"42291-0390-01 ")
 ;;4260
 ;;21,"42291-0390-10 ")
 ;;4261
 ;;21,"42291-0391-01 ")
 ;;4315
 ;;21,"42291-0391-10 ")
 ;;4316
 ;;21,"42291-0392-01 ")
 ;;4478
 ;;21,"42291-0392-10 ")
 ;;4479
 ;;21,"42291-0701-90 ")
 ;;2587
 ;;21,"42291-0702-90 ")
 ;;2619
 ;;21,"42291-0703-90 ")
 ;;2653
 ;;21,"42291-0704-90 ")
 ;;2694
 ;;21,"42291-0705-90 ")
 ;;4549
 ;;21,"42291-0706-90 ")
 ;;4565
 ;;21,"42291-0707-90 ")
 ;;4583
 ;;21,"42291-0837-01 ")
 ;;2973
 ;;21,"42291-0838-01 ")
 ;;2991
 ;;21,"42291-0839-01 ")
 ;;3018
 ;;21,"42549-0700-90 ")
 ;;3397
 ;;21,"42549-0705-90 ")
 ;;1678
 ;;21,"42549-0707-30 ")
 ;;2923
 ;;21,"42549-0707-90 ")
 ;;2924
 ;;21,"42549-0735-90 ")
 ;;4758
 ;;21,"42571-0110-10 ")
 ;;3308
 ;;21,"42571-0110-90 ")
 ;;3309
 ;;21,"42571-0111-10 ")
 ;;3426
 ;;21,"42571-0111-90 ")
 ;;3427
 ;;21,"42571-0112-10 ")
 ;;3514
 ;;21,"42571-0112-90 ")
 ;;3515
 ;;21,"43063-0007-01 ")
 ;;2020
 ;;21,"43063-0007-14 ")
 ;;2021
 ;;21,"43063-0007-30 ")
 ;;2022
 ;;21,"43063-0007-60 ")
 ;;2023
 ;;21,"43063-0007-90 ")
 ;;2024
 ;;21,"43063-0007-98 ")
 ;;2025
 ;;21,"43063-0032-01 ")
 ;;2518
 ;;21,"43063-0065-30 ")
 ;;4376
 ;;21,"43063-0065-90 ")
 ;;4377
 ;;21,"43063-0118-30 ")
 ;;4218
 ;;21,"43063-0118-90 ")
 ;;4219
 ;;21,"43063-0130-90 ")
 ;;4439
 ;;21,"43063-0131-30 ")
 ;;194
 ;;21,"43063-0132-30 ")
 ;;244
 ;;21,"43063-0138-90 ")
 ;;1756
 ;;21,"43063-0146-30 ")
 ;;385
 ;;21,"43063-0171-14 ")
 ;;3729
 ;;21,"43063-0232-30 ")
 ;;3910
 ;;21,"43063-0232-60 ")
 ;;3911
 ;;21,"43063-0233-60 ")
 ;;3785
 ;;21,"43063-0234-60 ")
 ;;3846
 ;;21,"43063-0288-30 ")
 ;;88
 ;;21,"43063-0288-90 ")
 ;;89
 ;;21,"43063-0303-30 ")
 ;;2909
 ;;21,"43063-0347-30 ")
 ;;3461
 ;;21,"43063-0402-60 ")
 ;;3819
 ;;21,"43063-0403-30 ")
 ;;207
 ;;21,"43063-0414-01 ")
 ;;1838
 ;;21,"43063-0414-90 ")
 ;;1839
 ;;21,"43063-0458-30 ")
 ;;4393
 ;;21,"43063-0458-90 ")
 ;;4394
 ;;21,"43353-0045-80 ")
 ;;1064
 ;;21,"43353-0313-15 ")
 ;;2078
 ;;21,"43353-0313-60 ")
 ;;2079
 ;;21,"43353-0318-60 ")
 ;;4470
 ;;21,"43353-0333-30 ")
 ;;1605
 ;;21,"43353-0333-45 ")
 ;;1606
 ;;21,"43353-0350-30 ")
 ;;2488
 ;;21,"43353-0350-45 ")
 ;;2489
 ;;21,"43353-0350-60 ")
 ;;2490
 ;;21,"43353-0350-80 ")
 ;;2491
 ;;21,"43353-0365-15 ")
 ;;1607
 ;;21,"43353-0365-30 ")
 ;;1608
 ;;21,"43353-0365-45 ")
 ;;1609
 ;;21,"43353-0365-60 ")
 ;;1610
 ;;21,"43353-0371-15 ")
 ;;2004
 ;;21,"43353-0371-30 ")
 ;;2005
 ;;21,"43353-0371-45 ")
 ;;2056
 ;;21,"43353-0371-60 ")
 ;;2057
 ;;21,"43353-0371-80 ")
 ;;2006
 ;;21,"43353-0411-60 ")
 ;;2475
 ;;21,"43353-0459-45 ")
 ;;3437
 ;;21,"43353-0488-45 ")
 ;;1673
 ;;21,"43353-0488-60 ")
 ;;1674
 ;;21,"43353-0516-45 ")
 ;;2416
 ;;21,"43353-0521-60 ")
 ;;1178
 ;;21,"43353-0521-80 ")
 ;;1179
 ;;21,"43353-0596-30 ")
 ;;4255
 ;;21,"43353-0596-60 ")
 ;;4256
 ;;21,"43353-0626-60 ")
 ;;4502
 ;;21,"43353-0643-60 ")
 ;;1461
 ;;21,"43353-0655-60 ")
 ;;4503
 ;;21,"43353-0662-80 ")
 ;;2448
 ;;21,"43353-0667-60 ")
 ;;3272
 ;;21,"43353-0668-45 ")
 ;;3459
 ;;21,"43353-0668-60 ")
 ;;3460
 ;;21,"43353-0671-30 ")
 ;;3353
 ;;21,"43353-0671-45 ")
 ;;3354
 ;;21,"43353-0676-60 ")
 ;;4462
 ;;21,"43353-0712-60 ")
 ;;4247
 ;;21,"43353-0722-60 ")
 ;;4461
 ;;21,"43353-0726-60 ")
 ;;4389
 ;;21,"43353-0726-80 ")
 ;;4390
 ;;21,"43353-0728-60 ")
 ;;3268
 ;;21,"43353-0729-30 ")
 ;;3350
 ;;21,"43353-0729-45 ")
 ;;3351
 ;;21,"43353-0729-60 ")
 ;;3352
 ;;21,"43353-0730-30 ")
 ;;4243
 ;;21,"43353-0730-60 ")
 ;;4244
 ;;21,"43353-0800-60 ")
 ;;4441
 ;;21,"43353-0865-60 ")
 ;;4374
 ;;21,"43353-0865-80 ")
 ;;4375
 ;;21,"43353-0866-30 ")
 ;;4220
 ;;21,"43353-0866-60 ")
 ;;4221
 ;;21,"43353-0867-60 ")
 ;;4440
 ;;21,"43386-0710-05 ")
 ;;4543
 ;;21,"43386-0710-09 ")
 ;;4544
 ;;21,"43386-0711-05 ")
 ;;4561
 ;;21,"43386-0711-09 ")
 ;;4562
 ;;21,"43386-0712-05 ")
 ;;4579
 ;;21,"43386-0712-09 ")
 ;;4580
 ;;21,"43547-0277-03 ")
 ;;3086
 ;;21,"43547-0277-09 ")
 ;;3087
 ;;21,"43547-0277-50 ")
 ;;3088
 ;;21,"43547-0278-03 ")
 ;;3149
 ;;21,"43547-0278-09 ")
 ;;3150
 ;;21,"43547-0278-50 ")
 ;;3151
 ;;21,"43547-0279-03 ")
 ;;3213
 ;;21,"43547-0279-09 ")
 ;;3214
 ;;21,"43547-0279-50 ")
 ;;3215
 ;;21,"43683-0147-30 ")
 ;;1877
 ;;21,"43683-0148-30 ")
 ;;4457
 ;;21,"47463-0020-30 ")
 ;;3766
 ;;21,"47463-0021-30 ")
 ;;3920
 ;;21,"47463-0022-30 ")
 ;;3816
 ;;21,"47463-0023-30 ")
 ;;4617
 ;;21,"47463-0024-30 ")
 ;;4606
 ;;21,"47463-0039-30 ")
 ;;156
 ;;21,"47463-0040-30 ")
 ;;299
 ;;21,"47463-0043-30 ")
 ;;58
 ;;21,"47463-0220-30 ")
 ;;710
 ;;21,"47463-0221-30 ")
 ;;1037
 ;;21,"47463-0222-30 ")
 ;;1172
 ;;21,"47463-0223-30 ")
 ;;872
 ;;21,"47463-0250-30 ")
 ;;3658
 ;;21,"47463-0251-30 ")
 ;;3709
 ;;21,"47463-0252-30 ")
 ;;5124
 ;;21,"47463-0253-30 ")
 ;;5182
 ;;21,"47463-0375-30 ")
 ;;3130
 ;;21,"47463-0376-30 ")
 ;;3196
 ;;21,"47463-0387-30 ")
 ;;2101
 ;;21,"47463-0387-60 ")
 ;;2102
 ;;21,"47463-0387-90 ")
 ;;2103
 ;;21,"47463-0388-30 ")
 ;;2413
 ;;21,"47463-0388-60 ")
 ;;2414
 ;;21,"47463-0388-90 ")
 ;;2415
 ;;21,"47463-0389-30 ")
 ;;1937
 ;;21,"47463-0390-30 ")
 ;;4292
 ;;21,"47463-0390-60 ")
 ;;4293
 ;;21,"47463-0409-30 ")
 ;;4268
 ;;21,"47463-0410-30 ")
 ;;4468
 ;;21,"47463-0410-90 ")
 ;;4469
 ;;21,"47463-0429-30 ")
 ;;1611
 ;;21,"47463-0618-30 ")
 ;;3586
 ;;21,"47463-0619-30 ")
 ;;3597
 ;;21,"47463-0620-30 ")
 ;;3604
 ;;21,"47463-4402-30 ")
 ;;2007
 ;;21,"47463-4402-60 ")
 ;;2008
 ;;21,"47463-4402-90 ")
 ;;2009
 ;;21,"47463-4424-30 ")
 ;;1747
 ;;21,"49158-0500-01 ")
 ;;680
 ;;21,"49158-0500-10 ")
 ;;681
 ;;21,"49158-0501-01 ")
 ;;782
 ;;21,"49158-0501-10 ")
 ;;783
 ;;21,"49158-0502-01 ")
 ;;946
 ;;21,"49158-0502-10 ")
 ;;947
 ;;21,"49158-0503-01 ")
 ;;1107
 ;;21,"49158-0503-10 ")
 ;;1108
 ;;21,"49848-0008-90 ")
 ;;3263
 ;;21,"49884-0556-01 ")
 ;;1486
 ;;21,"49884-0556-10 ")
 ;;1487
 ;;21,"49884-0557-01 ")
 ;;1681
 ;;21,"49884-0557-10 ")
 ;;1682
 ;;21,"49884-0558-01 ")
 ;;1836
 ;;21,"49884-0558-10 ")
 ;;1837
 ;;21,"49884-0559-01 ")
 ;;2194
 ;;21,"49884-0559-10 ")
 ;;2195
 ;;21,"49884-0560-01 ")
 ;;2446
 ;;21,"49884-0560-10 ")
 ;;2447
 ;;21,"49884-0591-01 ")
 ;;745
 ;;21,"49884-0591-10 ")
 ;;746
 ;;21,"49884-0592-01 ")
 ;;897
 ;;21,"49884-0592-10 ")
 ;;898
 ;;21,"49884-0593-01 ")
 ;;1043
 ;;21,"49884-0593-10 ")
 ;;1044
 ;;21,"49884-0594-01 ")
 ;;1197
 ;;21,"49884-0594-10 ")
 ;;1198
 ;;21,"49884-0619-01 ")
 ;;357
 ;;21,"49884-0619-10 ")
 ;;358
 ;;21,"49884-0620-01 ")
 ;;464
 ;;21,"49884-0620-10 ")
 ;;465
 ;;21,"49884-0621-01 ")
 ;;561
 ;;21,"49884-0621-10 ")
 ;;562
 ;;21,"49884-0622-01 ")
 ;;649
 ;;21,"49884-0635-01 ")
 ;;2324
 ;;21,"49884-0635-10 ")
 ;;2325
 ;;21,"49884-0658-09 ")
 ;;3026
 ;;21,"49884-0659-09 ")
 ;;3033
 ;;21,"49884-0660-09 ")
 ;;3049
 ;;21,"49884-0661-09 ")
 ;;3060
 ;;21,"49884-0662-09 ")
 ;;4631
 ;;21,"49884-0663-09 ")
 ;;4647
 ;;21,"49884-0664-09 ")
 ;;4652
 ;;21,"49884-0686-01 ")
 ;;4136
 ;;21,"49884-0687-01 ")
 ;;4174
 ;;21,"49884-0793-01 ")
 ;;332
 ;;21,"49884-0793-74 ")
 ;;333
 ;;21,"49884-0794-01 ")
 ;;413
 ;;21,"49884-0794-10 ")
 ;;414
 ;;21,"49884-0794-74 ")
 ;;415
 ;;21,"49884-0795-01 ")
 ;;539
 ;;21,"49884-0795-10 ")
 ;;540
 ;;21,"49884-0795-74 ")
 ;;541
 ;;21,"49884-0796-01 ")
 ;;645
 ;;21,"49884-0815-01 ")
 ;;4094
 ;;21,"49884-0816-01 ")
 ;;4101
 ;;21,"49884-0817-01 ")
 ;;4108
 ;;21,"49884-0818-01 ")
 ;;4115
 ;;21,"49884-0861-01 ")
 ;;4004
 ;;21,"49884-0862-01 ")
 ;;4023
 ;;21,"49884-0863-01 ")
 ;;4047
 ;;21,"49884-0864-01 ")
 ;;4076
 ;;21,"49884-0929-01 ")
 ;;3730
 ;;21,"49884-0929-05 ")
 ;;3731
 ;;21,"49884-0930-01 ")
 ;;3786
 ;;21,"49884-0930-05 ")
 ;;3787
 ;;21,"49884-0931-01 ")
 ;;3850
 ;;21,"49884-0931-05 ")
 ;;3851
 ;;21,"49884-0932-01 ")
 ;;3914
 ;;21,"49884-0932-05 ")
 ;;3915
 ;;21,"49884-0952-01 ")
 ;;3884
 ;;21,"49884-0952-05 ")
 ;;3885
 ;;21,"49884-0953-01 ")
 ;;3960
 ;;21,"49884-0953-05 ")
 ;;3961
 ;;21,"49884-0990-09 ")
 ;;2673
 ;;21,"49884-0991-09 ")
 ;;2710
 ;;21,"49884-0992-09 ")
 ;;2600
 ;;21,"49884-0993-09 ")
 ;;2635
 ;;21,"49999-0105-00 ")
 ;;435
 ;;21,"49999-0105-10 ")
 ;;436
 ;;21,"49999-0105-30 ")
 ;;437
 ;;21,"49999-0105-60 ")
 ;;438
 ;;21,"49999-0182-10 ")
 ;;1752
 ;;21,"49999-0182-30 ")
 ;;1753
 ;;21,"49999-0182-60 ")
 ;;1754
 ;;21,"49999-0182-90 ")
 ;;1755
 ;;21,"49999-0183-10 ")
 ;;2170
 ;;21,"49999-0183-30 ")
 ;;2171
 ;;21,"49999-0183-60 ")
 ;;2172
 ;;21,"49999-0183-90 ")
 ;;2173
 ;;21,"49999-0239-00 ")
 ;;852
 ;;21,"49999-0239-30 ")
 ;;853
 ;;21,"49999-0239-60 ")
 ;;854
 ;;21,"49999-0240-00 ")
 ;;996
 ;;21,"49999-0240-30 ")
 ;;997
 ;;21,"49999-0287-30 ")
 ;;227
 ;;21,"49999-0294-30 ")
 ;;2994
 ;;21,"49999-0295-00 ")
 ;;1567
 ;;21,"49999-0295-10 ")
 ;;1568
 ;;21,"49999-0295-30 ")
 ;;1569
 ;;21,"49999-0295-90 ")
 ;;1570
 ;;21,"49999-0305-30 ")
 ;;3044
 ;;21,"49999-0321-00 ")
 ;;4499
 ;;21,"49999-0321-30 ")
 ;;4500
 ;;21,"49999-0321-60 ")
 ;;4501
 ;;21,"49999-0345-00 ")
 ;;1111
 ;;21,"49999-0345-30 ")
 ;;1112
 ;;21,"49999-0469-10 ")
 ;;2422
 ;;21,"49999-0469-30 ")
 ;;2423
 ;;21,"49999-0469-60 ")
 ;;2424
 ;;21,"49999-0469-90 ")
 ;;2425
 ;;21,"49999-0511-30 ")
 ;;542
 ;;21,"49999-0511-60 ")
 ;;543
 ;;21,"49999-0543-00 ")
 ;;3619
 ;;21,"49999-0543-30 ")
 ;;3620
 ;;21,"49999-0759-30 ")
 ;;155
 ;;21,"49999-0761-00 ")
 ;;4263
 ;;21,"49999-0761-30 ")
 ;;4264
 ;;21,"49999-0815-30 ")
 ;;3564
 ;;21,"49999-0815-90 ")
 ;;3565
 ;;21,"49999-0823-00 ")
 ;;4169
 ;;21,"49999-0823-30 ")
 ;;4170
 ;;21,"49999-0823-60 ")
 ;;4171
 ;;21,"49999-0823-90 ")
 ;;4172
 ;;21,"49999-0870-00 ")
 ;;2326
 ;;21,"49999-0870-30 ")
 ;;2327
 ;;21,"49999-0870-60 ")
 ;;2328
 ;;21,"49999-0870-90 ")
 ;;2329
 ;;21,"49999-0871-30 ")
 ;;2886
 ;;21,"49999-0871-90 ")
 ;;2887
 ;;21,"49999-0877-00 ")
 ;;3678
 ;;21,"49999-0877-30 ")
 ;;3679
 ;;21,"49999-0877-90 ")
 ;;3680
 ;;21,"49999-0878-00 ")
 ;;3634
 ;;21,"49999-0878-30 ")
 ;;3635
 ;;21,"49999-0878-90 ")
 ;;3636
 ;;21,"49999-0879-00 ")
 ;;5110
 ;;21,"49999-0879-30 ")
 ;;5111
 ;;21,"49999-0880-00 ")
 ;;5014
 ;;21,"49999-0880-30 ")
 ;;5015
 ;;21,"49999-0880-90 ")
 ;;5016
 ;;21,"49999-0924-00 ")
 ;;4294
 ;;21,"49999-0924-10 ")
 ;;4295
 ;;21,"49999-0924-30 ")
 ;;4296
 ;;21,"49999-0924-60 ")
 ;;4297
 ;;21,"49999-0924-90 ")
 ;;4298
 ;;21,"49999-0934-30 ")
 ;;2804
 ;;21,"49999-0940-30 ")
 ;;3333
 ;;21,"49999-0940-90 ")
 ;;3334
 ;;21,"49999-0943-00 ")
 ;;5045
 ;;21,"49999-0943-90 ")
 ;;5046
 ;;21,"49999-0946-30 ")
 ;;3945
 ;;21,"49999-0947-30 ")
 ;;3799
 ;;21,"49999-0948-30 ")
 ;;3865
 ;;21,"49999-0988-30 ")
 ;;3057
 ;;21,"49999-0991-90 ")
 ;;3438
 ;;21,"50111-0891-01 ")
 ;;708
 ;;21,"50111-0891-03 ")
 ;;709
 ;;21,"50111-0892-01 ")
 ;;868
 ;;21,"50111-0892-03 ")
 ;;869
 ;;21,"50111-0893-01 ")
 ;;1035
 ;;21,"50111-0893-03 ")
 ;;1036
 ;;21,"50111-0894-01 ")
 ;;1173
 ;;21,"50111-0894-03 ")
 ;;1174
 ;;21,"50436-5000-01 ")
 ;;2174
 ;;21,"51079-0145-01 ")
 ;;59
 ;;21,"51079-0145-20 ")
 ;;60
 ;;21,"51079-0146-01 ")
 ;;153
 ;;21,"51079-0146-20 ")
 ;;154
 ;;21,"51079-0192-03 ")
 ;;5034
 ;;21,"51079-0193-03 ")
 ;;5094
 ;;21,"51079-0194-03 ")
 ;;5132
 ;;21,"51079-0256-40 ")
 ;;1450
 ;;21,"51079-0261-40 ")
 ;;2290
 ;;21,"51079-0697-40 ")
 ;;4246
 ;;21,"51079-0698-40 ")
 ;;4382
 ;;21,"51079-0699-40 ")
 ;;4459
 ;;21,"51079-0750-01 ")
 ;;3266
 ;;21,"51079-0750-20 ")
 ;;3267
 ;;21,"51079-0751-01 ")
 ;;3348
 ;;21,"51079-0751-20 ")
 ;;3349
 ;;21,"51079-0752-01 ")
 ;;3454
 ;;21,"51079-0752-20 ")
 ;;3455
 ;;21,"51079-0757-01 ")
 ;;4783
 ;;21,"51079-0757-20 ")
 ;;4784
 ;;21,"51079-0863-01 ")
 ;;390
 ;;21,"51079-0863-20 ")
 ;;391
 ;;21,"51079-0864-01 ")
 ;;531
 ;;21,"51079-0864-20 ")
 ;;532
 ;;21,"51079-0950-01 ")
 ;;678
 ;;21,"51079-0950-20 ")
 ;;679
 ;;21,"51079-0951-01 ")
 ;;786
 ;;21,"51079-0951-20 ")
 ;;787
 ;;21,"51079-0952-01 ")
 ;;944
 ;;21,"51079-0952-20 ")
 ;;945
 ;;21,"51079-0953-01 ")
 ;;1109
 ;;21,"51079-0953-20 ")
 ;;1110
 ;;21,"51079-0977-20 ")
 ;;4147
 ;;21,"51079-0981-01 ")
 ;;1560
 ;;21,"51079-0981-20 ")
 ;;1561
 ;;21,"51079-0981-30 ")
 ;;1562