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 ")
  1. ;;1025
  1. ;;21,"21695-0549-30 ")
  1. ;;2587
  1. ;;21,"21695-0551-00 ")
  1. ;;1779
  1. ;;21,"21695-0551-20 ")
  1. ;;1780
  1. ;;21,"21695-0557-10 ")
  1. ;;2892
  1. ;;21,"21695-0558-10 ")
  1. ;;2955
  1. ;;21,"21695-0558-14 ")
  1. ;;2956
  1. ;;21,"21695-0558-20 ")
  1. ;;2957
  1. ;;21,"21695-0558-28 ")
  1. ;;2958
  1. ;;21,"21695-0581-14 ")
  1. ;;6148
  1. ;;21,"21695-0581-20 ")
  1. ;;6149
  1. ;;21,"21695-0581-30 ")
  1. ;;6150
  1. ;;21,"21695-0620-20 ")
  1. ;;7011
  1. ;;21,"21695-0622-60 ")
  1. ;;6980
  1. ;;21,"21695-0640-28 ")
  1. ;;6685
  1. ;;21,"21695-0640-40 ")
  1. ;;6686
  1. ;;21,"21695-0693-30 ")
  1. ;;6516
  1. ;;21,"21695-0767-50 ")
  1. ;;945
  1. ;;21,"21695-0772-00 ")
  1. ;;3605
  1. ;;21,"21695-0782-15 ")
  1. ;;5169
  1. ;;21,"21695-0789-20 ")
  1. ;;1556
  1. ;;21,"21695-0914-40 ")
  1. ;;4065
  1. ;;21,"23155-0017-01 ")
  1. ;;6603
  1. ;;21,"23155-0018-01 ")
  1. ;;6687
  1. ;;21,"23155-0133-01 ")
  1. ;;6405
  1. ;;21,"23155-0134-01 ")
  1. ;;6418
  1. ;;21,"23155-0135-25 ")
  1. ;;6376
  1. ;;21,"23155-0136-03 ")
  1. ;;6392
  1. ;;21,"23155-0141-01 ")
  1. ;;6345
  1. ;;21,"23155-0141-06 ")
  1. ;;6346
  1. ;;21,"23155-0142-01 ")
  1. ;;6123
  1. ;;21,"23155-0143-01 ")
  1. ;;6300
  1. ;;21,"23155-0201-31 ")
  1. ;;4099
  1. ;;21,"23155-0201-32 ")
  1. ;;4100
  1. ;;21,"23490-0081-00 ")
  1. ;;1077
  1. ;;21,"23490-0081-02 ")
  1. ;;1078
  1. ;;21,"23490-0081-03 ")
  1. ;;1079
  1. ;;21,"23490-0283-04 ")
  1. ;;1775
  1. ;;21,"23490-0285-04 ")
  1. ;;2126
  1. ;;21,"23490-0320-04 ")
  1. ;;4403
  1. ;;21,"23490-0320-07 ")
  1. ;;4404
  1. ;;21,"23490-0490-03 ")
  1. ;;5973
  1. ;;21,"23490-0490-06 ")
  1. ;;5974
  1. ;;21,"23490-1244-02 ")
  1. ;;5680
  1. ;;21,"23490-5065-01 ")
  1. ;;106
  1. ;;21,"23490-5066-01 ")
  1. ;;201
  1. ;;21,"23490-5066-02 ")
  1. ;;202
  1. ;;21,"23490-5066-03 ")
  1. ;;203
  1. ;;21,"23490-5067-01 ")
  1. ;;320
  1. ;;21,"23490-5068-01 ")
  1. ;;395
  1. ;;21,"23490-5068-02 ")
  1. ;;396
  1. ;;21,"23490-5070-01 ")
  1. ;;517
  1. ;;21,"23490-5070-02 ")
  1. ;;518
  1. ;;21,"23490-5070-03 ")
  1. ;;519
  1. ;;21,"23490-5070-04 ")
  1. ;;520
  1. ;;21,"23490-5070-05 ")
  1. ;;521
  1. ;;21,"23490-5070-06 ")
  1. ;;522
  1. ;;21,"23490-5070-07 ")
  1. ;;523
  1. ;;21,"23490-5074-01 ")
  1. ;;1080
  1. ;;21,"23490-5074-02 ")
  1. ;;1081
  1. ;;21,"23490-5074-03 ")
  1. ;;1082
  1. ;;21,"23490-5075-01 ")
  1. ;;972
  1. ;;21,"23490-5079-01 ")
  1. ;;787
  1. ;;21,"23490-5081-01 ")
  1. ;;849
  1. ;;21,"23490-5218-01 ")
  1. ;;5136
  1. ;;21,"23490-5218-02 ")
  1. ;;5137
  1. ;;21,"23490-5218-04 ")
  1. ;;5138
  1. ;;21,"23490-5219-01 ")
  1. ;;5170
  1. ;;21,"23490-5219-03 ")
  1. ;;5171
  1. ;;21,"23490-5221-00 ")
  1. ;;5196
  1. ;;21,"23490-5221-01 ")
  1. ;;5197
  1. ;;21,"23490-5221-02 ")
  1. ;;5198
  1. ;;21,"23490-5225-02 ")
  1. ;;1443
  1. ;;21,"23490-5225-03 ")
  1. ;;1444
  1. ;;21,"23490-5225-04 ")
  1. ;;1445
  1. ;;21,"23490-5225-05 ")
  1. ;;1446
  1. ;;21,"23490-5225-07 ")
  1. ;;1447
  1. ;;21,"23490-5231-01 ")
  1. ;;5304
  1. ;;21,"23490-5231-05 ")
  1. ;;5305
  1. ;;21,"23490-5231-07 ")
  1. ;;5306
  1. ;;21,"23490-5243-01 ")
  1. ;;5371
  1. ;;21,"23490-5244-01 ")
  1. ;;5460
  1. ;;21,"23490-5246-00 ")
  1. ;;2127
  1. ;;21,"23490-5248-01 ")
  1. ;;1606
  1. ;;21,"23490-5248-02 ")
  1. ;;1607
  1. ;;21,"23490-5248-03 ")
  1. ;;1608
  1. ;;21,"23490-5248-04 ")
  1. ;;1609
  1. ;;21,"23490-5248-05 ")
  1. ;;1610
  1. ;;21,"23490-5248-06 ")
  1. ;;1611
  1. ;;21,"23490-5248-07 ")
  1. ;;1612
  1. ;;21,"23490-5248-08 ")
  1. ;;1613
  1. ;;21,"23490-5249-01 ")
  1. ;;1557
  1. ;;21,"23490-5249-02 ")
  1. ;;1558
  1. ;;21,"23490-5250-01 ")
  1. ;;1781
  1. ;;21,"23490-5250-02 ")
  1. ;;1782
  1. ;;21,"23490-5251-00 ")
  1. ;;1864
  1. ;;21,"23490-5251-01 ")
  1. ;;1865
  1. ;;21,"23490-5251-02 ")
  1. ;;1866
  1. ;;21,"23490-5251-03 ")
  1. ;;1867
  1. ;;21,"23490-5251-05 ")
  1. ;;1868
  1. ;;21,"23490-5251-06 ")
  1. ;;1869
  1. ;;21,"23490-5251-07 ")
  1. ;;1870
  1. ;;21,"23490-5251-08 ")
  1. ;;1871
  1. ;;21,"23490-5251-09 ")
  1. ;;1872
  1. ;;21,"23490-5322-01 ")
  1. ;;4199