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

BGP82I15.m

Go to the documentation of this file.
BGP82I15 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"68788-9053-03 ")
 ;;4687
 ;;21,"68788-9411-03 ")
 ;;4688
 ;;21,"68788-9461-01 ")
 ;;4689
 ;;21,"68788-9461-03 ")
 ;;4690
 ;;21,"68788-9461-06 ")
 ;;4691
 ;;21,"68788-9461-09 ")
 ;;4692
 ;;21,"68788-9527-03 ")
 ;;4693
 ;;21,"68788-9536-03 ")
 ;;4694
 ;;21,"68788-9661-03 ")
 ;;4695
 ;;21,"68788-9712-03 ")
 ;;4696
 ;;21,"68788-9750-03 ")
 ;;4697
 ;;21,"68788-9765-01 ")
 ;;4698
 ;;21,"68788-9765-03 ")
 ;;4699
 ;;21,"68788-9765-06 ")
 ;;4700
 ;;21,"68788-9765-09 ")
 ;;4701
 ;;21,"68788-9807-03 ")
 ;;4702
 ;;21,"68788-9808-03 ")
 ;;4703
 ;;21,"68788-9809-03 ")
 ;;4704
 ;;21,"68788-9821-03 ")
 ;;4705
 ;;21,"68788-9822-03 ")
 ;;4706
 ;;21,"68788-9823-03 ")
 ;;4707
 ;;21,"68788-9910-03 ")
 ;;4708
 ;;21,"68788-9911-03 ")
 ;;4709
 ;;21,"68788-9912-03 ")
 ;;4710
 ;;21,"68788-9933-03 ")
 ;;4711
 ;;21,"68788-9947-09 ")
 ;;4712
 ;;21,"69097-0828-05 ")
 ;;4713
 ;;21,"69097-0829-05 ")
 ;;4714
 ;;21,"69097-0831-05 ")
 ;;4715
 ;;21,"69097-0839-05 ")
 ;;4716
 ;;21,"69097-0841-05 ")
 ;;4717
 ;;21,"69097-0842-05 ")
 ;;4718
 ;;21,"69097-0843-05 ")
 ;;4719
 ;;21,"69097-0856-05 ")
 ;;4720
 ;;21,"69097-0857-05 ")
 ;;4721
 ;;21,"69097-0858-05 ")
 ;;4722
 ;;21,"69367-0119-01 ")
 ;;4723
 ;;21,"69367-0119-03 ")
 ;;4724
 ;;21,"69367-0120-01 ")
 ;;4725
 ;;21,"69367-0120-03 ")
 ;;4726
 ;;21,"69367-0121-01 ")
 ;;4727
 ;;21,"69367-0121-03 ")
 ;;4728
 ;;21,"69543-0140-11 ")
 ;;4729
 ;;21,"69543-0140-90 ")
 ;;4730
 ;;21,"69543-0141-11 ")
 ;;4731
 ;;21,"69543-0141-30 ")
 ;;4732
 ;;21,"69543-0141-90 ")
 ;;4733
 ;;21,"69543-0142-11 ")
 ;;4734
 ;;21,"69543-0142-30 ")
 ;;4735
 ;;21,"69543-0142-90 ")
 ;;4736
 ;;21,"70839-0150-30 ")
 ;;4737
 ;;21,"70839-0300-30 ")
 ;;4738
 ;;21,"70839-0325-30 ")
 ;;4739
 ;;21,"70882-0103-30 ")
 ;;4740
 ;;21,"70882-0104-30 ")
 ;;4741
 ;;21,"70882-0110-30 ")
 ;;4742
 ;;21,"76234-0001-01 ")
 ;;4743
 ;;21,"76234-0002-01 ")
 ;;4744
 ;;21,"76282-0200-10 ")
 ;;4745
 ;;21,"76282-0200-90 ")
 ;;4746
 ;;21,"76282-0201-10 ")
 ;;4747
 ;;21,"76282-0201-90 ")
 ;;4748
 ;;21,"76282-0202-10 ")
 ;;4749
 ;;21,"76282-0202-90 ")
 ;;4750
 ;;21,"76282-0271-01 ")
 ;;4751
 ;;21,"76282-0272-01 ")
 ;;4752
 ;;21,"76282-0272-05 ")
 ;;4753
 ;;21,"76282-0273-01 ")
 ;;4754
 ;;21,"76282-0273-05 ")
 ;;4755
 ;;21,"76282-0274-01 ")
 ;;4756
 ;;21,"76282-0274-05 ")
 ;;4757
 ;;21,"76282-0417-01 ")
 ;;4758
 ;;21,"76282-0417-05 ")
 ;;4759
 ;;21,"76282-0418-01 ")
 ;;4760
 ;;21,"76282-0418-10 ")
 ;;4761
 ;;21,"76282-0418-45 ")
 ;;4762
 ;;21,"76282-0418-90 ")
 ;;4763
 ;;21,"76282-0419-01 ")
 ;;4764
 ;;21,"76282-0419-10 ")
 ;;4765
 ;;21,"76282-0419-45 ")
 ;;4766
 ;;21,"76282-0419-50 ")
 ;;4767
 ;;21,"76282-0419-90 ")
 ;;4768
 ;;21,"76282-0420-01 ")
 ;;4769
 ;;21,"76282-0420-10 ")
 ;;4770
 ;;21,"76282-0420-18 ")
 ;;4771
 ;;21,"76282-0420-45 ")
 ;;4772
 ;;21,"76282-0420-50 ")
 ;;4773
 ;;21,"76282-0420-90 ")
 ;;4774
 ;;21,"76282-0421-01 ")
 ;;4775
 ;;21,"76282-0421-05 ")
 ;;4776
 ;;21,"76282-0422-01 ")
 ;;4777
 ;;21,"76282-0422-05 ")
 ;;4778
 ;;21,"76282-0422-10 ")
 ;;4779
 ;;21,"76282-0422-18 ")
 ;;4780
 ;;21,"76282-0422-45 ")
 ;;4781
 ;;21,"76282-0422-90 ")
 ;;4782
 ;;21,"76439-0140-11 ")
 ;;4783
 ;;21,"76439-0140-90 ")
 ;;4784
 ;;21,"76439-0141-11 ")
 ;;4785
 ;;21,"76439-0141-30 ")
 ;;4786
 ;;21,"76439-0141-90 ")
 ;;4787
 ;;21,"76439-0142-11 ")
 ;;4788
 ;;21,"76439-0142-30 ")
 ;;4789
 ;;21,"76439-0142-90 ")
 ;;4790
 ;;9002226,1733,.01)
 ;;BGP PQA RASA NDC
 ;;9002226,1733,.02)
 ;;RASA NDC
 ;;9002226,1733,.04)
 ;;n
 ;;9002226,1733,.06)
 ;;@
 ;;9002226,1733,.08)
 ;;@
 ;;9002226,1733,.09)
 ;;3170809
 ;;9002226,1733,.11)
 ;;@
 ;;9002226,1733,.12)
 ;;@
 ;;9002226,1733,.13)
 ;;1
 ;;9002226,1733,.14)
 ;;@
 ;;9002226,1733,.15)
 ;;50.67
 ;;9002226,1733,.16)
 ;;@
 ;;9002226,1733,.17)
 ;;@
 ;;9002226,1733,.22)
 ;;1
 ;;9002226,1733,3101)
 ;;@
 ;;9002226.02101,"1733,00006-0019-54 ",.01)
 ;;00006-0019-54
 ;;9002226.02101,"1733,00006-0019-54 ",.02)
 ;;00006-0019-54
 ;;9002226.02101,"1733,00006-0106-54 ",.01)
 ;;00006-0106-54
 ;;9002226.02101,"1733,00006-0106-54 ",.02)
 ;;00006-0106-54
 ;;9002226.02101,"1733,00006-0207-54 ",.01)
 ;;00006-0207-54
 ;;9002226.02101,"1733,00006-0207-54 ",.02)
 ;;00006-0207-54
 ;;9002226.02101,"1733,00006-0717-31 ",.01)
 ;;00006-0717-31
 ;;9002226.02101,"1733,00006-0717-31 ",.02)
 ;;00006-0717-31
 ;;9002226.02101,"1733,00006-0717-54 ",.01)
 ;;00006-0717-54
 ;;9002226.02101,"1733,00006-0717-54 ",.02)
 ;;00006-0717-54
 ;;9002226.02101,"1733,00006-0717-82 ",.01)
 ;;00006-0717-82
 ;;9002226.02101,"1733,00006-0717-82 ",.02)
 ;;00006-0717-82
 ;;9002226.02101,"1733,00006-0745-31 ",.01)
 ;;00006-0745-31
 ;;9002226.02101,"1733,00006-0745-31 ",.02)
 ;;00006-0745-31
 ;;9002226.02101,"1733,00006-0745-54 ",.01)
 ;;00006-0745-54
 ;;9002226.02101,"1733,00006-0745-54 ",.02)
 ;;00006-0745-54
 ;;9002226.02101,"1733,00006-0745-82 ",.01)
 ;;00006-0745-82
 ;;9002226.02101,"1733,00006-0745-82 ",.02)
 ;;00006-0745-82
 ;;9002226.02101,"1733,00006-0747-31 ",.01)
 ;;00006-0747-31
 ;;9002226.02101,"1733,00006-0747-31 ",.02)
 ;;00006-0747-31
 ;;9002226.02101,"1733,00006-0747-54 ",.01)
 ;;00006-0747-54
 ;;9002226.02101,"1733,00006-0747-54 ",.02)
 ;;00006-0747-54
 ;;9002226.02101,"1733,00006-0747-82 ",.01)
 ;;00006-0747-82
 ;;9002226.02101,"1733,00006-0747-82 ",.02)
 ;;00006-0747-82
 ;;9002226.02101,"1733,00006-0951-54 ",.01)
 ;;00006-0951-54
 ;;9002226.02101,"1733,00006-0951-54 ",.02)
 ;;00006-0951-54
 ;;9002226.02101,"1733,00006-0951-82 ",.01)
 ;;00006-0951-82
 ;;9002226.02101,"1733,00006-0951-82 ",.02)
 ;;00006-0951-82
 ;;9002226.02101,"1733,00006-0951-87 ",.01)
 ;;00006-0951-87
 ;;9002226.02101,"1733,00006-0951-87 ",.02)
 ;;00006-0951-87
 ;;9002226.02101,"1733,00006-0952-31 ",.01)
 ;;00006-0952-31
 ;;9002226.02101,"1733,00006-0952-31 ",.02)
 ;;00006-0952-31
 ;;9002226.02101,"1733,00006-0952-54 ",.01)
 ;;00006-0952-54
 ;;9002226.02101,"1733,00006-0952-54 ",.02)
 ;;00006-0952-54
 ;;9002226.02101,"1733,00006-0952-82 ",.01)
 ;;00006-0952-82
 ;;9002226.02101,"1733,00006-0952-82 ",.02)
 ;;00006-0952-82
 ;;9002226.02101,"1733,00006-0960-31 ",.01)
 ;;00006-0960-31
 ;;9002226.02101,"1733,00006-0960-31 ",.02)
 ;;00006-0960-31
 ;;9002226.02101,"1733,00006-0960-54 ",.01)
 ;;00006-0960-54
 ;;9002226.02101,"1733,00006-0960-54 ",.02)
 ;;00006-0960-54
 ;;9002226.02101,"1733,00006-0960-82 ",.01)
 ;;00006-0960-82
 ;;9002226.02101,"1733,00006-0960-82 ",.02)
 ;;00006-0960-82
 ;;9002226.02101,"1733,00023-5874-30 ",.01)
 ;;00023-5874-30
 ;;9002226.02101,"1733,00023-5874-30 ",.02)
 ;;00023-5874-30
 ;;9002226.02101,"1733,00024-5850-30 ",.01)
 ;;00024-5850-30
 ;;9002226.02101,"1733,00024-5850-30 ",.02)
 ;;00024-5850-30
 ;;9002226.02101,"1733,00024-5850-90 ",.01)
 ;;00024-5850-90
 ;;9002226.02101,"1733,00024-5850-90 ",.02)
 ;;00024-5850-90
 ;;9002226.02101,"1733,00024-5851-30 ",.01)
 ;;00024-5851-30
 ;;9002226.02101,"1733,00024-5851-30 ",.02)
 ;;00024-5851-30
 ;;9002226.02101,"1733,00024-5851-90 ",.01)
 ;;00024-5851-90
 ;;9002226.02101,"1733,00024-5851-90 ",.02)
 ;;00024-5851-90
 ;;9002226.02101,"1733,00024-5852-30 ",.01)
 ;;00024-5852-30
 ;;9002226.02101,"1733,00024-5852-30 ",.02)
 ;;00024-5852-30
 ;;9002226.02101,"1733,00024-5852-90 ",.01)
 ;;00024-5852-90
 ;;9002226.02101,"1733,00024-5852-90 ",.02)
 ;;00024-5852-90
 ;;9002226.02101,"1733,00024-5855-30 ",.01)
 ;;00024-5855-30
 ;;9002226.02101,"1733,00024-5855-30 ",.02)
 ;;00024-5855-30
 ;;9002226.02101,"1733,00024-5855-90 ",.01)
 ;;00024-5855-90
 ;;9002226.02101,"1733,00024-5855-90 ",.02)
 ;;00024-5855-90
 ;;9002226.02101,"1733,00024-5856-30 ",.01)
 ;;00024-5856-30
 ;;9002226.02101,"1733,00024-5856-30 ",.02)
 ;;00024-5856-30
 ;;9002226.02101,"1733,00024-5856-90 ",.01)
 ;;00024-5856-90
 ;;9002226.02101,"1733,00024-5856-90 ",.02)
 ;;00024-5856-90
 ;;9002226.02101,"1733,00054-0106-25 ",.01)
 ;;00054-0106-25
 ;;9002226.02101,"1733,00054-0106-25 ",.02)
 ;;00054-0106-25
 ;;9002226.02101,"1733,00054-0107-20 ",.01)
 ;;00054-0107-20
 ;;9002226.02101,"1733,00054-0107-20 ",.02)
 ;;00054-0107-20
 ;;9002226.02101,"1733,00054-0107-25 ",.01)
 ;;00054-0107-25
 ;;9002226.02101,"1733,00054-0107-25 ",.02)
 ;;00054-0107-25
 ;;9002226.02101,"1733,00054-0107-29 ",.01)
 ;;00054-0107-29
 ;;9002226.02101,"1733,00054-0107-29 ",.02)
 ;;00054-0107-29
 ;;9002226.02101,"1733,00054-0108-20 ",.01)
 ;;00054-0108-20
 ;;9002226.02101,"1733,00054-0108-20 ",.02)
 ;;00054-0108-20
 ;;9002226.02101,"1733,00054-0108-25 ",.01)
 ;;00054-0108-25
 ;;9002226.02101,"1733,00054-0108-25 ",.02)
 ;;00054-0108-25
 ;;9002226.02101,"1733,00054-0108-29 ",.01)
 ;;00054-0108-29
 ;;9002226.02101,"1733,00054-0108-29 ",.02)
 ;;00054-0108-29
 ;;9002226.02101,"1733,00054-0109-25 ",.01)
 ;;00054-0109-25
 ;;9002226.02101,"1733,00054-0109-25 ",.02)
 ;;00054-0109-25
 ;;9002226.02101,"1733,00054-0109-29 ",.01)
 ;;00054-0109-29
 ;;9002226.02101,"1733,00054-0109-29 ",.02)
 ;;00054-0109-29
 ;;9002226.02101,"1733,00054-0110-25 ",.01)
 ;;00054-0110-25
 ;;9002226.02101,"1733,00054-0110-25 ",.02)
 ;;00054-0110-25
 ;;9002226.02101,"1733,00054-0111-25 ",.01)
 ;;00054-0111-25
 ;;9002226.02101,"1733,00054-0111-25 ",.02)
 ;;00054-0111-25
 ;;9002226.02101,"1733,00054-0112-25 ",.01)
 ;;00054-0112-25
 ;;9002226.02101,"1733,00054-0112-25 ",.02)
 ;;00054-0112-25
 ;;9002226.02101,"1733,00054-0123-22 ",.01)
 ;;00054-0123-22
 ;;9002226.02101,"1733,00054-0123-22 ",.02)
 ;;00054-0123-22
 ;;9002226.02101,"1733,00054-0124-22 ",.01)
 ;;00054-0124-22
 ;;9002226.02101,"1733,00054-0124-22 ",.02)
 ;;00054-0124-22
 ;;9002226.02101,"1733,00054-0125-22 ",.01)
 ;;00054-0125-22
 ;;9002226.02101,"1733,00054-0125-22 ",.02)
 ;;00054-0125-22
 ;;9002226.02101,"1733,00054-0126-22 ",.01)
 ;;00054-0126-22
 ;;9002226.02101,"1733,00054-0126-22 ",.02)
 ;;00054-0126-22
 ;;9002226.02101,"1733,00054-0127-22 ",.01)
 ;;00054-0127-22
 ;;9002226.02101,"1733,00054-0127-22 ",.02)
 ;;00054-0127-22
 ;;9002226.02101,"1733,00054-0250-13 ",.01)
 ;;00054-0250-13
 ;;9002226.02101,"1733,00054-0250-13 ",.02)
 ;;00054-0250-13
 ;;9002226.02101,"1733,00054-0250-22 ",.01)
 ;;00054-0250-22
 ;;9002226.02101,"1733,00054-0250-22 ",.02)
 ;;00054-0250-22
 ;;9002226.02101,"1733,00054-0251-13 ",.01)
 ;;00054-0251-13
 ;;9002226.02101,"1733,00054-0251-13 ",.02)
 ;;00054-0251-13
 ;;9002226.02101,"1733,00054-0251-22 ",.01)
 ;;00054-0251-22
 ;;9002226.02101,"1733,00054-0251-22 ",.02)
 ;;00054-0251-22
 ;;9002226.02101,"1733,00054-0252-13 ",.01)
 ;;00054-0252-13
 ;;9002226.02101,"1733,00054-0252-13 ",.02)
 ;;00054-0252-13
 ;;9002226.02101,"1733,00054-0252-22 ",.01)
 ;;00054-0252-22
 ;;9002226.02101,"1733,00054-0252-22 ",.02)
 ;;00054-0252-22
 ;;9002226.02101,"1733,00054-0254-13 ",.01)
 ;;00054-0254-13
 ;;9002226.02101,"1733,00054-0254-13 ",.02)
 ;;00054-0254-13
 ;;9002226.02101,"1733,00054-0254-22 ",.01)
 ;;00054-0254-22
 ;;9002226.02101,"1733,00054-0254-22 ",.02)
 ;;00054-0254-22
 ;;9002226.02101,"1733,00054-0255-13 ",.01)
 ;;00054-0255-13
 ;;9002226.02101,"1733,00054-0255-13 ",.02)
 ;;00054-0255-13
 ;;9002226.02101,"1733,00054-0255-22 ",.01)
 ;;00054-0255-22
 ;;9002226.02101,"1733,00054-0255-22 ",.02)
 ;;00054-0255-22
 ;;9002226.02101,"1733,00054-0277-22 ",.01)
 ;;00054-0277-22
 ;;9002226.02101,"1733,00054-0277-22 ",.02)
 ;;00054-0277-22
 ;;9002226.02101,"1733,00054-0542-18 ",.01)
 ;;00054-0542-18
 ;;9002226.02101,"1733,00054-0542-18 ",.02)
 ;;00054-0542-18
 ;;9002226.02101,"1733,00054-0543-18 ",.01)
 ;;00054-0543-18