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

BGP83A19.m

Go to the documentation of this file.
BGP83A19 ; 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,33261-0594-30 ",.02)
 ;;33261-0594-30
 ;;9002226.02101,"1828,33261-0594-60 ",.01)
 ;;33261-0594-60
 ;;9002226.02101,"1828,33261-0594-60 ",.02)
 ;;33261-0594-60
 ;;9002226.02101,"1828,33261-0594-90 ",.01)
 ;;33261-0594-90
 ;;9002226.02101,"1828,33261-0594-90 ",.02)
 ;;33261-0594-90
 ;;9002226.02101,"1828,33261-0628-02 ",.01)
 ;;33261-0628-02
 ;;9002226.02101,"1828,33261-0628-02 ",.02)
 ;;33261-0628-02
 ;;9002226.02101,"1828,33261-0628-30 ",.01)
 ;;33261-0628-30
 ;;9002226.02101,"1828,33261-0628-30 ",.02)
 ;;33261-0628-30
 ;;9002226.02101,"1828,33261-0628-60 ",.01)
 ;;33261-0628-60
 ;;9002226.02101,"1828,33261-0628-60 ",.02)
 ;;33261-0628-60
 ;;9002226.02101,"1828,33261-0628-90 ",.01)
 ;;33261-0628-90
 ;;9002226.02101,"1828,33261-0628-90 ",.02)
 ;;33261-0628-90
 ;;9002226.02101,"1828,33261-0717-00 ",.01)
 ;;33261-0717-00
 ;;9002226.02101,"1828,33261-0717-00 ",.02)
 ;;33261-0717-00
 ;;9002226.02101,"1828,33261-0717-30 ",.01)
 ;;33261-0717-30
 ;;9002226.02101,"1828,33261-0717-30 ",.02)
 ;;33261-0717-30
 ;;9002226.02101,"1828,33261-0717-60 ",.01)
 ;;33261-0717-60
 ;;9002226.02101,"1828,33261-0717-60 ",.02)
 ;;33261-0717-60
 ;;9002226.02101,"1828,33261-0717-90 ",.01)
 ;;33261-0717-90
 ;;9002226.02101,"1828,33261-0717-90 ",.02)
 ;;33261-0717-90
 ;;9002226.02101,"1828,33261-0741-00 ",.01)
 ;;33261-0741-00
 ;;9002226.02101,"1828,33261-0741-00 ",.02)
 ;;33261-0741-00
 ;;9002226.02101,"1828,33261-0741-21 ",.01)
 ;;33261-0741-21
 ;;9002226.02101,"1828,33261-0741-21 ",.02)
 ;;33261-0741-21
 ;;9002226.02101,"1828,33261-0741-30 ",.01)
 ;;33261-0741-30
 ;;9002226.02101,"1828,33261-0741-30 ",.02)
 ;;33261-0741-30
 ;;9002226.02101,"1828,33261-0741-42 ",.01)
 ;;33261-0741-42
 ;;9002226.02101,"1828,33261-0741-42 ",.02)
 ;;33261-0741-42
 ;;9002226.02101,"1828,33261-0741-45 ",.01)
 ;;33261-0741-45
 ;;9002226.02101,"1828,33261-0741-45 ",.02)
 ;;33261-0741-45
 ;;9002226.02101,"1828,33261-0741-60 ",.01)
 ;;33261-0741-60
 ;;9002226.02101,"1828,33261-0741-60 ",.02)
 ;;33261-0741-60
 ;;9002226.02101,"1828,33261-0741-90 ",.01)
 ;;33261-0741-90
 ;;9002226.02101,"1828,33261-0741-90 ",.02)
 ;;33261-0741-90
 ;;9002226.02101,"1828,33261-0882-00 ",.01)
 ;;33261-0882-00
 ;;9002226.02101,"1828,33261-0882-00 ",.02)
 ;;33261-0882-00
 ;;9002226.02101,"1828,33261-0882-30 ",.01)
 ;;33261-0882-30
 ;;9002226.02101,"1828,33261-0882-30 ",.02)
 ;;33261-0882-30
 ;;9002226.02101,"1828,33261-0882-60 ",.01)
 ;;33261-0882-60
 ;;9002226.02101,"1828,33261-0882-60 ",.02)
 ;;33261-0882-60
 ;;9002226.02101,"1828,33261-0882-90 ",.01)
 ;;33261-0882-90
 ;;9002226.02101,"1828,33261-0882-90 ",.02)
 ;;33261-0882-90
 ;;9002226.02101,"1828,33358-0014-30 ",.01)
 ;;33358-0014-30
 ;;9002226.02101,"1828,33358-0014-30 ",.02)
 ;;33358-0014-30
 ;;9002226.02101,"1828,33358-0014-60 ",.01)
 ;;33358-0014-60
 ;;9002226.02101,"1828,33358-0014-60 ",.02)
 ;;33358-0014-60
 ;;9002226.02101,"1828,33358-0015-20 ",.01)
 ;;33358-0015-20
 ;;9002226.02101,"1828,33358-0015-20 ",.02)
 ;;33358-0015-20
 ;;9002226.02101,"1828,33358-0015-30 ",.01)
 ;;33358-0015-30
 ;;9002226.02101,"1828,33358-0015-30 ",.02)
 ;;33358-0015-30
 ;;9002226.02101,"1828,33358-0015-40 ",.01)
 ;;33358-0015-40
 ;;9002226.02101,"1828,33358-0015-40 ",.02)
 ;;33358-0015-40
 ;;9002226.02101,"1828,33358-0015-60 ",.01)
 ;;33358-0015-60
 ;;9002226.02101,"1828,33358-0015-60 ",.02)
 ;;33358-0015-60
 ;;9002226.02101,"1828,33358-0015-90 ",.01)
 ;;33358-0015-90
 ;;9002226.02101,"1828,33358-0015-90 ",.02)
 ;;33358-0015-90
 ;;9002226.02101,"1828,33358-0016-00 ",.01)
 ;;33358-0016-00
 ;;9002226.02101,"1828,33358-0016-00 ",.02)
 ;;33358-0016-00
 ;;9002226.02101,"1828,33358-0016-10 ",.01)
 ;;33358-0016-10
 ;;9002226.02101,"1828,33358-0016-10 ",.02)
 ;;33358-0016-10
 ;;9002226.02101,"1828,33358-0016-20 ",.01)
 ;;33358-0016-20
 ;;9002226.02101,"1828,33358-0016-20 ",.02)
 ;;33358-0016-20
 ;;9002226.02101,"1828,33358-0016-30 ",.01)
 ;;33358-0016-30
 ;;9002226.02101,"1828,33358-0016-30 ",.02)
 ;;33358-0016-30
 ;;9002226.02101,"1828,33358-0016-40 ",.01)
 ;;33358-0016-40
 ;;9002226.02101,"1828,33358-0016-40 ",.02)
 ;;33358-0016-40
 ;;9002226.02101,"1828,33358-0016-60 ",.01)
 ;;33358-0016-60
 ;;9002226.02101,"1828,33358-0016-60 ",.02)
 ;;33358-0016-60
 ;;9002226.02101,"1828,33358-0017-40 ",.01)
 ;;33358-0017-40
 ;;9002226.02101,"1828,33358-0017-40 ",.02)
 ;;33358-0017-40
 ;;9002226.02101,"1828,33358-0017-60 ",.01)
 ;;33358-0017-60
 ;;9002226.02101,"1828,33358-0017-60 ",.02)
 ;;33358-0017-60
 ;;9002226.02101,"1828,33358-0017-90 ",.01)
 ;;33358-0017-90
 ;;9002226.02101,"1828,33358-0017-90 ",.02)
 ;;33358-0017-90
 ;;9002226.02101,"1828,33358-0090-20 ",.01)
 ;;33358-0090-20
 ;;9002226.02101,"1828,33358-0090-20 ",.02)
 ;;33358-0090-20
 ;;9002226.02101,"1828,33358-0090-30 ",.01)
 ;;33358-0090-30
 ;;9002226.02101,"1828,33358-0090-30 ",.02)
 ;;33358-0090-30
 ;;9002226.02101,"1828,33358-0090-60 ",.01)
 ;;33358-0090-60
 ;;9002226.02101,"1828,33358-0090-60 ",.02)
 ;;33358-0090-60
 ;;9002226.02101,"1828,33358-0090-90 ",.01)
 ;;33358-0090-90
 ;;9002226.02101,"1828,33358-0090-90 ",.02)
 ;;33358-0090-90
 ;;9002226.02101,"1828,33358-0091-20 ",.01)
 ;;33358-0091-20
 ;;9002226.02101,"1828,33358-0091-20 ",.02)
 ;;33358-0091-20
 ;;9002226.02101,"1828,33358-0091-30 ",.01)
 ;;33358-0091-30
 ;;9002226.02101,"1828,33358-0091-30 ",.02)
 ;;33358-0091-30
 ;;9002226.02101,"1828,33358-0091-60 ",.01)
 ;;33358-0091-60
 ;;9002226.02101,"1828,33358-0091-60 ",.02)
 ;;33358-0091-60
 ;;9002226.02101,"1828,33358-0101-30 ",.01)
 ;;33358-0101-30
 ;;9002226.02101,"1828,33358-0101-30 ",.02)
 ;;33358-0101-30
 ;;9002226.02101,"1828,33358-0102-12 ",.01)
 ;;33358-0102-12
 ;;9002226.02101,"1828,33358-0102-12 ",.02)
 ;;33358-0102-12
 ;;9002226.02101,"1828,33358-0102-15 ",.01)
 ;;33358-0102-15
 ;;9002226.02101,"1828,33358-0102-15 ",.02)
 ;;33358-0102-15
 ;;9002226.02101,"1828,33358-0102-20 ",.01)
 ;;33358-0102-20
 ;;9002226.02101,"1828,33358-0102-20 ",.02)
 ;;33358-0102-20
 ;;9002226.02101,"1828,33358-0102-30 ",.01)
 ;;33358-0102-30
 ;;9002226.02101,"1828,33358-0102-30 ",.02)
 ;;33358-0102-30
 ;;9002226.02101,"1828,33358-0102-60 ",.01)
 ;;33358-0102-60
 ;;9002226.02101,"1828,33358-0102-60 ",.02)
 ;;33358-0102-60
 ;;9002226.02101,"1828,33358-0102-90 ",.01)
 ;;33358-0102-90
 ;;9002226.02101,"1828,33358-0102-90 ",.02)
 ;;33358-0102-90
 ;;9002226.02101,"1828,33358-0103-00 ",.01)
 ;;33358-0103-00
 ;;9002226.02101,"1828,33358-0103-00 ",.02)
 ;;33358-0103-00
 ;;9002226.02101,"1828,33358-0103-20 ",.01)
 ;;33358-0103-20
 ;;9002226.02101,"1828,33358-0103-20 ",.02)
 ;;33358-0103-20
 ;;9002226.02101,"1828,33358-0103-30 ",.01)
 ;;33358-0103-30
 ;;9002226.02101,"1828,33358-0103-30 ",.02)
 ;;33358-0103-30
 ;;9002226.02101,"1828,33358-0103-40 ",.01)
 ;;33358-0103-40
 ;;9002226.02101,"1828,33358-0103-40 ",.02)
 ;;33358-0103-40
 ;;9002226.02101,"1828,33358-0103-50 ",.01)
 ;;33358-0103-50
 ;;9002226.02101,"1828,33358-0103-50 ",.02)
 ;;33358-0103-50
 ;;9002226.02101,"1828,33358-0103-60 ",.01)
 ;;33358-0103-60
 ;;9002226.02101,"1828,33358-0103-60 ",.02)
 ;;33358-0103-60
 ;;9002226.02101,"1828,33358-0103-90 ",.01)
 ;;33358-0103-90
 ;;9002226.02101,"1828,33358-0103-90 ",.02)
 ;;33358-0103-90
 ;;9002226.02101,"1828,33358-0146-30 ",.01)
 ;;33358-0146-30
 ;;9002226.02101,"1828,33358-0146-30 ",.02)
 ;;33358-0146-30
 ;;9002226.02101,"1828,33358-0146-60 ",.01)
 ;;33358-0146-60
 ;;9002226.02101,"1828,33358-0146-60 ",.02)
 ;;33358-0146-60
 ;;9002226.02101,"1828,33358-0147-30 ",.01)
 ;;33358-0147-30
 ;;9002226.02101,"1828,33358-0147-30 ",.02)
 ;;33358-0147-30
 ;;9002226.02101,"1828,33358-0147-60 ",.01)
 ;;33358-0147-60
 ;;9002226.02101,"1828,33358-0147-60 ",.02)
 ;;33358-0147-60
 ;;9002226.02101,"1828,33358-0219-30 ",.01)
 ;;33358-0219-30
 ;;9002226.02101,"1828,33358-0219-30 ",.02)
 ;;33358-0219-30
 ;;9002226.02101,"1828,33358-0219-60 ",.01)
 ;;33358-0219-60
 ;;9002226.02101,"1828,33358-0219-60 ",.02)
 ;;33358-0219-60
 ;;9002226.02101,"1828,33358-0220-03 ",.01)
 ;;33358-0220-03
 ;;9002226.02101,"1828,33358-0220-03 ",.02)
 ;;33358-0220-03
 ;;9002226.02101,"1828,33358-0220-14 ",.01)
 ;;33358-0220-14
 ;;9002226.02101,"1828,33358-0220-14 ",.02)
 ;;33358-0220-14
 ;;9002226.02101,"1828,33358-0220-15 ",.01)
 ;;33358-0220-15
 ;;9002226.02101,"1828,33358-0220-15 ",.02)
 ;;33358-0220-15
 ;;9002226.02101,"1828,33358-0220-30 ",.01)
 ;;33358-0220-30
 ;;9002226.02101,"1828,33358-0220-30 ",.02)
 ;;33358-0220-30
 ;;9002226.02101,"1828,33358-0220-50 ",.01)
 ;;33358-0220-50
 ;;9002226.02101,"1828,33358-0220-50 ",.02)
 ;;33358-0220-50
 ;;9002226.02101,"1828,33358-0220-60 ",.01)
 ;;33358-0220-60
 ;;9002226.02101,"1828,33358-0220-60 ",.02)
 ;;33358-0220-60
 ;;9002226.02101,"1828,33358-0220-90 ",.01)
 ;;33358-0220-90
 ;;9002226.02101,"1828,33358-0220-90 ",.02)
 ;;33358-0220-90
 ;;9002226.02101,"1828,33358-0221-30 ",.01)
 ;;33358-0221-30
 ;;9002226.02101,"1828,33358-0221-30 ",.02)
 ;;33358-0221-30
 ;;9002226.02101,"1828,33358-0221-60 ",.01)
 ;;33358-0221-60
 ;;9002226.02101,"1828,33358-0221-60 ",.02)
 ;;33358-0221-60
 ;;9002226.02101,"1828,33358-0332-20 ",.01)
 ;;33358-0332-20
 ;;9002226.02101,"1828,33358-0332-20 ",.02)
 ;;33358-0332-20
 ;;9002226.02101,"1828,33358-0332-30 ",.01)
 ;;33358-0332-30
 ;;9002226.02101,"1828,33358-0332-30 ",.02)
 ;;33358-0332-30
 ;;9002226.02101,"1828,33358-0332-60 ",.01)
 ;;33358-0332-60
 ;;9002226.02101,"1828,33358-0332-60 ",.02)
 ;;33358-0332-60
 ;;9002226.02101,"1828,33358-0333-00 ",.01)
 ;;33358-0333-00
 ;;9002226.02101,"1828,33358-0333-00 ",.02)
 ;;33358-0333-00
 ;;9002226.02101,"1828,33358-0333-30 ",.01)
 ;;33358-0333-30
 ;;9002226.02101,"1828,33358-0333-30 ",.02)
 ;;33358-0333-30
 ;;9002226.02101,"1828,33358-0333-60 ",.01)
 ;;33358-0333-60
 ;;9002226.02101,"1828,33358-0333-60 ",.02)
 ;;33358-0333-60
 ;;9002226.02101,"1828,33358-0333-90 ",.01)
 ;;33358-0333-90
 ;;9002226.02101,"1828,33358-0333-90 ",.02)
 ;;33358-0333-90
 ;;9002226.02101,"1828,33358-0350-10 ",.01)
 ;;33358-0350-10
 ;;9002226.02101,"1828,33358-0350-10 ",.02)
 ;;33358-0350-10
 ;;9002226.02101,"1828,33358-0350-15 ",.01)
 ;;33358-0350-15
 ;;9002226.02101,"1828,33358-0350-15 ",.02)
 ;;33358-0350-15
 ;;9002226.02101,"1828,33358-0350-30 ",.01)
 ;;33358-0350-30
 ;;9002226.02101,"1828,33358-0350-30 ",.02)
 ;;33358-0350-30
 ;;9002226.02101,"1828,33358-0350-60 ",.01)
 ;;33358-0350-60
 ;;9002226.02101,"1828,33358-0350-60 ",.02)
 ;;33358-0350-60
 ;;9002226.02101,"1828,35356-0006-00 ",.01)
 ;;35356-0006-00
 ;;9002226.02101,"1828,35356-0006-00 ",.02)
 ;;35356-0006-00
 ;;9002226.02101,"1828,35356-0013-00 ",.01)
 ;;35356-0013-00
 ;;9002226.02101,"1828,35356-0013-00 ",.02)
 ;;35356-0013-00
 ;;9002226.02101,"1828,35356-0022-00 ",.01)
 ;;35356-0022-00
 ;;9002226.02101,"1828,35356-0022-00 ",.02)
 ;;35356-0022-00
 ;;9002226.02101,"1828,35356-0170-20 ",.01)
 ;;35356-0170-20
 ;;9002226.02101,"1828,35356-0170-20 ",.02)
 ;;35356-0170-20
 ;;9002226.02101,"1828,35356-0430-30 ",.01)
 ;;35356-0430-30
 ;;9002226.02101,"1828,35356-0430-30 ",.02)
 ;;35356-0430-30
 ;;9002226.02101,"1828,35356-0503-60 ",.01)
 ;;35356-0503-60
 ;;9002226.02101,"1828,35356-0503-60 ",.02)
 ;;35356-0503-60
 ;;9002226.02101,"1828,35356-0504-60 ",.01)
 ;;35356-0504-60
 ;;9002226.02101,"1828,35356-0504-60 ",.02)
 ;;35356-0504-60
 ;;9002226.02101,"1828,35356-0505-60 ",.01)
 ;;35356-0505-60
 ;;9002226.02101,"1828,35356-0505-60 ",.02)
 ;;35356-0505-60
 ;;9002226.02101,"1828,35356-0576-30 ",.01)
 ;;35356-0576-30
 ;;9002226.02101,"1828,35356-0576-30 ",.02)
 ;;35356-0576-30
 ;;9002226.02101,"1828,35356-0657-30 ",.01)
 ;;35356-0657-30
 ;;9002226.02101,"1828,35356-0657-30 ",.02)
 ;;35356-0657-30