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

BGP82Z52.m

Go to the documentation of this file.
BGP82Z52 ; 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)
 ;;9002226.02101,"619,54569-2523-00 ",.02)
 ;;54569-2523-00
 ;;9002226.02101,"619,54569-2523-01 ",.01)
 ;;54569-2523-01
 ;;9002226.02101,"619,54569-2523-01 ",.02)
 ;;54569-2523-01
 ;;9002226.02101,"619,54569-2523-04 ",.01)
 ;;54569-2523-04
 ;;9002226.02101,"619,54569-2523-04 ",.02)
 ;;54569-2523-04
 ;;9002226.02101,"619,54569-2523-06 ",.01)
 ;;54569-2523-06
 ;;9002226.02101,"619,54569-2523-06 ",.02)
 ;;54569-2523-06
 ;;9002226.02101,"619,54569-2523-07 ",.01)
 ;;54569-2523-07
 ;;9002226.02101,"619,54569-2523-07 ",.02)
 ;;54569-2523-07
 ;;9002226.02101,"619,54569-3515-00 ",.01)
 ;;54569-3515-00
 ;;9002226.02101,"619,54569-3515-00 ",.02)
 ;;54569-3515-00
 ;;9002226.02101,"619,54569-3540-02 ",.01)
 ;;54569-3540-02
 ;;9002226.02101,"619,54569-3540-02 ",.02)
 ;;54569-3540-02
 ;;9002226.02101,"619,54569-4089-00 ",.01)
 ;;54569-4089-00
 ;;9002226.02101,"619,54569-4089-00 ",.02)
 ;;54569-4089-00
 ;;9002226.02101,"619,54569-4089-01 ",.01)
 ;;54569-4089-01
 ;;9002226.02101,"619,54569-4089-01 ",.02)
 ;;54569-4089-01
 ;;9002226.02101,"619,54569-4089-05 ",.01)
 ;;54569-4089-05
 ;;9002226.02101,"619,54569-4089-05 ",.02)
 ;;54569-4089-05
 ;;9002226.02101,"619,54569-4510-00 ",.01)
 ;;54569-4510-00
 ;;9002226.02101,"619,54569-4510-00 ",.02)
 ;;54569-4510-00
 ;;9002226.02101,"619,54569-5240-00 ",.01)
 ;;54569-5240-00
 ;;9002226.02101,"619,54569-5240-00 ",.02)
 ;;54569-5240-00
 ;;9002226.02101,"619,54569-5240-01 ",.01)
 ;;54569-5240-01
 ;;9002226.02101,"619,54569-5240-01 ",.02)
 ;;54569-5240-01
 ;;9002226.02101,"619,54569-5240-02 ",.01)
 ;;54569-5240-02
 ;;9002226.02101,"619,54569-5240-02 ",.02)
 ;;54569-5240-02
 ;;9002226.02101,"619,54569-5240-03 ",.01)
 ;;54569-5240-03
 ;;9002226.02101,"619,54569-5240-03 ",.02)
 ;;54569-5240-03
 ;;9002226.02101,"619,54569-5240-04 ",.01)
 ;;54569-5240-04
 ;;9002226.02101,"619,54569-5240-04 ",.02)
 ;;54569-5240-04
 ;;9002226.02101,"619,54569-5240-05 ",.01)
 ;;54569-5240-05
 ;;9002226.02101,"619,54569-5240-05 ",.02)
 ;;54569-5240-05
 ;;9002226.02101,"619,54569-5240-08 ",.01)
 ;;54569-5240-08
 ;;9002226.02101,"619,54569-5240-08 ",.02)
 ;;54569-5240-08
 ;;9002226.02101,"619,54569-5240-09 ",.01)
 ;;54569-5240-09
 ;;9002226.02101,"619,54569-5240-09 ",.02)
 ;;54569-5240-09
 ;;9002226.02101,"619,54569-5305-00 ",.01)
 ;;54569-5305-00
 ;;9002226.02101,"619,54569-5305-00 ",.02)
 ;;54569-5305-00
 ;;9002226.02101,"619,54569-5308-00 ",.01)
 ;;54569-5308-00
 ;;9002226.02101,"619,54569-5308-00 ",.02)
 ;;54569-5308-00
 ;;9002226.02101,"619,54569-5308-01 ",.01)
 ;;54569-5308-01
 ;;9002226.02101,"619,54569-5308-01 ",.02)
 ;;54569-5308-01
 ;;9002226.02101,"619,54569-5308-02 ",.01)
 ;;54569-5308-02
 ;;9002226.02101,"619,54569-5308-02 ",.02)
 ;;54569-5308-02
 ;;9002226.02101,"619,54569-5436-00 ",.01)
 ;;54569-5436-00
 ;;9002226.02101,"619,54569-5436-00 ",.02)
 ;;54569-5436-00
 ;;9002226.02101,"619,54569-5436-01 ",.01)
 ;;54569-5436-01
 ;;9002226.02101,"619,54569-5436-01 ",.02)
 ;;54569-5436-01
 ;;9002226.02101,"619,54569-5436-02 ",.01)
 ;;54569-5436-02
 ;;9002226.02101,"619,54569-5436-02 ",.02)
 ;;54569-5436-02
 ;;9002226.02101,"619,54569-5436-03 ",.01)
 ;;54569-5436-03
 ;;9002226.02101,"619,54569-5436-03 ",.02)
 ;;54569-5436-03
 ;;9002226.02101,"619,54569-5436-04 ",.01)
 ;;54569-5436-04
 ;;9002226.02101,"619,54569-5436-04 ",.02)
 ;;54569-5436-04
 ;;9002226.02101,"619,54569-5436-05 ",.01)
 ;;54569-5436-05
 ;;9002226.02101,"619,54569-5436-05 ",.02)
 ;;54569-5436-05
 ;;9002226.02101,"619,54569-5436-07 ",.01)
 ;;54569-5436-07
 ;;9002226.02101,"619,54569-5436-07 ",.02)
 ;;54569-5436-07
 ;;9002226.02101,"619,54569-5436-09 ",.01)
 ;;54569-5436-09
 ;;9002226.02101,"619,54569-5436-09 ",.02)
 ;;54569-5436-09
 ;;9002226.02101,"619,54569-5523-00 ",.01)
 ;;54569-5523-00
 ;;9002226.02101,"619,54569-5523-00 ",.02)
 ;;54569-5523-00
 ;;9002226.02101,"619,54569-5523-01 ",.01)
 ;;54569-5523-01
 ;;9002226.02101,"619,54569-5523-01 ",.02)
 ;;54569-5523-01
 ;;9002226.02101,"619,54569-5523-02 ",.01)
 ;;54569-5523-02
 ;;9002226.02101,"619,54569-5523-02 ",.02)
 ;;54569-5523-02
 ;;9002226.02101,"619,54569-5523-03 ",.01)
 ;;54569-5523-03
 ;;9002226.02101,"619,54569-5523-03 ",.02)
 ;;54569-5523-03
 ;;9002226.02101,"619,54569-5523-04 ",.01)
 ;;54569-5523-04
 ;;9002226.02101,"619,54569-5523-04 ",.02)
 ;;54569-5523-04
 ;;9002226.02101,"619,54569-5523-05 ",.01)
 ;;54569-5523-05
 ;;9002226.02101,"619,54569-5523-05 ",.02)
 ;;54569-5523-05
 ;;9002226.02101,"619,54569-5523-06 ",.01)
 ;;54569-5523-06
 ;;9002226.02101,"619,54569-5523-06 ",.02)
 ;;54569-5523-06
 ;;9002226.02101,"619,54569-5523-07 ",.01)
 ;;54569-5523-07
 ;;9002226.02101,"619,54569-5523-07 ",.02)
 ;;54569-5523-07
 ;;9002226.02101,"619,54569-5680-00 ",.01)
 ;;54569-5680-00
 ;;9002226.02101,"619,54569-5680-00 ",.02)
 ;;54569-5680-00
 ;;9002226.02101,"619,54569-5680-01 ",.01)
 ;;54569-5680-01
 ;;9002226.02101,"619,54569-5680-01 ",.02)
 ;;54569-5680-01
 ;;9002226.02101,"619,54569-5680-02 ",.01)
 ;;54569-5680-02
 ;;9002226.02101,"619,54569-5680-02 ",.02)
 ;;54569-5680-02
 ;;9002226.02101,"619,54569-5680-03 ",.01)
 ;;54569-5680-03
 ;;9002226.02101,"619,54569-5680-03 ",.02)
 ;;54569-5680-03
 ;;9002226.02101,"619,54569-5680-04 ",.01)
 ;;54569-5680-04
 ;;9002226.02101,"619,54569-5680-04 ",.02)
 ;;54569-5680-04
 ;;9002226.02101,"619,54569-5772-01 ",.01)
 ;;54569-5772-01
 ;;9002226.02101,"619,54569-5772-01 ",.02)
 ;;54569-5772-01
 ;;9002226.02101,"619,54569-5967-00 ",.01)
 ;;54569-5967-00
 ;;9002226.02101,"619,54569-5967-00 ",.02)
 ;;54569-5967-00
 ;;9002226.02101,"619,54569-5967-01 ",.01)
 ;;54569-5967-01
 ;;9002226.02101,"619,54569-5967-01 ",.02)
 ;;54569-5967-01
 ;;9002226.02101,"619,54569-5967-02 ",.01)
 ;;54569-5967-02
 ;;9002226.02101,"619,54569-5967-02 ",.02)
 ;;54569-5967-02
 ;;9002226.02101,"619,54569-5967-03 ",.01)
 ;;54569-5967-03
 ;;9002226.02101,"619,54569-5967-03 ",.02)
 ;;54569-5967-03
 ;;9002226.02101,"619,54569-5967-04 ",.01)
 ;;54569-5967-04
 ;;9002226.02101,"619,54569-5967-04 ",.02)
 ;;54569-5967-04
 ;;9002226.02101,"619,54569-5967-05 ",.01)
 ;;54569-5967-05
 ;;9002226.02101,"619,54569-5967-05 ",.02)
 ;;54569-5967-05
 ;;9002226.02101,"619,54569-5967-06 ",.01)
 ;;54569-5967-06
 ;;9002226.02101,"619,54569-5967-06 ",.02)
 ;;54569-5967-06
 ;;9002226.02101,"619,54569-5988-00 ",.01)
 ;;54569-5988-00
 ;;9002226.02101,"619,54569-5988-00 ",.02)
 ;;54569-5988-00
 ;;9002226.02101,"619,54569-6027-01 ",.01)
 ;;54569-6027-01
 ;;9002226.02101,"619,54569-6027-01 ",.02)
 ;;54569-6027-01
 ;;9002226.02101,"619,54569-6027-02 ",.01)
 ;;54569-6027-02
 ;;9002226.02101,"619,54569-6027-02 ",.02)
 ;;54569-6027-02
 ;;9002226.02101,"619,54569-6027-03 ",.01)
 ;;54569-6027-03
 ;;9002226.02101,"619,54569-6027-03 ",.02)
 ;;54569-6027-03
 ;;9002226.02101,"619,54569-6027-05 ",.01)
 ;;54569-6027-05
 ;;9002226.02101,"619,54569-6027-05 ",.02)
 ;;54569-6027-05
 ;;9002226.02101,"619,54569-6027-06 ",.01)
 ;;54569-6027-06
 ;;9002226.02101,"619,54569-6027-06 ",.02)
 ;;54569-6027-06
 ;;9002226.02101,"619,54569-6121-00 ",.01)
 ;;54569-6121-00
 ;;9002226.02101,"619,54569-6121-00 ",.02)
 ;;54569-6121-00
 ;;9002226.02101,"619,54569-6121-01 ",.01)
 ;;54569-6121-01
 ;;9002226.02101,"619,54569-6121-01 ",.02)
 ;;54569-6121-01
 ;;9002226.02101,"619,54569-6164-00 ",.01)
 ;;54569-6164-00
 ;;9002226.02101,"619,54569-6164-00 ",.02)
 ;;54569-6164-00
 ;;9002226.02101,"619,54569-6325-00 ",.01)
 ;;54569-6325-00
 ;;9002226.02101,"619,54569-6325-00 ",.02)
 ;;54569-6325-00
 ;;9002226.02101,"619,54569-6326-00 ",.01)
 ;;54569-6326-00
 ;;9002226.02101,"619,54569-6326-00 ",.02)
 ;;54569-6326-00
 ;;9002226.02101,"619,54569-6328-00 ",.01)
 ;;54569-6328-00
 ;;9002226.02101,"619,54569-6328-00 ",.02)
 ;;54569-6328-00
 ;;9002226.02101,"619,54569-6361-00 ",.01)
 ;;54569-6361-00
 ;;9002226.02101,"619,54569-6361-00 ",.02)
 ;;54569-6361-00
 ;;9002226.02101,"619,54569-6361-01 ",.01)
 ;;54569-6361-01
 ;;9002226.02101,"619,54569-6361-01 ",.02)
 ;;54569-6361-01
 ;;9002226.02101,"619,54569-6361-02 ",.01)
 ;;54569-6361-02
 ;;9002226.02101,"619,54569-6361-02 ",.02)
 ;;54569-6361-02
 ;;9002226.02101,"619,54569-6361-03 ",.01)
 ;;54569-6361-03
 ;;9002226.02101,"619,54569-6361-03 ",.02)
 ;;54569-6361-03
 ;;9002226.02101,"619,54569-6385-00 ",.01)
 ;;54569-6385-00
 ;;9002226.02101,"619,54569-6385-00 ",.02)
 ;;54569-6385-00
 ;;9002226.02101,"619,54569-6438-00 ",.01)
 ;;54569-6438-00
 ;;9002226.02101,"619,54569-6438-00 ",.02)
 ;;54569-6438-00
 ;;9002226.02101,"619,54569-6500-00 ",.01)
 ;;54569-6500-00
 ;;9002226.02101,"619,54569-6500-00 ",.02)
 ;;54569-6500-00
 ;;9002226.02101,"619,54569-8305-00 ",.01)
 ;;54569-8305-00
 ;;9002226.02101,"619,54569-8305-00 ",.02)
 ;;54569-8305-00
 ;;9002226.02101,"619,54569-8314-00 ",.01)
 ;;54569-8314-00
 ;;9002226.02101,"619,54569-8314-00 ",.02)
 ;;54569-8314-00
 ;;9002226.02101,"619,54569-8336-00 ",.01)
 ;;54569-8336-00
 ;;9002226.02101,"619,54569-8336-00 ",.02)
 ;;54569-8336-00
 ;;9002226.02101,"619,54569-8709-00 ",.01)
 ;;54569-8709-00
 ;;9002226.02101,"619,54569-8709-00 ",.02)
 ;;54569-8709-00
 ;;9002226.02101,"619,54569-8808-00 ",.01)
 ;;54569-8808-00
 ;;9002226.02101,"619,54569-8808-00 ",.02)
 ;;54569-8808-00
 ;;9002226.02101,"619,54868-0072-01 ",.01)
 ;;54868-0072-01
 ;;9002226.02101,"619,54868-0072-01 ",.02)
 ;;54868-0072-01
 ;;9002226.02101,"619,54868-0072-02 ",.01)
 ;;54868-0072-02
 ;;9002226.02101,"619,54868-0072-02 ",.02)
 ;;54868-0072-02
 ;;9002226.02101,"619,54868-0072-03 ",.01)
 ;;54868-0072-03
 ;;9002226.02101,"619,54868-0072-03 ",.02)
 ;;54868-0072-03
 ;;9002226.02101,"619,54868-0072-04 ",.01)
 ;;54868-0072-04
 ;;9002226.02101,"619,54868-0072-04 ",.02)
 ;;54868-0072-04
 ;;9002226.02101,"619,54868-0072-05 ",.01)
 ;;54868-0072-05
 ;;9002226.02101,"619,54868-0072-05 ",.02)
 ;;54868-0072-05
 ;;9002226.02101,"619,54868-0072-07 ",.01)
 ;;54868-0072-07
 ;;9002226.02101,"619,54868-0072-07 ",.02)
 ;;54868-0072-07
 ;;9002226.02101,"619,54868-0072-08 ",.01)
 ;;54868-0072-08
 ;;9002226.02101,"619,54868-0072-08 ",.02)
 ;;54868-0072-08
 ;;9002226.02101,"619,54868-0072-09 ",.01)
 ;;54868-0072-09
 ;;9002226.02101,"619,54868-0072-09 ",.02)
 ;;54868-0072-09
 ;;9002226.02101,"619,54868-0162-00 ",.01)
 ;;54868-0162-00
 ;;9002226.02101,"619,54868-0162-00 ",.02)
 ;;54868-0162-00
 ;;9002226.02101,"619,54868-0162-01 ",.01)
 ;;54868-0162-01
 ;;9002226.02101,"619,54868-0162-01 ",.02)
 ;;54868-0162-01
 ;;9002226.02101,"619,54868-0244-00 ",.01)
 ;;54868-0244-00
 ;;9002226.02101,"619,54868-0244-00 ",.02)
 ;;54868-0244-00
 ;;9002226.02101,"619,54868-0244-01 ",.01)
 ;;54868-0244-01
 ;;9002226.02101,"619,54868-0244-01 ",.02)
 ;;54868-0244-01
 ;;9002226.02101,"619,54868-0263-00 ",.01)
 ;;54868-0263-00
 ;;9002226.02101,"619,54868-0263-00 ",.02)
 ;;54868-0263-00
 ;;9002226.02101,"619,54868-0263-01 ",.01)
 ;;54868-0263-01
 ;;9002226.02101,"619,54868-0263-01 ",.02)
 ;;54868-0263-01
 ;;9002226.02101,"619,54868-0287-00 ",.01)
 ;;54868-0287-00
 ;;9002226.02101,"619,54868-0287-00 ",.02)
 ;;54868-0287-00
 ;;9002226.02101,"619,54868-0287-01 ",.01)
 ;;54868-0287-01
 ;;9002226.02101,"619,54868-0287-01 ",.02)
 ;;54868-0287-01
 ;;9002226.02101,"619,54868-0378-01 ",.01)
 ;;54868-0378-01
 ;;9002226.02101,"619,54868-0378-01 ",.02)
 ;;54868-0378-01
 ;;9002226.02101,"619,54868-0378-02 ",.01)
 ;;54868-0378-02
 ;;9002226.02101,"619,54868-0378-02 ",.02)
 ;;54868-0378-02
 ;;9002226.02101,"619,54868-0510-00 ",.01)
 ;;54868-0510-00
 ;;9002226.02101,"619,54868-0510-00 ",.02)
 ;;54868-0510-00
 ;;9002226.02101,"619,54868-0510-01 ",.01)
 ;;54868-0510-01
 ;;9002226.02101,"619,54868-0510-01 ",.02)
 ;;54868-0510-01
 ;;9002226.02101,"619,54868-0510-02 ",.01)
 ;;54868-0510-02