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

BGP82Z30.m

Go to the documentation of this file.
BGP82Z30 ; 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,20482-0016-01 ",.02)
 ;;20482-0016-01
 ;;9002226.02101,"619,20482-0016-15 ",.01)
 ;;20482-0016-15
 ;;9002226.02101,"619,20482-0016-15 ",.02)
 ;;20482-0016-15
 ;;9002226.02101,"619,21695-0069-72 ",.01)
 ;;21695-0069-72
 ;;9002226.02101,"619,21695-0069-72 ",.02)
 ;;21695-0069-72
 ;;9002226.02101,"619,21695-0132-00 ",.01)
 ;;21695-0132-00
 ;;9002226.02101,"619,21695-0132-00 ",.02)
 ;;21695-0132-00
 ;;9002226.02101,"619,21695-0132-08 ",.01)
 ;;21695-0132-08
 ;;9002226.02101,"619,21695-0132-08 ",.02)
 ;;21695-0132-08
 ;;9002226.02101,"619,21695-0132-10 ",.01)
 ;;21695-0132-10
 ;;9002226.02101,"619,21695-0132-10 ",.02)
 ;;21695-0132-10
 ;;9002226.02101,"619,21695-0132-12 ",.01)
 ;;21695-0132-12
 ;;9002226.02101,"619,21695-0132-12 ",.02)
 ;;21695-0132-12
 ;;9002226.02101,"619,21695-0132-16 ",.01)
 ;;21695-0132-16
 ;;9002226.02101,"619,21695-0132-16 ",.02)
 ;;21695-0132-16
 ;;9002226.02101,"619,21695-0132-20 ",.01)
 ;;21695-0132-20
 ;;9002226.02101,"619,21695-0132-20 ",.02)
 ;;21695-0132-20
 ;;9002226.02101,"619,21695-0132-21 ",.01)
 ;;21695-0132-21
 ;;9002226.02101,"619,21695-0132-21 ",.02)
 ;;21695-0132-21
 ;;9002226.02101,"619,21695-0132-24 ",.01)
 ;;21695-0132-24
 ;;9002226.02101,"619,21695-0132-24 ",.02)
 ;;21695-0132-24
 ;;9002226.02101,"619,21695-0132-28 ",.01)
 ;;21695-0132-28
 ;;9002226.02101,"619,21695-0132-28 ",.02)
 ;;21695-0132-28
 ;;9002226.02101,"619,21695-0132-30 ",.01)
 ;;21695-0132-30
 ;;9002226.02101,"619,21695-0132-30 ",.02)
 ;;21695-0132-30
 ;;9002226.02101,"619,21695-0132-45 ",.01)
 ;;21695-0132-45
 ;;9002226.02101,"619,21695-0132-45 ",.02)
 ;;21695-0132-45
 ;;9002226.02101,"619,21695-0132-50 ",.01)
 ;;21695-0132-50
 ;;9002226.02101,"619,21695-0132-50 ",.02)
 ;;21695-0132-50
 ;;9002226.02101,"619,21695-0132-60 ",.01)
 ;;21695-0132-60
 ;;9002226.02101,"619,21695-0132-60 ",.02)
 ;;21695-0132-60
 ;;9002226.02101,"619,21695-0132-64 ",.01)
 ;;21695-0132-64
 ;;9002226.02101,"619,21695-0132-64 ",.02)
 ;;21695-0132-64
 ;;9002226.02101,"619,21695-0132-72 ",.01)
 ;;21695-0132-72
 ;;9002226.02101,"619,21695-0132-72 ",.02)
 ;;21695-0132-72
 ;;9002226.02101,"619,21695-0132-78 ",.01)
 ;;21695-0132-78
 ;;9002226.02101,"619,21695-0132-78 ",.02)
 ;;21695-0132-78
 ;;9002226.02101,"619,21695-0132-90 ",.01)
 ;;21695-0132-90
 ;;9002226.02101,"619,21695-0132-90 ",.02)
 ;;21695-0132-90
 ;;9002226.02101,"619,21695-0143-72 ",.01)
 ;;21695-0143-72
 ;;9002226.02101,"619,21695-0143-72 ",.02)
 ;;21695-0143-72
 ;;9002226.02101,"619,21695-0233-30 ",.01)
 ;;21695-0233-30
 ;;9002226.02101,"619,21695-0233-30 ",.02)
 ;;21695-0233-30
 ;;9002226.02101,"619,21695-0233-60 ",.01)
 ;;21695-0233-60
 ;;9002226.02101,"619,21695-0233-60 ",.02)
 ;;21695-0233-60
 ;;9002226.02101,"619,21695-0233-90 ",.01)
 ;;21695-0233-90
 ;;9002226.02101,"619,21695-0233-90 ",.02)
 ;;21695-0233-90
 ;;9002226.02101,"619,21695-0236-20 ",.01)
 ;;21695-0236-20
 ;;9002226.02101,"619,21695-0236-20 ",.02)
 ;;21695-0236-20
 ;;9002226.02101,"619,21695-0236-30 ",.01)
 ;;21695-0236-30
 ;;9002226.02101,"619,21695-0236-30 ",.02)
 ;;21695-0236-30
 ;;9002226.02101,"619,21695-0236-50 ",.01)
 ;;21695-0236-50
 ;;9002226.02101,"619,21695-0236-50 ",.02)
 ;;21695-0236-50
 ;;9002226.02101,"619,21695-0236-60 ",.01)
 ;;21695-0236-60
 ;;9002226.02101,"619,21695-0236-60 ",.02)
 ;;21695-0236-60
 ;;9002226.02101,"619,21695-0236-72 ",.01)
 ;;21695-0236-72
 ;;9002226.02101,"619,21695-0236-72 ",.02)
 ;;21695-0236-72
 ;;9002226.02101,"619,21695-0242-12 ",.01)
 ;;21695-0242-12
 ;;9002226.02101,"619,21695-0242-12 ",.02)
 ;;21695-0242-12
 ;;9002226.02101,"619,21695-0242-15 ",.01)
 ;;21695-0242-15
 ;;9002226.02101,"619,21695-0242-15 ",.02)
 ;;21695-0242-15
 ;;9002226.02101,"619,21695-0242-18 ",.01)
 ;;21695-0242-18
 ;;9002226.02101,"619,21695-0242-18 ",.02)
 ;;21695-0242-18
 ;;9002226.02101,"619,21695-0242-20 ",.01)
 ;;21695-0242-20
 ;;9002226.02101,"619,21695-0242-20 ",.02)
 ;;21695-0242-20
 ;;9002226.02101,"619,21695-0242-28 ",.01)
 ;;21695-0242-28
 ;;9002226.02101,"619,21695-0242-28 ",.02)
 ;;21695-0242-28
 ;;9002226.02101,"619,21695-0242-30 ",.01)
 ;;21695-0242-30
 ;;9002226.02101,"619,21695-0242-30 ",.02)
 ;;21695-0242-30
 ;;9002226.02101,"619,21695-0242-40 ",.01)
 ;;21695-0242-40
 ;;9002226.02101,"619,21695-0242-40 ",.02)
 ;;21695-0242-40
 ;;9002226.02101,"619,21695-0242-60 ",.01)
 ;;21695-0242-60
 ;;9002226.02101,"619,21695-0242-60 ",.02)
 ;;21695-0242-60
 ;;9002226.02101,"619,21695-0242-90 ",.01)
 ;;21695-0242-90
 ;;9002226.02101,"619,21695-0242-90 ",.02)
 ;;21695-0242-90
 ;;9002226.02101,"619,21695-0243-28 ",.01)
 ;;21695-0243-28
 ;;9002226.02101,"619,21695-0243-28 ",.02)
 ;;21695-0243-28
 ;;9002226.02101,"619,21695-0243-60 ",.01)
 ;;21695-0243-60
 ;;9002226.02101,"619,21695-0243-60 ",.02)
 ;;21695-0243-60
 ;;9002226.02101,"619,21695-0254-90 ",.01)
 ;;21695-0254-90
 ;;9002226.02101,"619,21695-0254-90 ",.02)
 ;;21695-0254-90
 ;;9002226.02101,"619,21695-0268-15 ",.01)
 ;;21695-0268-15
 ;;9002226.02101,"619,21695-0268-15 ",.02)
 ;;21695-0268-15
 ;;9002226.02101,"619,21695-0268-28 ",.01)
 ;;21695-0268-28
 ;;9002226.02101,"619,21695-0268-28 ",.02)
 ;;21695-0268-28
 ;;9002226.02101,"619,21695-0268-30 ",.01)
 ;;21695-0268-30
 ;;9002226.02101,"619,21695-0268-30 ",.02)
 ;;21695-0268-30
 ;;9002226.02101,"619,21695-0268-60 ",.01)
 ;;21695-0268-60
 ;;9002226.02101,"619,21695-0268-60 ",.02)
 ;;21695-0268-60
 ;;9002226.02101,"619,21695-0269-08 ",.01)
 ;;21695-0269-08
 ;;9002226.02101,"619,21695-0269-08 ",.02)
 ;;21695-0269-08
 ;;9002226.02101,"619,21695-0269-10 ",.01)
 ;;21695-0269-10
 ;;9002226.02101,"619,21695-0269-10 ",.02)
 ;;21695-0269-10
 ;;9002226.02101,"619,21695-0269-12 ",.01)
 ;;21695-0269-12
 ;;9002226.02101,"619,21695-0269-12 ",.02)
 ;;21695-0269-12
 ;;9002226.02101,"619,21695-0269-15 ",.01)
 ;;21695-0269-15
 ;;9002226.02101,"619,21695-0269-15 ",.02)
 ;;21695-0269-15
 ;;9002226.02101,"619,21695-0269-16 ",.01)
 ;;21695-0269-16
 ;;9002226.02101,"619,21695-0269-16 ",.02)
 ;;21695-0269-16
 ;;9002226.02101,"619,21695-0269-20 ",.01)
 ;;21695-0269-20
 ;;9002226.02101,"619,21695-0269-20 ",.02)
 ;;21695-0269-20
 ;;9002226.02101,"619,21695-0269-24 ",.01)
 ;;21695-0269-24
 ;;9002226.02101,"619,21695-0269-24 ",.02)
 ;;21695-0269-24
 ;;9002226.02101,"619,21695-0269-28 ",.01)
 ;;21695-0269-28
 ;;9002226.02101,"619,21695-0269-28 ",.02)
 ;;21695-0269-28
 ;;9002226.02101,"619,21695-0269-30 ",.01)
 ;;21695-0269-30
 ;;9002226.02101,"619,21695-0269-30 ",.02)
 ;;21695-0269-30
 ;;9002226.02101,"619,21695-0269-40 ",.01)
 ;;21695-0269-40
 ;;9002226.02101,"619,21695-0269-40 ",.02)
 ;;21695-0269-40
 ;;9002226.02101,"619,21695-0269-45 ",.01)
 ;;21695-0269-45
 ;;9002226.02101,"619,21695-0269-45 ",.02)
 ;;21695-0269-45
 ;;9002226.02101,"619,21695-0269-60 ",.01)
 ;;21695-0269-60
 ;;9002226.02101,"619,21695-0269-60 ",.02)
 ;;21695-0269-60
 ;;9002226.02101,"619,21695-0269-72 ",.01)
 ;;21695-0269-72
 ;;9002226.02101,"619,21695-0269-72 ",.02)
 ;;21695-0269-72
 ;;9002226.02101,"619,21695-0269-90 ",.01)
 ;;21695-0269-90
 ;;9002226.02101,"619,21695-0269-90 ",.02)
 ;;21695-0269-90
 ;;9002226.02101,"619,21695-0270-08 ",.01)
 ;;21695-0270-08
 ;;9002226.02101,"619,21695-0270-08 ",.02)
 ;;21695-0270-08
 ;;9002226.02101,"619,21695-0270-12 ",.01)
 ;;21695-0270-12
 ;;9002226.02101,"619,21695-0270-12 ",.02)
 ;;21695-0270-12
 ;;9002226.02101,"619,21695-0270-14 ",.01)
 ;;21695-0270-14
 ;;9002226.02101,"619,21695-0270-14 ",.02)
 ;;21695-0270-14
 ;;9002226.02101,"619,21695-0270-15 ",.01)
 ;;21695-0270-15
 ;;9002226.02101,"619,21695-0270-15 ",.02)
 ;;21695-0270-15
 ;;9002226.02101,"619,21695-0270-20 ",.01)
 ;;21695-0270-20
 ;;9002226.02101,"619,21695-0270-20 ",.02)
 ;;21695-0270-20
 ;;9002226.02101,"619,21695-0270-24 ",.01)
 ;;21695-0270-24
 ;;9002226.02101,"619,21695-0270-24 ",.02)
 ;;21695-0270-24
 ;;9002226.02101,"619,21695-0270-30 ",.01)
 ;;21695-0270-30
 ;;9002226.02101,"619,21695-0270-30 ",.02)
 ;;21695-0270-30
 ;;9002226.02101,"619,21695-0270-45 ",.01)
 ;;21695-0270-45
 ;;9002226.02101,"619,21695-0270-45 ",.02)
 ;;21695-0270-45
 ;;9002226.02101,"619,21695-0270-60 ",.01)
 ;;21695-0270-60
 ;;9002226.02101,"619,21695-0270-60 ",.02)
 ;;21695-0270-60
 ;;9002226.02101,"619,21695-0270-72 ",.01)
 ;;21695-0270-72
 ;;9002226.02101,"619,21695-0270-72 ",.02)
 ;;21695-0270-72
 ;;9002226.02101,"619,21695-0270-90 ",.01)
 ;;21695-0270-90
 ;;9002226.02101,"619,21695-0270-90 ",.02)
 ;;21695-0270-90
 ;;9002226.02101,"619,21695-0271-00 ",.01)
 ;;21695-0271-00
 ;;9002226.02101,"619,21695-0271-00 ",.02)
 ;;21695-0271-00
 ;;9002226.02101,"619,21695-0271-12 ",.01)
 ;;21695-0271-12
 ;;9002226.02101,"619,21695-0271-12 ",.02)
 ;;21695-0271-12
 ;;9002226.02101,"619,21695-0271-15 ",.01)
 ;;21695-0271-15
 ;;9002226.02101,"619,21695-0271-15 ",.02)
 ;;21695-0271-15
 ;;9002226.02101,"619,21695-0271-20 ",.01)
 ;;21695-0271-20
 ;;9002226.02101,"619,21695-0271-20 ",.02)
 ;;21695-0271-20
 ;;9002226.02101,"619,21695-0271-28 ",.01)
 ;;21695-0271-28
 ;;9002226.02101,"619,21695-0271-28 ",.02)
 ;;21695-0271-28
 ;;9002226.02101,"619,21695-0271-30 ",.01)
 ;;21695-0271-30
 ;;9002226.02101,"619,21695-0271-30 ",.02)
 ;;21695-0271-30
 ;;9002226.02101,"619,21695-0271-40 ",.01)
 ;;21695-0271-40
 ;;9002226.02101,"619,21695-0271-40 ",.02)
 ;;21695-0271-40
 ;;9002226.02101,"619,21695-0271-60 ",.01)
 ;;21695-0271-60
 ;;9002226.02101,"619,21695-0271-60 ",.02)
 ;;21695-0271-60
 ;;9002226.02101,"619,21695-0271-72 ",.01)
 ;;21695-0271-72
 ;;9002226.02101,"619,21695-0271-72 ",.02)
 ;;21695-0271-72
 ;;9002226.02101,"619,21695-0271-90 ",.01)
 ;;21695-0271-90
 ;;9002226.02101,"619,21695-0271-90 ",.02)
 ;;21695-0271-90
 ;;9002226.02101,"619,21695-0272-00 ",.01)
 ;;21695-0272-00
 ;;9002226.02101,"619,21695-0272-00 ",.02)
 ;;21695-0272-00
 ;;9002226.02101,"619,21695-0272-10 ",.01)
 ;;21695-0272-10
 ;;9002226.02101,"619,21695-0272-10 ",.02)
 ;;21695-0272-10
 ;;9002226.02101,"619,21695-0272-15 ",.01)
 ;;21695-0272-15
 ;;9002226.02101,"619,21695-0272-15 ",.02)
 ;;21695-0272-15
 ;;9002226.02101,"619,21695-0272-21 ",.01)
 ;;21695-0272-21
 ;;9002226.02101,"619,21695-0272-21 ",.02)
 ;;21695-0272-21
 ;;9002226.02101,"619,21695-0272-28 ",.01)
 ;;21695-0272-28
 ;;9002226.02101,"619,21695-0272-28 ",.02)
 ;;21695-0272-28
 ;;9002226.02101,"619,21695-0272-30 ",.01)
 ;;21695-0272-30
 ;;9002226.02101,"619,21695-0272-30 ",.02)
 ;;21695-0272-30
 ;;9002226.02101,"619,21695-0272-60 ",.01)
 ;;21695-0272-60
 ;;9002226.02101,"619,21695-0272-60 ",.02)
 ;;21695-0272-60
 ;;9002226.02101,"619,21695-0272-72 ",.01)
 ;;21695-0272-72
 ;;9002226.02101,"619,21695-0272-72 ",.02)
 ;;21695-0272-72
 ;;9002226.02101,"619,21695-0272-90 ",.01)
 ;;21695-0272-90
 ;;9002226.02101,"619,21695-0272-90 ",.02)
 ;;21695-0272-90
 ;;9002226.02101,"619,21695-0273-08 ",.01)
 ;;21695-0273-08
 ;;9002226.02101,"619,21695-0273-08 ",.02)
 ;;21695-0273-08
 ;;9002226.02101,"619,21695-0273-12 ",.01)
 ;;21695-0273-12
 ;;9002226.02101,"619,21695-0273-12 ",.02)
 ;;21695-0273-12
 ;;9002226.02101,"619,21695-0273-28 ",.01)
 ;;21695-0273-28
 ;;9002226.02101,"619,21695-0273-28 ",.02)
 ;;21695-0273-28
 ;;9002226.02101,"619,21695-0273-30 ",.01)
 ;;21695-0273-30
 ;;9002226.02101,"619,21695-0273-30 ",.02)
 ;;21695-0273-30
 ;;9002226.02101,"619,21695-0273-45 ",.01)
 ;;21695-0273-45
 ;;9002226.02101,"619,21695-0273-45 ",.02)
 ;;21695-0273-45
 ;;9002226.02101,"619,21695-0273-60 ",.01)
 ;;21695-0273-60
 ;;9002226.02101,"619,21695-0273-60 ",.02)
 ;;21695-0273-60
 ;;9002226.02101,"619,21695-0273-72 ",.01)
 ;;21695-0273-72
 ;;9002226.02101,"619,21695-0273-72 ",.02)
 ;;21695-0273-72
 ;;9002226.02101,"619,21695-0273-90 ",.01)
 ;;21695-0273-90