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

BGP82A31.m

Go to the documentation of this file.
BGP82A31 ; 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,"1799,59746-0458-10 ",.02)
 ;;59746-0458-10
 ;;9002226.02101,"1799,59746-0458-30 ",.01)
 ;;59746-0458-30
 ;;9002226.02101,"1799,59746-0458-30 ",.02)
 ;;59746-0458-30
 ;;9002226.02101,"1799,59746-0458-90 ",.01)
 ;;59746-0458-90
 ;;9002226.02101,"1799,59746-0458-90 ",.02)
 ;;59746-0458-90
 ;;9002226.02101,"1799,59746-0459-10 ",.01)
 ;;59746-0459-10
 ;;9002226.02101,"1799,59746-0459-10 ",.02)
 ;;59746-0459-10
 ;;9002226.02101,"1799,59746-0459-30 ",.01)
 ;;59746-0459-30
 ;;9002226.02101,"1799,59746-0459-30 ",.02)
 ;;59746-0459-30
 ;;9002226.02101,"1799,59746-0459-90 ",.01)
 ;;59746-0459-90
 ;;9002226.02101,"1799,59746-0459-90 ",.02)
 ;;59746-0459-90
 ;;9002226.02101,"1799,59746-0460-10 ",.01)
 ;;59746-0460-10
 ;;9002226.02101,"1799,59746-0460-10 ",.02)
 ;;59746-0460-10
 ;;9002226.02101,"1799,59746-0460-30 ",.01)
 ;;59746-0460-30
 ;;9002226.02101,"1799,59746-0460-30 ",.02)
 ;;59746-0460-30
 ;;9002226.02101,"1799,59746-0460-90 ",.01)
 ;;59746-0460-90
 ;;9002226.02101,"1799,59746-0460-90 ",.02)
 ;;59746-0460-90
 ;;9002226.02101,"1799,59762-1808-01 ",.01)
 ;;59762-1808-01
 ;;9002226.02101,"1799,59762-1808-01 ",.02)
 ;;59762-1808-01
 ;;9002226.02101,"1799,59762-1808-02 ",.01)
 ;;59762-1808-02
 ;;9002226.02101,"1799,59762-1808-02 ",.02)
 ;;59762-1808-02
 ;;9002226.02101,"1799,59762-1808-03 ",.01)
 ;;59762-1808-03
 ;;9002226.02101,"1799,59762-1808-03 ",.02)
 ;;59762-1808-03
 ;;9002226.02101,"1799,59762-1810-01 ",.01)
 ;;59762-1810-01
 ;;9002226.02101,"1799,59762-1810-01 ",.02)
 ;;59762-1810-01
 ;;9002226.02101,"1799,59762-1810-02 ",.01)
 ;;59762-1810-02
 ;;9002226.02101,"1799,59762-1810-02 ",.02)
 ;;59762-1810-02
 ;;9002226.02101,"1799,59762-1810-03 ",.01)
 ;;59762-1810-03
 ;;9002226.02101,"1799,59762-1810-03 ",.02)
 ;;59762-1810-03
 ;;9002226.02101,"1799,59762-1810-04 ",.01)
 ;;59762-1810-04
 ;;9002226.02101,"1799,59762-1810-04 ",.02)
 ;;59762-1810-04
 ;;9002226.02101,"1799,59762-1812-01 ",.01)
 ;;59762-1812-01
 ;;9002226.02101,"1799,59762-1812-01 ",.02)
 ;;59762-1812-01
 ;;9002226.02101,"1799,59762-1812-02 ",.01)
 ;;59762-1812-02
 ;;9002226.02101,"1799,59762-1812-02 ",.02)
 ;;59762-1812-02
 ;;9002226.02101,"1799,59762-1812-03 ",.01)
 ;;59762-1812-03
 ;;9002226.02101,"1799,59762-1812-03 ",.02)
 ;;59762-1812-03
 ;;9002226.02101,"1799,59762-1815-01 ",.01)
 ;;59762-1815-01
 ;;9002226.02101,"1799,59762-1815-01 ",.02)
 ;;59762-1815-01
 ;;9002226.02101,"1799,59762-1815-02 ",.01)
 ;;59762-1815-02
 ;;9002226.02101,"1799,59762-1815-02 ",.02)
 ;;59762-1815-02
 ;;9002226.02101,"1799,59762-1815-03 ",.01)
 ;;59762-1815-03
 ;;9002226.02101,"1799,59762-1815-03 ",.02)
 ;;59762-1815-03
 ;;9002226.02101,"1799,60429-0095-01 ",.01)
 ;;60429-0095-01
 ;;9002226.02101,"1799,60429-0095-01 ",.02)
 ;;60429-0095-01
 ;;9002226.02101,"1799,60429-0096-01 ",.01)
 ;;60429-0096-01
 ;;9002226.02101,"1799,60429-0096-01 ",.02)
 ;;60429-0096-01
 ;;9002226.02101,"1799,60429-0097-01 ",.01)
 ;;60429-0097-01
 ;;9002226.02101,"1799,60429-0097-01 ",.02)
 ;;60429-0097-01
 ;;9002226.02101,"1799,60429-0252-01 ",.01)
 ;;60429-0252-01
 ;;9002226.02101,"1799,60429-0252-01 ",.02)
 ;;60429-0252-01
 ;;9002226.02101,"1799,60429-0252-05 ",.01)
 ;;60429-0252-05
 ;;9002226.02101,"1799,60429-0252-05 ",.02)
 ;;60429-0252-05
 ;;9002226.02101,"1799,60429-0253-01 ",.01)
 ;;60429-0253-01
 ;;9002226.02101,"1799,60429-0253-01 ",.02)
 ;;60429-0253-01
 ;;9002226.02101,"1799,60429-0253-05 ",.01)
 ;;60429-0253-05
 ;;9002226.02101,"1799,60429-0253-05 ",.02)
 ;;60429-0253-05
 ;;9002226.02101,"1799,60429-0287-01 ",.01)
 ;;60429-0287-01
 ;;9002226.02101,"1799,60429-0287-01 ",.02)
 ;;60429-0287-01
 ;;9002226.02101,"1799,60429-0287-30 ",.01)
 ;;60429-0287-30
 ;;9002226.02101,"1799,60429-0287-30 ",.02)
 ;;60429-0287-30
 ;;9002226.02101,"1799,60429-0287-90 ",.01)
 ;;60429-0287-90
 ;;9002226.02101,"1799,60429-0287-90 ",.02)
 ;;60429-0287-90
 ;;9002226.02101,"1799,60429-0288-01 ",.01)
 ;;60429-0288-01
 ;;9002226.02101,"1799,60429-0288-01 ",.02)
 ;;60429-0288-01
 ;;9002226.02101,"1799,60429-0288-30 ",.01)
 ;;60429-0288-30
 ;;9002226.02101,"1799,60429-0288-30 ",.02)
 ;;60429-0288-30
 ;;9002226.02101,"1799,60429-0288-90 ",.01)
 ;;60429-0288-90
 ;;9002226.02101,"1799,60429-0288-90 ",.02)
 ;;60429-0288-90
 ;;9002226.02101,"1799,60429-0289-01 ",.01)
 ;;60429-0289-01
 ;;9002226.02101,"1799,60429-0289-01 ",.02)
 ;;60429-0289-01
 ;;9002226.02101,"1799,60429-0289-30 ",.01)
 ;;60429-0289-30
 ;;9002226.02101,"1799,60429-0289-30 ",.02)
 ;;60429-0289-30
 ;;9002226.02101,"1799,60429-0289-90 ",.01)
 ;;60429-0289-90
 ;;9002226.02101,"1799,60429-0289-90 ",.02)
 ;;60429-0289-90
 ;;9002226.02101,"1799,60429-0345-01 ",.01)
 ;;60429-0345-01
 ;;9002226.02101,"1799,60429-0345-01 ",.02)
 ;;60429-0345-01
 ;;9002226.02101,"1799,60429-0346-01 ",.01)
 ;;60429-0346-01
 ;;9002226.02101,"1799,60429-0346-01 ",.02)
 ;;60429-0346-01
 ;;9002226.02101,"1799,60429-0514-01 ",.01)
 ;;60429-0514-01
 ;;9002226.02101,"1799,60429-0514-01 ",.02)
 ;;60429-0514-01
 ;;9002226.02101,"1799,60429-0515-01 ",.01)
 ;;60429-0515-01
 ;;9002226.02101,"1799,60429-0515-01 ",.02)
 ;;60429-0515-01
 ;;9002226.02101,"1799,60429-0545-01 ",.01)
 ;;60429-0545-01
 ;;9002226.02101,"1799,60429-0545-01 ",.02)
 ;;60429-0545-01
 ;;9002226.02101,"1799,60429-0545-10 ",.01)
 ;;60429-0545-10
 ;;9002226.02101,"1799,60429-0545-10 ",.02)
 ;;60429-0545-10
 ;;9002226.02101,"1799,60429-0632-01 ",.01)
 ;;60429-0632-01
 ;;9002226.02101,"1799,60429-0632-01 ",.02)
 ;;60429-0632-01
 ;;9002226.02101,"1799,60429-0633-01 ",.01)
 ;;60429-0633-01
 ;;9002226.02101,"1799,60429-0633-01 ",.02)
 ;;60429-0633-01
 ;;9002226.02101,"1799,60429-0634-01 ",.01)
 ;;60429-0634-01
 ;;9002226.02101,"1799,60429-0634-01 ",.02)
 ;;60429-0634-01
 ;;9002226.02101,"1799,60429-0734-01 ",.01)
 ;;60429-0734-01
 ;;9002226.02101,"1799,60429-0734-01 ",.02)
 ;;60429-0734-01
 ;;9002226.02101,"1799,60429-0734-10 ",.01)
 ;;60429-0734-10
 ;;9002226.02101,"1799,60429-0734-10 ",.02)
 ;;60429-0734-10
 ;;9002226.02101,"1799,60429-0734-30 ",.01)
 ;;60429-0734-30
 ;;9002226.02101,"1799,60429-0734-30 ",.02)
 ;;60429-0734-30
 ;;9002226.02101,"1799,60429-0734-90 ",.01)
 ;;60429-0734-90
 ;;9002226.02101,"1799,60429-0734-90 ",.02)
 ;;60429-0734-90
 ;;9002226.02101,"1799,60429-0735-01 ",.01)
 ;;60429-0735-01
 ;;9002226.02101,"1799,60429-0735-01 ",.02)
 ;;60429-0735-01
 ;;9002226.02101,"1799,60429-0735-10 ",.01)
 ;;60429-0735-10
 ;;9002226.02101,"1799,60429-0735-10 ",.02)
 ;;60429-0735-10
 ;;9002226.02101,"1799,60429-0735-30 ",.01)
 ;;60429-0735-30
 ;;9002226.02101,"1799,60429-0735-30 ",.02)
 ;;60429-0735-30
 ;;9002226.02101,"1799,60429-0735-90 ",.01)
 ;;60429-0735-90
 ;;9002226.02101,"1799,60429-0735-90 ",.02)
 ;;60429-0735-90
 ;;9002226.02101,"1799,60429-0736-01 ",.01)
 ;;60429-0736-01
 ;;9002226.02101,"1799,60429-0736-01 ",.02)
 ;;60429-0736-01
 ;;9002226.02101,"1799,60429-0736-10 ",.01)
 ;;60429-0736-10
 ;;9002226.02101,"1799,60429-0736-10 ",.02)
 ;;60429-0736-10
 ;;9002226.02101,"1799,60429-0736-30 ",.01)
 ;;60429-0736-30
 ;;9002226.02101,"1799,60429-0736-30 ",.02)
 ;;60429-0736-30
 ;;9002226.02101,"1799,60429-0736-90 ",.01)
 ;;60429-0736-90
 ;;9002226.02101,"1799,60429-0736-90 ",.02)
 ;;60429-0736-90
 ;;9002226.02101,"1799,60429-0737-01 ",.01)
 ;;60429-0737-01
 ;;9002226.02101,"1799,60429-0737-01 ",.02)
 ;;60429-0737-01
 ;;9002226.02101,"1799,60429-0737-10 ",.01)
 ;;60429-0737-10
 ;;9002226.02101,"1799,60429-0737-10 ",.02)
 ;;60429-0737-10
 ;;9002226.02101,"1799,60429-0737-15 ",.01)
 ;;60429-0737-15
 ;;9002226.02101,"1799,60429-0737-15 ",.02)
 ;;60429-0737-15
 ;;9002226.02101,"1799,60429-0737-30 ",.01)
 ;;60429-0737-30
 ;;9002226.02101,"1799,60429-0737-30 ",.02)
 ;;60429-0737-30
 ;;9002226.02101,"1799,60429-0737-45 ",.01)
 ;;60429-0737-45
 ;;9002226.02101,"1799,60429-0737-45 ",.02)
 ;;60429-0737-45
 ;;9002226.02101,"1799,60429-0737-90 ",.01)
 ;;60429-0737-90
 ;;9002226.02101,"1799,60429-0737-90 ",.02)
 ;;60429-0737-90
 ;;9002226.02101,"1799,60432-0651-04 ",.01)
 ;;60432-0651-04
 ;;9002226.02101,"1799,60432-0651-04 ",.02)
 ;;60432-0651-04
 ;;9002226.02101,"1799,60505-0083-00 ",.01)
 ;;60505-0083-00
 ;;9002226.02101,"1799,60505-0083-00 ",.02)
 ;;60505-0083-00
 ;;9002226.02101,"1799,60505-0083-01 ",.01)
 ;;60505-0083-01
 ;;9002226.02101,"1799,60505-0083-01 ",.02)
 ;;60505-0083-01
 ;;9002226.02101,"1799,60505-0083-02 ",.01)
 ;;60505-0083-02
 ;;9002226.02101,"1799,60505-0083-02 ",.02)
 ;;60505-0083-02
 ;;9002226.02101,"1799,60505-0083-04 ",.01)
 ;;60505-0083-04
 ;;9002226.02101,"1799,60505-0083-04 ",.02)
 ;;60505-0083-04
 ;;9002226.02101,"1799,60505-0084-01 ",.01)
 ;;60505-0084-01
 ;;9002226.02101,"1799,60505-0084-01 ",.02)
 ;;60505-0084-01
 ;;9002226.02101,"1799,60505-0084-02 ",.01)
 ;;60505-0084-02
 ;;9002226.02101,"1799,60505-0084-02 ",.02)
 ;;60505-0084-02
 ;;9002226.02101,"1799,60505-0084-04 ",.01)
 ;;60505-0084-04
 ;;9002226.02101,"1799,60505-0084-04 ",.02)
 ;;60505-0084-04
 ;;9002226.02101,"1799,60505-0097-01 ",.01)
 ;;60505-0097-01
 ;;9002226.02101,"1799,60505-0097-01 ",.02)
 ;;60505-0097-01
 ;;9002226.02101,"1799,60505-0097-02 ",.01)
 ;;60505-0097-02
 ;;9002226.02101,"1799,60505-0097-02 ",.02)
 ;;60505-0097-02
 ;;9002226.02101,"1799,60505-0097-04 ",.01)
 ;;60505-0097-04
 ;;9002226.02101,"1799,60505-0097-04 ",.02)
 ;;60505-0097-04
 ;;9002226.02101,"1799,60505-0101-01 ",.01)
 ;;60505-0101-01
 ;;9002226.02101,"1799,60505-0101-01 ",.02)
 ;;60505-0101-01
 ;;9002226.02101,"1799,60505-0101-02 ",.01)
 ;;60505-0101-02
 ;;9002226.02101,"1799,60505-0101-02 ",.02)
 ;;60505-0101-02
 ;;9002226.02101,"1799,60505-0101-04 ",.01)
 ;;60505-0101-04
 ;;9002226.02101,"1799,60505-0101-04 ",.02)
 ;;60505-0101-04
 ;;9002226.02101,"1799,60505-0101-07 ",.01)
 ;;60505-0101-07
 ;;9002226.02101,"1799,60505-0101-07 ",.02)
 ;;60505-0101-07
 ;;9002226.02101,"1799,60505-0402-05 ",.01)
 ;;60505-0402-05
 ;;9002226.02101,"1799,60505-0402-05 ",.02)
 ;;60505-0402-05
 ;;9002226.02101,"1799,60505-2604-00 ",.01)
 ;;60505-2604-00
 ;;9002226.02101,"1799,60505-2604-00 ",.02)
 ;;60505-2604-00
 ;;9002226.02101,"1799,60505-2604-01 ",.01)
 ;;60505-2604-01
 ;;9002226.02101,"1799,60505-2604-01 ",.02)
 ;;60505-2604-01
 ;;9002226.02101,"1799,60505-2604-08 ",.01)
 ;;60505-2604-08
 ;;9002226.02101,"1799,60505-2604-08 ",.02)
 ;;60505-2604-08
 ;;9002226.02101,"1799,60505-2605-00 ",.01)
 ;;60505-2605-00
 ;;9002226.02101,"1799,60505-2605-00 ",.02)
 ;;60505-2605-00
 ;;9002226.02101,"1799,60505-2605-01 ",.01)
 ;;60505-2605-01
 ;;9002226.02101,"1799,60505-2605-01 ",.02)
 ;;60505-2605-01
 ;;9002226.02101,"1799,60505-2605-08 ",.01)
 ;;60505-2605-08
 ;;9002226.02101,"1799,60505-2605-08 ",.02)
 ;;60505-2605-08
 ;;9002226.02101,"1799,60505-3663-03 ",.01)
 ;;60505-3663-03
 ;;9002226.02101,"1799,60505-3663-03 ",.02)
 ;;60505-3663-03
 ;;9002226.02101,"1799,60505-3664-03 ",.01)
 ;;60505-3664-03
 ;;9002226.02101,"1799,60505-3664-03 ",.02)
 ;;60505-3664-03
 ;;9002226.02101,"1799,60505-3665-03 ",.01)
 ;;60505-3665-03
 ;;9002226.02101,"1799,60505-3665-03 ",.02)
 ;;60505-3665-03
 ;;9002226.02101,"1799,60505-3666-03 ",.01)
 ;;60505-3666-03
 ;;9002226.02101,"1799,60505-3666-03 ",.02)
 ;;60505-3666-03
 ;;9002226.02101,"1799,60505-3668-03 ",.01)
 ;;60505-3668-03
 ;;9002226.02101,"1799,60505-3668-03 ",.02)
 ;;60505-3668-03
 ;;9002226.02101,"1799,60505-3669-03 ",.01)
 ;;60505-3669-03
 ;;9002226.02101,"1799,60505-3669-03 ",.02)
 ;;60505-3669-03
 ;;9002226.02101,"1799,60505-3670-03 ",.01)
 ;;60505-3670-03
 ;;9002226.02101,"1799,60505-3670-03 ",.02)
 ;;60505-3670-03
 ;;9002226.02101,"1799,60505-3673-03 ",.01)
 ;;60505-3673-03
 ;;9002226.02101,"1799,60505-3673-03 ",.02)
 ;;60505-3673-03