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