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

BGP62Y21.m

Go to the documentation of this file.
  1. BGP62Y21 ;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,"66336-0609-12 ")
  1. ;;6659
  1. ;;21,"66336-0609-20 ")
  1. ;;6660
  1. ;;21,"66336-0609-28 ")
  1. ;;6661
  1. ;;21,"66336-0609-40 ")
  1. ;;6662
  1. ;;21,"66336-0617-30 ")
  1. ;;3486
  1. ;;21,"66336-0617-40 ")
  1. ;;3487
  1. ;;21,"66336-0634-08 ")
  1. ;;689
  1. ;;21,"66336-0634-15 ")
  1. ;;690
  1. ;;21,"66336-0634-21 ")
  1. ;;691
  1. ;;21,"66336-0634-30 ")
  1. ;;692
  1. ;;21,"66336-0634-40 ")
  1. ;;693
  1. ;;21,"66336-0634-42 ")
  1. ;;694
  1. ;;21,"66336-0644-40 ")
  1. ;;3301
  1. ;;21,"66336-0655-21 ")
  1. ;;298
  1. ;;21,"66336-0655-30 ")
  1. ;;299
  1. ;;21,"66336-0830-05 ")
  1. ;;4998
  1. ;;21,"66336-0903-10 ")
  1. ;;4644
  1. ;;21,"66336-0903-14 ")
  1. ;;4645
  1. ;;21,"66336-0903-20 ")
  1. ;;4646
  1. ;;21,"66336-0903-28 ")
  1. ;;4647
  1. ;;21,"66336-0903-99 ")
  1. ;;4648
  1. ;;21,"66336-0906-28 ")
  1. ;;2497
  1. ;;21,"66647-6152-11 ")
  1. ;;1357
  1. ;;21,"66647-6153-11 ")
  1. ;;1389
  1. ;;21,"66685-1001-00 ")
  1. ;;1296
  1. ;;21,"66685-1001-01 ")
  1. ;;1297
  1. ;;21,"66685-1002-00 ")
  1. ;;1168
  1. ;;21,"66685-1002-02 ")
  1. ;;1169
  1. ;;21,"66685-1011-00 ")
  1. ;;966
  1. ;;21,"66685-1011-01 ")
  1. ;;967
  1. ;;21,"66685-1011-02 ")
  1. ;;968
  1. ;;21,"66685-1012-00 ")
  1. ;;1047
  1. ;;21,"66685-1012-01 ")
  1. ;;1048
  1. ;;21,"66685-1012-02 ")
  1. ;;1049
  1. ;;21,"66860-0001-03 ")
  1. ;;1381
  1. ;;21,"66860-0002-03 ")
  1. ;;1326
  1. ;;21,"66860-0003-02 ")
  1. ;;1352
  1. ;;21,"66860-0011-02 ")
  1. ;;18
  1. ;;21,"66860-0030-03 ")
  1. ;;5115
  1. ;;21,"66860-0031-03 ")
  1. ;;5078
  1. ;;21,"66860-0032-02 ")
  1. ;;5095
  1. ;;21,"66860-0071-02 ")
  1. ;;6893
  1. ;;21,"66860-0072-02 ")
  1. ;;6932
  1. ;;21,"66860-0073-02 ")
  1. ;;6814
  1. ;;21,"66860-0074-02 ")
  1. ;;6858
  1. ;;21,"66860-0730-03 ")
  1. ;;5116
  1. ;;21,"66860-0731-03 ")
  1. ;;5079
  1. ;;21,"66860-0732-02 ")
  1. ;;5096
  1. ;;21,"66860-0902-03 ")
  1. ;;1327
  1. ;;21,"66993-0815-30 ")
  1. ;;5931
  1. ;;21,"67046-0020-21 ")
  1. ;;695
  1. ;;21,"67046-0084-10 ")
  1. ;;2399
  1. ;;21,"67046-0084-20 ")
  1. ;;2400
  1. ;;21,"67046-0084-21 ")
  1. ;;2401
  1. ;;21,"67046-0084-28 ")
  1. ;;2402
  1. ;;21,"67046-0084-30 ")
  1. ;;2403
  1. ;;21,"67046-0085-10 ")
  1. ;;2404
  1. ;;21,"67046-0085-20 ")
  1. ;;2405
  1. ;;21,"67046-0085-21 ")
  1. ;;2406
  1. ;;21,"67046-0085-28 ")
  1. ;;2407
  1. ;;21,"67046-0085-30 ")
  1. ;;2408
  1. ;;21,"67046-0090-21 ")
  1. ;;2107
  1. ;;21,"67046-0090-28 ")
  1. ;;2108
  1. ;;21,"67046-0090-30 ")
  1. ;;2109
  1. ;;21,"67046-0135-14 ")
  1. ;;6110
  1. ;;21,"67046-0135-20 ")
  1. ;;6111
  1. ;;21,"67046-0135-30 ")
  1. ;;6112
  1. ;;21,"67046-0576-21 ")
  1. ;;3901
  1. ;;21,"67046-0576-28 ")
  1. ;;3902
  1. ;;21,"67046-0576-30 ")
  1. ;;3903
  1. ;;21,"67046-0728-30 ")
  1. ;;6761
  1. ;;21,"67253-0008-46 ")
  1. ;;6963
  1. ;;21,"67253-0009-41 ")
  1. ;;6991
  1. ;;21,"67253-0009-46 ")
  1. ;;6992
  1. ;;21,"67253-0011-06 ")
  1. ;;7028
  1. ;;21,"67253-0012-41 ")
  1. ;;6964
  1. ;;21,"67253-0012-42 ")
  1. ;;6965
  1. ;;21,"67253-0013-41 ")
  1. ;;6993
  1. ;;21,"67253-0013-42 ")
  1. ;;6994
  1. ;;21,"67253-0140-10 ")
  1. ;;300
  1. ;;21,"67253-0140-50 ")
  1. ;;301
  1. ;;21,"67253-0141-10 ")
  1. ;;696
  1. ;;21,"67253-0141-50 ")
  1. ;;697
  1. ;;21,"67253-0142-08 ")
  1. ;;132
  1. ;;21,"67253-0142-10 ")
  1. ;;133
  1. ;;21,"67253-0142-15 ")
  1. ;;134
  1. ;;21,"67253-0143-08 ")
  1. ;;423
  1. ;;21,"67253-0143-10 ")
  1. ;;424
  1. ;;21,"67253-0143-15 ")
  1. ;;425
  1. ;;21,"67253-0145-10 ")
  1. ;;776
  1. ;;21,"67253-0146-45 ")
  1. ;;135
  1. ;;21,"67253-0146-46 ")
  1. ;;136
  1. ;;21,"67253-0146-47 ")
  1. ;;137
  1. ;;21,"67253-0147-40 ")
  1. ;;165
  1. ;;21,"67253-0147-43 ")
  1. ;;166
  1. ;;21,"67253-0147-44 ")
  1. ;;167
  1. ;;21,"67253-0149-40 ")
  1. ;;462
  1. ;;21,"67253-0149-43 ")
  1. ;;463
  1. ;;21,"67253-0149-44 ")
  1. ;;464
  1. ;;21,"67253-0180-10 ")
  1. ;;830
  1. ;;21,"67253-0180-50 ")
  1. ;;831
  1. ;;21,"67253-0181-10 ")
  1. ;;894
  1. ;;21,"67253-0181-50 ")
  1. ;;895
  1. ;;21,"67253-0182-10 ")
  1. ;;778
  1. ;;21,"67253-0182-20 ")
  1. ;;779
  1. ;;21,"67253-0183-10 ")
  1. ;;840
  1. ;;21,"67253-0183-20 ")
  1. ;;841
  1. ;;21,"67253-0200-10 ")
  1. ;;3717
  1. ;;21,"67253-0200-11 ")
  1. ;;3718
  1. ;;21,"67253-0201-10 ")
  1. ;;3904
  1. ;;21,"67253-0201-50 ")
  1. ;;3905
  1. ;;21,"67253-0202-10 ")
  1. ;;3614
  1. ;;21,"67253-0202-20 ")
  1. ;;3615
  1. ;;21,"67253-0203-10 ")
  1. ;;3741
  1. ;;21,"67253-0203-20 ")
  1. ;;3742
  1. ;;21,"67253-0231-10 ")
  1. ;;5283
  1. ;;21,"67253-0232-05 ")
  1. ;;5348
  1. ;;21,"67253-0300-10 ")
  1. ;;1762
  1. ;;21,"67253-0300-50 ")
  1. ;;1763
  1. ;;21,"67253-0301-10 ")
  1. ;;2110
  1. ;;21,"67253-0301-50 ")
  1. ;;2111
  1. ;;21,"67253-0388-15 ")
  1. ;;6339
  1. ;;21,"67253-0389-15 ")
  1. ;;6113
  1. ;;21,"67253-0389-50 ")
  1. ;;6114
  1. ;;21,"67253-0391-15 ")
  1. ;;6288
  1. ;;21,"67253-0391-50 ")
  1. ;;6289
  1. ;;21,"67253-0780-02 ")
  1. ;;5433
  1. ;;21,"67253-0781-02 ")
  1. ;;5498
  1. ;;21,"67296-0220-05 ")
  1. ;;698
  1. ;;21,"67296-0716-01 ")
  1. ;;1298
  1. ;;21,"67405-0550-05 ")
  1. ;;6290
  1. ;;21,"67405-0550-55 ")
  1. ;;6291
  1. ;;21,"67405-0650-55 ")
  1. ;;6340
  1. ;;21,"67405-0651-05 ")
  1. ;;6115
  1. ;;21,"67405-0651-55 ")
  1. ;;6116
  1. ;;21,"67457-0437-10 ")
  1. ;;5902
  1. ;;21,"67544-0775-28 ")
  1. ;;2498
  1. ;;21,"67877-0215-20 ")
  1. ;;5434
  1. ;;21,"67877-0215-60 ")
  1. ;;5435
  1. ;;21,"67877-0216-20 ")
  1. ;;5499
  1. ;;21,"67877-0216-60 ")
  1. ;;5500
  1. ;;21,"67877-0219-01 ")
  1. ;;2112
  1. ;;21,"67877-0219-05 ")
  1. ;;2113
  1. ;;21,"67877-0219-10 ")
  1. ;;2114
  1. ;;21,"67877-0219-20 ")
  1. ;;2115
  1. ;;21,"67877-0220-01 ")
  1. ;;1764
  1. ;;21,"67877-0220-05 ")
  1. ;;1765
  1. ;;21,"67877-0220-10 ")
  1. ;;1766
  1. ;;21,"67877-0220-20 ")
  1. ;;1767
  1. ;;21,"67877-0255-20 ")
  1. ;;2131
  1. ;;21,"67877-0255-23 ")
  1. ;;2132
  1. ;;21,"68001-0150-06 ")
  1. ;;7029
  1. ;;21,"68047-0714-01 ")
  1. ;;5925
  1. ;;21,"68047-0714-60 ")
  1. ;;5926
  1. ;;21,"68071-0055-06 ")
  1. ;;4306
  1. ;;21,"68071-0055-10 ")
  1. ;;4307
  1. ;;21,"68071-0055-14 ")
  1. ;;4308
  1. ;;21,"68071-0055-20 ")
  1. ;;4309
  1. ;;21,"68071-0055-28 ")
  1. ;;4310
  1. ;;21,"68071-0055-30 ")
  1. ;;4311
  1. ;;21,"68071-0331-14 ")
  1. ;;4763
  1. ;;21,"68071-0331-20 ")
  1. ;;4764
  1. ;;21,"68071-0331-30 ")
  1. ;;4765
  1. ;;21,"68071-0337-14 ")
  1. ;;3028
  1. ;;21,"68071-0337-20 ")
  1. ;;3029
  1. ;;21,"68071-0337-30 ")
  1. ;;3030
  1. ;;21,"68071-0398-06 ")
  1. ;;2499
  1. ;;21,"68071-0398-14 ")
  1. ;;2500
  1. ;;21,"68071-0398-20 ")
  1. ;;2501
  1. ;;21,"68071-0398-30 ")
  1. ;;2502
  1. ;;21,"68071-0398-40 ")
  1. ;;2503
  1. ;;21,"68071-0398-90 ")
  1. ;;2504
  1. ;;21,"68084-0069-01 ")
  1. ;;4312
  1. ;;21,"68084-0069-11 ")
  1. ;;4313
  1. ;;21,"68084-0070-01 ")
  1. ;;4649
  1. ;;21,"68084-0070-11 ")
  1. ;;4650
  1. ;;21,"68084-0071-01 ")
  1. ;;4766
  1. ;;21,"68084-0071-11 ")
  1. ;;4767
  1. ;;21,"68084-0218-01 ")
  1. ;;5436
  1. ;;21,"68084-0218-11 ")
  1. ;;5437
  1. ;;21,"68084-0219-01 ")
  1. ;;5501
  1. ;;21,"68084-0219-11 ")
  1. ;;5502
  1. ;;21,"68084-0230-01 ")
  1. ;;5888
  1. ;;21,"68084-0230-11 ")
  1. ;;5889
  1. ;;21,"68084-0235-01 ")
  1. ;;1170
  1. ;;21,"68084-0235-11 ")
  1. ;;1171
  1. ;;21,"68084-0236-01 ")
  1. ;;1299
  1. ;;21,"68084-0236-11 ")
  1. ;;1300
  1. ;;21,"68084-0243-01 ")
  1. ;;2409
  1. ;;21,"68084-0243-11 ")
  1. ;;2410
  1. ;;21,"68084-0244-01 ")
  1. ;;2505
  1. ;;21,"68084-0244-11 ")
  1. ;;2506
  1. ;;21,"68084-0278-01 ")
  1. ;;2766
  1. ;;21,"68084-0278-11 ")
  1. ;;2767
  1. ;;21,"68084-0278-30 ")
  1. ;;2768
  1. ;;21,"68084-0278-65 ")
  1. ;;2769
  1. ;;21,"68084-0278-89 ")
  1. ;;2770
  1. ;;21,"68084-0279-11 ")
  1. ;;2848
  1. ;;21,"68084-0279-21 ")
  1. ;;2849
  1. ;;21,"68084-0289-01 ")
  1. ;;6471
  1. ;;21,"68084-0289-11 ")
  1. ;;6472
  1. ;;21,"68084-0437-11 ")
  1. ;;3031
  1. ;;21,"68084-0437-65 ")
  1. ;;3032
  1. ;;21,"68084-0443-11 ")
  1. ;;2771
  1. ;;21,"68084-0443-65 ")
  1. ;;2772
  1. ;;21,"68084-0464-11 ")
  1. ;;2865
  1. ;;21,"68084-0464-21 ")
  1. ;;2866
  1. ;;21,"68084-0481-01 ")
  1. ;;4844
  1. ;;21,"68084-0481-11 ")
  1. ;;4845
  1. ;;21,"68084-0482-01 ")
  1. ;;4952
  1. ;;21,"68084-0482-11 ")
  1. ;;4953
  1. ;;21,"68084-0483-01 ")
  1. ;;4999
  1. ;;21,"68084-0483-11 ")
  1. ;;5000
  1. ;;21,"68084-0623-11 ")
  1. ;;6473
  1. ;;21,"68084-0623-65 ")
  1. ;;6474
  1. ;;21,"68084-0651-25 ")
  1. ;;3033
  1. ;;21,"68084-0656-01 ")
  1. ;;2773
  1. ;;21,"68084-0722-11 ")
  1. ;;5050
  1. ;;21,"68084-0722-65 ")
  1. ;;5051
  1. ;;21,"68084-0743-32 ")
  1. ;;6365
  1. ;;21,"68084-0747-25 ")
  1. ;;5618
  1. ;;21,"68084-0906-01 ")
  1. ;;2774
  1. ;;21,"68084-0913-32 ")
  1. ;;2850
  1. ;;21,"68084-0920-32 ")
  1. ;;2867
  1. ;;21,"68115-0026-06 ")
  1. ;;302
  1. ;;21,"68115-0026-09 ")
  1. ;;303
  1. ;;21,"68115-0026-15 ")
  1. ;;304
  1. ;;21,"68115-0026-40 ")
  1. ;;305
  1. ;;21,"68115-0029-20 ")
  1. ;;699
  1. ;;21,"68115-0030-10 ")
  1. ;;777
  1. ;;21,"68115-0032-40 ")
  1. ;;832
  1. ;;21,"68115-0033-15 ")
  1. ;;896
  1. ;;21,"68115-0033-40 ")
  1. ;;897
  1. ;;21,"68115-0067-20 ")
  1. ;;1526
  1. ;;21,"68115-0081-06 ")
  1. ;;4314
  1. ;;21,"68115-0081-10 ")
  1. ;;4315
  1. ;;21,"68115-0082-01 ")
  1. ;;4651
  1. ;;21,"68115-0082-06 ")
  1. ;;4652
  1. ;;21,"68115-0090-20 ")
  1. ;;1806
  1. ;;21,"68115-0104-06 ")
  1. ;;3977
  1. ;;21,"68115-0104-40 ")
  1. ;;3978
  1. ;;21,"68115-0105-30 ")
  1. ;;4051
  1. ;;21,"68115-0105-40 ")
  1. ;;4052
  1. ;;21,"68115-0125-28 ")
  1. ;;6117
  1. ;;21,"68115-0131-06 ")
  1. ;;3243
  1. ;;21,"68115-0131-15 ")
  1. ;;3244
  1. ;;21,"68115-0131-21 ")
  1. ;;3245
  1. ;;21,"68115-0131-40 ")
  1. ;;3246
  1. ;;21,"68115-0133-20 ")
  1. ;;3085
  1. ;;21,"68115-0133-40 ")
  1. ;;3086
  1. ;;21,"68115-0134-06 ")
  1. ;;3162
  1. ;;21,"68115-0134-40 ")
  1. ;;3163
  1. ;;21,"68115-0421-28 ")
  1. ;;2507
  1. ;;21,"68115-0445-22 ")
  1. ;;3573
  1. ;;21,"68180-0121-01 ")
  1. ;;1768
  1. ;;21,"68180-0121-02 ")
  1. ;;1769
  1. ;;21,"68180-0122-01 ")
  1. ;;2116
  1. ;;21,"68180-0122-02 ")
  1. ;;2117
  1. ;;21,"68180-0123-01 ")
  1. ;;1580
  1. ;;21,"68180-0123-02 ")
  1. ;;1581
  1. ;;21,"68180-0124-01 ")
  1. ;;1807
  1. ;;21,"68180-0124-02 ")
  1. ;;1808
  1. ;;21,"68180-0180-01 ")
  1. ;;1527
  1. ;;21,"68180-0180-08 ")
  1. ;;1528
  1. ;;21,"68180-0181-01 ")
  1. ;;1412
  1. ;;21,"68180-0181-02 ")
  1. ;;1413
  1. ;;21,"68180-0182-02 ")
  1. ;;1549
  1. ;;21,"68180-0182-03 ")
  1. ;;1550
  1. ;;21,"68180-0202-01 ")
  1. ;;7049
  1. ;;21,"68180-0202-02 ")
  1. ;;7050
  1. ;;21,"68180-0202-03 ")
  1. ;;7051
  1. ;;21,"68180-0240-01 ")
  1. ;;4846
  1. ;;21,"68180-0240-08 ")
  1. ;;4847
  1. ;;21,"68180-0241-01 ")
  1. ;;4954
  1. ;;21,"68180-0241-02 ")
  1. ;;4955
  1. ;;21,"68180-0241-08 ")
  1. ;;4956
  1. ;;21,"68180-0242-01 ")
  1. ;;5001
  1. ;;21,"68180-0242-20 ")
  1. ;;5002
  1. ;;21,"68180-0302-20 ")
  1. ;;5438
  1. ;;21,"68180-0302-60 ")
  1. ;;5439
  1. ;;21,"68180-0303-20 ")
  1. ;;5503
  1. ;;21,"68180-0303-60 ")
  1. ;;5504
  1. ;;21,"68180-0379-06 ")
  1. ;;6505
  1. ;;21,"68180-0380-06 ")
  1. ;;6571
  1. ;;21,"68180-0381-06 ")
  1. ;;6494
  1. ;;21,"68180-0392-01 ")
  1. ;;4320
  1. ;;21,"68180-0393-01 ")
  1. ;;4681
  1. ;;21,"68180-0401-01 ")
  1. ;;5265
  1. ;;21,"68180-0401-02 ")
  1. ;;5266
  1. ;;21,"68180-0401-03 ")
  1. ;;5267
  1. ;;21,"68180-0402-01 ")
  1. ;;5322
  1. ;;21,"68180-0402-02 ")
  1. ;;5323
  1. ;;21,"68180-0402-03 ")
  1. ;;5324
  1. ;;21,"68180-0403-01 ")
  1. ;;5284
  1. ;;21,"68180-0404-01 ")
  1. ;;5349
  1. ;;21,"68180-0404-02 ")
  1. ;;5350
  1. ;;21,"68180-0405-01 ")
  1. ;;7052
  1. ;;21,"68180-0407-03 ")
  1. ;;7059
  1. ;;21,"68180-0407-04 ")
  1. ;;7060
  1. ;;21,"68180-0611-01 ")
  1. ;;6894
  1. ;;21,"68180-0611-10 ")
  1. ;;6895
  1. ;;21,"68180-0622-01 ")
  1. ;;6933
  1. ;;21,"68180-0622-10 ")
  1. ;;6934
  1. ;;21,"68180-0633-01 ")
  1. ;;6815
  1. ;;21,"68180-0633-10 ")
  1. ;;6816
  1. ;;21,"68180-0644-01 ")
  1. ;;6859
  1. ;;21,"68180-0644-10 ")
  1. ;;6860
  1. ;;21,"68180-0650-01 ")
  1. ;;6400
  1. ;;21,"68180-0651-01 ")
  1. ;;6411
  1. ;;21,"68180-0652-08 ")
  1. ;;6366
  1. ;;21,"68180-0657-01 ")
  1. ;;5928
  1. ;;21,"68180-0711-60 ")
  1. ;;7030
  1. ;;21,"68180-0722-10 ")
  1. ;;6966
  1. ;;21,"68180-0722-20 ")
  1. ;;6967
  1. ;;21,"68180-0723-10 ")
  1. ;;6995
  1. ;;21,"68180-0723-20 ")
  1. ;;6996
  1. ;;21,"68258-3012-01 ")
  1. ;;2851
  1. ;;21,"68258-9300-02 ")
  1. ;;7092
  1. ;;21,"68308-0250-10 ")
  1. ;;3087
  1. ;;21,"68308-0710-10 ")
  1. ;;6124
  1. ;;21,"68308-0715-10 ")
  1. ;;6301
  1. ;;21,"68308-0775-60 ")
  1. ;;6347
  1. ;;21,"68330-0001-01 ")
  1. ;;6896
  1. ;;21,"68330-0001-10 ")
  1. ;;6897
  1. ;;21,"68330-0002-01 ")
  1. ;;6935
  1. ;;21,"68330-0002-10 ")
  1. ;;6936
  1. ;;21,"68330-0003-01 ")
  1. ;;6817
  1. ;;21,"68330-0003-10 ")
  1. ;;6818
  1. ;;21,"68330-0004-01 ")
  1. ;;6861
  1. ;;21,"68330-0004-10 ")
  1. ;;6862
  1. ;;21,"68330-0005-01 ")
  1. ;;6819
  1. ;;21,"68330-0006-01 ")
  1. ;;6863
  1. ;;21,"68330-0015-25 ")
  1. ;;1328
  1. ;;21,"68382-0015-01 ")
  1. ;;4848