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

BGP52B9.m

Go to the documentation of this file.
BGP52B9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"1813,54868-1216-00 ",.02)
 ;;54868-1216-00
 ;;9002226.02101,"1813,54868-1259-00 ",.01)
 ;;54868-1259-00
 ;;9002226.02101,"1813,54868-1259-00 ",.02)
 ;;54868-1259-00
 ;;9002226.02101,"1813,54868-1259-01 ",.01)
 ;;54868-1259-01
 ;;9002226.02101,"1813,54868-1259-01 ",.02)
 ;;54868-1259-01
 ;;9002226.02101,"1813,54868-1259-02 ",.01)
 ;;54868-1259-02
 ;;9002226.02101,"1813,54868-1259-02 ",.02)
 ;;54868-1259-02
 ;;9002226.02101,"1813,54868-1259-03 ",.01)
 ;;54868-1259-03
 ;;9002226.02101,"1813,54868-1259-03 ",.02)
 ;;54868-1259-03
 ;;9002226.02101,"1813,54868-1259-05 ",.01)
 ;;54868-1259-05
 ;;9002226.02101,"1813,54868-1259-05 ",.02)
 ;;54868-1259-05
 ;;9002226.02101,"1813,54868-1259-06 ",.01)
 ;;54868-1259-06
 ;;9002226.02101,"1813,54868-1259-06 ",.02)
 ;;54868-1259-06
 ;;9002226.02101,"1813,54868-1259-07 ",.01)
 ;;54868-1259-07
 ;;9002226.02101,"1813,54868-1259-07 ",.02)
 ;;54868-1259-07
 ;;9002226.02101,"1813,54868-2128-00 ",.01)
 ;;54868-2128-00
 ;;9002226.02101,"1813,54868-2128-00 ",.02)
 ;;54868-2128-00
 ;;9002226.02101,"1813,54868-2128-02 ",.01)
 ;;54868-2128-02
 ;;9002226.02101,"1813,54868-2128-02 ",.02)
 ;;54868-2128-02
 ;;9002226.02101,"1813,54868-2128-03 ",.01)
 ;;54868-2128-03
 ;;9002226.02101,"1813,54868-2128-03 ",.02)
 ;;54868-2128-03
 ;;9002226.02101,"1813,54868-2129-00 ",.01)
 ;;54868-2129-00
 ;;9002226.02101,"1813,54868-2129-00 ",.02)
 ;;54868-2129-00
 ;;9002226.02101,"1813,54868-2129-01 ",.01)
 ;;54868-2129-01
 ;;9002226.02101,"1813,54868-2129-01 ",.02)
 ;;54868-2129-01
 ;;9002226.02101,"1813,54868-2129-02 ",.01)
 ;;54868-2129-02
 ;;9002226.02101,"1813,54868-2129-02 ",.02)
 ;;54868-2129-02
 ;;9002226.02101,"1813,54868-2154-00 ",.01)
 ;;54868-2154-00
 ;;9002226.02101,"1813,54868-2154-00 ",.02)
 ;;54868-2154-00
 ;;9002226.02101,"1813,54868-2154-01 ",.01)
 ;;54868-2154-01
 ;;9002226.02101,"1813,54868-2154-01 ",.02)
 ;;54868-2154-01
 ;;9002226.02101,"1813,54868-2154-02 ",.01)
 ;;54868-2154-02
 ;;9002226.02101,"1813,54868-2154-02 ",.02)
 ;;54868-2154-02
 ;;9002226.02101,"1813,54868-2154-03 ",.01)
 ;;54868-2154-03
 ;;9002226.02101,"1813,54868-2154-03 ",.02)
 ;;54868-2154-03
 ;;9002226.02101,"1813,54868-2252-01 ",.01)
 ;;54868-2252-01
 ;;9002226.02101,"1813,54868-2252-01 ",.02)
 ;;54868-2252-01
 ;;9002226.02101,"1813,54868-2454-01 ",.01)
 ;;54868-2454-01
 ;;9002226.02101,"1813,54868-2454-01 ",.02)
 ;;54868-2454-01
 ;;9002226.02101,"1813,54868-2454-02 ",.01)
 ;;54868-2454-02
 ;;9002226.02101,"1813,54868-2454-02 ",.02)
 ;;54868-2454-02
 ;;9002226.02101,"1813,54868-3399-00 ",.01)
 ;;54868-3399-00
 ;;9002226.02101,"1813,54868-3399-00 ",.02)
 ;;54868-3399-00
 ;;9002226.02101,"1813,54868-3399-01 ",.01)
 ;;54868-3399-01
 ;;9002226.02101,"1813,54868-3399-01 ",.02)
 ;;54868-3399-01
 ;;9002226.02101,"1813,54868-4063-00 ",.01)
 ;;54868-4063-00
 ;;9002226.02101,"1813,54868-4063-00 ",.02)
 ;;54868-4063-00
 ;;9002226.02101,"1813,54868-4063-01 ",.01)
 ;;54868-4063-01
 ;;9002226.02101,"1813,54868-4063-01 ",.02)
 ;;54868-4063-01
 ;;9002226.02101,"1813,54868-4286-00 ",.01)
 ;;54868-4286-00
 ;;9002226.02101,"1813,54868-4286-00 ",.02)
 ;;54868-4286-00
 ;;9002226.02101,"1813,54868-4286-01 ",.01)
 ;;54868-4286-01
 ;;9002226.02101,"1813,54868-4286-01 ",.02)
 ;;54868-4286-01
 ;;9002226.02101,"1813,54868-4286-02 ",.01)
 ;;54868-4286-02
 ;;9002226.02101,"1813,54868-4286-02 ",.02)
 ;;54868-4286-02
 ;;9002226.02101,"1813,54868-4286-03 ",.01)
 ;;54868-4286-03
 ;;9002226.02101,"1813,54868-4286-03 ",.02)
 ;;54868-4286-03
 ;;9002226.02101,"1813,54868-4286-04 ",.01)
 ;;54868-4286-04
 ;;9002226.02101,"1813,54868-4286-04 ",.02)
 ;;54868-4286-04
 ;;9002226.02101,"1813,54868-4286-05 ",.01)
 ;;54868-4286-05
 ;;9002226.02101,"1813,54868-4286-05 ",.02)
 ;;54868-4286-05
 ;;9002226.02101,"1813,54868-4349-00 ",.01)
 ;;54868-4349-00
 ;;9002226.02101,"1813,54868-4349-00 ",.02)
 ;;54868-4349-00
 ;;9002226.02101,"1813,54868-4349-01 ",.01)
 ;;54868-4349-01
 ;;9002226.02101,"1813,54868-4349-01 ",.02)
 ;;54868-4349-01
 ;;9002226.02101,"1813,54868-4349-02 ",.01)
 ;;54868-4349-02
 ;;9002226.02101,"1813,54868-4349-02 ",.02)
 ;;54868-4349-02
 ;;9002226.02101,"1813,54868-4349-03 ",.01)
 ;;54868-4349-03
 ;;9002226.02101,"1813,54868-4349-03 ",.02)
 ;;54868-4349-03
 ;;9002226.02101,"1813,54868-4349-05 ",.01)
 ;;54868-4349-05
 ;;9002226.02101,"1813,54868-4349-05 ",.02)
 ;;54868-4349-05
 ;;9002226.02101,"1813,54868-4400-00 ",.01)
 ;;54868-4400-00
 ;;9002226.02101,"1813,54868-4400-00 ",.02)
 ;;54868-4400-00
 ;;9002226.02101,"1813,54868-4400-01 ",.01)
 ;;54868-4400-01
 ;;9002226.02101,"1813,54868-4400-01 ",.02)
 ;;54868-4400-01
 ;;9002226.02101,"1813,54868-4400-02 ",.01)
 ;;54868-4400-02
 ;;9002226.02101,"1813,54868-4400-02 ",.02)
 ;;54868-4400-02
 ;;9002226.02101,"1813,54868-4400-03 ",.01)
 ;;54868-4400-03
 ;;9002226.02101,"1813,54868-4400-03 ",.02)
 ;;54868-4400-03
 ;;9002226.02101,"1813,54868-4400-04 ",.01)
 ;;54868-4400-04
 ;;9002226.02101,"1813,54868-4400-04 ",.02)
 ;;54868-4400-04
 ;;9002226.02101,"1813,54868-4402-00 ",.01)
 ;;54868-4402-00
 ;;9002226.02101,"1813,54868-4402-00 ",.02)
 ;;54868-4402-00
 ;;9002226.02101,"1813,54868-4402-01 ",.01)
 ;;54868-4402-01
 ;;9002226.02101,"1813,54868-4402-01 ",.02)
 ;;54868-4402-01
 ;;9002226.02101,"1813,54868-4402-02 ",.01)
 ;;54868-4402-02
 ;;9002226.02101,"1813,54868-4402-02 ",.02)
 ;;54868-4402-02
 ;;9002226.02101,"1813,54868-4402-03 ",.01)
 ;;54868-4402-03
 ;;9002226.02101,"1813,54868-4402-03 ",.02)
 ;;54868-4402-03
 ;;9002226.02101,"1813,54868-4422-00 ",.01)
 ;;54868-4422-00
 ;;9002226.02101,"1813,54868-4422-00 ",.02)
 ;;54868-4422-00
 ;;9002226.02101,"1813,54868-4422-01 ",.01)
 ;;54868-4422-01
 ;;9002226.02101,"1813,54868-4422-01 ",.02)
 ;;54868-4422-01
 ;;9002226.02101,"1813,54868-4422-02 ",.01)
 ;;54868-4422-02
 ;;9002226.02101,"1813,54868-4422-02 ",.02)
 ;;54868-4422-02
 ;;9002226.02101,"1813,54868-4422-03 ",.01)
 ;;54868-4422-03
 ;;9002226.02101,"1813,54868-4422-03 ",.02)
 ;;54868-4422-03
 ;;9002226.02101,"1813,54868-4422-04 ",.01)
 ;;54868-4422-04
 ;;9002226.02101,"1813,54868-4422-04 ",.02)
 ;;54868-4422-04
 ;;9002226.02101,"1813,54868-4422-05 ",.01)
 ;;54868-4422-05
 ;;9002226.02101,"1813,54868-4422-05 ",.02)
 ;;54868-4422-05
 ;;9002226.02101,"1813,54868-4871-00 ",.01)
 ;;54868-4871-00
 ;;9002226.02101,"1813,54868-4871-00 ",.02)
 ;;54868-4871-00
 ;;9002226.02101,"1813,54868-4871-01 ",.01)
 ;;54868-4871-01
 ;;9002226.02101,"1813,54868-4871-01 ",.02)
 ;;54868-4871-01
 ;;9002226.02101,"1813,54868-4871-02 ",.01)
 ;;54868-4871-02
 ;;9002226.02101,"1813,54868-4871-02 ",.02)
 ;;54868-4871-02
 ;;9002226.02101,"1813,54868-4871-03 ",.01)
 ;;54868-4871-03
 ;;9002226.02101,"1813,54868-4871-03 ",.02)
 ;;54868-4871-03
 ;;9002226.02101,"1813,54868-4873-00 ",.01)
 ;;54868-4873-00
 ;;9002226.02101,"1813,54868-4873-00 ",.02)
 ;;54868-4873-00
 ;;9002226.02101,"1813,54868-4873-01 ",.01)
 ;;54868-4873-01
 ;;9002226.02101,"1813,54868-4873-01 ",.02)
 ;;54868-4873-01
 ;;9002226.02101,"1813,54868-4873-03 ",.01)
 ;;54868-4873-03
 ;;9002226.02101,"1813,54868-4873-03 ",.02)
 ;;54868-4873-03
 ;;9002226.02101,"1813,54868-4873-04 ",.01)
 ;;54868-4873-04
 ;;9002226.02101,"1813,54868-4873-04 ",.02)
 ;;54868-4873-04
 ;;9002226.02101,"1813,54868-4950-00 ",.01)
 ;;54868-4950-00
 ;;9002226.02101,"1813,54868-4950-00 ",.02)
 ;;54868-4950-00
 ;;9002226.02101,"1813,54868-4950-02 ",.01)
 ;;54868-4950-02
 ;;9002226.02101,"1813,54868-4950-02 ",.02)
 ;;54868-4950-02
 ;;9002226.02101,"1813,54868-4950-03 ",.01)
 ;;54868-4950-03
 ;;9002226.02101,"1813,54868-4950-03 ",.02)
 ;;54868-4950-03
 ;;9002226.02101,"1813,54868-5112-00 ",.01)
 ;;54868-5112-00
 ;;9002226.02101,"1813,54868-5112-00 ",.02)
 ;;54868-5112-00
 ;;9002226.02101,"1813,54868-5112-01 ",.01)
 ;;54868-5112-01
 ;;9002226.02101,"1813,54868-5112-01 ",.02)
 ;;54868-5112-01
 ;;9002226.02101,"1813,54868-5207-00 ",.01)
 ;;54868-5207-00
 ;;9002226.02101,"1813,54868-5207-00 ",.02)
 ;;54868-5207-00
 ;;9002226.02101,"1813,54868-5207-01 ",.01)
 ;;54868-5207-01
 ;;9002226.02101,"1813,54868-5207-01 ",.02)
 ;;54868-5207-01
 ;;9002226.02101,"1813,54868-5255-00 ",.01)
 ;;54868-5255-00
 ;;9002226.02101,"1813,54868-5255-00 ",.02)
 ;;54868-5255-00
 ;;9002226.02101,"1813,54868-5255-01 ",.01)
 ;;54868-5255-01
 ;;9002226.02101,"1813,54868-5255-01 ",.02)
 ;;54868-5255-01
 ;;9002226.02101,"1813,54868-5258-00 ",.01)
 ;;54868-5258-00
 ;;9002226.02101,"1813,54868-5258-00 ",.02)
 ;;54868-5258-00
 ;;9002226.02101,"1813,54868-5425-00 ",.01)
 ;;54868-5425-00
 ;;9002226.02101,"1813,54868-5425-00 ",.02)
 ;;54868-5425-00
 ;;9002226.02101,"1813,54868-5440-00 ",.01)
 ;;54868-5440-00
 ;;9002226.02101,"1813,54868-5440-00 ",.02)
 ;;54868-5440-00
 ;;9002226.02101,"1813,54868-5440-01 ",.01)
 ;;54868-5440-01
 ;;9002226.02101,"1813,54868-5440-01 ",.02)
 ;;54868-5440-01
 ;;9002226.02101,"1813,54868-5501-00 ",.01)
 ;;54868-5501-00
 ;;9002226.02101,"1813,54868-5501-00 ",.02)
 ;;54868-5501-00
 ;;9002226.02101,"1813,54868-5587-00 ",.01)
 ;;54868-5587-00
 ;;9002226.02101,"1813,54868-5587-00 ",.02)
 ;;54868-5587-00
 ;;9002226.02101,"1813,54868-5587-01 ",.01)
 ;;54868-5587-01
 ;;9002226.02101,"1813,54868-5587-01 ",.02)
 ;;54868-5587-01
 ;;9002226.02101,"1813,54868-5835-00 ",.01)
 ;;54868-5835-00
 ;;9002226.02101,"1813,54868-5835-00 ",.02)
 ;;54868-5835-00
 ;;9002226.02101,"1813,54868-5837-00 ",.01)
 ;;54868-5837-00
 ;;9002226.02101,"1813,54868-5837-00 ",.02)
 ;;54868-5837-00
 ;;9002226.02101,"1813,55045-2880-01 ",.01)
 ;;55045-2880-01
 ;;9002226.02101,"1813,55045-2880-01 ",.02)
 ;;55045-2880-01
 ;;9002226.02101,"1813,55045-2881-08 ",.01)
 ;;55045-2881-08
 ;;9002226.02101,"1813,55045-2881-08 ",.02)
 ;;55045-2881-08
 ;;9002226.02101,"1813,55045-2902-08 ",.01)
 ;;55045-2902-08
 ;;9002226.02101,"1813,55045-2902-08 ",.02)
 ;;55045-2902-08
 ;;9002226.02101,"1813,55048-0856-30 ",.01)
 ;;55048-0856-30
 ;;9002226.02101,"1813,55048-0856-30 ",.02)
 ;;55048-0856-30
 ;;9002226.02101,"1813,55048-0857-30 ",.01)
 ;;55048-0857-30
 ;;9002226.02101,"1813,55048-0857-30 ",.02)
 ;;55048-0857-30
 ;;9002226.02101,"1813,55048-0858-30 ",.01)
 ;;55048-0858-30
 ;;9002226.02101,"1813,55048-0858-30 ",.02)
 ;;55048-0858-30
 ;;9002226.02101,"1813,55048-0859-30 ",.01)
 ;;55048-0859-30
 ;;9002226.02101,"1813,55048-0859-30 ",.02)
 ;;55048-0859-30
 ;;9002226.02101,"1813,55048-0861-30 ",.01)
 ;;55048-0861-30
 ;;9002226.02101,"1813,55048-0861-30 ",.02)
 ;;55048-0861-30
 ;;9002226.02101,"1813,55048-0880-30 ",.01)
 ;;55048-0880-30
 ;;9002226.02101,"1813,55048-0880-30 ",.02)
 ;;55048-0880-30
 ;;9002226.02101,"1813,55111-0678-02 ",.01)
 ;;55111-0678-02
 ;;9002226.02101,"1813,55111-0678-02 ",.02)
 ;;55111-0678-02
 ;;9002226.02101,"1813,55111-0678-10 ",.01)
 ;;55111-0678-10
 ;;9002226.02101,"1813,55111-0678-10 ",.02)
 ;;55111-0678-10
 ;;9002226.02101,"1813,55111-0678-11 ",.01)
 ;;55111-0678-11
 ;;9002226.02101,"1813,55111-0678-11 ",.02)
 ;;55111-0678-11
 ;;9002226.02101,"1813,55111-0679-02 ",.01)
 ;;55111-0679-02
 ;;9002226.02101,"1813,55111-0679-02 ",.02)
 ;;55111-0679-02
 ;;9002226.02101,"1813,55111-0679-10 ",.01)
 ;;55111-0679-10
 ;;9002226.02101,"1813,55111-0679-10 ",.02)
 ;;55111-0679-10
 ;;9002226.02101,"1813,55111-0679-11 ",.01)
 ;;55111-0679-11
 ;;9002226.02101,"1813,55111-0679-11 ",.02)
 ;;55111-0679-11
 ;;9002226.02101,"1813,55111-0680-02 ",.01)
 ;;55111-0680-02
 ;;9002226.02101,"1813,55111-0680-02 ",.02)
 ;;55111-0680-02
 ;;9002226.02101,"1813,55111-0680-10 ",.01)
 ;;55111-0680-10
 ;;9002226.02101,"1813,55111-0680-10 ",.02)
 ;;55111-0680-10
 ;;9002226.02101,"1813,55111-0680-11 ",.01)
 ;;55111-0680-11
 ;;9002226.02101,"1813,55111-0680-11 ",.02)
 ;;55111-0680-11
 ;;9002226.02101,"1813,55111-0681-02 ",.01)
 ;;55111-0681-02
 ;;9002226.02101,"1813,55111-0681-02 ",.02)
 ;;55111-0681-02
 ;;9002226.02101,"1813,55111-0681-10 ",.01)
 ;;55111-0681-10
 ;;9002226.02101,"1813,55111-0681-10 ",.02)
 ;;55111-0681-10
 ;;9002226.02101,"1813,55111-0681-11 ",.01)
 ;;55111-0681-11
 ;;9002226.02101,"1813,55111-0681-11 ",.02)
 ;;55111-0681-11
 ;;9002226.02101,"1813,55289-0286-30 ",.01)
 ;;55289-0286-30
 ;;9002226.02101,"1813,55289-0286-30 ",.02)
 ;;55289-0286-30
 ;;9002226.02101,"1813,55289-0286-50 ",.01)
 ;;55289-0286-50
 ;;9002226.02101,"1813,55289-0286-50 ",.02)
 ;;55289-0286-50
 ;;9002226.02101,"1813,55289-0340-30 ",.01)
 ;;55289-0340-30
 ;;9002226.02101,"1813,55289-0340-30 ",.02)
 ;;55289-0340-30
 ;;9002226.02101,"1813,55289-0773-14 ",.01)
 ;;55289-0773-14
 ;;9002226.02101,"1813,55289-0773-14 ",.02)
 ;;55289-0773-14
 ;;9002226.02101,"1813,55289-0773-30 ",.01)
 ;;55289-0773-30
 ;;9002226.02101,"1813,55289-0773-30 ",.02)
 ;;55289-0773-30
 ;;9002226.02101,"1813,55289-0773-60 ",.01)
 ;;55289-0773-60
 ;;9002226.02101,"1813,55289-0773-60 ",.02)
 ;;55289-0773-60
 ;;9002226.02101,"1813,55289-0773-90 ",.01)
 ;;55289-0773-90
 ;;9002226.02101,"1813,55289-0773-90 ",.02)
 ;;55289-0773-90
 ;;9002226.02101,"1813,55700-0005-30 ",.01)
 ;;55700-0005-30
 ;;9002226.02101,"1813,55700-0005-30 ",.02)
 ;;55700-0005-30
 ;;9002226.02101,"1813,55700-0005-60 ",.01)
 ;;55700-0005-60
 ;;9002226.02101,"1813,55700-0005-60 ",.02)
 ;;55700-0005-60
 ;;9002226.02101,"1813,55700-0005-90 ",.01)
 ;;55700-0005-90
 ;;9002226.02101,"1813,55700-0005-90 ",.02)
 ;;55700-0005-90
 ;;9002226.02101,"1813,58016-0083-00 ",.01)
 ;;58016-0083-00
 ;;9002226.02101,"1813,58016-0083-00 ",.02)
 ;;58016-0083-00
 ;;9002226.02101,"1813,58016-0083-30 ",.01)
 ;;58016-0083-30
 ;;9002226.02101,"1813,58016-0083-30 ",.02)
 ;;58016-0083-30