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

BGP81W28.m

Go to the documentation of this file.
BGP81W28 ; 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,"1795,66267-0114-30 ",.01)
 ;;66267-0114-30
 ;;9002226.02101,"1795,66267-0114-30 ",.02)
 ;;66267-0114-30
 ;;9002226.02101,"1795,66267-0138-30 ",.01)
 ;;66267-0138-30
 ;;9002226.02101,"1795,66267-0138-30 ",.02)
 ;;66267-0138-30
 ;;9002226.02101,"1795,66267-0139-20 ",.01)
 ;;66267-0139-20
 ;;9002226.02101,"1795,66267-0139-20 ",.02)
 ;;66267-0139-20
 ;;9002226.02101,"1795,66267-0139-30 ",.01)
 ;;66267-0139-30
 ;;9002226.02101,"1795,66267-0139-30 ",.02)
 ;;66267-0139-30
 ;;9002226.02101,"1795,66267-0139-90 ",.01)
 ;;66267-0139-90
 ;;9002226.02101,"1795,66267-0139-90 ",.02)
 ;;66267-0139-90
 ;;9002226.02101,"1795,66267-0177-10 ",.01)
 ;;66267-0177-10
 ;;9002226.02101,"1795,66267-0177-10 ",.02)
 ;;66267-0177-10
 ;;9002226.02101,"1795,66267-0177-15 ",.01)
 ;;66267-0177-15
 ;;9002226.02101,"1795,66267-0177-15 ",.02)
 ;;66267-0177-15
 ;;9002226.02101,"1795,66267-0177-20 ",.01)
 ;;66267-0177-20
 ;;9002226.02101,"1795,66267-0177-20 ",.02)
 ;;66267-0177-20
 ;;9002226.02101,"1795,66267-0177-30 ",.01)
 ;;66267-0177-30
 ;;9002226.02101,"1795,66267-0177-30 ",.02)
 ;;66267-0177-30
 ;;9002226.02101,"1795,66267-0177-60 ",.01)
 ;;66267-0177-60
 ;;9002226.02101,"1795,66267-0177-60 ",.02)
 ;;66267-0177-60
 ;;9002226.02101,"1795,66267-0177-90 ",.01)
 ;;66267-0177-90
 ;;9002226.02101,"1795,66267-0177-90 ",.02)
 ;;66267-0177-90
 ;;9002226.02101,"1795,66267-0291-30 ",.01)
 ;;66267-0291-30
 ;;9002226.02101,"1795,66267-0291-30 ",.02)
 ;;66267-0291-30
 ;;9002226.02101,"1795,66267-0801-04 ",.01)
 ;;66267-0801-04
 ;;9002226.02101,"1795,66267-0801-04 ",.02)
 ;;66267-0801-04
 ;;9002226.02101,"1795,66267-0813-06 ",.01)
 ;;66267-0813-06
 ;;9002226.02101,"1795,66267-0813-06 ",.02)
 ;;66267-0813-06
 ;;9002226.02101,"1795,66336-0085-90 ",.01)
 ;;66336-0085-90
 ;;9002226.02101,"1795,66336-0085-90 ",.02)
 ;;66336-0085-90
 ;;9002226.02101,"1795,66336-0085-94 ",.01)
 ;;66336-0085-94
 ;;9002226.02101,"1795,66336-0085-94 ",.02)
 ;;66336-0085-94
 ;;9002226.02101,"1795,66336-0086-60 ",.01)
 ;;66336-0086-60
 ;;9002226.02101,"1795,66336-0086-60 ",.02)
 ;;66336-0086-60
 ;;9002226.02101,"1795,66336-0437-15 ",.01)
 ;;66336-0437-15
 ;;9002226.02101,"1795,66336-0437-15 ",.02)
 ;;66336-0437-15
 ;;9002226.02101,"1795,66336-0437-20 ",.01)
 ;;66336-0437-20
 ;;9002226.02101,"1795,66336-0437-20 ",.02)
 ;;66336-0437-20
 ;;9002226.02101,"1795,66336-0776-30 ",.01)
 ;;66336-0776-30
 ;;9002226.02101,"1795,66336-0776-30 ",.02)
 ;;66336-0776-30
 ;;9002226.02101,"1795,66336-0776-60 ",.01)
 ;;66336-0776-60
 ;;9002226.02101,"1795,66336-0776-60 ",.02)
 ;;66336-0776-60
 ;;9002226.02101,"1795,66336-0911-06 ",.01)
 ;;66336-0911-06
 ;;9002226.02101,"1795,66336-0911-06 ",.02)
 ;;66336-0911-06
 ;;9002226.02101,"1795,66647-6000-25 ",.01)
 ;;66647-6000-25
 ;;9002226.02101,"1795,66647-6000-25 ",.02)
 ;;66647-6000-25
 ;;9002226.02101,"1795,66758-0208-54 ",.01)
 ;;66758-0208-54
 ;;9002226.02101,"1795,66758-0208-54 ",.02)
 ;;66758-0208-54
 ;;9002226.02101,"1795,66758-0208-58 ",.01)
 ;;66758-0208-58
 ;;9002226.02101,"1795,66758-0208-58 ",.02)
 ;;66758-0208-58
 ;;9002226.02101,"1795,67405-0575-10 ",.01)
 ;;67405-0575-10
 ;;9002226.02101,"1795,67405-0575-10 ",.02)
 ;;67405-0575-10
 ;;9002226.02101,"1795,67405-0575-50 ",.01)
 ;;67405-0575-50
 ;;9002226.02101,"1795,67405-0575-50 ",.02)
 ;;67405-0575-50
 ;;9002226.02101,"1795,67405-0575-96 ",.01)
 ;;67405-0575-96
 ;;9002226.02101,"1795,67405-0575-96 ",.02)
 ;;67405-0575-96
 ;;9002226.02101,"1795,67405-0577-10 ",.01)
 ;;67405-0577-10
 ;;9002226.02101,"1795,67405-0577-10 ",.02)
 ;;67405-0577-10
 ;;9002226.02101,"1795,67405-0577-50 ",.01)
 ;;67405-0577-50
 ;;9002226.02101,"1795,67405-0577-50 ",.02)
 ;;67405-0577-50
 ;;9002226.02101,"1795,67405-0671-10 ",.01)
 ;;67405-0671-10
 ;;9002226.02101,"1795,67405-0671-10 ",.02)
 ;;67405-0671-10
 ;;9002226.02101,"1795,67405-0671-50 ",.01)
 ;;67405-0671-50
 ;;9002226.02101,"1795,67405-0671-50 ",.02)
 ;;67405-0671-50
 ;;9002226.02101,"1795,67405-0671-96 ",.01)
 ;;67405-0671-96
 ;;9002226.02101,"1795,67405-0671-96 ",.02)
 ;;67405-0671-96
 ;;9002226.02101,"1795,67457-0191-15 ",.01)
 ;;67457-0191-15
 ;;9002226.02101,"1795,67457-0191-15 ",.02)
 ;;67457-0191-15
 ;;9002226.02101,"1795,67457-0192-00 ",.01)
 ;;67457-0192-00
 ;;9002226.02101,"1795,67457-0192-00 ",.02)
 ;;67457-0192-00
 ;;9002226.02101,"1795,67457-0192-05 ",.01)
 ;;67457-0192-05
 ;;9002226.02101,"1795,67457-0192-05 ",.02)
 ;;67457-0192-05
 ;;9002226.02101,"1795,67537-0273-60 ",.01)
 ;;67537-0273-60
 ;;9002226.02101,"1795,67537-0273-60 ",.02)
 ;;67537-0273-60
 ;;9002226.02101,"1795,67544-0021-30 ",.01)
 ;;67544-0021-30
 ;;9002226.02101,"1795,67544-0021-30 ",.02)
 ;;67544-0021-30
 ;;9002226.02101,"1795,67544-0021-40 ",.01)
 ;;67544-0021-40
 ;;9002226.02101,"1795,67544-0021-40 ",.02)
 ;;67544-0021-40
 ;;9002226.02101,"1795,67544-0021-53 ",.01)
 ;;67544-0021-53
 ;;9002226.02101,"1795,67544-0021-53 ",.02)
 ;;67544-0021-53
 ;;9002226.02101,"1795,67544-0021-60 ",.01)
 ;;67544-0021-60
 ;;9002226.02101,"1795,67544-0021-60 ",.02)
 ;;67544-0021-60
 ;;9002226.02101,"1795,67544-0021-70 ",.01)
 ;;67544-0021-70
 ;;9002226.02101,"1795,67544-0021-70 ",.02)
 ;;67544-0021-70
 ;;9002226.02101,"1795,67544-0021-80 ",.01)
 ;;67544-0021-80
 ;;9002226.02101,"1795,67544-0021-80 ",.02)
 ;;67544-0021-80
 ;;9002226.02101,"1795,67544-0021-90 ",.01)
 ;;67544-0021-90
 ;;9002226.02101,"1795,67544-0021-90 ",.02)
 ;;67544-0021-90
 ;;9002226.02101,"1795,67544-0577-30 ",.01)
 ;;67544-0577-30
 ;;9002226.02101,"1795,67544-0577-30 ",.02)
 ;;67544-0577-30
 ;;9002226.02101,"1795,67544-0577-70 ",.01)
 ;;67544-0577-70
 ;;9002226.02101,"1795,67544-0577-70 ",.02)
 ;;67544-0577-70
 ;;9002226.02101,"1795,67544-0677-30 ",.01)
 ;;67544-0677-30
 ;;9002226.02101,"1795,67544-0677-30 ",.02)
 ;;67544-0677-30
 ;;9002226.02101,"1795,67544-0677-53 ",.01)
 ;;67544-0677-53
 ;;9002226.02101,"1795,67544-0677-53 ",.02)
 ;;67544-0677-53
 ;;9002226.02101,"1795,67544-0677-60 ",.01)
 ;;67544-0677-60
 ;;9002226.02101,"1795,67544-0677-60 ",.02)
 ;;67544-0677-60
 ;;9002226.02101,"1795,67544-0791-30 ",.01)
 ;;67544-0791-30
 ;;9002226.02101,"1795,67544-0791-30 ",.02)
 ;;67544-0791-30
 ;;9002226.02101,"1795,67544-0791-53 ",.01)
 ;;67544-0791-53
 ;;9002226.02101,"1795,67544-0791-53 ",.02)
 ;;67544-0791-53
 ;;9002226.02101,"1795,67544-0791-60 ",.01)
 ;;67544-0791-60
 ;;9002226.02101,"1795,67544-0791-60 ",.02)
 ;;67544-0791-60
 ;;9002226.02101,"1795,68001-0161-00 ",.01)
 ;;68001-0161-00
 ;;9002226.02101,"1795,68001-0161-00 ",.02)
 ;;68001-0161-00
 ;;9002226.02101,"1795,68001-0162-00 ",.01)
 ;;68001-0162-00
 ;;9002226.02101,"1795,68001-0162-00 ",.02)
 ;;68001-0162-00
 ;;9002226.02101,"1795,68001-0162-08 ",.01)
 ;;68001-0162-08
 ;;9002226.02101,"1795,68001-0162-08 ",.02)
 ;;68001-0162-08
 ;;9002226.02101,"1795,68001-0163-00 ",.01)
 ;;68001-0163-00
 ;;9002226.02101,"1795,68001-0163-00 ",.02)
 ;;68001-0163-00
 ;;9002226.02101,"1795,68047-0252-01 ",.01)
 ;;68047-0252-01
 ;;9002226.02101,"1795,68047-0252-01 ",.02)
 ;;68047-0252-01
 ;;9002226.02101,"1795,68047-0253-01 ",.01)
 ;;68047-0253-01
 ;;9002226.02101,"1795,68047-0253-01 ",.02)
 ;;68047-0253-01
 ;;9002226.02101,"1795,68047-0254-01 ",.01)
 ;;68047-0254-01
 ;;9002226.02101,"1795,68047-0254-01 ",.02)
 ;;68047-0254-01
 ;;9002226.02101,"1795,68047-0255-01 ",.01)
 ;;68047-0255-01
 ;;9002226.02101,"1795,68047-0255-01 ",.02)
 ;;68047-0255-01
 ;;9002226.02101,"1795,68071-0051-04 ",.01)
 ;;68071-0051-04
 ;;9002226.02101,"1795,68071-0051-04 ",.02)
 ;;68071-0051-04
 ;;9002226.02101,"1795,68071-0448-60 ",.01)
 ;;68071-0448-60
 ;;9002226.02101,"1795,68071-0448-60 ",.02)
 ;;68071-0448-60
 ;;9002226.02101,"1795,68084-0154-01 ",.01)
 ;;68084-0154-01
 ;;9002226.02101,"1795,68084-0154-01 ",.02)
 ;;68084-0154-01
 ;;9002226.02101,"1795,68084-0154-11 ",.01)
 ;;68084-0154-11
 ;;9002226.02101,"1795,68084-0154-11 ",.02)
 ;;68084-0154-11
 ;;9002226.02101,"1795,68084-0155-01 ",.01)
 ;;68084-0155-01
 ;;9002226.02101,"1795,68084-0155-01 ",.02)
 ;;68084-0155-01
 ;;9002226.02101,"1795,68084-0155-11 ",.01)
 ;;68084-0155-11
 ;;9002226.02101,"1795,68084-0155-11 ",.02)
 ;;68084-0155-11
 ;;9002226.02101,"1795,68084-0253-01 ",.01)
 ;;68084-0253-01
 ;;9002226.02101,"1795,68084-0253-01 ",.02)
 ;;68084-0253-01
 ;;9002226.02101,"1795,68084-0253-11 ",.01)
 ;;68084-0253-11
 ;;9002226.02101,"1795,68084-0253-11 ",.02)
 ;;68084-0253-11
 ;;9002226.02101,"1795,68084-0254-01 ",.01)
 ;;68084-0254-01
 ;;9002226.02101,"1795,68084-0254-01 ",.02)
 ;;68084-0254-01
 ;;9002226.02101,"1795,68084-0254-11 ",.01)
 ;;68084-0254-11
 ;;9002226.02101,"1795,68084-0254-11 ",.02)
 ;;68084-0254-11
 ;;9002226.02101,"1795,68084-0255-01 ",.01)
 ;;68084-0255-01
 ;;9002226.02101,"1795,68084-0255-01 ",.02)
 ;;68084-0255-01
 ;;9002226.02101,"1795,68084-0255-11 ",.01)
 ;;68084-0255-11
 ;;9002226.02101,"1795,68084-0255-11 ",.02)
 ;;68084-0255-11
 ;;9002226.02101,"1795,68084-0381-01 ",.01)
 ;;68084-0381-01
 ;;9002226.02101,"1795,68084-0381-01 ",.02)
 ;;68084-0381-01
 ;;9002226.02101,"1795,68084-0381-11 ",.01)
 ;;68084-0381-11
 ;;9002226.02101,"1795,68084-0381-11 ",.02)
 ;;68084-0381-11
 ;;9002226.02101,"1795,68084-0388-01 ",.01)
 ;;68084-0388-01
 ;;9002226.02101,"1795,68084-0388-01 ",.02)
 ;;68084-0388-01
 ;;9002226.02101,"1795,68084-0388-11 ",.01)
 ;;68084-0388-11
 ;;9002226.02101,"1795,68084-0388-11 ",.02)
 ;;68084-0388-11
 ;;9002226.02101,"1795,68084-0389-01 ",.01)
 ;;68084-0389-01
 ;;9002226.02101,"1795,68084-0389-01 ",.02)
 ;;68084-0389-01
 ;;9002226.02101,"1795,68084-0389-11 ",.01)
 ;;68084-0389-11
 ;;9002226.02101,"1795,68084-0389-11 ",.02)
 ;;68084-0389-11
 ;;9002226.02101,"1795,68084-0490-01 ",.01)
 ;;68084-0490-01
 ;;9002226.02101,"1795,68084-0490-01 ",.02)
 ;;68084-0490-01
 ;;9002226.02101,"1795,68084-0490-11 ",.01)
 ;;68084-0490-11
 ;;9002226.02101,"1795,68084-0490-11 ",.02)
 ;;68084-0490-11
 ;;9002226.02101,"1795,68084-0491-01 ",.01)
 ;;68084-0491-01
 ;;9002226.02101,"1795,68084-0491-01 ",.02)
 ;;68084-0491-01
 ;;9002226.02101,"1795,68084-0491-11 ",.01)
 ;;68084-0491-11
 ;;9002226.02101,"1795,68084-0491-11 ",.02)
 ;;68084-0491-11
 ;;9002226.02101,"1795,68084-0847-01 ",.01)
 ;;68084-0847-01
 ;;9002226.02101,"1795,68084-0847-01 ",.02)
 ;;68084-0847-01
 ;;9002226.02101,"1795,68084-0847-11 ",.01)
 ;;68084-0847-11
 ;;9002226.02101,"1795,68084-0847-11 ",.02)
 ;;68084-0847-11
 ;;9002226.02101,"1795,68220-0111-05 ",.01)
 ;;68220-0111-05
 ;;9002226.02101,"1795,68220-0111-05 ",.02)
 ;;68220-0111-05
 ;;9002226.02101,"1795,68220-0112-10 ",.01)
 ;;68220-0112-10
 ;;9002226.02101,"1795,68220-0112-10 ",.02)
 ;;68220-0112-10
 ;;9002226.02101,"1795,68220-0113-10 ",.01)
 ;;68220-0113-10
 ;;9002226.02101,"1795,68220-0113-10 ",.02)
 ;;68220-0113-10
 ;;9002226.02101,"1795,68220-0115-10 ",.01)
 ;;68220-0115-10
 ;;9002226.02101,"1795,68220-0115-10 ",.02)
 ;;68220-0115-10
 ;;9002226.02101,"1795,68220-0118-10 ",.01)
 ;;68220-0118-10
 ;;9002226.02101,"1795,68220-0118-10 ",.02)
 ;;68220-0118-10
 ;;9002226.02101,"1795,68258-3011-04 ",.01)
 ;;68258-3011-04
 ;;9002226.02101,"1795,68258-3011-04 ",.02)
 ;;68258-3011-04
 ;;9002226.02101,"1795,68258-3028-01 ",.01)
 ;;68258-3028-01
 ;;9002226.02101,"1795,68258-3028-01 ",.02)
 ;;68258-3028-01
 ;;9002226.02101,"1795,68382-0040-01 ",.01)
 ;;68382-0040-01
 ;;9002226.02101,"1795,68382-0040-01 ",.02)
 ;;68382-0040-01
 ;;9002226.02101,"1795,68382-0040-10 ",.01)
 ;;68382-0040-10
 ;;9002226.02101,"1795,68382-0040-10 ",.02)
 ;;68382-0040-10
 ;;9002226.02101,"1795,68382-0041-01 ",.01)
 ;;68382-0041-01
 ;;9002226.02101,"1795,68382-0041-01 ",.02)
 ;;68382-0041-01
 ;;9002226.02101,"1795,68382-0041-10 ",.01)
 ;;68382-0041-10