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

BGP62Z14.m

Go to the documentation of this file.
BGP62Z14 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"63629-3309-07 ")
 ;;3696
 ;;21,"63629-3312-01 ")
 ;;2737
 ;;21,"63629-3312-02 ")
 ;;2738
 ;;21,"63629-3312-03 ")
 ;;2739
 ;;21,"63629-3313-01 ")
 ;;3540
 ;;21,"63629-3317-01 ")
 ;;2075
 ;;21,"63629-3317-02 ")
 ;;2076
 ;;21,"63629-3317-03 ")
 ;;2077
 ;;21,"63629-3317-04 ")
 ;;2078
 ;;21,"63629-3338-01 ")
 ;;1750
 ;;21,"63629-3338-02 ")
 ;;1751
 ;;21,"63629-3338-03 ")
 ;;1752
 ;;21,"63629-3340-01 ")
 ;;1135
 ;;21,"63629-3362-01 ")
 ;;4172
 ;;21,"63629-3362-02 ")
 ;;4173
 ;;21,"63629-3362-03 ")
 ;;4174
 ;;21,"63629-3362-04 ")
 ;;4175
 ;;21,"63629-3362-05 ")
 ;;4176
 ;;21,"63629-3597-01 ")
 ;;4527
 ;;21,"63629-3597-02 ")
 ;;4528
 ;;21,"63629-3597-03 ")
 ;;4529
 ;;21,"63629-4125-01 ")
 ;;2778
 ;;21,"63629-4125-02 ")
 ;;2779
 ;;21,"63629-4304-01 ")
 ;;4204
 ;;21,"63629-4304-02 ")
 ;;4205
 ;;21,"63629-4304-03 ")
 ;;4206
 ;;21,"63672-1100-02 ")
 ;;2780
 ;;21,"63739-0190-10 ")
 ;;5193
 ;;21,"63739-0245-10 ")
 ;;894
 ;;21,"63739-0246-10 ")
 ;;639
 ;;21,"63739-0296-10 ")
 ;;2613
 ;;21,"63739-0355-04 ")
 ;;3798
 ;;21,"63739-0355-10 ")
 ;;3799
 ;;21,"63739-0356-10 ")
 ;;3891
 ;;21,"63739-0407-10 ")
 ;;2893
 ;;21,"63739-0408-10 ")
 ;;3266
 ;;21,"63739-0449-10 ")
 ;;305
 ;;21,"63739-0450-10 ")
 ;;383
 ;;21,"63739-0493-40 ")
 ;;2614
 ;;21,"63739-0494-40 ")
 ;;2740
 ;;21,"63739-0511-10 ")
 ;;1545
 ;;21,"63739-0512-10 ")
 ;;1236
 ;;21,"63739-0521-10 ")
 ;;1354
 ;;21,"63739-0633-10 ")
 ;;1237
 ;;21,"63739-0888-10 ")
 ;;2894
 ;;21,"63739-0963-10 ")
 ;;3077
 ;;21,"63874-0296-01 ")
 ;;4530
 ;;21,"63874-0296-04 ")
 ;;4531
 ;;21,"63874-0296-15 ")
 ;;4532
 ;;21,"63874-0296-20 ")
 ;;4533
 ;;21,"63874-0296-30 ")
 ;;4534
 ;;21,"63874-0296-40 ")
 ;;4535
 ;;21,"63874-0296-60 ")
 ;;4536
 ;;21,"63874-0296-90 ")
 ;;4537
 ;;21,"63874-0311-01 ")
 ;;4087
 ;;21,"63874-0311-02 ")
 ;;4088
 ;;21,"63874-0311-04 ")
 ;;4089
 ;;21,"63874-0311-10 ")
 ;;4090
 ;;21,"63874-0311-12 ")
 ;;4091
 ;;21,"63874-0311-15 ")
 ;;4092
 ;;21,"63874-0311-20 ")
 ;;4093
 ;;21,"63874-0311-24 ")
 ;;4094
 ;;21,"63874-0311-30 ")
 ;;4095
 ;;21,"63874-0311-40 ")
 ;;4096
 ;;21,"63874-0311-50 ")
 ;;4097
 ;;21,"63874-0311-60 ")
 ;;4098
 ;;21,"63874-0311-72 ")
 ;;4099
 ;;21,"63874-0311-74 ")
 ;;4100
 ;;21,"63874-0311-77 ")
 ;;4101
 ;;21,"63874-0311-82 ")
 ;;4102
 ;;21,"63874-0311-90 ")
 ;;4103
 ;;21,"63874-0359-01 ")
 ;;4467
 ;;21,"63874-0359-02 ")
 ;;4468
 ;;21,"63874-0359-14 ")
 ;;4469
 ;;21,"63874-0359-15 ")
 ;;4470
 ;;21,"63874-0359-20 ")
 ;;4471
 ;;21,"63874-0359-28 ")
 ;;4472
 ;;21,"63874-0359-30 ")
 ;;4473
 ;;21,"63874-0359-40 ")
 ;;4474
 ;;21,"63874-0359-50 ")
 ;;4475
 ;;21,"63874-0359-60 ")
 ;;4476
 ;;21,"63874-0359-90 ")
 ;;4477
 ;;21,"63874-0430-01 ")
 ;;4345
 ;;21,"63874-0430-02 ")
 ;;4346
 ;;21,"63874-0430-04 ")
 ;;4347
 ;;21,"63874-0430-14 ")
 ;;4348
 ;;21,"63874-0430-15 ")
 ;;4349
 ;;21,"63874-0430-20 ")
 ;;4350
 ;;21,"63874-0430-25 ")
 ;;4351
 ;;21,"63874-0430-28 ")
 ;;4352
 ;;21,"63874-0430-30 ")
 ;;4353
 ;;21,"63874-0430-40 ")
 ;;4354
 ;;21,"63874-0430-50 ")
 ;;4355
 ;;21,"63874-0430-60 ")
 ;;4356
 ;;21,"63874-0430-90 ")
 ;;4357
 ;;21,"63874-0537-01 ")
 ;;640
 ;;21,"63874-0537-04 ")
 ;;641
 ;;21,"63874-0537-10 ")
 ;;642
 ;;21,"63874-0537-12 ")
 ;;643
 ;;21,"63874-0537-14 ")
 ;;644
 ;;21,"63874-0537-15 ")
 ;;645
 ;;21,"63874-0537-20 ")
 ;;646
 ;;21,"63874-0537-30 ")
 ;;647
 ;;21,"63874-0537-40 ")
 ;;648
 ;;21,"63874-0537-60 ")
 ;;649
 ;;21,"63874-0537-90 ")
 ;;650
 ;;21,"63874-0538-01 ")
 ;;3078
 ;;21,"63874-0538-10 ")
 ;;3079
 ;;21,"63874-0538-14 ")
 ;;3080
 ;;21,"63874-0538-15 ")
 ;;3081
 ;;21,"63874-0538-20 ")
 ;;3082
 ;;21,"63874-0538-30 ")
 ;;3083
 ;;21,"63874-0538-60 ")
 ;;3084
 ;;21,"63874-0540-20 ")
 ;;498
 ;;21,"63874-0540-30 ")
 ;;499
 ;;21,"63874-0540-60 ")
 ;;500
 ;;21,"63874-0542-14 ")
 ;;484
 ;;21,"63874-0542-20 ")
 ;;485
 ;;21,"63874-0542-30 ")
 ;;486
 ;;21,"63874-0542-60 ")
 ;;487
 ;;21,"63874-0555-01 ")
 ;;3697
 ;;21,"63874-0555-10 ")
 ;;3698
 ;;21,"63874-0555-14 ")
 ;;3699
 ;;21,"63874-0555-15 ")
 ;;3700
 ;;21,"63874-0555-20 ")
 ;;3701
 ;;21,"63874-0555-30 ")
 ;;3702
 ;;21,"63874-0555-60 ")
 ;;3703
 ;;21,"63874-0560-01 ")
 ;;895
 ;;21,"63874-0560-04 ")
 ;;896
 ;;21,"63874-0560-10 ")
 ;;897
 ;;21,"63874-0560-12 ")
 ;;898
 ;;21,"63874-0560-14 ")
 ;;899
 ;;21,"63874-0560-15 ")
 ;;900
 ;;21,"63874-0560-20 ")
 ;;901
 ;;21,"63874-0560-28 ")
 ;;902
 ;;21,"63874-0560-30 ")
 ;;903
 ;;21,"63874-0560-40 ")
 ;;904
 ;;21,"63874-0560-60 ")
 ;;905
 ;;21,"63874-0560-90 ")
 ;;906
 ;;21,"63874-0567-30 ")
 ;;442
 ;;21,"63874-0567-60 ")
 ;;443
 ;;21,"63874-0573-01 ")
 ;;2615
 ;;21,"63874-0573-04 ")
 ;;2616
 ;;21,"63874-0573-10 ")
 ;;2617
 ;;21,"63874-0573-14 ")
 ;;2618
 ;;21,"63874-0573-15 ")
 ;;2619
 ;;21,"63874-0573-20 ")
 ;;2620
 ;;21,"63874-0573-21 ")
 ;;2621
 ;;21,"63874-0573-28 ")
 ;;2622
 ;;21,"63874-0573-30 ")
 ;;2623
 ;;21,"63874-0573-60 ")
 ;;2624
 ;;21,"63874-0573-72 ")
 ;;2625
 ;;21,"63874-0573-74 ")
 ;;2626
 ;;21,"63874-0573-77 ")
 ;;2627
 ;;21,"63874-0573-90 ")
 ;;2628
 ;;21,"63874-0574-01 ")
 ;;2385
 ;;21,"63874-0574-04 ")
 ;;2386
 ;;21,"63874-0574-10 ")
 ;;2387
 ;;21,"63874-0574-14 ")
 ;;2388
 ;;21,"63874-0574-20 ")
 ;;2389
 ;;21,"63874-0574-21 ")
 ;;2390
 ;;21,"63874-0574-28 ")
 ;;2391
 ;;21,"63874-0574-30 ")
 ;;2392
 ;;21,"63874-0574-60 ")
 ;;2393
 ;;21,"63874-0574-72 ")
 ;;2394
 ;;21,"63874-0574-74 ")
 ;;2395
 ;;21,"63874-0574-77 ")
 ;;2396
 ;;21,"63874-0574-90 ")
 ;;2397
 ;;21,"63874-0579-01 ")
 ;;4803
 ;;21,"63874-0579-04 ")
 ;;4804
 ;;21,"63874-0579-10 ")
 ;;4805
 ;;21,"63874-0579-12 ")
 ;;4806
 ;;21,"63874-0579-14 ")
 ;;4807
 ;;21,"63874-0579-15 ")
 ;;4808
 ;;21,"63874-0579-20 ")
 ;;4809
 ;;21,"63874-0579-28 ")
 ;;4810
 ;;21,"63874-0579-30 ")
 ;;4811
 ;;21,"63874-0579-32 ")
 ;;4812
 ;;21,"63874-0579-40 ")
 ;;4813
 ;;21,"63874-0579-50 ")
 ;;4814
 ;;21,"63874-0579-60 ")
 ;;4815
 ;;21,"63874-0579-90 ")
 ;;4816
 ;;21,"63874-0580-01 ")
 ;;5194
 ;;21,"63874-0580-14 ")
 ;;5195
 ;;21,"63874-0580-15 ")
 ;;5196
 ;;21,"63874-0580-20 ")
 ;;5197
 ;;21,"63874-0580-30 ")
 ;;5198
 ;;21,"63874-0580-60 ")
 ;;5199
 ;;21,"63874-0580-90 ")
 ;;5200
 ;;21,"63874-0596-01 ")
 ;;3428
 ;;21,"63874-0596-10 ")
 ;;3429
 ;;21,"63874-0596-14 ")
 ;;3430
 ;;21,"63874-0596-15 ")
 ;;3431
 ;;21,"63874-0596-20 ")
 ;;3432
 ;;21,"63874-0596-30 ")
 ;;3433
 ;;21,"63874-0596-60 ")
 ;;3434
 ;;21,"63874-0599-01 ")
 ;;1634
 ;;21,"63874-0599-10 ")
 ;;1635
 ;;21,"63874-0599-14 ")
 ;;1636
 ;;21,"63874-0599-15 ")
 ;;1637
 ;;21,"63874-0599-20 ")
 ;;1638
 ;;21,"63874-0599-21 ")
 ;;1639
 ;;21,"63874-0599-28 ")
 ;;1640
 ;;21,"63874-0599-30 ")
 ;;1641
 ;;21,"63874-0599-40 ")
 ;;1642
 ;;21,"63874-0599-50 ")
 ;;1643
 ;;21,"63874-0599-60 ")
 ;;1644
 ;;21,"63874-0599-90 ")
 ;;1645
 ;;21,"63874-0609-01 ")
 ;;1922
 ;;21,"63874-0609-10 ")
 ;;1923
 ;;21,"63874-0609-20 ")
 ;;1924
 ;;21,"63874-0609-30 ")
 ;;1925
 ;;21,"63874-0609-60 ")
 ;;1926
 ;;21,"63874-0609-90 ")
 ;;1927
 ;;21,"63874-0616-01 ")
 ;;72
 ;;21,"63874-0616-04 ")
 ;;73
 ;;21,"63874-0616-10 ")
 ;;74
 ;;21,"63874-0616-12 ")
 ;;75
 ;;21,"63874-0616-15 ")
 ;;76
 ;;21,"63874-0616-20 ")
 ;;77
 ;;21,"63874-0616-25 ")
 ;;78
 ;;21,"63874-0616-28 ")
 ;;79
 ;;21,"63874-0616-30 ")
 ;;80
 ;;21,"63874-0616-40 ")
 ;;81
 ;;21,"63874-0616-50 ")
 ;;82
 ;;21,"63874-0616-60 ")
 ;;83
 ;;21,"63874-0616-70 ")
 ;;84
 ;;21,"63874-0616-72 ")
 ;;85
 ;;21,"63874-0616-74 ")
 ;;86
 ;;21,"63874-0616-77 ")
 ;;87
 ;;21,"63874-0616-80 ")
 ;;88
 ;;21,"63874-0616-90 ")
 ;;89
 ;;21,"63874-0638-01 ")
 ;;4868
 ;;21,"63874-0638-04 ")
 ;;4869
 ;;21,"63874-0638-10 ")
 ;;4870
 ;;21,"63874-0638-14 ")
 ;;4871
 ;;21,"63874-0638-15 ")
 ;;4872
 ;;21,"63874-0638-20 ")
 ;;4873
 ;;21,"63874-0638-21 ")
 ;;4874
 ;;21,"63874-0638-28 ")
 ;;4875
 ;;21,"63874-0638-30 ")
 ;;4876
 ;;21,"63874-0638-40 ")
 ;;4877
 ;;21,"63874-0638-50 ")
 ;;4878
 ;;21,"63874-0638-60 ")
 ;;4879
 ;;21,"63874-0638-90 ")
 ;;4880
 ;;21,"63874-0670-10 ")
 ;;3267
 ;;21,"63874-0670-15 ")
 ;;3268
 ;;21,"63874-0670-20 ")
 ;;3269
 ;;21,"63874-0670-30 ")
 ;;3270
 ;;21,"63874-0766-30 ")
 ;;4683
 ;;21,"63874-0766-60 ")
 ;;4684
 ;;21,"63874-0767-10 ")
 ;;2895
 ;;21,"63874-0767-14 ")
 ;;2896
 ;;21,"63874-0767-30 ")
 ;;2897
 ;;21,"63874-0775-01 ")
 ;;736
 ;;21,"63874-0775-12 ")
 ;;737
 ;;21,"63874-0775-15 ")
 ;;738
 ;;21,"63874-0775-20 ")
 ;;739
 ;;21,"63874-0775-30 ")
 ;;740
 ;;21,"63874-0780-20 ")
 ;;237
 ;;21,"63874-0828-01 ")
 ;;2665
 ;;21,"63874-0828-04 ")
 ;;2666
 ;;21,"63874-0828-14 ")
 ;;2667
 ;;21,"63874-0828-20 ")
 ;;2668
 ;;21,"63874-0828-21 ")
 ;;2669
 ;;21,"63874-0828-28 ")
 ;;2670
 ;;21,"63874-0828-30 ")
 ;;2671
 ;;21,"63874-0828-60 ")
 ;;2672
 ;;21,"63874-0828-90 ")
 ;;2673
 ;;21,"63874-0829-01 ")
 ;;4654
 ;;21,"63874-0829-10 ")
 ;;4655
 ;;21,"63874-0829-14 ")
 ;;4656
 ;;21,"63874-0829-15 ")
 ;;4657
 ;;21,"63874-0829-20 ")
 ;;4658
 ;;21,"63874-0829-28 ")
 ;;4659
 ;;21,"63874-0829-30 ")
 ;;4660
 ;;21,"63874-0829-42 ")
 ;;4661
 ;;21,"63874-0829-50 ")
 ;;4662
 ;;21,"63874-0829-60 ")
 ;;4663
 ;;21,"63874-0926-01 ")
 ;;128
 ;;21,"63874-0926-04 ")
 ;;129
 ;;21,"63874-0926-10 ")
 ;;130
 ;;21,"63874-0926-28 ")
 ;;131
 ;;21,"63874-0926-30 ")
 ;;132
 ;;21,"63874-0926-60 ")
 ;;133
 ;;21,"63874-0926-90 ")
 ;;134
 ;;21,"63874-1003-03 ")
 ;;3177
 ;;21,"63874-1009-01 ")
 ;;2169
 ;;21,"63874-1009-03 ")
 ;;2170
 ;;21,"63874-1009-06 ")
 ;;2171
 ;;21,"63874-1009-09 ")
 ;;2172
 ;;21,"63874-1020-03 ")
 ;;3892
 ;;21,"63874-1033-01 ")
 ;;5104
 ;;21,"63874-1033-03 ")
 ;;5105
 ;;21,"63874-1033-04 ")
 ;;5106
 ;;21,"63874-1033-06 ")
 ;;5107
 ;;21,"63874-1053-01 ")
 ;;2425
 ;;21,"63874-1053-02 ")
 ;;2426
 ;;21,"63874-1053-03 ")
 ;;2427
 ;;21,"63874-1053-04 ")
 ;;2428
 ;;21,"63874-1053-05 ")
 ;;2429
 ;;21,"63874-1053-06 ")
 ;;2430
 ;;21,"63874-1053-08 ")
 ;;2431
 ;;21,"63874-1053-09 ")
 ;;2432
 ;;21,"63874-1079-06 ")
 ;;5250
 ;;21,"63874-1080-03 ")
 ;;2741
 ;;21,"63874-1080-06 ")
 ;;2742
 ;;21,"63874-1081-01 ")
 ;;5278
 ;;21,"63874-1097-03 ")
 ;;3893
 ;;21,"63874-1098-03 ")
 ;;3800
 ;;21,"63874-1113-03 ")
 ;;1928
 ;;21,"63874-1113-06 ")
 ;;1929
 ;;21,"63874-1125-06 ")
 ;;2898
 ;;21,"63874-1130-06 ")
 ;;1427
 ;;21,"63874-1146-06 ")
 ;;1753
 ;;21,"63874-1151-03 ")
 ;;3178
 ;;21,"63874-1155-03 ")
 ;;3963
 ;;21,"63874-1157-03 ")
 ;;2079
 ;;21,"63874-1158-03 ")
 ;;4177
 ;;21,"63874-1253-03 ")
 ;;1136
 ;;21,"64125-0133-01 ")
 ;;4928
 ;;21,"64125-0133-10 ")
 ;;4929
 ;;21,"64125-0134-01 ")
 ;;4972
 ;;21,"64125-0134-10 ")
 ;;4973
 ;;21,"64125-0135-01 ")
 ;;5015
 ;;21,"64125-0135-10 ")
 ;;5016
 ;;21,"64455-0730-30 ")
 ;;306
 ;;21,"64455-0730-90 ")
 ;;307
 ;;21,"64455-0731-30 ")
 ;;384
 ;;21,"64679-0101-02 ")
 ;;135
 ;;21,"64679-0101-03 ")
 ;;136
 ;;21,"64679-0102-01 ")
 ;;308
 ;;21,"64679-0102-02 ")
 ;;309
 ;;21,"64679-0105-02 ")
 ;;238
 ;;21,"64679-0105-03 ")
 ;;239
 ;;21,"64679-0105-04 ")
 ;;240