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

BGP62Z15.m

Go to the documentation of this file.
BGP62Z15 ;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,"64679-0107-02 ")
 ;;328
 ;;21,"64679-0107-03 ")
 ;;329
 ;;21,"64679-0716-01 ")
 ;;1355
 ;;21,"64679-0716-04 ")
 ;;1356
 ;;21,"64679-0716-05 ")
 ;;1357
 ;;21,"64679-0717-01 ")
 ;;1546
 ;;21,"64679-0717-04 ")
 ;;1547
 ;;21,"64679-0717-05 ")
 ;;1548
 ;;21,"64679-0718-01 ")
 ;;1238
 ;;21,"64679-0718-04 ")
 ;;1239
 ;;21,"64679-0718-05 ")
 ;;1240
 ;;21,"64679-0752-01 ")
 ;;3704
 ;;21,"64679-0752-04 ")
 ;;3705
 ;;21,"64679-0752-07 ")
 ;;3706
 ;;21,"64679-0753-01 ")
 ;;3435
 ;;21,"64679-0753-04 ")
 ;;3436
 ;;21,"64679-0753-07 ")
 ;;3437
 ;;21,"64720-0170-03 ")
 ;;1754
 ;;21,"64720-0170-10 ")
 ;;1755
 ;;21,"64720-0171-03 ")
 ;;1930
 ;;21,"64720-0171-10 ")
 ;;1931
 ;;21,"64720-0171-11 ")
 ;;1932
 ;;21,"64720-0172-03 ")
 ;;2080
 ;;21,"64720-0172-10 ")
 ;;2081
 ;;21,"64720-0172-11 ")
 ;;2082
 ;;21,"64764-0550-30 ")
 ;;459
 ;;21,"64764-0560-30 ")
 ;;457
 ;;21,"64764-0580-30 ")
 ;;458
 ;;21,"64980-0158-01 ")
 ;;5292
 ;;21,"64980-0159-01 ")
 ;;5285
 ;;21,"64980-0183-01 ")
 ;;467
 ;;21,"65084-0414-13 ")
 ;;241
 ;;21,"65162-0052-03 ")
 ;;1756
 ;;21,"65162-0052-10 ")
 ;;1757
 ;;21,"65162-0052-50 ")
 ;;1758
 ;;21,"65162-0053-03 ")
 ;;1933
 ;;21,"65162-0053-10 ")
 ;;1934
 ;;21,"65162-0053-50 ")
 ;;1935
 ;;21,"65162-0054-03 ")
 ;;2083
 ;;21,"65162-0054-10 ")
 ;;2084
 ;;21,"65162-0054-50 ")
 ;;2085
 ;;21,"65162-0300-09 ")
 ;;1298
 ;;21,"65162-0302-09 ")
 ;;1428
 ;;21,"65162-0305-09 ")
 ;;1176
 ;;21,"65162-0306-09 ")
 ;;1474
 ;;21,"65162-0307-09 ")
 ;;1646
 ;;21,"65162-0705-88 ")
 ;;2284
 ;;21,"65224-0880-31 ")
 ;;991
 ;;21,"65224-0880-90 ")
 ;;992
 ;;21,"65224-0890-31 ")
 ;;974
 ;;21,"65224-0890-90 ")
 ;;975
 ;;21,"65243-0006-03 ")
 ;;4358
 ;;21,"65243-0063-03 ")
 ;;3438
 ;;21,"65243-0310-03 ")
 ;;2086
 ;;21,"65243-0319-03 ")
 ;;2087
 ;;21,"65243-0327-03 ")
 ;;651
 ;;21,"65580-0301-03 ")
 ;;1443
 ;;21,"65580-0301-09 ")
 ;;1444
 ;;21,"65580-0302-03 ")
 ;;1660
 ;;21,"65580-0302-09 ")
 ;;1661
 ;;21,"65580-0303-03 ")
 ;;1264
 ;;21,"65580-0303-09 ")
 ;;1265
 ;;21,"65580-0304-03 ")
 ;;1268
 ;;21,"65580-0304-09 ")
 ;;1269
 ;;21,"65862-0001-01 ")
 ;;3991
 ;;21,"65862-0001-05 ")
 ;;3992
 ;;21,"65862-0001-30 ")
 ;;3993
 ;;21,"65862-0003-01 ")
 ;;3894
 ;;21,"65862-0003-03 ")
 ;;3895
 ;;21,"65862-0003-05 ")
 ;;3896
 ;;21,"65862-0003-30 ")
 ;;3897
 ;;21,"65862-0003-90 ")
 ;;3898
 ;;21,"65862-0005-01 ")
 ;;1759
 ;;21,"65862-0005-05 ")
 ;;1760
 ;;21,"65862-0005-30 ")
 ;;1761
 ;;21,"65862-0006-01 ")
 ;;1936
 ;;21,"65862-0006-05 ")
 ;;1937
 ;;21,"65862-0006-30 ")
 ;;1938
 ;;21,"65862-0007-01 ")
 ;;2088
 ;;21,"65862-0007-05 ")
 ;;2089
 ;;21,"65862-0007-30 ")
 ;;2090
 ;;21,"65862-0011-01 ")
 ;;3541
 ;;21,"65862-0011-05 ")
 ;;3542
 ;;21,"65862-0011-30 ")
 ;;3543
 ;;21,"65862-0011-90 ")
 ;;3544
 ;;21,"65862-0012-01 ")
 ;;3707
 ;;21,"65862-0012-05 ")
 ;;3708
 ;;21,"65862-0012-30 ")
 ;;3709
 ;;21,"65862-0012-90 ")
 ;;3710
 ;;21,"65862-0013-01 ")
 ;;3439
 ;;21,"65862-0013-05 ")
 ;;3440
 ;;21,"65862-0013-30 ")
 ;;3441
 ;;21,"65862-0013-90 ")
 ;;3442
 ;;21,"65862-0021-06 ")
 ;;3823
 ;;21,"65862-0022-06 ")
 ;;3919
 ;;21,"65862-0023-06 ")
 ;;3979
 ;;21,"65862-0031-01 ")
 ;;3801
 ;;21,"65862-0031-03 ")
 ;;3802
 ;;21,"65862-0031-05 ")
 ;;3803
 ;;21,"65862-0031-30 ")
 ;;3804
 ;;21,"65862-0031-90 ")
 ;;3805
 ;;21,"65862-0032-01 ")
 ;;3964
 ;;21,"65862-0032-03 ")
 ;;3965
 ;;21,"65862-0032-05 ")
 ;;3966
 ;;21,"65862-0032-30 ")
 ;;3967
 ;;21,"65862-0032-90 ")
 ;;3968
 ;;21,"65862-0074-24 ")
 ;;1775
 ;;21,"65862-0154-30 ")
 ;;2899
 ;;21,"65862-0155-05 ")
 ;;3085
 ;;21,"65862-0155-30 ")
 ;;3086
 ;;21,"65862-0155-99 ")
 ;;3087
 ;;21,"65862-0156-30 ")
 ;;3179
 ;;21,"65862-0156-99 ")
 ;;3180
 ;;21,"65862-0157-30 ")
 ;;3271
 ;;21,"65862-0157-99 ")
 ;;3272
 ;;21,"65862-0192-01 ")
 ;;2398
 ;;21,"65862-0192-05 ")
 ;;2399
 ;;21,"65862-0192-99 ")
 ;;2400
 ;;21,"65862-0193-01 ")
 ;;2629
 ;;21,"65862-0193-05 ")
 ;;2630
 ;;21,"65862-0193-99 ")
 ;;2631
 ;;21,"65862-0194-01 ")
 ;;2743
 ;;21,"65862-0194-05 ")
 ;;2744
 ;;21,"65862-0194-30 ")
 ;;2745
 ;;21,"65862-0194-99 ")
 ;;2746
 ;;21,"65862-0248-24 ")
 ;;2285
 ;;21,"65862-0373-01 ")
 ;;2274
 ;;21,"65862-0373-05 ")
 ;;2275
 ;;21,"65862-0374-01 ")
 ;;2173
 ;;21,"65862-0374-05 ")
 ;;2174
 ;;21,"65862-0375-01 ")
 ;;2239
 ;;21,"65862-0375-05 ")
 ;;2240
 ;;21,"65862-0404-01 ")
 ;;1299
 ;;21,"65862-0404-60 ")
 ;;1300
 ;;21,"65862-0405-01 ")
 ;;1429
 ;;21,"65862-0405-60 ")
 ;;1430
 ;;21,"65862-0405-90 ")
 ;;1431
 ;;21,"65862-0406-01 ")
 ;;1475
 ;;21,"65862-0406-30 ")
 ;;1476
 ;;21,"65862-0406-90 ")
 ;;1477
 ;;21,"65862-0407-01 ")
 ;;1647
 ;;21,"65862-0407-30 ")
 ;;1648
 ;;21,"65862-0408-01 ")
 ;;1177
 ;;21,"65862-0408-20 ")
 ;;1178
 ;;21,"65862-0527-01 ")
 ;;1358
 ;;21,"65862-0527-30 ")
 ;;1359
 ;;21,"65862-0527-90 ")
 ;;1360
 ;;21,"65862-0527-99 ")
 ;;1361
 ;;21,"65862-0528-01 ")
 ;;1549
 ;;21,"65862-0528-30 ")
 ;;1550
 ;;21,"65862-0528-90 ")
 ;;1551
 ;;21,"65862-0528-99 ")
 ;;1552
 ;;21,"65862-0529-30 ")
 ;;1241
 ;;21,"65862-0529-90 ")
 ;;1242
 ;;21,"65862-0697-01 ")
 ;;1243
 ;;21,"65862-0697-05 ")
 ;;1244
 ;;21,"65862-0697-30 ")
 ;;1245
 ;;21,"65862-0697-90 ")
 ;;1246
 ;;21,"66105-0111-10 ")
 ;;1362
 ;;21,"66105-0112-01 ")
 ;;1553
 ;;21,"66105-0112-03 ")
 ;;1554
 ;;21,"66105-0112-06 ")
 ;;1555
 ;;21,"66105-0112-10 ")
 ;;1556
 ;;21,"66105-0112-15 ")
 ;;1557
 ;;21,"66105-0116-03 ")
 ;;2900
 ;;21,"66105-0117-03 ")
 ;;3181
 ;;21,"66105-0118-10 ")
 ;;3088
 ;;21,"66105-0480-01 ")
 ;;137
 ;;21,"66105-0480-02 ")
 ;;138
 ;;21,"66105-0480-03 ")
 ;;139
 ;;21,"66105-0480-06 ")
 ;;140
 ;;21,"66105-0480-15 ")
 ;;141
 ;;21,"66105-0481-01 ")
 ;;242
 ;;21,"66105-0481-02 ")
 ;;243
 ;;21,"66105-0481-03 ")
 ;;244
 ;;21,"66105-0481-06 ")
 ;;245
 ;;21,"66105-0481-15 ")
 ;;246
 ;;21,"66105-0550-03 ")
 ;;3899
 ;;21,"66105-0564-03 ")
 ;;2632
 ;;21,"66105-0969-03 ")
 ;;2175
 ;;21,"66105-0977-03 ")
 ;;2241
 ;;21,"66267-0018-60 ")
 ;;4104
 ;;21,"66267-0018-90 ")
 ;;4105
 ;;21,"66267-0019-90 ")
 ;;4359
 ;;21,"66267-0488-60 ")
 ;;2633
 ;;21,"66267-0488-90 ")
 ;;2634
 ;;21,"66267-0560-90 ")
 ;;4178
 ;;21,"66267-0576-30 ")
 ;;2401
 ;;21,"66267-0587-30 ")
 ;;2747
 ;;21,"66267-0680-30 ")
 ;;4881
 ;;21,"66336-0004-30 ")
 ;;2635
 ;;21,"66336-0004-60 ")
 ;;2636
 ;;21,"66336-0014-30 ")
 ;;652
 ;;21,"66336-0014-60 ")
 ;;653
 ;;21,"66336-0027-30 ")
 ;;4360
 ;;21,"66336-0027-60 ")
 ;;4361
 ;;21,"66336-0224-30 ")
 ;;4179
 ;;21,"66336-0271-30 ")
 ;;2091
 ;;21,"66336-0354-30 ")
 ;;4106
 ;;21,"66336-0354-60 ")
 ;;4107
 ;;21,"66336-0354-90 ")
 ;;4108
 ;;21,"66336-0553-30 ")
 ;;4817
 ;;21,"66336-0620-28 ")
 ;;907
 ;;21,"66336-0620-30 ")
 ;;908
 ;;21,"66336-0620-60 ")
 ;;909
 ;;21,"66336-0621-60 ")
 ;;5251
 ;;21,"66336-0673-30 ")
 ;;4478
 ;;21,"66336-0673-50 ")
 ;;4479
 ;;21,"66336-0673-60 ")
 ;;4480
 ;;21,"66336-0757-60 ")
 ;;5201
 ;;21,"66336-0799-30 ")
 ;;3089
 ;;21,"66336-0838-14 ")
 ;;741
 ;;21,"66336-0844-30 ")
 ;;2402
 ;;21,"66336-0897-30 ")
 ;;247
 ;;21,"66336-0897-60 ")
 ;;248
 ;;21,"66336-0973-60 ")
 ;;5108
 ;;21,"66336-0993-30 ")
 ;;1939
 ;;21,"66993-0075-60 ")
 ;;1015
 ;;21,"66993-0076-30 ")
 ;;1067
 ;;21,"66993-0077-30 ")
 ;;1137
 ;;21,"66993-0662-60 ")
 ;;1016
 ;;21,"66993-0663-05 ")
 ;;1068
 ;;21,"66993-0663-30 ")
 ;;1069
 ;;21,"66993-0664-05 ")
 ;;1138
 ;;21,"66993-0664-30 ")
 ;;1139
 ;;21,"66993-0709-30 ")
 ;;3824
 ;;21,"66993-0711-30 ")
 ;;3920
 ;;21,"66993-0712-30 ")
 ;;3980
 ;;21,"67046-0010-30 ")
 ;;4362
 ;;21,"67046-0011-30 ")
 ;;4363
 ;;21,"67046-0012-30 ")
 ;;4481
 ;;21,"67046-0013-30 ")
 ;;4482
 ;;21,"67046-0014-30 ")
 ;;4538
 ;;21,"67046-0015-30 ")
 ;;4180
 ;;21,"67046-0016-30 ")
 ;;4539
 ;;21,"67046-0017-30 ")
 ;;4181
 ;;21,"67046-0107-30 ")
 ;;1762
 ;;21,"67046-0108-30 ")
 ;;1940
 ;;21,"67046-0109-30 ")
 ;;2092
 ;;21,"67046-0110-30 ")
 ;;1763
 ;;21,"67046-0111-30 ")
 ;;1941
 ;;21,"67046-0112-30 ")
 ;;1942
 ;;21,"67046-0113-30 ")
 ;;2093
 ;;21,"67046-0114-30 ")
 ;;1943
 ;;21,"67046-0115-30 ")
 ;;2094
 ;;21,"67046-0116-30 ")
 ;;2095
 ;;21,"67046-0131-30 ")
 ;;4882
 ;;21,"67046-0132-30 ")
 ;;4904
 ;;21,"67046-0133-30 ")
 ;;4752
 ;;21,"67046-0210-30 ")
 ;;2403
 ;;21,"67046-0210-60 ")
 ;;2404
 ;;21,"67046-0211-30 ")
 ;;2637
 ;;21,"67046-0211-60 ")
 ;;2638
 ;;21,"67046-0212-30 ")
 ;;2639
 ;;21,"67046-0212-60 ")
 ;;2640
 ;;21,"67544-0078-30 ")
 ;;5202
 ;;21,"67544-0078-53 ")
 ;;5203
 ;;21,"67544-0078-60 ")
 ;;5204
 ;;21,"67544-0078-70 ")
 ;;5205
 ;;21,"67544-0078-80 ")
 ;;5206
 ;;21,"67544-0078-92 ")
 ;;5207
 ;;21,"67544-0080-15 ")
 ;;3443
 ;;21,"67544-0085-30 ")
 ;;4364
 ;;21,"67544-0085-60 ")
 ;;4365
 ;;21,"67544-0162-30 ")
 ;;654
 ;;21,"67544-0169-15 ")
 ;;3900
 ;;21,"67544-0189-30 ")
 ;;1247
 ;;21,"67544-0190-30 ")
 ;;1558
 ;;21,"67544-0206-30 ")
 ;;4109
 ;;21,"67544-0253-30 ")
 ;;4483
 ;;21,"67544-0295-30 ")
 ;;2641
 ;;21,"67544-0298-15 ")
 ;;3711
 ;;21,"67544-0299-30 ")
 ;;249
 ;;21,"67544-0316-15 ")
 ;;910
 ;;21,"67544-0317-15 ")
 ;;3090
 ;;21,"67544-0331-30 ")
 ;;655
 ;;21,"67544-0360-15 ")
 ;;2096
 ;;21,"67544-0365-15 ")
 ;;2901
 ;;21,"67544-0366-15 ")
 ;;2097
 ;;21,"67544-0409-15 ")
 ;;2098
 ;;21,"67544-0429-15 ")
 ;;3806
 ;;21,"67544-0430-15 ")
 ;;3901
 ;;21,"67544-0434-15 ")
 ;;3273
 ;;21,"67544-0455-15 ")
 ;;3091
 ;;21,"67544-0464-82 ")
 ;;142
 ;;21,"67544-0499-82 ")
 ;;143
 ;;21,"67544-0500-15 ")
 ;;3182
 ;;21,"67544-0528-30 ")
 ;;2642
 ;;21,"67544-0547-30 ")
 ;;250
 ;;21,"67544-0848-30 ")
 ;;2643
 ;;21,"67544-0906-15 ")
 ;;2099
 ;;21,"67544-0906-73 ")
 ;;2100
 ;;21,"67544-0908-15 ")
 ;;3444
 ;;21,"67767-0117-60 ")
 ;;251
 ;;21,"67767-0133-05 ")
 ;;252
 ;;21,"67767-0133-25 ")
 ;;253
 ;;21,"67767-0133-60 ")
 ;;254
 ;;21,"67767-0135-60 ")
 ;;330
 ;;21,"67767-0141-30 ")
 ;;310
 ;;21,"67767-0141-90 ")
 ;;311
 ;;21,"67767-0142-05 ")
 ;;385
 ;;21,"67767-0142-30 ")
 ;;386
 ;;21,"67767-0142-90 ")
 ;;387
 ;;21,"67767-0171-60 ")
 ;;144
 ;;21,"67801-0204-10 ")
 ;;3712
 ;;21,"67801-0205-10 ")
 ;;3445
 ;;21,"67801-0310-30 ")
 ;;2242
 ;;21,"67801-0312-03 ")
 ;;1248
 ;;21,"67801-0321-03 ")
 ;;1363
 ;;21,"67801-0409-30 ")
 ;;2176
 ;;21,"67801-0411-03 ")
 ;;1559
 ;;21,"67801-0433-30 ")
 ;;312
 ;;21,"68001-0129-00 ")
 ;;2748
 ;;21,"68001-0129-03 ")
 ;;2749
 ;;21,"68001-0129-04 ")
 ;;2750
 ;;21,"68001-0156-00 ")
 ;;1179
 ;;21,"68001-0157-00 ")
 ;;1301
 ;;21,"68001-0158-00 ")
 ;;1432
 ;;21,"68001-0159-00 ")
 ;;1478
 ;;21,"68001-0160-00 ")
 ;;1649
 ;;21,"68001-0195-00 ")
 ;;2276
 ;;21,"68001-0196-00 ")
 ;;2177
 ;;21,"68001-0196-03 ")
 ;;2178
 ;;21,"68001-0197-00 ")
 ;;2243
 ;;21,"68001-0197-03 ")
 ;;2244
 ;;21,"68001-0198-00 ")
 ;;90
 ;;21,"68001-0199-00 ")
 ;;444
 ;;21,"68001-0255-06 ")
 ;;1017
 ;;21,"68001-0256-04 ")
 ;;1070
 ;;21,"68001-0256-05 ")
 ;;1071
 ;;21,"68001-0257-04 ")
 ;;1140
 ;;21,"68001-0261-04 ")
 ;;313
 ;;21,"68001-0264-03 ")
 ;;388
 ;;21,"68001-0264-04 ")
 ;;389
 ;;21,"68001-0264-05 ")
 ;;390