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

BGP62Z8.m

Go to the documentation of this file.
BGP62Z8 ;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,"52959-0464-14 ")
 ;;4680
 ;;21,"52959-0464-20 ")
 ;;4681
 ;;21,"52959-0514-01 ")
 ;;4410
 ;;21,"52959-0514-10 ")
 ;;4411
 ;;21,"52959-0514-20 ")
 ;;4412
 ;;21,"52959-0514-21 ")
 ;;4413
 ;;21,"52959-0514-30 ")
 ;;4414
 ;;21,"52959-0514-60 ")
 ;;4415
 ;;21,"52959-0514-90 ")
 ;;4416
 ;;21,"52959-0519-15 ")
 ;;5232
 ;;21,"52959-0519-30 ")
 ;;5233
 ;;21,"52959-0519-60 ")
 ;;5234
 ;;21,"52959-0537-30 ")
 ;;4706
 ;;21,"52959-0537-90 ")
 ;;4707
 ;;21,"52959-0541-10 ")
 ;;4766
 ;;21,"52959-0541-20 ")
 ;;4767
 ;;21,"52959-0541-30 ")
 ;;4768
 ;;21,"52959-0541-60 ")
 ;;4769
 ;;21,"52959-0542-14 ")
 ;;4137
 ;;21,"52959-0542-15 ")
 ;;4138
 ;;21,"52959-0542-21 ")
 ;;4139
 ;;21,"52959-0542-28 ")
 ;;4140
 ;;21,"52959-0542-30 ")
 ;;4141
 ;;21,"52959-0542-40 ")
 ;;4142
 ;;21,"52959-0542-42 ")
 ;;4143
 ;;21,"52959-0550-30 ")
 ;;1519
 ;;21,"52959-0550-60 ")
 ;;1520
 ;;21,"52959-0638-04 ")
 ;;2757
 ;;21,"52959-0639-30 ")
 ;;2854
 ;;21,"52959-0655-00 ")
 ;;26
 ;;21,"52959-0655-02 ")
 ;;27
 ;;21,"52959-0655-30 ")
 ;;28
 ;;21,"52959-0655-40 ")
 ;;29
 ;;21,"52959-0655-60 ")
 ;;30
 ;;21,"52959-0655-90 ")
 ;;31
 ;;21,"52959-0662-30 ")
 ;;4837
 ;;21,"52959-0665-30 ")
 ;;2338
 ;;21,"52959-0669-30 ")
 ;;2339
 ;;21,"52959-0669-59 ")
 ;;2340
 ;;21,"52959-0669-60 ")
 ;;2341
 ;;21,"52959-0703-00 ")
 ;;2146
 ;;21,"52959-0703-30 ")
 ;;2147
 ;;21,"52959-0703-60 ")
 ;;2148
 ;;21,"52959-0704-00 ")
 ;;2223
 ;;21,"52959-0704-30 ")
 ;;2224
 ;;21,"52959-0704-60 ")
 ;;2225
 ;;21,"52959-0717-30 ")
 ;;2718
 ;;21,"52959-0732-00 ")
 ;;2520
 ;;21,"52959-0732-10 ")
 ;;2521
 ;;21,"52959-0732-14 ")
 ;;2522
 ;;21,"52959-0732-15 ")
 ;;2523
 ;;21,"52959-0732-20 ")
 ;;2524
 ;;21,"52959-0732-30 ")
 ;;2525
 ;;21,"52959-0732-40 ")
 ;;2526
 ;;21,"52959-0732-50 ")
 ;;2527
 ;;21,"52959-0732-60 ")
 ;;2528
 ;;21,"52959-0732-90 ")
 ;;2529
 ;;21,"52959-0771-60 ")
 ;;1333
 ;;21,"52959-0773-30 ")
 ;;1846
 ;;21,"52959-0773-52 ")
 ;;1847
 ;;21,"52959-0773-60 ")
 ;;1848
 ;;21,"52959-0774-30 ")
 ;;3767
 ;;21,"52959-0774-60 ")
 ;;3768
 ;;21,"52959-0775-30 ")
 ;;2855
 ;;21,"52959-0775-50 ")
 ;;2856
 ;;21,"52959-0775-60 ")
 ;;2857
 ;;21,"52959-0776-30 ")
 ;;3003
 ;;21,"52959-0776-60 ")
 ;;3004
 ;;21,"52959-0781-30 ")
 ;;3367
 ;;21,"52959-0781-60 ")
 ;;3368
 ;;21,"52959-0787-30 ")
 ;;3512
 ;;21,"52959-0791-30 ")
 ;;4943
 ;;21,"52959-0792-30 ")
 ;;3108
 ;;21,"52959-0805-60 ")
 ;;118
 ;;21,"52959-0806-30 ")
 ;;203
 ;;21,"52959-0806-60 ")
 ;;204
 ;;21,"52959-0818-30 ")
 ;;1601
 ;;21,"52959-0818-60 ")
 ;;1602
 ;;21,"52959-0820-60 ")
 ;;292
 ;;21,"52959-0840-60 ")
 ;;5266
 ;;21,"52959-0869-30 ")
 ;;366
 ;;21,"52959-0872-30 ")
 ;;3513
 ;;21,"52959-0872-60 ")
 ;;3514
 ;;21,"52959-0875-30 ")
 ;;3630
 ;;21,"52959-0875-60 ")
 ;;3631
 ;;21,"52959-0875-90 ")
 ;;3632
 ;;21,"52959-0876-30 ")
 ;;3369
 ;;21,"52959-0876-60 ")
 ;;3370
 ;;21,"52959-0890-30 ")
 ;;1603
 ;;21,"52959-0890-60 ")
 ;;1604
 ;;21,"52959-0890-90 ")
 ;;1605
 ;;21,"52959-0892-30 ")
 ;;1115
 ;;21,"52959-0892-60 ")
 ;;1116
 ;;21,"52959-0894-30 ")
 ;;687
 ;;21,"52959-0894-60 ")
 ;;688
 ;;21,"52959-0898-60 ")
 ;;419
 ;;21,"52959-0900-30 ")
 ;;5037
 ;;21,"52959-0901-30 ")
 ;;3769
 ;;21,"52959-0986-30 ")
 ;;2018
 ;;21,"52959-0991-30 ")
 ;;2421
 ;;21,"53489-0104-01 ")
 ;;4038
 ;;21,"53489-0106-01 ")
 ;;4417
 ;;21,"53489-0108-01 ")
 ;;4144
 ;;21,"53489-0330-01 ")
 ;;4909
 ;;21,"53489-0331-01 ")
 ;;4944
 ;;21,"53489-0332-01 ")
 ;;4986
 ;;21,"53489-0510-01 ")
 ;;828
 ;;21,"53489-0511-01 ")
 ;;582
 ;;21,"53489-0517-01 ")
 ;;689
 ;;21,"53808-0225-01 ")
 ;;1849
 ;;21,"53808-0226-01 ")
 ;;1850
 ;;21,"53808-0227-01 ")
 ;;2019
 ;;21,"53808-0350-01 ")
 ;;1712
 ;;21,"53808-0351-01 ")
 ;;1851
 ;;21,"53808-0366-01 ")
 ;;2342
 ;;21,"53808-0647-01 ")
 ;;2020
 ;;21,"53808-0986-01 ")
 ;;2530
 ;;21,"53808-0988-01 ")
 ;;2343
 ;;21,"54348-0511-30 ")
 ;;4418
 ;;21,"54458-0913-02 ")
 ;;3633
 ;;21,"54458-0922-05 ")
 ;;1852
 ;;21,"54458-0924-05 ")
 ;;3634
 ;;21,"54458-0944-05 ")
 ;;3635
 ;;21,"54458-0944-10 ")
 ;;3636
 ;;21,"54458-0945-10 ")
 ;;3371
 ;;21,"54458-0947-10 ")
 ;;3515
 ;;21,"54458-0960-10 ")
 ;;583
 ;;21,"54458-0961-10 ")
 ;;829
 ;;21,"54458-0980-10 ")
 ;;1853
 ;;21,"54458-0981-10 ")
 ;;1713
 ;;21,"54458-0988-10 ")
 ;;3152
 ;;21,"54458-0989-10 ")
 ;;3005
 ;;21,"54458-0990-10 ")
 ;;2858
 ;;21,"54569-0172-00 ")
 ;;4039
 ;;21,"54569-0172-01 ")
 ;;4040
 ;;21,"54569-0172-02 ")
 ;;4041
 ;;21,"54569-0172-04 ")
 ;;4042
 ;;21,"54569-0172-06 ")
 ;;4043
 ;;21,"54569-0172-08 ")
 ;;4044
 ;;21,"54569-0173-00 ")
 ;;920
 ;;21,"54569-0175-00 ")
 ;;4278
 ;;21,"54569-0175-01 ")
 ;;4279
 ;;21,"54569-0175-02 ")
 ;;4280
 ;;21,"54569-0175-03 ")
 ;;4281
 ;;21,"54569-0175-04 ")
 ;;4282
 ;;21,"54569-0175-05 ")
 ;;4283
 ;;21,"54569-0175-06 ")
 ;;4284
 ;;21,"54569-0175-08 ")
 ;;4285
 ;;21,"54569-0194-00 ")
 ;;4945
 ;;21,"54569-0194-02 ")
 ;;4946
 ;;21,"54569-0196-03 ")
 ;;4987
 ;;21,"54569-0196-04 ")
 ;;4988
 ;;21,"54569-0225-00 ")
 ;;5069
 ;;21,"54569-0404-00 ")
 ;;4631
 ;;21,"54569-1470-00 ")
 ;;830
 ;;21,"54569-1470-01 ")
 ;;831
 ;;21,"54569-1470-06 ")
 ;;832
 ;;21,"54569-1470-08 ")
 ;;833
 ;;21,"54569-1470-09 ")
 ;;834
 ;;21,"54569-1519-01 ")
 ;;4419
 ;;21,"54569-1519-02 ")
 ;;4420
 ;;21,"54569-1519-03 ")
 ;;4421
 ;;21,"54569-1696-00 ")
 ;;4838
 ;;21,"54569-1696-01 ")
 ;;4839
 ;;21,"54569-1701-02 ")
 ;;4682
 ;;21,"54569-1732-02 ")
 ;;2531
 ;;21,"54569-1732-03 ")
 ;;2532
 ;;21,"54569-1732-04 ")
 ;;2533
 ;;21,"54569-1732-05 ")
 ;;2534
 ;;21,"54569-1732-06 ")
 ;;2535
 ;;21,"54569-1864-01 ")
 ;;4513
 ;;21,"54569-1864-02 ")
 ;;4514
 ;;21,"54569-1999-00 ")
 ;;584
 ;;21,"54569-1999-01 ")
 ;;585
 ;;21,"54569-1999-02 ")
 ;;586
 ;;21,"54569-1999-03 ")
 ;;587
 ;;21,"54569-2006-00 ")
 ;;4595
 ;;21,"54569-2146-01 ")
 ;;4145
 ;;21,"54569-2146-02 ")
 ;;4146
 ;;21,"54569-2179-00 ")
 ;;4770
 ;;21,"54569-2179-01 ")
 ;;4771
 ;;21,"54569-2462-00 ")
 ;;4708
 ;;21,"54569-2726-00 ")
 ;;4910
 ;;21,"54569-3575-00 ")
 ;;3372
 ;;21,"54569-3575-01 ")
 ;;3373
 ;;21,"54569-3724-00 ")
 ;;3637
 ;;21,"54569-3724-01 ")
 ;;3638
 ;;21,"54569-3724-03 ")
 ;;3639
 ;;21,"54569-3724-04 ")
 ;;3640
 ;;21,"54569-3724-05 ")
 ;;3641
 ;;21,"54569-3732-01 ")
 ;;690
 ;;21,"54569-3732-02 ")
 ;;691
 ;;21,"54569-3732-03 ")
 ;;692
 ;;21,"54569-3810-00 ")
 ;;3006
 ;;21,"54569-3849-00 ")
 ;;5154
 ;;21,"54569-3849-01 ")
 ;;5155
 ;;21,"54569-3894-00 ")
 ;;5156
 ;;21,"54569-4129-00 ")
 ;;2344
 ;;21,"54569-4131-01 ")
 ;;1397
 ;;21,"54569-4132-01 ")
 ;;1606
 ;;21,"54569-4146-00 ")
 ;;5070
 ;;21,"54569-4146-01 ")
 ;;5071
 ;;21,"54569-4529-00 ")
 ;;3516
 ;;21,"54569-4529-01 ")
 ;;3517
 ;;21,"54569-4529-02 ")
 ;;3518
 ;;21,"54569-4659-00 ")
 ;;1521
 ;;21,"54569-4703-01 ")
 ;;1854
 ;;21,"54569-4787-00 ")
 ;;2859
 ;;21,"54569-4879-00 ")
 ;;2021
 ;;21,"54569-5231-00 ")
 ;;1212
 ;;21,"54569-5265-00 ")
 ;;1334
 ;;21,"54569-5291-00 ")
 ;;2536
 ;;21,"54569-5291-01 ")
 ;;2537
 ;;21,"54569-5291-03 ")
 ;;2538
 ;;21,"54569-5319-00 ")
 ;;2345
 ;;21,"54569-5319-01 ")
 ;;2346
 ;;21,"54569-5319-02 ")
 ;;2347
 ;;21,"54569-5320-01 ")
 ;;2719
 ;;21,"54569-5391-00 ")
 ;;32
 ;;21,"54569-5391-02 ")
 ;;33
 ;;21,"54569-5391-03 ")
 ;;34
 ;;21,"54569-5483-00 ")
 ;;2149
 ;;21,"54569-5484-00 ")
 ;;2226
 ;;21,"54569-5541-00 ")
 ;;3007
 ;;21,"54569-5541-01 ")
 ;;3008
 ;;21,"54569-5541-02 ")
 ;;3009
 ;;21,"54569-5568-00 ")
 ;;119
 ;;21,"54569-5569-00 ")
 ;;205
 ;;21,"54569-5598-00 ")
 ;;3109
 ;;21,"54569-5599-00 ")
 ;;367
 ;;21,"54569-5626-00 ")
 ;;1855
 ;;21,"54569-5626-01 ")
 ;;1856
 ;;21,"54569-5626-02 ")
 ;;1857
 ;;21,"54569-5627-00 ")
 ;;2022
 ;;21,"54569-5627-01 ")
 ;;2023
 ;;21,"54569-5678-00 ")
 ;;1117
 ;;21,"54569-5682-00 ")
 ;;3235
 ;;21,"54569-5682-01 ")
 ;;3236
 ;;21,"54569-5818-00 ")
 ;;3642
 ;;21,"54569-5818-01 ")
 ;;3643
 ;;21,"54569-5818-02 ")
 ;;3644
 ;;21,"54569-5819-00 ")
 ;;3374
 ;;21,"54569-5819-01 ")
 ;;3375
 ;;21,"54569-5819-02 ")
 ;;3376
 ;;21,"54569-5872-00 ")
 ;;1607
 ;;21,"54569-5895-00 ")
 ;;3770
 ;;21,"54569-5941-01 ")
 ;;1049
 ;;21,"54569-5968-00 ")
 ;;3861
 ;;21,"54569-5968-02 ")
 ;;3862
 ;;21,"54569-5969-00 ")
 ;;368
 ;;21,"54569-6160-00 ")
 ;;206
 ;;21,"54569-6192-00 ")
 ;;3519
 ;;21,"54569-6226-00 ")
 ;;1522
 ;;21,"54569-6227-00 ")
 ;;1213
 ;;21,"54569-6304-00 ")
 ;;2150
 ;;21,"54569-6305-00 ")
 ;;2227
 ;;21,"54569-6318-00 ")
 ;;2860
 ;;21,"54569-6322-00 ")
 ;;1714
 ;;21,"54569-8013-00 ")
 ;;2539
 ;;21,"54569-8522-00 ")
 ;;2540
 ;;21,"54569-8522-01 ")
 ;;2541
 ;;21,"54569-8579-00 ")
 ;;3645
 ;;21,"54569-8609-00 ")
 ;;3010
 ;;21,"54569-8702-00 ")
 ;;1118
 ;;21,"54569-8703-00 ")
 ;;1050
 ;;21,"54569-8703-01 ")
 ;;1051
 ;;21,"54738-0912-01 ")
 ;;4911
 ;;21,"54738-0913-01 ")
 ;;4947
 ;;21,"54738-0914-01 ")
 ;;4989
 ;;21,"54838-0512-40 ")
 ;;4730
 ;;21,"54838-0523-40 ")
 ;;2679
 ;;21,"54838-0540-70 ")
 ;;1773
 ;;21,"54838-0551-70 ")
 ;;2283
 ;;21,"54868-0062-02 ")
 ;;4772
 ;;21,"54868-0062-04 ")
 ;;4773
 ;;21,"54868-0064-02 ")
 ;;4045
 ;;21,"54868-0064-03 ")
 ;;4046
 ;;21,"54868-0064-04 ")
 ;;4047
 ;;21,"54868-0064-05 ")
 ;;4048
 ;;21,"54868-0064-06 ")
 ;;4049
 ;;21,"54868-0064-07 ")
 ;;4050
 ;;21,"54868-0065-02 ")
 ;;4286
 ;;21,"54868-0065-03 ")
 ;;4287
 ;;21,"54868-0065-04 ")
 ;;4288
 ;;21,"54868-0065-05 ")
 ;;4289
 ;;21,"54868-0065-07 ")
 ;;4290
 ;;21,"54868-0065-08 ")
 ;;4291
 ;;21,"54868-0065-09 ")
 ;;4292
 ;;21,"54868-0066-02 ")
 ;;4422
 ;;21,"54868-0066-03 ")
 ;;4423
 ;;21,"54868-0066-05 ")
 ;;4424
 ;;21,"54868-0066-06 ")
 ;;4425
 ;;21,"54868-0066-07 ")
 ;;4426
 ;;21,"54868-0122-00 ")
 ;;835
 ;;21,"54868-0122-02 ")
 ;;836
 ;;21,"54868-0426-00 ")
 ;;925
 ;;21,"54868-0511-00 ")
 ;;2542
 ;;21,"54868-0511-01 ")
 ;;2543
 ;;21,"54868-0511-02 ")
 ;;2544
 ;;21,"54868-0511-05 ")
 ;;2545
 ;;21,"54868-1223-00 ")
 ;;588
 ;;21,"54868-1223-01 ")
 ;;589
 ;;21,"54868-1239-00 ")
 ;;2024
 ;;21,"54868-1239-01 ")
 ;;2025
 ;;21,"54868-1239-02 ")
 ;;2026
 ;;21,"54868-1239-03 ")
 ;;2027
 ;;21,"54868-1239-04 ")
 ;;2028
 ;;21,"54868-1344-02 ")
 ;;4948
 ;;21,"54868-1344-03 ")
 ;;4949
 ;;21,"54868-1344-04 ")
 ;;4950
 ;;21,"54868-1447-00 ")
 ;;4567
 ;;21,"54868-1959-01 ")
 ;;693
 ;;21,"54868-1959-02 ")
 ;;694
 ;;21,"54868-1959-04 ")
 ;;695
 ;;21,"54868-1964-02 ")
 ;;4840
 ;;21,"54868-1964-03 ")
 ;;4841
 ;;21,"54868-2192-00 ")
 ;;3646
 ;;21,"54868-2192-01 ")
 ;;3647
 ;;21,"54868-2192-03 ")
 ;;3648
 ;;21,"54868-2192-04 ")
 ;;3649
 ;;21,"54868-2192-05 ")
 ;;3650
 ;;21,"54868-2192-06 ")
 ;;3651
 ;;21,"54868-2192-07 ")
 ;;3652
 ;;21,"54868-2192-08 ")
 ;;3653
 ;;21,"54868-2221-01 ")
 ;;4990
 ;;21,"54868-2221-03 ")
 ;;4991
 ;;21,"54868-2221-04 ")
 ;;4992
 ;;21,"54868-2221-05 ")
 ;;4993
 ;;21,"54868-2284-06 ")
 ;;4742
 ;;21,"54868-2317-00 ")
 ;;4709
 ;;21,"54868-2317-03 ")
 ;;4710
 ;;21,"54868-2317-04 ")
 ;;4711
 ;;21,"54868-2357-00 ")
 ;;4515
 ;;21,"54868-2357-02 ")
 ;;4516
 ;;21,"54868-2357-03 ")
 ;;4517