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

BGP06B32.m

Go to the documentation of this file.
BGP06B32 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"975,58016-0866-20 ",.01)
 ;;58016-0866-20
 ;;9002226.02101,"975,58016-0866-20 ",.02)
 ;;58016-0866-20
 ;;9002226.02101,"975,58016-0866-30 ",.01)
 ;;58016-0866-30
 ;;9002226.02101,"975,58016-0866-30 ",.02)
 ;;58016-0866-30
 ;;9002226.02101,"975,58016-0866-60 ",.01)
 ;;58016-0866-60
 ;;9002226.02101,"975,58016-0866-60 ",.02)
 ;;58016-0866-60
 ;;9002226.02101,"975,58016-0866-90 ",.01)
 ;;58016-0866-90
 ;;9002226.02101,"975,58016-0866-90 ",.02)
 ;;58016-0866-90
 ;;9002226.02101,"975,58016-0875-00 ",.01)
 ;;58016-0875-00
 ;;9002226.02101,"975,58016-0875-00 ",.02)
 ;;58016-0875-00
 ;;9002226.02101,"975,58016-0875-12 ",.01)
 ;;58016-0875-12
 ;;9002226.02101,"975,58016-0875-12 ",.02)
 ;;58016-0875-12
 ;;9002226.02101,"975,58016-0875-15 ",.01)
 ;;58016-0875-15
 ;;9002226.02101,"975,58016-0875-15 ",.02)
 ;;58016-0875-15
 ;;9002226.02101,"975,58016-0875-20 ",.01)
 ;;58016-0875-20
 ;;9002226.02101,"975,58016-0875-20 ",.02)
 ;;58016-0875-20
 ;;9002226.02101,"975,58016-0875-30 ",.01)
 ;;58016-0875-30
 ;;9002226.02101,"975,58016-0875-30 ",.02)
 ;;58016-0875-30
 ;;9002226.02101,"975,58016-0880-00 ",.01)
 ;;58016-0880-00
 ;;9002226.02101,"975,58016-0880-00 ",.02)
 ;;58016-0880-00
 ;;9002226.02101,"975,58016-0880-12 ",.01)
 ;;58016-0880-12
 ;;9002226.02101,"975,58016-0880-12 ",.02)
 ;;58016-0880-12
 ;;9002226.02101,"975,58016-0880-15 ",.01)
 ;;58016-0880-15
 ;;9002226.02101,"975,58016-0880-15 ",.02)
 ;;58016-0880-15
 ;;9002226.02101,"975,58016-0880-20 ",.01)
 ;;58016-0880-20
 ;;9002226.02101,"975,58016-0880-20 ",.02)
 ;;58016-0880-20
 ;;9002226.02101,"975,58016-0880-30 ",.01)
 ;;58016-0880-30
 ;;9002226.02101,"975,58016-0880-30 ",.02)
 ;;58016-0880-30
 ;;9002226.02101,"975,58016-0881-00 ",.01)
 ;;58016-0881-00
 ;;9002226.02101,"975,58016-0881-00 ",.02)
 ;;58016-0881-00
 ;;9002226.02101,"975,58016-0881-02 ",.01)
 ;;58016-0881-02
 ;;9002226.02101,"975,58016-0881-02 ",.02)
 ;;58016-0881-02
 ;;9002226.02101,"975,58016-0881-03 ",.01)
 ;;58016-0881-03
 ;;9002226.02101,"975,58016-0881-03 ",.02)
 ;;58016-0881-03
 ;;9002226.02101,"975,58016-0881-30 ",.01)
 ;;58016-0881-30
 ;;9002226.02101,"975,58016-0881-30 ",.02)
 ;;58016-0881-30
 ;;9002226.02101,"975,58016-0881-60 ",.01)
 ;;58016-0881-60
 ;;9002226.02101,"975,58016-0881-60 ",.02)
 ;;58016-0881-60
 ;;9002226.02101,"975,58016-0881-90 ",.01)
 ;;58016-0881-90
 ;;9002226.02101,"975,58016-0881-90 ",.02)
 ;;58016-0881-90
 ;;9002226.02101,"975,58016-0894-00 ",.01)
 ;;58016-0894-00
 ;;9002226.02101,"975,58016-0894-00 ",.02)
 ;;58016-0894-00
 ;;9002226.02101,"975,58016-0894-02 ",.01)
 ;;58016-0894-02
 ;;9002226.02101,"975,58016-0894-02 ",.02)
 ;;58016-0894-02
 ;;9002226.02101,"975,58016-0894-03 ",.01)
 ;;58016-0894-03
 ;;9002226.02101,"975,58016-0894-03 ",.02)
 ;;58016-0894-03
 ;;9002226.02101,"975,58016-0894-30 ",.01)
 ;;58016-0894-30
 ;;9002226.02101,"975,58016-0894-30 ",.02)
 ;;58016-0894-30
 ;;9002226.02101,"975,58016-0894-60 ",.01)
 ;;58016-0894-60
 ;;9002226.02101,"975,58016-0894-60 ",.02)
 ;;58016-0894-60
 ;;9002226.02101,"975,58016-0894-90 ",.01)
 ;;58016-0894-90
 ;;9002226.02101,"975,58016-0894-90 ",.02)
 ;;58016-0894-90
 ;;9002226.02101,"975,58016-0894-99 ",.01)
 ;;58016-0894-99
 ;;9002226.02101,"975,58016-0894-99 ",.02)
 ;;58016-0894-99
 ;;9002226.02101,"975,58016-0897-00 ",.01)
 ;;58016-0897-00
 ;;9002226.02101,"975,58016-0897-00 ",.02)
 ;;58016-0897-00
 ;;9002226.02101,"975,58016-0897-30 ",.01)
 ;;58016-0897-30
 ;;9002226.02101,"975,58016-0897-30 ",.02)
 ;;58016-0897-30
 ;;9002226.02101,"975,58016-0897-60 ",.01)
 ;;58016-0897-60
 ;;9002226.02101,"975,58016-0897-60 ",.02)
 ;;58016-0897-60
 ;;9002226.02101,"975,58016-0897-90 ",.01)
 ;;58016-0897-90
 ;;9002226.02101,"975,58016-0897-90 ",.02)
 ;;58016-0897-90
 ;;9002226.02101,"975,58016-0905-00 ",.01)
 ;;58016-0905-00
 ;;9002226.02101,"975,58016-0905-00 ",.02)
 ;;58016-0905-00
 ;;9002226.02101,"975,58016-0905-02 ",.01)
 ;;58016-0905-02
 ;;9002226.02101,"975,58016-0905-02 ",.02)
 ;;58016-0905-02
 ;;9002226.02101,"975,58016-0905-03 ",.01)
 ;;58016-0905-03
 ;;9002226.02101,"975,58016-0905-03 ",.02)
 ;;58016-0905-03
 ;;9002226.02101,"975,58016-0905-10 ",.01)
 ;;58016-0905-10
 ;;9002226.02101,"975,58016-0905-10 ",.02)
 ;;58016-0905-10
 ;;9002226.02101,"975,58016-0905-20 ",.01)
 ;;58016-0905-20
 ;;9002226.02101,"975,58016-0905-20 ",.02)
 ;;58016-0905-20
 ;;9002226.02101,"975,58016-0905-30 ",.01)
 ;;58016-0905-30
 ;;9002226.02101,"975,58016-0905-30 ",.02)
 ;;58016-0905-30
 ;;9002226.02101,"975,58016-0905-60 ",.01)
 ;;58016-0905-60
 ;;9002226.02101,"975,58016-0905-60 ",.02)
 ;;58016-0905-60
 ;;9002226.02101,"975,58016-0905-73 ",.01)
 ;;58016-0905-73
 ;;9002226.02101,"975,58016-0905-73 ",.02)
 ;;58016-0905-73
 ;;9002226.02101,"975,58016-0905-89 ",.01)
 ;;58016-0905-89
 ;;9002226.02101,"975,58016-0905-89 ",.02)
 ;;58016-0905-89
 ;;9002226.02101,"975,58016-0906-00 ",.01)
 ;;58016-0906-00
 ;;9002226.02101,"975,58016-0906-00 ",.02)
 ;;58016-0906-00
 ;;9002226.02101,"975,58016-0906-02 ",.01)
 ;;58016-0906-02
 ;;9002226.02101,"975,58016-0906-02 ",.02)
 ;;58016-0906-02
 ;;9002226.02101,"975,58016-0906-03 ",.01)
 ;;58016-0906-03
 ;;9002226.02101,"975,58016-0906-03 ",.02)
 ;;58016-0906-03
 ;;9002226.02101,"975,58016-0906-30 ",.01)
 ;;58016-0906-30
 ;;9002226.02101,"975,58016-0906-30 ",.02)
 ;;58016-0906-30
 ;;9002226.02101,"975,58016-0906-60 ",.01)
 ;;58016-0906-60
 ;;9002226.02101,"975,58016-0906-60 ",.02)
 ;;58016-0906-60
 ;;9002226.02101,"975,58016-0906-73 ",.01)
 ;;58016-0906-73
 ;;9002226.02101,"975,58016-0906-73 ",.02)
 ;;58016-0906-73
 ;;9002226.02101,"975,58016-0906-89 ",.01)
 ;;58016-0906-89
 ;;9002226.02101,"975,58016-0906-89 ",.02)
 ;;58016-0906-89
 ;;9002226.02101,"975,58016-0906-90 ",.01)
 ;;58016-0906-90
 ;;9002226.02101,"975,58016-0906-90 ",.02)
 ;;58016-0906-90
 ;;9002226.02101,"975,58016-0934-00 ",.01)
 ;;58016-0934-00
 ;;9002226.02101,"975,58016-0934-00 ",.02)
 ;;58016-0934-00
 ;;9002226.02101,"975,58016-0934-12 ",.01)
 ;;58016-0934-12
 ;;9002226.02101,"975,58016-0934-12 ",.02)
 ;;58016-0934-12
 ;;9002226.02101,"975,58016-0934-15 ",.01)
 ;;58016-0934-15
 ;;9002226.02101,"975,58016-0934-15 ",.02)
 ;;58016-0934-15
 ;;9002226.02101,"975,58016-0934-20 ",.01)
 ;;58016-0934-20
 ;;9002226.02101,"975,58016-0934-20 ",.02)
 ;;58016-0934-20
 ;;9002226.02101,"975,58016-0934-30 ",.01)
 ;;58016-0934-30
 ;;9002226.02101,"975,58016-0934-30 ",.02)
 ;;58016-0934-30
 ;;9002226.02101,"975,58016-0945-00 ",.01)
 ;;58016-0945-00
 ;;9002226.02101,"975,58016-0945-00 ",.02)
 ;;58016-0945-00
 ;;9002226.02101,"975,58016-0945-12 ",.01)
 ;;58016-0945-12
 ;;9002226.02101,"975,58016-0945-12 ",.02)
 ;;58016-0945-12
 ;;9002226.02101,"975,58016-0945-15 ",.01)
 ;;58016-0945-15
 ;;9002226.02101,"975,58016-0945-15 ",.02)
 ;;58016-0945-15
 ;;9002226.02101,"975,58016-0945-20 ",.01)
 ;;58016-0945-20
 ;;9002226.02101,"975,58016-0945-20 ",.02)
 ;;58016-0945-20
 ;;9002226.02101,"975,58016-0945-30 ",.01)
 ;;58016-0945-30
 ;;9002226.02101,"975,58016-0945-30 ",.02)
 ;;58016-0945-30
 ;;9002226.02101,"975,58016-0977-00 ",.01)
 ;;58016-0977-00
 ;;9002226.02101,"975,58016-0977-00 ",.02)
 ;;58016-0977-00
 ;;9002226.02101,"975,58016-0977-02 ",.01)
 ;;58016-0977-02
 ;;9002226.02101,"975,58016-0977-02 ",.02)
 ;;58016-0977-02
 ;;9002226.02101,"975,58016-0977-30 ",.01)
 ;;58016-0977-30
 ;;9002226.02101,"975,58016-0977-30 ",.02)
 ;;58016-0977-30
 ;;9002226.02101,"975,58016-0977-60 ",.01)
 ;;58016-0977-60
 ;;9002226.02101,"975,58016-0977-60 ",.02)
 ;;58016-0977-60
 ;;9002226.02101,"975,58016-0977-90 ",.01)
 ;;58016-0977-90
 ;;9002226.02101,"975,58016-0977-90 ",.02)
 ;;58016-0977-90
 ;;9002226.02101,"975,58016-4825-01 ",.01)
 ;;58016-4825-01
 ;;9002226.02101,"975,58016-4825-01 ",.02)
 ;;58016-4825-01
 ;;9002226.02101,"975,58016-4826-01 ",.01)
 ;;58016-4826-01
 ;;9002226.02101,"975,58016-4826-01 ",.02)
 ;;58016-4826-01
 ;;9002226.02101,"975,58809-0717-01 ",.01)
 ;;58809-0717-01
 ;;9002226.02101,"975,58809-0717-01 ",.02)
 ;;58809-0717-01
 ;;9002226.02101,"975,58864-0022-60 ",.01)
 ;;58864-0022-60
 ;;9002226.02101,"975,58864-0022-60 ",.02)
 ;;58864-0022-60
 ;;9002226.02101,"975,58864-0022-90 ",.01)
 ;;58864-0022-90
 ;;9002226.02101,"975,58864-0022-90 ",.02)
 ;;58864-0022-90
 ;;9002226.02101,"975,58864-0024-30 ",.01)
 ;;58864-0024-30
 ;;9002226.02101,"975,58864-0024-30 ",.02)
 ;;58864-0024-30
 ;;9002226.02101,"975,59417-0401-71 ",.01)
 ;;59417-0401-71
 ;;9002226.02101,"975,59417-0401-71 ",.02)
 ;;59417-0401-71
 ;;9002226.02101,"975,59417-0402-71 ",.01)
 ;;59417-0402-71
 ;;9002226.02101,"975,59417-0402-71 ",.02)
 ;;59417-0402-71
 ;;9002226.02101,"975,59417-0404-71 ",.01)
 ;;59417-0404-71
 ;;9002226.02101,"975,59417-0404-71 ",.02)
 ;;59417-0404-71
 ;;9002226.02101,"975,59762-4900-01 ",.01)
 ;;59762-4900-01
 ;;9002226.02101,"975,59762-4900-01 ",.02)
 ;;59762-4900-01
 ;;9002226.02101,"975,59762-4900-02 ",.01)
 ;;59762-4900-02
 ;;9002226.02101,"975,59762-4900-02 ",.02)
 ;;59762-4900-02
 ;;9002226.02101,"975,59762-4900-03 ",.01)
 ;;59762-4900-03
 ;;9002226.02101,"975,59762-4900-03 ",.02)
 ;;59762-4900-03
 ;;9002226.02101,"975,59762-4900-04 ",.01)
 ;;59762-4900-04
 ;;9002226.02101,"975,59762-4900-04 ",.02)
 ;;59762-4900-04
 ;;9002226.02101,"975,59762-4900-05 ",.01)
 ;;59762-4900-05
 ;;9002226.02101,"975,59762-4900-05 ",.02)
 ;;59762-4900-05
 ;;9002226.02101,"975,59762-4910-01 ",.01)
 ;;59762-4910-01
 ;;9002226.02101,"975,59762-4910-01 ",.02)
 ;;59762-4910-01
 ;;9002226.02101,"975,59762-4910-02 ",.01)
 ;;59762-4910-02
 ;;9002226.02101,"975,59762-4910-02 ",.02)
 ;;59762-4910-02
 ;;9002226.02101,"975,59762-4910-03 ",.01)
 ;;59762-4910-03
 ;;9002226.02101,"975,59762-4910-03 ",.02)
 ;;59762-4910-03
 ;;9002226.02101,"975,59762-4910-04 ",.01)
 ;;59762-4910-04
 ;;9002226.02101,"975,59762-4910-04 ",.02)
 ;;59762-4910-04
 ;;9002226.02101,"975,59762-4910-05 ",.01)
 ;;59762-4910-05
 ;;9002226.02101,"975,59762-4910-05 ",.02)
 ;;59762-4910-05
 ;;9002226.02101,"975,59762-4940-01 ",.01)
 ;;59762-4940-01
 ;;9002226.02101,"975,59762-4940-01 ",.02)
 ;;59762-4940-01
 ;;9002226.02101,"975,59762-4960-01 ",.01)
 ;;59762-4960-01
 ;;9002226.02101,"975,59762-4960-01 ",.02)
 ;;59762-4960-01
 ;;9002226.02101,"975,59772-3171-01 ",.01)
 ;;59772-3171-01
 ;;9002226.02101,"975,59772-3171-01 ",.02)
 ;;59772-3171-01
 ;;9002226.02101,"975,59772-3171-02 ",.01)
 ;;59772-3171-02
 ;;9002226.02101,"975,59772-3171-02 ",.02)
 ;;59772-3171-02
 ;;9002226.02101,"975,60429-0016-12 ",.01)
 ;;60429-0016-12
 ;;9002226.02101,"975,60429-0016-12 ",.02)
 ;;60429-0016-12
 ;;9002226.02101,"975,60429-0016-18 ",.01)
 ;;60429-0016-18
 ;;9002226.02101,"975,60429-0016-18 ",.02)
 ;;60429-0016-18
 ;;9002226.02101,"975,60429-0016-30 ",.01)
 ;;60429-0016-30
 ;;9002226.02101,"975,60429-0016-30 ",.02)
 ;;60429-0016-30
 ;;9002226.02101,"975,60429-0016-60 ",.01)
 ;;60429-0016-60
 ;;9002226.02101,"975,60429-0016-60 ",.02)
 ;;60429-0016-60
 ;;9002226.02101,"975,60429-0016-90 ",.01)
 ;;60429-0016-90
 ;;9002226.02101,"975,60429-0016-90 ",.02)
 ;;60429-0016-90
 ;;9002226.02101,"975,60429-0017-30 ",.01)
 ;;60429-0017-30
 ;;9002226.02101,"975,60429-0017-30 ",.02)
 ;;60429-0017-30
 ;;9002226.02101,"975,60429-0017-60 ",.01)
 ;;60429-0017-60
 ;;9002226.02101,"975,60429-0017-60 ",.02)
 ;;60429-0017-60
 ;;9002226.02101,"975,60429-0017-90 ",.01)
 ;;60429-0017-90
 ;;9002226.02101,"975,60429-0017-90 ",.02)
 ;;60429-0017-90
 ;;9002226.02101,"975,60429-0187-30 ",.01)
 ;;60429-0187-30
 ;;9002226.02101,"975,60429-0187-30 ",.02)
 ;;60429-0187-30
 ;;9002226.02101,"975,60429-0187-60 ",.01)
 ;;60429-0187-60
 ;;9002226.02101,"975,60429-0187-60 ",.02)
 ;;60429-0187-60
 ;;9002226.02101,"975,60429-0187-90 ",.01)
 ;;60429-0187-90
 ;;9002226.02101,"975,60429-0187-90 ",.02)
 ;;60429-0187-90
 ;;9002226.02101,"975,60429-0188-30 ",.01)
 ;;60429-0188-30
 ;;9002226.02101,"975,60429-0188-30 ",.02)
 ;;60429-0188-30
 ;;9002226.02101,"975,60429-0188-60 ",.01)
 ;;60429-0188-60
 ;;9002226.02101,"975,60429-0188-60 ",.02)
 ;;60429-0188-60
 ;;9002226.02101,"975,60429-0718-18 ",.01)
 ;;60429-0718-18
 ;;9002226.02101,"975,60429-0718-18 ",.02)
 ;;60429-0718-18
 ;;9002226.02101,"975,60429-0718-30 ",.01)
 ;;60429-0718-30
 ;;9002226.02101,"975,60429-0718-30 ",.02)
 ;;60429-0718-30
 ;;9002226.02101,"975,60429-0718-60 ",.01)
 ;;60429-0718-60
 ;;9002226.02101,"975,60429-0718-60 ",.02)
 ;;60429-0718-60
 ;;9002226.02101,"975,60429-0718-90 ",.01)
 ;;60429-0718-90
 ;;9002226.02101,"975,60429-0718-90 ",.02)
 ;;60429-0718-90
 ;;9002226.02101,"975,60429-0719-18 ",.01)
 ;;60429-0719-18
 ;;9002226.02101,"975,60429-0719-18 ",.02)
 ;;60429-0719-18
 ;;9002226.02101,"975,60429-0719-30 ",.01)
 ;;60429-0719-30
 ;;9002226.02101,"975,60429-0719-30 ",.02)
 ;;60429-0719-30
 ;;9002226.02101,"975,60429-0719-60 ",.01)
 ;;60429-0719-60
 ;;9002226.02101,"975,60429-0719-60 ",.02)
 ;;60429-0719-60
 ;;9002226.02101,"975,60429-0719-90 ",.01)
 ;;60429-0719-90
 ;;9002226.02101,"975,60429-0719-90 ",.02)
 ;;60429-0719-90
 ;;9002226.02101,"975,60429-0737-15 ",.01)
 ;;60429-0737-15
 ;;9002226.02101,"975,60429-0737-15 ",.02)
 ;;60429-0737-15
 ;;9002226.02101,"975,60429-0737-45 ",.01)
 ;;60429-0737-45
 ;;9002226.02101,"975,60429-0737-45 ",.02)
 ;;60429-0737-45
 ;;9002226.02101,"975,60432-0162-04 ",.01)
 ;;60432-0162-04
 ;;9002226.02101,"975,60432-0162-04 ",.02)
 ;;60432-0162-04
 ;;9002226.02101,"975,60432-0651-04 ",.01)
 ;;60432-0651-04
 ;;9002226.02101,"975,60432-0651-04 ",.02)
 ;;60432-0651-04