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

BGP8ZI35.m

Go to the documentation of this file.
BGP8ZI35 ;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,43353-0429-15 ",.01)
 ;;43353-0429-15
 ;;9002226.02101,"869,43353-0429-15 ",.02)
 ;;43353-0429-15
 ;;9002226.02101,"869,43353-0435-30 ",.01)
 ;;43353-0435-30
 ;;9002226.02101,"869,43353-0435-30 ",.02)
 ;;43353-0435-30
 ;;9002226.02101,"869,43353-0441-53 ",.01)
 ;;43353-0441-53
 ;;9002226.02101,"869,43353-0441-53 ",.02)
 ;;43353-0441-53
 ;;9002226.02101,"869,43353-0447-15 ",.01)
 ;;43353-0447-15
 ;;9002226.02101,"869,43353-0447-15 ",.02)
 ;;43353-0447-15
 ;;9002226.02101,"869,43353-0536-45 ",.01)
 ;;43353-0536-45
 ;;9002226.02101,"869,43353-0536-45 ",.02)
 ;;43353-0536-45
 ;;9002226.02101,"869,43386-0360-21 ",.01)
 ;;43386-0360-21
 ;;9002226.02101,"869,43386-0360-21 ",.02)
 ;;43386-0360-21
 ;;9002226.02101,"869,43547-0280-10 ",.01)
 ;;43547-0280-10
 ;;9002226.02101,"869,43547-0280-10 ",.02)
 ;;43547-0280-10
 ;;9002226.02101,"869,43547-0280-11 ",.01)
 ;;43547-0280-11
 ;;9002226.02101,"869,43547-0280-11 ",.02)
 ;;43547-0280-11
 ;;9002226.02101,"869,43547-0281-10 ",.01)
 ;;43547-0281-10
 ;;9002226.02101,"869,43547-0281-10 ",.02)
 ;;43547-0281-10
 ;;9002226.02101,"869,43547-0281-11 ",.01)
 ;;43547-0281-11
 ;;9002226.02101,"869,43547-0281-11 ",.02)
 ;;43547-0281-11
 ;;9002226.02101,"869,43547-0282-10 ",.01)
 ;;43547-0282-10
 ;;9002226.02101,"869,43547-0282-10 ",.02)
 ;;43547-0282-10
 ;;9002226.02101,"869,43547-0282-11 ",.01)
 ;;43547-0282-11
 ;;9002226.02101,"869,43547-0282-11 ",.02)
 ;;43547-0282-11
 ;;9002226.02101,"869,43547-0288-10 ",.01)
 ;;43547-0288-10
 ;;9002226.02101,"869,43547-0288-10 ",.02)
 ;;43547-0288-10
 ;;9002226.02101,"869,43547-0289-10 ",.01)
 ;;43547-0289-10
 ;;9002226.02101,"869,43547-0289-10 ",.02)
 ;;43547-0289-10
 ;;9002226.02101,"869,43547-0290-10 ",.01)
 ;;43547-0290-10
 ;;9002226.02101,"869,43547-0290-10 ",.02)
 ;;43547-0290-10
 ;;9002226.02101,"869,43547-0347-03 ",.01)
 ;;43547-0347-03
 ;;9002226.02101,"869,43547-0347-03 ",.02)
 ;;43547-0347-03
 ;;9002226.02101,"869,43547-0347-09 ",.01)
 ;;43547-0347-09
 ;;9002226.02101,"869,43547-0347-09 ",.02)
 ;;43547-0347-09
 ;;9002226.02101,"869,43547-0347-11 ",.01)
 ;;43547-0347-11
 ;;9002226.02101,"869,43547-0347-11 ",.02)
 ;;43547-0347-11
 ;;9002226.02101,"869,43547-0347-50 ",.01)
 ;;43547-0347-50
 ;;9002226.02101,"869,43547-0347-50 ",.02)
 ;;43547-0347-50
 ;;9002226.02101,"869,43547-0348-03 ",.01)
 ;;43547-0348-03
 ;;9002226.02101,"869,43547-0348-03 ",.02)
 ;;43547-0348-03
 ;;9002226.02101,"869,43547-0348-09 ",.01)
 ;;43547-0348-09
 ;;9002226.02101,"869,43547-0348-09 ",.02)
 ;;43547-0348-09
 ;;9002226.02101,"869,43547-0348-11 ",.01)
 ;;43547-0348-11
 ;;9002226.02101,"869,43547-0348-11 ",.02)
 ;;43547-0348-11
 ;;9002226.02101,"869,43547-0348-50 ",.01)
 ;;43547-0348-50
 ;;9002226.02101,"869,43547-0348-50 ",.02)
 ;;43547-0348-50
 ;;9002226.02101,"869,43547-0349-03 ",.01)
 ;;43547-0349-03
 ;;9002226.02101,"869,43547-0349-03 ",.02)
 ;;43547-0349-03
 ;;9002226.02101,"869,43547-0349-09 ",.01)
 ;;43547-0349-09
 ;;9002226.02101,"869,43547-0349-09 ",.02)
 ;;43547-0349-09
 ;;9002226.02101,"869,43547-0349-11 ",.01)
 ;;43547-0349-11
 ;;9002226.02101,"869,43547-0349-11 ",.02)
 ;;43547-0349-11
 ;;9002226.02101,"869,43547-0349-50 ",.01)
 ;;43547-0349-50
 ;;9002226.02101,"869,43547-0349-50 ",.02)
 ;;43547-0349-50
 ;;9002226.02101,"869,43547-0350-03 ",.01)
 ;;43547-0350-03
 ;;9002226.02101,"869,43547-0350-03 ",.02)
 ;;43547-0350-03
 ;;9002226.02101,"869,43547-0350-09 ",.01)
 ;;43547-0350-09
 ;;9002226.02101,"869,43547-0350-09 ",.02)
 ;;43547-0350-09
 ;;9002226.02101,"869,43547-0350-11 ",.01)
 ;;43547-0350-11
 ;;9002226.02101,"869,43547-0350-11 ",.02)
 ;;43547-0350-11
 ;;9002226.02101,"869,43595-0080-03 ",.01)
 ;;43595-0080-03
 ;;9002226.02101,"869,43595-0080-03 ",.02)
 ;;43595-0080-03
 ;;9002226.02101,"869,43595-0081-03 ",.01)
 ;;43595-0081-03
 ;;9002226.02101,"869,43595-0081-03 ",.02)
 ;;43595-0081-03
 ;;9002226.02101,"869,43598-0536-01 ",.01)
 ;;43598-0536-01
 ;;9002226.02101,"869,43598-0536-01 ",.02)
 ;;43598-0536-01
 ;;9002226.02101,"869,43598-0536-05 ",.01)
 ;;43598-0536-05
 ;;9002226.02101,"869,43598-0536-05 ",.02)
 ;;43598-0536-05
 ;;9002226.02101,"869,43598-0536-60 ",.01)
 ;;43598-0536-60
 ;;9002226.02101,"869,43598-0536-60 ",.02)
 ;;43598-0536-60
 ;;9002226.02101,"869,43598-0537-01 ",.01)
 ;;43598-0537-01
 ;;9002226.02101,"869,43598-0537-01 ",.02)
 ;;43598-0537-01
 ;;9002226.02101,"869,43598-0537-05 ",.01)
 ;;43598-0537-05
 ;;9002226.02101,"869,43598-0537-05 ",.02)
 ;;43598-0537-05
 ;;9002226.02101,"869,43598-0537-60 ",.01)
 ;;43598-0537-60
 ;;9002226.02101,"869,43598-0537-60 ",.02)
 ;;43598-0537-60
 ;;9002226.02101,"869,43598-0538-60 ",.01)
 ;;43598-0538-60
 ;;9002226.02101,"869,43598-0538-60 ",.02)
 ;;43598-0538-60
 ;;9002226.02101,"869,44183-0880-31 ",.01)
 ;;44183-0880-31
 ;;9002226.02101,"869,44183-0880-31 ",.02)
 ;;44183-0880-31
 ;;9002226.02101,"869,44183-0880-90 ",.01)
 ;;44183-0880-90
 ;;9002226.02101,"869,44183-0880-90 ",.02)
 ;;44183-0880-90
 ;;9002226.02101,"869,44183-0890-31 ",.01)
 ;;44183-0890-31
 ;;9002226.02101,"869,44183-0890-31 ",.02)
 ;;44183-0890-31
 ;;9002226.02101,"869,44183-0890-90 ",.01)
 ;;44183-0890-90
 ;;9002226.02101,"869,44183-0890-90 ",.02)
 ;;44183-0890-90
 ;;9002226.02101,"869,45802-0306-65 ",.01)
 ;;45802-0306-65
 ;;9002226.02101,"869,45802-0306-65 ",.02)
 ;;45802-0306-65
 ;;9002226.02101,"869,45802-0306-78 ",.01)
 ;;45802-0306-78
 ;;9002226.02101,"869,45802-0306-78 ",.02)
 ;;45802-0306-78
 ;;9002226.02101,"869,45802-0596-65 ",.01)
 ;;45802-0596-65
 ;;9002226.02101,"869,45802-0596-65 ",.02)
 ;;45802-0596-65
 ;;9002226.02101,"869,45802-0596-78 ",.01)
 ;;45802-0596-78
 ;;9002226.02101,"869,45802-0596-78 ",.02)
 ;;45802-0596-78
 ;;9002226.02101,"869,45802-0616-65 ",.01)
 ;;45802-0616-65
 ;;9002226.02101,"869,45802-0616-65 ",.02)
 ;;45802-0616-65
 ;;9002226.02101,"869,45802-0616-78 ",.01)
 ;;45802-0616-78
 ;;9002226.02101,"869,45802-0616-78 ",.02)
 ;;45802-0616-78
 ;;9002226.02101,"869,45963-0141-30 ",.01)
 ;;45963-0141-30
 ;;9002226.02101,"869,45963-0141-30 ",.02)
 ;;45963-0141-30
 ;;9002226.02101,"869,45963-0141-90 ",.01)
 ;;45963-0141-90
 ;;9002226.02101,"869,45963-0141-90 ",.02)
 ;;45963-0141-90
 ;;9002226.02101,"869,45963-0142-05 ",.01)
 ;;45963-0142-05
 ;;9002226.02101,"869,45963-0142-05 ",.02)
 ;;45963-0142-05
 ;;9002226.02101,"869,45963-0142-30 ",.01)
 ;;45963-0142-30
 ;;9002226.02101,"869,45963-0142-30 ",.02)
 ;;45963-0142-30
 ;;9002226.02101,"869,45963-0142-90 ",.01)
 ;;45963-0142-90
 ;;9002226.02101,"869,45963-0142-90 ",.02)
 ;;45963-0142-90
 ;;9002226.02101,"869,45963-0293-30 ",.01)
 ;;45963-0293-30
 ;;9002226.02101,"869,45963-0293-30 ",.02)
 ;;45963-0293-30
 ;;9002226.02101,"869,45963-0294-30 ",.01)
 ;;45963-0294-30
 ;;9002226.02101,"869,45963-0294-30 ",.02)
 ;;45963-0294-30
 ;;9002226.02101,"869,45963-0295-30 ",.01)
 ;;45963-0295-30
 ;;9002226.02101,"869,45963-0295-30 ",.02)
 ;;45963-0295-30
 ;;9002226.02101,"869,45963-0341-02 ",.01)
 ;;45963-0341-02
 ;;9002226.02101,"869,45963-0341-02 ",.02)
 ;;45963-0341-02
 ;;9002226.02101,"869,45963-0342-02 ",.01)
 ;;45963-0342-02
 ;;9002226.02101,"869,45963-0342-02 ",.02)
 ;;45963-0342-02
 ;;9002226.02101,"869,45963-0343-02 ",.01)
 ;;45963-0343-02
 ;;9002226.02101,"869,45963-0343-02 ",.02)
 ;;45963-0343-02
 ;;9002226.02101,"869,45963-0344-02 ",.01)
 ;;45963-0344-02
 ;;9002226.02101,"869,45963-0344-02 ",.02)
 ;;45963-0344-02
 ;;9002226.02101,"869,45963-0345-02 ",.01)
 ;;45963-0345-02
 ;;9002226.02101,"869,45963-0345-02 ",.02)
 ;;45963-0345-02
 ;;9002226.02101,"869,45963-0346-50 ",.01)
 ;;45963-0346-50
 ;;9002226.02101,"869,45963-0346-50 ",.02)
 ;;45963-0346-50
 ;;9002226.02101,"869,47335-0381-86 ",.01)
 ;;47335-0381-86
 ;;9002226.02101,"869,47335-0381-86 ",.02)
 ;;47335-0381-86
 ;;9002226.02101,"869,47335-0381-88 ",.01)
 ;;47335-0381-88
 ;;9002226.02101,"869,47335-0381-88 ",.02)
 ;;47335-0381-88
 ;;9002226.02101,"869,47335-0382-81 ",.01)
 ;;47335-0382-81
 ;;9002226.02101,"869,47335-0382-81 ",.02)
 ;;47335-0382-81
 ;;9002226.02101,"869,47335-0382-83 ",.01)
 ;;47335-0382-83
 ;;9002226.02101,"869,47335-0382-83 ",.02)
 ;;47335-0382-83
 ;;9002226.02101,"869,47335-0383-18 ",.01)
 ;;47335-0383-18
 ;;9002226.02101,"869,47335-0383-18 ",.02)
 ;;47335-0383-18
 ;;9002226.02101,"869,47335-0383-83 ",.01)
 ;;47335-0383-83
 ;;9002226.02101,"869,47335-0383-83 ",.02)
 ;;47335-0383-83
 ;;9002226.02101,"869,47335-0736-13 ",.01)
 ;;47335-0736-13
 ;;9002226.02101,"869,47335-0736-13 ",.02)
 ;;47335-0736-13
 ;;9002226.02101,"869,47335-0736-86 ",.01)
 ;;47335-0736-86
 ;;9002226.02101,"869,47335-0736-86 ",.02)
 ;;47335-0736-86
 ;;9002226.02101,"869,47335-0736-88 ",.01)
 ;;47335-0736-88
 ;;9002226.02101,"869,47335-0736-88 ",.02)
 ;;47335-0736-88
 ;;9002226.02101,"869,47335-0737-13 ",.01)
 ;;47335-0737-13
 ;;9002226.02101,"869,47335-0737-13 ",.02)
 ;;47335-0737-13
 ;;9002226.02101,"869,47335-0737-86 ",.01)
 ;;47335-0737-86
 ;;9002226.02101,"869,47335-0737-86 ",.02)
 ;;47335-0737-86
 ;;9002226.02101,"869,47335-0737-88 ",.01)
 ;;47335-0737-88
 ;;9002226.02101,"869,47335-0737-88 ",.02)
 ;;47335-0737-88
 ;;9002226.02101,"869,47335-0738-86 ",.01)
 ;;47335-0738-86
 ;;9002226.02101,"869,47335-0738-86 ",.02)
 ;;47335-0738-86
 ;;9002226.02101,"869,47335-0747-81 ",.01)
 ;;47335-0747-81
 ;;9002226.02101,"869,47335-0747-81 ",.02)
 ;;47335-0747-81
 ;;9002226.02101,"869,47335-0747-83 ",.01)
 ;;47335-0747-83
 ;;9002226.02101,"869,47335-0747-83 ",.02)
 ;;47335-0747-83
 ;;9002226.02101,"869,47335-0804-83 ",.01)
 ;;47335-0804-83
 ;;9002226.02101,"869,47335-0804-83 ",.02)
 ;;47335-0804-83
 ;;9002226.02101,"869,49502-0420-60 ",.01)
 ;;49502-0420-60
 ;;9002226.02101,"869,49502-0420-60 ",.02)
 ;;49502-0420-60
 ;;9002226.02101,"869,49502-0900-30 ",.01)
 ;;49502-0900-30
 ;;9002226.02101,"869,49502-0900-30 ",.02)
 ;;49502-0900-30
 ;;9002226.02101,"869,49502-0901-30 ",.01)
 ;;49502-0901-30
 ;;9002226.02101,"869,49502-0901-30 ",.02)
 ;;49502-0901-30
 ;;9002226.02101,"869,49502-0902-30 ",.01)
 ;;49502-0902-30
 ;;9002226.02101,"869,49502-0902-30 ",.02)
 ;;49502-0902-30
 ;;9002226.02101,"869,49727-0159-02 ",.01)
 ;;49727-0159-02
 ;;9002226.02101,"869,49727-0159-02 ",.02)
 ;;49727-0159-02
 ;;9002226.02101,"869,49727-0159-05 ",.01)
 ;;49727-0159-05
 ;;9002226.02101,"869,49727-0159-05 ",.02)
 ;;49727-0159-05
 ;;9002226.02101,"869,49884-0032-01 ",.01)
 ;;49884-0032-01
 ;;9002226.02101,"869,49884-0032-01 ",.02)
 ;;49884-0032-01
 ;;9002226.02101,"869,49884-0054-01 ",.01)
 ;;49884-0054-01
 ;;9002226.02101,"869,49884-0054-01 ",.02)
 ;;49884-0054-01
 ;;9002226.02101,"869,49884-0054-10 ",.01)
 ;;49884-0054-10
 ;;9002226.02101,"869,49884-0054-10 ",.02)
 ;;49884-0054-10
 ;;9002226.02101,"869,49884-0055-01 ",.01)
 ;;49884-0055-01
 ;;9002226.02101,"869,49884-0055-01 ",.02)
 ;;49884-0055-01
 ;;9002226.02101,"869,49884-0055-10 ",.01)
 ;;49884-0055-10
 ;;9002226.02101,"869,49884-0055-10 ",.02)
 ;;49884-0055-10
 ;;9002226.02101,"869,49884-0056-01 ",.01)
 ;;49884-0056-01
 ;;9002226.02101,"869,49884-0056-01 ",.02)
 ;;49884-0056-01
 ;;9002226.02101,"869,49884-0056-10 ",.01)
 ;;49884-0056-10
 ;;9002226.02101,"869,49884-0056-10 ",.02)
 ;;49884-0056-10
 ;;9002226.02101,"869,49884-0222-01 ",.01)
 ;;49884-0222-01
 ;;9002226.02101,"869,49884-0222-01 ",.02)
 ;;49884-0222-01
 ;;9002226.02101,"869,49884-0222-03 ",.01)
 ;;49884-0222-03
 ;;9002226.02101,"869,49884-0222-03 ",.02)
 ;;49884-0222-03
 ;;9002226.02101,"869,49884-0222-05 ",.01)
 ;;49884-0222-05
 ;;9002226.02101,"869,49884-0222-05 ",.02)
 ;;49884-0222-05
 ;;9002226.02101,"869,49884-0250-11 ",.01)
 ;;49884-0250-11
 ;;9002226.02101,"869,49884-0250-11 ",.02)
 ;;49884-0250-11