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.
  1. BGP62Y6 ;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,"16590-0088-30 ")
  1. ;;3058
  1. ;;21,"16590-0088-40 ")
  1. ;;3059
  1. ;;21,"16590-0089-21 ")
  1. ;;3182
  1. ;;21,"16590-0089-30 ")
  1. ;;3183
  1. ;;21,"16590-0089-40 ")
  1. ;;3184
  1. ;;21,"16590-0091-21 ")
  1. ;;3121
  1. ;;21,"16590-0091-30 ")
  1. ;;3122
  1. ;;21,"16590-0091-40 ")
  1. ;;3123
  1. ;;21,"16590-0182-36 ")
  1. ;;3724
  1. ;;21,"16590-0183-20 ")
  1. ;;3769
  1. ;;21,"16590-0183-30 ")
  1. ;;3770
  1. ;;21,"16590-0183-40 ")
  1. ;;3771
  1. ;;21,"16590-0210-14 ")
  1. ;;5666
  1. ;;21,"16590-0210-20 ")
  1. ;;5667
  1. ;;21,"16590-0210-28 ")
  1. ;;5668
  1. ;;21,"16590-0212-32 ")
  1. ;;5535
  1. ;;21,"16590-0215-20 ")
  1. ;;5454
  1. ;;21,"16590-0216-30 ")
  1. ;;6601
  1. ;;21,"16590-0217-30 ")
  1. ;;6683
  1. ;;21,"16590-0217-60 ")
  1. ;;6684
  1. ;;21,"16590-0248-06 ")
  1. ;;2654
  1. ;;21,"16590-0362-06 ")
  1. ;;2655
  1. ;;21,"16590-0369-40 ")
  1. ;;902
  1. ;;21,"16590-0383-03 ")
  1. ;;2787
  1. ;;21,"16590-0401-32 ")
  1. ;;435
  1. ;;21,"16590-0424-20 ")
  1. ;;316
  1. ;;21,"16590-0424-30 ")
  1. ;;317
  1. ;;21,"16590-0424-40 ")
  1. ;;318
  1. ;;21,"16590-0735-14 ")
  1. ;;4697
  1. ;;21,"16590-0735-20 ")
  1. ;;4698
  1. ;;21,"16590-0735-28 ")
  1. ;;4699
  1. ;;21,"16714-0202-01 ")
  1. ;;1404
  1. ;;21,"16714-0203-01 ")
  1. ;;1537
  1. ;;21,"16714-0203-02 ")
  1. ;;1538
  1. ;;21,"16714-0204-02 ")
  1. ;;1435
  1. ;;21,"16714-0204-03 ")
  1. ;;1436
  1. ;;21,"16714-0205-01 ")
  1. ;;7005
  1. ;;21,"16714-0205-02 ")
  1. ;;7006
  1. ;;21,"16714-0205-04 ")
  1. ;;7007
  1. ;;21,"16714-0206-01 ")
  1. ;;6949
  1. ;;21,"16714-0206-02 ")
  1. ;;6950
  1. ;;21,"16714-0207-01 ")
  1. ;;6976
  1. ;;21,"16714-0207-02 ")
  1. ;;6977
  1. ;;21,"16714-0208-01 ")
  1. ;;5273
  1. ;;21,"16714-0209-01 ")
  1. ;;5331
  1. ;;21,"16714-0212-01 ")
  1. ;;7084
  1. ;;21,"16714-0215-01 ")
  1. ;;5243
  1. ;;21,"16714-0215-02 ")
  1. ;;5244
  1. ;;21,"16714-0215-03 ")
  1. ;;5245
  1. ;;21,"16714-0216-01 ")
  1. ;;5295
  1. ;;21,"16714-0216-02 ")
  1. ;;5296
  1. ;;21,"16714-0216-03 ")
  1. ;;5297
  1. ;;21,"16714-0232-01 ")
  1. ;;5365
  1. ;;21,"16714-0232-02 ")
  1. ;;5366
  1. ;;21,"16714-0233-01 ")
  1. ;;5455
  1. ;;21,"16714-0233-02 ")
  1. ;;5456
  1. ;;21,"16714-0234-01 ")
  1. ;;3623
  1. ;;21,"16714-0234-02 ")
  1. ;;3624
  1. ;;21,"16714-0235-01 ")
  1. ;;3772
  1. ;;21,"16714-0235-02 ")
  1. ;;3773
  1. ;;21,"16714-0292-01 ")
  1. ;;942
  1. ;;21,"16714-0292-02 ")
  1. ;;943
  1. ;;21,"16714-0292-03 ")
  1. ;;944
  1. ;;21,"16714-0293-01 ")
  1. ;;1022
  1. ;;21,"16714-0293-02 ")
  1. ;;1023
  1. ;;21,"16714-0293-03 ")
  1. ;;1024
  1. ;;21,"16714-0294-01 ")
  1. ;;1183
  1. ;;21,"16714-0294-02 ")
  1. ;;1184
  1. ;;21,"16714-0294-03 ")
  1. ;;1185
  1. ;;21,"16714-0295-01 ")
  1. ;;971
  1. ;;21,"16714-0296-01 ")
  1. ;;1075
  1. ;;21,"16714-0297-01 ")
  1. ;;1226
  1. ;;21,"16714-0297-02 ")
  1. ;;1227
  1. ;;21,"16714-0298-01 ")
  1. ;;197
  1. ;;21,"16714-0298-02 ")
  1. ;;198
  1. ;;21,"16714-0299-02 ")
  1. ;;508
  1. ;;21,"16714-0299-03 ")
  1. ;;509
  1. ;;21,"16714-0299-04 ")
  1. ;;510
  1. ;;21,"16714-0386-01 ")
  1. ;;5246
  1. ;;21,"16714-0386-02 ")
  1. ;;5247
  1. ;;21,"16714-0386-03 ")
  1. ;;5248
  1. ;;21,"16714-0387-01 ")
  1. ;;5298
  1. ;;21,"16714-0387-02 ")
  1. ;;5299
  1. ;;21,"16714-0387-03 ")
  1. ;;5300
  1. ;;21,"16714-0388-01 ")
  1. ;;1437
  1. ;;21,"16714-0388-02 ")
  1. ;;1438
  1. ;;21,"16714-0389-01 ")
  1. ;;1405
  1. ;;21,"16714-0390-01 ")
  1. ;;1539
  1. ;;21,"16714-0390-02 ")
  1. ;;1540
  1. ;;21,"16714-0391-01 ")
  1. ;;7008
  1. ;;21,"16714-0391-02 ")
  1. ;;7009
  1. ;;21,"16714-0392-01 ")
  1. ;;6951
  1. ;;21,"16714-0392-02 ")
  1. ;;6952
  1. ;;21,"16714-0393-01 ")
  1. ;;6978
  1. ;;21,"16714-0393-02 ")
  1. ;;6979
  1. ;;21,"16714-0394-01 ")
  1. ;;7068
  1. ;;21,"16714-0395-01 ")
  1. ;;7085
  1. ;;21,"16714-0396-01 ")
  1. ;;5249
  1. ;;21,"16714-0396-02 ")
  1. ;;5250
  1. ;;21,"16714-0396-03 ")
  1. ;;5251
  1. ;;21,"16714-0397-01 ")
  1. ;;5301
  1. ;;21,"16714-0397-02 ")
  1. ;;5302
  1. ;;21,"16714-0397-03 ")
  1. ;;5303
  1. ;;21,"16714-0398-01 ")
  1. ;;5274
  1. ;;21,"16714-0399-01 ")
  1. ;;5332
  1. ;;21,"16714-0400-01 ")
  1. ;;5367
  1. ;;21,"16714-0400-02 ")
  1. ;;5368
  1. ;;21,"16714-0401-01 ")
  1. ;;5457
  1. ;;21,"16714-0401-02 ")
  1. ;;5458
  1. ;;21,"16714-0402-01 ")
  1. ;;7095
  1. ;;21,"16714-0402-02 ")
  1. ;;7096
  1. ;;21,"16714-0403-01 ")
  1. ;;7075
  1. ;;21,"16714-0403-02 ")
  1. ;;7076
  1. ;;21,"16714-0641-02 ")
  1. ;;1600
  1. ;;21,"16714-0641-03 ")
  1. ;;1601
  1. ;;21,"16714-0642-02 ")
  1. ;;1852
  1. ;;21,"16714-0642-03 ")
  1. ;;1853
  1. ;;21,"16714-0651-02 ")
  1. ;;4193
  1. ;;21,"16714-0652-02 ")
  1. ;;4395
  1. ;;21,"16714-0652-04 ")
  1. ;;4396
  1. ;;21,"16714-0653-01 ")
  1. ;;4700
  1. ;;21,"16781-0400-60 ")
  1. ;;6515
  1. ;;21,"16781-0403-50 ")
  1. ;;6433
  1. ;;21,"16781-0403-60 ")
  1. ;;6434
  1. ;;21,"16781-0457-60 ")
  1. ;;6545
  1. ;;21,"17478-0107-20 ")
  1. ;;4097
  1. ;;21,"17478-0107-30 ")
  1. ;;4098
  1. ;;21,"17478-0120-50 ")
  1. ;;2186
  1. ;;21,"17478-0121-50 ")
  1. ;;2194
  1. ;;21,"17478-0122-50 ")
  1. ;;2202
  1. ;;21,"17856-0823-30 ")
  1. ;;5536
  1. ;;21,"17856-0824-30 ")
  1. ;;5537
  1. ;;21,"18837-0145-60 ")
  1. ;;5669
  1. ;;21,"18837-0195-14 ")
  1. ;;1854
  1. ;;21,"18837-0244-20 ")
  1. ;;7010
  1. ;;21,"21695-0012-06 ")
  1. ;;2656
  1. ;;21,"21695-0013-03 ")
  1. ;;2788
  1. ;;21,"21695-0033-08 ")
  1. ;;2235
  1. ;;21,"21695-0033-12 ")
  1. ;;2236
  1. ;;21,"21695-0033-14 ")
  1. ;;2237
  1. ;;21,"21695-0033-21 ")
  1. ;;2238
  1. ;;21,"21695-0033-28 ")
  1. ;;2239
  1. ;;21,"21695-0033-40 ")
  1. ;;2240
  1. ;;21,"21695-0033-60 ")
  1. ;;2241
  1. ;;21,"21695-0033-90 ")
  1. ;;2242
  1. ;;21,"21695-0034-20 ")
  1. ;;2432
  1. ;;21,"21695-0034-21 ")
  1. ;;2433
  1. ;;21,"21695-0034-30 ")
  1. ;;2434
  1. ;;21,"21695-0044-06 ")
  1. ;;5965
  1. ;;21,"21695-0044-14 ")
  1. ;;5966
  1. ;;21,"21695-0044-20 ")
  1. ;;5967
  1. ;;21,"21695-0044-28 ")
  1. ;;5968
  1. ;;21,"21695-0044-30 ")
  1. ;;5969
  1. ;;21,"21695-0044-40 ")
  1. ;;5970
  1. ;;21,"21695-0044-42 ")
  1. ;;5971
  1. ;;21,"21695-0044-90 ")
  1. ;;5972
  1. ;;21,"21695-0125-05 ")
  1. ;;5670
  1. ;;21,"21695-0125-06 ")
  1. ;;5671
  1. ;;21,"21695-0125-10 ")
  1. ;;5672
  1. ;;21,"21695-0125-14 ")
  1. ;;5673
  1. ;;21,"21695-0125-20 ")
  1. ;;5674
  1. ;;21,"21695-0125-21 ")
  1. ;;5675
  1. ;;21,"21695-0125-28 ")
  1. ;;5676
  1. ;;21,"21695-0125-30 ")
  1. ;;5677
  1. ;;21,"21695-0125-40 ")
  1. ;;5678
  1. ;;21,"21695-0125-60 ")
  1. ;;5679
  1. ;;21,"21695-0150-20 ")
  1. ;;5459
  1. ;;21,"21695-0202-10 ")
  1. ;;6916
  1. ;;21,"21695-0210-06 ")
  1. ;;4397
  1. ;;21,"21695-0210-10 ")
  1. ;;4398
  1. ;;21,"21695-0210-14 ")
  1. ;;4399
  1. ;;21,"21695-0210-20 ")
  1. ;;4400
  1. ;;21,"21695-0210-28 ")
  1. ;;4401
  1. ;;21,"21695-0210-30 ")
  1. ;;4402
  1. ;;21,"21695-0214-20 ")
  1. ;;1076
  1. ;;21,"21695-0215-20 ")
  1. ;;1228
  1. ;;21,"21695-0294-00 ")
  1. ;;436
  1. ;;21,"21695-0302-28 ")
  1. ;;6602
  1. ;;21,"21695-0314-21 ")
  1. ;;199
  1. ;;21,"21695-0314-30 ")
  1. ;;200
  1. ;;21,"21695-0315-08 ")
  1. ;;511
  1. ;;21,"21695-0315-09 ")
  1. ;;512
  1. ;;21,"21695-0315-21 ")
  1. ;;513
  1. ;;21,"21695-0315-30 ")
  1. ;;514
  1. ;;21,"21695-0315-40 ")
  1. ;;515
  1. ;;21,"21695-0315-42 ")
  1. ;;516
  1. ;;21,"21695-0316-20 ")
  1. ;;1602
  1. ;;21,"21695-0316-28 ")
  1. ;;1603
  1. ;;21,"21695-0316-30 ")
  1. ;;1604
  1. ;;21,"21695-0316-40 ")
  1. ;;1605
  1. ;;21,"21695-0317-08 ")
  1. ;;1855
  1. ;;21,"21695-0317-12 ")
  1. ;;1856
  1. ;;21,"21695-0317-14 ")
  1. ;;1857
  1. ;;21,"21695-0317-20 ")
  1. ;;1858
  1. ;;21,"21695-0317-21 ")
  1. ;;1859
  1. ;;21,"21695-0317-28 ")
  1. ;;1860
  1. ;;21,"21695-0317-30 ")
  1. ;;1861
  1. ;;21,"21695-0317-40 ")
  1. ;;1862
  1. ;;21,"21695-0317-60 ")
  1. ;;1863
  1. ;;21,"21695-0318-12 ")
  1. ;;3774
  1. ;;21,"21695-0318-20 ")
  1. ;;3775
  1. ;;21,"21695-0318-28 ")
  1. ;;3776
  1. ;;21,"21695-0318-30 ")
  1. ;;3777
  1. ;;21,"21695-0318-40 ")
  1. ;;3778
  1. ;;21,"21695-0352-10 ")
  1. ;;6794
  1. ;;21,"21695-0370-10 ")
  1. ;;5369
  1. ;;21,"21695-0370-20 ")
  1. ;;5370
  1. ;;21,"21695-0384-15 ")
  1. ;;104
  1. ;;21,"21695-0384-80 ")
  1. ;;105
  1. ;;21,"21695-0385-00 ")
  1. ;;392
  1. ;;21,"21695-0385-15 ")
  1. ;;393
  1. ;;21,"21695-0385-80 ")
  1. ;;394
  1. ;;21,"21695-0387-28 ")
  1. ;;3124
  1. ;;21,"21695-0389-30 ")
  1. ;;3303
  1. ;;21,"21695-0401-12 ")
  1. ;;1186
  1. ;;21,"21695-0401-20 ")
  1. ;;1187
  1. ;;21,"21695-0411-06 ")
  1. ;;4194
  1. ;;21,"21695-0411-10 ")
  1. ;;4195
  1. ;;21,"21695-0411-14 ")
  1. ;;4196
  1. ;;21,"21695-0411-20 ")
  1. ;;4197
  1. ;;21,"21695-0411-60 ")
  1. ;;4198
  1. ;;21,"21695-0418-30 ")
  1. ;;319
  1. ;;21,"21695-0427-10 ")
  1. ;;1439
  1. ;;21,"21695-0427-20 ")
  1. ;;1440
  1. ;;21,"21695-0427-28 ")
  1. ;;1441
  1. ;;21,"21695-0427-50 ")
  1. ;;1442
  1. ;;21,"21695-0464-07 ")
  1. ;;4870
  1. ;;21,"21695-0519-07 ")
  1. ;;4969
  1. ;;21,"21695-0544-20 ")
  1. ;;729
  1. ;;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