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

BGP32A25.m

Go to the documentation of this file.
BGP32A25 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 12, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"618,57866-3371-03 ",.01)
 ;;57866-3371-03
 ;;9002226.02101,"618,57866-3371-03 ",.02)
 ;;57866-3371-03
 ;;9002226.02101,"618,57866-3371-04 ",.01)
 ;;57866-3371-04
 ;;9002226.02101,"618,57866-3371-04 ",.02)
 ;;57866-3371-04
 ;;9002226.02101,"618,57866-3372-01 ",.01)
 ;;57866-3372-01
 ;;9002226.02101,"618,57866-3372-01 ",.02)
 ;;57866-3372-01
 ;;9002226.02101,"618,57866-3372-02 ",.01)
 ;;57866-3372-02
 ;;9002226.02101,"618,57866-3372-02 ",.02)
 ;;57866-3372-02
 ;;9002226.02101,"618,57866-3372-03 ",.01)
 ;;57866-3372-03
 ;;9002226.02101,"618,57866-3372-03 ",.02)
 ;;57866-3372-03
 ;;9002226.02101,"618,57866-3372-04 ",.01)
 ;;57866-3372-04
 ;;9002226.02101,"618,57866-3372-04 ",.02)
 ;;57866-3372-04
 ;;9002226.02101,"618,57866-3874-01 ",.01)
 ;;57866-3874-01
 ;;9002226.02101,"618,57866-3874-01 ",.02)
 ;;57866-3874-01
 ;;9002226.02101,"618,57866-3874-03 ",.01)
 ;;57866-3874-03
 ;;9002226.02101,"618,57866-3874-03 ",.02)
 ;;57866-3874-03
 ;;9002226.02101,"618,57866-3874-04 ",.01)
 ;;57866-3874-04
 ;;9002226.02101,"618,57866-3874-04 ",.02)
 ;;57866-3874-04
 ;;9002226.02101,"618,57866-3874-05 ",.01)
 ;;57866-3874-05
 ;;9002226.02101,"618,57866-3874-05 ",.02)
 ;;57866-3874-05
 ;;9002226.02101,"618,57866-3874-06 ",.01)
 ;;57866-3874-06
 ;;9002226.02101,"618,57866-3874-06 ",.02)
 ;;57866-3874-06
 ;;9002226.02101,"618,57866-3874-07 ",.01)
 ;;57866-3874-07
 ;;9002226.02101,"618,57866-3874-07 ",.02)
 ;;57866-3874-07
 ;;9002226.02101,"618,57866-3874-09 ",.01)
 ;;57866-3874-09
 ;;9002226.02101,"618,57866-3874-09 ",.02)
 ;;57866-3874-09
 ;;9002226.02101,"618,57866-3875-01 ",.01)
 ;;57866-3875-01
 ;;9002226.02101,"618,57866-3875-01 ",.02)
 ;;57866-3875-01
 ;;9002226.02101,"618,57866-3875-02 ",.01)
 ;;57866-3875-02
 ;;9002226.02101,"618,57866-3875-02 ",.02)
 ;;57866-3875-02
 ;;9002226.02101,"618,57866-3875-04 ",.01)
 ;;57866-3875-04
 ;;9002226.02101,"618,57866-3875-04 ",.02)
 ;;57866-3875-04
 ;;9002226.02101,"618,57866-3876-02 ",.01)
 ;;57866-3876-02
 ;;9002226.02101,"618,57866-3876-02 ",.02)
 ;;57866-3876-02
 ;;9002226.02101,"618,57866-3876-03 ",.01)
 ;;57866-3876-03
 ;;9002226.02101,"618,57866-3876-03 ",.02)
 ;;57866-3876-03
 ;;9002226.02101,"618,57866-3876-04 ",.01)
 ;;57866-3876-04
 ;;9002226.02101,"618,57866-3876-04 ",.02)
 ;;57866-3876-04
 ;;9002226.02101,"618,57866-3893-01 ",.01)
 ;;57866-3893-01
 ;;9002226.02101,"618,57866-3893-01 ",.02)
 ;;57866-3893-01
 ;;9002226.02101,"618,57866-3893-02 ",.01)
 ;;57866-3893-02
 ;;9002226.02101,"618,57866-3893-02 ",.02)
 ;;57866-3893-02
 ;;9002226.02101,"618,57866-3893-03 ",.01)
 ;;57866-3893-03
 ;;9002226.02101,"618,57866-3893-03 ",.02)
 ;;57866-3893-03
 ;;9002226.02101,"618,57866-3894-01 ",.01)
 ;;57866-3894-01
 ;;9002226.02101,"618,57866-3894-01 ",.02)
 ;;57866-3894-01
 ;;9002226.02101,"618,57866-3894-02 ",.01)
 ;;57866-3894-02
 ;;9002226.02101,"618,57866-3894-02 ",.02)
 ;;57866-3894-02
 ;;9002226.02101,"618,57866-3894-03 ",.01)
 ;;57866-3894-03
 ;;9002226.02101,"618,57866-3894-03 ",.02)
 ;;57866-3894-03
 ;;9002226.02101,"618,57866-4379-01 ",.01)
 ;;57866-4379-01
 ;;9002226.02101,"618,57866-4379-01 ",.02)
 ;;57866-4379-01
 ;;9002226.02101,"618,57866-4379-02 ",.01)
 ;;57866-4379-02
 ;;9002226.02101,"618,57866-4379-02 ",.02)
 ;;57866-4379-02
 ;;9002226.02101,"618,57866-4379-03 ",.01)
 ;;57866-4379-03
 ;;9002226.02101,"618,57866-4379-03 ",.02)
 ;;57866-4379-03
 ;;9002226.02101,"618,57866-4379-04 ",.01)
 ;;57866-4379-04
 ;;9002226.02101,"618,57866-4379-04 ",.02)
 ;;57866-4379-04
 ;;9002226.02101,"618,57866-4379-06 ",.01)
 ;;57866-4379-06
 ;;9002226.02101,"618,57866-4379-06 ",.02)
 ;;57866-4379-06
 ;;9002226.02101,"618,57866-4379-07 ",.01)
 ;;57866-4379-07
 ;;9002226.02101,"618,57866-4379-07 ",.02)
 ;;57866-4379-07
 ;;9002226.02101,"618,57866-4379-08 ",.01)
 ;;57866-4379-08
 ;;9002226.02101,"618,57866-4379-08 ",.02)
 ;;57866-4379-08
 ;;9002226.02101,"618,57866-4440-01 ",.01)
 ;;57866-4440-01
 ;;9002226.02101,"618,57866-4440-01 ",.02)
 ;;57866-4440-01
 ;;9002226.02101,"618,57866-4440-02 ",.01)
 ;;57866-4440-02
 ;;9002226.02101,"618,57866-4440-02 ",.02)
 ;;57866-4440-02
 ;;9002226.02101,"618,57866-4440-03 ",.01)
 ;;57866-4440-03
 ;;9002226.02101,"618,57866-4440-03 ",.02)
 ;;57866-4440-03
 ;;9002226.02101,"618,58016-0018-00 ",.01)
 ;;58016-0018-00
 ;;9002226.02101,"618,58016-0018-00 ",.02)
 ;;58016-0018-00
 ;;9002226.02101,"618,58016-0018-30 ",.01)
 ;;58016-0018-30
 ;;9002226.02101,"618,58016-0018-30 ",.02)
 ;;58016-0018-30
 ;;9002226.02101,"618,58016-0018-60 ",.01)
 ;;58016-0018-60
 ;;9002226.02101,"618,58016-0018-60 ",.02)
 ;;58016-0018-60
 ;;9002226.02101,"618,58016-0018-90 ",.01)
 ;;58016-0018-90
 ;;9002226.02101,"618,58016-0018-90 ",.02)
 ;;58016-0018-90
 ;;9002226.02101,"618,58016-0041-00 ",.01)
 ;;58016-0041-00
 ;;9002226.02101,"618,58016-0041-00 ",.02)
 ;;58016-0041-00
 ;;9002226.02101,"618,58016-0041-30 ",.01)
 ;;58016-0041-30
 ;;9002226.02101,"618,58016-0041-30 ",.02)
 ;;58016-0041-30
 ;;9002226.02101,"618,58016-0041-60 ",.01)
 ;;58016-0041-60
 ;;9002226.02101,"618,58016-0041-60 ",.02)
 ;;58016-0041-60
 ;;9002226.02101,"618,58016-0041-90 ",.01)
 ;;58016-0041-90
 ;;9002226.02101,"618,58016-0041-90 ",.02)
 ;;58016-0041-90
 ;;9002226.02101,"618,58016-0259-00 ",.01)
 ;;58016-0259-00
 ;;9002226.02101,"618,58016-0259-00 ",.02)
 ;;58016-0259-00
 ;;9002226.02101,"618,58016-0259-10 ",.01)
 ;;58016-0259-10
 ;;9002226.02101,"618,58016-0259-10 ",.02)
 ;;58016-0259-10
 ;;9002226.02101,"618,58016-0259-20 ",.01)
 ;;58016-0259-20
 ;;9002226.02101,"618,58016-0259-20 ",.02)
 ;;58016-0259-20
 ;;9002226.02101,"618,58016-0259-30 ",.01)
 ;;58016-0259-30
 ;;9002226.02101,"618,58016-0259-30 ",.02)
 ;;58016-0259-30
 ;;9002226.02101,"618,58016-0259-50 ",.01)
 ;;58016-0259-50
 ;;9002226.02101,"618,58016-0259-50 ",.02)
 ;;58016-0259-50
 ;;9002226.02101,"618,58016-0259-60 ",.01)
 ;;58016-0259-60
 ;;9002226.02101,"618,58016-0259-60 ",.02)
 ;;58016-0259-60
 ;;9002226.02101,"618,58016-0283-00 ",.01)
 ;;58016-0283-00
 ;;9002226.02101,"618,58016-0283-00 ",.02)
 ;;58016-0283-00
 ;;9002226.02101,"618,58016-0283-02 ",.01)
 ;;58016-0283-02
 ;;9002226.02101,"618,58016-0283-02 ",.02)
 ;;58016-0283-02
 ;;9002226.02101,"618,58016-0283-30 ",.01)
 ;;58016-0283-30
 ;;9002226.02101,"618,58016-0283-30 ",.02)
 ;;58016-0283-30
 ;;9002226.02101,"618,58016-0283-60 ",.01)
 ;;58016-0283-60
 ;;9002226.02101,"618,58016-0283-60 ",.02)
 ;;58016-0283-60
 ;;9002226.02101,"618,58016-0283-90 ",.01)
 ;;58016-0283-90
 ;;9002226.02101,"618,58016-0283-90 ",.02)
 ;;58016-0283-90
 ;;9002226.02101,"618,58016-0390-01 ",.01)
 ;;58016-0390-01
 ;;9002226.02101,"618,58016-0390-01 ",.02)
 ;;58016-0390-01
 ;;9002226.02101,"618,58016-0405-00 ",.01)
 ;;58016-0405-00
 ;;9002226.02101,"618,58016-0405-00 ",.02)
 ;;58016-0405-00
 ;;9002226.02101,"618,58016-0405-06 ",.01)
 ;;58016-0405-06
 ;;9002226.02101,"618,58016-0405-06 ",.02)
 ;;58016-0405-06
 ;;9002226.02101,"618,58016-0405-15 ",.01)
 ;;58016-0405-15
 ;;9002226.02101,"618,58016-0405-15 ",.02)
 ;;58016-0405-15
 ;;9002226.02101,"618,58016-0405-20 ",.01)
 ;;58016-0405-20
 ;;9002226.02101,"618,58016-0405-20 ",.02)
 ;;58016-0405-20
 ;;9002226.02101,"618,58016-0405-30 ",.01)
 ;;58016-0405-30
 ;;9002226.02101,"618,58016-0405-30 ",.02)
 ;;58016-0405-30
 ;;9002226.02101,"618,58016-0406-00 ",.01)
 ;;58016-0406-00
 ;;9002226.02101,"618,58016-0406-00 ",.02)
 ;;58016-0406-00
 ;;9002226.02101,"618,58016-0406-09 ",.01)
 ;;58016-0406-09
 ;;9002226.02101,"618,58016-0406-09 ",.02)
 ;;58016-0406-09
 ;;9002226.02101,"618,58016-0406-12 ",.01)
 ;;58016-0406-12
 ;;9002226.02101,"618,58016-0406-12 ",.02)
 ;;58016-0406-12
 ;;9002226.02101,"618,58016-0406-15 ",.01)
 ;;58016-0406-15
 ;;9002226.02101,"618,58016-0406-15 ",.02)
 ;;58016-0406-15
 ;;9002226.02101,"618,58016-0406-20 ",.01)
 ;;58016-0406-20
 ;;9002226.02101,"618,58016-0406-20 ",.02)
 ;;58016-0406-20
 ;;9002226.02101,"618,58016-0406-30 ",.01)
 ;;58016-0406-30
 ;;9002226.02101,"618,58016-0406-30 ",.02)
 ;;58016-0406-30
 ;;9002226.02101,"618,58016-0406-40 ",.01)
 ;;58016-0406-40
 ;;9002226.02101,"618,58016-0406-40 ",.02)
 ;;58016-0406-40
 ;;9002226.02101,"618,58016-0406-60 ",.01)
 ;;58016-0406-60
 ;;9002226.02101,"618,58016-0406-60 ",.02)
 ;;58016-0406-60
 ;;9002226.02101,"618,58016-0407-01 ",.01)
 ;;58016-0407-01
 ;;9002226.02101,"618,58016-0407-01 ",.02)
 ;;58016-0407-01
 ;;9002226.02101,"618,58016-0409-00 ",.01)
 ;;58016-0409-00
 ;;9002226.02101,"618,58016-0409-00 ",.02)
 ;;58016-0409-00
 ;;9002226.02101,"618,58016-0409-10 ",.01)
 ;;58016-0409-10
 ;;9002226.02101,"618,58016-0409-10 ",.02)
 ;;58016-0409-10
 ;;9002226.02101,"618,58016-0409-12 ",.01)
 ;;58016-0409-12
 ;;9002226.02101,"618,58016-0409-12 ",.02)
 ;;58016-0409-12
 ;;9002226.02101,"618,58016-0409-15 ",.01)
 ;;58016-0409-15
 ;;9002226.02101,"618,58016-0409-15 ",.02)
 ;;58016-0409-15
 ;;9002226.02101,"618,58016-0409-20 ",.01)
 ;;58016-0409-20
 ;;9002226.02101,"618,58016-0409-20 ",.02)
 ;;58016-0409-20
 ;;9002226.02101,"618,58016-0409-21 ",.01)
 ;;58016-0409-21
 ;;9002226.02101,"618,58016-0409-21 ",.02)
 ;;58016-0409-21
 ;;9002226.02101,"618,58016-0409-24 ",.01)
 ;;58016-0409-24
 ;;9002226.02101,"618,58016-0409-24 ",.02)
 ;;58016-0409-24
 ;;9002226.02101,"618,58016-0409-30 ",.01)
 ;;58016-0409-30
 ;;9002226.02101,"618,58016-0409-30 ",.02)
 ;;58016-0409-30
 ;;9002226.02101,"618,58016-0409-60 ",.01)
 ;;58016-0409-60
 ;;9002226.02101,"618,58016-0409-60 ",.02)
 ;;58016-0409-60
 ;;9002226.02101,"618,58016-0409-90 ",.01)
 ;;58016-0409-90
 ;;9002226.02101,"618,58016-0409-90 ",.02)
 ;;58016-0409-90
 ;;9002226.02101,"618,58016-0413-10 ",.01)
 ;;58016-0413-10
 ;;9002226.02101,"618,58016-0413-10 ",.02)
 ;;58016-0413-10
 ;;9002226.02101,"618,58016-0413-15 ",.01)
 ;;58016-0413-15
 ;;9002226.02101,"618,58016-0413-15 ",.02)
 ;;58016-0413-15
 ;;9002226.02101,"618,58016-0413-20 ",.01)
 ;;58016-0413-20
 ;;9002226.02101,"618,58016-0413-20 ",.02)
 ;;58016-0413-20
 ;;9002226.02101,"618,58016-0413-30 ",.01)
 ;;58016-0413-30
 ;;9002226.02101,"618,58016-0413-30 ",.02)
 ;;58016-0413-30
 ;;9002226.02101,"618,58016-0424-00 ",.01)
 ;;58016-0424-00
 ;;9002226.02101,"618,58016-0424-00 ",.02)
 ;;58016-0424-00
 ;;9002226.02101,"618,58016-0424-02 ",.01)
 ;;58016-0424-02
 ;;9002226.02101,"618,58016-0424-02 ",.02)
 ;;58016-0424-02
 ;;9002226.02101,"618,58016-0424-03 ",.01)
 ;;58016-0424-03
 ;;9002226.02101,"618,58016-0424-03 ",.02)
 ;;58016-0424-03
 ;;9002226.02101,"618,58016-0424-10 ",.01)
 ;;58016-0424-10
 ;;9002226.02101,"618,58016-0424-10 ",.02)
 ;;58016-0424-10
 ;;9002226.02101,"618,58016-0424-12 ",.01)
 ;;58016-0424-12
 ;;9002226.02101,"618,58016-0424-12 ",.02)
 ;;58016-0424-12
 ;;9002226.02101,"618,58016-0424-15 ",.01)
 ;;58016-0424-15
 ;;9002226.02101,"618,58016-0424-15 ",.02)
 ;;58016-0424-15
 ;;9002226.02101,"618,58016-0424-20 ",.01)
 ;;58016-0424-20
 ;;9002226.02101,"618,58016-0424-20 ",.02)
 ;;58016-0424-20
 ;;9002226.02101,"618,58016-0424-30 ",.01)
 ;;58016-0424-30
 ;;9002226.02101,"618,58016-0424-30 ",.02)
 ;;58016-0424-30
 ;;9002226.02101,"618,58016-0424-50 ",.01)
 ;;58016-0424-50
 ;;9002226.02101,"618,58016-0424-50 ",.02)
 ;;58016-0424-50
 ;;9002226.02101,"618,58016-0424-60 ",.01)
 ;;58016-0424-60
 ;;9002226.02101,"618,58016-0424-60 ",.02)
 ;;58016-0424-60
 ;;9002226.02101,"618,58016-0424-73 ",.01)
 ;;58016-0424-73
 ;;9002226.02101,"618,58016-0424-73 ",.02)
 ;;58016-0424-73
 ;;9002226.02101,"618,58016-0424-89 ",.01)
 ;;58016-0424-89
 ;;9002226.02101,"618,58016-0424-89 ",.02)
 ;;58016-0424-89
 ;;9002226.02101,"618,58016-0424-90 ",.01)
 ;;58016-0424-90
 ;;9002226.02101,"618,58016-0424-90 ",.02)
 ;;58016-0424-90
 ;;9002226.02101,"618,58016-0452-00 ",.01)
 ;;58016-0452-00
 ;;9002226.02101,"618,58016-0452-00 ",.02)
 ;;58016-0452-00
 ;;9002226.02101,"618,58016-0452-20 ",.01)
 ;;58016-0452-20
 ;;9002226.02101,"618,58016-0452-20 ",.02)
 ;;58016-0452-20
 ;;9002226.02101,"618,58016-0452-30 ",.01)
 ;;58016-0452-30
 ;;9002226.02101,"618,58016-0452-30 ",.02)
 ;;58016-0452-30
 ;;9002226.02101,"618,58016-0464-10 ",.01)
 ;;58016-0464-10
 ;;9002226.02101,"618,58016-0464-10 ",.02)
 ;;58016-0464-10
 ;;9002226.02101,"618,58016-0464-15 ",.01)
 ;;58016-0464-15
 ;;9002226.02101,"618,58016-0464-15 ",.02)
 ;;58016-0464-15
 ;;9002226.02101,"618,58016-0464-20 ",.01)
 ;;58016-0464-20
 ;;9002226.02101,"618,58016-0464-20 ",.02)
 ;;58016-0464-20
 ;;9002226.02101,"618,58016-0464-30 ",.01)
 ;;58016-0464-30
 ;;9002226.02101,"618,58016-0464-30 ",.02)
 ;;58016-0464-30
 ;;9002226.02101,"618,58016-0472-24 ",.01)
 ;;58016-0472-24
 ;;9002226.02101,"618,58016-0472-24 ",.02)
 ;;58016-0472-24
 ;;9002226.02101,"618,58016-0472-36 ",.01)
 ;;58016-0472-36
 ;;9002226.02101,"618,58016-0472-36 ",.02)
 ;;58016-0472-36
 ;;9002226.02101,"618,58016-0642-20 ",.01)
 ;;58016-0642-20
 ;;9002226.02101,"618,58016-0642-20 ",.02)
 ;;58016-0642-20
 ;;9002226.02101,"618,58016-0659-16 ",.01)
 ;;58016-0659-16
 ;;9002226.02101,"618,58016-0659-16 ",.02)
 ;;58016-0659-16
 ;;9002226.02101,"618,58016-0749-20 ",.01)
 ;;58016-0749-20
 ;;9002226.02101,"618,58016-0749-20 ",.02)
 ;;58016-0749-20
 ;;9002226.02101,"618,58016-0798-00 ",.01)
 ;;58016-0798-00
 ;;9002226.02101,"618,58016-0798-00 ",.02)
 ;;58016-0798-00
 ;;9002226.02101,"618,58016-0798-30 ",.01)
 ;;58016-0798-30
 ;;9002226.02101,"618,58016-0798-30 ",.02)
 ;;58016-0798-30
 ;;9002226.02101,"618,58016-0798-60 ",.01)
 ;;58016-0798-60
 ;;9002226.02101,"618,58016-0798-60 ",.02)
 ;;58016-0798-60