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

BGP82O21.m

Go to the documentation of this file.
BGP82O21 ; 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,"1876,43547-0322-10 ",.01)
 ;;43547-0322-10
 ;;9002226.02101,"1876,43547-0322-10 ",.02)
 ;;43547-0322-10
 ;;9002226.02101,"1876,43547-0322-50 ",.01)
 ;;43547-0322-50
 ;;9002226.02101,"1876,43547-0322-50 ",.02)
 ;;43547-0322-50
 ;;9002226.02101,"1876,43547-0357-10 ",.01)
 ;;43547-0357-10
 ;;9002226.02101,"1876,43547-0357-10 ",.02)
 ;;43547-0357-10
 ;;9002226.02101,"1876,43547-0357-11 ",.01)
 ;;43547-0357-11
 ;;9002226.02101,"1876,43547-0357-11 ",.02)
 ;;43547-0357-11
 ;;9002226.02101,"1876,43547-0357-50 ",.01)
 ;;43547-0357-50
 ;;9002226.02101,"1876,43547-0357-50 ",.02)
 ;;43547-0357-50
 ;;9002226.02101,"1876,43547-0358-10 ",.01)
 ;;43547-0358-10
 ;;9002226.02101,"1876,43547-0358-10 ",.02)
 ;;43547-0358-10
 ;;9002226.02101,"1876,43547-0358-50 ",.01)
 ;;43547-0358-50
 ;;9002226.02101,"1876,43547-0358-50 ",.02)
 ;;43547-0358-50
 ;;9002226.02101,"1876,43547-0359-10 ",.01)
 ;;43547-0359-10
 ;;9002226.02101,"1876,43547-0359-10 ",.02)
 ;;43547-0359-10
 ;;9002226.02101,"1876,43547-0359-50 ",.01)
 ;;43547-0359-50
 ;;9002226.02101,"1876,43547-0359-50 ",.02)
 ;;43547-0359-50
 ;;9002226.02101,"1876,43547-0394-10 ",.01)
 ;;43547-0394-10
 ;;9002226.02101,"1876,43547-0394-10 ",.02)
 ;;43547-0394-10
 ;;9002226.02101,"1876,43547-0394-50 ",.01)
 ;;43547-0394-50
 ;;9002226.02101,"1876,43547-0394-50 ",.02)
 ;;43547-0394-50
 ;;9002226.02101,"1876,43547-0395-10 ",.01)
 ;;43547-0395-10
 ;;9002226.02101,"1876,43547-0395-10 ",.02)
 ;;43547-0395-10
 ;;9002226.02101,"1876,43547-0395-50 ",.01)
 ;;43547-0395-50
 ;;9002226.02101,"1876,43547-0395-50 ",.02)
 ;;43547-0395-50
 ;;9002226.02101,"1876,43547-0396-10 ",.01)
 ;;43547-0396-10
 ;;9002226.02101,"1876,43547-0396-10 ",.02)
 ;;43547-0396-10
 ;;9002226.02101,"1876,43547-0396-50 ",.01)
 ;;43547-0396-50
 ;;9002226.02101,"1876,43547-0396-50 ",.02)
 ;;43547-0396-50
 ;;9002226.02101,"1876,45802-0087-65 ",.01)
 ;;45802-0087-65
 ;;9002226.02101,"1876,45802-0087-65 ",.02)
 ;;45802-0087-65
 ;;9002226.02101,"1876,45802-0103-65 ",.01)
 ;;45802-0103-65
 ;;9002226.02101,"1876,45802-0103-65 ",.02)
 ;;45802-0103-65
 ;;9002226.02101,"1876,45802-0150-65 ",.01)
 ;;45802-0150-65
 ;;9002226.02101,"1876,45802-0150-65 ",.02)
 ;;45802-0150-65
 ;;9002226.02101,"1876,45802-0169-72 ",.01)
 ;;45802-0169-72
 ;;9002226.02101,"1876,45802-0169-72 ",.02)
 ;;45802-0169-72
 ;;9002226.02101,"1876,45802-0211-72 ",.01)
 ;;45802-0211-72
 ;;9002226.02101,"1876,45802-0211-72 ",.02)
 ;;45802-0211-72
 ;;9002226.02101,"1876,45802-0238-65 ",.01)
 ;;45802-0238-65
 ;;9002226.02101,"1876,45802-0238-65 ",.02)
 ;;45802-0238-65
 ;;9002226.02101,"1876,45802-0260-65 ",.01)
 ;;45802-0260-65
 ;;9002226.02101,"1876,45802-0260-65 ",.02)
 ;;45802-0260-65
 ;;9002226.02101,"1876,45802-0304-65 ",.01)
 ;;45802-0304-65
 ;;9002226.02101,"1876,45802-0304-65 ",.02)
 ;;45802-0304-65
 ;;9002226.02101,"1876,45802-0351-65 ",.01)
 ;;45802-0351-65
 ;;9002226.02101,"1876,45802-0351-65 ",.02)
 ;;45802-0351-65
 ;;9002226.02101,"1876,45802-0402-65 ",.01)
 ;;45802-0402-65
 ;;9002226.02101,"1876,45802-0402-65 ",.02)
 ;;45802-0402-65
 ;;9002226.02101,"1876,45802-0499-65 ",.01)
 ;;45802-0499-65
 ;;9002226.02101,"1876,45802-0499-65 ",.02)
 ;;45802-0499-65
 ;;9002226.02101,"1876,45802-0770-78 ",.01)
 ;;45802-0770-78
 ;;9002226.02101,"1876,45802-0770-78 ",.02)
 ;;45802-0770-78
 ;;9002226.02101,"1876,45802-0822-78 ",.01)
 ;;45802-0822-78
 ;;9002226.02101,"1876,45802-0822-78 ",.02)
 ;;45802-0822-78
 ;;9002226.02101,"1876,45802-0947-78 ",.01)
 ;;45802-0947-78
 ;;9002226.02101,"1876,45802-0947-78 ",.02)
 ;;45802-0947-78
 ;;9002226.02101,"1876,45963-0753-02 ",.01)
 ;;45963-0753-02
 ;;9002226.02101,"1876,45963-0753-02 ",.02)
 ;;45963-0753-02
 ;;9002226.02101,"1876,47463-0241-30 ",.01)
 ;;47463-0241-30
 ;;9002226.02101,"1876,47463-0241-30 ",.02)
 ;;47463-0241-30
 ;;9002226.02101,"1876,47463-0242-30 ",.01)
 ;;47463-0242-30
 ;;9002226.02101,"1876,47463-0242-30 ",.02)
 ;;47463-0242-30
 ;;9002226.02101,"1876,47463-0243-30 ",.01)
 ;;47463-0243-30
 ;;9002226.02101,"1876,47463-0243-30 ",.02)
 ;;47463-0243-30
 ;;9002226.02101,"1876,47463-0243-60 ",.01)
 ;;47463-0243-60
 ;;9002226.02101,"1876,47463-0243-60 ",.02)
 ;;47463-0243-60
 ;;9002226.02101,"1876,47463-0244-30 ",.01)
 ;;47463-0244-30
 ;;9002226.02101,"1876,47463-0244-30 ",.02)
 ;;47463-0244-30
 ;;9002226.02101,"1876,47463-0245-30 ",.01)
 ;;47463-0245-30
 ;;9002226.02101,"1876,47463-0245-30 ",.02)
 ;;47463-0245-30
 ;;9002226.02101,"1876,47463-0245-60 ",.01)
 ;;47463-0245-60
 ;;9002226.02101,"1876,47463-0245-60 ",.02)
 ;;47463-0245-60
 ;;9002226.02101,"1876,47463-0246-30 ",.01)
 ;;47463-0246-30
 ;;9002226.02101,"1876,47463-0246-30 ",.02)
 ;;47463-0246-30
 ;;9002226.02101,"1876,47463-0247-30 ",.01)
 ;;47463-0247-30
 ;;9002226.02101,"1876,47463-0247-30 ",.02)
 ;;47463-0247-30
 ;;9002226.02101,"1876,47463-0248-90 ",.01)
 ;;47463-0248-90
 ;;9002226.02101,"1876,47463-0248-90 ",.02)
 ;;47463-0248-90
 ;;9002226.02101,"1876,47463-0434-60 ",.01)
 ;;47463-0434-60
 ;;9002226.02101,"1876,47463-0434-60 ",.02)
 ;;47463-0434-60
 ;;9002226.02101,"1876,47463-0435-60 ",.01)
 ;;47463-0435-60
 ;;9002226.02101,"1876,47463-0435-60 ",.02)
 ;;47463-0435-60
 ;;9002226.02101,"1876,47463-0508-30 ",.01)
 ;;47463-0508-30
 ;;9002226.02101,"1876,47463-0508-30 ",.02)
 ;;47463-0508-30
 ;;9002226.02101,"1876,47463-0509-30 ",.01)
 ;;47463-0509-30
 ;;9002226.02101,"1876,47463-0509-30 ",.02)
 ;;47463-0509-30
 ;;9002226.02101,"1876,47463-0509-60 ",.01)
 ;;47463-0509-60
 ;;9002226.02101,"1876,47463-0509-60 ",.02)
 ;;47463-0509-60
 ;;9002226.02101,"1876,47463-0509-74 ",.01)
 ;;47463-0509-74
 ;;9002226.02101,"1876,47463-0509-74 ",.02)
 ;;47463-0509-74
 ;;9002226.02101,"1876,47463-0509-90 ",.01)
 ;;47463-0509-90
 ;;9002226.02101,"1876,47463-0509-90 ",.02)
 ;;47463-0509-90
 ;;9002226.02101,"1876,47463-0510-30 ",.01)
 ;;47463-0510-30
 ;;9002226.02101,"1876,47463-0510-30 ",.02)
 ;;47463-0510-30
 ;;9002226.02101,"1876,47463-0510-60 ",.01)
 ;;47463-0510-60
 ;;9002226.02101,"1876,47463-0510-60 ",.02)
 ;;47463-0510-60
 ;;9002226.02101,"1876,47463-0510-71 ",.01)
 ;;47463-0510-71
 ;;9002226.02101,"1876,47463-0510-71 ",.02)
 ;;47463-0510-71
 ;;9002226.02101,"1876,47463-0510-74 ",.01)
 ;;47463-0510-74
 ;;9002226.02101,"1876,47463-0510-74 ",.02)
 ;;47463-0510-74
 ;;9002226.02101,"1876,47463-0510-90 ",.01)
 ;;47463-0510-90
 ;;9002226.02101,"1876,47463-0510-90 ",.02)
 ;;47463-0510-90
 ;;9002226.02101,"1876,47463-0583-30 ",.01)
 ;;47463-0583-30
 ;;9002226.02101,"1876,47463-0583-30 ",.02)
 ;;47463-0583-30
 ;;9002226.02101,"1876,47463-0584-30 ",.01)
 ;;47463-0584-30
 ;;9002226.02101,"1876,47463-0584-30 ",.02)
 ;;47463-0584-30
 ;;9002226.02101,"1876,47463-0585-30 ",.01)
 ;;47463-0585-30
 ;;9002226.02101,"1876,47463-0585-30 ",.02)
 ;;47463-0585-30
 ;;9002226.02101,"1876,47463-0611-60 ",.01)
 ;;47463-0611-60
 ;;9002226.02101,"1876,47463-0611-60 ",.02)
 ;;47463-0611-60
 ;;9002226.02101,"1876,47463-0611-74 ",.01)
 ;;47463-0611-74
 ;;9002226.02101,"1876,47463-0611-74 ",.02)
 ;;47463-0611-74
 ;;9002226.02101,"1876,47463-0612-30 ",.01)
 ;;47463-0612-30
 ;;9002226.02101,"1876,47463-0612-30 ",.02)
 ;;47463-0612-30
 ;;9002226.02101,"1876,47463-0764-60 ",.01)
 ;;47463-0764-60
 ;;9002226.02101,"1876,47463-0764-60 ",.02)
 ;;47463-0764-60
 ;;9002226.02101,"1876,47463-0765-30 ",.01)
 ;;47463-0765-30
 ;;9002226.02101,"1876,47463-0765-30 ",.02)
 ;;47463-0765-30
 ;;9002226.02101,"1876,47463-0766-30 ",.01)
 ;;47463-0766-30
 ;;9002226.02101,"1876,47463-0766-30 ",.02)
 ;;47463-0766-30
 ;;9002226.02101,"1876,47463-0777-30 ",.01)
 ;;47463-0777-30
 ;;9002226.02101,"1876,47463-0777-30 ",.02)
 ;;47463-0777-30
 ;;9002226.02101,"1876,49483-0620-01 ",.01)
 ;;49483-0620-01
 ;;9002226.02101,"1876,49483-0620-01 ",.02)
 ;;49483-0620-01
 ;;9002226.02101,"1876,49483-0620-10 ",.01)
 ;;49483-0620-10
 ;;9002226.02101,"1876,49483-0620-10 ",.02)
 ;;49483-0620-10
 ;;9002226.02101,"1876,49483-0620-50 ",.01)
 ;;49483-0620-50
 ;;9002226.02101,"1876,49483-0620-50 ",.02)
 ;;49483-0620-50
 ;;9002226.02101,"1876,49483-0621-01 ",.01)
 ;;49483-0621-01
 ;;9002226.02101,"1876,49483-0621-01 ",.02)
 ;;49483-0621-01
 ;;9002226.02101,"1876,49483-0621-10 ",.01)
 ;;49483-0621-10
 ;;9002226.02101,"1876,49483-0621-10 ",.02)
 ;;49483-0621-10
 ;;9002226.02101,"1876,49483-0621-50 ",.01)
 ;;49483-0621-50
 ;;9002226.02101,"1876,49483-0621-50 ",.02)
 ;;49483-0621-50
 ;;9002226.02101,"1876,49483-0622-01 ",.01)
 ;;49483-0622-01
 ;;9002226.02101,"1876,49483-0622-01 ",.02)
 ;;49483-0622-01
 ;;9002226.02101,"1876,49483-0622-10 ",.01)
 ;;49483-0622-10
 ;;9002226.02101,"1876,49483-0622-10 ",.02)
 ;;49483-0622-10
 ;;9002226.02101,"1876,49483-0622-50 ",.01)
 ;;49483-0622-50
 ;;9002226.02101,"1876,49483-0622-50 ",.02)
 ;;49483-0622-50
 ;;9002226.02101,"1876,49483-0623-01 ",.01)
 ;;49483-0623-01
 ;;9002226.02101,"1876,49483-0623-01 ",.02)
 ;;49483-0623-01
 ;;9002226.02101,"1876,49483-0623-50 ",.01)
 ;;49483-0623-50
 ;;9002226.02101,"1876,49483-0623-50 ",.02)
 ;;49483-0623-50
 ;;9002226.02101,"1876,49483-0624-01 ",.01)
 ;;49483-0624-01
 ;;9002226.02101,"1876,49483-0624-01 ",.02)
 ;;49483-0624-01
 ;;9002226.02101,"1876,49483-0624-50 ",.01)
 ;;49483-0624-50
 ;;9002226.02101,"1876,49483-0624-50 ",.02)
 ;;49483-0624-50
 ;;9002226.02101,"1876,49884-0745-01 ",.01)
 ;;49884-0745-01
 ;;9002226.02101,"1876,49884-0745-01 ",.02)
 ;;49884-0745-01
 ;;9002226.02101,"1876,49884-0745-05 ",.01)
 ;;49884-0745-05
 ;;9002226.02101,"1876,49884-0745-05 ",.02)
 ;;49884-0745-05
 ;;9002226.02101,"1876,49884-0746-01 ",.01)
 ;;49884-0746-01
 ;;9002226.02101,"1876,49884-0746-01 ",.02)
 ;;49884-0746-01
 ;;9002226.02101,"1876,49884-0746-05 ",.01)
 ;;49884-0746-05
 ;;9002226.02101,"1876,49884-0746-05 ",.02)
 ;;49884-0746-05
 ;;9002226.02101,"1876,49884-0984-01 ",.01)
 ;;49884-0984-01
 ;;9002226.02101,"1876,49884-0984-01 ",.02)
 ;;49884-0984-01
 ;;9002226.02101,"1876,49884-0985-01 ",.01)
 ;;49884-0985-01
 ;;9002226.02101,"1876,49884-0985-01 ",.02)
 ;;49884-0985-01
 ;;9002226.02101,"1876,49999-0106-00 ",.01)
 ;;49999-0106-00
 ;;9002226.02101,"1876,49999-0106-00 ",.02)
 ;;49999-0106-00
 ;;9002226.02101,"1876,49999-0106-01 ",.01)
 ;;49999-0106-01
 ;;9002226.02101,"1876,49999-0106-01 ",.02)
 ;;49999-0106-01
 ;;9002226.02101,"1876,49999-0106-28 ",.01)
 ;;49999-0106-28
 ;;9002226.02101,"1876,49999-0106-28 ",.02)
 ;;49999-0106-28
 ;;9002226.02101,"1876,49999-0106-30 ",.01)
 ;;49999-0106-30
 ;;9002226.02101,"1876,49999-0106-30 ",.02)
 ;;49999-0106-30
 ;;9002226.02101,"1876,49999-0106-60 ",.01)
 ;;49999-0106-60
 ;;9002226.02101,"1876,49999-0106-60 ",.02)
 ;;49999-0106-60
 ;;9002226.02101,"1876,49999-0106-90 ",.01)
 ;;49999-0106-90
 ;;9002226.02101,"1876,49999-0106-90 ",.02)
 ;;49999-0106-90
 ;;9002226.02101,"1876,49999-0107-00 ",.01)
 ;;49999-0107-00
 ;;9002226.02101,"1876,49999-0107-00 ",.02)
 ;;49999-0107-00
 ;;9002226.02101,"1876,49999-0107-20 ",.01)
 ;;49999-0107-20
 ;;9002226.02101,"1876,49999-0107-20 ",.02)
 ;;49999-0107-20
 ;;9002226.02101,"1876,49999-0107-30 ",.01)
 ;;49999-0107-30
 ;;9002226.02101,"1876,49999-0107-30 ",.02)
 ;;49999-0107-30
 ;;9002226.02101,"1876,49999-0107-60 ",.01)
 ;;49999-0107-60
 ;;9002226.02101,"1876,49999-0107-60 ",.02)
 ;;49999-0107-60
 ;;9002226.02101,"1876,49999-0107-90 ",.01)
 ;;49999-0107-90
 ;;9002226.02101,"1876,49999-0107-90 ",.02)
 ;;49999-0107-90
 ;;9002226.02101,"1876,49999-0108-00 ",.01)
 ;;49999-0108-00
 ;;9002226.02101,"1876,49999-0108-00 ",.02)
 ;;49999-0108-00
 ;;9002226.02101,"1876,49999-0108-30 ",.01)
 ;;49999-0108-30
 ;;9002226.02101,"1876,49999-0108-30 ",.02)
 ;;49999-0108-30
 ;;9002226.02101,"1876,49999-0108-60 ",.01)
 ;;49999-0108-60