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

BGP82Z68.m

Go to the documentation of this file.
BGP82Z68 ; 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,63629-4731-06 ",.02)
 ;;63629-4731-06
 ;;9002226.02101,"619,63629-4731-07 ",.01)
 ;;63629-4731-07
 ;;9002226.02101,"619,63629-4731-07 ",.02)
 ;;63629-4731-07
 ;;9002226.02101,"619,63629-4899-01 ",.01)
 ;;63629-4899-01
 ;;9002226.02101,"619,63629-4899-01 ",.02)
 ;;63629-4899-01
 ;;9002226.02101,"619,63629-4899-02 ",.01)
 ;;63629-4899-02
 ;;9002226.02101,"619,63629-4899-02 ",.02)
 ;;63629-4899-02
 ;;9002226.02101,"619,63629-4899-03 ",.01)
 ;;63629-4899-03
 ;;9002226.02101,"619,63629-4899-03 ",.02)
 ;;63629-4899-03
 ;;9002226.02101,"619,63629-4899-04 ",.01)
 ;;63629-4899-04
 ;;9002226.02101,"619,63629-4899-04 ",.02)
 ;;63629-4899-04
 ;;9002226.02101,"619,63629-4899-05 ",.01)
 ;;63629-4899-05
 ;;9002226.02101,"619,63629-4899-05 ",.02)
 ;;63629-4899-05
 ;;9002226.02101,"619,63629-4899-06 ",.01)
 ;;63629-4899-06
 ;;9002226.02101,"619,63629-4899-06 ",.02)
 ;;63629-4899-06
 ;;9002226.02101,"619,63629-4899-09 ",.01)
 ;;63629-4899-09
 ;;9002226.02101,"619,63629-4899-09 ",.02)
 ;;63629-4899-09
 ;;9002226.02101,"619,63629-4900-01 ",.01)
 ;;63629-4900-01
 ;;9002226.02101,"619,63629-4900-01 ",.02)
 ;;63629-4900-01
 ;;9002226.02101,"619,63629-4900-02 ",.01)
 ;;63629-4900-02
 ;;9002226.02101,"619,63629-4900-02 ",.02)
 ;;63629-4900-02
 ;;9002226.02101,"619,63629-4900-03 ",.01)
 ;;63629-4900-03
 ;;9002226.02101,"619,63629-4900-03 ",.02)
 ;;63629-4900-03
 ;;9002226.02101,"619,63629-4900-04 ",.01)
 ;;63629-4900-04
 ;;9002226.02101,"619,63629-4900-04 ",.02)
 ;;63629-4900-04
 ;;9002226.02101,"619,63629-4900-05 ",.01)
 ;;63629-4900-05
 ;;9002226.02101,"619,63629-4900-05 ",.02)
 ;;63629-4900-05
 ;;9002226.02101,"619,63629-4900-06 ",.01)
 ;;63629-4900-06
 ;;9002226.02101,"619,63629-4900-06 ",.02)
 ;;63629-4900-06
 ;;9002226.02101,"619,63629-4900-07 ",.01)
 ;;63629-4900-07
 ;;9002226.02101,"619,63629-4900-07 ",.02)
 ;;63629-4900-07
 ;;9002226.02101,"619,63629-4901-01 ",.01)
 ;;63629-4901-01
 ;;9002226.02101,"619,63629-4901-01 ",.02)
 ;;63629-4901-01
 ;;9002226.02101,"619,63629-4901-02 ",.01)
 ;;63629-4901-02
 ;;9002226.02101,"619,63629-4901-02 ",.02)
 ;;63629-4901-02
 ;;9002226.02101,"619,63629-4901-03 ",.01)
 ;;63629-4901-03
 ;;9002226.02101,"619,63629-4901-03 ",.02)
 ;;63629-4901-03
 ;;9002226.02101,"619,63629-4901-04 ",.01)
 ;;63629-4901-04
 ;;9002226.02101,"619,63629-4901-04 ",.02)
 ;;63629-4901-04
 ;;9002226.02101,"619,63629-4975-03 ",.01)
 ;;63629-4975-03
 ;;9002226.02101,"619,63629-4975-03 ",.02)
 ;;63629-4975-03
 ;;9002226.02101,"619,63629-5422-01 ",.01)
 ;;63629-5422-01
 ;;9002226.02101,"619,63629-5422-01 ",.02)
 ;;63629-5422-01
 ;;9002226.02101,"619,63629-5422-02 ",.01)
 ;;63629-5422-02
 ;;9002226.02101,"619,63629-5422-02 ",.02)
 ;;63629-5422-02
 ;;9002226.02101,"619,63629-5422-03 ",.01)
 ;;63629-5422-03
 ;;9002226.02101,"619,63629-5422-03 ",.02)
 ;;63629-5422-03
 ;;9002226.02101,"619,63629-5422-04 ",.01)
 ;;63629-5422-04
 ;;9002226.02101,"619,63629-5422-04 ",.02)
 ;;63629-5422-04
 ;;9002226.02101,"619,63629-5428-01 ",.01)
 ;;63629-5428-01
 ;;9002226.02101,"619,63629-5428-01 ",.02)
 ;;63629-5428-01
 ;;9002226.02101,"619,63629-5428-02 ",.01)
 ;;63629-5428-02
 ;;9002226.02101,"619,63629-5428-02 ",.02)
 ;;63629-5428-02
 ;;9002226.02101,"619,63629-5428-03 ",.01)
 ;;63629-5428-03
 ;;9002226.02101,"619,63629-5428-03 ",.02)
 ;;63629-5428-03
 ;;9002226.02101,"619,63629-5428-04 ",.01)
 ;;63629-5428-04
 ;;9002226.02101,"619,63629-5428-04 ",.02)
 ;;63629-5428-04
 ;;9002226.02101,"619,63629-5428-05 ",.01)
 ;;63629-5428-05
 ;;9002226.02101,"619,63629-5428-05 ",.02)
 ;;63629-5428-05
 ;;9002226.02101,"619,63629-5428-06 ",.01)
 ;;63629-5428-06
 ;;9002226.02101,"619,63629-5428-06 ",.02)
 ;;63629-5428-06
 ;;9002226.02101,"619,63629-5428-07 ",.01)
 ;;63629-5428-07
 ;;9002226.02101,"619,63629-5428-07 ",.02)
 ;;63629-5428-07
 ;;9002226.02101,"619,63629-5428-08 ",.01)
 ;;63629-5428-08
 ;;9002226.02101,"619,63629-5428-08 ",.02)
 ;;63629-5428-08
 ;;9002226.02101,"619,63629-5432-01 ",.01)
 ;;63629-5432-01
 ;;9002226.02101,"619,63629-5432-01 ",.02)
 ;;63629-5432-01
 ;;9002226.02101,"619,63629-5432-02 ",.01)
 ;;63629-5432-02
 ;;9002226.02101,"619,63629-5432-02 ",.02)
 ;;63629-5432-02
 ;;9002226.02101,"619,63629-5432-03 ",.01)
 ;;63629-5432-03
 ;;9002226.02101,"619,63629-5432-03 ",.02)
 ;;63629-5432-03
 ;;9002226.02101,"619,63629-5432-04 ",.01)
 ;;63629-5432-04
 ;;9002226.02101,"619,63629-5432-04 ",.02)
 ;;63629-5432-04
 ;;9002226.02101,"619,63629-5432-05 ",.01)
 ;;63629-5432-05
 ;;9002226.02101,"619,63629-5432-05 ",.02)
 ;;63629-5432-05
 ;;9002226.02101,"619,63629-5432-06 ",.01)
 ;;63629-5432-06
 ;;9002226.02101,"619,63629-5432-06 ",.02)
 ;;63629-5432-06
 ;;9002226.02101,"619,63629-5432-07 ",.01)
 ;;63629-5432-07
 ;;9002226.02101,"619,63629-5432-07 ",.02)
 ;;63629-5432-07
 ;;9002226.02101,"619,63629-5432-08 ",.01)
 ;;63629-5432-08
 ;;9002226.02101,"619,63629-5432-08 ",.02)
 ;;63629-5432-08
 ;;9002226.02101,"619,63629-5432-09 ",.01)
 ;;63629-5432-09
 ;;9002226.02101,"619,63629-5432-09 ",.02)
 ;;63629-5432-09
 ;;9002226.02101,"619,63629-5432-10 ",.01)
 ;;63629-5432-10
 ;;9002226.02101,"619,63629-5432-10 ",.02)
 ;;63629-5432-10
 ;;9002226.02101,"619,63629-5434-00 ",.01)
 ;;63629-5434-00
 ;;9002226.02101,"619,63629-5434-00 ",.02)
 ;;63629-5434-00
 ;;9002226.02101,"619,63629-5434-01 ",.01)
 ;;63629-5434-01
 ;;9002226.02101,"619,63629-5434-01 ",.02)
 ;;63629-5434-01
 ;;9002226.02101,"619,63629-5434-02 ",.01)
 ;;63629-5434-02
 ;;9002226.02101,"619,63629-5434-02 ",.02)
 ;;63629-5434-02
 ;;9002226.02101,"619,63629-5434-03 ",.01)
 ;;63629-5434-03
 ;;9002226.02101,"619,63629-5434-03 ",.02)
 ;;63629-5434-03
 ;;9002226.02101,"619,63629-5434-04 ",.01)
 ;;63629-5434-04
 ;;9002226.02101,"619,63629-5434-04 ",.02)
 ;;63629-5434-04
 ;;9002226.02101,"619,63629-5434-05 ",.01)
 ;;63629-5434-05
 ;;9002226.02101,"619,63629-5434-05 ",.02)
 ;;63629-5434-05
 ;;9002226.02101,"619,63629-5434-06 ",.01)
 ;;63629-5434-06
 ;;9002226.02101,"619,63629-5434-06 ",.02)
 ;;63629-5434-06
 ;;9002226.02101,"619,63629-5434-07 ",.01)
 ;;63629-5434-07
 ;;9002226.02101,"619,63629-5434-07 ",.02)
 ;;63629-5434-07
 ;;9002226.02101,"619,63629-5434-08 ",.01)
 ;;63629-5434-08
 ;;9002226.02101,"619,63629-5434-08 ",.02)
 ;;63629-5434-08
 ;;9002226.02101,"619,63629-5434-09 ",.01)
 ;;63629-5434-09
 ;;9002226.02101,"619,63629-5434-09 ",.02)
 ;;63629-5434-09
 ;;9002226.02101,"619,63629-5435-01 ",.01)
 ;;63629-5435-01
 ;;9002226.02101,"619,63629-5435-01 ",.02)
 ;;63629-5435-01
 ;;9002226.02101,"619,63629-5435-02 ",.01)
 ;;63629-5435-02
 ;;9002226.02101,"619,63629-5435-02 ",.02)
 ;;63629-5435-02
 ;;9002226.02101,"619,63629-5435-03 ",.01)
 ;;63629-5435-03
 ;;9002226.02101,"619,63629-5435-03 ",.02)
 ;;63629-5435-03
 ;;9002226.02101,"619,63629-5435-04 ",.01)
 ;;63629-5435-04
 ;;9002226.02101,"619,63629-5435-04 ",.02)
 ;;63629-5435-04
 ;;9002226.02101,"619,63629-5435-05 ",.01)
 ;;63629-5435-05
 ;;9002226.02101,"619,63629-5435-05 ",.02)
 ;;63629-5435-05
 ;;9002226.02101,"619,63629-5435-06 ",.01)
 ;;63629-5435-06
 ;;9002226.02101,"619,63629-5435-06 ",.02)
 ;;63629-5435-06
 ;;9002226.02101,"619,63629-5435-07 ",.01)
 ;;63629-5435-07
 ;;9002226.02101,"619,63629-5435-07 ",.02)
 ;;63629-5435-07
 ;;9002226.02101,"619,63629-5435-08 ",.01)
 ;;63629-5435-08
 ;;9002226.02101,"619,63629-5435-08 ",.02)
 ;;63629-5435-08
 ;;9002226.02101,"619,63629-5435-09 ",.01)
 ;;63629-5435-09
 ;;9002226.02101,"619,63629-5435-09 ",.02)
 ;;63629-5435-09
 ;;9002226.02101,"619,63629-5435-10 ",.01)
 ;;63629-5435-10
 ;;9002226.02101,"619,63629-5435-10 ",.02)
 ;;63629-5435-10
 ;;9002226.02101,"619,63629-5436-01 ",.01)
 ;;63629-5436-01
 ;;9002226.02101,"619,63629-5436-01 ",.02)
 ;;63629-5436-01
 ;;9002226.02101,"619,63629-5436-02 ",.01)
 ;;63629-5436-02
 ;;9002226.02101,"619,63629-5436-02 ",.02)
 ;;63629-5436-02
 ;;9002226.02101,"619,63629-5436-03 ",.01)
 ;;63629-5436-03
 ;;9002226.02101,"619,63629-5436-03 ",.02)
 ;;63629-5436-03
 ;;9002226.02101,"619,63629-5436-04 ",.01)
 ;;63629-5436-04
 ;;9002226.02101,"619,63629-5436-04 ",.02)
 ;;63629-5436-04
 ;;9002226.02101,"619,63629-5436-05 ",.01)
 ;;63629-5436-05
 ;;9002226.02101,"619,63629-5436-05 ",.02)
 ;;63629-5436-05
 ;;9002226.02101,"619,63629-5436-06 ",.01)
 ;;63629-5436-06
 ;;9002226.02101,"619,63629-5436-06 ",.02)
 ;;63629-5436-06
 ;;9002226.02101,"619,63629-5436-07 ",.01)
 ;;63629-5436-07
 ;;9002226.02101,"619,63629-5436-07 ",.02)
 ;;63629-5436-07
 ;;9002226.02101,"619,63629-5436-08 ",.01)
 ;;63629-5436-08
 ;;9002226.02101,"619,63629-5436-08 ",.02)
 ;;63629-5436-08
 ;;9002226.02101,"619,63629-5436-09 ",.01)
 ;;63629-5436-09
 ;;9002226.02101,"619,63629-5436-09 ",.02)
 ;;63629-5436-09
 ;;9002226.02101,"619,63629-5436-10 ",.01)
 ;;63629-5436-10
 ;;9002226.02101,"619,63629-5436-10 ",.02)
 ;;63629-5436-10
 ;;9002226.02101,"619,63629-5437-01 ",.01)
 ;;63629-5437-01
 ;;9002226.02101,"619,63629-5437-01 ",.02)
 ;;63629-5437-01
 ;;9002226.02101,"619,63629-5437-02 ",.01)
 ;;63629-5437-02
 ;;9002226.02101,"619,63629-5437-02 ",.02)
 ;;63629-5437-02
 ;;9002226.02101,"619,63629-5437-03 ",.01)
 ;;63629-5437-03
 ;;9002226.02101,"619,63629-5437-03 ",.02)
 ;;63629-5437-03
 ;;9002226.02101,"619,63629-5437-04 ",.01)
 ;;63629-5437-04
 ;;9002226.02101,"619,63629-5437-04 ",.02)
 ;;63629-5437-04
 ;;9002226.02101,"619,63629-5437-05 ",.01)
 ;;63629-5437-05
 ;;9002226.02101,"619,63629-5437-05 ",.02)
 ;;63629-5437-05
 ;;9002226.02101,"619,63629-5437-06 ",.01)
 ;;63629-5437-06
 ;;9002226.02101,"619,63629-5437-06 ",.02)
 ;;63629-5437-06
 ;;9002226.02101,"619,63629-5437-07 ",.01)
 ;;63629-5437-07
 ;;9002226.02101,"619,63629-5437-07 ",.02)
 ;;63629-5437-07
 ;;9002226.02101,"619,63629-5437-08 ",.01)
 ;;63629-5437-08
 ;;9002226.02101,"619,63629-5437-08 ",.02)
 ;;63629-5437-08
 ;;9002226.02101,"619,63629-5437-09 ",.01)
 ;;63629-5437-09
 ;;9002226.02101,"619,63629-5437-09 ",.02)
 ;;63629-5437-09
 ;;9002226.02101,"619,63629-5437-10 ",.01)
 ;;63629-5437-10
 ;;9002226.02101,"619,63629-5437-10 ",.02)
 ;;63629-5437-10
 ;;9002226.02101,"619,63629-5450-01 ",.01)
 ;;63629-5450-01
 ;;9002226.02101,"619,63629-5450-01 ",.02)
 ;;63629-5450-01
 ;;9002226.02101,"619,63629-5637-01 ",.01)
 ;;63629-5637-01
 ;;9002226.02101,"619,63629-5637-01 ",.02)
 ;;63629-5637-01
 ;;9002226.02101,"619,63629-5637-02 ",.01)
 ;;63629-5637-02
 ;;9002226.02101,"619,63629-5637-02 ",.02)
 ;;63629-5637-02
 ;;9002226.02101,"619,63629-5637-03 ",.01)
 ;;63629-5637-03
 ;;9002226.02101,"619,63629-5637-03 ",.02)
 ;;63629-5637-03
 ;;9002226.02101,"619,63629-5637-04 ",.01)
 ;;63629-5637-04
 ;;9002226.02101,"619,63629-5637-04 ",.02)
 ;;63629-5637-04
 ;;9002226.02101,"619,63629-5641-01 ",.01)
 ;;63629-5641-01
 ;;9002226.02101,"619,63629-5641-01 ",.02)
 ;;63629-5641-01
 ;;9002226.02101,"619,63629-5641-02 ",.01)
 ;;63629-5641-02
 ;;9002226.02101,"619,63629-5641-02 ",.02)
 ;;63629-5641-02
 ;;9002226.02101,"619,63629-5641-03 ",.01)
 ;;63629-5641-03
 ;;9002226.02101,"619,63629-5641-03 ",.02)
 ;;63629-5641-03
 ;;9002226.02101,"619,63629-5641-04 ",.01)
 ;;63629-5641-04
 ;;9002226.02101,"619,63629-5641-04 ",.02)
 ;;63629-5641-04
 ;;9002226.02101,"619,63629-6831-01 ",.01)
 ;;63629-6831-01
 ;;9002226.02101,"619,63629-6831-01 ",.02)
 ;;63629-6831-01
 ;;9002226.02101,"619,63629-6851-01 ",.01)
 ;;63629-6851-01
 ;;9002226.02101,"619,63629-6851-01 ",.02)
 ;;63629-6851-01
 ;;9002226.02101,"619,63629-6851-02 ",.01)
 ;;63629-6851-02
 ;;9002226.02101,"619,63629-6851-02 ",.02)
 ;;63629-6851-02
 ;;9002226.02101,"619,63629-6851-03 ",.01)
 ;;63629-6851-03
 ;;9002226.02101,"619,63629-6851-03 ",.02)
 ;;63629-6851-03
 ;;9002226.02101,"619,63717-0875-16 ",.01)
 ;;63717-0875-16