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