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

BGP82Z78.m

Go to the documentation of this file.
BGP82Z78 ; 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,"619,68308-0226-01 ",.02)
 ;;68308-0226-01
 ;;9002226.02101,"619,68308-0312-10 ",.01)
 ;;68308-0312-10
 ;;9002226.02101,"619,68308-0312-10 ",.02)
 ;;68308-0312-10
 ;;9002226.02101,"619,68308-0405-47 ",.01)
 ;;68308-0405-47
 ;;9002226.02101,"619,68308-0405-47 ",.02)
 ;;68308-0405-47
 ;;9002226.02101,"619,68308-0475-47 ",.01)
 ;;68308-0475-47
 ;;9002226.02101,"619,68308-0475-47 ",.02)
 ;;68308-0475-47
 ;;9002226.02101,"619,68308-0480-47 ",.01)
 ;;68308-0480-47
 ;;9002226.02101,"619,68308-0480-47 ",.02)
 ;;68308-0480-47
 ;;9002226.02101,"619,68308-0505-47 ",.01)
 ;;68308-0505-47
 ;;9002226.02101,"619,68308-0505-47 ",.02)
 ;;68308-0505-47
 ;;9002226.02101,"619,68308-0840-01 ",.01)
 ;;68308-0840-01
 ;;9002226.02101,"619,68308-0840-01 ",.02)
 ;;68308-0840-01
 ;;9002226.02101,"619,68308-0841-01 ",.01)
 ;;68308-0841-01
 ;;9002226.02101,"619,68308-0841-01 ",.02)
 ;;68308-0841-01
 ;;9002226.02101,"619,68308-0842-01 ",.01)
 ;;68308-0842-01
 ;;9002226.02101,"619,68308-0842-01 ",.02)
 ;;68308-0842-01
 ;;9002226.02101,"619,68308-0843-01 ",.01)
 ;;68308-0843-01
 ;;9002226.02101,"619,68308-0843-01 ",.02)
 ;;68308-0843-01
 ;;9002226.02101,"619,68308-0845-01 ",.01)
 ;;68308-0845-01
 ;;9002226.02101,"619,68308-0845-01 ",.02)
 ;;68308-0845-01
 ;;9002226.02101,"619,68382-0319-01 ",.01)
 ;;68382-0319-01
 ;;9002226.02101,"619,68382-0319-01 ",.02)
 ;;68382-0319-01
 ;;9002226.02101,"619,68382-0319-05 ",.01)
 ;;68382-0319-05
 ;;9002226.02101,"619,68382-0319-05 ",.02)
 ;;68382-0319-05
 ;;9002226.02101,"619,68382-0319-10 ",.01)
 ;;68382-0319-10
 ;;9002226.02101,"619,68382-0319-10 ",.02)
 ;;68382-0319-10
 ;;9002226.02101,"619,68382-0334-01 ",.01)
 ;;68382-0334-01
 ;;9002226.02101,"619,68382-0334-01 ",.02)
 ;;68382-0334-01
 ;;9002226.02101,"619,68382-0334-05 ",.01)
 ;;68382-0334-05
 ;;9002226.02101,"619,68382-0334-05 ",.02)
 ;;68382-0334-05
 ;;9002226.02101,"619,68382-0793-01 ",.01)
 ;;68382-0793-01
 ;;9002226.02101,"619,68382-0793-01 ",.02)
 ;;68382-0793-01
 ;;9002226.02101,"619,68382-0794-01 ",.01)
 ;;68382-0794-01
 ;;9002226.02101,"619,68382-0794-01 ",.02)
 ;;68382-0794-01
 ;;9002226.02101,"619,68382-0795-01 ",.01)
 ;;68382-0795-01
 ;;9002226.02101,"619,68382-0795-01 ",.02)
 ;;68382-0795-01
 ;;9002226.02101,"619,68382-0796-01 ",.01)
 ;;68382-0796-01
 ;;9002226.02101,"619,68382-0796-01 ",.02)
 ;;68382-0796-01
 ;;9002226.02101,"619,68382-0797-01 ",.01)
 ;;68382-0797-01
 ;;9002226.02101,"619,68382-0797-01 ",.02)
 ;;68382-0797-01
 ;;9002226.02101,"619,68382-0903-01 ",.01)
 ;;68382-0903-01
 ;;9002226.02101,"619,68382-0903-01 ",.02)
 ;;68382-0903-01
 ;;9002226.02101,"619,68382-0904-01 ",.01)
 ;;68382-0904-01
 ;;9002226.02101,"619,68382-0904-01 ",.02)
 ;;68382-0904-01
 ;;9002226.02101,"619,68382-0905-01 ",.01)
 ;;68382-0905-01
 ;;9002226.02101,"619,68382-0905-01 ",.02)
 ;;68382-0905-01
 ;;9002226.02101,"619,68382-0906-01 ",.01)
 ;;68382-0906-01
 ;;9002226.02101,"619,68382-0906-01 ",.02)
 ;;68382-0906-01
 ;;9002226.02101,"619,68382-0907-01 ",.01)
 ;;68382-0907-01
 ;;9002226.02101,"619,68382-0907-01 ",.02)
 ;;68382-0907-01
 ;;9002226.02101,"619,68387-0230-01 ",.01)
 ;;68387-0230-01
 ;;9002226.02101,"619,68387-0230-01 ",.02)
 ;;68387-0230-01
 ;;9002226.02101,"619,68387-0230-10 ",.01)
 ;;68387-0230-10
 ;;9002226.02101,"619,68387-0230-10 ",.02)
 ;;68387-0230-10
 ;;9002226.02101,"619,68387-0230-12 ",.01)
 ;;68387-0230-12
 ;;9002226.02101,"619,68387-0230-12 ",.02)
 ;;68387-0230-12
 ;;9002226.02101,"619,68387-0230-15 ",.01)
 ;;68387-0230-15
 ;;9002226.02101,"619,68387-0230-15 ",.02)
 ;;68387-0230-15
 ;;9002226.02101,"619,68387-0230-30 ",.01)
 ;;68387-0230-30
 ;;9002226.02101,"619,68387-0230-30 ",.02)
 ;;68387-0230-30
 ;;9002226.02101,"619,68387-0230-40 ",.01)
 ;;68387-0230-40
 ;;9002226.02101,"619,68387-0230-40 ",.02)
 ;;68387-0230-40
 ;;9002226.02101,"619,68387-0230-50 ",.01)
 ;;68387-0230-50
 ;;9002226.02101,"619,68387-0230-50 ",.02)
 ;;68387-0230-50
 ;;9002226.02101,"619,68387-0230-51 ",.01)
 ;;68387-0230-51
 ;;9002226.02101,"619,68387-0230-51 ",.02)
 ;;68387-0230-51
 ;;9002226.02101,"619,68387-0230-60 ",.01)
 ;;68387-0230-60
 ;;9002226.02101,"619,68387-0230-60 ",.02)
 ;;68387-0230-60
 ;;9002226.02101,"619,68387-0230-90 ",.01)
 ;;68387-0230-90
 ;;9002226.02101,"619,68387-0230-90 ",.02)
 ;;68387-0230-90
 ;;9002226.02101,"619,68387-0235-12 ",.01)
 ;;68387-0235-12
 ;;9002226.02101,"619,68387-0235-12 ",.02)
 ;;68387-0235-12
 ;;9002226.02101,"619,68387-0235-18 ",.01)
 ;;68387-0235-18
 ;;9002226.02101,"619,68387-0235-18 ",.02)
 ;;68387-0235-18
 ;;9002226.02101,"619,68387-0235-30 ",.01)
 ;;68387-0235-30
 ;;9002226.02101,"619,68387-0235-30 ",.02)
 ;;68387-0235-30
 ;;9002226.02101,"619,68387-0235-40 ",.01)
 ;;68387-0235-40
 ;;9002226.02101,"619,68387-0235-40 ",.02)
 ;;68387-0235-40
 ;;9002226.02101,"619,68387-0235-60 ",.01)
 ;;68387-0235-60
 ;;9002226.02101,"619,68387-0235-60 ",.02)
 ;;68387-0235-60
 ;;9002226.02101,"619,68387-0235-90 ",.01)
 ;;68387-0235-90
 ;;9002226.02101,"619,68387-0235-90 ",.02)
 ;;68387-0235-90
 ;;9002226.02101,"619,68387-0236-30 ",.01)
 ;;68387-0236-30
 ;;9002226.02101,"619,68387-0236-30 ",.02)
 ;;68387-0236-30
 ;;9002226.02101,"619,68387-0236-90 ",.01)
 ;;68387-0236-90
 ;;9002226.02101,"619,68387-0236-90 ",.02)
 ;;68387-0236-90
 ;;9002226.02101,"619,68387-0250-15 ",.01)
 ;;68387-0250-15
 ;;9002226.02101,"619,68387-0250-15 ",.02)
 ;;68387-0250-15
 ;;9002226.02101,"619,68387-0250-30 ",.01)
 ;;68387-0250-30
 ;;9002226.02101,"619,68387-0250-30 ",.02)
 ;;68387-0250-30
 ;;9002226.02101,"619,68387-0250-40 ",.01)
 ;;68387-0250-40
 ;;9002226.02101,"619,68387-0250-40 ",.02)
 ;;68387-0250-40
 ;;9002226.02101,"619,68387-0250-60 ",.01)
 ;;68387-0250-60
 ;;9002226.02101,"619,68387-0250-60 ",.02)
 ;;68387-0250-60
 ;;9002226.02101,"619,68387-0250-90 ",.01)
 ;;68387-0250-90
 ;;9002226.02101,"619,68387-0250-90 ",.02)
 ;;68387-0250-90
 ;;9002226.02101,"619,68387-0497-12 ",.01)
 ;;68387-0497-12
 ;;9002226.02101,"619,68387-0497-12 ",.02)
 ;;68387-0497-12
 ;;9002226.02101,"619,68387-0497-20 ",.01)
 ;;68387-0497-20
 ;;9002226.02101,"619,68387-0497-20 ",.02)
 ;;68387-0497-20
 ;;9002226.02101,"619,68387-0497-30 ",.01)
 ;;68387-0497-30
 ;;9002226.02101,"619,68387-0497-30 ",.02)
 ;;68387-0497-30
 ;;9002226.02101,"619,68387-0497-60 ",.01)
 ;;68387-0497-60
 ;;9002226.02101,"619,68387-0497-60 ",.02)
 ;;68387-0497-60
 ;;9002226.02101,"619,68387-0497-90 ",.01)
 ;;68387-0497-90
 ;;9002226.02101,"619,68387-0497-90 ",.02)
 ;;68387-0497-90
 ;;9002226.02101,"619,68387-0531-12 ",.01)
 ;;68387-0531-12
 ;;9002226.02101,"619,68387-0531-12 ",.02)
 ;;68387-0531-12
 ;;9002226.02101,"619,68387-0531-30 ",.01)
 ;;68387-0531-30
 ;;9002226.02101,"619,68387-0531-30 ",.02)
 ;;68387-0531-30
 ;;9002226.02101,"619,68387-0531-60 ",.01)
 ;;68387-0531-60
 ;;9002226.02101,"619,68387-0531-60 ",.02)
 ;;68387-0531-60
 ;;9002226.02101,"619,68387-0900-12 ",.01)
 ;;68387-0900-12
 ;;9002226.02101,"619,68387-0900-12 ",.02)
 ;;68387-0900-12
 ;;9002226.02101,"619,68387-0900-15 ",.01)
 ;;68387-0900-15
 ;;9002226.02101,"619,68387-0900-15 ",.02)
 ;;68387-0900-15
 ;;9002226.02101,"619,68387-0900-20 ",.01)
 ;;68387-0900-20
 ;;9002226.02101,"619,68387-0900-20 ",.02)
 ;;68387-0900-20
 ;;9002226.02101,"619,68387-0900-24 ",.01)
 ;;68387-0900-24
 ;;9002226.02101,"619,68387-0900-24 ",.02)
 ;;68387-0900-24
 ;;9002226.02101,"619,68387-0900-30 ",.01)
 ;;68387-0900-30
 ;;9002226.02101,"619,68387-0900-30 ",.02)
 ;;68387-0900-30
 ;;9002226.02101,"619,68387-0900-40 ",.01)
 ;;68387-0900-40
 ;;9002226.02101,"619,68387-0900-40 ",.02)
 ;;68387-0900-40
 ;;9002226.02101,"619,68387-0900-50 ",.01)
 ;;68387-0900-50
 ;;9002226.02101,"619,68387-0900-50 ",.02)
 ;;68387-0900-50
 ;;9002226.02101,"619,68387-0900-60 ",.01)
 ;;68387-0900-60
 ;;9002226.02101,"619,68387-0900-60 ",.02)
 ;;68387-0900-60
 ;;9002226.02101,"619,68387-0900-90 ",.01)
 ;;68387-0900-90
 ;;9002226.02101,"619,68387-0900-90 ",.02)
 ;;68387-0900-90
 ;;9002226.02101,"619,68405-0038-36 ",.01)
 ;;68405-0038-36
 ;;9002226.02101,"619,68405-0038-36 ",.02)
 ;;68405-0038-36
 ;;9002226.02101,"619,68405-0098-36 ",.01)
 ;;68405-0098-36
 ;;9002226.02101,"619,68405-0098-36 ",.02)
 ;;68405-0098-36
 ;;9002226.02101,"619,68405-0198-36 ",.01)
 ;;68405-0198-36
 ;;9002226.02101,"619,68405-0198-36 ",.02)
 ;;68405-0198-36
 ;;9002226.02101,"619,68405-0298-36 ",.01)
 ;;68405-0298-36
 ;;9002226.02101,"619,68405-0298-36 ",.02)
 ;;68405-0298-36
 ;;9002226.02101,"619,68405-0380-26 ",.01)
 ;;68405-0380-26
 ;;9002226.02101,"619,68405-0380-26 ",.02)
 ;;68405-0380-26
 ;;9002226.02101,"619,68405-0398-36 ",.01)
 ;;68405-0398-36
 ;;9002226.02101,"619,68405-0398-36 ",.02)
 ;;68405-0398-36
 ;;9002226.02101,"619,68405-0498-36 ",.01)
 ;;68405-0498-36
 ;;9002226.02101,"619,68405-0498-36 ",.02)
 ;;68405-0498-36
 ;;9002226.02101,"619,68462-0204-01 ",.01)
 ;;68462-0204-01
 ;;9002226.02101,"619,68462-0204-01 ",.02)
 ;;68462-0204-01
 ;;9002226.02101,"619,68462-0347-37 ",.01)
 ;;68462-0347-37
 ;;9002226.02101,"619,68462-0347-37 ",.02)
 ;;68462-0347-37
 ;;9002226.02101,"619,68788-0285-03 ",.01)
 ;;68788-0285-03
 ;;9002226.02101,"619,68788-0285-03 ",.02)
 ;;68788-0285-03
 ;;9002226.02101,"619,68788-0285-06 ",.01)
 ;;68788-0285-06
 ;;9002226.02101,"619,68788-0285-06 ",.02)
 ;;68788-0285-06
 ;;9002226.02101,"619,68788-0985-02 ",.01)
 ;;68788-0985-02
 ;;9002226.02101,"619,68788-0985-02 ",.02)
 ;;68788-0985-02
 ;;9002226.02101,"619,68788-0985-03 ",.01)
 ;;68788-0985-03
 ;;9002226.02101,"619,68788-0985-03 ",.02)
 ;;68788-0985-03
 ;;9002226.02101,"619,68788-0985-06 ",.01)
 ;;68788-0985-06
 ;;9002226.02101,"619,68788-0985-06 ",.02)
 ;;68788-0985-06
 ;;9002226.02101,"619,68788-6352-01 ",.01)
 ;;68788-6352-01
 ;;9002226.02101,"619,68788-6352-01 ",.02)
 ;;68788-6352-01
 ;;9002226.02101,"619,68788-7373-01 ",.01)
 ;;68788-7373-01
 ;;9002226.02101,"619,68788-7373-01 ",.02)
 ;;68788-7373-01
 ;;9002226.02101,"619,68788-7373-03 ",.01)
 ;;68788-7373-03
 ;;9002226.02101,"619,68788-7373-03 ",.02)
 ;;68788-7373-03
 ;;9002226.02101,"619,68788-7373-06 ",.01)
 ;;68788-7373-06
 ;;9002226.02101,"619,68788-7373-06 ",.02)
 ;;68788-7373-06
 ;;9002226.02101,"619,68788-7373-09 ",.01)
 ;;68788-7373-09
 ;;9002226.02101,"619,68788-7373-09 ",.02)
 ;;68788-7373-09
 ;;9002226.02101,"619,68788-8918-03 ",.01)
 ;;68788-8918-03
 ;;9002226.02101,"619,68788-8918-03 ",.02)
 ;;68788-8918-03
 ;;9002226.02101,"619,68788-8918-06 ",.01)
 ;;68788-8918-06
 ;;9002226.02101,"619,68788-8918-06 ",.02)
 ;;68788-8918-06
 ;;9002226.02101,"619,68788-8918-09 ",.01)
 ;;68788-8918-09
 ;;9002226.02101,"619,68788-8918-09 ",.02)
 ;;68788-8918-09
 ;;9002226.02101,"619,68788-8920-03 ",.01)
 ;;68788-8920-03
 ;;9002226.02101,"619,68788-8920-03 ",.02)
 ;;68788-8920-03
 ;;9002226.02101,"619,68788-8920-06 ",.01)
 ;;68788-8920-06
 ;;9002226.02101,"619,68788-8920-06 ",.02)
 ;;68788-8920-06
 ;;9002226.02101,"619,68788-8920-09 ",.01)
 ;;68788-8920-09
 ;;9002226.02101,"619,68788-8920-09 ",.02)
 ;;68788-8920-09
 ;;9002226.02101,"619,68788-8921-02 ",.01)
 ;;68788-8921-02
 ;;9002226.02101,"619,68788-8921-02 ",.02)
 ;;68788-8921-02
 ;;9002226.02101,"619,68788-8921-03 ",.01)
 ;;68788-8921-03
 ;;9002226.02101,"619,68788-8921-03 ",.02)
 ;;68788-8921-03
 ;;9002226.02101,"619,68788-8921-06 ",.01)
 ;;68788-8921-06
 ;;9002226.02101,"619,68788-8921-06 ",.02)
 ;;68788-8921-06
 ;;9002226.02101,"619,68788-8921-09 ",.01)
 ;;68788-8921-09
 ;;9002226.02101,"619,68788-8921-09 ",.02)
 ;;68788-8921-09
 ;;9002226.02101,"619,68788-9125-03 ",.01)
 ;;68788-9125-03
 ;;9002226.02101,"619,68788-9125-03 ",.02)
 ;;68788-9125-03
 ;;9002226.02101,"619,68788-9125-06 ",.01)
 ;;68788-9125-06