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

BGP82Z63.m

Go to the documentation of this file.
BGP82Z63 ; 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,61919-0048-60 ",.02)
 ;;61919-0048-60
 ;;9002226.02101,"619,61919-0053-60 ",.01)
 ;;61919-0053-60
 ;;9002226.02101,"619,61919-0053-60 ",.02)
 ;;61919-0053-60
 ;;9002226.02101,"619,61919-0067-30 ",.01)
 ;;61919-0067-30
 ;;9002226.02101,"619,61919-0067-30 ",.02)
 ;;61919-0067-30
 ;;9002226.02101,"619,61919-0067-60 ",.01)
 ;;61919-0067-60
 ;;9002226.02101,"619,61919-0067-60 ",.02)
 ;;61919-0067-60
 ;;9002226.02101,"619,61919-0067-71 ",.01)
 ;;61919-0067-71
 ;;9002226.02101,"619,61919-0067-71 ",.02)
 ;;61919-0067-71
 ;;9002226.02101,"619,61919-0067-72 ",.01)
 ;;61919-0067-72
 ;;9002226.02101,"619,61919-0067-72 ",.02)
 ;;61919-0067-72
 ;;9002226.02101,"619,61919-0067-90 ",.01)
 ;;61919-0067-90
 ;;9002226.02101,"619,61919-0067-90 ",.02)
 ;;61919-0067-90
 ;;9002226.02101,"619,61919-0073-30 ",.01)
 ;;61919-0073-30
 ;;9002226.02101,"619,61919-0073-30 ",.02)
 ;;61919-0073-30
 ;;9002226.02101,"619,61919-0073-60 ",.01)
 ;;61919-0073-60
 ;;9002226.02101,"619,61919-0073-60 ",.02)
 ;;61919-0073-60
 ;;9002226.02101,"619,61919-0073-82 ",.01)
 ;;61919-0073-82
 ;;9002226.02101,"619,61919-0073-82 ",.02)
 ;;61919-0073-82
 ;;9002226.02101,"619,61919-0073-84 ",.01)
 ;;61919-0073-84
 ;;9002226.02101,"619,61919-0073-84 ",.02)
 ;;61919-0073-84
 ;;9002226.02101,"619,61919-0073-90 ",.01)
 ;;61919-0073-90
 ;;9002226.02101,"619,61919-0073-90 ",.02)
 ;;61919-0073-90
 ;;9002226.02101,"619,61919-0114-15 ",.01)
 ;;61919-0114-15
 ;;9002226.02101,"619,61919-0114-15 ",.02)
 ;;61919-0114-15
 ;;9002226.02101,"619,61919-0114-30 ",.01)
 ;;61919-0114-30
 ;;9002226.02101,"619,61919-0114-30 ",.02)
 ;;61919-0114-30
 ;;9002226.02101,"619,61919-0114-60 ",.01)
 ;;61919-0114-60
 ;;9002226.02101,"619,61919-0114-60 ",.02)
 ;;61919-0114-60
 ;;9002226.02101,"619,61919-0114-71 ",.01)
 ;;61919-0114-71
 ;;9002226.02101,"619,61919-0114-71 ",.02)
 ;;61919-0114-71
 ;;9002226.02101,"619,61919-0114-72 ",.01)
 ;;61919-0114-72
 ;;9002226.02101,"619,61919-0114-72 ",.02)
 ;;61919-0114-72
 ;;9002226.02101,"619,61919-0114-90 ",.01)
 ;;61919-0114-90
 ;;9002226.02101,"619,61919-0114-90 ",.02)
 ;;61919-0114-90
 ;;9002226.02101,"619,61919-0118-30 ",.01)
 ;;61919-0118-30
 ;;9002226.02101,"619,61919-0118-30 ",.02)
 ;;61919-0118-30
 ;;9002226.02101,"619,61919-0118-60 ",.01)
 ;;61919-0118-60
 ;;9002226.02101,"619,61919-0118-60 ",.02)
 ;;61919-0118-60
 ;;9002226.02101,"619,61919-0118-71 ",.01)
 ;;61919-0118-71
 ;;9002226.02101,"619,61919-0118-71 ",.02)
 ;;61919-0118-71
 ;;9002226.02101,"619,61919-0118-72 ",.01)
 ;;61919-0118-72
 ;;9002226.02101,"619,61919-0118-72 ",.02)
 ;;61919-0118-72
 ;;9002226.02101,"619,61919-0118-90 ",.01)
 ;;61919-0118-90
 ;;9002226.02101,"619,61919-0118-90 ",.02)
 ;;61919-0118-90
 ;;9002226.02101,"619,61919-0156-60 ",.01)
 ;;61919-0156-60
 ;;9002226.02101,"619,61919-0156-60 ",.02)
 ;;61919-0156-60
 ;;9002226.02101,"619,61919-0156-90 ",.01)
 ;;61919-0156-90
 ;;9002226.02101,"619,61919-0156-90 ",.02)
 ;;61919-0156-90
 ;;9002226.02101,"619,61919-0208-30 ",.01)
 ;;61919-0208-30
 ;;9002226.02101,"619,61919-0208-30 ",.02)
 ;;61919-0208-30
 ;;9002226.02101,"619,61919-0208-60 ",.01)
 ;;61919-0208-60
 ;;9002226.02101,"619,61919-0208-60 ",.02)
 ;;61919-0208-60
 ;;9002226.02101,"619,61919-0208-72 ",.01)
 ;;61919-0208-72
 ;;9002226.02101,"619,61919-0208-72 ",.02)
 ;;61919-0208-72
 ;;9002226.02101,"619,61919-0208-90 ",.01)
 ;;61919-0208-90
 ;;9002226.02101,"619,61919-0208-90 ",.02)
 ;;61919-0208-90
 ;;9002226.02101,"619,61919-0229-20 ",.01)
 ;;61919-0229-20
 ;;9002226.02101,"619,61919-0229-20 ",.02)
 ;;61919-0229-20
 ;;9002226.02101,"619,61919-0229-30 ",.01)
 ;;61919-0229-30
 ;;9002226.02101,"619,61919-0229-30 ",.02)
 ;;61919-0229-30
 ;;9002226.02101,"619,61919-0229-50 ",.01)
 ;;61919-0229-50
 ;;9002226.02101,"619,61919-0229-50 ",.02)
 ;;61919-0229-50
 ;;9002226.02101,"619,61919-0229-60 ",.01)
 ;;61919-0229-60
 ;;9002226.02101,"619,61919-0229-60 ",.02)
 ;;61919-0229-60
 ;;9002226.02101,"619,61919-0229-71 ",.01)
 ;;61919-0229-71
 ;;9002226.02101,"619,61919-0229-71 ",.02)
 ;;61919-0229-71
 ;;9002226.02101,"619,61919-0229-72 ",.01)
 ;;61919-0229-72
 ;;9002226.02101,"619,61919-0229-72 ",.02)
 ;;61919-0229-72
 ;;9002226.02101,"619,61919-0229-82 ",.01)
 ;;61919-0229-82
 ;;9002226.02101,"619,61919-0229-82 ",.02)
 ;;61919-0229-82
 ;;9002226.02101,"619,61919-0229-84 ",.01)
 ;;61919-0229-84
 ;;9002226.02101,"619,61919-0229-84 ",.02)
 ;;61919-0229-84
 ;;9002226.02101,"619,61919-0229-90 ",.01)
 ;;61919-0229-90
 ;;9002226.02101,"619,61919-0229-90 ",.02)
 ;;61919-0229-90
 ;;9002226.02101,"619,61919-0230-30 ",.01)
 ;;61919-0230-30
 ;;9002226.02101,"619,61919-0230-30 ",.02)
 ;;61919-0230-30
 ;;9002226.02101,"619,61919-0248-30 ",.01)
 ;;61919-0248-30
 ;;9002226.02101,"619,61919-0248-30 ",.02)
 ;;61919-0248-30
 ;;9002226.02101,"619,61919-0273-90 ",.01)
 ;;61919-0273-90
 ;;9002226.02101,"619,61919-0273-90 ",.02)
 ;;61919-0273-90
 ;;9002226.02101,"619,61919-0296-30 ",.01)
 ;;61919-0296-30
 ;;9002226.02101,"619,61919-0296-30 ",.02)
 ;;61919-0296-30
 ;;9002226.02101,"619,61919-0328-30 ",.01)
 ;;61919-0328-30
 ;;9002226.02101,"619,61919-0328-30 ",.02)
 ;;61919-0328-30
 ;;9002226.02101,"619,61919-0328-71 ",.01)
 ;;61919-0328-71
 ;;9002226.02101,"619,61919-0328-71 ",.02)
 ;;61919-0328-71
 ;;9002226.02101,"619,61919-0328-90 ",.01)
 ;;61919-0328-90
 ;;9002226.02101,"619,61919-0328-90 ",.02)
 ;;61919-0328-90
 ;;9002226.02101,"619,61919-0335-30 ",.01)
 ;;61919-0335-30
 ;;9002226.02101,"619,61919-0335-30 ",.02)
 ;;61919-0335-30
 ;;9002226.02101,"619,61919-0335-60 ",.01)
 ;;61919-0335-60
 ;;9002226.02101,"619,61919-0335-60 ",.02)
 ;;61919-0335-60
 ;;9002226.02101,"619,61919-0335-72 ",.01)
 ;;61919-0335-72
 ;;9002226.02101,"619,61919-0335-72 ",.02)
 ;;61919-0335-72
 ;;9002226.02101,"619,61919-0472-60 ",.01)
 ;;61919-0472-60
 ;;9002226.02101,"619,61919-0472-60 ",.02)
 ;;61919-0472-60
 ;;9002226.02101,"619,61919-0472-90 ",.01)
 ;;61919-0472-90
 ;;9002226.02101,"619,61919-0472-90 ",.02)
 ;;61919-0472-90
 ;;9002226.02101,"619,61919-0494-30 ",.01)
 ;;61919-0494-30
 ;;9002226.02101,"619,61919-0494-30 ",.02)
 ;;61919-0494-30
 ;;9002226.02101,"619,61919-0494-60 ",.01)
 ;;61919-0494-60
 ;;9002226.02101,"619,61919-0494-60 ",.02)
 ;;61919-0494-60
 ;;9002226.02101,"619,61919-0494-72 ",.01)
 ;;61919-0494-72
 ;;9002226.02101,"619,61919-0494-72 ",.02)
 ;;61919-0494-72
 ;;9002226.02101,"619,61919-0494-90 ",.01)
 ;;61919-0494-90
 ;;9002226.02101,"619,61919-0494-90 ",.02)
 ;;61919-0494-90
 ;;9002226.02101,"619,61919-0556-30 ",.01)
 ;;61919-0556-30
 ;;9002226.02101,"619,61919-0556-30 ",.02)
 ;;61919-0556-30
 ;;9002226.02101,"619,61919-0583-30 ",.01)
 ;;61919-0583-30
 ;;9002226.02101,"619,61919-0583-30 ",.02)
 ;;61919-0583-30
 ;;9002226.02101,"619,61919-0583-60 ",.01)
 ;;61919-0583-60
 ;;9002226.02101,"619,61919-0583-60 ",.02)
 ;;61919-0583-60
 ;;9002226.02101,"619,61919-0583-72 ",.01)
 ;;61919-0583-72
 ;;9002226.02101,"619,61919-0583-72 ",.02)
 ;;61919-0583-72
 ;;9002226.02101,"619,61919-0583-90 ",.01)
 ;;61919-0583-90
 ;;9002226.02101,"619,61919-0583-90 ",.02)
 ;;61919-0583-90
 ;;9002226.02101,"619,61919-0602-05 ",.01)
 ;;61919-0602-05
 ;;9002226.02101,"619,61919-0602-05 ",.02)
 ;;61919-0602-05
 ;;9002226.02101,"619,61919-0603-05 ",.01)
 ;;61919-0603-05
 ;;9002226.02101,"619,61919-0603-05 ",.02)
 ;;61919-0603-05
 ;;9002226.02101,"619,61919-0612-60 ",.01)
 ;;61919-0612-60
 ;;9002226.02101,"619,61919-0612-60 ",.02)
 ;;61919-0612-60
 ;;9002226.02101,"619,61919-0612-90 ",.01)
 ;;61919-0612-90
 ;;9002226.02101,"619,61919-0612-90 ",.02)
 ;;61919-0612-90
 ;;9002226.02101,"619,61919-0614-60 ",.01)
 ;;61919-0614-60
 ;;9002226.02101,"619,61919-0614-60 ",.02)
 ;;61919-0614-60
 ;;9002226.02101,"619,61919-0614-90 ",.01)
 ;;61919-0614-90
 ;;9002226.02101,"619,61919-0614-90 ",.02)
 ;;61919-0614-90
 ;;9002226.02101,"619,61919-0659-30 ",.01)
 ;;61919-0659-30
 ;;9002226.02101,"619,61919-0659-30 ",.02)
 ;;61919-0659-30
 ;;9002226.02101,"619,61919-0659-60 ",.01)
 ;;61919-0659-60
 ;;9002226.02101,"619,61919-0659-60 ",.02)
 ;;61919-0659-60
 ;;9002226.02101,"619,61919-0670-30 ",.01)
 ;;61919-0670-30
 ;;9002226.02101,"619,61919-0670-30 ",.02)
 ;;61919-0670-30
 ;;9002226.02101,"619,61919-0670-60 ",.01)
 ;;61919-0670-60
 ;;9002226.02101,"619,61919-0670-60 ",.02)
 ;;61919-0670-60
 ;;9002226.02101,"619,61919-0670-90 ",.01)
 ;;61919-0670-90
 ;;9002226.02101,"619,61919-0670-90 ",.02)
 ;;61919-0670-90
 ;;9002226.02101,"619,61919-0671-30 ",.01)
 ;;61919-0671-30
 ;;9002226.02101,"619,61919-0671-30 ",.02)
 ;;61919-0671-30
 ;;9002226.02101,"619,61919-0671-60 ",.01)
 ;;61919-0671-60
 ;;9002226.02101,"619,61919-0671-60 ",.02)
 ;;61919-0671-60
 ;;9002226.02101,"619,61919-0892-30 ",.01)
 ;;61919-0892-30
 ;;9002226.02101,"619,61919-0892-30 ",.02)
 ;;61919-0892-30
 ;;9002226.02101,"619,61919-0893-30 ",.01)
 ;;61919-0893-30
 ;;9002226.02101,"619,61919-0893-30 ",.02)
 ;;61919-0893-30
 ;;9002226.02101,"619,61919-0923-30 ",.01)
 ;;61919-0923-30
 ;;9002226.02101,"619,61919-0923-30 ",.02)
 ;;61919-0923-30
 ;;9002226.02101,"619,61919-0923-60 ",.01)
 ;;61919-0923-60
 ;;9002226.02101,"619,61919-0923-60 ",.02)
 ;;61919-0923-60
 ;;9002226.02101,"619,61919-0966-60 ",.01)
 ;;61919-0966-60
 ;;9002226.02101,"619,61919-0966-60 ",.02)
 ;;61919-0966-60
 ;;9002226.02101,"619,62037-0524-01 ",.01)
 ;;62037-0524-01
 ;;9002226.02101,"619,62037-0524-01 ",.02)
 ;;62037-0524-01
 ;;9002226.02101,"619,62037-0524-05 ",.01)
 ;;62037-0524-05
 ;;9002226.02101,"619,62037-0524-05 ",.02)
 ;;62037-0524-05
 ;;9002226.02101,"619,62175-0490-64 ",.01)
 ;;62175-0490-64
 ;;9002226.02101,"619,62175-0490-64 ",.02)
 ;;62175-0490-64
 ;;9002226.02101,"619,62175-0490-70 ",.01)
 ;;62175-0490-70
 ;;9002226.02101,"619,62175-0490-70 ",.02)
 ;;62175-0490-70
 ;;9002226.02101,"619,62542-0301-04 ",.01)
 ;;62542-0301-04
 ;;9002226.02101,"619,62542-0301-04 ",.02)
 ;;62542-0301-04
 ;;9002226.02101,"619,62542-0301-16 ",.01)
 ;;62542-0301-16
 ;;9002226.02101,"619,62542-0301-16 ",.02)
 ;;62542-0301-16
 ;;9002226.02101,"619,62542-0301-17 ",.01)
 ;;62542-0301-17
 ;;9002226.02101,"619,62542-0301-17 ",.02)
 ;;62542-0301-17
 ;;9002226.02101,"619,62559-0151-16 ",.01)
 ;;62559-0151-16
 ;;9002226.02101,"619,62559-0151-16 ",.02)
 ;;62559-0151-16
 ;;9002226.02101,"619,62559-0153-04 ",.01)
 ;;62559-0153-04
 ;;9002226.02101,"619,62559-0153-04 ",.02)
 ;;62559-0153-04
 ;;9002226.02101,"619,62559-0167-01 ",.01)
 ;;62559-0167-01
 ;;9002226.02101,"619,62559-0167-01 ",.02)
 ;;62559-0167-01
 ;;9002226.02101,"619,63187-0062-30 ",.01)
 ;;63187-0062-30
 ;;9002226.02101,"619,63187-0062-30 ",.02)
 ;;63187-0062-30
 ;;9002226.02101,"619,63187-0062-60 ",.01)
 ;;63187-0062-60
 ;;9002226.02101,"619,63187-0062-60 ",.02)
 ;;63187-0062-60
 ;;9002226.02101,"619,63187-0063-30 ",.01)
 ;;63187-0063-30
 ;;9002226.02101,"619,63187-0063-30 ",.02)
 ;;63187-0063-30
 ;;9002226.02101,"619,63187-0063-60 ",.01)
 ;;63187-0063-60
 ;;9002226.02101,"619,63187-0063-60 ",.02)
 ;;63187-0063-60
 ;;9002226.02101,"619,63187-0063-72 ",.01)
 ;;63187-0063-72
 ;;9002226.02101,"619,63187-0063-72 ",.02)
 ;;63187-0063-72
 ;;9002226.02101,"619,63187-0063-78 ",.01)
 ;;63187-0063-78
 ;;9002226.02101,"619,63187-0063-78 ",.02)
 ;;63187-0063-78
 ;;9002226.02101,"619,63187-0063-90 ",.01)
 ;;63187-0063-90
 ;;9002226.02101,"619,63187-0063-90 ",.02)
 ;;63187-0063-90
 ;;9002226.02101,"619,63187-0112-30 ",.01)
 ;;63187-0112-30
 ;;9002226.02101,"619,63187-0112-30 ",.02)
 ;;63187-0112-30
 ;;9002226.02101,"619,63187-0112-60 ",.01)
 ;;63187-0112-60
 ;;9002226.02101,"619,63187-0112-60 ",.02)
 ;;63187-0112-60
 ;;9002226.02101,"619,63187-0120-60 ",.01)
 ;;63187-0120-60