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

BGP62Y20.m

Go to the documentation of this file.
BGP62Y20 ;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,"63874-0533-40 ")
 ;;1516
 ;;21,"63874-0533-44 ")
 ;;1517
 ;;21,"63874-0533-60 ")
 ;;1518
 ;;21,"63874-0533-72 ")
 ;;1519
 ;;21,"63874-0533-74 ")
 ;;1520
 ;;21,"63874-0533-77 ")
 ;;1521
 ;;21,"63874-0533-90 ")
 ;;1522
 ;;21,"63874-1086-01 ")
 ;;4626
 ;;21,"63874-1086-02 ")
 ;;4627
 ;;21,"63874-1086-03 ")
 ;;4628
 ;;21,"63874-1086-04 ")
 ;;4629
 ;;21,"63874-1086-05 ")
 ;;4630
 ;;21,"63874-1086-06 ")
 ;;4631
 ;;21,"63874-1112-02 ")
 ;;1293
 ;;21,"63874-1226-02 ")
 ;;1166
 ;;21,"64038-0033-01 ")
 ;;2091
 ;;21,"64038-0033-40 ")
 ;;2092
 ;;21,"64376-0130-01 ")
 ;;4838
 ;;21,"64376-0130-55 ")
 ;;4839
 ;;21,"64376-0131-01 ")
 ;;4945
 ;;21,"64376-0131-51 ")
 ;;4946
 ;;21,"64376-0131-55 ")
 ;;4947
 ;;21,"64376-0132-01 ")
 ;;4992
 ;;21,"64376-0132-55 ")
 ;;4993
 ;;21,"64455-0777-01 ")
 ;;7118
 ;;21,"64455-0777-02 ")
 ;;7119
 ;;21,"64455-0777-03 ")
 ;;7120
 ;;21,"64455-0777-04 ")
 ;;7121
 ;;21,"64679-0544-02 ")
 ;;4840
 ;;21,"64679-0544-03 ")
 ;;4841
 ;;21,"64679-0545-02 ")
 ;;4948
 ;;21,"64679-0545-03 ")
 ;;4949
 ;;21,"64679-0547-01 ")
 ;;4994
 ;;21,"64679-0547-02 ")
 ;;4995
 ;;21,"64679-0547-03 ")
 ;;4996
 ;;21,"64679-0701-01 ")
 ;;6890
 ;;21,"64679-0701-02 ")
 ;;6891
 ;;21,"64679-0701-03 ")
 ;;6892
 ;;21,"64679-0702-01 ")
 ;;6930
 ;;21,"64679-0702-02 ")
 ;;6931
 ;;21,"64679-0703-01 ")
 ;;6856
 ;;21,"64679-0703-02 ")
 ;;6857
 ;;21,"64679-0712-03 ")
 ;;5280
 ;;21,"64679-0713-01 ")
 ;;5344
 ;;21,"64679-0713-03 ")
 ;;5345
 ;;21,"64679-0921-01 ")
 ;;5421
 ;;21,"64679-0921-02 ")
 ;;5422
 ;;21,"64679-0922-01 ")
 ;;5492
 ;;21,"64679-0922-02 ")
 ;;5493
 ;;21,"64679-0949-01 ")
 ;;3018
 ;;21,"64679-0954-01 ")
 ;;2909
 ;;21,"64679-0961-01 ")
 ;;2747
 ;;21,"64679-0961-02 ")
 ;;2748
 ;;21,"64679-0961-04 ")
 ;;2749
 ;;21,"64679-0961-05 ")
 ;;2750
 ;;21,"64679-0961-06 ")
 ;;2751
 ;;21,"64679-0961-07 ")
 ;;2752
 ;;21,"64679-0961-08 ")
 ;;2753
 ;;21,"64679-0962-01 ")
 ;;2864
 ;;21,"64679-0964-01 ")
 ;;2836
 ;;21,"64679-0964-02 ")
 ;;2837
 ;;21,"64679-0964-03 ")
 ;;2838
 ;;21,"64679-0964-05 ")
 ;;2839
 ;;21,"64679-0964-06 ")
 ;;2840
 ;;21,"64679-0964-07 ")
 ;;2841
 ;;21,"64679-0983-01 ")
 ;;6812
 ;;21,"64679-0983-02 ")
 ;;6813
 ;;21,"64720-0152-10 ")
 ;;5924
 ;;21,"64860-0306-13 ")
 ;;1578
 ;;21,"64860-0306-40 ")
 ;;1579
 ;;21,"64860-0307-13 ")
 ;;1804
 ;;21,"64860-0307-40 ")
 ;;1805
 ;;21,"64980-0511-10 ")
 ;;2515
 ;;21,"65162-0202-01 ")
 ;;5872
 ;;21,"65162-0202-02 ")
 ;;5873
 ;;21,"65162-0202-08 ")
 ;;5874
 ;;21,"65162-0202-14 ")
 ;;5875
 ;;21,"65162-0313-01 ")
 ;;5876
 ;;21,"65162-0313-02 ")
 ;;5877
 ;;21,"65162-0313-08 ")
 ;;5878
 ;;21,"65162-0313-14 ")
 ;;5879
 ;;21,"65162-0468-19 ")
 ;;2516
 ;;21,"65224-0800-22 ")
 ;;7106
 ;;21,"65224-0802-02 ")
 ;;7122
 ;;21,"65224-0802-03 ")
 ;;7123
 ;;21,"65224-0802-04 ")
 ;;7124
 ;;21,"65224-0804-02 ")
 ;;7102
 ;;21,"65862-0014-01 ")
 ;;713
 ;;21,"65862-0014-05 ")
 ;;714
 ;;21,"65862-0015-01 ")
 ;;773
 ;;21,"65862-0015-05 ")
 ;;774
 ;;21,"65862-0016-01 ")
 ;;295
 ;;21,"65862-0016-05 ")
 ;;296
 ;;21,"65862-0017-01 ")
 ;;682
 ;;21,"65862-0017-05 ")
 ;;683
 ;;21,"65862-0018-01 ")
 ;;1753
 ;;21,"65862-0018-05 ")
 ;;1754
 ;;21,"65862-0018-40 ")
 ;;1755
 ;;21,"65862-0019-01 ")
 ;;2093
 ;;21,"65862-0019-05 ")
 ;;2094
 ;;21,"65862-0019-40 ")
 ;;2095
 ;;21,"65862-0034-20 ")
 ;;5423
 ;;21,"65862-0034-60 ")
 ;;5424
 ;;21,"65862-0035-20 ")
 ;;5494
 ;;21,"65862-0035-60 ")
 ;;5495
 ;;21,"65862-0068-01 ")
 ;;5281
 ;;21,"65862-0068-50 ")
 ;;5282
 ;;21,"65862-0069-01 ")
 ;;5346
 ;;21,"65862-0069-50 ")
 ;;5347
 ;;21,"65862-0070-01 ")
 ;;162
 ;;21,"65862-0070-50 ")
 ;;163
 ;;21,"65862-0070-75 ")
 ;;164
 ;;21,"65862-0071-01 ")
 ;;459
 ;;21,"65862-0071-50 ")
 ;;460
 ;;21,"65862-0071-75 ")
 ;;461
 ;;21,"65862-0076-01 ")
 ;;4303
 ;;21,"65862-0077-01 ")
 ;;4632
 ;;21,"65862-0078-50 ")
 ;;4762
 ;;21,"65862-0083-01 ")
 ;;1411
 ;;21,"65862-0084-01 ")
 ;;1547
 ;;21,"65862-0084-75 ")
 ;;1548
 ;;21,"65862-0085-01 ")
 ;;1523
 ;;21,"65862-0085-50 ")
 ;;1524
 ;;21,"65862-0095-01 ")
 ;;7071
 ;;21,"65862-0095-20 ")
 ;;7072
 ;;21,"65862-0096-01 ")
 ;;7090
 ;;21,"65862-0096-20 ")
 ;;7091
 ;;21,"65862-0099-01 ")
 ;;5263
 ;;21,"65862-0099-75 ")
 ;;5264
 ;;21,"65862-0100-01 ")
 ;;5320
 ;;21,"65862-0100-75 ")
 ;;5321
 ;;21,"65862-0140-01 ")
 ;;7099
 ;;21,"65862-0140-50 ")
 ;;7100
 ;;21,"65862-0141-01 ")
 ;;7079
 ;;21,"65862-0141-50 ")
 ;;7080
 ;;21,"65862-0175-01 ")
 ;;3712
 ;;21,"65862-0175-99 ")
 ;;3713
 ;;21,"65862-0176-01 ")
 ;;3893
 ;;21,"65862-0176-05 ")
 ;;3894
 ;;21,"65862-0176-99 ")
 ;;3895
 ;;21,"65862-0177-60 ")
 ;;7026
 ;;21,"65862-0185-01 ")
 ;;2383
 ;;21,"65862-0185-05 ")
 ;;2384
 ;;21,"65862-0186-01 ")
 ;;2496
 ;;21,"65862-0209-01 ")
 ;;6531
 ;;21,"65862-0210-01 ")
 ;;6551
 ;;21,"65862-0211-50 ")
 ;;6470
 ;;21,"65862-0218-01 ")
 ;;6961
 ;;21,"65862-0218-60 ")
 ;;6962
 ;;21,"65862-0219-01 ")
 ;;6989
 ;;21,"65862-0219-60 ")
 ;;6990
 ;;21,"65862-0225-60 ")
 ;;2910
 ;;21,"65862-0226-60 ")
 ;;3019
 ;;21,"65862-0419-01 ")
 ;;5616
 ;;21,"65862-0419-05 ")
 ;;5617
 ;;21,"65862-0420-01 ")
 ;;5880
 ;;21,"65862-0420-05 ")
 ;;5881
 ;;21,"65862-0496-47 ")
 ;;5572
 ;;21,"65862-0501-30 ")
 ;;975
 ;;21,"65862-0502-20 ")
 ;;1167
 ;;21,"65862-0503-01 ")
 ;;1294
 ;;21,"65862-0503-20 ")
 ;;1295
 ;;21,"65862-0533-01 ")
 ;;963
 ;;21,"65862-0533-50 ")
 ;;964
 ;;21,"65862-0533-75 ")
 ;;965
 ;;21,"65862-0534-01 ")
 ;;1044
 ;;21,"65862-0534-50 ")
 ;;1045
 ;;21,"65862-0534-75 ")
 ;;1046
 ;;21,"65862-0535-02 ")
 ;;1208
 ;;21,"65862-0535-13 ")
 ;;1209
 ;;21,"65862-0535-75 ")
 ;;1210
 ;;21,"65862-0536-50 ")
 ;;4842
 ;;21,"65862-0537-50 ")
 ;;4950
 ;;21,"65862-0538-20 ")
 ;;4997
 ;;21,"65862-0596-01 ")
 ;;2517
 ;;21,"65862-0603-30 ")
 ;;5044
 ;;21,"65862-0699-20 ")
 ;;5425
 ;;21,"65862-0699-60 ")
 ;;5426
 ;;21,"65862-0700-20 ")
 ;;5496
 ;;21,"65862-0700-60 ")
 ;;5497
 ;;21,"65862-0706-01 ")
 ;;129
 ;;21,"65862-0706-55 ")
 ;;130
 ;;21,"65862-0706-80 ")
 ;;131
 ;;21,"65862-0707-01 ")
 ;;420
 ;;21,"65862-0707-55 ")
 ;;421
 ;;21,"65862-0707-80 ")
 ;;422
 ;;21,"65862-0751-50 ")
 ;;7048
 ;;21,"65862-0752-50 ")
 ;;7057
 ;;21,"65862-0752-75 ")
 ;;7058
 ;;21,"66105-0108-10 ")
 ;;4304
 ;;21,"66105-0109-01 ")
 ;;4633
 ;;21,"66105-0109-02 ")
 ;;4634
 ;;21,"66105-0109-03 ")
 ;;4635
 ;;21,"66105-0109-06 ")
 ;;4636
 ;;21,"66105-0109-10 ")
 ;;4637
 ;;21,"66105-0477-05 ")
 ;;4843
 ;;21,"66105-0478-05 ")
 ;;4951
 ;;21,"66105-0507-01 ")
 ;;2754
 ;;21,"66105-0507-03 ")
 ;;2755
 ;;21,"66105-0507-06 ")
 ;;2756
 ;;21,"66105-0507-09 ")
 ;;2757
 ;;21,"66105-0507-10 ")
 ;;2758
 ;;21,"66105-0537-01 ")
 ;;5045
 ;;21,"66105-0537-03 ")
 ;;5046
 ;;21,"66105-0537-06 ")
 ;;5047
 ;;21,"66105-0537-09 ")
 ;;5048
 ;;21,"66105-0537-15 ")
 ;;5049
 ;;21,"66105-0653-01 ")
 ;;2842
 ;;21,"66105-0653-03 ")
 ;;2843
 ;;21,"66105-0653-05 ")
 ;;2844
 ;;21,"66105-0653-06 ")
 ;;2845
 ;;21,"66105-0653-19 ")
 ;;2846
 ;;21,"66105-0670-01 ")
 ;;2759
 ;;21,"66105-0670-03 ")
 ;;2760
 ;;21,"66105-0670-05 ")
 ;;2761
 ;;21,"66105-0670-06 ")
 ;;2762
 ;;21,"66105-0670-18 ")
 ;;2763
 ;;21,"66105-0743-01 ")
 ;;2911
 ;;21,"66105-0743-03 ")
 ;;2912
 ;;21,"66105-0743-06 ")
 ;;2913
 ;;21,"66105-0743-09 ")
 ;;2914
 ;;21,"66105-0743-15 ")
 ;;2915
 ;;21,"66105-0744-01 ")
 ;;3020
 ;;21,"66105-0744-03 ")
 ;;3021
 ;;21,"66105-0744-06 ")
 ;;3022
 ;;21,"66105-0744-09 ")
 ;;3023
 ;;21,"66105-0744-15 ")
 ;;3024
 ;;21,"66105-0745-01 ")
 ;;5427
 ;;21,"66105-0745-03 ")
 ;;5428
 ;;21,"66105-0745-06 ")
 ;;5429
 ;;21,"66105-0745-09 ")
 ;;5430
 ;;21,"66105-0745-15 ")
 ;;5431
 ;;21,"66267-0021-15 ")
 ;;297
 ;;21,"66267-0023-08 ")
 ;;684
 ;;21,"66267-0023-09 ")
 ;;685
 ;;21,"66267-0023-15 ")
 ;;686
 ;;21,"66267-0023-20 ")
 ;;687
 ;;21,"66267-0023-60 ")
 ;;688
 ;;21,"66267-0024-30 ")
 ;;829
 ;;21,"66267-0025-30 ")
 ;;892
 ;;21,"66267-0034-14 ")
 ;;3025
 ;;21,"66267-0034-20 ")
 ;;3026
 ;;21,"66267-0045-30 ")
 ;;1525
 ;;21,"66267-0050-05 ")
 ;;2096
 ;;21,"66267-0050-06 ")
 ;;2097
 ;;21,"66267-0050-10 ")
 ;;2098
 ;;21,"66267-0060-04 ")
 ;;2385
 ;;21,"66267-0060-06 ")
 ;;2386
 ;;21,"66267-0060-08 ")
 ;;2387
 ;;21,"66267-0060-10 ")
 ;;2388
 ;;21,"66267-0060-14 ")
 ;;2389
 ;;21,"66267-0060-21 ")
 ;;2390
 ;;21,"66267-0060-30 ")
 ;;2391
 ;;21,"66267-0060-40 ")
 ;;2392
 ;;21,"66267-0060-60 ")
 ;;2393
 ;;21,"66267-0196-30 ")
 ;;5882
 ;;21,"66267-0919-06 ")
 ;;4638
 ;;21,"66267-0919-10 ")
 ;;4639
 ;;21,"66267-0919-15 ")
 ;;4640
 ;;21,"66267-0919-28 ")
 ;;4641
 ;;21,"66267-0919-30 ")
 ;;4642
 ;;21,"66267-0919-60 ")
 ;;4643
 ;;21,"66336-0018-08 ")
 ;;2394
 ;;21,"66336-0018-14 ")
 ;;2395
 ;;21,"66336-0018-20 ")
 ;;2396
 ;;21,"66336-0018-28 ")
 ;;2397
 ;;21,"66336-0018-42 ")
 ;;2398
 ;;21,"66336-0037-03 ")
 ;;3156
 ;;21,"66336-0037-20 ")
 ;;3157
 ;;21,"66336-0037-28 ")
 ;;3158
 ;;21,"66336-0037-40 ")
 ;;3159
 ;;21,"66336-0055-06 ")
 ;;2099
 ;;21,"66336-0055-08 ")
 ;;2100
 ;;21,"66336-0055-10 ")
 ;;2101
 ;;21,"66336-0055-14 ")
 ;;2102
 ;;21,"66336-0055-20 ")
 ;;2103
 ;;21,"66336-0055-28 ")
 ;;2104
 ;;21,"66336-0055-30 ")
 ;;2105
 ;;21,"66336-0055-40 ")
 ;;2106
 ;;21,"66336-0074-20 ")
 ;;775
 ;;21,"66336-0077-20 ")
 ;;3350
 ;;21,"66336-0077-28 ")
 ;;3351
 ;;21,"66336-0077-40 ")
 ;;3352
 ;;21,"66336-0087-06 ")
 ;;5883
 ;;21,"66336-0087-10 ")
 ;;5884
 ;;21,"66336-0087-14 ")
 ;;5885
 ;;21,"66336-0087-20 ")
 ;;5886
 ;;21,"66336-0087-40 ")
 ;;5887
 ;;21,"66336-0095-06 ")
 ;;3896
 ;;21,"66336-0095-20 ")
 ;;3897
 ;;21,"66336-0095-28 ")
 ;;3898
 ;;21,"66336-0095-30 ")
 ;;3899
 ;;21,"66336-0095-40 ")
 ;;3900
 ;;21,"66336-0098-21 ")
 ;;3241
 ;;21,"66336-0098-30 ")
 ;;3242
 ;;21,"66336-0104-20 ")
 ;;7027
 ;;21,"66336-0109-14 ")
 ;;6106
 ;;21,"66336-0109-28 ")
 ;;6107
 ;;21,"66336-0109-30 ")
 ;;6108
 ;;21,"66336-0109-50 ")
 ;;6109
 ;;21,"66336-0113-30 ")
 ;;373
 ;;21,"66336-0168-06 ")
 ;;2764
 ;;21,"66336-0168-44 ")
 ;;2765
 ;;21,"66336-0202-30 ")
 ;;5161
 ;;21,"66336-0229-20 ")
 ;;4048
 ;;21,"66336-0229-56 ")
 ;;4049
 ;;21,"66336-0229-84 ")
 ;;4050
 ;;21,"66336-0293-30 ")
 ;;715
 ;;21,"66336-0347-20 ")
 ;;3027
 ;;21,"66336-0369-20 ")
 ;;5432
 ;;21,"66336-0400-05 ")
 ;;2847
 ;;21,"66336-0414-20 ")
 ;;3714
 ;;21,"66336-0414-28 ")
 ;;3715
 ;;21,"66336-0414-40 ")
 ;;3716
 ;;21,"66336-0433-14 ")
 ;;4305
 ;;21,"66336-0435-20 ")
 ;;6756
 ;;21,"66336-0435-28 ")
 ;;6757
 ;;21,"66336-0435-30 ")
 ;;6758
 ;;21,"66336-0435-40 ")
 ;;6759
 ;;21,"66336-0435-60 ")
 ;;6760
 ;;21,"66336-0441-03 ")
 ;;1756
 ;;21,"66336-0441-06 ")
 ;;1757
 ;;21,"66336-0441-08 ")
 ;;1758
 ;;21,"66336-0441-20 ")
 ;;1759
 ;;21,"66336-0441-28 ")
 ;;1760
 ;;21,"66336-0441-40 ")
 ;;1761
 ;;21,"66336-0449-14 ")
 ;;6287
 ;;21,"66336-0454-30 ")
 ;;5233
 ;;21,"66336-0480-20 ")
 ;;3975
 ;;21,"66336-0480-40 ")
 ;;3976
 ;;21,"66336-0580-28 ")
 ;;3160
 ;;21,"66336-0580-30 ")
 ;;3161
 ;;21,"66336-0593-40 ")
 ;;893
 ;;21,"66336-0609-06 ")
 ;;6658