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

BGP82P22.m

Go to the documentation of this file.
BGP82P22 ; 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,"1224,58864-0780-30 ",.01)
 ;;58864-0780-30
 ;;9002226.02101,"1224,58864-0780-30 ",.02)
 ;;58864-0780-30
 ;;9002226.02101,"1224,58864-0780-60 ",.01)
 ;;58864-0780-60
 ;;9002226.02101,"1224,58864-0780-60 ",.02)
 ;;58864-0780-60
 ;;9002226.02101,"1224,58864-0781-30 ",.01)
 ;;58864-0781-30
 ;;9002226.02101,"1224,58864-0781-30 ",.02)
 ;;58864-0781-30
 ;;9002226.02101,"1224,58864-0834-30 ",.01)
 ;;58864-0834-30
 ;;9002226.02101,"1224,58864-0834-30 ",.02)
 ;;58864-0834-30
 ;;9002226.02101,"1224,59630-0628-30 ",.01)
 ;;59630-0628-30
 ;;9002226.02101,"1224,59630-0628-30 ",.02)
 ;;59630-0628-30
 ;;9002226.02101,"1224,59630-0629-30 ",.01)
 ;;59630-0629-30
 ;;9002226.02101,"1224,59630-0629-30 ",.02)
 ;;59630-0629-30
 ;;9002226.02101,"1224,59630-0630-30 ",.01)
 ;;59630-0630-30
 ;;9002226.02101,"1224,59630-0630-30 ",.02)
 ;;59630-0630-30
 ;;9002226.02101,"1224,59762-0155-01 ",.01)
 ;;59762-0155-01
 ;;9002226.02101,"1224,59762-0155-01 ",.02)
 ;;59762-0155-01
 ;;9002226.02101,"1224,59762-0155-02 ",.01)
 ;;59762-0155-02
 ;;9002226.02101,"1224,59762-0155-02 ",.02)
 ;;59762-0155-02
 ;;9002226.02101,"1224,59762-0156-01 ",.01)
 ;;59762-0156-01
 ;;9002226.02101,"1224,59762-0156-01 ",.02)
 ;;59762-0156-01
 ;;9002226.02101,"1224,59762-0156-02 ",.01)
 ;;59762-0156-02
 ;;9002226.02101,"1224,59762-0156-02 ",.02)
 ;;59762-0156-02
 ;;9002226.02101,"1224,59762-0157-01 ",.01)
 ;;59762-0157-01
 ;;9002226.02101,"1224,59762-0157-01 ",.02)
 ;;59762-0157-01
 ;;9002226.02101,"1224,59762-0157-02 ",.01)
 ;;59762-0157-02
 ;;9002226.02101,"1224,59762-0157-02 ",.02)
 ;;59762-0157-02
 ;;9002226.02101,"1224,59762-0158-01 ",.01)
 ;;59762-0158-01
 ;;9002226.02101,"1224,59762-0158-01 ",.02)
 ;;59762-0158-01
 ;;9002226.02101,"1224,59762-0158-02 ",.01)
 ;;59762-0158-02
 ;;9002226.02101,"1224,59762-0158-02 ",.02)
 ;;59762-0158-02
 ;;9002226.02101,"1224,59762-6710-01 ",.01)
 ;;59762-6710-01
 ;;9002226.02101,"1224,59762-6710-01 ",.02)
 ;;59762-6710-01
 ;;9002226.02101,"1224,59762-6711-01 ",.01)
 ;;59762-6711-01
 ;;9002226.02101,"1224,59762-6711-01 ",.02)
 ;;59762-6711-01
 ;;9002226.02101,"1224,59762-6712-01 ",.01)
 ;;59762-6712-01
 ;;9002226.02101,"1224,59762-6712-01 ",.02)
 ;;59762-6712-01
 ;;9002226.02101,"1224,59762-6720-01 ",.01)
 ;;59762-6720-01
 ;;9002226.02101,"1224,59762-6720-01 ",.02)
 ;;59762-6720-01
 ;;9002226.02101,"1224,59762-6720-05 ",.01)
 ;;59762-6720-05
 ;;9002226.02101,"1224,59762-6720-05 ",.02)
 ;;59762-6720-05
 ;;9002226.02101,"1224,59762-6720-07 ",.01)
 ;;59762-6720-07
 ;;9002226.02101,"1224,59762-6720-07 ",.02)
 ;;59762-6720-07
 ;;9002226.02101,"1224,59762-6721-01 ",.01)
 ;;59762-6721-01
 ;;9002226.02101,"1224,59762-6721-01 ",.02)
 ;;59762-6721-01
 ;;9002226.02101,"1224,59762-6721-05 ",.01)
 ;;59762-6721-05
 ;;9002226.02101,"1224,59762-6721-05 ",.02)
 ;;59762-6721-05
 ;;9002226.02101,"1224,59762-6721-07 ",.01)
 ;;59762-6721-07
 ;;9002226.02101,"1224,59762-6721-07 ",.02)
 ;;59762-6721-07
 ;;9002226.02101,"1224,59762-6722-01 ",.01)
 ;;59762-6722-01
 ;;9002226.02101,"1224,59762-6722-01 ",.02)
 ;;59762-6722-01
 ;;9002226.02101,"1224,59762-6722-05 ",.01)
 ;;59762-6722-05
 ;;9002226.02101,"1224,59762-6722-05 ",.02)
 ;;59762-6722-05
 ;;9002226.02101,"1224,59762-6722-07 ",.01)
 ;;59762-6722-07
 ;;9002226.02101,"1224,59762-6722-07 ",.02)
 ;;59762-6722-07
 ;;9002226.02101,"1224,59762-6723-01 ",.01)
 ;;59762-6723-01
 ;;9002226.02101,"1224,59762-6723-01 ",.02)
 ;;59762-6723-01
 ;;9002226.02101,"1224,59762-6730-01 ",.01)
 ;;59762-6730-01
 ;;9002226.02101,"1224,59762-6730-01 ",.02)
 ;;59762-6730-01
 ;;9002226.02101,"1224,59762-6730-05 ",.01)
 ;;59762-6730-05
 ;;9002226.02101,"1224,59762-6730-05 ",.02)
 ;;59762-6730-05
 ;;9002226.02101,"1224,59762-6730-07 ",.01)
 ;;59762-6730-07
 ;;9002226.02101,"1224,59762-6730-07 ",.02)
 ;;59762-6730-07
 ;;9002226.02101,"1224,59762-6731-01 ",.01)
 ;;59762-6731-01
 ;;9002226.02101,"1224,59762-6731-01 ",.02)
 ;;59762-6731-01
 ;;9002226.02101,"1224,59762-6731-05 ",.01)
 ;;59762-6731-05
 ;;9002226.02101,"1224,59762-6731-05 ",.02)
 ;;59762-6731-05
 ;;9002226.02101,"1224,59762-6731-07 ",.01)
 ;;59762-6731-07
 ;;9002226.02101,"1224,59762-6731-07 ",.02)
 ;;59762-6731-07
 ;;9002226.02101,"1224,59762-6732-01 ",.01)
 ;;59762-6732-01
 ;;9002226.02101,"1224,59762-6732-01 ",.02)
 ;;59762-6732-01
 ;;9002226.02101,"1224,59762-6732-05 ",.01)
 ;;59762-6732-05
 ;;9002226.02101,"1224,59762-6732-05 ",.02)
 ;;59762-6732-05
 ;;9002226.02101,"1224,59762-6732-07 ",.01)
 ;;59762-6732-07
 ;;9002226.02101,"1224,59762-6732-07 ",.02)
 ;;59762-6732-07
 ;;9002226.02101,"1224,59762-6733-01 ",.01)
 ;;59762-6733-01
 ;;9002226.02101,"1224,59762-6733-01 ",.02)
 ;;59762-6733-01
 ;;9002226.02101,"1224,60429-0248-10 ",.01)
 ;;60429-0248-10
 ;;9002226.02101,"1224,60429-0248-10 ",.02)
 ;;60429-0248-10
 ;;9002226.02101,"1224,60429-0248-60 ",.01)
 ;;60429-0248-60
 ;;9002226.02101,"1224,60429-0248-60 ",.02)
 ;;60429-0248-60
 ;;9002226.02101,"1224,60429-0249-10 ",.01)
 ;;60429-0249-10
 ;;9002226.02101,"1224,60429-0249-10 ",.02)
 ;;60429-0249-10
 ;;9002226.02101,"1224,60429-0249-60 ",.01)
 ;;60429-0249-60
 ;;9002226.02101,"1224,60429-0249-60 ",.02)
 ;;60429-0249-60
 ;;9002226.02101,"1224,60429-0250-10 ",.01)
 ;;60429-0250-10
 ;;9002226.02101,"1224,60429-0250-10 ",.02)
 ;;60429-0250-10
 ;;9002226.02101,"1224,60429-0250-60 ",.01)
 ;;60429-0250-60
 ;;9002226.02101,"1224,60429-0250-60 ",.02)
 ;;60429-0250-60
 ;;9002226.02101,"1224,60429-0250-90 ",.01)
 ;;60429-0250-90
 ;;9002226.02101,"1224,60429-0250-90 ",.02)
 ;;60429-0250-90
 ;;9002226.02101,"1224,60429-0323-01 ",.01)
 ;;60429-0323-01
 ;;9002226.02101,"1224,60429-0323-01 ",.02)
 ;;60429-0323-01
 ;;9002226.02101,"1224,60429-0323-10 ",.01)
 ;;60429-0323-10
 ;;9002226.02101,"1224,60429-0323-10 ",.02)
 ;;60429-0323-10
 ;;9002226.02101,"1224,60429-0323-77 ",.01)
 ;;60429-0323-77
 ;;9002226.02101,"1224,60429-0323-77 ",.02)
 ;;60429-0323-77
 ;;9002226.02101,"1224,60429-0323-90 ",.01)
 ;;60429-0323-90
 ;;9002226.02101,"1224,60429-0323-90 ",.02)
 ;;60429-0323-90
 ;;9002226.02101,"1224,60429-0324-01 ",.01)
 ;;60429-0324-01
 ;;9002226.02101,"1224,60429-0324-01 ",.02)
 ;;60429-0324-01
 ;;9002226.02101,"1224,60429-0324-10 ",.01)
 ;;60429-0324-10
 ;;9002226.02101,"1224,60429-0324-10 ",.02)
 ;;60429-0324-10
 ;;9002226.02101,"1224,60429-0324-77 ",.01)
 ;;60429-0324-77
 ;;9002226.02101,"1224,60429-0324-77 ",.02)
 ;;60429-0324-77
 ;;9002226.02101,"1224,60429-0324-90 ",.01)
 ;;60429-0324-90
 ;;9002226.02101,"1224,60429-0324-90 ",.02)
 ;;60429-0324-90
 ;;9002226.02101,"1224,60429-0325-01 ",.01)
 ;;60429-0325-01
 ;;9002226.02101,"1224,60429-0325-01 ",.02)
 ;;60429-0325-01
 ;;9002226.02101,"1224,60429-0325-05 ",.01)
 ;;60429-0325-05
 ;;9002226.02101,"1224,60429-0325-05 ",.02)
 ;;60429-0325-05
 ;;9002226.02101,"1224,60429-0325-77 ",.01)
 ;;60429-0325-77
 ;;9002226.02101,"1224,60429-0325-77 ",.02)
 ;;60429-0325-77
 ;;9002226.02101,"1224,60429-0325-90 ",.01)
 ;;60429-0325-90
 ;;9002226.02101,"1224,60429-0325-90 ",.02)
 ;;60429-0325-90
 ;;9002226.02101,"1224,60429-0326-01 ",.01)
 ;;60429-0326-01
 ;;9002226.02101,"1224,60429-0326-01 ",.02)
 ;;60429-0326-01
 ;;9002226.02101,"1224,60429-0326-05 ",.01)
 ;;60429-0326-05
 ;;9002226.02101,"1224,60429-0326-05 ",.02)
 ;;60429-0326-05
 ;;9002226.02101,"1224,60429-0326-33 ",.01)
 ;;60429-0326-33
 ;;9002226.02101,"1224,60429-0326-33 ",.02)
 ;;60429-0326-33
 ;;9002226.02101,"1224,60429-0326-90 ",.01)
 ;;60429-0326-90
 ;;9002226.02101,"1224,60429-0326-90 ",.02)
 ;;60429-0326-90
 ;;9002226.02101,"1224,60429-0367-05 ",.01)
 ;;60429-0367-05
 ;;9002226.02101,"1224,60429-0367-05 ",.02)
 ;;60429-0367-05
 ;;9002226.02101,"1224,60429-0367-45 ",.01)
 ;;60429-0367-45
 ;;9002226.02101,"1224,60429-0367-45 ",.02)
 ;;60429-0367-45
 ;;9002226.02101,"1224,60429-0367-90 ",.01)
 ;;60429-0367-90
 ;;9002226.02101,"1224,60429-0367-90 ",.02)
 ;;60429-0367-90
 ;;9002226.02101,"1224,60429-0368-05 ",.01)
 ;;60429-0368-05
 ;;9002226.02101,"1224,60429-0368-05 ",.02)
 ;;60429-0368-05
 ;;9002226.02101,"1224,60429-0368-45 ",.01)
 ;;60429-0368-45
 ;;9002226.02101,"1224,60429-0368-45 ",.02)
 ;;60429-0368-45
 ;;9002226.02101,"1224,60429-0368-90 ",.01)
 ;;60429-0368-90
 ;;9002226.02101,"1224,60429-0368-90 ",.02)
 ;;60429-0368-90
 ;;9002226.02101,"1224,60429-0369-05 ",.01)
 ;;60429-0369-05
 ;;9002226.02101,"1224,60429-0369-05 ",.02)
 ;;60429-0369-05
 ;;9002226.02101,"1224,60429-0369-45 ",.01)
 ;;60429-0369-45
 ;;9002226.02101,"1224,60429-0369-45 ",.02)
 ;;60429-0369-45
 ;;9002226.02101,"1224,60429-0369-90 ",.01)
 ;;60429-0369-90
 ;;9002226.02101,"1224,60429-0369-90 ",.02)
 ;;60429-0369-90
 ;;9002226.02101,"1224,60429-0370-05 ",.01)
 ;;60429-0370-05
 ;;9002226.02101,"1224,60429-0370-05 ",.02)
 ;;60429-0370-05
 ;;9002226.02101,"1224,60429-0370-45 ",.01)
 ;;60429-0370-45
 ;;9002226.02101,"1224,60429-0370-45 ",.02)
 ;;60429-0370-45
 ;;9002226.02101,"1224,60429-0370-90 ",.01)
 ;;60429-0370-90
 ;;9002226.02101,"1224,60429-0370-90 ",.02)
 ;;60429-0370-90
 ;;9002226.02101,"1224,60429-0400-10 ",.01)
 ;;60429-0400-10
 ;;9002226.02101,"1224,60429-0400-10 ",.02)
 ;;60429-0400-10
 ;;9002226.02101,"1224,60429-0400-60 ",.01)
 ;;60429-0400-60
 ;;9002226.02101,"1224,60429-0400-60 ",.02)
 ;;60429-0400-60
 ;;9002226.02101,"1224,60429-0400-90 ",.01)
 ;;60429-0400-90
 ;;9002226.02101,"1224,60429-0400-90 ",.02)
 ;;60429-0400-90
 ;;9002226.02101,"1224,60429-0401-10 ",.01)
 ;;60429-0401-10
 ;;9002226.02101,"1224,60429-0401-10 ",.02)
 ;;60429-0401-10
 ;;9002226.02101,"1224,60429-0401-60 ",.01)
 ;;60429-0401-60
 ;;9002226.02101,"1224,60429-0401-60 ",.02)
 ;;60429-0401-60
 ;;9002226.02101,"1224,60429-0401-90 ",.01)
 ;;60429-0401-90
 ;;9002226.02101,"1224,60429-0401-90 ",.02)
 ;;60429-0401-90
 ;;9002226.02101,"1224,60429-0402-10 ",.01)
 ;;60429-0402-10
 ;;9002226.02101,"1224,60429-0402-10 ",.02)
 ;;60429-0402-10
 ;;9002226.02101,"1224,60429-0402-60 ",.01)
 ;;60429-0402-60
 ;;9002226.02101,"1224,60429-0402-60 ",.02)
 ;;60429-0402-60
 ;;9002226.02101,"1224,60429-0402-90 ",.01)
 ;;60429-0402-90
 ;;9002226.02101,"1224,60429-0402-90 ",.02)
 ;;60429-0402-90
 ;;9002226.02101,"1224,60429-0842-90 ",.01)
 ;;60429-0842-90
 ;;9002226.02101,"1224,60429-0842-90 ",.02)
 ;;60429-0842-90
 ;;9002226.02101,"1224,60429-0843-90 ",.01)
 ;;60429-0843-90
 ;;9002226.02101,"1224,60429-0843-90 ",.02)
 ;;60429-0843-90
 ;;9002226.02101,"1224,60429-0844-90 ",.01)
 ;;60429-0844-90
 ;;9002226.02101,"1224,60429-0844-90 ",.02)
 ;;60429-0844-90
 ;;9002226.02101,"1224,60429-0845-30 ",.01)
 ;;60429-0845-30
 ;;9002226.02101,"1224,60429-0845-30 ",.02)
 ;;60429-0845-30
 ;;9002226.02101,"1224,60429-0879-10 ",.01)
 ;;60429-0879-10
 ;;9002226.02101,"1224,60429-0879-10 ",.02)
 ;;60429-0879-10
 ;;9002226.02101,"1224,60429-0879-30 ",.01)
 ;;60429-0879-30
 ;;9002226.02101,"1224,60429-0879-30 ",.02)
 ;;60429-0879-30
 ;;9002226.02101,"1224,60429-0879-90 ",.01)
 ;;60429-0879-90
 ;;9002226.02101,"1224,60429-0879-90 ",.02)
 ;;60429-0879-90
 ;;9002226.02101,"1224,60429-0880-10 ",.01)
 ;;60429-0880-10
 ;;9002226.02101,"1224,60429-0880-10 ",.02)
 ;;60429-0880-10
 ;;9002226.02101,"1224,60429-0880-30 ",.01)
 ;;60429-0880-30
 ;;9002226.02101,"1224,60429-0880-30 ",.02)
 ;;60429-0880-30
 ;;9002226.02101,"1224,60429-0880-90 ",.01)
 ;;60429-0880-90
 ;;9002226.02101,"1224,60429-0880-90 ",.02)
 ;;60429-0880-90
 ;;9002226.02101,"1224,60429-0881-05 ",.01)
 ;;60429-0881-05
 ;;9002226.02101,"1224,60429-0881-05 ",.02)
 ;;60429-0881-05
 ;;9002226.02101,"1224,60429-0881-10 ",.01)
 ;;60429-0881-10
 ;;9002226.02101,"1224,60429-0881-10 ",.02)
 ;;60429-0881-10
 ;;9002226.02101,"1224,60429-0881-30 ",.01)
 ;;60429-0881-30