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

BGP13D23.m

Go to the documentation of this file.
BGP13D23 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"994,63874-0006-25 ",.02)
 ;;63874-0006-25
 ;;9002226.02101,"994,63874-0006-28 ",.01)
 ;;63874-0006-28
 ;;9002226.02101,"994,63874-0006-28 ",.02)
 ;;63874-0006-28
 ;;9002226.02101,"994,63874-0006-30 ",.01)
 ;;63874-0006-30
 ;;9002226.02101,"994,63874-0006-30 ",.02)
 ;;63874-0006-30
 ;;9002226.02101,"994,63874-0006-60 ",.01)
 ;;63874-0006-60
 ;;9002226.02101,"994,63874-0006-60 ",.02)
 ;;63874-0006-60
 ;;9002226.02101,"994,63874-0077-30 ",.01)
 ;;63874-0077-30
 ;;9002226.02101,"994,63874-0077-30 ",.02)
 ;;63874-0077-30
 ;;9002226.02101,"994,63874-0077-50 ",.01)
 ;;63874-0077-50
 ;;9002226.02101,"994,63874-0077-50 ",.02)
 ;;63874-0077-50
 ;;9002226.02101,"994,63874-0204-12 ",.01)
 ;;63874-0204-12
 ;;9002226.02101,"994,63874-0204-12 ",.02)
 ;;63874-0204-12
 ;;9002226.02101,"994,63874-0204-18 ",.01)
 ;;63874-0204-18
 ;;9002226.02101,"994,63874-0204-18 ",.02)
 ;;63874-0204-18
 ;;9002226.02101,"994,63874-0204-24 ",.01)
 ;;63874-0204-24
 ;;9002226.02101,"994,63874-0204-24 ",.02)
 ;;63874-0204-24
 ;;9002226.02101,"994,63874-0204-38 ",.01)
 ;;63874-0204-38
 ;;9002226.02101,"994,63874-0204-38 ",.02)
 ;;63874-0204-38
 ;;9002226.02101,"994,63874-0204-48 ",.01)
 ;;63874-0204-48
 ;;9002226.02101,"994,63874-0204-48 ",.02)
 ;;63874-0204-48
 ;;9002226.02101,"994,63874-0209-12 ",.01)
 ;;63874-0209-12
 ;;9002226.02101,"994,63874-0209-12 ",.02)
 ;;63874-0209-12
 ;;9002226.02101,"994,63874-0209-18 ",.01)
 ;;63874-0209-18
 ;;9002226.02101,"994,63874-0209-18 ",.02)
 ;;63874-0209-18
 ;;9002226.02101,"994,63874-0209-24 ",.01)
 ;;63874-0209-24
 ;;9002226.02101,"994,63874-0209-24 ",.02)
 ;;63874-0209-24
 ;;9002226.02101,"994,63874-0303-20 ",.01)
 ;;63874-0303-20
 ;;9002226.02101,"994,63874-0303-20 ",.02)
 ;;63874-0303-20
 ;;9002226.02101,"994,63874-0303-30 ",.01)
 ;;63874-0303-30
 ;;9002226.02101,"994,63874-0303-30 ",.02)
 ;;63874-0303-30
 ;;9002226.02101,"994,63874-0304-01 ",.01)
 ;;63874-0304-01
 ;;9002226.02101,"994,63874-0304-01 ",.02)
 ;;63874-0304-01
 ;;9002226.02101,"994,63874-0304-02 ",.01)
 ;;63874-0304-02
 ;;9002226.02101,"994,63874-0304-02 ",.02)
 ;;63874-0304-02
 ;;9002226.02101,"994,63874-0304-09 ",.01)
 ;;63874-0304-09
 ;;9002226.02101,"994,63874-0304-09 ",.02)
 ;;63874-0304-09
 ;;9002226.02101,"994,63874-0304-10 ",.01)
 ;;63874-0304-10
 ;;9002226.02101,"994,63874-0304-10 ",.02)
 ;;63874-0304-10
 ;;9002226.02101,"994,63874-0304-12 ",.01)
 ;;63874-0304-12
 ;;9002226.02101,"994,63874-0304-12 ",.02)
 ;;63874-0304-12
 ;;9002226.02101,"994,63874-0304-14 ",.01)
 ;;63874-0304-14
 ;;9002226.02101,"994,63874-0304-14 ",.02)
 ;;63874-0304-14
 ;;9002226.02101,"994,63874-0304-15 ",.01)
 ;;63874-0304-15
 ;;9002226.02101,"994,63874-0304-15 ",.02)
 ;;63874-0304-15
 ;;9002226.02101,"994,63874-0304-20 ",.01)
 ;;63874-0304-20
 ;;9002226.02101,"994,63874-0304-20 ",.02)
 ;;63874-0304-20
 ;;9002226.02101,"994,63874-0304-25 ",.01)
 ;;63874-0304-25
 ;;9002226.02101,"994,63874-0304-25 ",.02)
 ;;63874-0304-25
 ;;9002226.02101,"994,63874-0304-28 ",.01)
 ;;63874-0304-28
 ;;9002226.02101,"994,63874-0304-28 ",.02)
 ;;63874-0304-28
 ;;9002226.02101,"994,63874-0304-30 ",.01)
 ;;63874-0304-30
 ;;9002226.02101,"994,63874-0304-30 ",.02)
 ;;63874-0304-30
 ;;9002226.02101,"994,63874-0304-40 ",.01)
 ;;63874-0304-40
 ;;9002226.02101,"994,63874-0304-40 ",.02)
 ;;63874-0304-40
 ;;9002226.02101,"994,63874-0304-45 ",.01)
 ;;63874-0304-45
 ;;9002226.02101,"994,63874-0304-45 ",.02)
 ;;63874-0304-45
 ;;9002226.02101,"994,63874-0304-60 ",.01)
 ;;63874-0304-60
 ;;9002226.02101,"994,63874-0304-60 ",.02)
 ;;63874-0304-60
 ;;9002226.02101,"994,63874-0304-90 ",.01)
 ;;63874-0304-90
 ;;9002226.02101,"994,63874-0304-90 ",.02)
 ;;63874-0304-90
 ;;9002226.02101,"994,63874-0370-12 ",.01)
 ;;63874-0370-12
 ;;9002226.02101,"994,63874-0370-12 ",.02)
 ;;63874-0370-12
 ;;9002226.02101,"994,63874-0370-20 ",.01)
 ;;63874-0370-20
 ;;9002226.02101,"994,63874-0370-20 ",.02)
 ;;63874-0370-20
 ;;9002226.02101,"994,63874-0370-30 ",.01)
 ;;63874-0370-30
 ;;9002226.02101,"994,63874-0370-30 ",.02)
 ;;63874-0370-30
 ;;9002226.02101,"994,63874-0442-02 ",.01)
 ;;63874-0442-02
 ;;9002226.02101,"994,63874-0442-02 ",.02)
 ;;63874-0442-02
 ;;9002226.02101,"994,63874-0442-03 ",.01)
 ;;63874-0442-03
 ;;9002226.02101,"994,63874-0442-03 ",.02)
 ;;63874-0442-03
 ;;9002226.02101,"994,63874-0442-04 ",.01)
 ;;63874-0442-04
 ;;9002226.02101,"994,63874-0442-04 ",.02)
 ;;63874-0442-04
 ;;9002226.02101,"994,63874-0442-05 ",.01)
 ;;63874-0442-05
 ;;9002226.02101,"994,63874-0442-05 ",.02)
 ;;63874-0442-05
 ;;9002226.02101,"994,63874-0442-09 ",.01)
 ;;63874-0442-09
 ;;9002226.02101,"994,63874-0442-09 ",.02)
 ;;63874-0442-09
 ;;9002226.02101,"994,63874-0442-10 ",.01)
 ;;63874-0442-10
 ;;9002226.02101,"994,63874-0442-10 ",.02)
 ;;63874-0442-10
 ;;9002226.02101,"994,63874-0442-14 ",.01)
 ;;63874-0442-14
 ;;9002226.02101,"994,63874-0442-14 ",.02)
 ;;63874-0442-14
 ;;9002226.02101,"994,63874-0442-15 ",.01)
 ;;63874-0442-15
 ;;9002226.02101,"994,63874-0442-15 ",.02)
 ;;63874-0442-15
 ;;9002226.02101,"994,63874-0442-20 ",.01)
 ;;63874-0442-20
 ;;9002226.02101,"994,63874-0442-20 ",.02)
 ;;63874-0442-20
 ;;9002226.02101,"994,63874-0442-25 ",.01)
 ;;63874-0442-25
 ;;9002226.02101,"994,63874-0442-25 ",.02)
 ;;63874-0442-25
 ;;9002226.02101,"994,63874-0442-28 ",.01)
 ;;63874-0442-28
 ;;9002226.02101,"994,63874-0442-28 ",.02)
 ;;63874-0442-28
 ;;9002226.02101,"994,63874-0442-30 ",.01)
 ;;63874-0442-30
 ;;9002226.02101,"994,63874-0442-30 ",.02)
 ;;63874-0442-30
 ;;9002226.02101,"994,63874-0442-40 ",.01)
 ;;63874-0442-40
 ;;9002226.02101,"994,63874-0442-40 ",.02)
 ;;63874-0442-40
 ;;9002226.02101,"994,63874-0442-45 ",.01)
 ;;63874-0442-45
 ;;9002226.02101,"994,63874-0442-45 ",.02)
 ;;63874-0442-45
 ;;9002226.02101,"994,63874-0442-60 ",.01)
 ;;63874-0442-60
 ;;9002226.02101,"994,63874-0442-60 ",.02)
 ;;63874-0442-60
 ;;9002226.02101,"994,63874-0442-90 ",.01)
 ;;63874-0442-90
 ;;9002226.02101,"994,63874-0442-90 ",.02)
 ;;63874-0442-90
 ;;9002226.02101,"994,63874-0707-12 ",.01)
 ;;63874-0707-12
 ;;9002226.02101,"994,63874-0707-12 ",.02)
 ;;63874-0707-12
 ;;9002226.02101,"994,63874-0707-48 ",.01)
 ;;63874-0707-48
 ;;9002226.02101,"994,63874-0707-48 ",.02)
 ;;63874-0707-48
 ;;9002226.02101,"994,63874-0711-12 ",.01)
 ;;63874-0711-12
 ;;9002226.02101,"994,63874-0711-12 ",.02)
 ;;63874-0711-12
 ;;9002226.02101,"994,63874-0712-12 ",.01)
 ;;63874-0712-12
 ;;9002226.02101,"994,63874-0712-12 ",.02)
 ;;63874-0712-12
 ;;9002226.02101,"994,63874-0718-12 ",.01)
 ;;63874-0718-12
 ;;9002226.02101,"994,63874-0718-12 ",.02)
 ;;63874-0718-12
 ;;9002226.02101,"994,63874-0757-01 ",.01)
 ;;63874-0757-01
 ;;9002226.02101,"994,63874-0757-01 ",.02)
 ;;63874-0757-01
 ;;9002226.02101,"994,63874-0757-04 ",.01)
 ;;63874-0757-04
 ;;9002226.02101,"994,63874-0757-04 ",.02)
 ;;63874-0757-04
 ;;9002226.02101,"994,63874-0757-10 ",.01)
 ;;63874-0757-10
 ;;9002226.02101,"994,63874-0757-10 ",.02)
 ;;63874-0757-10
 ;;9002226.02101,"994,63874-0757-15 ",.01)
 ;;63874-0757-15
 ;;9002226.02101,"994,63874-0757-15 ",.02)
 ;;63874-0757-15
 ;;9002226.02101,"994,63874-0757-20 ",.01)
 ;;63874-0757-20
 ;;9002226.02101,"994,63874-0757-20 ",.02)
 ;;63874-0757-20
 ;;9002226.02101,"994,63874-0757-21 ",.01)
 ;;63874-0757-21
 ;;9002226.02101,"994,63874-0757-21 ",.02)
 ;;63874-0757-21
 ;;9002226.02101,"994,63874-0757-24 ",.01)
 ;;63874-0757-24
 ;;9002226.02101,"994,63874-0757-24 ",.02)
 ;;63874-0757-24
 ;;9002226.02101,"994,63874-0757-28 ",.01)
 ;;63874-0757-28
 ;;9002226.02101,"994,63874-0757-28 ",.02)
 ;;63874-0757-28
 ;;9002226.02101,"994,63874-0757-30 ",.01)
 ;;63874-0757-30
 ;;9002226.02101,"994,63874-0757-30 ",.02)
 ;;63874-0757-30
 ;;9002226.02101,"994,63874-0757-60 ",.01)
 ;;63874-0757-60
 ;;9002226.02101,"994,63874-0757-60 ",.02)
 ;;63874-0757-60
 ;;9002226.02101,"994,63874-0757-90 ",.01)
 ;;63874-0757-90
 ;;9002226.02101,"994,63874-0757-90 ",.02)
 ;;63874-0757-90
 ;;9002226.02101,"994,64980-0123-01 ",.01)
 ;;64980-0123-01
 ;;9002226.02101,"994,64980-0123-01 ",.02)
 ;;64980-0123-01
 ;;9002226.02101,"994,64980-0123-10 ",.01)
 ;;64980-0123-10
 ;;9002226.02101,"994,64980-0123-10 ",.02)
 ;;64980-0123-10
 ;;9002226.02101,"994,64980-0504-48 ",.01)
 ;;64980-0504-48
 ;;9002226.02101,"994,64980-0504-48 ",.02)
 ;;64980-0504-48
 ;;9002226.02101,"994,65162-0156-10 ",.01)
 ;;65162-0156-10
 ;;9002226.02101,"994,65162-0156-10 ",.02)
 ;;65162-0156-10
 ;;9002226.02101,"994,65162-0156-11 ",.01)
 ;;65162-0156-11
 ;;9002226.02101,"994,65162-0156-11 ",.02)
 ;;65162-0156-11
 ;;9002226.02101,"994,65162-0516-10 ",.01)
 ;;65162-0516-10
 ;;9002226.02101,"994,65162-0516-10 ",.02)
 ;;65162-0516-10
 ;;9002226.02101,"994,65162-0516-11 ",.01)
 ;;65162-0516-11
 ;;9002226.02101,"994,65162-0516-11 ",.02)
 ;;65162-0516-11
 ;;9002226.02101,"994,65162-0518-10 ",.01)
 ;;65162-0518-10
 ;;9002226.02101,"994,65162-0518-10 ",.02)
 ;;65162-0518-10
 ;;9002226.02101,"994,65162-0518-11 ",.01)
 ;;65162-0518-11
 ;;9002226.02101,"994,65162-0518-11 ",.02)
 ;;65162-0518-11
 ;;9002226.02101,"994,65162-0608-24 ",.01)
 ;;65162-0608-24
 ;;9002226.02101,"994,65162-0608-24 ",.02)
 ;;65162-0608-24
 ;;9002226.02101,"994,65224-0545-01 ",.01)
 ;;65224-0545-01
 ;;9002226.02101,"994,65224-0545-01 ",.02)
 ;;65224-0545-01
 ;;9002226.02101,"994,66267-0080-15 ",.01)
 ;;66267-0080-15
 ;;9002226.02101,"994,66267-0080-15 ",.02)
 ;;66267-0080-15
 ;;9002226.02101,"994,66267-0080-20 ",.01)
 ;;66267-0080-20
 ;;9002226.02101,"994,66267-0080-20 ",.02)
 ;;66267-0080-20
 ;;9002226.02101,"994,66267-0080-30 ",.01)
 ;;66267-0080-30
 ;;9002226.02101,"994,66267-0080-30 ",.02)
 ;;66267-0080-30
 ;;9002226.02101,"994,66267-0080-60 ",.01)
 ;;66267-0080-60
 ;;9002226.02101,"994,66267-0080-60 ",.02)
 ;;66267-0080-60
 ;;9002226.02101,"994,66267-0081-15 ",.01)
 ;;66267-0081-15
 ;;9002226.02101,"994,66267-0081-15 ",.02)
 ;;66267-0081-15
 ;;9002226.02101,"994,66267-0081-20 ",.01)
 ;;66267-0081-20
 ;;9002226.02101,"994,66267-0081-20 ",.02)
 ;;66267-0081-20
 ;;9002226.02101,"994,66267-0081-30 ",.01)
 ;;66267-0081-30
 ;;9002226.02101,"994,66267-0081-30 ",.02)
 ;;66267-0081-30
 ;;9002226.02101,"994,66267-0081-60 ",.01)
 ;;66267-0081-60
 ;;9002226.02101,"994,66267-0081-60 ",.02)
 ;;66267-0081-60
 ;;9002226.02101,"994,66267-0112-15 ",.01)
 ;;66267-0112-15
 ;;9002226.02101,"994,66267-0112-15 ",.02)
 ;;66267-0112-15
 ;;9002226.02101,"994,66267-0112-30 ",.01)
 ;;66267-0112-30
 ;;9002226.02101,"994,66267-0112-30 ",.02)
 ;;66267-0112-30
 ;;9002226.02101,"994,66267-0112-60 ",.01)
 ;;66267-0112-60
 ;;9002226.02101,"994,66267-0112-60 ",.02)
 ;;66267-0112-60
 ;;9002226.02101,"994,66267-0177-30 ",.01)
 ;;66267-0177-30
 ;;9002226.02101,"994,66267-0177-30 ",.02)
 ;;66267-0177-30
 ;;9002226.02101,"994,66267-0813-04 ",.01)
 ;;66267-0813-04
 ;;9002226.02101,"994,66267-0813-04 ",.02)
 ;;66267-0813-04
 ;;9002226.02101,"994,66267-0977-04 ",.01)
 ;;66267-0977-04
 ;;9002226.02101,"994,66267-0977-04 ",.02)
 ;;66267-0977-04
 ;;9002226.02101,"994,66336-0045-06 ",.01)
 ;;66336-0045-06
 ;;9002226.02101,"994,66336-0045-06 ",.02)
 ;;66336-0045-06
 ;;9002226.02101,"994,66336-0045-15 ",.01)
 ;;66336-0045-15
 ;;9002226.02101,"994,66336-0045-15 ",.02)
 ;;66336-0045-15
 ;;9002226.02101,"994,66336-0045-30 ",.01)
 ;;66336-0045-30
 ;;9002226.02101,"994,66336-0045-30 ",.02)
 ;;66336-0045-30
 ;;9002226.02101,"994,66336-0045-60 ",.01)
 ;;66336-0045-60
 ;;9002226.02101,"994,66336-0045-60 ",.02)
 ;;66336-0045-60
 ;;9002226.02101,"994,66336-0085-10 ",.01)
 ;;66336-0085-10
 ;;9002226.02101,"994,66336-0085-10 ",.02)
 ;;66336-0085-10
 ;;9002226.02101,"994,66336-0085-12 ",.01)
 ;;66336-0085-12
 ;;9002226.02101,"994,66336-0085-12 ",.02)
 ;;66336-0085-12
 ;;9002226.02101,"994,66336-0085-30 ",.01)
 ;;66336-0085-30
 ;;9002226.02101,"994,66336-0085-30 ",.02)
 ;;66336-0085-30
 ;;9002226.02101,"994,66336-0086-15 ",.01)
 ;;66336-0086-15
 ;;9002226.02101,"994,66336-0086-15 ",.02)
 ;;66336-0086-15
 ;;9002226.02101,"994,66336-0086-20 ",.01)
 ;;66336-0086-20
 ;;9002226.02101,"994,66336-0086-20 ",.02)
 ;;66336-0086-20
 ;;9002226.02101,"994,66336-0086-30 ",.01)
 ;;66336-0086-30
 ;;9002226.02101,"994,66336-0086-30 ",.02)
 ;;66336-0086-30
 ;;9002226.02101,"994,66336-0208-20 ",.01)
 ;;66336-0208-20
 ;;9002226.02101,"994,66336-0208-20 ",.02)
 ;;66336-0208-20
 ;;9002226.02101,"994,66336-0208-30 ",.01)
 ;;66336-0208-30
 ;;9002226.02101,"994,66336-0208-30 ",.02)
 ;;66336-0208-30
 ;;9002226.02101,"994,66336-0589-15 ",.01)
 ;;66336-0589-15
 ;;9002226.02101,"994,66336-0589-15 ",.02)
 ;;66336-0589-15