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

BGP8ZS22.m

Go to the documentation of this file.
BGP8ZS22 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,58118-2213-03 ",.02)
 ;;58118-2213-03
 ;;9002226.02101,"1799,58118-2213-09 ",.01)
 ;;58118-2213-09
 ;;9002226.02101,"1799,58118-2213-09 ",.02)
 ;;58118-2213-09
 ;;9002226.02101,"1799,58118-2214-03 ",.01)
 ;;58118-2214-03
 ;;9002226.02101,"1799,58118-2214-03 ",.02)
 ;;58118-2214-03
 ;;9002226.02101,"1799,58118-2214-09 ",.01)
 ;;58118-2214-09
 ;;9002226.02101,"1799,58118-2214-09 ",.02)
 ;;58118-2214-09
 ;;9002226.02101,"1799,58407-0534-01 ",.01)
 ;;58407-0534-01
 ;;9002226.02101,"1799,58407-0534-01 ",.02)
 ;;58407-0534-01
 ;;9002226.02101,"1799,58517-0160-30 ",.01)
 ;;58517-0160-30
 ;;9002226.02101,"1799,58517-0160-30 ",.02)
 ;;58517-0160-30
 ;;9002226.02101,"1799,58657-0420-16 ",.01)
 ;;58657-0420-16
 ;;9002226.02101,"1799,58657-0420-16 ",.02)
 ;;58657-0420-16
 ;;9002226.02101,"1799,58657-0421-01 ",.01)
 ;;58657-0421-01
 ;;9002226.02101,"1799,58657-0421-01 ",.02)
 ;;58657-0421-01
 ;;9002226.02101,"1799,58809-0820-16 ",.01)
 ;;58809-0820-16
 ;;9002226.02101,"1799,58809-0820-16 ",.02)
 ;;58809-0820-16
 ;;9002226.02101,"1799,58864-0022-15 ",.01)
 ;;58864-0022-15
 ;;9002226.02101,"1799,58864-0022-15 ",.02)
 ;;58864-0022-15
 ;;9002226.02101,"1799,58864-0022-30 ",.01)
 ;;58864-0022-30
 ;;9002226.02101,"1799,58864-0022-30 ",.02)
 ;;58864-0022-30
 ;;9002226.02101,"1799,58864-0023-30 ",.01)
 ;;58864-0023-30
 ;;9002226.02101,"1799,58864-0023-30 ",.02)
 ;;58864-0023-30
 ;;9002226.02101,"1799,58864-0024-30 ",.01)
 ;;58864-0024-30
 ;;9002226.02101,"1799,58864-0024-30 ",.02)
 ;;58864-0024-30
 ;;9002226.02101,"1799,58864-0292-30 ",.01)
 ;;58864-0292-30
 ;;9002226.02101,"1799,58864-0292-30 ",.02)
 ;;58864-0292-30
 ;;9002226.02101,"1799,58864-0372-30 ",.01)
 ;;58864-0372-30
 ;;9002226.02101,"1799,58864-0372-30 ",.02)
 ;;58864-0372-30
 ;;9002226.02101,"1799,58864-0628-15 ",.01)
 ;;58864-0628-15
 ;;9002226.02101,"1799,58864-0628-15 ",.02)
 ;;58864-0628-15
 ;;9002226.02101,"1799,58864-0716-15 ",.01)
 ;;58864-0716-15
 ;;9002226.02101,"1799,58864-0716-15 ",.02)
 ;;58864-0716-15
 ;;9002226.02101,"1799,58864-0716-30 ",.01)
 ;;58864-0716-30
 ;;9002226.02101,"1799,58864-0716-30 ",.02)
 ;;58864-0716-30
 ;;9002226.02101,"1799,58864-0741-15 ",.01)
 ;;58864-0741-15
 ;;9002226.02101,"1799,58864-0741-15 ",.02)
 ;;58864-0741-15
 ;;9002226.02101,"1799,58864-0741-30 ",.01)
 ;;58864-0741-30
 ;;9002226.02101,"1799,58864-0741-30 ",.02)
 ;;58864-0741-30
 ;;9002226.02101,"1799,58864-0757-30 ",.01)
 ;;58864-0757-30
 ;;9002226.02101,"1799,58864-0757-30 ",.02)
 ;;58864-0757-30
 ;;9002226.02101,"1799,58864-0844-30 ",.01)
 ;;58864-0844-30
 ;;9002226.02101,"1799,58864-0844-30 ",.02)
 ;;58864-0844-30
 ;;9002226.02101,"1799,58864-0857-30 ",.01)
 ;;58864-0857-30
 ;;9002226.02101,"1799,58864-0857-30 ",.02)
 ;;58864-0857-30
 ;;9002226.02101,"1799,59212-0422-04 ",.01)
 ;;59212-0422-04
 ;;9002226.02101,"1799,59212-0422-04 ",.02)
 ;;59212-0422-04
 ;;9002226.02101,"1799,59212-0422-16 ",.01)
 ;;59212-0422-16
 ;;9002226.02101,"1799,59212-0422-16 ",.02)
 ;;59212-0422-16
 ;;9002226.02101,"1799,59212-0423-04 ",.01)
 ;;59212-0423-04
 ;;9002226.02101,"1799,59212-0423-04 ",.02)
 ;;59212-0423-04
 ;;9002226.02101,"1799,59212-0423-16 ",.01)
 ;;59212-0423-16
 ;;9002226.02101,"1799,59212-0423-16 ",.02)
 ;;59212-0423-16
 ;;9002226.02101,"1799,59212-0425-10 ",.01)
 ;;59212-0425-10
 ;;9002226.02101,"1799,59212-0425-10 ",.02)
 ;;59212-0425-10
 ;;9002226.02101,"1799,59212-0425-11 ",.01)
 ;;59212-0425-11
 ;;9002226.02101,"1799,59212-0425-11 ",.02)
 ;;59212-0425-11
 ;;9002226.02101,"1799,59702-0661-01 ",.01)
 ;;59702-0661-01
 ;;9002226.02101,"1799,59702-0661-01 ",.02)
 ;;59702-0661-01
 ;;9002226.02101,"1799,59746-0457-10 ",.01)
 ;;59746-0457-10
 ;;9002226.02101,"1799,59746-0457-10 ",.02)
 ;;59746-0457-10
 ;;9002226.02101,"1799,59746-0457-30 ",.01)
 ;;59746-0457-30
 ;;9002226.02101,"1799,59746-0457-30 ",.02)
 ;;59746-0457-30
 ;;9002226.02101,"1799,59746-0457-90 ",.01)
 ;;59746-0457-90
 ;;9002226.02101,"1799,59746-0457-90 ",.02)
 ;;59746-0457-90
 ;;9002226.02101,"1799,59746-0458-10 ",.01)
 ;;59746-0458-10
 ;;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-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-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