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

BGP83A32.m

Go to the documentation of this file.
BGP83A32 ; 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,"1828,55700-0312-90 ",.01)
 ;;55700-0312-90
 ;;9002226.02101,"1828,55700-0312-90 ",.02)
 ;;55700-0312-90
 ;;9002226.02101,"1828,55700-0313-30 ",.01)
 ;;55700-0313-30
 ;;9002226.02101,"1828,55700-0313-30 ",.02)
 ;;55700-0313-30
 ;;9002226.02101,"1828,55700-0313-60 ",.01)
 ;;55700-0313-60
 ;;9002226.02101,"1828,55700-0313-60 ",.02)
 ;;55700-0313-60
 ;;9002226.02101,"1828,55700-0313-90 ",.01)
 ;;55700-0313-90
 ;;9002226.02101,"1828,55700-0313-90 ",.02)
 ;;55700-0313-90
 ;;9002226.02101,"1828,55700-0422-30 ",.01)
 ;;55700-0422-30
 ;;9002226.02101,"1828,55700-0422-30 ",.02)
 ;;55700-0422-30
 ;;9002226.02101,"1828,55700-0422-60 ",.01)
 ;;55700-0422-60
 ;;9002226.02101,"1828,55700-0422-60 ",.02)
 ;;55700-0422-60
 ;;9002226.02101,"1828,55700-0422-90 ",.01)
 ;;55700-0422-90
 ;;9002226.02101,"1828,55700-0422-90 ",.02)
 ;;55700-0422-90
 ;;9002226.02101,"1828,55700-0439-10 ",.01)
 ;;55700-0439-10
 ;;9002226.02101,"1828,55700-0439-10 ",.02)
 ;;55700-0439-10
 ;;9002226.02101,"1828,55700-0439-20 ",.01)
 ;;55700-0439-20
 ;;9002226.02101,"1828,55700-0439-20 ",.02)
 ;;55700-0439-20
 ;;9002226.02101,"1828,55700-0439-30 ",.01)
 ;;55700-0439-30
 ;;9002226.02101,"1828,55700-0439-30 ",.02)
 ;;55700-0439-30
 ;;9002226.02101,"1828,55700-0439-60 ",.01)
 ;;55700-0439-60
 ;;9002226.02101,"1828,55700-0439-60 ",.02)
 ;;55700-0439-60
 ;;9002226.02101,"1828,55700-0439-90 ",.01)
 ;;55700-0439-90
 ;;9002226.02101,"1828,55700-0439-90 ",.02)
 ;;55700-0439-90
 ;;9002226.02101,"1828,55700-0442-02 ",.01)
 ;;55700-0442-02
 ;;9002226.02101,"1828,55700-0442-02 ",.02)
 ;;55700-0442-02
 ;;9002226.02101,"1828,55700-0442-30 ",.01)
 ;;55700-0442-30
 ;;9002226.02101,"1828,55700-0442-30 ",.02)
 ;;55700-0442-30
 ;;9002226.02101,"1828,55700-0442-60 ",.01)
 ;;55700-0442-60
 ;;9002226.02101,"1828,55700-0442-60 ",.02)
 ;;55700-0442-60
 ;;9002226.02101,"1828,55700-0442-90 ",.01)
 ;;55700-0442-90
 ;;9002226.02101,"1828,55700-0442-90 ",.02)
 ;;55700-0442-90
 ;;9002226.02101,"1828,55700-0491-30 ",.01)
 ;;55700-0491-30
 ;;9002226.02101,"1828,55700-0491-30 ",.02)
 ;;55700-0491-30
 ;;9002226.02101,"1828,55700-0491-60 ",.01)
 ;;55700-0491-60
 ;;9002226.02101,"1828,55700-0491-60 ",.02)
 ;;55700-0491-60
 ;;9002226.02101,"1828,55700-0491-90 ",.01)
 ;;55700-0491-90
 ;;9002226.02101,"1828,55700-0491-90 ",.02)
 ;;55700-0491-90
 ;;9002226.02101,"1828,57664-0273-08 ",.01)
 ;;57664-0273-08
 ;;9002226.02101,"1828,57664-0273-08 ",.02)
 ;;57664-0273-08
 ;;9002226.02101,"1828,57664-0273-13 ",.01)
 ;;57664-0273-13
 ;;9002226.02101,"1828,57664-0273-13 ",.02)
 ;;57664-0273-13
 ;;9002226.02101,"1828,57664-0273-18 ",.01)
 ;;57664-0273-18
 ;;9002226.02101,"1828,57664-0273-18 ",.02)
 ;;57664-0273-18
 ;;9002226.02101,"1828,57664-0274-08 ",.01)
 ;;57664-0274-08
 ;;9002226.02101,"1828,57664-0274-08 ",.02)
 ;;57664-0274-08
 ;;9002226.02101,"1828,57664-0274-13 ",.01)
 ;;57664-0274-13
 ;;9002226.02101,"1828,57664-0274-13 ",.02)
 ;;57664-0274-13
 ;;9002226.02101,"1828,57664-0274-18 ",.01)
 ;;57664-0274-18
 ;;9002226.02101,"1828,57664-0274-18 ",.02)
 ;;57664-0274-18
 ;;9002226.02101,"1828,57664-0275-08 ",.01)
 ;;57664-0275-08
 ;;9002226.02101,"1828,57664-0275-08 ",.02)
 ;;57664-0275-08
 ;;9002226.02101,"1828,57664-0275-13 ",.01)
 ;;57664-0275-13
 ;;9002226.02101,"1828,57664-0275-13 ",.02)
 ;;57664-0275-13
 ;;9002226.02101,"1828,57664-0275-18 ",.01)
 ;;57664-0275-18
 ;;9002226.02101,"1828,57664-0275-18 ",.02)
 ;;57664-0275-18
 ;;9002226.02101,"1828,58118-0146-03 ",.01)
 ;;58118-0146-03
 ;;9002226.02101,"1828,58118-0146-03 ",.02)
 ;;58118-0146-03
 ;;9002226.02101,"1828,58118-0146-06 ",.01)
 ;;58118-0146-06
 ;;9002226.02101,"1828,58118-0146-06 ",.02)
 ;;58118-0146-06
 ;;9002226.02101,"1828,58118-0147-03 ",.01)
 ;;58118-0147-03
 ;;9002226.02101,"1828,58118-0147-03 ",.02)
 ;;58118-0147-03
 ;;9002226.02101,"1828,58118-0605-09 ",.01)
 ;;58118-0605-09
 ;;9002226.02101,"1828,58118-0605-09 ",.02)
 ;;58118-0605-09
 ;;9002226.02101,"1828,58118-2948-06 ",.01)
 ;;58118-2948-06
 ;;9002226.02101,"1828,58118-2948-06 ",.02)
 ;;58118-2948-06
 ;;9002226.02101,"1828,58118-2949-03 ",.01)
 ;;58118-2949-03
 ;;9002226.02101,"1828,58118-2949-03 ",.02)
 ;;58118-2949-03
 ;;9002226.02101,"1828,58118-3926-06 ",.01)
 ;;58118-3926-06
 ;;9002226.02101,"1828,58118-3926-06 ",.02)
 ;;58118-3926-06
 ;;9002226.02101,"1828,58118-3926-09 ",.01)
 ;;58118-3926-09
 ;;9002226.02101,"1828,58118-3926-09 ",.02)
 ;;58118-3926-09
 ;;9002226.02101,"1828,58118-5620-03 ",.01)
 ;;58118-5620-03
 ;;9002226.02101,"1828,58118-5620-03 ",.02)
 ;;58118-5620-03
 ;;9002226.02101,"1828,58118-5620-06 ",.01)
 ;;58118-5620-06
 ;;9002226.02101,"1828,58118-5620-06 ",.02)
 ;;58118-5620-06
 ;;9002226.02101,"1828,58864-0145-20 ",.01)
 ;;58864-0145-20
 ;;9002226.02101,"1828,58864-0145-20 ",.02)
 ;;58864-0145-20
 ;;9002226.02101,"1828,58864-0146-30 ",.01)
 ;;58864-0146-30
 ;;9002226.02101,"1828,58864-0146-30 ",.02)
 ;;58864-0146-30
 ;;9002226.02101,"1828,58864-0701-15 ",.01)
 ;;58864-0701-15
 ;;9002226.02101,"1828,58864-0701-15 ",.02)
 ;;58864-0701-15
 ;;9002226.02101,"1828,59762-0057-01 ",.01)
 ;;59762-0057-01
 ;;9002226.02101,"1828,59762-0057-01 ",.02)
 ;;59762-0057-01
 ;;9002226.02101,"1828,59762-0059-01 ",.01)
 ;;59762-0059-01
 ;;9002226.02101,"1828,59762-0059-01 ",.02)
 ;;59762-0059-01
 ;;9002226.02101,"1828,59762-0066-01 ",.01)
 ;;59762-0066-01
 ;;9002226.02101,"1828,59762-0066-01 ",.02)
 ;;59762-0066-01
 ;;9002226.02101,"1828,59762-0068-01 ",.01)
 ;;59762-0068-01
 ;;9002226.02101,"1828,59762-0068-01 ",.02)
 ;;59762-0068-01
 ;;9002226.02101,"1828,59762-3717-04 ",.01)
 ;;59762-3717-04
 ;;9002226.02101,"1828,59762-3717-04 ",.02)
 ;;59762-3717-04
 ;;9002226.02101,"1828,59762-3717-09 ",.01)
 ;;59762-3717-09
 ;;9002226.02101,"1828,59762-3717-09 ",.02)
 ;;59762-3717-09
 ;;9002226.02101,"1828,59762-3718-03 ",.01)
 ;;59762-3718-03
 ;;9002226.02101,"1828,59762-3718-03 ",.02)
 ;;59762-3718-03
 ;;9002226.02101,"1828,59762-3718-04 ",.01)
 ;;59762-3718-04
 ;;9002226.02101,"1828,59762-3718-04 ",.02)
 ;;59762-3718-04
 ;;9002226.02101,"1828,59762-3718-09 ",.01)
 ;;59762-3718-09
 ;;9002226.02101,"1828,59762-3718-09 ",.02)
 ;;59762-3718-09
 ;;9002226.02101,"1828,59762-3719-01 ",.01)
 ;;59762-3719-01
 ;;9002226.02101,"1828,59762-3719-01 ",.02)
 ;;59762-3719-01
 ;;9002226.02101,"1828,59762-3719-03 ",.01)
 ;;59762-3719-03
 ;;9002226.02101,"1828,59762-3719-03 ",.02)
 ;;59762-3719-03
 ;;9002226.02101,"1828,59762-3719-04 ",.01)
 ;;59762-3719-04
 ;;9002226.02101,"1828,59762-3719-04 ",.02)
 ;;59762-3719-04
 ;;9002226.02101,"1828,59762-3720-01 ",.01)
 ;;59762-3720-01
 ;;9002226.02101,"1828,59762-3720-01 ",.02)
 ;;59762-3720-01
 ;;9002226.02101,"1828,59762-3720-03 ",.01)
 ;;59762-3720-03
 ;;9002226.02101,"1828,59762-3720-03 ",.02)
 ;;59762-3720-03
 ;;9002226.02101,"1828,59762-3720-04 ",.01)
 ;;59762-3720-04
 ;;9002226.02101,"1828,59762-3720-04 ",.02)
 ;;59762-3720-04
 ;;9002226.02101,"1828,59762-3721-01 ",.01)
 ;;59762-3721-01
 ;;9002226.02101,"1828,59762-3721-01 ",.02)
 ;;59762-3721-01
 ;;9002226.02101,"1828,59762-3721-03 ",.01)
 ;;59762-3721-03
 ;;9002226.02101,"1828,59762-3721-03 ",.02)
 ;;59762-3721-03
 ;;9002226.02101,"1828,59762-3721-04 ",.01)
 ;;59762-3721-04
 ;;9002226.02101,"1828,59762-3721-04 ",.02)
 ;;59762-3721-04
 ;;9002226.02101,"1828,59762-3722-01 ",.01)
 ;;59762-3722-01
 ;;9002226.02101,"1828,59762-3722-01 ",.02)
 ;;59762-3722-01
 ;;9002226.02101,"1828,59762-3722-03 ",.01)
 ;;59762-3722-03
 ;;9002226.02101,"1828,59762-3722-03 ",.02)
 ;;59762-3722-03
 ;;9002226.02101,"1828,60429-0502-12 ",.01)
 ;;60429-0502-12
 ;;9002226.02101,"1828,60429-0502-12 ",.02)
 ;;60429-0502-12
 ;;9002226.02101,"1828,60429-0502-15 ",.01)
 ;;60429-0502-15
 ;;9002226.02101,"1828,60429-0502-15 ",.02)
 ;;60429-0502-15
 ;;9002226.02101,"1828,60429-0502-18 ",.01)
 ;;60429-0502-18
 ;;9002226.02101,"1828,60429-0502-18 ",.02)
 ;;60429-0502-18
 ;;9002226.02101,"1828,60429-0502-30 ",.01)
 ;;60429-0502-30
 ;;9002226.02101,"1828,60429-0502-30 ",.02)
 ;;60429-0502-30
 ;;9002226.02101,"1828,60429-0502-60 ",.01)
 ;;60429-0502-60
 ;;9002226.02101,"1828,60429-0502-60 ",.02)
 ;;60429-0502-60
 ;;9002226.02101,"1828,60429-0502-90 ",.01)
 ;;60429-0502-90
 ;;9002226.02101,"1828,60429-0502-90 ",.02)
 ;;60429-0502-90
 ;;9002226.02101,"1828,60429-0503-12 ",.01)
 ;;60429-0503-12
 ;;9002226.02101,"1828,60429-0503-12 ",.02)
 ;;60429-0503-12
 ;;9002226.02101,"1828,60429-0503-15 ",.01)
 ;;60429-0503-15
 ;;9002226.02101,"1828,60429-0503-15 ",.02)
 ;;60429-0503-15
 ;;9002226.02101,"1828,60429-0503-18 ",.01)
 ;;60429-0503-18
 ;;9002226.02101,"1828,60429-0503-18 ",.02)
 ;;60429-0503-18
 ;;9002226.02101,"1828,60429-0503-30 ",.01)
 ;;60429-0503-30
 ;;9002226.02101,"1828,60429-0503-30 ",.02)
 ;;60429-0503-30
 ;;9002226.02101,"1828,60429-0503-45 ",.01)
 ;;60429-0503-45
 ;;9002226.02101,"1828,60429-0503-45 ",.02)
 ;;60429-0503-45
 ;;9002226.02101,"1828,60429-0503-60 ",.01)
 ;;60429-0503-60
 ;;9002226.02101,"1828,60429-0503-60 ",.02)
 ;;60429-0503-60
 ;;9002226.02101,"1828,60429-0503-90 ",.01)
 ;;60429-0503-90
 ;;9002226.02101,"1828,60429-0503-90 ",.02)
 ;;60429-0503-90
 ;;9002226.02101,"1828,60429-0504-12 ",.01)
 ;;60429-0504-12
 ;;9002226.02101,"1828,60429-0504-12 ",.02)
 ;;60429-0504-12
 ;;9002226.02101,"1828,60429-0504-15 ",.01)
 ;;60429-0504-15
 ;;9002226.02101,"1828,60429-0504-15 ",.02)
 ;;60429-0504-15
 ;;9002226.02101,"1828,60429-0504-18 ",.01)
 ;;60429-0504-18
 ;;9002226.02101,"1828,60429-0504-18 ",.02)
 ;;60429-0504-18
 ;;9002226.02101,"1828,60429-0504-30 ",.01)
 ;;60429-0504-30
 ;;9002226.02101,"1828,60429-0504-30 ",.02)
 ;;60429-0504-30
 ;;9002226.02101,"1828,60429-0504-60 ",.01)
 ;;60429-0504-60
 ;;9002226.02101,"1828,60429-0504-60 ",.02)
 ;;60429-0504-60
 ;;9002226.02101,"1828,60429-0504-90 ",.01)
 ;;60429-0504-90
 ;;9002226.02101,"1828,60429-0504-90 ",.02)
 ;;60429-0504-90
 ;;9002226.02101,"1828,60429-0505-15 ",.01)
 ;;60429-0505-15
 ;;9002226.02101,"1828,60429-0505-15 ",.02)
 ;;60429-0505-15
 ;;9002226.02101,"1828,60429-0505-18 ",.01)
 ;;60429-0505-18
 ;;9002226.02101,"1828,60429-0505-18 ",.02)
 ;;60429-0505-18
 ;;9002226.02101,"1828,60429-0505-60 ",.01)
 ;;60429-0505-60
 ;;9002226.02101,"1828,60429-0505-60 ",.02)
 ;;60429-0505-60
 ;;9002226.02101,"1828,60429-0506-01 ",.01)
 ;;60429-0506-01
 ;;9002226.02101,"1828,60429-0506-01 ",.02)
 ;;60429-0506-01
 ;;9002226.02101,"1828,60429-0506-05 ",.01)
 ;;60429-0506-05
 ;;9002226.02101,"1828,60429-0506-05 ",.02)
 ;;60429-0506-05
 ;;9002226.02101,"1828,60429-0507-01 ",.01)
 ;;60429-0507-01
 ;;9002226.02101,"1828,60429-0507-01 ",.02)
 ;;60429-0507-01
 ;;9002226.02101,"1828,60429-0507-05 ",.01)
 ;;60429-0507-05
 ;;9002226.02101,"1828,60429-0507-05 ",.02)
 ;;60429-0507-05
 ;;9002226.02101,"1828,60429-0524-12 ",.01)
 ;;60429-0524-12
 ;;9002226.02101,"1828,60429-0524-12 ",.02)
 ;;60429-0524-12
 ;;9002226.02101,"1828,60429-0524-15 ",.01)
 ;;60429-0524-15
 ;;9002226.02101,"1828,60429-0524-15 ",.02)
 ;;60429-0524-15
 ;;9002226.02101,"1828,60429-0524-30 ",.01)
 ;;60429-0524-30
 ;;9002226.02101,"1828,60429-0524-30 ",.02)
 ;;60429-0524-30
 ;;9002226.02101,"1828,60429-0524-45 ",.01)
 ;;60429-0524-45
 ;;9002226.02101,"1828,60429-0524-45 ",.02)
 ;;60429-0524-45
 ;;9002226.02101,"1828,60429-0524-51 ",.01)
 ;;60429-0524-51
 ;;9002226.02101,"1828,60429-0524-51 ",.02)
 ;;60429-0524-51
 ;;9002226.02101,"1828,60429-0524-60 ",.01)
 ;;60429-0524-60
 ;;9002226.02101,"1828,60429-0524-60 ",.02)
 ;;60429-0524-60
 ;;9002226.02101,"1828,60429-0524-90 ",.01)
 ;;60429-0524-90
 ;;9002226.02101,"1828,60429-0524-90 ",.02)
 ;;60429-0524-90
 ;;9002226.02101,"1828,60429-0525-12 ",.01)
 ;;60429-0525-12