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

BGP82Z66.m

Go to the documentation of this file.
BGP82Z66 ; 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-3763-02 ",.02)
 ;;63629-3763-02
 ;;9002226.02101,"619,63629-3763-03 ",.01)
 ;;63629-3763-03
 ;;9002226.02101,"619,63629-3763-03 ",.02)
 ;;63629-3763-03
 ;;9002226.02101,"619,63629-3764-01 ",.01)
 ;;63629-3764-01
 ;;9002226.02101,"619,63629-3764-01 ",.02)
 ;;63629-3764-01
 ;;9002226.02101,"619,63629-3764-02 ",.01)
 ;;63629-3764-02
 ;;9002226.02101,"619,63629-3764-02 ",.02)
 ;;63629-3764-02
 ;;9002226.02101,"619,63629-3764-03 ",.01)
 ;;63629-3764-03
 ;;9002226.02101,"619,63629-3764-03 ",.02)
 ;;63629-3764-03
 ;;9002226.02101,"619,63629-3765-01 ",.01)
 ;;63629-3765-01
 ;;9002226.02101,"619,63629-3765-01 ",.02)
 ;;63629-3765-01
 ;;9002226.02101,"619,63629-3766-01 ",.01)
 ;;63629-3766-01
 ;;9002226.02101,"619,63629-3766-01 ",.02)
 ;;63629-3766-01
 ;;9002226.02101,"619,63629-3766-02 ",.01)
 ;;63629-3766-02
 ;;9002226.02101,"619,63629-3766-02 ",.02)
 ;;63629-3766-02
 ;;9002226.02101,"619,63629-3767-01 ",.01)
 ;;63629-3767-01
 ;;9002226.02101,"619,63629-3767-01 ",.02)
 ;;63629-3767-01
 ;;9002226.02101,"619,63629-3767-02 ",.01)
 ;;63629-3767-02
 ;;9002226.02101,"619,63629-3767-02 ",.02)
 ;;63629-3767-02
 ;;9002226.02101,"619,63629-3770-01 ",.01)
 ;;63629-3770-01
 ;;9002226.02101,"619,63629-3770-01 ",.02)
 ;;63629-3770-01
 ;;9002226.02101,"619,63629-3770-02 ",.01)
 ;;63629-3770-02
 ;;9002226.02101,"619,63629-3770-02 ",.02)
 ;;63629-3770-02
 ;;9002226.02101,"619,63629-3770-03 ",.01)
 ;;63629-3770-03
 ;;9002226.02101,"619,63629-3770-03 ",.02)
 ;;63629-3770-03
 ;;9002226.02101,"619,63629-3770-04 ",.01)
 ;;63629-3770-04
 ;;9002226.02101,"619,63629-3770-04 ",.02)
 ;;63629-3770-04
 ;;9002226.02101,"619,63629-3770-05 ",.01)
 ;;63629-3770-05
 ;;9002226.02101,"619,63629-3770-05 ",.02)
 ;;63629-3770-05
 ;;9002226.02101,"619,63629-3771-01 ",.01)
 ;;63629-3771-01
 ;;9002226.02101,"619,63629-3771-01 ",.02)
 ;;63629-3771-01
 ;;9002226.02101,"619,63629-3771-02 ",.01)
 ;;63629-3771-02
 ;;9002226.02101,"619,63629-3771-02 ",.02)
 ;;63629-3771-02
 ;;9002226.02101,"619,63629-3771-03 ",.01)
 ;;63629-3771-03
 ;;9002226.02101,"619,63629-3771-03 ",.02)
 ;;63629-3771-03
 ;;9002226.02101,"619,63629-3771-04 ",.01)
 ;;63629-3771-04
 ;;9002226.02101,"619,63629-3771-04 ",.02)
 ;;63629-3771-04
 ;;9002226.02101,"619,63629-3771-05 ",.01)
 ;;63629-3771-05
 ;;9002226.02101,"619,63629-3771-05 ",.02)
 ;;63629-3771-05
 ;;9002226.02101,"619,63629-3771-06 ",.01)
 ;;63629-3771-06
 ;;9002226.02101,"619,63629-3771-06 ",.02)
 ;;63629-3771-06
 ;;9002226.02101,"619,63629-3771-07 ",.01)
 ;;63629-3771-07
 ;;9002226.02101,"619,63629-3771-07 ",.02)
 ;;63629-3771-07
 ;;9002226.02101,"619,63629-3771-08 ",.01)
 ;;63629-3771-08
 ;;9002226.02101,"619,63629-3771-08 ",.02)
 ;;63629-3771-08
 ;;9002226.02101,"619,63629-3771-09 ",.01)
 ;;63629-3771-09
 ;;9002226.02101,"619,63629-3771-09 ",.02)
 ;;63629-3771-09
 ;;9002226.02101,"619,63629-3771-10 ",.01)
 ;;63629-3771-10
 ;;9002226.02101,"619,63629-3771-10 ",.02)
 ;;63629-3771-10
 ;;9002226.02101,"619,63629-3772-01 ",.01)
 ;;63629-3772-01
 ;;9002226.02101,"619,63629-3772-01 ",.02)
 ;;63629-3772-01
 ;;9002226.02101,"619,63629-3772-02 ",.01)
 ;;63629-3772-02
 ;;9002226.02101,"619,63629-3772-02 ",.02)
 ;;63629-3772-02
 ;;9002226.02101,"619,63629-3772-03 ",.01)
 ;;63629-3772-03
 ;;9002226.02101,"619,63629-3772-03 ",.02)
 ;;63629-3772-03
 ;;9002226.02101,"619,63629-3772-04 ",.01)
 ;;63629-3772-04
 ;;9002226.02101,"619,63629-3772-04 ",.02)
 ;;63629-3772-04
 ;;9002226.02101,"619,63629-3772-05 ",.01)
 ;;63629-3772-05
 ;;9002226.02101,"619,63629-3772-05 ",.02)
 ;;63629-3772-05
 ;;9002226.02101,"619,63629-3774-01 ",.01)
 ;;63629-3774-01
 ;;9002226.02101,"619,63629-3774-01 ",.02)
 ;;63629-3774-01
 ;;9002226.02101,"619,63629-3774-02 ",.01)
 ;;63629-3774-02
 ;;9002226.02101,"619,63629-3774-02 ",.02)
 ;;63629-3774-02
 ;;9002226.02101,"619,63629-3774-03 ",.01)
 ;;63629-3774-03
 ;;9002226.02101,"619,63629-3774-03 ",.02)
 ;;63629-3774-03
 ;;9002226.02101,"619,63629-3774-04 ",.01)
 ;;63629-3774-04
 ;;9002226.02101,"619,63629-3774-04 ",.02)
 ;;63629-3774-04
 ;;9002226.02101,"619,63629-3775-01 ",.01)
 ;;63629-3775-01
 ;;9002226.02101,"619,63629-3775-01 ",.02)
 ;;63629-3775-01
 ;;9002226.02101,"619,63629-3775-02 ",.01)
 ;;63629-3775-02
 ;;9002226.02101,"619,63629-3775-02 ",.02)
 ;;63629-3775-02
 ;;9002226.02101,"619,63629-3775-03 ",.01)
 ;;63629-3775-03
 ;;9002226.02101,"619,63629-3775-03 ",.02)
 ;;63629-3775-03
 ;;9002226.02101,"619,63629-3775-04 ",.01)
 ;;63629-3775-04
 ;;9002226.02101,"619,63629-3775-04 ",.02)
 ;;63629-3775-04
 ;;9002226.02101,"619,63629-3775-05 ",.01)
 ;;63629-3775-05
 ;;9002226.02101,"619,63629-3775-05 ",.02)
 ;;63629-3775-05
 ;;9002226.02101,"619,63629-3788-01 ",.01)
 ;;63629-3788-01
 ;;9002226.02101,"619,63629-3788-01 ",.02)
 ;;63629-3788-01
 ;;9002226.02101,"619,63629-3788-02 ",.01)
 ;;63629-3788-02
 ;;9002226.02101,"619,63629-3788-02 ",.02)
 ;;63629-3788-02
 ;;9002226.02101,"619,63629-3788-03 ",.01)
 ;;63629-3788-03
 ;;9002226.02101,"619,63629-3788-03 ",.02)
 ;;63629-3788-03
 ;;9002226.02101,"619,63629-3788-04 ",.01)
 ;;63629-3788-04
 ;;9002226.02101,"619,63629-3788-04 ",.02)
 ;;63629-3788-04
 ;;9002226.02101,"619,63629-3788-05 ",.01)
 ;;63629-3788-05
 ;;9002226.02101,"619,63629-3788-05 ",.02)
 ;;63629-3788-05
 ;;9002226.02101,"619,63629-3789-01 ",.01)
 ;;63629-3789-01
 ;;9002226.02101,"619,63629-3789-01 ",.02)
 ;;63629-3789-01
 ;;9002226.02101,"619,63629-3789-02 ",.01)
 ;;63629-3789-02
 ;;9002226.02101,"619,63629-3789-02 ",.02)
 ;;63629-3789-02
 ;;9002226.02101,"619,63629-3789-03 ",.01)
 ;;63629-3789-03
 ;;9002226.02101,"619,63629-3789-03 ",.02)
 ;;63629-3789-03
 ;;9002226.02101,"619,63629-3798-00 ",.01)
 ;;63629-3798-00
 ;;9002226.02101,"619,63629-3798-00 ",.02)
 ;;63629-3798-00
 ;;9002226.02101,"619,63629-3798-01 ",.01)
 ;;63629-3798-01
 ;;9002226.02101,"619,63629-3798-01 ",.02)
 ;;63629-3798-01
 ;;9002226.02101,"619,63629-3798-02 ",.01)
 ;;63629-3798-02
 ;;9002226.02101,"619,63629-3798-02 ",.02)
 ;;63629-3798-02
 ;;9002226.02101,"619,63629-3798-03 ",.01)
 ;;63629-3798-03
 ;;9002226.02101,"619,63629-3798-03 ",.02)
 ;;63629-3798-03
 ;;9002226.02101,"619,63629-3798-04 ",.01)
 ;;63629-3798-04
 ;;9002226.02101,"619,63629-3798-04 ",.02)
 ;;63629-3798-04
 ;;9002226.02101,"619,63629-3798-05 ",.01)
 ;;63629-3798-05
 ;;9002226.02101,"619,63629-3798-05 ",.02)
 ;;63629-3798-05
 ;;9002226.02101,"619,63629-3798-06 ",.01)
 ;;63629-3798-06
 ;;9002226.02101,"619,63629-3798-06 ",.02)
 ;;63629-3798-06
 ;;9002226.02101,"619,63629-3798-07 ",.01)
 ;;63629-3798-07
 ;;9002226.02101,"619,63629-3798-07 ",.02)
 ;;63629-3798-07
 ;;9002226.02101,"619,63629-3798-08 ",.01)
 ;;63629-3798-08
 ;;9002226.02101,"619,63629-3798-08 ",.02)
 ;;63629-3798-08
 ;;9002226.02101,"619,63629-3798-09 ",.01)
 ;;63629-3798-09
 ;;9002226.02101,"619,63629-3798-09 ",.02)
 ;;63629-3798-09
 ;;9002226.02101,"619,63629-3798-10 ",.01)
 ;;63629-3798-10
 ;;9002226.02101,"619,63629-3798-10 ",.02)
 ;;63629-3798-10
 ;;9002226.02101,"619,63629-3803-01 ",.01)
 ;;63629-3803-01
 ;;9002226.02101,"619,63629-3803-01 ",.02)
 ;;63629-3803-01
 ;;9002226.02101,"619,63629-3803-02 ",.01)
 ;;63629-3803-02
 ;;9002226.02101,"619,63629-3803-02 ",.02)
 ;;63629-3803-02
 ;;9002226.02101,"619,63629-3803-03 ",.01)
 ;;63629-3803-03
 ;;9002226.02101,"619,63629-3803-03 ",.02)
 ;;63629-3803-03
 ;;9002226.02101,"619,63629-3803-04 ",.01)
 ;;63629-3803-04
 ;;9002226.02101,"619,63629-3803-04 ",.02)
 ;;63629-3803-04
 ;;9002226.02101,"619,63629-3861-01 ",.01)
 ;;63629-3861-01
 ;;9002226.02101,"619,63629-3861-01 ",.02)
 ;;63629-3861-01
 ;;9002226.02101,"619,63629-3861-02 ",.01)
 ;;63629-3861-02
 ;;9002226.02101,"619,63629-3861-02 ",.02)
 ;;63629-3861-02
 ;;9002226.02101,"619,63629-3861-03 ",.01)
 ;;63629-3861-03
 ;;9002226.02101,"619,63629-3861-03 ",.02)
 ;;63629-3861-03
 ;;9002226.02101,"619,63629-3861-04 ",.01)
 ;;63629-3861-04
 ;;9002226.02101,"619,63629-3861-04 ",.02)
 ;;63629-3861-04
 ;;9002226.02101,"619,63629-3861-05 ",.01)
 ;;63629-3861-05
 ;;9002226.02101,"619,63629-3861-05 ",.02)
 ;;63629-3861-05
 ;;9002226.02101,"619,63629-3953-01 ",.01)
 ;;63629-3953-01
 ;;9002226.02101,"619,63629-3953-01 ",.02)
 ;;63629-3953-01
 ;;9002226.02101,"619,63629-3953-02 ",.01)
 ;;63629-3953-02
 ;;9002226.02101,"619,63629-3953-02 ",.02)
 ;;63629-3953-02
 ;;9002226.02101,"619,63629-3953-03 ",.01)
 ;;63629-3953-03
 ;;9002226.02101,"619,63629-3953-03 ",.02)
 ;;63629-3953-03
 ;;9002226.02101,"619,63629-3953-04 ",.01)
 ;;63629-3953-04
 ;;9002226.02101,"619,63629-3953-04 ",.02)
 ;;63629-3953-04
 ;;9002226.02101,"619,63629-3953-05 ",.01)
 ;;63629-3953-05
 ;;9002226.02101,"619,63629-3953-05 ",.02)
 ;;63629-3953-05
 ;;9002226.02101,"619,63629-3953-06 ",.01)
 ;;63629-3953-06
 ;;9002226.02101,"619,63629-3953-06 ",.02)
 ;;63629-3953-06
 ;;9002226.02101,"619,63629-3953-07 ",.01)
 ;;63629-3953-07
 ;;9002226.02101,"619,63629-3953-07 ",.02)
 ;;63629-3953-07
 ;;9002226.02101,"619,63629-3953-08 ",.01)
 ;;63629-3953-08
 ;;9002226.02101,"619,63629-3953-08 ",.02)
 ;;63629-3953-08
 ;;9002226.02101,"619,63629-3953-09 ",.01)
 ;;63629-3953-09
 ;;9002226.02101,"619,63629-3953-09 ",.02)
 ;;63629-3953-09
 ;;9002226.02101,"619,63629-3953-10 ",.01)
 ;;63629-3953-10
 ;;9002226.02101,"619,63629-3953-10 ",.02)
 ;;63629-3953-10
 ;;9002226.02101,"619,63629-3975-01 ",.01)
 ;;63629-3975-01
 ;;9002226.02101,"619,63629-3975-01 ",.02)
 ;;63629-3975-01
 ;;9002226.02101,"619,63629-3975-02 ",.01)
 ;;63629-3975-02
 ;;9002226.02101,"619,63629-3975-02 ",.02)
 ;;63629-3975-02
 ;;9002226.02101,"619,63629-3975-03 ",.01)
 ;;63629-3975-03
 ;;9002226.02101,"619,63629-3975-03 ",.02)
 ;;63629-3975-03
 ;;9002226.02101,"619,63629-3976-01 ",.01)
 ;;63629-3976-01
 ;;9002226.02101,"619,63629-3976-01 ",.02)
 ;;63629-3976-01
 ;;9002226.02101,"619,63629-3976-02 ",.01)
 ;;63629-3976-02
 ;;9002226.02101,"619,63629-3976-02 ",.02)
 ;;63629-3976-02
 ;;9002226.02101,"619,63629-3979-01 ",.01)
 ;;63629-3979-01
 ;;9002226.02101,"619,63629-3979-01 ",.02)
 ;;63629-3979-01
 ;;9002226.02101,"619,63629-3979-02 ",.01)
 ;;63629-3979-02
 ;;9002226.02101,"619,63629-3979-02 ",.02)
 ;;63629-3979-02
 ;;9002226.02101,"619,63629-3979-03 ",.01)
 ;;63629-3979-03
 ;;9002226.02101,"619,63629-3979-03 ",.02)
 ;;63629-3979-03
 ;;9002226.02101,"619,63629-4000-01 ",.01)
 ;;63629-4000-01
 ;;9002226.02101,"619,63629-4000-01 ",.02)
 ;;63629-4000-01
 ;;9002226.02101,"619,63629-4000-02 ",.01)
 ;;63629-4000-02
 ;;9002226.02101,"619,63629-4000-02 ",.02)
 ;;63629-4000-02
 ;;9002226.02101,"619,63629-4000-03 ",.01)
 ;;63629-4000-03
 ;;9002226.02101,"619,63629-4000-03 ",.02)
 ;;63629-4000-03
 ;;9002226.02101,"619,63629-4000-04 ",.01)
 ;;63629-4000-04
 ;;9002226.02101,"619,63629-4000-04 ",.02)
 ;;63629-4000-04
 ;;9002226.02101,"619,63629-4000-05 ",.01)
 ;;63629-4000-05
 ;;9002226.02101,"619,63629-4000-05 ",.02)
 ;;63629-4000-05
 ;;9002226.02101,"619,63629-4000-06 ",.01)
 ;;63629-4000-06
 ;;9002226.02101,"619,63629-4000-06 ",.02)
 ;;63629-4000-06
 ;;9002226.02101,"619,63629-4000-07 ",.01)
 ;;63629-4000-07
 ;;9002226.02101,"619,63629-4000-07 ",.02)
 ;;63629-4000-07
 ;;9002226.02101,"619,63629-4009-01 ",.01)
 ;;63629-4009-01
 ;;9002226.02101,"619,63629-4009-01 ",.02)
 ;;63629-4009-01
 ;;9002226.02101,"619,63629-4068-01 ",.01)
 ;;63629-4068-01
 ;;9002226.02101,"619,63629-4068-01 ",.02)
 ;;63629-4068-01
 ;;9002226.02101,"619,63629-4068-02 ",.01)
 ;;63629-4068-02
 ;;9002226.02101,"619,63629-4068-02 ",.02)
 ;;63629-4068-02
 ;;9002226.02101,"619,63629-4068-03 ",.01)
 ;;63629-4068-03
 ;;9002226.02101,"619,63629-4068-03 ",.02)
 ;;63629-4068-03
 ;;9002226.02101,"619,63629-4068-04 ",.01)
 ;;63629-4068-04