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

BGP62Y72.m

Go to the documentation of this file.
BGP62Y72 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"868,55887-0904-14 ",.02)
 ;;55887-0904-14
 ;;9002226.02101,"868,55887-0904-20 ",.01)
 ;;55887-0904-20
 ;;9002226.02101,"868,55887-0904-20 ",.02)
 ;;55887-0904-20
 ;;9002226.02101,"868,55887-0904-30 ",.01)
 ;;55887-0904-30
 ;;9002226.02101,"868,55887-0904-30 ",.02)
 ;;55887-0904-30
 ;;9002226.02101,"868,55887-0904-60 ",.01)
 ;;55887-0904-60
 ;;9002226.02101,"868,55887-0904-60 ",.02)
 ;;55887-0904-60
 ;;9002226.02101,"868,55887-0924-20 ",.01)
 ;;55887-0924-20
 ;;9002226.02101,"868,55887-0924-20 ",.02)
 ;;55887-0924-20
 ;;9002226.02101,"868,55887-0924-28 ",.01)
 ;;55887-0924-28
 ;;9002226.02101,"868,55887-0924-28 ",.02)
 ;;55887-0924-28
 ;;9002226.02101,"868,55887-0924-60 ",.01)
 ;;55887-0924-60
 ;;9002226.02101,"868,55887-0924-60 ",.02)
 ;;55887-0924-60
 ;;9002226.02101,"868,55887-0930-28 ",.01)
 ;;55887-0930-28
 ;;9002226.02101,"868,55887-0930-28 ",.02)
 ;;55887-0930-28
 ;;9002226.02101,"868,55887-0958-01 ",.01)
 ;;55887-0958-01
 ;;9002226.02101,"868,55887-0958-01 ",.02)
 ;;55887-0958-01
 ;;9002226.02101,"868,55887-0958-05 ",.01)
 ;;55887-0958-05
 ;;9002226.02101,"868,55887-0958-05 ",.02)
 ;;55887-0958-05
 ;;9002226.02101,"868,55887-0958-08 ",.01)
 ;;55887-0958-08
 ;;9002226.02101,"868,55887-0958-08 ",.02)
 ;;55887-0958-08
 ;;9002226.02101,"868,55887-0958-09 ",.01)
 ;;55887-0958-09
 ;;9002226.02101,"868,55887-0958-09 ",.02)
 ;;55887-0958-09
 ;;9002226.02101,"868,55887-0958-60 ",.01)
 ;;55887-0958-60
 ;;9002226.02101,"868,55887-0958-60 ",.02)
 ;;55887-0958-60
 ;;9002226.02101,"868,55887-0958-90 ",.01)
 ;;55887-0958-90
 ;;9002226.02101,"868,55887-0958-90 ",.02)
 ;;55887-0958-90
 ;;9002226.02101,"868,55887-0980-21 ",.01)
 ;;55887-0980-21
 ;;9002226.02101,"868,55887-0980-21 ",.02)
 ;;55887-0980-21
 ;;9002226.02101,"868,55887-0980-28 ",.01)
 ;;55887-0980-28
 ;;9002226.02101,"868,55887-0980-28 ",.02)
 ;;55887-0980-28
 ;;9002226.02101,"868,55887-0980-40 ",.01)
 ;;55887-0980-40
 ;;9002226.02101,"868,55887-0980-40 ",.02)
 ;;55887-0980-40
 ;;9002226.02101,"868,55887-0982-01 ",.01)
 ;;55887-0982-01
 ;;9002226.02101,"868,55887-0982-01 ",.02)
 ;;55887-0982-01
 ;;9002226.02101,"868,55887-0982-04 ",.01)
 ;;55887-0982-04
 ;;9002226.02101,"868,55887-0982-04 ",.02)
 ;;55887-0982-04
 ;;9002226.02101,"868,55887-0982-09 ",.01)
 ;;55887-0982-09
 ;;9002226.02101,"868,55887-0982-09 ",.02)
 ;;55887-0982-09
 ;;9002226.02101,"868,55887-0982-82 ",.01)
 ;;55887-0982-82
 ;;9002226.02101,"868,55887-0982-82 ",.02)
 ;;55887-0982-82
 ;;9002226.02101,"868,55887-0983-01 ",.01)
 ;;55887-0983-01
 ;;9002226.02101,"868,55887-0983-01 ",.02)
 ;;55887-0983-01
 ;;9002226.02101,"868,55887-0983-15 ",.01)
 ;;55887-0983-15
 ;;9002226.02101,"868,55887-0983-15 ",.02)
 ;;55887-0983-15
 ;;9002226.02101,"868,55887-0983-40 ",.01)
 ;;55887-0983-40
 ;;9002226.02101,"868,55887-0983-40 ",.02)
 ;;55887-0983-40
 ;;9002226.02101,"868,55887-0983-42 ",.01)
 ;;55887-0983-42
 ;;9002226.02101,"868,55887-0983-42 ",.02)
 ;;55887-0983-42
 ;;9002226.02101,"868,55887-0983-60 ",.01)
 ;;55887-0983-60
 ;;9002226.02101,"868,55887-0983-60 ",.02)
 ;;55887-0983-60
 ;;9002226.02101,"868,55887-0991-28 ",.01)
 ;;55887-0991-28
 ;;9002226.02101,"868,55887-0991-28 ",.02)
 ;;55887-0991-28
 ;;9002226.02101,"868,55887-0993-09 ",.01)
 ;;55887-0993-09
 ;;9002226.02101,"868,55887-0993-09 ",.02)
 ;;55887-0993-09
 ;;9002226.02101,"868,55887-0993-14 ",.01)
 ;;55887-0993-14
 ;;9002226.02101,"868,55887-0993-14 ",.02)
 ;;55887-0993-14
 ;;9002226.02101,"868,55887-0993-15 ",.01)
 ;;55887-0993-15
 ;;9002226.02101,"868,55887-0993-15 ",.02)
 ;;55887-0993-15
 ;;9002226.02101,"868,55887-0993-20 ",.01)
 ;;55887-0993-20
 ;;9002226.02101,"868,55887-0993-20 ",.02)
 ;;55887-0993-20
 ;;9002226.02101,"868,55887-0993-42 ",.01)
 ;;55887-0993-42
 ;;9002226.02101,"868,55887-0993-42 ",.02)
 ;;55887-0993-42
 ;;9002226.02101,"868,55953-0251-80 ",.01)
 ;;55953-0251-80
 ;;9002226.02101,"868,55953-0251-80 ",.02)
 ;;55953-0251-80
 ;;9002226.02101,"868,55953-0253-80 ",.01)
 ;;55953-0253-80
 ;;9002226.02101,"868,55953-0253-80 ",.02)
 ;;55953-0253-80
 ;;9002226.02101,"868,57237-0028-01 ",.01)
 ;;57237-0028-01
 ;;9002226.02101,"868,57237-0028-01 ",.02)
 ;;57237-0028-01
 ;;9002226.02101,"868,57237-0029-01 ",.01)
 ;;57237-0029-01
 ;;9002226.02101,"868,57237-0029-01 ",.02)
 ;;57237-0029-01
 ;;9002226.02101,"868,57237-0030-01 ",.01)
 ;;57237-0030-01
 ;;9002226.02101,"868,57237-0030-01 ",.02)
 ;;57237-0030-01
 ;;9002226.02101,"868,57237-0030-05 ",.01)
 ;;57237-0030-05
 ;;9002226.02101,"868,57237-0030-05 ",.02)
 ;;57237-0030-05
 ;;9002226.02101,"868,57237-0031-01 ",.01)
 ;;57237-0031-01
 ;;9002226.02101,"868,57237-0031-01 ",.02)
 ;;57237-0031-01
 ;;9002226.02101,"868,57237-0031-05 ",.01)
 ;;57237-0031-05
 ;;9002226.02101,"868,57237-0031-05 ",.02)
 ;;57237-0031-05
 ;;9002226.02101,"868,57237-0032-01 ",.01)
 ;;57237-0032-01
 ;;9002226.02101,"868,57237-0032-01 ",.02)
 ;;57237-0032-01
 ;;9002226.02101,"868,57237-0032-50 ",.01)
 ;;57237-0032-50
 ;;9002226.02101,"868,57237-0032-50 ",.02)
 ;;57237-0032-50
 ;;9002226.02101,"868,57237-0032-75 ",.01)
 ;;57237-0032-75
 ;;9002226.02101,"868,57237-0032-75 ",.02)
 ;;57237-0032-75
 ;;9002226.02101,"868,57237-0033-01 ",.01)
 ;;57237-0033-01
 ;;9002226.02101,"868,57237-0033-01 ",.02)
 ;;57237-0033-01
 ;;9002226.02101,"868,57237-0033-50 ",.01)
 ;;57237-0033-50
 ;;9002226.02101,"868,57237-0033-50 ",.02)
 ;;57237-0033-50
 ;;9002226.02101,"868,57237-0033-75 ",.01)
 ;;57237-0033-75
 ;;9002226.02101,"868,57237-0033-75 ",.02)
 ;;57237-0033-75
 ;;9002226.02101,"868,57237-0034-01 ",.01)
 ;;57237-0034-01
 ;;9002226.02101,"868,57237-0034-01 ",.02)
 ;;57237-0034-01
 ;;9002226.02101,"868,57237-0034-50 ",.01)
 ;;57237-0034-50
 ;;9002226.02101,"868,57237-0034-50 ",.02)
 ;;57237-0034-50
 ;;9002226.02101,"868,57237-0034-75 ",.01)
 ;;57237-0034-75
 ;;9002226.02101,"868,57237-0034-75 ",.02)
 ;;57237-0034-75
 ;;9002226.02101,"868,57237-0035-01 ",.01)
 ;;57237-0035-01
 ;;9002226.02101,"868,57237-0035-01 ",.02)
 ;;57237-0035-01
 ;;9002226.02101,"868,57237-0035-50 ",.01)
 ;;57237-0035-50
 ;;9002226.02101,"868,57237-0035-50 ",.02)
 ;;57237-0035-50
 ;;9002226.02101,"868,57237-0035-75 ",.01)
 ;;57237-0035-75
 ;;9002226.02101,"868,57237-0035-75 ",.02)
 ;;57237-0035-75
 ;;9002226.02101,"868,57237-0036-01 ",.01)
 ;;57237-0036-01
 ;;9002226.02101,"868,57237-0036-01 ",.02)
 ;;57237-0036-01
 ;;9002226.02101,"868,57237-0037-01 ",.01)
 ;;57237-0037-01
 ;;9002226.02101,"868,57237-0037-01 ",.02)
 ;;57237-0037-01
 ;;9002226.02101,"868,57237-0037-50 ",.01)
 ;;57237-0037-50
 ;;9002226.02101,"868,57237-0037-50 ",.02)
 ;;57237-0037-50
 ;;9002226.02101,"868,57237-0040-01 ",.01)
 ;;57237-0040-01
 ;;9002226.02101,"868,57237-0040-01 ",.02)
 ;;57237-0040-01
 ;;9002226.02101,"868,57237-0040-99 ",.01)
 ;;57237-0040-99
 ;;9002226.02101,"868,57237-0040-99 ",.02)
 ;;57237-0040-99
 ;;9002226.02101,"868,57237-0041-01 ",.01)
 ;;57237-0041-01
 ;;9002226.02101,"868,57237-0041-01 ",.02)
 ;;57237-0041-01
 ;;9002226.02101,"868,57237-0041-05 ",.01)
 ;;57237-0041-05
 ;;9002226.02101,"868,57237-0041-05 ",.02)
 ;;57237-0041-05
 ;;9002226.02101,"868,57237-0041-99 ",.01)
 ;;57237-0041-99
 ;;9002226.02101,"868,57237-0041-99 ",.02)
 ;;57237-0041-99
 ;;9002226.02101,"868,57237-0044-60 ",.01)
 ;;57237-0044-60
 ;;9002226.02101,"868,57237-0044-60 ",.02)
 ;;57237-0044-60
 ;;9002226.02101,"868,57237-0045-60 ",.01)
 ;;57237-0045-60
 ;;9002226.02101,"868,57237-0045-60 ",.02)
 ;;57237-0045-60
 ;;9002226.02101,"868,57237-0058-20 ",.01)
 ;;57237-0058-20
 ;;9002226.02101,"868,57237-0058-20 ",.02)
 ;;57237-0058-20
 ;;9002226.02101,"868,57237-0058-60 ",.01)
 ;;57237-0058-60
 ;;9002226.02101,"868,57237-0058-60 ",.02)
 ;;57237-0058-60
 ;;9002226.02101,"868,57237-0059-20 ",.01)
 ;;57237-0059-20
 ;;9002226.02101,"868,57237-0059-20 ",.02)
 ;;57237-0059-20
 ;;9002226.02101,"868,57237-0059-60 ",.01)
 ;;57237-0059-60
 ;;9002226.02101,"868,57237-0059-60 ",.02)
 ;;57237-0059-60
 ;;9002226.02101,"868,57237-0096-01 ",.01)
 ;;57237-0096-01
 ;;9002226.02101,"868,57237-0096-01 ",.02)
 ;;57237-0096-01
 ;;9002226.02101,"868,57237-0096-50 ",.01)
 ;;57237-0096-50
 ;;9002226.02101,"868,57237-0096-50 ",.02)
 ;;57237-0096-50
 ;;9002226.02101,"868,57237-0097-01 ",.01)
 ;;57237-0097-01
 ;;9002226.02101,"868,57237-0097-01 ",.02)
 ;;57237-0097-01
 ;;9002226.02101,"868,57237-0098-01 ",.01)
 ;;57237-0098-01
 ;;9002226.02101,"868,57237-0098-01 ",.02)
 ;;57237-0098-01
 ;;9002226.02101,"868,57237-0098-75 ",.01)
 ;;57237-0098-75
 ;;9002226.02101,"868,57237-0098-75 ",.02)
 ;;57237-0098-75
 ;;9002226.02101,"868,57237-0099-60 ",.01)
 ;;57237-0099-60
 ;;9002226.02101,"868,57237-0099-60 ",.02)
 ;;57237-0099-60
 ;;9002226.02101,"868,57237-0103-25 ",.01)
 ;;57237-0103-25
 ;;9002226.02101,"868,57237-0103-25 ",.02)
 ;;57237-0103-25
 ;;9002226.02101,"868,57237-0103-60 ",.01)
 ;;57237-0103-60
 ;;9002226.02101,"868,57237-0103-60 ",.02)
 ;;57237-0103-60
 ;;9002226.02101,"868,57237-0104-01 ",.01)
 ;;57237-0104-01
 ;;9002226.02101,"868,57237-0104-01 ",.02)
 ;;57237-0104-01
 ;;9002226.02101,"868,57237-0104-25 ",.01)
 ;;57237-0104-25
 ;;9002226.02101,"868,57237-0104-25 ",.02)
 ;;57237-0104-25
 ;;9002226.02101,"868,57237-0105-01 ",.01)
 ;;57237-0105-01
 ;;9002226.02101,"868,57237-0105-01 ",.02)
 ;;57237-0105-01
 ;;9002226.02101,"868,57237-0105-25 ",.01)
 ;;57237-0105-25
 ;;9002226.02101,"868,57237-0105-25 ",.02)
 ;;57237-0105-25
 ;;9002226.02101,"868,57664-0851-88 ",.01)
 ;;57664-0851-88
 ;;9002226.02101,"868,57664-0851-88 ",.02)
 ;;57664-0851-88
 ;;9002226.02101,"868,57664-0852-88 ",.01)
 ;;57664-0852-88
 ;;9002226.02101,"868,57664-0852-88 ",.02)
 ;;57664-0852-88
 ;;9002226.02101,"868,57664-0853-85 ",.01)
 ;;57664-0853-85
 ;;9002226.02101,"868,57664-0853-85 ",.02)
 ;;57664-0853-85
 ;;9002226.02101,"868,57866-0106-01 ",.01)
 ;;57866-0106-01
 ;;9002226.02101,"868,57866-0106-01 ",.02)
 ;;57866-0106-01
 ;;9002226.02101,"868,57866-0106-02 ",.01)
 ;;57866-0106-02
 ;;9002226.02101,"868,57866-0106-02 ",.02)
 ;;57866-0106-02
 ;;9002226.02101,"868,57866-0117-01 ",.01)
 ;;57866-0117-01
 ;;9002226.02101,"868,57866-0117-01 ",.02)
 ;;57866-0117-01
 ;;9002226.02101,"868,57866-0117-03 ",.01)
 ;;57866-0117-03
 ;;9002226.02101,"868,57866-0117-03 ",.02)
 ;;57866-0117-03
 ;;9002226.02101,"868,57866-0117-04 ",.01)
 ;;57866-0117-04
 ;;9002226.02101,"868,57866-0117-04 ",.02)
 ;;57866-0117-04
 ;;9002226.02101,"868,57866-0117-05 ",.01)
 ;;57866-0117-05
 ;;9002226.02101,"868,57866-0117-05 ",.02)
 ;;57866-0117-05
 ;;9002226.02101,"868,57866-0117-06 ",.01)
 ;;57866-0117-06
 ;;9002226.02101,"868,57866-0117-06 ",.02)
 ;;57866-0117-06
 ;;9002226.02101,"868,57866-0155-00 ",.01)
 ;;57866-0155-00
 ;;9002226.02101,"868,57866-0155-00 ",.02)
 ;;57866-0155-00
 ;;9002226.02101,"868,57866-0155-05 ",.01)
 ;;57866-0155-05
 ;;9002226.02101,"868,57866-0155-05 ",.02)
 ;;57866-0155-05
 ;;9002226.02101,"868,57866-0340-01 ",.01)
 ;;57866-0340-01
 ;;9002226.02101,"868,57866-0340-01 ",.02)
 ;;57866-0340-01
 ;;9002226.02101,"868,57866-0340-02 ",.01)
 ;;57866-0340-02
 ;;9002226.02101,"868,57866-0340-02 ",.02)
 ;;57866-0340-02
 ;;9002226.02101,"868,57866-0340-05 ",.01)
 ;;57866-0340-05
 ;;9002226.02101,"868,57866-0340-05 ",.02)
 ;;57866-0340-05
 ;;9002226.02101,"868,57866-0341-02 ",.01)
 ;;57866-0341-02
 ;;9002226.02101,"868,57866-0341-02 ",.02)
 ;;57866-0341-02
 ;;9002226.02101,"868,57866-0341-04 ",.01)
 ;;57866-0341-04
 ;;9002226.02101,"868,57866-0341-04 ",.02)
 ;;57866-0341-04
 ;;9002226.02101,"868,57866-0343-01 ",.01)
 ;;57866-0343-01
 ;;9002226.02101,"868,57866-0343-01 ",.02)
 ;;57866-0343-01
 ;;9002226.02101,"868,57866-1094-02 ",.01)
 ;;57866-1094-02