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

BGP62Y6.m

Go to the documentation of this file.
BGP62Y6 ;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,"16590-0088-30 ")
 ;;3058
 ;;21,"16590-0088-40 ")
 ;;3059
 ;;21,"16590-0089-21 ")
 ;;3182
 ;;21,"16590-0089-30 ")
 ;;3183
 ;;21,"16590-0089-40 ")
 ;;3184
 ;;21,"16590-0091-21 ")
 ;;3121
 ;;21,"16590-0091-30 ")
 ;;3122
 ;;21,"16590-0091-40 ")
 ;;3123
 ;;21,"16590-0182-36 ")
 ;;3724
 ;;21,"16590-0183-20 ")
 ;;3769
 ;;21,"16590-0183-30 ")
 ;;3770
 ;;21,"16590-0183-40 ")
 ;;3771
 ;;21,"16590-0210-14 ")
 ;;5666
 ;;21,"16590-0210-20 ")
 ;;5667
 ;;21,"16590-0210-28 ")
 ;;5668
 ;;21,"16590-0212-32 ")
 ;;5535
 ;;21,"16590-0215-20 ")
 ;;5454
 ;;21,"16590-0216-30 ")
 ;;6601
 ;;21,"16590-0217-30 ")
 ;;6683
 ;;21,"16590-0217-60 ")
 ;;6684
 ;;21,"16590-0248-06 ")
 ;;2654
 ;;21,"16590-0362-06 ")
 ;;2655
 ;;21,"16590-0369-40 ")
 ;;902
 ;;21,"16590-0383-03 ")
 ;;2787
 ;;21,"16590-0401-32 ")
 ;;435
 ;;21,"16590-0424-20 ")
 ;;316
 ;;21,"16590-0424-30 ")
 ;;317
 ;;21,"16590-0424-40 ")
 ;;318
 ;;21,"16590-0735-14 ")
 ;;4697
 ;;21,"16590-0735-20 ")
 ;;4698
 ;;21,"16590-0735-28 ")
 ;;4699
 ;;21,"16714-0202-01 ")
 ;;1404
 ;;21,"16714-0203-01 ")
 ;;1537
 ;;21,"16714-0203-02 ")
 ;;1538
 ;;21,"16714-0204-02 ")
 ;;1435
 ;;21,"16714-0204-03 ")
 ;;1436
 ;;21,"16714-0205-01 ")
 ;;7005
 ;;21,"16714-0205-02 ")
 ;;7006
 ;;21,"16714-0205-04 ")
 ;;7007
 ;;21,"16714-0206-01 ")
 ;;6949
 ;;21,"16714-0206-02 ")
 ;;6950
 ;;21,"16714-0207-01 ")
 ;;6976
 ;;21,"16714-0207-02 ")
 ;;6977
 ;;21,"16714-0208-01 ")
 ;;5273
 ;;21,"16714-0209-01 ")
 ;;5331
 ;;21,"16714-0212-01 ")
 ;;7084
 ;;21,"16714-0215-01 ")
 ;;5243
 ;;21,"16714-0215-02 ")
 ;;5244
 ;;21,"16714-0215-03 ")
 ;;5245
 ;;21,"16714-0216-01 ")
 ;;5295
 ;;21,"16714-0216-02 ")
 ;;5296
 ;;21,"16714-0216-03 ")
 ;;5297
 ;;21,"16714-0232-01 ")
 ;;5365
 ;;21,"16714-0232-02 ")
 ;;5366
 ;;21,"16714-0233-01 ")
 ;;5455
 ;;21,"16714-0233-02 ")
 ;;5456
 ;;21,"16714-0234-01 ")
 ;;3623
 ;;21,"16714-0234-02 ")
 ;;3624
 ;;21,"16714-0235-01 ")
 ;;3772
 ;;21,"16714-0235-02 ")
 ;;3773
 ;;21,"16714-0292-01 ")
 ;;942
 ;;21,"16714-0292-02 ")
 ;;943
 ;;21,"16714-0292-03 ")
 ;;944
 ;;21,"16714-0293-01 ")
 ;;1022
 ;;21,"16714-0293-02 ")
 ;;1023
 ;;21,"16714-0293-03 ")
 ;;1024
 ;;21,"16714-0294-01 ")
 ;;1183
 ;;21,"16714-0294-02 ")
 ;;1184
 ;;21,"16714-0294-03 ")
 ;;1185
 ;;21,"16714-0295-01 ")
 ;;971
 ;;21,"16714-0296-01 ")
 ;;1075
 ;;21,"16714-0297-01 ")
 ;;1226
 ;;21,"16714-0297-02 ")
 ;;1227
 ;;21,"16714-0298-01 ")
 ;;197
 ;;21,"16714-0298-02 ")
 ;;198
 ;;21,"16714-0299-02 ")
 ;;508
 ;;21,"16714-0299-03 ")
 ;;509
 ;;21,"16714-0299-04 ")
 ;;510
 ;;21,"16714-0386-01 ")
 ;;5246
 ;;21,"16714-0386-02 ")
 ;;5247
 ;;21,"16714-0386-03 ")
 ;;5248
 ;;21,"16714-0387-01 ")
 ;;5298
 ;;21,"16714-0387-02 ")
 ;;5299
 ;;21,"16714-0387-03 ")
 ;;5300
 ;;21,"16714-0388-01 ")
 ;;1437
 ;;21,"16714-0388-02 ")
 ;;1438
 ;;21,"16714-0389-01 ")
 ;;1405
 ;;21,"16714-0390-01 ")
 ;;1539
 ;;21,"16714-0390-02 ")
 ;;1540
 ;;21,"16714-0391-01 ")
 ;;7008
 ;;21,"16714-0391-02 ")
 ;;7009
 ;;21,"16714-0392-01 ")
 ;;6951
 ;;21,"16714-0392-02 ")
 ;;6952
 ;;21,"16714-0393-01 ")
 ;;6978
 ;;21,"16714-0393-02 ")
 ;;6979
 ;;21,"16714-0394-01 ")
 ;;7068
 ;;21,"16714-0395-01 ")
 ;;7085
 ;;21,"16714-0396-01 ")
 ;;5249
 ;;21,"16714-0396-02 ")
 ;;5250
 ;;21,"16714-0396-03 ")
 ;;5251
 ;;21,"16714-0397-01 ")
 ;;5301
 ;;21,"16714-0397-02 ")
 ;;5302
 ;;21,"16714-0397-03 ")
 ;;5303
 ;;21,"16714-0398-01 ")
 ;;5274
 ;;21,"16714-0399-01 ")
 ;;5332
 ;;21,"16714-0400-01 ")
 ;;5367
 ;;21,"16714-0400-02 ")
 ;;5368
 ;;21,"16714-0401-01 ")
 ;;5457
 ;;21,"16714-0401-02 ")
 ;;5458
 ;;21,"16714-0402-01 ")
 ;;7095
 ;;21,"16714-0402-02 ")
 ;;7096
 ;;21,"16714-0403-01 ")
 ;;7075
 ;;21,"16714-0403-02 ")
 ;;7076
 ;;21,"16714-0641-02 ")
 ;;1600
 ;;21,"16714-0641-03 ")
 ;;1601
 ;;21,"16714-0642-02 ")
 ;;1852
 ;;21,"16714-0642-03 ")
 ;;1853
 ;;21,"16714-0651-02 ")
 ;;4193
 ;;21,"16714-0652-02 ")
 ;;4395
 ;;21,"16714-0652-04 ")
 ;;4396
 ;;21,"16714-0653-01 ")
 ;;4700
 ;;21,"16781-0400-60 ")
 ;;6515
 ;;21,"16781-0403-50 ")
 ;;6433
 ;;21,"16781-0403-60 ")
 ;;6434
 ;;21,"16781-0457-60 ")
 ;;6545
 ;;21,"17478-0107-20 ")
 ;;4097
 ;;21,"17478-0107-30 ")
 ;;4098
 ;;21,"17478-0120-50 ")
 ;;2186
 ;;21,"17478-0121-50 ")
 ;;2194
 ;;21,"17478-0122-50 ")
 ;;2202
 ;;21,"17856-0823-30 ")
 ;;5536
 ;;21,"17856-0824-30 ")
 ;;5537
 ;;21,"18837-0145-60 ")
 ;;5669
 ;;21,"18837-0195-14 ")
 ;;1854
 ;;21,"18837-0244-20 ")
 ;;7010
 ;;21,"21695-0012-06 ")
 ;;2656
 ;;21,"21695-0013-03 ")
 ;;2788
 ;;21,"21695-0033-08 ")
 ;;2235
 ;;21,"21695-0033-12 ")
 ;;2236
 ;;21,"21695-0033-14 ")
 ;;2237
 ;;21,"21695-0033-21 ")
 ;;2238
 ;;21,"21695-0033-28 ")
 ;;2239
 ;;21,"21695-0033-40 ")
 ;;2240
 ;;21,"21695-0033-60 ")
 ;;2241
 ;;21,"21695-0033-90 ")
 ;;2242
 ;;21,"21695-0034-20 ")
 ;;2432
 ;;21,"21695-0034-21 ")
 ;;2433
 ;;21,"21695-0034-30 ")
 ;;2434
 ;;21,"21695-0044-06 ")
 ;;5965
 ;;21,"21695-0044-14 ")
 ;;5966
 ;;21,"21695-0044-20 ")
 ;;5967
 ;;21,"21695-0044-28 ")
 ;;5968
 ;;21,"21695-0044-30 ")
 ;;5969
 ;;21,"21695-0044-40 ")
 ;;5970
 ;;21,"21695-0044-42 ")
 ;;5971
 ;;21,"21695-0044-90 ")
 ;;5972
 ;;21,"21695-0125-05 ")
 ;;5670
 ;;21,"21695-0125-06 ")
 ;;5671
 ;;21,"21695-0125-10 ")
 ;;5672
 ;;21,"21695-0125-14 ")
 ;;5673
 ;;21,"21695-0125-20 ")
 ;;5674
 ;;21,"21695-0125-21 ")
 ;;5675
 ;;21,"21695-0125-28 ")
 ;;5676
 ;;21,"21695-0125-30 ")
 ;;5677
 ;;21,"21695-0125-40 ")
 ;;5678
 ;;21,"21695-0125-60 ")
 ;;5679
 ;;21,"21695-0150-20 ")
 ;;5459
 ;;21,"21695-0202-10 ")
 ;;6916
 ;;21,"21695-0210-06 ")
 ;;4397
 ;;21,"21695-0210-10 ")
 ;;4398
 ;;21,"21695-0210-14 ")
 ;;4399
 ;;21,"21695-0210-20 ")
 ;;4400
 ;;21,"21695-0210-28 ")
 ;;4401
 ;;21,"21695-0210-30 ")
 ;;4402
 ;;21,"21695-0214-20 ")
 ;;1076
 ;;21,"21695-0215-20 ")
 ;;1228
 ;;21,"21695-0294-00 ")
 ;;436
 ;;21,"21695-0302-28 ")
 ;;6602
 ;;21,"21695-0314-21 ")
 ;;199
 ;;21,"21695-0314-30 ")
 ;;200
 ;;21,"21695-0315-08 ")
 ;;511
 ;;21,"21695-0315-09 ")
 ;;512
 ;;21,"21695-0315-21 ")
 ;;513
 ;;21,"21695-0315-30 ")
 ;;514
 ;;21,"21695-0315-40 ")
 ;;515
 ;;21,"21695-0315-42 ")
 ;;516
 ;;21,"21695-0316-20 ")
 ;;1602
 ;;21,"21695-0316-28 ")
 ;;1603
 ;;21,"21695-0316-30 ")
 ;;1604
 ;;21,"21695-0316-40 ")
 ;;1605
 ;;21,"21695-0317-08 ")
 ;;1855
 ;;21,"21695-0317-12 ")
 ;;1856
 ;;21,"21695-0317-14 ")
 ;;1857
 ;;21,"21695-0317-20 ")
 ;;1858
 ;;21,"21695-0317-21 ")
 ;;1859
 ;;21,"21695-0317-28 ")
 ;;1860
 ;;21,"21695-0317-30 ")
 ;;1861
 ;;21,"21695-0317-40 ")
 ;;1862
 ;;21,"21695-0317-60 ")
 ;;1863
 ;;21,"21695-0318-12 ")
 ;;3774
 ;;21,"21695-0318-20 ")
 ;;3775
 ;;21,"21695-0318-28 ")
 ;;3776
 ;;21,"21695-0318-30 ")
 ;;3777
 ;;21,"21695-0318-40 ")
 ;;3778
 ;;21,"21695-0352-10 ")
 ;;6794
 ;;21,"21695-0370-10 ")
 ;;5369
 ;;21,"21695-0370-20 ")
 ;;5370
 ;;21,"21695-0384-15 ")
 ;;104
 ;;21,"21695-0384-80 ")
 ;;105
 ;;21,"21695-0385-00 ")
 ;;392
 ;;21,"21695-0385-15 ")
 ;;393
 ;;21,"21695-0385-80 ")
 ;;394
 ;;21,"21695-0387-28 ")
 ;;3124
 ;;21,"21695-0389-30 ")
 ;;3303
 ;;21,"21695-0401-12 ")
 ;;1186
 ;;21,"21695-0401-20 ")
 ;;1187
 ;;21,"21695-0411-06 ")
 ;;4194
 ;;21,"21695-0411-10 ")
 ;;4195
 ;;21,"21695-0411-14 ")
 ;;4196
 ;;21,"21695-0411-20 ")
 ;;4197
 ;;21,"21695-0411-60 ")
 ;;4198
 ;;21,"21695-0418-30 ")
 ;;319
 ;;21,"21695-0427-10 ")
 ;;1439
 ;;21,"21695-0427-20 ")
 ;;1440
 ;;21,"21695-0427-28 ")
 ;;1441
 ;;21,"21695-0427-50 ")
 ;;1442
 ;;21,"21695-0464-07 ")
 ;;4870
 ;;21,"21695-0519-07 ")
 ;;4969
 ;;21,"21695-0544-20 ")
 ;;729
 ;;21,"21695-0546-00 ")
 ;;1025
 ;;21,"21695-0549-30 ")
 ;;2587
 ;;21,"21695-0551-00 ")
 ;;1779
 ;;21,"21695-0551-20 ")
 ;;1780
 ;;21,"21695-0557-10 ")
 ;;2892
 ;;21,"21695-0558-10 ")
 ;;2955
 ;;21,"21695-0558-14 ")
 ;;2956
 ;;21,"21695-0558-20 ")
 ;;2957
 ;;21,"21695-0558-28 ")
 ;;2958
 ;;21,"21695-0581-14 ")
 ;;6148
 ;;21,"21695-0581-20 ")
 ;;6149
 ;;21,"21695-0581-30 ")
 ;;6150
 ;;21,"21695-0620-20 ")
 ;;7011
 ;;21,"21695-0622-60 ")
 ;;6980
 ;;21,"21695-0640-28 ")
 ;;6685
 ;;21,"21695-0640-40 ")
 ;;6686
 ;;21,"21695-0693-30 ")
 ;;6516
 ;;21,"21695-0767-50 ")
 ;;945
 ;;21,"21695-0772-00 ")
 ;;3605
 ;;21,"21695-0782-15 ")
 ;;5169
 ;;21,"21695-0789-20 ")
 ;;1556
 ;;21,"21695-0914-40 ")
 ;;4065
 ;;21,"23155-0017-01 ")
 ;;6603
 ;;21,"23155-0018-01 ")
 ;;6687
 ;;21,"23155-0133-01 ")
 ;;6405
 ;;21,"23155-0134-01 ")
 ;;6418
 ;;21,"23155-0135-25 ")
 ;;6376
 ;;21,"23155-0136-03 ")
 ;;6392
 ;;21,"23155-0141-01 ")
 ;;6345
 ;;21,"23155-0141-06 ")
 ;;6346
 ;;21,"23155-0142-01 ")
 ;;6123
 ;;21,"23155-0143-01 ")
 ;;6300
 ;;21,"23155-0201-31 ")
 ;;4099
 ;;21,"23155-0201-32 ")
 ;;4100
 ;;21,"23490-0081-00 ")
 ;;1077
 ;;21,"23490-0081-02 ")
 ;;1078
 ;;21,"23490-0081-03 ")
 ;;1079
 ;;21,"23490-0283-04 ")
 ;;1775
 ;;21,"23490-0285-04 ")
 ;;2126
 ;;21,"23490-0320-04 ")
 ;;4403
 ;;21,"23490-0320-07 ")
 ;;4404
 ;;21,"23490-0490-03 ")
 ;;5973
 ;;21,"23490-0490-06 ")
 ;;5974
 ;;21,"23490-1244-02 ")
 ;;5680
 ;;21,"23490-5065-01 ")
 ;;106
 ;;21,"23490-5066-01 ")
 ;;201
 ;;21,"23490-5066-02 ")
 ;;202
 ;;21,"23490-5066-03 ")
 ;;203
 ;;21,"23490-5067-01 ")
 ;;320
 ;;21,"23490-5068-01 ")
 ;;395
 ;;21,"23490-5068-02 ")
 ;;396
 ;;21,"23490-5070-01 ")
 ;;517
 ;;21,"23490-5070-02 ")
 ;;518
 ;;21,"23490-5070-03 ")
 ;;519
 ;;21,"23490-5070-04 ")
 ;;520
 ;;21,"23490-5070-05 ")
 ;;521
 ;;21,"23490-5070-06 ")
 ;;522
 ;;21,"23490-5070-07 ")
 ;;523
 ;;21,"23490-5074-01 ")
 ;;1080
 ;;21,"23490-5074-02 ")
 ;;1081
 ;;21,"23490-5074-03 ")
 ;;1082
 ;;21,"23490-5075-01 ")
 ;;972
 ;;21,"23490-5079-01 ")
 ;;787
 ;;21,"23490-5081-01 ")
 ;;849
 ;;21,"23490-5218-01 ")
 ;;5136
 ;;21,"23490-5218-02 ")
 ;;5137
 ;;21,"23490-5218-04 ")
 ;;5138
 ;;21,"23490-5219-01 ")
 ;;5170
 ;;21,"23490-5219-03 ")
 ;;5171
 ;;21,"23490-5221-00 ")
 ;;5196
 ;;21,"23490-5221-01 ")
 ;;5197
 ;;21,"23490-5221-02 ")
 ;;5198
 ;;21,"23490-5225-02 ")
 ;;1443
 ;;21,"23490-5225-03 ")
 ;;1444
 ;;21,"23490-5225-04 ")
 ;;1445
 ;;21,"23490-5225-05 ")
 ;;1446
 ;;21,"23490-5225-07 ")
 ;;1447
 ;;21,"23490-5231-01 ")
 ;;5304
 ;;21,"23490-5231-05 ")
 ;;5305
 ;;21,"23490-5231-07 ")
 ;;5306
 ;;21,"23490-5243-01 ")
 ;;5371
 ;;21,"23490-5244-01 ")
 ;;5460
 ;;21,"23490-5246-00 ")
 ;;2127
 ;;21,"23490-5248-01 ")
 ;;1606
 ;;21,"23490-5248-02 ")
 ;;1607
 ;;21,"23490-5248-03 ")
 ;;1608
 ;;21,"23490-5248-04 ")
 ;;1609
 ;;21,"23490-5248-05 ")
 ;;1610
 ;;21,"23490-5248-06 ")
 ;;1611
 ;;21,"23490-5248-07 ")
 ;;1612
 ;;21,"23490-5248-08 ")
 ;;1613
 ;;21,"23490-5249-01 ")
 ;;1557
 ;;21,"23490-5249-02 ")
 ;;1558
 ;;21,"23490-5250-01 ")
 ;;1781
 ;;21,"23490-5250-02 ")
 ;;1782
 ;;21,"23490-5251-00 ")
 ;;1864
 ;;21,"23490-5251-01 ")
 ;;1865
 ;;21,"23490-5251-02 ")
 ;;1866
 ;;21,"23490-5251-03 ")
 ;;1867
 ;;21,"23490-5251-05 ")
 ;;1868
 ;;21,"23490-5251-06 ")
 ;;1869
 ;;21,"23490-5251-07 ")
 ;;1870
 ;;21,"23490-5251-08 ")
 ;;1871
 ;;21,"23490-5251-09 ")
 ;;1872
 ;;21,"23490-5322-01 ")
 ;;4199