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

BGP71J18.m

Go to the documentation of this file.
BGP71J18 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,63874-0757-24 ",.02)
 ;;63874-0757-24
 ;;9002226.02101,"1795,63874-0757-28 ",.01)
 ;;63874-0757-28
 ;;9002226.02101,"1795,63874-0757-28 ",.02)
 ;;63874-0757-28
 ;;9002226.02101,"1795,63874-0757-30 ",.01)
 ;;63874-0757-30
 ;;9002226.02101,"1795,63874-0757-30 ",.02)
 ;;63874-0757-30
 ;;9002226.02101,"1795,63874-0757-60 ",.01)
 ;;63874-0757-60
 ;;9002226.02101,"1795,63874-0757-60 ",.02)
 ;;63874-0757-60
 ;;9002226.02101,"1795,63874-0757-90 ",.01)
 ;;63874-0757-90
 ;;9002226.02101,"1795,63874-0757-90 ",.02)
 ;;63874-0757-90
 ;;9002226.02101,"1795,64125-0136-01 ",.01)
 ;;64125-0136-01
 ;;9002226.02101,"1795,64125-0136-01 ",.02)
 ;;64125-0136-01
 ;;9002226.02101,"1795,64125-0136-10 ",.01)
 ;;64125-0136-10
 ;;9002226.02101,"1795,64125-0136-10 ",.02)
 ;;64125-0136-10
 ;;9002226.02101,"1795,64125-0137-01 ",.01)
 ;;64125-0137-01
 ;;9002226.02101,"1795,64125-0137-01 ",.02)
 ;;64125-0137-01
 ;;9002226.02101,"1795,64125-0137-10 ",.01)
 ;;64125-0137-10
 ;;9002226.02101,"1795,64125-0137-10 ",.02)
 ;;64125-0137-10
 ;;9002226.02101,"1795,64125-0138-01 ",.01)
 ;;64125-0138-01
 ;;9002226.02101,"1795,64125-0138-01 ",.02)
 ;;64125-0138-01
 ;;9002226.02101,"1795,64125-0138-10 ",.01)
 ;;64125-0138-10
 ;;9002226.02101,"1795,64125-0138-10 ",.02)
 ;;64125-0138-10
 ;;9002226.02101,"1795,64205-0521-20 ",.01)
 ;;64205-0521-20
 ;;9002226.02101,"1795,64205-0521-20 ",.02)
 ;;64205-0521-20
 ;;9002226.02101,"1795,64205-0745-30 ",.01)
 ;;64205-0745-30
 ;;9002226.02101,"1795,64205-0745-30 ",.02)
 ;;64205-0745-30
 ;;9002226.02101,"1795,64376-0605-01 ",.01)
 ;;64376-0605-01
 ;;9002226.02101,"1795,64376-0605-01 ",.02)
 ;;64376-0605-01
 ;;9002226.02101,"1795,64376-0612-16 ",.01)
 ;;64376-0612-16
 ;;9002226.02101,"1795,64376-0612-16 ",.02)
 ;;64376-0612-16
 ;;9002226.02101,"1795,64376-0612-40 ",.01)
 ;;64376-0612-40
 ;;9002226.02101,"1795,64376-0612-40 ",.02)
 ;;64376-0612-40
 ;;9002226.02101,"1795,64376-0657-16 ",.01)
 ;;64376-0657-16
 ;;9002226.02101,"1795,64376-0657-16 ",.02)
 ;;64376-0657-16
 ;;9002226.02101,"1795,64376-0657-40 ",.01)
 ;;64376-0657-40
 ;;9002226.02101,"1795,64376-0657-40 ",.02)
 ;;64376-0657-40
 ;;9002226.02101,"1795,64543-0084-90 ",.01)
 ;;64543-0084-90
 ;;9002226.02101,"1795,64543-0084-90 ",.02)
 ;;64543-0084-90
 ;;9002226.02101,"1795,64543-0085-01 ",.01)
 ;;64543-0085-01
 ;;9002226.02101,"1795,64543-0085-01 ",.02)
 ;;64543-0085-01
 ;;9002226.02101,"1795,64543-0091-90 ",.01)
 ;;64543-0091-90
 ;;9002226.02101,"1795,64543-0091-90 ",.02)
 ;;64543-0091-90
 ;;9002226.02101,"1795,64661-0060-16 ",.01)
 ;;64661-0060-16
 ;;9002226.02101,"1795,64661-0060-16 ",.02)
 ;;64661-0060-16
 ;;9002226.02101,"1795,64661-0090-04 ",.01)
 ;;64661-0090-04
 ;;9002226.02101,"1795,64661-0090-04 ",.02)
 ;;64661-0090-04
 ;;9002226.02101,"1795,64720-0143-10 ",.01)
 ;;64720-0143-10
 ;;9002226.02101,"1795,64720-0143-10 ",.02)
 ;;64720-0143-10
 ;;9002226.02101,"1795,64720-0143-11 ",.01)
 ;;64720-0143-11
 ;;9002226.02101,"1795,64720-0143-11 ",.02)
 ;;64720-0143-11
 ;;9002226.02101,"1795,64720-0144-10 ",.01)
 ;;64720-0144-10
 ;;9002226.02101,"1795,64720-0144-10 ",.02)
 ;;64720-0144-10
 ;;9002226.02101,"1795,64720-0144-11 ",.01)
 ;;64720-0144-11
 ;;9002226.02101,"1795,64720-0144-11 ",.02)
 ;;64720-0144-11
 ;;9002226.02101,"1795,64720-0145-10 ",.01)
 ;;64720-0145-10
 ;;9002226.02101,"1795,64720-0145-10 ",.02)
 ;;64720-0145-10
 ;;9002226.02101,"1795,64720-0145-11 ",.01)
 ;;64720-0145-11
 ;;9002226.02101,"1795,64720-0145-11 ",.02)
 ;;64720-0145-11
 ;;9002226.02101,"1795,64720-0150-10 ",.01)
 ;;64720-0150-10
 ;;9002226.02101,"1795,64720-0150-10 ",.02)
 ;;64720-0150-10
 ;;9002226.02101,"1795,64720-0150-11 ",.01)
 ;;64720-0150-11
 ;;9002226.02101,"1795,64720-0150-11 ",.02)
 ;;64720-0150-11
 ;;9002226.02101,"1795,64980-0123-10 ",.01)
 ;;64980-0123-10
 ;;9002226.02101,"1795,64980-0123-10 ",.02)
 ;;64980-0123-10
 ;;9002226.02101,"1795,64980-0169-01 ",.01)
 ;;64980-0169-01
 ;;9002226.02101,"1795,64980-0169-01 ",.02)
 ;;64980-0169-01
 ;;9002226.02101,"1795,64980-0169-05 ",.01)
 ;;64980-0169-05
 ;;9002226.02101,"1795,64980-0169-05 ",.02)
 ;;64980-0169-05
 ;;9002226.02101,"1795,64980-0170-01 ",.01)
 ;;64980-0170-01
 ;;9002226.02101,"1795,64980-0170-01 ",.02)
 ;;64980-0170-01
 ;;9002226.02101,"1795,64980-0170-05 ",.01)
 ;;64980-0170-05
 ;;9002226.02101,"1795,64980-0170-05 ",.02)
 ;;64980-0170-05
 ;;9002226.02101,"1795,64980-0504-48 ",.01)
 ;;64980-0504-48
 ;;9002226.02101,"1795,64980-0504-48 ",.02)
 ;;64980-0504-48
 ;;9002226.02101,"1795,65162-0521-10 ",.01)
 ;;65162-0521-10
 ;;9002226.02101,"1795,65162-0521-10 ",.02)
 ;;65162-0521-10
 ;;9002226.02101,"1795,65162-0521-11 ",.01)
 ;;65162-0521-11
 ;;9002226.02101,"1795,65162-0521-11 ",.02)
 ;;65162-0521-11
 ;;9002226.02101,"1795,65162-0522-10 ",.01)
 ;;65162-0522-10
 ;;9002226.02101,"1795,65162-0522-10 ",.02)
 ;;65162-0522-10
 ;;9002226.02101,"1795,65162-0694-86 ",.01)
 ;;65162-0694-86
 ;;9002226.02101,"1795,65162-0694-86 ",.02)
 ;;65162-0694-86
 ;;9002226.02101,"1795,65162-0694-90 ",.01)
 ;;65162-0694-90
 ;;9002226.02101,"1795,65162-0694-90 ",.02)
 ;;65162-0694-90
 ;;9002226.02101,"1795,65162-0745-10 ",.01)
 ;;65162-0745-10
 ;;9002226.02101,"1795,65162-0745-10 ",.02)
 ;;65162-0745-10
 ;;9002226.02101,"1795,65224-0539-30 ",.01)
 ;;65224-0539-30
 ;;9002226.02101,"1795,65224-0539-30 ",.02)
 ;;65224-0539-30
 ;;9002226.02101,"1795,66116-0230-30 ",.01)
 ;;66116-0230-30
 ;;9002226.02101,"1795,66116-0230-30 ",.02)
 ;;66116-0230-30
 ;;9002226.02101,"1795,66116-0284-12 ",.01)
 ;;66116-0284-12
 ;;9002226.02101,"1795,66116-0284-12 ",.02)
 ;;66116-0284-12
 ;;9002226.02101,"1795,66116-0488-30 ",.01)
 ;;66116-0488-30
 ;;9002226.02101,"1795,66116-0488-30 ",.02)
 ;;66116-0488-30
 ;;9002226.02101,"1795,66116-0618-18 ",.01)
 ;;66116-0618-18
 ;;9002226.02101,"1795,66116-0618-18 ",.02)
 ;;66116-0618-18
 ;;9002226.02101,"1795,66116-0651-30 ",.01)
 ;;66116-0651-30
 ;;9002226.02101,"1795,66116-0651-30 ",.02)
 ;;66116-0651-30
 ;;9002226.02101,"1795,66267-0112-15 ",.01)
 ;;66267-0112-15
 ;;9002226.02101,"1795,66267-0112-15 ",.02)
 ;;66267-0112-15
 ;;9002226.02101,"1795,66267-0112-30 ",.01)
 ;;66267-0112-30
 ;;9002226.02101,"1795,66267-0112-30 ",.02)
 ;;66267-0112-30
 ;;9002226.02101,"1795,66267-0112-40 ",.01)
 ;;66267-0112-40
 ;;9002226.02101,"1795,66267-0112-40 ",.02)
 ;;66267-0112-40
 ;;9002226.02101,"1795,66267-0112-60 ",.01)
 ;;66267-0112-60
 ;;9002226.02101,"1795,66267-0112-60 ",.02)
 ;;66267-0112-60
 ;;9002226.02101,"1795,66267-0113-15 ",.01)
 ;;66267-0113-15
 ;;9002226.02101,"1795,66267-0113-15 ",.02)
 ;;66267-0113-15
 ;;9002226.02101,"1795,66267-0113-20 ",.01)
 ;;66267-0113-20
 ;;9002226.02101,"1795,66267-0113-20 ",.02)
 ;;66267-0113-20
 ;;9002226.02101,"1795,66267-0113-30 ",.01)
 ;;66267-0113-30
 ;;9002226.02101,"1795,66267-0113-30 ",.02)
 ;;66267-0113-30
 ;;9002226.02101,"1795,66267-0114-20 ",.01)
 ;;66267-0114-20
 ;;9002226.02101,"1795,66267-0114-20 ",.02)
 ;;66267-0114-20
 ;;9002226.02101,"1795,66267-0114-30 ",.01)
 ;;66267-0114-30
 ;;9002226.02101,"1795,66267-0114-30 ",.02)
 ;;66267-0114-30
 ;;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-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-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,66993-0534-02 ",.01)
 ;;66993-0534-02
 ;;9002226.02101,"1795,66993-0534-02 ",.02)
 ;;66993-0534-02
 ;;9002226.02101,"1795,66993-0537-57 ",.01)
 ;;66993-0537-57
 ;;9002226.02101,"1795,66993-0537-57 ",.02)
 ;;66993-0537-57
 ;;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,67537-0273-60 ",.01)
 ;;67537-0273-60
 ;;9002226.02101,"1795,67537-0273-60 ",.02)
 ;;67537-0273-60
 ;;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-0129-16 ",.01)
 ;;68047-0129-16
 ;;9002226.02101,"1795,68047-0129-16 ",.02)
 ;;68047-0129-16
 ;;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