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

BGP51F18.m

Go to the documentation of this file.
BGP51F18 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"618,64720-0145-11 ",.01)
 ;;64720-0145-11
 ;;9002226.02101,"618,64720-0145-11 ",.02)
 ;;64720-0145-11
 ;;9002226.02101,"618,64980-0111-01 ",.01)
 ;;64980-0111-01
 ;;9002226.02101,"618,64980-0111-01 ",.02)
 ;;64980-0111-01
 ;;9002226.02101,"618,64980-0111-10 ",.01)
 ;;64980-0111-10
 ;;9002226.02101,"618,64980-0111-10 ",.02)
 ;;64980-0111-10
 ;;9002226.02101,"618,64980-0112-01 ",.01)
 ;;64980-0112-01
 ;;9002226.02101,"618,64980-0112-01 ",.02)
 ;;64980-0112-01
 ;;9002226.02101,"618,64980-0112-10 ",.01)
 ;;64980-0112-10
 ;;9002226.02101,"618,64980-0112-10 ",.02)
 ;;64980-0112-10
 ;;9002226.02101,"618,64980-0113-01 ",.01)
 ;;64980-0113-01
 ;;9002226.02101,"618,64980-0113-01 ",.02)
 ;;64980-0113-01
 ;;9002226.02101,"618,64980-0113-10 ",.01)
 ;;64980-0113-10
 ;;9002226.02101,"618,64980-0113-10 ",.02)
 ;;64980-0113-10
 ;;9002226.02101,"618,64980-0123-01 ",.01)
 ;;64980-0123-01
 ;;9002226.02101,"618,64980-0123-01 ",.02)
 ;;64980-0123-01
 ;;9002226.02101,"618,64980-0123-10 ",.01)
 ;;64980-0123-10
 ;;9002226.02101,"618,64980-0123-10 ",.02)
 ;;64980-0123-10
 ;;9002226.02101,"618,64980-0169-01 ",.01)
 ;;64980-0169-01
 ;;9002226.02101,"618,64980-0169-01 ",.02)
 ;;64980-0169-01
 ;;9002226.02101,"618,64980-0169-05 ",.01)
 ;;64980-0169-05
 ;;9002226.02101,"618,64980-0169-05 ",.02)
 ;;64980-0169-05
 ;;9002226.02101,"618,64980-0170-01 ",.01)
 ;;64980-0170-01
 ;;9002226.02101,"618,64980-0170-01 ",.02)
 ;;64980-0170-01
 ;;9002226.02101,"618,64980-0170-05 ",.01)
 ;;64980-0170-05
 ;;9002226.02101,"618,64980-0170-05 ",.02)
 ;;64980-0170-05
 ;;9002226.02101,"618,64980-0504-48 ",.01)
 ;;64980-0504-48
 ;;9002226.02101,"618,64980-0504-48 ",.02)
 ;;64980-0504-48
 ;;9002226.02101,"618,65162-0521-10 ",.01)
 ;;65162-0521-10
 ;;9002226.02101,"618,65162-0521-10 ",.02)
 ;;65162-0521-10
 ;;9002226.02101,"618,65162-0521-11 ",.01)
 ;;65162-0521-11
 ;;9002226.02101,"618,65162-0521-11 ",.02)
 ;;65162-0521-11
 ;;9002226.02101,"618,65162-0522-10 ",.01)
 ;;65162-0522-10
 ;;9002226.02101,"618,65162-0522-10 ",.02)
 ;;65162-0522-10
 ;;9002226.02101,"618,65162-0745-10 ",.01)
 ;;65162-0745-10
 ;;9002226.02101,"618,65162-0745-10 ",.02)
 ;;65162-0745-10
 ;;9002226.02101,"618,65224-0537-30 ",.01)
 ;;65224-0537-30
 ;;9002226.02101,"618,65224-0537-30 ",.02)
 ;;65224-0537-30
 ;;9002226.02101,"618,65224-0539-30 ",.01)
 ;;65224-0539-30
 ;;9002226.02101,"618,65224-0539-30 ",.02)
 ;;65224-0539-30
 ;;9002226.02101,"618,66116-0230-30 ",.01)
 ;;66116-0230-30
 ;;9002226.02101,"618,66116-0230-30 ",.02)
 ;;66116-0230-30
 ;;9002226.02101,"618,66116-0284-12 ",.01)
 ;;66116-0284-12
 ;;9002226.02101,"618,66116-0284-12 ",.02)
 ;;66116-0284-12
 ;;9002226.02101,"618,66116-0488-30 ",.01)
 ;;66116-0488-30
 ;;9002226.02101,"618,66116-0488-30 ",.02)
 ;;66116-0488-30
 ;;9002226.02101,"618,66116-0618-18 ",.01)
 ;;66116-0618-18
 ;;9002226.02101,"618,66116-0618-18 ",.02)
 ;;66116-0618-18
 ;;9002226.02101,"618,66116-0651-30 ",.01)
 ;;66116-0651-30
 ;;9002226.02101,"618,66116-0651-30 ",.02)
 ;;66116-0651-30
 ;;9002226.02101,"618,66267-0112-15 ",.01)
 ;;66267-0112-15
 ;;9002226.02101,"618,66267-0112-15 ",.02)
 ;;66267-0112-15
 ;;9002226.02101,"618,66267-0112-30 ",.01)
 ;;66267-0112-30
 ;;9002226.02101,"618,66267-0112-30 ",.02)
 ;;66267-0112-30
 ;;9002226.02101,"618,66267-0112-40 ",.01)
 ;;66267-0112-40
 ;;9002226.02101,"618,66267-0112-40 ",.02)
 ;;66267-0112-40
 ;;9002226.02101,"618,66267-0112-60 ",.01)
 ;;66267-0112-60
 ;;9002226.02101,"618,66267-0112-60 ",.02)
 ;;66267-0112-60
 ;;9002226.02101,"618,66267-0113-15 ",.01)
 ;;66267-0113-15
 ;;9002226.02101,"618,66267-0113-15 ",.02)
 ;;66267-0113-15
 ;;9002226.02101,"618,66267-0113-20 ",.01)
 ;;66267-0113-20
 ;;9002226.02101,"618,66267-0113-20 ",.02)
 ;;66267-0113-20
 ;;9002226.02101,"618,66267-0113-30 ",.01)
 ;;66267-0113-30
 ;;9002226.02101,"618,66267-0113-30 ",.02)
 ;;66267-0113-30
 ;;9002226.02101,"618,66267-0114-20 ",.01)
 ;;66267-0114-20
 ;;9002226.02101,"618,66267-0114-20 ",.02)
 ;;66267-0114-20
 ;;9002226.02101,"618,66267-0114-30 ",.01)
 ;;66267-0114-30
 ;;9002226.02101,"618,66267-0114-30 ",.02)
 ;;66267-0114-30
 ;;9002226.02101,"618,66267-0177-10 ",.01)
 ;;66267-0177-10
 ;;9002226.02101,"618,66267-0177-10 ",.02)
 ;;66267-0177-10
 ;;9002226.02101,"618,66267-0177-15 ",.01)
 ;;66267-0177-15
 ;;9002226.02101,"618,66267-0177-15 ",.02)
 ;;66267-0177-15
 ;;9002226.02101,"618,66267-0177-20 ",.01)
 ;;66267-0177-20
 ;;9002226.02101,"618,66267-0177-20 ",.02)
 ;;66267-0177-20
 ;;9002226.02101,"618,66267-0177-30 ",.01)
 ;;66267-0177-30
 ;;9002226.02101,"618,66267-0177-30 ",.02)
 ;;66267-0177-30
 ;;9002226.02101,"618,66267-0177-60 ",.01)
 ;;66267-0177-60
 ;;9002226.02101,"618,66267-0177-60 ",.02)
 ;;66267-0177-60
 ;;9002226.02101,"618,66267-0177-90 ",.01)
 ;;66267-0177-90
 ;;9002226.02101,"618,66267-0177-90 ",.02)
 ;;66267-0177-90
 ;;9002226.02101,"618,66267-0813-06 ",.01)
 ;;66267-0813-06
 ;;9002226.02101,"618,66267-0813-06 ",.02)
 ;;66267-0813-06
 ;;9002226.02101,"618,66336-0085-06 ",.01)
 ;;66336-0085-06
 ;;9002226.02101,"618,66336-0085-06 ",.02)
 ;;66336-0085-06
 ;;9002226.02101,"618,66336-0085-10 ",.01)
 ;;66336-0085-10
 ;;9002226.02101,"618,66336-0085-10 ",.02)
 ;;66336-0085-10
 ;;9002226.02101,"618,66336-0085-12 ",.01)
 ;;66336-0085-12
 ;;9002226.02101,"618,66336-0085-12 ",.02)
 ;;66336-0085-12
 ;;9002226.02101,"618,66336-0085-20 ",.01)
 ;;66336-0085-20
 ;;9002226.02101,"618,66336-0085-20 ",.02)
 ;;66336-0085-20
 ;;9002226.02101,"618,66336-0085-25 ",.01)
 ;;66336-0085-25
 ;;9002226.02101,"618,66336-0085-25 ",.02)
 ;;66336-0085-25
 ;;9002226.02101,"618,66336-0085-30 ",.01)
 ;;66336-0085-30
 ;;9002226.02101,"618,66336-0085-30 ",.02)
 ;;66336-0085-30
 ;;9002226.02101,"618,66336-0085-60 ",.01)
 ;;66336-0085-60
 ;;9002226.02101,"618,66336-0085-60 ",.02)
 ;;66336-0085-60
 ;;9002226.02101,"618,66336-0085-90 ",.01)
 ;;66336-0085-90
 ;;9002226.02101,"618,66336-0085-90 ",.02)
 ;;66336-0085-90
 ;;9002226.02101,"618,66336-0085-94 ",.01)
 ;;66336-0085-94
 ;;9002226.02101,"618,66336-0085-94 ",.02)
 ;;66336-0085-94
 ;;9002226.02101,"618,66336-0086-06 ",.01)
 ;;66336-0086-06
 ;;9002226.02101,"618,66336-0086-06 ",.02)
 ;;66336-0086-06
 ;;9002226.02101,"618,66336-0086-15 ",.01)
 ;;66336-0086-15
 ;;9002226.02101,"618,66336-0086-15 ",.02)
 ;;66336-0086-15
 ;;9002226.02101,"618,66336-0086-20 ",.01)
 ;;66336-0086-20
 ;;9002226.02101,"618,66336-0086-20 ",.02)
 ;;66336-0086-20
 ;;9002226.02101,"618,66336-0086-30 ",.01)
 ;;66336-0086-30
 ;;9002226.02101,"618,66336-0086-30 ",.02)
 ;;66336-0086-30
 ;;9002226.02101,"618,66336-0086-60 ",.01)
 ;;66336-0086-60
 ;;9002226.02101,"618,66336-0086-60 ",.02)
 ;;66336-0086-60
 ;;9002226.02101,"618,66336-0208-14 ",.01)
 ;;66336-0208-14
 ;;9002226.02101,"618,66336-0208-14 ",.02)
 ;;66336-0208-14
 ;;9002226.02101,"618,66336-0208-20 ",.01)
 ;;66336-0208-20
 ;;9002226.02101,"618,66336-0208-20 ",.02)
 ;;66336-0208-20
 ;;9002226.02101,"618,66336-0208-30 ",.01)
 ;;66336-0208-30
 ;;9002226.02101,"618,66336-0208-30 ",.02)
 ;;66336-0208-30
 ;;9002226.02101,"618,66336-0208-90 ",.01)
 ;;66336-0208-90
 ;;9002226.02101,"618,66336-0208-90 ",.02)
 ;;66336-0208-90
 ;;9002226.02101,"618,66336-0696-06 ",.01)
 ;;66336-0696-06
 ;;9002226.02101,"618,66336-0696-06 ",.02)
 ;;66336-0696-06
 ;;9002226.02101,"618,66336-0699-30 ",.01)
 ;;66336-0699-30
 ;;9002226.02101,"618,66336-0699-30 ",.02)
 ;;66336-0699-30
 ;;9002226.02101,"618,66336-0776-30 ",.01)
 ;;66336-0776-30
 ;;9002226.02101,"618,66336-0776-30 ",.02)
 ;;66336-0776-30
 ;;9002226.02101,"618,66336-0776-60 ",.01)
 ;;66336-0776-60
 ;;9002226.02101,"618,66336-0776-60 ",.02)
 ;;66336-0776-60
 ;;9002226.02101,"618,66336-0795-15 ",.01)
 ;;66336-0795-15
 ;;9002226.02101,"618,66336-0795-15 ",.02)
 ;;66336-0795-15
 ;;9002226.02101,"618,66336-0796-30 ",.01)
 ;;66336-0796-30
 ;;9002226.02101,"618,66336-0796-30 ",.02)
 ;;66336-0796-30
 ;;9002226.02101,"618,66336-0797-20 ",.01)
 ;;66336-0797-20
 ;;9002226.02101,"618,66336-0797-20 ",.02)
 ;;66336-0797-20
 ;;9002226.02101,"618,66336-0797-60 ",.01)
 ;;66336-0797-60
 ;;9002226.02101,"618,66336-0797-60 ",.02)
 ;;66336-0797-60
 ;;9002226.02101,"618,66594-0499-16 ",.01)
 ;;66594-0499-16
 ;;9002226.02101,"618,66594-0499-16 ",.02)
 ;;66594-0499-16
 ;;9002226.02101,"618,66813-0271-01 ",.01)
 ;;66813-0271-01
 ;;9002226.02101,"618,66813-0271-01 ",.02)
 ;;66813-0271-01
 ;;9002226.02101,"618,66860-0098-03 ",.01)
 ;;66860-0098-03
 ;;9002226.02101,"618,66860-0098-03 ",.02)
 ;;66860-0098-03
 ;;9002226.02101,"618,66860-0099-03 ",.01)
 ;;66860-0099-03
 ;;9002226.02101,"618,66860-0099-03 ",.02)
 ;;66860-0099-03
 ;;9002226.02101,"618,66993-0534-02 ",.01)
 ;;66993-0534-02
 ;;9002226.02101,"618,66993-0534-02 ",.02)
 ;;66993-0534-02
 ;;9002226.02101,"618,66993-0537-57 ",.01)
 ;;66993-0537-57
 ;;9002226.02101,"618,66993-0537-57 ",.02)
 ;;66993-0537-57
 ;;9002226.02101,"618,67405-0575-10 ",.01)
 ;;67405-0575-10
 ;;9002226.02101,"618,67405-0575-10 ",.02)
 ;;67405-0575-10
 ;;9002226.02101,"618,67405-0575-50 ",.01)
 ;;67405-0575-50
 ;;9002226.02101,"618,67405-0575-50 ",.02)
 ;;67405-0575-50
 ;;9002226.02101,"618,67405-0575-96 ",.01)
 ;;67405-0575-96
 ;;9002226.02101,"618,67405-0575-96 ",.02)
 ;;67405-0575-96
 ;;9002226.02101,"618,67405-0577-10 ",.01)
 ;;67405-0577-10
 ;;9002226.02101,"618,67405-0577-10 ",.02)
 ;;67405-0577-10
 ;;9002226.02101,"618,67405-0577-50 ",.01)
 ;;67405-0577-50
 ;;9002226.02101,"618,67405-0577-50 ",.02)
 ;;67405-0577-50
 ;;9002226.02101,"618,67405-0671-10 ",.01)
 ;;67405-0671-10
 ;;9002226.02101,"618,67405-0671-10 ",.02)
 ;;67405-0671-10
 ;;9002226.02101,"618,67405-0671-50 ",.01)
 ;;67405-0671-50
 ;;9002226.02101,"618,67405-0671-50 ",.02)
 ;;67405-0671-50
 ;;9002226.02101,"618,67405-0671-96 ",.01)
 ;;67405-0671-96
 ;;9002226.02101,"618,67405-0671-96 ",.02)
 ;;67405-0671-96
 ;;9002226.02101,"618,67537-0273-60 ",.01)
 ;;67537-0273-60
 ;;9002226.02101,"618,67537-0273-60 ",.02)
 ;;67537-0273-60
 ;;9002226.02101,"618,67544-0246-30 ",.01)
 ;;67544-0246-30
 ;;9002226.02101,"618,67544-0246-30 ",.02)
 ;;67544-0246-30
 ;;9002226.02101,"618,67544-0246-53 ",.01)
 ;;67544-0246-53
 ;;9002226.02101,"618,67544-0246-53 ",.02)
 ;;67544-0246-53
 ;;9002226.02101,"618,67544-0304-30 ",.01)
 ;;67544-0304-30
 ;;9002226.02101,"618,67544-0304-30 ",.02)
 ;;67544-0304-30
 ;;9002226.02101,"618,67544-0677-30 ",.01)
 ;;67544-0677-30
 ;;9002226.02101,"618,67544-0677-30 ",.02)
 ;;67544-0677-30
 ;;9002226.02101,"618,67544-0677-53 ",.01)
 ;;67544-0677-53
 ;;9002226.02101,"618,67544-0677-53 ",.02)
 ;;67544-0677-53
 ;;9002226.02101,"618,67544-0677-60 ",.01)
 ;;67544-0677-60
 ;;9002226.02101,"618,67544-0677-60 ",.02)
 ;;67544-0677-60
 ;;9002226.02101,"618,67544-0791-30 ",.01)
 ;;67544-0791-30
 ;;9002226.02101,"618,67544-0791-30 ",.02)
 ;;67544-0791-30
 ;;9002226.02101,"618,67544-0791-53 ",.01)
 ;;67544-0791-53
 ;;9002226.02101,"618,67544-0791-53 ",.02)
 ;;67544-0791-53
 ;;9002226.02101,"618,67544-0791-60 ",.01)
 ;;67544-0791-60
 ;;9002226.02101,"618,67544-0791-60 ",.02)
 ;;67544-0791-60
 ;;9002226.02101,"618,68001-0161-00 ",.01)
 ;;68001-0161-00
 ;;9002226.02101,"618,68001-0161-00 ",.02)
 ;;68001-0161-00
 ;;9002226.02101,"618,68001-0162-00 ",.01)
 ;;68001-0162-00
 ;;9002226.02101,"618,68001-0162-00 ",.02)
 ;;68001-0162-00
 ;;9002226.02101,"618,68001-0162-08 ",.01)
 ;;68001-0162-08
 ;;9002226.02101,"618,68001-0162-08 ",.02)
 ;;68001-0162-08
 ;;9002226.02101,"618,68001-0163-00 ",.01)
 ;;68001-0163-00
 ;;9002226.02101,"618,68001-0163-00 ",.02)
 ;;68001-0163-00
 ;;9002226.02101,"618,68047-0129-16 ",.01)
 ;;68047-0129-16
 ;;9002226.02101,"618,68047-0129-16 ",.02)
 ;;68047-0129-16
 ;;9002226.02101,"618,68047-0145-16 ",.01)
 ;;68047-0145-16
 ;;9002226.02101,"618,68047-0145-16 ",.02)
 ;;68047-0145-16
 ;;9002226.02101,"618,68071-0448-60 ",.01)
 ;;68071-0448-60
 ;;9002226.02101,"618,68071-0448-60 ",.02)
 ;;68071-0448-60
 ;;9002226.02101,"618,68084-0154-01 ",.01)
 ;;68084-0154-01
 ;;9002226.02101,"618,68084-0154-01 ",.02)
 ;;68084-0154-01
 ;;9002226.02101,"618,68084-0154-11 ",.01)
 ;;68084-0154-11
 ;;9002226.02101,"618,68084-0154-11 ",.02)
 ;;68084-0154-11
 ;;9002226.02101,"618,68084-0155-01 ",.01)
 ;;68084-0155-01
 ;;9002226.02101,"618,68084-0155-01 ",.02)
 ;;68084-0155-01
 ;;9002226.02101,"618,68084-0155-11 ",.01)
 ;;68084-0155-11
 ;;9002226.02101,"618,68084-0155-11 ",.02)
 ;;68084-0155-11
 ;;9002226.02101,"618,68084-0253-01 ",.01)
 ;;68084-0253-01
 ;;9002226.02101,"618,68084-0253-01 ",.02)
 ;;68084-0253-01
 ;;9002226.02101,"618,68084-0253-11 ",.01)
 ;;68084-0253-11
 ;;9002226.02101,"618,68084-0253-11 ",.02)
 ;;68084-0253-11
 ;;9002226.02101,"618,68084-0254-01 ",.01)
 ;;68084-0254-01
 ;;9002226.02101,"618,68084-0254-01 ",.02)
 ;;68084-0254-01
 ;;9002226.02101,"618,68084-0254-11 ",.01)
 ;;68084-0254-11
 ;;9002226.02101,"618,68084-0254-11 ",.02)
 ;;68084-0254-11
 ;;9002226.02101,"618,68084-0255-01 ",.01)
 ;;68084-0255-01
 ;;9002226.02101,"618,68084-0255-01 ",.02)
 ;;68084-0255-01
 ;;9002226.02101,"618,68084-0255-11 ",.01)
 ;;68084-0255-11
 ;;9002226.02101,"618,68084-0255-11 ",.02)
 ;;68084-0255-11
 ;;9002226.02101,"618,68084-0381-01 ",.01)
 ;;68084-0381-01
 ;;9002226.02101,"618,68084-0381-01 ",.02)
 ;;68084-0381-01
 ;;9002226.02101,"618,68084-0381-11 ",.01)
 ;;68084-0381-11
 ;;9002226.02101,"618,68084-0381-11 ",.02)
 ;;68084-0381-11
 ;;9002226.02101,"618,68084-0388-01 ",.01)
 ;;68084-0388-01
 ;;9002226.02101,"618,68084-0388-01 ",.02)
 ;;68084-0388-01