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

BGP62Y2.m

Go to the documentation of this file.
  1. BGP62Y2 ;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,"00115-1247-01 ")
  1. ;;6486
  1. ;;21,"00115-1247-08 ")
  1. ;;6487
  1. ;;21,"00115-1327-13 ")
  1. ;;6384
  1. ;;21,"00115-7017-01 ")
  1. ;;6509
  1. ;;21,"00115-7018-06 ")
  1. ;;6425
  1. ;;21,"00115-7018-13 ")
  1. ;;6426
  1. ;;21,"00115-7054-01 ")
  1. ;;6543
  1. ;;21,"00143-2037-01 ")
  1. ;;4323
  1. ;;21,"00143-2112-05 ")
  1. ;;6125
  1. ;;21,"00143-2112-50 ")
  1. ;;6126
  1. ;;21,"00143-3141-50 ")
  1. ;;6305
  1. ;;21,"00143-3142-05 ")
  1. ;;5935
  1. ;;21,"00143-3142-50 ")
  1. ;;5936
  1. ;;21,"00143-9567-01 ")
  1. ;;5061
  1. ;;21,"00143-9567-25 ")
  1. ;;5062
  1. ;;21,"00143-9568-01 ")
  1. ;;5097
  1. ;;21,"00143-9568-25 ")
  1. ;;5098
  1. ;;21,"00143-9569-01 ")
  1. ;;5081
  1. ;;21,"00143-9569-10 ")
  1. ;;5082
  1. ;;21,"00143-9720-01 ")
  1. ;;4133
  1. ;;21,"00143-9720-24 ")
  1. ;;4134
  1. ;;21,"00143-9721-01 ")
  1. ;;4121
  1. ;;21,"00143-9721-24 ")
  1. ;;4122
  1. ;;21,"00143-9722-01 ")
  1. ;;4110
  1. ;;21,"00143-9722-24 ")
  1. ;;4111
  1. ;;21,"00143-9803-05 ")
  1. ;;5937
  1. ;;21,"00143-9803-50 ")
  1. ;;5938
  1. ;;21,"00143-9853-16 ")
  1. ;;1177
  1. ;;21,"00143-9853-24 ")
  1. ;;1178
  1. ;;21,"00143-9853-75 ")
  1. ;;1179
  1. ;;21,"00143-9856-25 ")
  1. ;;6835
  1. ;;21,"00143-9857-25 ")
  1. ;;6775
  1. ;;21,"00143-9858-25 ")
  1. ;;6902
  1. ;;21,"00143-9859-01 ")
  1. ;;6866
  1. ;;21,"00143-9859-25 ")
  1. ;;6867
  1. ;;21,"00143-9886-01 ")
  1. ;;143
  1. ;;21,"00143-9886-50 ")
  1. ;;144
  1. ;;21,"00143-9886-75 ")
  1. ;;145
  1. ;;21,"00143-9887-01 ")
  1. ;;429
  1. ;;21,"00143-9887-50 ")
  1. ;;430
  1. ;;21,"00143-9887-75 ")
  1. ;;431
  1. ;;21,"00143-9888-01 ")
  1. ;;94
  1. ;;21,"00143-9888-15 ")
  1. ;;95
  1. ;;21,"00143-9888-80 ")
  1. ;;96
  1. ;;21,"00143-9889-01 ")
  1. ;;379
  1. ;;21,"00143-9889-15 ")
  1. ;;380
  1. ;;21,"00143-9889-80 ")
  1. ;;381
  1. ;;21,"00143-9897-01 ")
  1. ;;1811
  1. ;;21,"00143-9897-05 ")
  1. ;;1812
  1. ;;21,"00143-9898-01 ")
  1. ;;1584
  1. ;;21,"00143-9898-05 ")
  1. ;;1585
  1. ;;21,"00143-9923-90 ")
  1. ;;1366
  1. ;;21,"00143-9924-90 ")
  1. ;;1303
  1. ;;21,"00143-9927-01 ")
  1. ;;4161
  1. ;;21,"00143-9928-01 ")
  1. ;;4324
  1. ;;21,"00143-9929-50 ")
  1. ;;4684
  1. ;;21,"00143-9938-01 ")
  1. ;;174
  1. ;;21,"00143-9938-05 ")
  1. ;;175
  1. ;;21,"00143-9939-01 ")
  1. ;;469
  1. ;;21,"00143-9939-05 ")
  1. ;;470
  1. ;;21,"00143-9947-01 ")
  1. ;;1416
  1. ;;21,"00143-9947-50 ")
  1. ;;1417
  1. ;;21,"00143-9948-50 ")
  1. ;;1397
  1. ;;21,"00143-9951-01 ")
  1. ;;722
  1. ;;21,"00143-9951-20 ")
  1. ;;723
  1. ;;21,"00143-9976-03 ")
  1. ;;5083
  1. ;;21,"00143-9976-91 ")
  1. ;;5084
  1. ;;21,"00143-9977-22 ")
  1. ;;5063
  1. ;;21,"00143-9979-22 ")
  1. ;;5099
  1. ;;21,"00143-9981-01 ")
  1. ;;935
  1. ;;21,"00143-9981-50 ")
  1. ;;936
  1. ;;21,"00143-9981-75 ")
  1. ;;937
  1. ;;21,"00143-9982-01 ")
  1. ;;1015
  1. ;;21,"00143-9982-50 ")
  1. ;;1016
  1. ;;21,"00143-9982-75 ")
  1. ;;1017
  1. ;;21,"00143-9983-03 ")
  1. ;;1332
  1. ;;21,"00143-9983-91 ")
  1. ;;1333
  1. ;;21,"00143-9985-01 ")
  1. ;;5129
  1. ;;21,"00143-9986-01 ")
  1. ;;5193
  1. ;;21,"00172-2407-00 ")
  1. ;;6663
  1. ;;21,"00172-2407-10 ")
  1. ;;6664
  1. ;;21,"00172-2407-60 ")
  1. ;;6665
  1. ;;21,"00172-2407-80 ")
  1. ;;6666
  1. ;;21,"00172-2416-00 ")
  1. ;;6574
  1. ;;21,"00172-2416-10 ")
  1. ;;6575
  1. ;;21,"00172-2416-60 ")
  1. ;;6576
  1. ;;21,"00172-2416-80 ")
  1. ;;6577
  1. ;;21,"00172-3626-10 ")
  1. ;;6127
  1. ;;21,"00172-3626-48 ")
  1. ;;6128
  1. ;;21,"00172-3626-70 ")
  1. ;;6129
  1. ;;21,"00172-4058-48 ")
  1. ;;1418
  1. ;;21,"00172-4058-60 ")
  1. ;;1419
  1. ;;21,"00172-4626-60 ")
  1. ;;5909
  1. ;;21,"00172-4626-70 ")
  1. ;;5910
  1. ;;21,"00172-5311-00 ")
  1. ;;4162
  1. ;;21,"00172-5311-10 ")
  1. ;;4163
  1. ;;21,"00172-5311-60 ")
  1. ;;4164
  1. ;;21,"00172-5312-00 ")
  1. ;;4325
  1. ;;21,"00172-5312-10 ")
  1. ;;4326
  1. ;;21,"00172-5312-60 ")
  1. ;;4327
  1. ;;21,"00172-5312-70 ")
  1. ;;4328
  1. ;;21,"00172-5313-00 ")
  1. ;;4685
  1. ;;21,"00172-5313-10 ")
  1. ;;4686
  1. ;;21,"00172-5313-60 ")
  1. ;;4687
  1. ;;21,"00173-0352-10 ")
  1. ;;5100
  1. ;;21,"00173-0354-10 ")
  1. ;;5064
  1. ;;21,"00173-0387-00 ")
  1. ;;5358
  1. ;;21,"00173-0394-00 ")
  1. ;;5451
  1. ;;21,"00173-0400-00 ")
  1. ;;5085
  1. ;;21,"00173-0424-00 ")
  1. ;;5120
  1. ;;21,"00173-0425-00 ")
  1. ;;5117
  1. ;;21,"00173-0436-00 ")
  1. ;;5101
  1. ;;21,"00173-0437-00 ")
  1. ;;5065
  1. ;;21,"00173-0740-00 ")
  1. ;;5352
  1. ;;21,"00173-0741-00 ")
  1. ;;5440
  1. ;;21,"00173-0741-10 ")
  1. ;;5441
  1. ;;21,"00179-0021-88 ")
  1. ;;2940
  1. ;;21,"00179-0023-88 ")
  1. ;;2206
  1. ;;21,"00179-0024-88 ")
  1. ;;2417
  1. ;;21,"00179-0033-70 ")
  1. ;;2855
  1. ;;21,"00179-0054-14 ")
  1. ;;4329
  1. ;;21,"00179-0054-20 ")
  1. ;;4330
  1. ;;21,"00179-0076-88 ")
  1. ;;2941
  1. ;;21,"00179-1982-01 ")
  1. ;;4331
  1. ;;21,"00179-1982-14 ")
  1. ;;4332
  1. ;;21,"00179-1982-20 ")
  1. ;;4333
  1. ;;21,"00182-0679-00 ")
  1. ;;6667
  1. ;;21,"00182-0679-89 ")
  1. ;;6668
  1. ;;21,"00182-1035-00 ")
  1. ;;5939
  1. ;;21,"00182-1035-89 ")
  1. ;;5940
  1. ;;21,"00182-1535-00 ")
  1. ;;6130
  1. ;;21,"00182-1535-89 ")
  1. ;;6131
  1. ;;21,"00182-2631-01 ")
  1. ;;4165
  1. ;;21,"00182-2721-36 ")
  1. ;;4334
  1. ;;21,"00185-0036-01 ")
  1. ;;6401
  1. ;;21,"00185-0106-01 ")
  1. ;;6412
  1. ;;21,"00185-0112-01 ")
  1. ;;5623
  1. ;;21,"00185-0112-05 ")
  1. ;;5624
  1. ;;21,"00185-0216-52 ")
  1. ;;6367
  1. ;;21,"00185-0216-53 ")
  1. ;;6368
  1. ;;21,"00185-0275-60 ")
  1. ;;3041
  1. ;;21,"00185-0805-01 ")
  1. ;;6395
  1. ;;21,"00185-0810-01 ")
  1. ;;6349
  1. ;;21,"00185-0810-52 ")
  1. ;;6350
  1. ;;21,"00185-0810-53 ")
  1. ;;6351
  1. ;;21,"00185-7203-70 ")
  1. ;;2555
  1. ;;21,"00185-7206-70 ")
  1. ;;2579
  1. ;;21,"00185-7209-69 ")
  1. ;;2580
  1. ;;21,"00185-7212-68 ")
  1. ;;2581
  1. ;;21,"00228-2895-06 ")
  1. ;;6343
  1. ;;21,"00228-2896-11 ")
  1. ;;6119
  1. ;;21,"00247-0001-33 ")
  1. ;;176
  1. ;;21,"00247-0001-56 ")
  1. ;;177
  1. ;;21,"00247-0001-69 ")
  1. ;;178
  1. ;;21,"00247-0002-12 ")
  1. ;;471
  1. ;;21,"00247-0002-16 ")
  1. ;;472
  1. ;;21,"00247-0002-22 ")
  1. ;;473
  1. ;;21,"00247-0002-25 ")
  1. ;;474
  1. ;;21,"00247-0002-32 ")
  1. ;;475
  1. ;;21,"00247-0002-33 ")
  1. ;;476
  1. ;;21,"00247-0002-50 ")
  1. ;;477
  1. ;;21,"00247-0002-69 ")
  1. ;;478
  1. ;;21,"00247-0002-80 ")
  1. ;;479
  1. ;;21,"00247-0003-03 ")
  1. ;;1586
  1. ;;21,"00247-0003-09 ")
  1. ;;1587
  1. ;;21,"00247-0003-32 ")
  1. ;;1588
  1. ;;21,"00247-0005-03 ")
  1. ;;1813
  1. ;;21,"00247-0005-24 ")
  1. ;;1814
  1. ;;21,"00247-0005-56 ")
  1. ;;1815
  1. ;;21,"00247-0006-17 ")
  1. ;;5941
  1. ;;21,"00247-0006-21 ")
  1. ;;5942
  1. ;;21,"00247-0006-60 ")
  1. ;;5943
  1. ;;21,"00247-0008-00 ")
  1. ;;3166
  1. ;;21,"00247-0008-02 ")
  1. ;;3167
  1. ;;21,"00247-0008-03 ")
  1. ;;3168
  1. ;;21,"00247-0008-04 ")
  1. ;;3169
  1. ;;21,"00247-0008-05 ")
  1. ;;3170
  1. ;;21,"00247-0008-06 ")
  1. ;;3171
  1. ;;21,"00247-0008-09 ")
  1. ;;3172
  1. ;;21,"00247-0008-10 ")
  1. ;;3173
  1. ;;21,"00247-0008-15 ")
  1. ;;3174
  1. ;;21,"00247-0008-18 ")
  1. ;;3175
  1. ;;21,"00247-0008-20 ")
  1. ;;3176
  1. ;;21,"00247-0008-21 ")
  1. ;;3177
  1. ;;21,"00247-0008-24 ")
  1. ;;3178
  1. ;;21,"00247-0008-30 ")
  1. ;;3179
  1. ;;21,"00247-0008-42 ")
  1. ;;3180
  1. ;;21,"00247-0008-98 ")
  1. ;;3181
  1. ;;21,"00247-0009-00 ")
  1. ;;3543
  1. ;;21,"00247-0009-78 ")
  1. ;;3544
  1. ;;21,"00247-0009-79 ")
  1. ;;3545
  1. ;;21,"00247-0014-00 ")
  1. ;;3721
  1. ;;21,"00247-0014-79 ")
  1. ;;3722
  1. ;;21,"00247-0022-05 ")
  1. ;;382
  1. ;;21,"00247-0022-10 ")
  1. ;;383
  1. ;;21,"00247-0023-02 ")
  1. ;;311
  1. ;;21,"00247-0023-04 ")
  1. ;;312
  1. ;;21,"00247-0023-06 ")
  1. ;;313
  1. ;;21,"00247-0023-08 ")
  1. ;;314
  1. ;;21,"00247-0025-00 ")
  1. ;;979
  1. ;;21,"00247-0025-75 ")
  1. ;;980
  1. ;;21,"00247-0025-78 ")
  1. ;;981
  1. ;;21,"00247-0027-01 ")
  1. ;;1054
  1. ;;21,"00247-0027-02 ")
  1. ;;1055
  1. ;;21,"00247-0027-03 ")
  1. ;;1056
  1. ;;21,"00247-0027-07 ")
  1. ;;1057
  1. ;;21,"00247-0027-10 ")
  1. ;;1058
  1. ;;21,"00247-0027-30 ")
  1. ;;1059
  1. ;;21,"00247-0028-01 ")
  1. ;;5130
  1. ;;21,"00247-0028-03 ")
  1. ;;5131
  1. ;;21,"00247-0028-06 ")
  1. ;;5132
  1. ;;21,"00247-0035-00 ")
  1. ;;915
  1. ;;21,"00247-0035-75 ")
  1. ;;916
  1. ;;21,"00247-0035-78 ")
  1. ;;917
  1. ;;21,"00247-0054-75 ")
  1. ;;5164
  1. ;;21,"00247-0054-78 ")
  1. ;;5165
  1. ;;21,"00247-0055-00 ")
  1. ;;5184
  1. ;;21,"00247-0055-50 ")
  1. ;;5185
  1. ;;21,"00247-0063-00 ")
  1. ;;5625
  1. ;;21,"00247-0063-01 ")
  1. ;;5626
  1. ;;21,"00247-0063-02 ")
  1. ;;5627
  1. ;;21,"00247-0063-03 ")
  1. ;;5628
  1. ;;21,"00247-0063-04 ")
  1. ;;5629
  1. ;;21,"00247-0063-06 ")
  1. ;;5630
  1. ;;21,"00247-0063-07 ")
  1. ;;5631
  1. ;;21,"00247-0063-08 ")
  1. ;;5632
  1. ;;21,"00247-0063-10 ")
  1. ;;5633
  1. ;;21,"00247-0063-12 ")
  1. ;;5634
  1. ;;21,"00247-0063-14 ")
  1. ;;5635
  1. ;;21,"00247-0063-15 ")
  1. ;;5636
  1. ;;21,"00247-0063-16 ")
  1. ;;5637
  1. ;;21,"00247-0063-19 ")
  1. ;;5638
  1. ;;21,"00247-0063-20 ")
  1. ;;5639
  1. ;;21,"00247-0063-28 ")
  1. ;;5640
  1. ;;21,"00247-0063-30 ")
  1. ;;5641
  1. ;;21,"00247-0063-40 ")
  1. ;;5642
  1. ;;21,"00247-0063-42 ")
  1. ;;5643
  1. ;;21,"00247-0063-56 ")
  1. ;;5644
  1. ;;21,"00247-0063-60 ")
  1. ;;5645
  1. ;;21,"00247-0063-98 ")
  1. ;;5646
  1. ;;21,"00247-0066-00 ")
  1. ;;6669
  1. ;;21,"00247-0066-04 ")
  1. ;;6670
  1. ;;21,"00247-0066-05 ")
  1. ;;6671
  1. ;;21,"00247-0066-10 ")
  1. ;;6672
  1. ;;21,"00247-0066-12 ")
  1. ;;6673
  1. ;;21,"00247-0066-20 ")
  1. ;;6674
  1. ;;21,"00247-0066-21 ")
  1. ;;6675
  1. ;;21,"00247-0066-28 ")
  1. ;;6676
  1. ;;21,"00247-0066-30 ")
  1. ;;6677
  1. ;;21,"00247-0066-40 ")
  1. ;;6678
  1. ;;21,"00247-0066-60 ")
  1. ;;6679
  1. ;;21,"00247-0066-99 ")
  1. ;;6680
  1. ;;21,"00247-0067-00 ")
  1. ;;6578
  1. ;;21,"00247-0067-04 ")
  1. ;;6579
  1. ;;21,"00247-0067-08 ")
  1. ;;6580
  1. ;;21,"00247-0067-10 ")
  1. ;;6581
  1. ;;21,"00247-0067-12 ")
  1. ;;6582
  1. ;;21,"00247-0067-15 ")
  1. ;;6583
  1. ;;21,"00247-0067-16 ")
  1. ;;6584
  1. ;;21,"00247-0067-20 ")
  1. ;;6585
  1. ;;21,"00247-0067-21 ")
  1. ;;6586
  1. ;;21,"00247-0067-28 ")
  1. ;;6587
  1. ;;21,"00247-0067-30 ")
  1. ;;6588
  1. ;;21,"00247-0067-40 ")
  1. ;;6589
  1. ;;21,"00247-0067-52 ")
  1. ;;6590
  1. ;;21,"00247-0067-56 ")
  1. ;;6591
  1. ;;21,"00247-0067-60 ")
  1. ;;6592
  1. ;;21,"00247-0067-90 ")
  1. ;;6593
  1. ;;21,"00247-0067-99 ")
  1. ;;6594
  1. ;;21,"00247-0068-01 ")
  1. ;;3745
  1. ;;21,"00247-0068-02 ")
  1. ;;3746
  1. ;;21,"00247-0068-03 ")
  1. ;;3747
  1. ;;21,"00247-0068-04 ")
  1. ;;3748
  1. ;;21,"00247-0068-06 ")
  1. ;;3749
  1. ;;21,"00247-0068-08 ")
  1. ;;3750
  1. ;;21,"00247-0068-10 ")
  1. ;;3751
  1. ;;21,"00247-0068-12 ")
  1. ;;3752
  1. ;;21,"00247-0068-14 ")
  1. ;;3753
  1. ;;21,"00247-0068-15 ")
  1. ;;3754
  1. ;;21,"00247-0068-16 ")
  1. ;;3755
  1. ;;21,"00247-0068-18 ")
  1. ;;3756
  1. ;;21,"00247-0068-20 ")
  1. ;;3757
  1. ;;21,"00247-0068-21 ")
  1. ;;3758
  1. ;;21,"00247-0068-24 ")
  1. ;;3759
  1. ;;21,"00247-0068-25 ")
  1. ;;3760
  1. ;;21,"00247-0068-28 ")
  1. ;;3761
  1. ;;21,"00247-0068-30 ")
  1. ;;3762
  1. ;;21,"00247-0068-32 ")
  1. ;;3763
  1. ;;21,"00247-0068-40 ")
  1. ;;3764
  1. ;;21,"00247-0068-98 ")
  1. ;;3765
  1. ;;21,"00247-0069-02 ")
  1. ;;3618
  1. ;;21,"00247-0096-00 ")
  1. ;;5514
  1. ;;21,"00247-0096-05 ")
  1. ;;5515
  1. ;;21,"00247-0096-20 ")
  1. ;;5516
  1. ;;21,"00247-0096-23 ")
  1. ;;5517
  1. ;;21,"00247-0096-30 ")
  1. ;;5518
  1. ;;21,"00247-0096-33 ")
  1. ;;5519
  1. ;;21,"00247-0096-38 ")
  1. ;;5520
  1. ;;21,"00247-0096-49 ")
  1. ;;5521
  1. ;;21,"00247-0096-50 ")
  1. ;;5522
  1. ;;21,"00247-0096-52 ")
  1. ;;5523
  1. ;;21,"00247-0096-59 ")
  1. ;;5524
  1. ;;21,"00247-0096-60 ")
  1. ;;5525
  1. ;;21,"00247-0096-77 ")
  1. ;;5526
  1. ;;21,"00247-0096-78 ")
  1. ;;5527
  1. ;;21,"00247-0096-79 ")
  1. ;;5528
  1. ;;21,"00247-0096-90 ")
  1. ;;5529
  1. ;;21,"00247-0096-95 ")
  1. ;;5530
  1. ;;21,"00247-0104-04 ")
  1. ;;3980
  1. ;;21,"00247-0106-00 ")
  1. ;;3601
  1. ;;21,"00247-0106-79 ")
  1. ;;3602
  1. ;;21,"00247-0110-01 ")
  1. ;;3054
  1. ;;21,"00247-0110-24 ")
  1. ;;3055
  1. ;;21,"00247-0110-98 ")
  1. ;;3056
  1. ;;21,"00247-0115-03 ")
  1. ;;2942
  1. ;;21,"00247-0115-04 ")
  1. ;;2943
  1. ;;21,"00247-0115-28 ")
  1. ;;2944
  1. ;;21,"00247-0116-02 ")
  1. ;;3409
  1. ;;21,"00247-0116-03 ")
  1. ;;3410
  1. ;;21,"00247-0116-04 ")
  1. ;;3411
  1. ;;21,"00247-0116-05 ")
  1. ;;3412
  1. ;;21,"00247-0116-06 ")
  1. ;;3413
  1. ;;21,"00247-0116-09 ")
  1. ;;3414
  1. ;;21,"00247-0116-15 ")
  1. ;;3415
  1. ;;21,"00247-0116-20 ")
  1. ;;3416
  1. ;;21,"00247-0116-21 ")
  1. ;;3417
  1. ;;21,"00247-0116-28 ")
  1. ;;3418
  1. ;;21,"00247-0116-30 ")
  1. ;;3419
  1. ;;21,"00247-0116-40 ")
  1. ;;3420
  1. ;;21,"00247-0116-42 ")
  1. ;;3421
  1. ;;21,"00247-0129-03 ")
  1. ;;3907
  1. ;;21,"00247-0129-04 ")
  1. ;;3908
  1. ;;21,"00247-0129-08 ")
  1. ;;3909
  1. ;;21,"00247-0129-12 ")
  1. ;;3910