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

BGP82J17.m

Go to the documentation of this file.
BGP82J17 ; 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,"1220,43353-0691-60 ",.01)
 ;;43353-0691-60
 ;;9002226.02101,"1220,43353-0691-60 ",.02)
 ;;43353-0691-60
 ;;9002226.02101,"1220,43353-0723-60 ",.01)
 ;;43353-0723-60
 ;;9002226.02101,"1220,43353-0723-60 ",.02)
 ;;43353-0723-60
 ;;9002226.02101,"1220,43353-0750-16 ",.01)
 ;;43353-0750-16
 ;;9002226.02101,"1220,43353-0750-16 ",.02)
 ;;43353-0750-16
 ;;9002226.02101,"1220,43353-0750-60 ",.01)
 ;;43353-0750-60
 ;;9002226.02101,"1220,43353-0750-60 ",.02)
 ;;43353-0750-60
 ;;9002226.02101,"1220,43353-0750-81 ",.01)
 ;;43353-0750-81
 ;;9002226.02101,"1220,43353-0750-81 ",.02)
 ;;43353-0750-81
 ;;9002226.02101,"1220,43353-0782-18 ",.01)
 ;;43353-0782-18
 ;;9002226.02101,"1220,43353-0782-18 ",.02)
 ;;43353-0782-18
 ;;9002226.02101,"1220,43353-0782-30 ",.01)
 ;;43353-0782-30
 ;;9002226.02101,"1220,43353-0782-30 ",.02)
 ;;43353-0782-30
 ;;9002226.02101,"1220,43353-0782-60 ",.01)
 ;;43353-0782-60
 ;;9002226.02101,"1220,43353-0782-60 ",.02)
 ;;43353-0782-60
 ;;9002226.02101,"1220,43353-0782-80 ",.01)
 ;;43353-0782-80
 ;;9002226.02101,"1220,43353-0782-80 ",.02)
 ;;43353-0782-80
 ;;9002226.02101,"1220,43353-0792-30 ",.01)
 ;;43353-0792-30
 ;;9002226.02101,"1220,43353-0792-30 ",.02)
 ;;43353-0792-30
 ;;9002226.02101,"1220,43353-0792-60 ",.01)
 ;;43353-0792-60
 ;;9002226.02101,"1220,43353-0792-60 ",.02)
 ;;43353-0792-60
 ;;9002226.02101,"1220,43353-0836-09 ",.01)
 ;;43353-0836-09
 ;;9002226.02101,"1220,43353-0836-09 ",.02)
 ;;43353-0836-09
 ;;9002226.02101,"1220,43353-0836-30 ",.01)
 ;;43353-0836-30
 ;;9002226.02101,"1220,43353-0836-30 ",.02)
 ;;43353-0836-30
 ;;9002226.02101,"1220,43353-0836-60 ",.01)
 ;;43353-0836-60
 ;;9002226.02101,"1220,43353-0836-60 ",.02)
 ;;43353-0836-60
 ;;9002226.02101,"1220,43353-0836-80 ",.01)
 ;;43353-0836-80
 ;;9002226.02101,"1220,43353-0836-80 ",.02)
 ;;43353-0836-80
 ;;9002226.02101,"1220,43353-0903-79 ",.01)
 ;;43353-0903-79
 ;;9002226.02101,"1220,43353-0903-79 ",.02)
 ;;43353-0903-79
 ;;9002226.02101,"1220,43353-0906-79 ",.01)
 ;;43353-0906-79
 ;;9002226.02101,"1220,43353-0906-79 ",.02)
 ;;43353-0906-79
 ;;9002226.02101,"1220,43353-0907-83 ",.01)
 ;;43353-0907-83
 ;;9002226.02101,"1220,43353-0907-83 ",.02)
 ;;43353-0907-83
 ;;9002226.02101,"1220,43353-0921-16 ",.01)
 ;;43353-0921-16
 ;;9002226.02101,"1220,43353-0921-16 ",.02)
 ;;43353-0921-16
 ;;9002226.02101,"1220,43353-0929-09 ",.01)
 ;;43353-0929-09
 ;;9002226.02101,"1220,43353-0929-09 ",.02)
 ;;43353-0929-09
 ;;9002226.02101,"1220,43353-0929-30 ",.01)
 ;;43353-0929-30
 ;;9002226.02101,"1220,43353-0929-30 ",.02)
 ;;43353-0929-30
 ;;9002226.02101,"1220,43353-0929-60 ",.01)
 ;;43353-0929-60
 ;;9002226.02101,"1220,43353-0929-60 ",.02)
 ;;43353-0929-60
 ;;9002226.02101,"1220,43353-0940-30 ",.01)
 ;;43353-0940-30
 ;;9002226.02101,"1220,43353-0940-30 ",.02)
 ;;43353-0940-30
 ;;9002226.02101,"1220,43353-0940-60 ",.01)
 ;;43353-0940-60
 ;;9002226.02101,"1220,43353-0940-60 ",.02)
 ;;43353-0940-60
 ;;9002226.02101,"1220,43353-0989-30 ",.01)
 ;;43353-0989-30
 ;;9002226.02101,"1220,43353-0989-30 ",.02)
 ;;43353-0989-30
 ;;9002226.02101,"1220,43353-0989-45 ",.01)
 ;;43353-0989-45
 ;;9002226.02101,"1220,43353-0989-45 ",.02)
 ;;43353-0989-45
 ;;9002226.02101,"1220,43353-0989-60 ",.01)
 ;;43353-0989-60
 ;;9002226.02101,"1220,43353-0989-60 ",.02)
 ;;43353-0989-60
 ;;9002226.02101,"1220,43353-0992-60 ",.01)
 ;;43353-0992-60
 ;;9002226.02101,"1220,43353-0992-60 ",.02)
 ;;43353-0992-60
 ;;9002226.02101,"1220,43353-0992-80 ",.01)
 ;;43353-0992-80
 ;;9002226.02101,"1220,43353-0992-80 ",.02)
 ;;43353-0992-80
 ;;9002226.02101,"1220,43386-0080-03 ",.01)
 ;;43386-0080-03
 ;;9002226.02101,"1220,43386-0080-03 ",.02)
 ;;43386-0080-03
 ;;9002226.02101,"1220,43386-0080-09 ",.01)
 ;;43386-0080-09
 ;;9002226.02101,"1220,43386-0080-09 ",.02)
 ;;43386-0080-09
 ;;9002226.02101,"1220,43386-0081-03 ",.01)
 ;;43386-0081-03
 ;;9002226.02101,"1220,43386-0081-03 ",.02)
 ;;43386-0081-03
 ;;9002226.02101,"1220,43386-0081-09 ",.01)
 ;;43386-0081-09
 ;;9002226.02101,"1220,43386-0081-09 ",.02)
 ;;43386-0081-09
 ;;9002226.02101,"1220,43386-0082-03 ",.01)
 ;;43386-0082-03
 ;;9002226.02101,"1220,43386-0082-03 ",.02)
 ;;43386-0082-03
 ;;9002226.02101,"1220,43386-0082-09 ",.01)
 ;;43386-0082-09
 ;;9002226.02101,"1220,43386-0082-09 ",.02)
 ;;43386-0082-09
 ;;9002226.02101,"1220,43386-0083-03 ",.01)
 ;;43386-0083-03
 ;;9002226.02101,"1220,43386-0083-03 ",.02)
 ;;43386-0083-03
 ;;9002226.02101,"1220,43386-0083-09 ",.01)
 ;;43386-0083-09
 ;;9002226.02101,"1220,43386-0083-09 ",.02)
 ;;43386-0083-09
 ;;9002226.02101,"1220,43547-0230-09 ",.01)
 ;;43547-0230-09
 ;;9002226.02101,"1220,43547-0230-09 ",.02)
 ;;43547-0230-09
 ;;9002226.02101,"1220,43547-0230-11 ",.01)
 ;;43547-0230-11
 ;;9002226.02101,"1220,43547-0230-11 ",.02)
 ;;43547-0230-11
 ;;9002226.02101,"1220,43547-0231-09 ",.01)
 ;;43547-0231-09
 ;;9002226.02101,"1220,43547-0231-09 ",.02)
 ;;43547-0231-09
 ;;9002226.02101,"1220,43547-0231-11 ",.01)
 ;;43547-0231-11
 ;;9002226.02101,"1220,43547-0231-11 ",.02)
 ;;43547-0231-11
 ;;9002226.02101,"1220,43547-0232-09 ",.01)
 ;;43547-0232-09
 ;;9002226.02101,"1220,43547-0232-09 ",.02)
 ;;43547-0232-09
 ;;9002226.02101,"1220,43547-0232-11 ",.01)
 ;;43547-0232-11
 ;;9002226.02101,"1220,43547-0232-11 ",.02)
 ;;43547-0232-11
 ;;9002226.02101,"1220,43598-0313-30 ",.01)
 ;;43598-0313-30
 ;;9002226.02101,"1220,43598-0313-30 ",.02)
 ;;43598-0313-30
 ;;9002226.02101,"1220,43598-0314-30 ",.01)
 ;;43598-0314-30
 ;;9002226.02101,"1220,43598-0314-30 ",.02)
 ;;43598-0314-30
 ;;9002226.02101,"1220,43598-0315-30 ",.01)
 ;;43598-0315-30
 ;;9002226.02101,"1220,43598-0315-30 ",.02)
 ;;43598-0315-30
 ;;9002226.02101,"1220,43598-0315-90 ",.01)
 ;;43598-0315-90
 ;;9002226.02101,"1220,43598-0315-90 ",.02)
 ;;43598-0315-90
 ;;9002226.02101,"1220,43598-0316-30 ",.01)
 ;;43598-0316-30
 ;;9002226.02101,"1220,43598-0316-30 ",.02)
 ;;43598-0316-30
 ;;9002226.02101,"1220,43598-0316-90 ",.01)
 ;;43598-0316-90
 ;;9002226.02101,"1220,43598-0316-90 ",.02)
 ;;43598-0316-90
 ;;9002226.02101,"1220,43598-0317-30 ",.01)
 ;;43598-0317-30
 ;;9002226.02101,"1220,43598-0317-30 ",.02)
 ;;43598-0317-30
 ;;9002226.02101,"1220,43598-0318-30 ",.01)
 ;;43598-0318-30
 ;;9002226.02101,"1220,43598-0318-30 ",.02)
 ;;43598-0318-30
 ;;9002226.02101,"1220,43598-0318-90 ",.01)
 ;;43598-0318-90
 ;;9002226.02101,"1220,43598-0318-90 ",.02)
 ;;43598-0318-90
 ;;9002226.02101,"1220,43598-0319-30 ",.01)
 ;;43598-0319-30
 ;;9002226.02101,"1220,43598-0319-30 ",.02)
 ;;43598-0319-30
 ;;9002226.02101,"1220,43598-0319-90 ",.01)
 ;;43598-0319-90
 ;;9002226.02101,"1220,43598-0319-90 ",.02)
 ;;43598-0319-90
 ;;9002226.02101,"1220,43598-0320-30 ",.01)
 ;;43598-0320-30
 ;;9002226.02101,"1220,43598-0320-30 ",.02)
 ;;43598-0320-30
 ;;9002226.02101,"1220,43598-0321-30 ",.01)
 ;;43598-0321-30
 ;;9002226.02101,"1220,43598-0321-30 ",.02)
 ;;43598-0321-30
 ;;9002226.02101,"1220,43598-0321-90 ",.01)
 ;;43598-0321-90
 ;;9002226.02101,"1220,43598-0321-90 ",.02)
 ;;43598-0321-90
 ;;9002226.02101,"1220,43598-0322-30 ",.01)
 ;;43598-0322-30
 ;;9002226.02101,"1220,43598-0322-30 ",.02)
 ;;43598-0322-30
 ;;9002226.02101,"1220,43598-0322-90 ",.01)
 ;;43598-0322-90
 ;;9002226.02101,"1220,43598-0322-90 ",.02)
 ;;43598-0322-90
 ;;9002226.02101,"1220,43598-0323-30 ",.01)
 ;;43598-0323-30
 ;;9002226.02101,"1220,43598-0323-30 ",.02)
 ;;43598-0323-30
 ;;9002226.02101,"1220,45963-0152-02 ",.01)
 ;;45963-0152-02
 ;;9002226.02101,"1220,45963-0152-02 ",.02)
 ;;45963-0152-02
 ;;9002226.02101,"1220,47335-0669-13 ",.01)
 ;;47335-0669-13
 ;;9002226.02101,"1220,47335-0669-13 ",.02)
 ;;47335-0669-13
 ;;9002226.02101,"1220,47335-0669-81 ",.01)
 ;;47335-0669-81
 ;;9002226.02101,"1220,47335-0669-81 ",.02)
 ;;47335-0669-81
 ;;9002226.02101,"1220,47335-0669-83 ",.01)
 ;;47335-0669-83
 ;;9002226.02101,"1220,47335-0669-83 ",.02)
 ;;47335-0669-83
 ;;9002226.02101,"1220,47335-0670-13 ",.01)
 ;;47335-0670-13
 ;;9002226.02101,"1220,47335-0670-13 ",.02)
 ;;47335-0670-13
 ;;9002226.02101,"1220,47335-0670-81 ",.01)
 ;;47335-0670-81
 ;;9002226.02101,"1220,47335-0670-81 ",.02)
 ;;47335-0670-81
 ;;9002226.02101,"1220,47335-0670-83 ",.01)
 ;;47335-0670-83
 ;;9002226.02101,"1220,47335-0670-83 ",.02)
 ;;47335-0670-83
 ;;9002226.02101,"1220,47335-0671-13 ",.01)
 ;;47335-0671-13
 ;;9002226.02101,"1220,47335-0671-13 ",.02)
 ;;47335-0671-13
 ;;9002226.02101,"1220,47335-0671-81 ",.01)
 ;;47335-0671-81
 ;;9002226.02101,"1220,47335-0671-81 ",.02)
 ;;47335-0671-81
 ;;9002226.02101,"1220,47335-0671-83 ",.01)
 ;;47335-0671-83
 ;;9002226.02101,"1220,47335-0671-83 ",.02)
 ;;47335-0671-83
 ;;9002226.02101,"1220,47335-0672-13 ",.01)
 ;;47335-0672-13
 ;;9002226.02101,"1220,47335-0672-13 ",.02)
 ;;47335-0672-13
 ;;9002226.02101,"1220,47335-0672-81 ",.01)
 ;;47335-0672-81
 ;;9002226.02101,"1220,47335-0672-81 ",.02)
 ;;47335-0672-81
 ;;9002226.02101,"1220,47335-0672-83 ",.01)
 ;;47335-0672-83
 ;;9002226.02101,"1220,47335-0672-83 ",.02)
 ;;47335-0672-83
 ;;9002226.02101,"1220,47335-0673-13 ",.01)
 ;;47335-0673-13
 ;;9002226.02101,"1220,47335-0673-13 ",.02)
 ;;47335-0673-13
 ;;9002226.02101,"1220,47335-0673-81 ",.01)
 ;;47335-0673-81
 ;;9002226.02101,"1220,47335-0673-81 ",.02)
 ;;47335-0673-81
 ;;9002226.02101,"1220,47335-0673-83 ",.01)
 ;;47335-0673-83
 ;;9002226.02101,"1220,47335-0673-83 ",.02)
 ;;47335-0673-83
 ;;9002226.02101,"1220,47335-0675-13 ",.01)
 ;;47335-0675-13
 ;;9002226.02101,"1220,47335-0675-13 ",.02)
 ;;47335-0675-13
 ;;9002226.02101,"1220,47335-0675-81 ",.01)
 ;;47335-0675-81
 ;;9002226.02101,"1220,47335-0675-81 ",.02)
 ;;47335-0675-81
 ;;9002226.02101,"1220,47335-0676-13 ",.01)
 ;;47335-0676-13
 ;;9002226.02101,"1220,47335-0676-13 ",.02)
 ;;47335-0676-13
 ;;9002226.02101,"1220,47335-0676-81 ",.01)
 ;;47335-0676-81
 ;;9002226.02101,"1220,47335-0676-81 ",.02)
 ;;47335-0676-81
 ;;9002226.02101,"1220,47335-0677-13 ",.01)
 ;;47335-0677-13
 ;;9002226.02101,"1220,47335-0677-13 ",.02)
 ;;47335-0677-13
 ;;9002226.02101,"1220,47335-0677-81 ",.01)
 ;;47335-0677-81
 ;;9002226.02101,"1220,47335-0677-81 ",.02)
 ;;47335-0677-81
 ;;9002226.02101,"1220,47335-0678-13 ",.01)
 ;;47335-0678-13
 ;;9002226.02101,"1220,47335-0678-13 ",.02)
 ;;47335-0678-13
 ;;9002226.02101,"1220,47335-0678-81 ",.01)
 ;;47335-0678-81
 ;;9002226.02101,"1220,47335-0678-81 ",.02)
 ;;47335-0678-81
 ;;9002226.02101,"1220,47335-0679-81 ",.01)
 ;;47335-0679-81
 ;;9002226.02101,"1220,47335-0679-81 ",.02)
 ;;47335-0679-81
 ;;9002226.02101,"1220,47463-0018-30 ",.01)
 ;;47463-0018-30
 ;;9002226.02101,"1220,47463-0018-30 ",.02)
 ;;47463-0018-30
 ;;9002226.02101,"1220,47463-0018-90 ",.01)
 ;;47463-0018-90
 ;;9002226.02101,"1220,47463-0018-90 ",.02)
 ;;47463-0018-90
 ;;9002226.02101,"1220,47463-0019-30 ",.01)
 ;;47463-0019-30
 ;;9002226.02101,"1220,47463-0019-30 ",.02)
 ;;47463-0019-30
 ;;9002226.02101,"1220,47463-0019-90 ",.01)
 ;;47463-0019-90
 ;;9002226.02101,"1220,47463-0019-90 ",.02)
 ;;47463-0019-90
 ;;9002226.02101,"1220,47463-0020-30 ",.01)
 ;;47463-0020-30
 ;;9002226.02101,"1220,47463-0020-30 ",.02)
 ;;47463-0020-30
 ;;9002226.02101,"1220,47463-0021-30 ",.01)
 ;;47463-0021-30
 ;;9002226.02101,"1220,47463-0021-30 ",.02)
 ;;47463-0021-30
 ;;9002226.02101,"1220,47463-0022-30 ",.01)
 ;;47463-0022-30
 ;;9002226.02101,"1220,47463-0022-30 ",.02)
 ;;47463-0022-30
 ;;9002226.02101,"1220,47463-0023-30 ",.01)
 ;;47463-0023-30
 ;;9002226.02101,"1220,47463-0023-30 ",.02)
 ;;47463-0023-30
 ;;9002226.02101,"1220,47463-0024-30 ",.01)
 ;;47463-0024-30
 ;;9002226.02101,"1220,47463-0024-30 ",.02)
 ;;47463-0024-30
 ;;9002226.02101,"1220,47463-0210-30 ",.01)
 ;;47463-0210-30