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

BGP62Y18.m

Go to the documentation of this file.
BGP62Y18 ;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,"63304-0173-30 ")
 ;;6394
 ;;21,"63304-0509-01 ")
 ;;1287
 ;;21,"63304-0509-20 ")
 ;;1288
 ;;21,"63304-0512-50 ")
 ;;1400
 ;;21,"63304-0520-20 ")
 ;;7070
 ;;21,"63304-0521-01 ")
 ;;7088
 ;;21,"63304-0521-20 ")
 ;;7089
 ;;21,"63304-0582-01 ")
 ;;1502
 ;;21,"63304-0582-50 ")
 ;;1503
 ;;21,"63304-0615-01 ")
 ;;6410
 ;;21,"63304-0616-50 ")
 ;;6364
 ;;21,"63304-0656-01 ")
 ;;1726
 ;;21,"63304-0656-05 ")
 ;;1727
 ;;21,"63304-0657-01 ")
 ;;2056
 ;;21,"63304-0657-05 ")
 ;;2057
 ;;21,"63304-0658-01 ")
 ;;5154
 ;;21,"63304-0659-01 ")
 ;;5224
 ;;21,"63304-0692-01 ")
 ;;2357
 ;;21,"63304-0692-05 ")
 ;;2358
 ;;21,"63304-0693-01 ")
 ;;2487
 ;;21,"63304-0693-16 ")
 ;;2488
 ;;21,"63304-0694-01 ")
 ;;6530
 ;;21,"63304-0695-01 ")
 ;;6550
 ;;21,"63304-0696-05 ")
 ;;6463
 ;;21,"63304-0696-50 ")
 ;;6464
 ;;21,"63304-0697-01 ")
 ;;6538
 ;;21,"63304-0698-01 ")
 ;;6560
 ;;21,"63304-0699-50 ")
 ;;6481
 ;;21,"63304-0709-01 ")
 ;;4292
 ;;21,"63304-0710-01 ")
 ;;4595
 ;;21,"63304-0711-01 ")
 ;;4755
 ;;21,"63304-0711-50 ")
 ;;4756
 ;;21,"63304-0713-20 ")
 ;;1155
 ;;21,"63304-0725-01 ")
 ;;2907
 ;;21,"63304-0725-60 ")
 ;;2908
 ;;21,"63304-0726-01 ")
 ;;3014
 ;;21,"63304-0726-60 ")
 ;;3015
 ;;21,"63304-0751-20 ")
 ;;5418
 ;;21,"63304-0751-60 ")
 ;;5419
 ;;21,"63304-0752-20 ")
 ;;5490
 ;;21,"63304-0752-60 ")
 ;;5491
 ;;21,"63304-0753-20 ")
 ;;933
 ;;21,"63304-0754-20 ")
 ;;1013
 ;;21,"63304-0760-20 ")
 ;;139
 ;;21,"63304-0763-01 ")
 ;;771
 ;;21,"63304-0768-01 ")
 ;;1205
 ;;21,"63304-0768-02 ")
 ;;1206
 ;;21,"63304-0768-07 ")
 ;;1207
 ;;21,"63304-0821-03 ")
 ;;2877
 ;;21,"63304-0821-04 ")
 ;;2878
 ;;21,"63304-0822-03 ")
 ;;2930
 ;;21,"63304-0822-04 ")
 ;;2931
 ;;21,"63304-0940-25 ")
 ;;1324
 ;;21,"63304-0941-10 ")
 ;;1350
 ;;21,"63304-0946-25 ")
 ;;5112
 ;;21,"63304-0947-25 ")
 ;;5075
 ;;21,"63304-0948-10 ")
 ;;5092
 ;;21,"63304-0954-01 ")
 ;;5124
 ;;21,"63304-0954-02 ")
 ;;5125
 ;;21,"63304-0956-01 ")
 ;;5179
 ;;21,"63304-0956-02 ")
 ;;5180
 ;;21,"63304-0957-03 ")
 ;;5191
 ;;21,"63304-0957-04 ")
 ;;5192
 ;;21,"63304-0958-01 ")
 ;;1574
 ;;21,"63304-0958-02 ")
 ;;1575
 ;;21,"63304-0959-01 ")
 ;;1800
 ;;21,"63304-0959-02 ")
 ;;1801
 ;;21,"63304-0960-01 ")
 ;;5260
 ;;21,"63304-0960-03 ")
 ;;5261
 ;;21,"63304-0960-04 ")
 ;;5262
 ;;21,"63304-0961-01 ")
 ;;5317
 ;;21,"63304-0961-03 ")
 ;;5318
 ;;21,"63304-0961-04 ")
 ;;5319
 ;;21,"63304-0963-04 ")
 ;;5357
 ;;21,"63304-0964-03 ")
 ;;5449
 ;;21,"63304-0964-04 ")
 ;;5450
 ;;21,"63304-0965-03 ")
 ;;7097
 ;;21,"63304-0965-04 ")
 ;;7098
 ;;21,"63304-0966-03 ")
 ;;7077
 ;;21,"63304-0966-04 ")
 ;;7078
 ;;21,"63304-0969-03 ")
 ;;161
 ;;21,"63304-0970-01 ")
 ;;457
 ;;21,"63304-0970-04 ")
 ;;458
 ;;21,"63304-0973-04 ")
 ;;1410
 ;;21,"63304-0974-01 ")
 ;;1545
 ;;21,"63304-0974-04 ")
 ;;1546
 ;;21,"63304-0977-01 ")
 ;;960
 ;;21,"63304-0977-03 ")
 ;;961
 ;;21,"63304-0977-04 ")
 ;;962
 ;;21,"63304-0979-01 ")
 ;;1041
 ;;21,"63304-0979-03 ")
 ;;1042
 ;;21,"63304-0979-04 ")
 ;;1043
 ;;21,"63323-0130-11 ")
 ;;5899
 ;;21,"63323-0130-13 ")
 ;;5900
 ;;21,"63323-0130-17 ")
 ;;5901
 ;;21,"63323-0236-10 ")
 ;;1380
 ;;21,"63323-0237-10 ")
 ;;1325
 ;;21,"63323-0238-61 ")
 ;;1351
 ;;21,"63323-0282-02 ")
 ;;2178
 ;;21,"63323-0282-04 ")
 ;;2179
 ;;21,"63323-0282-06 ")
 ;;2180
 ;;21,"63323-0282-60 ")
 ;;2181
 ;;21,"63323-0323-20 ")
 ;;3592
 ;;21,"63323-0324-62 ")
 ;;3582
 ;;21,"63323-0344-10 ")
 ;;6889
 ;;21,"63323-0345-10 ")
 ;;6929
 ;;21,"63323-0346-10 ")
 ;;6811
 ;;21,"63323-0347-20 ")
 ;;6855
 ;;21,"63323-0348-61 ")
 ;;6832
 ;;21,"63323-0352-10 ")
 ;;5113
 ;;21,"63323-0352-45 ")
 ;;5114
 ;;21,"63323-0353-20 ")
 ;;5076
 ;;21,"63323-0353-45 ")
 ;;5077
 ;;21,"63323-0354-45 ")
 ;;5093
 ;;21,"63323-0354-61 ")
 ;;5094
 ;;21,"63323-0355-50 ")
 ;;4119
 ;;21,"63323-0355-60 ")
 ;;4142
 ;;21,"63323-0355-65 ")
 ;;4131
 ;;21,"63323-0387-10 ")
 ;;65
 ;;21,"63323-0388-10 ")
 ;;79
 ;;21,"63323-0389-10 ")
 ;;17
 ;;21,"63323-0398-10 ")
 ;;2537
 ;;21,"63323-0398-12 ")
 ;;2538
 ;;21,"63323-0398-14 ")
 ;;2539
 ;;21,"63323-0399-23 ")
 ;;54
 ;;21,"63323-0404-00 ")
 ;;31
 ;;21,"63323-0446-61 ")
 ;;1362
 ;;21,"63323-0446-66 ")
 ;;1363
 ;;21,"63629-1236-00 ")
 ;;655
 ;;21,"63629-1236-01 ")
 ;;656
 ;;21,"63629-1236-02 ")
 ;;657
 ;;21,"63629-1236-03 ")
 ;;658
 ;;21,"63629-1236-04 ")
 ;;659
 ;;21,"63629-1236-05 ")
 ;;660
 ;;21,"63629-1236-06 ")
 ;;661
 ;;21,"63629-1236-07 ")
 ;;662
 ;;21,"63629-1236-08 ")
 ;;663
 ;;21,"63629-1248-01 ")
 ;;1289
 ;;21,"63629-1248-02 ")
 ;;1290
 ;;21,"63629-1248-03 ")
 ;;1291
 ;;21,"63629-1248-04 ")
 ;;1292
 ;;21,"63629-1257-01 ")
 ;;278
 ;;21,"63629-1257-02 ")
 ;;279
 ;;21,"63629-1257-03 ")
 ;;280
 ;;21,"63629-1284-01 ")
 ;;3050
 ;;21,"63629-1305-01 ")
 ;;5155
 ;;21,"63629-1305-02 ")
 ;;5156
 ;;21,"63629-1305-03 ")
 ;;5157
 ;;21,"63629-1317-01 ")
 ;;1728
 ;;21,"63629-1317-02 ")
 ;;1729
 ;;21,"63629-1317-03 ")
 ;;1730
 ;;21,"63629-1317-04 ")
 ;;1731
 ;;21,"63629-1317-05 ")
 ;;1732
 ;;21,"63629-1319-01 ")
 ;;2058
 ;;21,"63629-1319-02 ")
 ;;2059
 ;;21,"63629-1319-03 ")
 ;;2060
 ;;21,"63629-1319-04 ")
 ;;2061
 ;;21,"63629-1319-05 ")
 ;;2062
 ;;21,"63629-1319-06 ")
 ;;2063
 ;;21,"63629-1319-07 ")
 ;;2064
 ;;21,"63629-1319-08 ")
 ;;2065
 ;;21,"63629-1320-01 ")
 ;;5225
 ;;21,"63629-1320-02 ")
 ;;5226
 ;;21,"63629-1320-03 ")
 ;;5227
 ;;21,"63629-1320-04 ")
 ;;5228
 ;;21,"63629-1321-01 ")
 ;;5420
 ;;21,"63629-1326-02 ")
 ;;4293
 ;;21,"63629-1326-03 ")
 ;;4294
 ;;21,"63629-1326-04 ")
 ;;4295
 ;;21,"63629-1326-05 ")
 ;;4296
 ;;21,"63629-1326-06 ")
 ;;4297
 ;;21,"63629-1326-07 ")
 ;;4298
 ;;21,"63629-1326-08 ")
 ;;4299
 ;;21,"63629-1326-09 ")
 ;;4300
 ;;21,"63629-1350-01 ")
 ;;3960
 ;;21,"63629-1350-02 ")
 ;;3961
 ;;21,"63629-1350-03 ")
 ;;3962
 ;;21,"63629-1351-01 ")
 ;;4033
 ;;21,"63629-1351-02 ")
 ;;4034
 ;;21,"63629-1351-03 ")
 ;;4035
 ;;21,"63629-1357-01 ")
 ;;6263
 ;;21,"63629-1357-02 ")
 ;;6264
 ;;21,"63629-1357-03 ")
 ;;6265
 ;;21,"63629-1358-01 ")
 ;;1504
 ;;21,"63629-1358-02 ")
 ;;1505
 ;;21,"63629-1490-01 ")
 ;;5566
 ;;21,"63629-1490-02 ")
 ;;5567
 ;;21,"63629-1490-03 ")
 ;;5568
 ;;21,"63629-1490-04 ")
 ;;5569
 ;;21,"63629-1501-01 ")
 ;;6641
 ;;21,"63629-1501-02 ")
 ;;6642
 ;;21,"63629-1501-03 ")
 ;;6643
 ;;21,"63629-1501-04 ")
 ;;6644
 ;;21,"63629-1502-01 ")
 ;;6738
 ;;21,"63629-1502-02 ")
 ;;6739
 ;;21,"63629-1502-03 ")
 ;;6740
 ;;21,"63629-1502-04 ")
 ;;6741
 ;;21,"63629-1531-01 ")
 ;;6082
 ;;21,"63629-1531-02 ")
 ;;6083
 ;;21,"63629-1531-03 ")
 ;;6084
 ;;21,"63629-1531-04 ")
 ;;6085
 ;;21,"63629-1531-05 ")
 ;;6086
 ;;21,"63629-1531-06 ")
 ;;6087
 ;;21,"63629-1531-07 ")
 ;;6088
 ;;21,"63629-1531-08 ")
 ;;6089
 ;;21,"63629-1531-09 ")
 ;;6090
 ;;21,"63629-1614-01 ")
 ;;3694
 ;;21,"63629-1614-02 ")
 ;;3695
 ;;21,"63629-1614-03 ")
 ;;3696
 ;;21,"63629-1615-01 ")
 ;;3873
 ;;21,"63629-1615-02 ")
 ;;3874
 ;;21,"63629-1615-03 ")
 ;;3875
 ;;21,"63629-1615-04 ")
 ;;3876
 ;;21,"63629-1615-05 ")
 ;;3877
 ;;21,"63629-1724-00 ")
 ;;4596
 ;;21,"63629-1724-01 ")
 ;;4597
 ;;21,"63629-1724-02 ")
 ;;4598
 ;;21,"63629-1724-03 ")
 ;;4599
 ;;21,"63629-1724-04 ")
 ;;4600
 ;;21,"63629-1724-05 ")
 ;;4601
 ;;21,"63629-1724-06 ")
 ;;4602
 ;;21,"63629-1724-07 ")
 ;;4603
 ;;21,"63629-1724-08 ")
 ;;4604
 ;;21,"63629-1724-09 ")
 ;;4605
 ;;21,"63629-1759-01 ")
 ;;364
 ;;21,"63629-1759-02 ")
 ;;365
 ;;21,"63629-1759-03 ")
 ;;366
 ;;21,"63629-1759-04 ")
 ;;367
 ;;21,"63629-1759-05 ")
 ;;368
 ;;21,"63629-1765-00 ")
 ;;5844
 ;;21,"63629-1765-01 ")
 ;;5845
 ;;21,"63629-1765-02 ")
 ;;5846
 ;;21,"63629-1765-03 ")
 ;;5847
 ;;21,"63629-1765-04 ")
 ;;5848
 ;;21,"63629-1765-05 ")
 ;;5849
 ;;21,"63629-1765-06 ")
 ;;5850
 ;;21,"63629-1765-07 ")
 ;;5851
 ;;21,"63629-1765-08 ")
 ;;5852
 ;;21,"63629-1765-09 ")
 ;;5853
 ;;21,"63629-1835-01 ")
 ;;3478
 ;;21,"63629-1835-02 ")
 ;;3479
 ;;21,"63629-2609-01 ")
 ;;811
 ;;21,"63629-2609-02 ")
 ;;812
 ;;21,"63629-2609-03 ")
 ;;813
 ;;21,"63629-2610-01 ")
 ;;877
 ;;21,"63629-2610-02 ")
 ;;878
 ;;21,"63629-2610-03 ")
 ;;879
 ;;21,"63629-2685-01 ")
 ;;3401
 ;;21,"63629-2685-02 ")
 ;;3402
 ;;21,"63629-2738-01 ")
 ;;3697
 ;;21,"63629-2738-02 ")
 ;;3698
 ;;21,"63629-2755-01 ")
 ;;3507
 ;;21,"63629-2755-02 ")
 ;;3508
 ;;21,"63629-2817-00 ")
 ;;2359
 ;;21,"63629-2817-01 ")
 ;;2360
 ;;21,"63629-2817-02 ")
 ;;2361
 ;;21,"63629-2817-03 ")
 ;;2362
 ;;21,"63629-2817-04 ")
 ;;2363
 ;;21,"63629-2817-05 ")
 ;;2364
 ;;21,"63629-2817-06 ")
 ;;2365
 ;;21,"63629-2817-07 ")
 ;;2366
 ;;21,"63629-2817-08 ")
 ;;2367
 ;;21,"63629-2817-09 ")
 ;;2368
 ;;21,"63629-2871-01 ")
 ;;772
 ;;21,"63629-2887-01 ")
 ;;3016
 ;;21,"63629-2887-02 ")
 ;;3017
 ;;21,"63629-2895-01 ")
 ;;1156
 ;;21,"63629-2924-01 ")
 ;;2489
 ;;21,"63629-2924-02 ")
 ;;2490
 ;;21,"63629-2924-03 ")
 ;;2491
 ;;21,"63629-2924-04 ")
 ;;2492
 ;;21,"63629-2924-05 ")
 ;;2493
 ;;21,"63629-2924-06 ")
 ;;2494
 ;;21,"63629-2924-07 ")
 ;;2495
 ;;21,"63629-3057-01 ")
 ;;5236
 ;;21,"63629-3868-01 ")
 ;;4757
 ;;21,"63629-3868-02 ")
 ;;4758
 ;;21,"63629-3868-03 ")
 ;;4759
 ;;21,"63629-3868-04 ")
 ;;4760
 ;;21,"63629-3868-05 ")
 ;;4761
 ;;21,"63739-0059-10 ")
 ;;2369
 ;;21,"63739-0228-10 ")
 ;;5854
 ;;21,"63739-0400-10 ")
 ;;4606
 ;;21,"63739-0427-10 ")
 ;;4301
 ;;21,"63739-0559-10 ")
 ;;4607
 ;;21,"63739-0575-09 ")
 ;;2740
 ;;21,"63739-0575-10 ")
 ;;2741
 ;;21,"63739-0700-10 ")
 ;;4302
 ;;21,"63874-0101-01 ")
 ;;281
 ;;21,"63874-0101-03 ")
 ;;282
 ;;21,"63874-0101-05 ")
 ;;283
 ;;21,"63874-0101-09 ")
 ;;284
 ;;21,"63874-0101-15 ")
 ;;285
 ;;21,"63874-0101-18 ")
 ;;286
 ;;21,"63874-0101-20 ")
 ;;287
 ;;21,"63874-0101-21 ")
 ;;288
 ;;21,"63874-0101-24 ")
 ;;289
 ;;21,"63874-0101-28 ")
 ;;290
 ;;21,"63874-0101-30 ")
 ;;291
 ;;21,"63874-0101-40 ")
 ;;292
 ;;21,"63874-0101-45 ")
 ;;293
 ;;21,"63874-0101-50 ")
 ;;294
 ;;21,"63874-0102-01 ")
 ;;664
 ;;21,"63874-0102-03 ")
 ;;665
 ;;21,"63874-0102-04 ")
 ;;666
 ;;21,"63874-0102-05 ")
 ;;667
 ;;21,"63874-0102-09 ")
 ;;668
 ;;21,"63874-0102-10 ")
 ;;669
 ;;21,"63874-0102-12 ")
 ;;670
 ;;21,"63874-0102-14 ")
 ;;671
 ;;21,"63874-0102-15 ")
 ;;672
 ;;21,"63874-0102-18 ")
 ;;673
 ;;21,"63874-0102-20 ")
 ;;674
 ;;21,"63874-0102-21 ")
 ;;675
 ;;21,"63874-0102-24 ")
 ;;676
 ;;21,"63874-0102-28 ")
 ;;677
 ;;21,"63874-0102-30 ")
 ;;678
 ;;21,"63874-0102-40 ")
 ;;679
 ;;21,"63874-0102-45 ")
 ;;680
 ;;21,"63874-0102-50 ")
 ;;681
 ;;21,"63874-0107-01 ")
 ;;4608
 ;;21,"63874-0107-02 ")
 ;;4609
 ;;21,"63874-0107-04 ")
 ;;4610
 ;;21,"63874-0107-06 ")
 ;;4611
 ;;21,"63874-0107-08 ")
 ;;4612
 ;;21,"63874-0107-09 ")
 ;;4613
 ;;21,"63874-0107-10 ")
 ;;4614
 ;;21,"63874-0107-12 ")
 ;;4615
 ;;21,"63874-0107-14 ")
 ;;4616
 ;;21,"63874-0107-15 ")
 ;;4617
 ;;21,"63874-0107-16 ")
 ;;4618
 ;;21,"63874-0107-20 ")
 ;;4619
 ;;21,"63874-0107-28 ")
 ;;4620
 ;;21,"63874-0107-30 ")
 ;;4621
 ;;21,"63874-0107-40 ")
 ;;4622