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

BGP50F5.m

Go to the documentation of this file.
BGP50F5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 05, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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-0255-90 ")
 ;;206
 ;;21,"42254-0328-90 ")
 ;;55
 ;;21,"42254-0335-78 ")
 ;;352
 ;;21,"42254-0353-90 ")
 ;;411
 ;;21,"42254-0385-30 ")
 ;;4028
 ;;21,"42254-0385-90 ")
 ;;4029
 ;;21,"42254-0409-30 ")
 ;;3937
 ;;21,"42254-0409-90 ")
 ;;3938
 ;;21,"42254-0435-30 ")
 ;;4193
 ;;21,"42254-0435-90 ")
 ;;4194
 ;;21,"42254-0436-30 ")
 ;;4250
 ;;21,"42254-0436-90 ")
 ;;4251
 ;;21,"42254-0437-30 ")
 ;;4367
 ;;21,"42254-0437-90 ")
 ;;4368
 ;;21,"42291-0160-90 ")
 ;;10
 ;;21,"42291-0161-90 ")
 ;;58
 ;;21,"42291-0162-18 ")
 ;;144
 ;;21,"42291-0162-50 ")
 ;;145
 ;;21,"42291-0162-90 ")
 ;;146
 ;;21,"42291-0163-18 ")
 ;;207
 ;;21,"42291-0163-50 ")
 ;;208
 ;;21,"42291-0163-90 ")
 ;;209
 ;;21,"42291-0269-01 ")
 ;;3387
 ;;21,"42291-0340-90 ")
 ;;3845
 ;;21,"42291-0341-90 ")
 ;;3877
 ;;21,"42291-0342-90 ")
 ;;3844
 ;;21,"42291-0343-90 ")
 ;;3878
 ;;21,"42291-0390-01 ")
 ;;3478
 ;;21,"42291-0390-10 ")
 ;;3479
 ;;21,"42291-0390-90 ")
 ;;3480
 ;;21,"42291-0391-01 ")
 ;;3556
 ;;21,"42291-0391-10 ")
 ;;3557
 ;;21,"42291-0391-90 ")
 ;;3558
 ;;21,"42291-0392-01 ")
 ;;3666
 ;;21,"42291-0392-10 ")
 ;;3667
 ;;21,"42291-0392-90 ")
 ;;3668
 ;;21,"42291-0701-90 ")
 ;;2019
 ;;21,"42291-0702-90 ")
 ;;2052
 ;;21,"42291-0703-90 ")
 ;;2076
 ;;21,"42291-0704-90 ")
 ;;2115
 ;;21,"42291-0705-90 ")
 ;;3720
 ;;21,"42291-0706-90 ")
 ;;3732
 ;;21,"42291-0707-90 ")
 ;;3748
 ;;21,"42291-0837-01 ")
 ;;2311
 ;;21,"42291-0838-01 ")
 ;;2331
 ;;21,"42291-0839-01 ")
 ;;2349
 ;;21,"42549-0700-90 ")
 ;;2672
 ;;21,"42549-0705-90 ")
 ;;1233
 ;;21,"42549-0707-30 ")
 ;;2298
 ;;21,"42549-0707-90 ")
 ;;2299
 ;;21,"42549-0735-90 ")
 ;;3936
 ;;21,"42571-0110-10 ")
 ;;2599
 ;;21,"42571-0110-90 ")
 ;;2600
 ;;21,"42571-0111-10 ")
 ;;2670
 ;;21,"42571-0111-90 ")
 ;;2671
 ;;21,"42571-0112-10 ")
 ;;2777
 ;;21,"42571-0112-90 ")
 ;;2778
 ;;21,"43063-0007-01 ")
 ;;1599
 ;;21,"43063-0007-14 ")
 ;;1600
 ;;21,"43063-0007-30 ")
 ;;1601
 ;;21,"43063-0007-60 ")
 ;;1602
 ;;21,"43063-0007-90 ")
 ;;1603
 ;;21,"43063-0007-98 ")
 ;;1604
 ;;21,"43063-0032-01 ")
 ;;1955
 ;;21,"43063-0065-30 ")
 ;;3559
 ;;21,"43063-0065-90 ")
 ;;3560
 ;;21,"43063-0118-30 ")
 ;;3476
 ;;21,"43063-0118-90 ")
 ;;3477
 ;;21,"43063-0130-90 ")
 ;;3665
 ;;21,"43063-0131-30 ")
 ;;149
 ;;21,"43063-0132-30 ")
 ;;205
 ;;21,"43063-0138-90 ")
 ;;1469
 ;;21,"43063-0146-30 ")
 ;;280
 ;;21,"43063-0171-14 ")
 ;;3026
 ;;21,"43063-0232-30 ")
 ;;3199
 ;;21,"43063-0232-60 ")
 ;;3200
 ;;21,"43063-0233-60 ")
 ;;3070
 ;;21,"43063-0234-60 ")
 ;;3121
 ;;21,"43063-0288-30 ")
 ;;56
 ;;21,"43063-0288-90 ")
 ;;57
 ;;21,"43063-0303-30 ")
 ;;2300
 ;;21,"43063-0347-30 ")
 ;;2779
 ;;21,"43063-0402-60 ")
 ;;3122
 ;;21,"43063-0403-30 ")
 ;;148
 ;;21,"43063-0414-01 ")
 ;;1467
 ;;21,"43063-0414-90 ")
 ;;1468
 ;;21,"43063-0458-30 ")
 ;;3561
 ;;21,"43063-0458-90 ")
 ;;3562
 ;;21,"43353-0045-80 ")
 ;;667
 ;;21,"43353-0293-30 ")
 ;;3663
 ;;21,"43353-0293-60 ")
 ;;3664
 ;;21,"43353-0313-15 ")
 ;;1590
 ;;21,"43353-0313-60 ")
 ;;1591
 ;;21,"43353-0318-60 ")
 ;;3683
 ;;21,"43353-0333-30 ")
 ;;1231
 ;;21,"43353-0333-45 ")
 ;;1232
 ;;21,"43353-0350-30 ")
 ;;1956
 ;;21,"43353-0350-45 ")
 ;;1957
 ;;21,"43353-0350-60 ")
 ;;1958
 ;;21,"43353-0350-80 ")
 ;;1959
 ;;21,"43353-0365-15 ")
 ;;1223
 ;;21,"43353-0365-30 ")
 ;;1224
 ;;21,"43353-0365-45 ")
 ;;1225
 ;;21,"43353-0365-60 ")
 ;;1226
 ;;21,"43353-0371-45 ")
 ;;1588
 ;;21,"43353-0371-60 ")
 ;;1589
 ;;21,"43353-0411-60 ")
 ;;1967
 ;;21,"43353-0459-45 ")
 ;;2760
 ;;21,"43353-0488-45 ")
 ;;1221
 ;;21,"43353-0488-60 ")
 ;;1222
 ;;21,"43353-0516-45 ")
 ;;1966
 ;;21,"43353-0521-60 ")
 ;;763
 ;;21,"43353-0521-80 ")
 ;;764
 ;;21,"43353-0596-30 ")
 ;;3492
 ;;21,"43353-0596-60 ")
 ;;3493
 ;;21,"43353-0626-60 ")
 ;;3682
 ;;21,"43353-0643-60 ")
 ;;1018
 ;;21,"43353-0655-60 ")
 ;;3681
 ;;21,"43353-0662-80 ")
 ;;1968
 ;;21,"43353-0667-60 ")
 ;;2601
 ;;21,"43353-0668-45 ")
 ;;2761
 ;;21,"43353-0668-60 ")
 ;;2762
 ;;21,"43353-0671-30 ")
 ;;2668
 ;;21,"43353-0671-45 ")
 ;;2669
 ;;21,"43353-0676-60 ")
 ;;3680
 ;;21,"43353-0712-60 ")
 ;;3491
 ;;21,"43353-0722-60 ")
 ;;3678
 ;;21,"43353-0726-60 ")
 ;;3547
 ;;21,"43353-0726-80 ")
 ;;3548
 ;;21,"43353-0728-60 ")
 ;;2602
 ;;21,"43353-0729-30 ")
 ;;2665
 ;;21,"43353-0729-45 ")
 ;;2666
 ;;21,"43353-0729-60 ")
 ;;2667
 ;;21,"43353-0730-30 ")
 ;;3489
 ;;21,"43353-0730-60 ")
 ;;3490
 ;;21,"43353-0800-60 ")
 ;;3679
 ;;21,"43353-0865-60 ")
 ;;3549
 ;;21,"43353-0865-80 ")
 ;;3550
 ;;21,"43353-0866-30 ")
 ;;3487
 ;;21,"43353-0866-60 ")
 ;;3488
 ;;21,"43353-0867-60 ")
 ;;3677
 ;;21,"43386-0710-05 ")
 ;;3721
 ;;21,"43386-0710-09 ")
 ;;3722
 ;;21,"43386-0711-05 ")
 ;;3730
 ;;21,"43386-0711-09 ")
 ;;3731
 ;;21,"43386-0712-05 ")
 ;;3749
 ;;21,"43386-0712-09 ")
 ;;3750
 ;;21,"43547-0277-03 ")
 ;;2410
 ;;21,"43547-0277-09 ")
 ;;2411
 ;;21,"43547-0277-50 ")
 ;;2412
 ;;21,"43547-0278-03 ")
 ;;2470
 ;;21,"43547-0278-09 ")
 ;;2471
 ;;21,"43547-0278-50 ")
 ;;2472
 ;;21,"43547-0279-03 ")
 ;;2531
 ;;21,"43547-0279-09 ")
 ;;2532
 ;;21,"43547-0279-50 ")
 ;;2533
 ;;21,"43547-0330-03 ")
 ;;3846
 ;;21,"43547-0330-09 ")
 ;;3847
 ;;21,"43547-0331-03 ")
 ;;3879
 ;;21,"43547-0331-09 ")
 ;;3880
 ;;21,"43547-0335-10 ")
 ;;12
 ;;21,"43547-0336-10 ")
 ;;52
 ;;21,"43547-0336-50 ")
 ;;53
 ;;21,"43547-0337-10 ")
 ;;150
 ;;21,"43547-0337-50 ")
 ;;151
 ;;21,"43547-0338-10 ")
 ;;217
 ;;21,"43547-0338-50 ")
 ;;218
 ;;21,"43683-0147-30 ")
 ;;1476
 ;;21,"43683-0148-30 ")
 ;;3676
 ;;21,"47463-0020-30 ")
 ;;3069
 ;;21,"47463-0021-30 ")
 ;;3198
 ;;21,"47463-0022-30 ")
 ;;3123
 ;;21,"47463-0023-30 ")
 ;;3780
 ;;21,"47463-0024-30 ")
 ;;3770
 ;;21,"47463-0039-30 ")
 ;;152
 ;;21,"47463-0040-30 ")
 ;;216
 ;;21,"47463-0043-30 ")
 ;;54
 ;;21,"47463-0220-30 ")
 ;;499
 ;;21,"47463-0221-30 ")
 ;;675
 ;;21,"47463-0222-30 ")
 ;;762
 ;;21,"47463-0223-30 ")
 ;;556
 ;;21,"47463-0250-30 ")
 ;;2978
 ;;21,"47463-0251-30 ")
 ;;2996
 ;;21,"47463-0252-30 ")
 ;;4284
 ;;21,"47463-0253-30 ")
 ;;4353
 ;;21,"47463-0375-30 ")
 ;;2462
 ;;21,"47463-0376-30 ")
 ;;2521
 ;;21,"47463-0387-30 ")
 ;;1596
 ;;21,"47463-0387-60 ")
 ;;1597
 ;;21,"47463-0387-90 ")
 ;;1598
 ;;21,"47463-0388-30 ")
 ;;1963
 ;;21,"47463-0388-60 ")
 ;;1964
 ;;21,"47463-0388-90 ")
 ;;1965
 ;;21,"47463-0389-30 ")
 ;;1471
 ;;21,"47463-0390-30 ")
 ;;3551
 ;;21,"47463-0390-60 ")
 ;;3552
 ;;21,"47463-0409-30 ")
 ;;3486
 ;;21,"47463-0410-30 ")
 ;;3674
 ;;21,"47463-0410-90 ")
 ;;3675
 ;;21,"47463-0429-30 ")
 ;;1227
 ;;21,"47463-0618-30 ")
 ;;2894
 ;;21,"47463-0619-30 ")
 ;;2902
 ;;21,"47463-0620-30 ")
 ;;2916
 ;;21,"49158-0500-01 ")
 ;;500
 ;;21,"49158-0500-10 ")
 ;;501
 ;;21,"49158-0501-01 ")
 ;;554
 ;;21,"49158-0501-10 ")
 ;;555
 ;;21,"49158-0502-01 ")
 ;;676
 ;;21,"49158-0502-10 ")
 ;;677
 ;;21,"49158-0503-01 ")
 ;;760
 ;;21,"49158-0503-10 ")
 ;;761
 ;;21,"49848-0008-90 ")
 ;;2566
 ;;21,"49884-0658-09 ")
 ;;2357
 ;;21,"49884-0659-09 ")
 ;;2363
 ;;21,"49884-0660-09 ")
 ;;2380
 ;;21,"49884-0661-09 ")
 ;;2392
 ;;21,"49884-0662-09 ")
 ;;3801
 ;;21,"49884-0663-09 ")
 ;;3815
 ;;21,"49884-0664-09 ")
 ;;3821
 ;;21,"49884-0929-01 ")
 ;;3027
 ;;21,"49884-0929-05 ")
 ;;3028
 ;;21,"49884-0930-01 ")
 ;;3067
 ;;21,"49884-0930-05 ")
 ;;3068
 ;;21,"49884-0931-01 ")
 ;;3124
 ;;21,"49884-0931-05 ")
 ;;3125
 ;;21,"49884-0932-01 ")
 ;;3196
 ;;21,"49884-0932-05 ")
 ;;3197
 ;;21,"49884-0952-01 ")
 ;;3162
 ;;21,"49884-0952-05 ")
 ;;3163
 ;;21,"49884-0953-01 ")
 ;;3243
 ;;21,"49884-0953-05 ")
 ;;3244
 ;;21,"49999-0105-00 ")
 ;;357
 ;;21,"49999-0105-10 ")
 ;;358
 ;;21,"49999-0105-30 ")
 ;;359
 ;;21,"49999-0105-60 ")
 ;;360
 ;;21,"49999-0182-10 ")
 ;;1472
 ;;21,"49999-0182-30 ")
 ;;1473
 ;;21,"49999-0182-60 ")
 ;;1474
 ;;21,"49999-0182-90 ")
 ;;1475
 ;;21,"49999-0183-10 ")
 ;;1592
 ;;21,"49999-0183-30 ")
 ;;1593
 ;;21,"49999-0183-60 ")
 ;;1594
 ;;21,"49999-0183-90 ")
 ;;1595
 ;;21,"49999-0239-00 ")
 ;;557
 ;;21,"49999-0239-30 ")
 ;;558
 ;;21,"49999-0239-60 ")
 ;;559
 ;;21,"49999-0240-00 ")
 ;;674
 ;;21,"49999-0240-30 ")
 ;;697
 ;;21,"49999-0287-30 ")
 ;;174
 ;;21,"49999-0294-30 ")
 ;;2333
 ;;21,"49999-0295-00 ")
 ;;1132
 ;;21,"49999-0295-10 ")
 ;;1133
 ;;21,"49999-0295-30 ")
 ;;1134
 ;;21,"49999-0295-90 ")
 ;;1135
 ;;21,"49999-0305-30 ")
 ;;2375
 ;;21,"49999-0321-00 ")
 ;;3635
 ;;21,"49999-0321-30 ")
 ;;3636
 ;;21,"49999-0321-60 ")
 ;;3637
 ;;21,"49999-0345-00 ")
 ;;793
 ;;21,"49999-0345-30 ")
 ;;794
 ;;21,"49999-0469-10 ")
 ;;1866
 ;;21,"49999-0469-30 ")
 ;;1867
 ;;21,"49999-0469-60 ")
 ;;1868
 ;;21,"49999-0469-90 ")
 ;;1869
 ;;21,"49999-0511-30 ")
 ;;405
 ;;21,"49999-0511-60 ")
 ;;406
 ;;21,"49999-0543-00 ")
 ;;2920
 ;;21,"49999-0543-30 ")
 ;;2921
 ;;21,"49999-0759-30 ")
 ;;103
 ;;21,"49999-0761-00 ")
 ;;3446
 ;;21,"49999-0761-30 ")
 ;;3447
 ;;21,"49999-0815-30 ")
 ;;2861
 ;;21,"49999-0815-90 ")
 ;;2862
 ;;21,"49999-0823-00 ")
 ;;3377
 ;;21,"49999-0823-30 ")
 ;;3378
 ;;21,"49999-0823-60 ")
 ;;3379
 ;;21,"49999-0823-90 ")
 ;;3380
 ;;21,"49999-0870-00 ")
 ;;1743
 ;;21,"49999-0870-30 ")
 ;;1744
 ;;21,"49999-0870-60 ")
 ;;1745
 ;;21,"49999-0870-90 ")
 ;;1746
 ;;21,"49999-0871-30 ")
 ;;2246
 ;;21,"49999-0871-90 ")
 ;;2247
 ;;21,"49999-0877-00 ")
 ;;2965
 ;;21,"49999-0877-30 ")
 ;;2966
 ;;21,"49999-0877-90 ")
 ;;2967
 ;;21,"49999-0878-00 ")
 ;;2949
 ;;21,"49999-0878-30 ")
 ;;2950
 ;;21,"49999-0878-90 ")
 ;;2951
 ;;21,"49999-0879-00 ")
 ;;4271
 ;;21,"49999-0879-30 ")
 ;;4272
 ;;21,"49999-0880-00 ")
 ;;4173
 ;;21,"49999-0880-30 ")
 ;;4174
 ;;21,"49999-0880-90 ")
 ;;4175
 ;;21,"49999-0924-00 ")
 ;;3533
 ;;21,"49999-0924-10 ")
 ;;3534
 ;;21,"49999-0924-30 ")
 ;;3535
 ;;21,"49999-0924-60 ")
 ;;3536
 ;;21,"49999-0924-90 ")
 ;;3537
 ;;21,"49999-0934-30 ")
 ;;2183
 ;;21,"49999-0940-30 ")
 ;;2647
 ;;21,"49999-0940-90 ")
 ;;2648
 ;;21,"49999-0943-00 ")
 ;;4210
 ;;21,"49999-0943-90 ")
 ;;4211
 ;;21,"49999-0946-30 ")
 ;;3233
 ;;21,"49999-0947-30 ")
 ;;3088
 ;;21,"49999-0948-30 ")
 ;;3145
 ;;21,"49999-0988-30 ")
 ;;2388
 ;;21,"49999-0991-90 ")
 ;;2758
 ;;21,"50268-0109-15 ")
 ;;19
 ;;21,"50268-0110-15 ")
 ;;40
 ;;21,"50268-0111-15 ")
 ;;102
 ;;21,"50268-0112-15 ")
 ;;182
 ;;21,"50268-0516-15 ")
 ;;2614
 ;;21,"50268-0517-15 ")
 ;;2689
 ;;21,"50268-0518-15 ")
 ;;2794
 ;;21,"50436-5000-01 ")
 ;;1705
 ;;21,"51079-0145-01 ")
 ;;41
 ;;21,"51079-0145-20 ")
 ;;42
 ;;21,"51079-0146-01 ")
 ;;100
 ;;21,"51079-0146-20 ")
 ;;101
 ;;21,"51079-0192-01 ")
 ;;4209
 ;;21,"51079-0192-03 ")
 ;;4195
 ;;21,"51079-0193-01 ")
 ;;4270
 ;;21,"51079-0193-03 ")
 ;;4260
 ;;21,"51079-0194-01 ")
 ;;4318
 ;;21,"51079-0194-03 ")
 ;;4308
 ;;21,"51079-0256-40 ")
 ;;1071
 ;;21,"51079-0261-40 ")
 ;;1740
 ;;21,"51079-0697-40 ")
 ;;3451
 ;;21,"51079-0698-40 ")
 ;;3532
 ;;21,"51079-0699-40 ")
 ;;3638
 ;;21,"51079-0750-01 ")
 ;;2612
 ;;21,"51079-0750-20 ")
 ;;2613
 ;;21,"51079-0751-01 ")
 ;;2690
 ;;21,"51079-0751-20 ")
 ;;2691
 ;;21,"51079-0752-01 ")
 ;;2795
 ;;21,"51079-0752-20 ")
 ;;2796
 ;;21,"51079-0757-01 ")
 ;;3973
 ;;21,"51079-0757-20 ")
 ;;3974
 ;;21,"51079-0863-01 ")
 ;;277
 ;;21,"51079-0863-20 ")
 ;;278
 ;;21,"51079-0864-01 ")
 ;;314
 ;;21,"51079-0864-20 ")
 ;;315
 ;;21,"51079-0950-01 ")
 ;;512
 ;;21,"51079-0950-20 ")
 ;;513
 ;;21,"51079-0951-01 ")
 ;;586
 ;;21,"51079-0951-20 ")
 ;;587
 ;;21,"51079-0952-01 ")
 ;;695
 ;;21,"51079-0952-20 ")
 ;;696
 ;;21,"51079-0953-01 ")
 ;;795
 ;;21,"51079-0953-20 ")
 ;;796
 ;;21,"51079-0981-01 ")
 ;;1126
 ;;21,"51079-0981-20 ")
 ;;1127
 ;;21,"51079-0981-30 ")
 ;;1128
 ;;21,"51079-0981-40 ")
 ;;1129
 ;;21,"51079-0981-56 ")
 ;;1130
 ;;21,"51079-0981-60 ")
 ;;1131
 ;;21,"51079-0982-01 ")
 ;;1341
 ;;21,"51079-0982-17 ")
 ;;1342
 ;;21,"51079-0982-19 ")
 ;;1343
 ;;21,"51079-0982-20 ")
 ;;1344
 ;;21,"51079-0982-30 ")
 ;;1345
 ;;21,"51079-0982-40 ")
 ;;1346
 ;;21,"51079-0982-56 ")
 ;;1347
 ;;21,"51079-0982-60 ")
 ;;1348
 ;;21,"51079-0983-01 ")
 ;;1691
 ;;21,"51079-0983-17 ")
 ;;1692
 ;;21,"51079-0983-19 ")
 ;;1693
 ;;21,"51079-0983-20 ")
 ;;1694
 ;;21,"51079-0983-30 ")
 ;;1695
 ;;21,"51079-0983-40 ")
 ;;1696
 ;;21,"51079-0983-56 ")
 ;;1697
 ;;21,"51079-0983-60 ")
 ;;1698
 ;;21,"51079-0984-01 ")
 ;;1872
 ;;21,"51079-0984-20 ")
 ;;1873
 ;;21,"51079-0984-40 ")
 ;;1874
 ;;21,"51079-0984-50 ")
 ;;1875
 ;;21,"51138-0013-30 ")
 ;;279
 ;;21,"51138-0014-30 ")
 ;;313
 ;;21,"51138-0015-30 ")
 ;;404
 ;;21,"51138-0016-30 ")
 ;;456
 ;;21,"51138-0033-30 ")
 ;;511
 ;;21,"51138-0034-30 ")
 ;;588
 ;;21,"51138-0035-30 ")
 ;;694
 ;;21,"51138-0036-30 ")
 ;;797
 ;;21,"51138-0063-30 ")
 ;;1073
 ;;21,"51138-0064-30 ")
 ;;1125