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

BGP8ZI22.m

Go to the documentation of this file.
BGP8ZI22 ;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,"869,00378-4187-01 ",.01)
 ;;00378-4187-01
 ;;9002226.02101,"869,00378-4187-01 ",.02)
 ;;00378-4187-01
 ;;9002226.02101,"869,00378-4187-05 ",.01)
 ;;00378-4187-05
 ;;9002226.02101,"869,00378-4187-05 ",.02)
 ;;00378-4187-05
 ;;9002226.02101,"869,00378-4187-93 ",.01)
 ;;00378-4187-93
 ;;9002226.02101,"869,00378-4187-93 ",.02)
 ;;00378-4187-93
 ;;9002226.02101,"869,00378-4188-01 ",.01)
 ;;00378-4188-01
 ;;9002226.02101,"869,00378-4188-01 ",.02)
 ;;00378-4188-01
 ;;9002226.02101,"869,00378-4188-05 ",.01)
 ;;00378-4188-05
 ;;9002226.02101,"869,00378-4188-05 ",.02)
 ;;00378-4188-05
 ;;9002226.02101,"869,00378-4188-93 ",.01)
 ;;00378-4188-93
 ;;9002226.02101,"869,00378-4188-93 ",.02)
 ;;00378-4188-93
 ;;9002226.02101,"869,00378-4220-01 ",.01)
 ;;00378-4220-01
 ;;9002226.02101,"869,00378-4220-01 ",.02)
 ;;00378-4220-01
 ;;9002226.02101,"869,00378-4230-77 ",.01)
 ;;00378-4230-77
 ;;9002226.02101,"869,00378-4230-77 ",.02)
 ;;00378-4230-77
 ;;9002226.02101,"869,00378-4230-93 ",.01)
 ;;00378-4230-93
 ;;9002226.02101,"869,00378-4230-93 ",.02)
 ;;00378-4230-93
 ;;9002226.02101,"869,00378-4231-77 ",.01)
 ;;00378-4231-77
 ;;9002226.02101,"869,00378-4231-77 ",.02)
 ;;00378-4231-77
 ;;9002226.02101,"869,00378-4231-93 ",.01)
 ;;00378-4231-93
 ;;9002226.02101,"869,00378-4231-93 ",.02)
 ;;00378-4231-93
 ;;9002226.02101,"869,00378-4250-01 ",.01)
 ;;00378-4250-01
 ;;9002226.02101,"869,00378-4250-01 ",.02)
 ;;00378-4250-01
 ;;9002226.02101,"869,00378-4250-10 ",.01)
 ;;00378-4250-10
 ;;9002226.02101,"869,00378-4250-10 ",.02)
 ;;00378-4250-10
 ;;9002226.02101,"869,00378-4350-93 ",.01)
 ;;00378-4350-93
 ;;9002226.02101,"869,00378-4350-93 ",.02)
 ;;00378-4350-93
 ;;9002226.02101,"869,00378-4881-01 ",.01)
 ;;00378-4881-01
 ;;9002226.02101,"869,00378-4881-01 ",.02)
 ;;00378-4881-01
 ;;9002226.02101,"869,00378-4882-01 ",.01)
 ;;00378-4882-01
 ;;9002226.02101,"869,00378-4882-01 ",.02)
 ;;00378-4882-01
 ;;9002226.02101,"869,00378-4883-01 ",.01)
 ;;00378-4883-01
 ;;9002226.02101,"869,00378-4883-01 ",.02)
 ;;00378-4883-01
 ;;9002226.02101,"869,00378-4884-01 ",.01)
 ;;00378-4884-01
 ;;9002226.02101,"869,00378-4884-01 ",.02)
 ;;00378-4884-01
 ;;9002226.02101,"869,00378-4885-01 ",.01)
 ;;00378-4885-01
 ;;9002226.02101,"869,00378-4885-01 ",.02)
 ;;00378-4885-01
 ;;9002226.02101,"869,00378-5375-01 ",.01)
 ;;00378-5375-01
 ;;9002226.02101,"869,00378-5375-01 ",.02)
 ;;00378-5375-01
 ;;9002226.02101,"869,00378-5375-10 ",.01)
 ;;00378-5375-10
 ;;9002226.02101,"869,00378-5375-10 ",.02)
 ;;00378-5375-10
 ;;9002226.02101,"869,00378-5410-28 ",.01)
 ;;00378-5410-28
 ;;9002226.02101,"869,00378-5410-28 ",.02)
 ;;00378-5410-28
 ;;9002226.02101,"869,00378-5420-28 ",.01)
 ;;00378-5420-28
 ;;9002226.02101,"869,00378-5420-28 ",.02)
 ;;00378-5420-28
 ;;9002226.02101,"869,00378-5521-01 ",.01)
 ;;00378-5521-01
 ;;9002226.02101,"869,00378-5521-01 ",.02)
 ;;00378-5521-01
 ;;9002226.02101,"869,00378-6231-01 ",.01)
 ;;00378-6231-01
 ;;9002226.02101,"869,00378-6231-01 ",.02)
 ;;00378-6231-01
 ;;9002226.02101,"869,00378-6231-05 ",.01)
 ;;00378-6231-05
 ;;9002226.02101,"869,00378-6231-05 ",.02)
 ;;00378-6231-05
 ;;9002226.02101,"869,00378-6232-01 ",.01)
 ;;00378-6232-01
 ;;9002226.02101,"869,00378-6232-01 ",.02)
 ;;00378-6232-01
 ;;9002226.02101,"869,00378-6232-05 ",.01)
 ;;00378-6232-05
 ;;9002226.02101,"869,00378-6232-05 ",.02)
 ;;00378-6232-05
 ;;9002226.02101,"869,00378-6233-01 ",.01)
 ;;00378-6233-01
 ;;9002226.02101,"869,00378-6233-01 ",.02)
 ;;00378-6233-01
 ;;9002226.02101,"869,00378-6233-05 ",.01)
 ;;00378-6233-05
 ;;9002226.02101,"869,00378-6233-05 ",.02)
 ;;00378-6233-05
 ;;9002226.02101,"869,00378-6410-01 ",.01)
 ;;00378-6410-01
 ;;9002226.02101,"869,00378-6410-01 ",.02)
 ;;00378-6410-01
 ;;9002226.02101,"869,00378-6410-10 ",.01)
 ;;00378-6410-10
 ;;9002226.02101,"869,00378-6410-10 ",.02)
 ;;00378-6410-10
 ;;9002226.02101,"869,00378-7001-10 ",.01)
 ;;00378-7001-10
 ;;9002226.02101,"869,00378-7001-10 ",.02)
 ;;00378-7001-10
 ;;9002226.02101,"869,00378-7001-93 ",.01)
 ;;00378-7001-93
 ;;9002226.02101,"869,00378-7001-93 ",.02)
 ;;00378-7001-93
 ;;9002226.02101,"869,00378-7002-10 ",.01)
 ;;00378-7002-10
 ;;9002226.02101,"869,00378-7002-10 ",.02)
 ;;00378-7002-10
 ;;9002226.02101,"869,00378-7002-93 ",.01)
 ;;00378-7002-93
 ;;9002226.02101,"869,00378-7002-93 ",.02)
 ;;00378-7002-93
 ;;9002226.02101,"869,00378-7003-10 ",.01)
 ;;00378-7003-10
 ;;9002226.02101,"869,00378-7003-10 ",.02)
 ;;00378-7003-10
 ;;9002226.02101,"869,00378-7003-93 ",.01)
 ;;00378-7003-93
 ;;9002226.02101,"869,00378-7003-93 ",.02)
 ;;00378-7003-93
 ;;9002226.02101,"869,00378-7004-10 ",.01)
 ;;00378-7004-10
 ;;9002226.02101,"869,00378-7004-10 ",.02)
 ;;00378-7004-10
 ;;9002226.02101,"869,00378-7004-93 ",.01)
 ;;00378-7004-93
 ;;9002226.02101,"869,00378-7004-93 ",.02)
 ;;00378-7004-93
 ;;9002226.02101,"869,00378-8011-01 ",.01)
 ;;00378-8011-01
 ;;9002226.02101,"869,00378-8011-01 ",.02)
 ;;00378-8011-01
 ;;9002226.02101,"869,00378-8011-05 ",.01)
 ;;00378-8011-05
 ;;9002226.02101,"869,00378-8011-05 ",.02)
 ;;00378-8011-05
 ;;9002226.02101,"869,00378-8121-01 ",.01)
 ;;00378-8121-01
 ;;9002226.02101,"869,00378-8121-01 ",.02)
 ;;00378-8121-01
 ;;9002226.02101,"869,00378-8121-05 ",.01)
 ;;00378-8121-05
 ;;9002226.02101,"869,00378-8121-05 ",.02)
 ;;00378-8121-05
 ;;9002226.02101,"869,00378-8127-01 ",.01)
 ;;00378-8127-01
 ;;9002226.02101,"869,00378-8127-01 ",.02)
 ;;00378-8127-01
 ;;9002226.02101,"869,00378-8127-05 ",.01)
 ;;00378-8127-05
 ;;9002226.02101,"869,00378-8127-05 ",.02)
 ;;00378-8127-05
 ;;9002226.02101,"869,00378-9290-10 ",.01)
 ;;00378-9290-10
 ;;9002226.02101,"869,00378-9290-10 ",.02)
 ;;00378-9290-10
 ;;9002226.02101,"869,00378-9290-91 ",.01)
 ;;00378-9290-91
 ;;9002226.02101,"869,00378-9290-91 ",.02)
 ;;00378-9290-91
 ;;9002226.02101,"869,00406-0661-91 ",.01)
 ;;00406-0661-91
 ;;9002226.02101,"869,00406-0661-91 ",.02)
 ;;00406-0661-91
 ;;9002226.02101,"869,00406-2001-03 ",.01)
 ;;00406-2001-03
 ;;9002226.02101,"869,00406-2001-03 ",.02)
 ;;00406-2001-03
 ;;9002226.02101,"869,00406-2001-05 ",.01)
 ;;00406-2001-05
 ;;9002226.02101,"869,00406-2001-05 ",.02)
 ;;00406-2001-05
 ;;9002226.02101,"869,00406-2001-90 ",.01)
 ;;00406-2001-90
 ;;9002226.02101,"869,00406-2001-90 ",.02)
 ;;00406-2001-90
 ;;9002226.02101,"869,00406-2097-03 ",.01)
 ;;00406-2097-03
 ;;9002226.02101,"869,00406-2097-03 ",.02)
 ;;00406-2097-03
 ;;9002226.02101,"869,00406-2097-05 ",.01)
 ;;00406-2097-05
 ;;9002226.02101,"869,00406-2097-05 ",.02)
 ;;00406-2097-05
 ;;9002226.02101,"869,00406-2097-90 ",.01)
 ;;00406-2097-90
 ;;9002226.02101,"869,00406-2097-90 ",.02)
 ;;00406-2097-90
 ;;9002226.02101,"869,00406-2098-01 ",.01)
 ;;00406-2098-01
 ;;9002226.02101,"869,00406-2098-01 ",.02)
 ;;00406-2098-01
 ;;9002226.02101,"869,00406-2098-03 ",.01)
 ;;00406-2098-03
 ;;9002226.02101,"869,00406-2098-03 ",.02)
 ;;00406-2098-03
 ;;9002226.02101,"869,00406-2098-05 ",.01)
 ;;00406-2098-05
 ;;9002226.02101,"869,00406-2098-05 ",.02)
 ;;00406-2098-05
 ;;9002226.02101,"869,00406-2098-90 ",.01)
 ;;00406-2098-90
 ;;9002226.02101,"869,00406-2098-90 ",.02)
 ;;00406-2098-90
 ;;9002226.02101,"869,00406-2099-03 ",.01)
 ;;00406-2099-03
 ;;9002226.02101,"869,00406-2099-03 ",.02)
 ;;00406-2099-03
 ;;9002226.02101,"869,00406-2099-05 ",.01)
 ;;00406-2099-05
 ;;9002226.02101,"869,00406-2099-05 ",.02)
 ;;00406-2099-05
 ;;9002226.02101,"869,00406-2099-90 ",.01)
 ;;00406-2099-90
 ;;9002226.02101,"869,00406-2099-90 ",.02)
 ;;00406-2099-90
 ;;9002226.02101,"869,00406-8806-01 ",.01)
 ;;00406-8806-01
 ;;9002226.02101,"869,00406-8806-01 ",.02)
 ;;00406-8806-01
 ;;9002226.02101,"869,00406-8807-01 ",.01)
 ;;00406-8807-01
 ;;9002226.02101,"869,00406-8807-01 ",.02)
 ;;00406-8807-01
 ;;9002226.02101,"869,00406-8808-01 ",.01)
 ;;00406-8808-01
 ;;9002226.02101,"869,00406-8808-01 ",.02)
 ;;00406-8808-01
 ;;9002226.02101,"869,00406-9906-01 ",.01)
 ;;00406-9906-01
 ;;9002226.02101,"869,00406-9906-01 ",.02)
 ;;00406-9906-01
 ;;9002226.02101,"869,00406-9906-03 ",.01)
 ;;00406-9906-03
 ;;9002226.02101,"869,00406-9906-03 ",.02)
 ;;00406-9906-03
 ;;9002226.02101,"869,00406-9906-62 ",.01)
 ;;00406-9906-62
 ;;9002226.02101,"869,00406-9906-62 ",.02)
 ;;00406-9906-62
 ;;9002226.02101,"869,00406-9907-01 ",.01)
 ;;00406-9907-01
 ;;9002226.02101,"869,00406-9907-01 ",.02)
 ;;00406-9907-01
 ;;9002226.02101,"869,00406-9907-03 ",.01)
 ;;00406-9907-03
 ;;9002226.02101,"869,00406-9907-03 ",.02)
 ;;00406-9907-03
 ;;9002226.02101,"869,00406-9907-62 ",.01)
 ;;00406-9907-62
 ;;9002226.02101,"869,00406-9907-62 ",.02)
 ;;00406-9907-62
 ;;9002226.02101,"869,00406-9908-01 ",.01)
 ;;00406-9908-01
 ;;9002226.02101,"869,00406-9908-01 ",.02)
 ;;00406-9908-01
 ;;9002226.02101,"869,00406-9908-03 ",.01)
 ;;00406-9908-03
 ;;9002226.02101,"869,00406-9908-03 ",.02)
 ;;00406-9908-03
 ;;9002226.02101,"869,00406-9910-01 ",.01)
 ;;00406-9910-01
 ;;9002226.02101,"869,00406-9910-01 ",.02)
 ;;00406-9910-01
 ;;9002226.02101,"869,00406-9910-03 ",.01)
 ;;00406-9910-03
 ;;9002226.02101,"869,00406-9910-03 ",.02)
 ;;00406-9910-03
 ;;9002226.02101,"869,00406-9911-01 ",.01)
 ;;00406-9911-01
 ;;9002226.02101,"869,00406-9911-01 ",.02)
 ;;00406-9911-01
 ;;9002226.02101,"869,00406-9911-03 ",.01)
 ;;00406-9911-03
 ;;9002226.02101,"869,00406-9911-03 ",.02)
 ;;00406-9911-03
 ;;9002226.02101,"869,00406-9912-01 ",.01)
 ;;00406-9912-01
 ;;9002226.02101,"869,00406-9912-01 ",.02)
 ;;00406-9912-01
 ;;9002226.02101,"869,00406-9912-03 ",.01)
 ;;00406-9912-03
 ;;9002226.02101,"869,00406-9912-03 ",.02)
 ;;00406-9912-03
 ;;9002226.02101,"869,00406-9913-03 ",.01)
 ;;00406-9913-03
 ;;9002226.02101,"869,00406-9913-03 ",.02)
 ;;00406-9913-03
 ;;9002226.02101,"869,00406-9920-03 ",.01)
 ;;00406-9920-03
 ;;9002226.02101,"869,00406-9920-03 ",.02)
 ;;00406-9920-03
 ;;9002226.02101,"869,00406-9921-03 ",.01)
 ;;00406-9921-03
 ;;9002226.02101,"869,00406-9921-03 ",.02)
 ;;00406-9921-03
 ;;9002226.02101,"869,00406-9922-01 ",.01)
 ;;00406-9922-01
 ;;9002226.02101,"869,00406-9922-01 ",.02)
 ;;00406-9922-01
 ;;9002226.02101,"869,00406-9922-03 ",.01)
 ;;00406-9922-03
 ;;9002226.02101,"869,00406-9922-03 ",.02)
 ;;00406-9922-03
 ;;9002226.02101,"869,00406-9923-01 ",.01)
 ;;00406-9923-01
 ;;9002226.02101,"869,00406-9923-01 ",.02)
 ;;00406-9923-01
 ;;9002226.02101,"869,00406-9923-03 ",.01)
 ;;00406-9923-03
 ;;9002226.02101,"869,00406-9923-03 ",.02)
 ;;00406-9923-03
 ;;9002226.02101,"869,00406-9924-01 ",.01)
 ;;00406-9924-01
 ;;9002226.02101,"869,00406-9924-01 ",.02)
 ;;00406-9924-01
 ;;9002226.02101,"869,00406-9924-03 ",.01)
 ;;00406-9924-03
 ;;9002226.02101,"869,00406-9924-03 ",.02)
 ;;00406-9924-03
 ;;9002226.02101,"869,00406-9925-01 ",.01)
 ;;00406-9925-01
 ;;9002226.02101,"869,00406-9925-01 ",.02)
 ;;00406-9925-01
 ;;9002226.02101,"869,00406-9925-03 ",.01)
 ;;00406-9925-03
 ;;9002226.02101,"869,00406-9925-03 ",.02)
 ;;00406-9925-03
 ;;9002226.02101,"869,00406-9926-01 ",.01)
 ;;00406-9926-01
 ;;9002226.02101,"869,00406-9926-01 ",.02)
 ;;00406-9926-01
 ;;9002226.02101,"869,00406-9926-03 ",.01)
 ;;00406-9926-03
 ;;9002226.02101,"869,00406-9926-03 ",.02)
 ;;00406-9926-03
 ;;9002226.02101,"869,00406-9931-03 ",.01)
 ;;00406-9931-03
 ;;9002226.02101,"869,00406-9931-03 ",.02)
 ;;00406-9931-03
 ;;9002226.02101,"869,00406-9932-03 ",.01)
 ;;00406-9932-03
 ;;9002226.02101,"869,00406-9932-03 ",.02)
 ;;00406-9932-03
 ;;9002226.02101,"869,00406-9933-03 ",.01)
 ;;00406-9933-03
 ;;9002226.02101,"869,00406-9933-03 ",.02)
 ;;00406-9933-03
 ;;9002226.02101,"869,00406-9934-03 ",.01)
 ;;00406-9934-03
 ;;9002226.02101,"869,00406-9934-03 ",.02)
 ;;00406-9934-03