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

BGP2TI20.m

Go to the documentation of this file.
BGP2TI20 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"1201,68084-0163-01 ",.01)
 ;;68084-0163-01
 ;;9002226.02101,"1201,68084-0163-01 ",.02)
 ;;68084-0163-01
 ;;9002226.02101,"1201,68084-0163-11 ",.01)
 ;;68084-0163-11
 ;;9002226.02101,"1201,68084-0163-11 ",.02)
 ;;68084-0163-11
 ;;9002226.02101,"1201,68084-0164-01 ",.01)
 ;;68084-0164-01
 ;;9002226.02101,"1201,68084-0164-01 ",.02)
 ;;68084-0164-01
 ;;9002226.02101,"1201,68084-0164-11 ",.01)
 ;;68084-0164-11
 ;;9002226.02101,"1201,68084-0164-11 ",.02)
 ;;68084-0164-11
 ;;9002226.02101,"1201,68084-0165-01 ",.01)
 ;;68084-0165-01
 ;;9002226.02101,"1201,68084-0165-01 ",.02)
 ;;68084-0165-01
 ;;9002226.02101,"1201,68084-0165-11 ",.01)
 ;;68084-0165-11
 ;;9002226.02101,"1201,68084-0165-11 ",.02)
 ;;68084-0165-11
 ;;9002226.02101,"1201,68084-0186-01 ",.01)
 ;;68084-0186-01
 ;;9002226.02101,"1201,68084-0186-01 ",.02)
 ;;68084-0186-01
 ;;9002226.02101,"1201,68084-0186-11 ",.01)
 ;;68084-0186-11
 ;;9002226.02101,"1201,68084-0186-11 ",.02)
 ;;68084-0186-11
 ;;9002226.02101,"1201,68084-0187-01 ",.01)
 ;;68084-0187-01
 ;;9002226.02101,"1201,68084-0187-01 ",.02)
 ;;68084-0187-01
 ;;9002226.02101,"1201,68084-0187-11 ",.01)
 ;;68084-0187-11
 ;;9002226.02101,"1201,68084-0187-11 ",.02)
 ;;68084-0187-11
 ;;9002226.02101,"1201,68084-0188-01 ",.01)
 ;;68084-0188-01
 ;;9002226.02101,"1201,68084-0188-01 ",.02)
 ;;68084-0188-01
 ;;9002226.02101,"1201,68084-0188-11 ",.01)
 ;;68084-0188-11
 ;;9002226.02101,"1201,68084-0188-11 ",.02)
 ;;68084-0188-11
 ;;9002226.02101,"1201,68084-0500-01 ",.01)
 ;;68084-0500-01
 ;;9002226.02101,"1201,68084-0500-01 ",.02)
 ;;68084-0500-01
 ;;9002226.02101,"1201,68084-0500-11 ",.01)
 ;;68084-0500-11
 ;;9002226.02101,"1201,68084-0500-11 ",.02)
 ;;68084-0500-11
 ;;9002226.02101,"1201,68084-0501-01 ",.01)
 ;;68084-0501-01
 ;;9002226.02101,"1201,68084-0501-01 ",.02)
 ;;68084-0501-01
 ;;9002226.02101,"1201,68084-0501-11 ",.01)
 ;;68084-0501-11
 ;;9002226.02101,"1201,68084-0501-11 ",.02)
 ;;68084-0501-11
 ;;9002226.02101,"1201,68084-0502-01 ",.01)
 ;;68084-0502-01
 ;;9002226.02101,"1201,68084-0502-01 ",.02)
 ;;68084-0502-01
 ;;9002226.02101,"1201,68084-0502-11 ",.01)
 ;;68084-0502-11
 ;;9002226.02101,"1201,68084-0502-11 ",.02)
 ;;68084-0502-11
 ;;9002226.02101,"1201,68084-0510-01 ",.01)
 ;;68084-0510-01
 ;;9002226.02101,"1201,68084-0510-01 ",.02)
 ;;68084-0510-01
 ;;9002226.02101,"1201,68084-0510-11 ",.01)
 ;;68084-0510-11
 ;;9002226.02101,"1201,68084-0510-11 ",.02)
 ;;68084-0510-11
 ;;9002226.02101,"1201,68084-0511-01 ",.01)
 ;;68084-0511-01
 ;;9002226.02101,"1201,68084-0511-01 ",.02)
 ;;68084-0511-01
 ;;9002226.02101,"1201,68084-0511-11 ",.01)
 ;;68084-0511-11
 ;;9002226.02101,"1201,68084-0511-11 ",.02)
 ;;68084-0511-11
 ;;9002226.02101,"1201,68084-0512-01 ",.01)
 ;;68084-0512-01
 ;;9002226.02101,"1201,68084-0512-01 ",.02)
 ;;68084-0512-01
 ;;9002226.02101,"1201,68084-0512-11 ",.01)
 ;;68084-0512-11
 ;;9002226.02101,"1201,68084-0512-11 ",.02)
 ;;68084-0512-11
 ;;9002226.02101,"1201,68084-0513-01 ",.01)
 ;;68084-0513-01
 ;;9002226.02101,"1201,68084-0513-01 ",.02)
 ;;68084-0513-01
 ;;9002226.02101,"1201,68084-0513-11 ",.01)
 ;;68084-0513-11
 ;;9002226.02101,"1201,68084-0513-11 ",.02)
 ;;68084-0513-11
 ;;9002226.02101,"1201,68084-0514-01 ",.01)
 ;;68084-0514-01
 ;;9002226.02101,"1201,68084-0514-01 ",.02)
 ;;68084-0514-01
 ;;9002226.02101,"1201,68084-0514-11 ",.01)
 ;;68084-0514-11
 ;;9002226.02101,"1201,68084-0514-11 ",.02)
 ;;68084-0514-11
 ;;9002226.02101,"1201,68115-0218-30 ",.01)
 ;;68115-0218-30
 ;;9002226.02101,"1201,68115-0218-30 ",.02)
 ;;68115-0218-30
 ;;9002226.02101,"1201,68115-0219-30 ",.01)
 ;;68115-0219-30
 ;;9002226.02101,"1201,68115-0219-30 ",.02)
 ;;68115-0219-30
 ;;9002226.02101,"1201,68115-0219-60 ",.01)
 ;;68115-0219-60
 ;;9002226.02101,"1201,68115-0219-60 ",.02)
 ;;68115-0219-60
 ;;9002226.02101,"1201,68115-0494-30 ",.01)
 ;;68115-0494-30
 ;;9002226.02101,"1201,68115-0494-30 ",.02)
 ;;68115-0494-30
 ;;9002226.02101,"1201,68115-0494-60 ",.01)
 ;;68115-0494-60
 ;;9002226.02101,"1201,68115-0494-60 ",.02)
 ;;68115-0494-60
 ;;9002226.02101,"1201,68115-0658-00 ",.01)
 ;;68115-0658-00
 ;;9002226.02101,"1201,68115-0658-00 ",.02)
 ;;68115-0658-00
 ;;9002226.02101,"1201,68115-0658-60 ",.01)
 ;;68115-0658-60
 ;;9002226.02101,"1201,68115-0658-60 ",.02)
 ;;68115-0658-60
 ;;9002226.02101,"1201,68115-0664-90 ",.01)
 ;;68115-0664-90
 ;;9002226.02101,"1201,68115-0664-90 ",.02)
 ;;68115-0664-90
 ;;9002226.02101,"1201,68115-0668-15 ",.01)
 ;;68115-0668-15
 ;;9002226.02101,"1201,68115-0668-15 ",.02)
 ;;68115-0668-15
 ;;9002226.02101,"1201,68115-0668-30 ",.01)
 ;;68115-0668-30
 ;;9002226.02101,"1201,68115-0668-30 ",.02)
 ;;68115-0668-30
 ;;9002226.02101,"1201,68115-0668-90 ",.01)
 ;;68115-0668-90
 ;;9002226.02101,"1201,68115-0668-90 ",.02)
 ;;68115-0668-90
 ;;9002226.02101,"1201,68115-0672-30 ",.01)
 ;;68115-0672-30
 ;;9002226.02101,"1201,68115-0672-30 ",.02)
 ;;68115-0672-30
 ;;9002226.02101,"1201,68115-0720-30 ",.01)
 ;;68115-0720-30
 ;;9002226.02101,"1201,68115-0720-30 ",.02)
 ;;68115-0720-30
 ;;9002226.02101,"1201,68115-0759-30 ",.01)
 ;;68115-0759-30
 ;;9002226.02101,"1201,68115-0759-30 ",.02)
 ;;68115-0759-30
 ;;9002226.02101,"1201,68115-0777-30 ",.01)
 ;;68115-0777-30
 ;;9002226.02101,"1201,68115-0777-30 ",.02)
 ;;68115-0777-30
 ;;9002226.02101,"1201,68115-0777-90 ",.01)
 ;;68115-0777-90
 ;;9002226.02101,"1201,68115-0777-90 ",.02)
 ;;68115-0777-90
 ;;9002226.02101,"1201,68115-0800-90 ",.01)
 ;;68115-0800-90
 ;;9002226.02101,"1201,68115-0800-90 ",.02)
 ;;68115-0800-90
 ;;9002226.02101,"1201,68115-0836-30 ",.01)
 ;;68115-0836-30
 ;;9002226.02101,"1201,68115-0836-30 ",.02)
 ;;68115-0836-30
 ;;9002226.02101,"1201,68115-0836-90 ",.01)
 ;;68115-0836-90
 ;;9002226.02101,"1201,68115-0836-90 ",.02)
 ;;68115-0836-90
 ;;9002226.02101,"1201,68180-0467-01 ",.01)
 ;;68180-0467-01
 ;;9002226.02101,"1201,68180-0467-01 ",.02)
 ;;68180-0467-01
 ;;9002226.02101,"1201,68180-0467-03 ",.01)
 ;;68180-0467-03
 ;;9002226.02101,"1201,68180-0467-03 ",.02)
 ;;68180-0467-03
 ;;9002226.02101,"1201,68180-0467-07 ",.01)
 ;;68180-0467-07
 ;;9002226.02101,"1201,68180-0467-07 ",.02)
 ;;68180-0467-07
 ;;9002226.02101,"1201,68180-0468-01 ",.01)
 ;;68180-0468-01
 ;;9002226.02101,"1201,68180-0468-01 ",.02)
 ;;68180-0468-01
 ;;9002226.02101,"1201,68180-0468-03 ",.01)
 ;;68180-0468-03
 ;;9002226.02101,"1201,68180-0468-03 ",.02)
 ;;68180-0468-03
 ;;9002226.02101,"1201,68180-0468-05 ",.01)
 ;;68180-0468-05
 ;;9002226.02101,"1201,68180-0468-05 ",.02)
 ;;68180-0468-05
 ;;9002226.02101,"1201,68180-0468-07 ",.01)
 ;;68180-0468-07
 ;;9002226.02101,"1201,68180-0468-07 ",.02)
 ;;68180-0468-07
 ;;9002226.02101,"1201,68180-0469-01 ",.01)
 ;;68180-0469-01
 ;;9002226.02101,"1201,68180-0469-01 ",.02)
 ;;68180-0469-01
 ;;9002226.02101,"1201,68180-0469-03 ",.01)
 ;;68180-0469-03
 ;;9002226.02101,"1201,68180-0469-03 ",.02)
 ;;68180-0469-03
 ;;9002226.02101,"1201,68180-0469-05 ",.01)
 ;;68180-0469-05
 ;;9002226.02101,"1201,68180-0469-05 ",.02)
 ;;68180-0469-05
 ;;9002226.02101,"1201,68180-0469-07 ",.01)
 ;;68180-0469-07
 ;;9002226.02101,"1201,68180-0469-07 ",.02)
 ;;68180-0469-07
 ;;9002226.02101,"1201,68180-0478-01 ",.01)
 ;;68180-0478-01
 ;;9002226.02101,"1201,68180-0478-01 ",.02)
 ;;68180-0478-01
 ;;9002226.02101,"1201,68180-0478-02 ",.01)
 ;;68180-0478-02
 ;;9002226.02101,"1201,68180-0478-02 ",.02)
 ;;68180-0478-02
 ;;9002226.02101,"1201,68180-0478-03 ",.01)
 ;;68180-0478-03
 ;;9002226.02101,"1201,68180-0478-03 ",.02)
 ;;68180-0478-03
 ;;9002226.02101,"1201,68180-0479-01 ",.01)
 ;;68180-0479-01
 ;;9002226.02101,"1201,68180-0479-01 ",.02)
 ;;68180-0479-01
 ;;9002226.02101,"1201,68180-0479-02 ",.01)
 ;;68180-0479-02
 ;;9002226.02101,"1201,68180-0479-02 ",.02)
 ;;68180-0479-02
 ;;9002226.02101,"1201,68180-0479-03 ",.01)
 ;;68180-0479-03
 ;;9002226.02101,"1201,68180-0479-03 ",.02)
 ;;68180-0479-03
 ;;9002226.02101,"1201,68180-0480-01 ",.01)
 ;;68180-0480-01
 ;;9002226.02101,"1201,68180-0480-01 ",.02)
 ;;68180-0480-01
 ;;9002226.02101,"1201,68180-0480-02 ",.01)
 ;;68180-0480-02
 ;;9002226.02101,"1201,68180-0480-02 ",.02)
 ;;68180-0480-02
 ;;9002226.02101,"1201,68180-0480-03 ",.01)
 ;;68180-0480-03
 ;;9002226.02101,"1201,68180-0480-03 ",.02)
 ;;68180-0480-03
 ;;9002226.02101,"1201,68180-0481-01 ",.01)
 ;;68180-0481-01
 ;;9002226.02101,"1201,68180-0481-01 ",.02)
 ;;68180-0481-01
 ;;9002226.02101,"1201,68180-0481-02 ",.01)
 ;;68180-0481-02
 ;;9002226.02101,"1201,68180-0481-02 ",.02)
 ;;68180-0481-02
 ;;9002226.02101,"1201,68180-0481-03 ",.01)
 ;;68180-0481-03
 ;;9002226.02101,"1201,68180-0481-03 ",.02)
 ;;68180-0481-03
 ;;9002226.02101,"1201,68180-0482-06 ",.01)
 ;;68180-0482-06
 ;;9002226.02101,"1201,68180-0482-06 ",.02)
 ;;68180-0482-06
 ;;9002226.02101,"1201,68180-0482-09 ",.01)
 ;;68180-0482-09
 ;;9002226.02101,"1201,68180-0482-09 ",.02)
 ;;68180-0482-09
 ;;9002226.02101,"1201,68180-0485-02 ",.01)
 ;;68180-0485-02
 ;;9002226.02101,"1201,68180-0485-02 ",.02)
 ;;68180-0485-02
 ;;9002226.02101,"1201,68180-0485-09 ",.01)
 ;;68180-0485-09
 ;;9002226.02101,"1201,68180-0485-09 ",.02)
 ;;68180-0485-09
 ;;9002226.02101,"1201,68180-0486-02 ",.01)
 ;;68180-0486-02
 ;;9002226.02101,"1201,68180-0486-02 ",.02)
 ;;68180-0486-02
 ;;9002226.02101,"1201,68180-0486-09 ",.01)
 ;;68180-0486-09
 ;;9002226.02101,"1201,68180-0486-09 ",.02)
 ;;68180-0486-09
 ;;9002226.02101,"1201,68180-0487-02 ",.01)
 ;;68180-0487-02
 ;;9002226.02101,"1201,68180-0487-02 ",.02)
 ;;68180-0487-02
 ;;9002226.02101,"1201,68180-0487-09 ",.01)
 ;;68180-0487-09
 ;;9002226.02101,"1201,68180-0487-09 ",.02)
 ;;68180-0487-09
 ;;9002226.02101,"1201,68180-0488-02 ",.01)
 ;;68180-0488-02
 ;;9002226.02101,"1201,68180-0488-02 ",.02)
 ;;68180-0488-02
 ;;9002226.02101,"1201,68180-0488-09 ",.01)
 ;;68180-0488-09
 ;;9002226.02101,"1201,68180-0488-09 ",.02)
 ;;68180-0488-09
 ;;9002226.02101,"1201,68258-1040-01 ",.01)
 ;;68258-1040-01
 ;;9002226.02101,"1201,68258-1040-01 ",.02)
 ;;68258-1040-01
 ;;9002226.02101,"1201,68258-1057-01 ",.01)
 ;;68258-1057-01
 ;;9002226.02101,"1201,68258-1057-01 ",.02)
 ;;68258-1057-01
 ;;9002226.02101,"1201,68258-6000-03 ",.01)
 ;;68258-6000-03
 ;;9002226.02101,"1201,68258-6000-03 ",.02)
 ;;68258-6000-03
 ;;9002226.02101,"1201,68258-6000-09 ",.01)
 ;;68258-6000-09
 ;;9002226.02101,"1201,68258-6000-09 ",.02)
 ;;68258-6000-09
 ;;9002226.02101,"1201,68258-6001-03 ",.01)
 ;;68258-6001-03
 ;;9002226.02101,"1201,68258-6001-03 ",.02)
 ;;68258-6001-03
 ;;9002226.02101,"1201,68258-6001-09 ",.01)
 ;;68258-6001-09
 ;;9002226.02101,"1201,68258-6001-09 ",.02)
 ;;68258-6001-09
 ;;9002226.02101,"1201,68258-6002-03 ",.01)
 ;;68258-6002-03
 ;;9002226.02101,"1201,68258-6002-03 ",.02)
 ;;68258-6002-03
 ;;9002226.02101,"1201,68258-6002-09 ",.01)
 ;;68258-6002-09
 ;;9002226.02101,"1201,68258-6002-09 ",.02)
 ;;68258-6002-09
 ;;9002226.02101,"1201,68258-6009-03 ",.01)
 ;;68258-6009-03
 ;;9002226.02101,"1201,68258-6009-03 ",.02)
 ;;68258-6009-03
 ;;9002226.02101,"1201,68258-6009-09 ",.01)
 ;;68258-6009-09
 ;;9002226.02101,"1201,68258-6009-09 ",.02)
 ;;68258-6009-09
 ;;9002226.02101,"1201,68258-6013-03 ",.01)
 ;;68258-6013-03
 ;;9002226.02101,"1201,68258-6013-03 ",.02)
 ;;68258-6013-03
 ;;9002226.02101,"1201,68258-6016-03 ",.01)
 ;;68258-6016-03
 ;;9002226.02101,"1201,68258-6016-03 ",.02)
 ;;68258-6016-03
 ;;9002226.02101,"1201,68258-6017-03 ",.01)
 ;;68258-6017-03
 ;;9002226.02101,"1201,68258-6017-03 ",.02)
 ;;68258-6017-03
 ;;9002226.02101,"1201,68258-6041-03 ",.01)
 ;;68258-6041-03
 ;;9002226.02101,"1201,68258-6041-03 ",.02)
 ;;68258-6041-03
 ;;9002226.02101,"1201,68258-6042-03 ",.01)
 ;;68258-6042-03
 ;;9002226.02101,"1201,68258-6042-03 ",.02)
 ;;68258-6042-03
 ;;9002226.02101,"1201,68258-6043-03 ",.01)
 ;;68258-6043-03
 ;;9002226.02101,"1201,68258-6043-03 ",.02)
 ;;68258-6043-03
 ;;9002226.02101,"1201,68258-6043-09 ",.01)
 ;;68258-6043-09
 ;;9002226.02101,"1201,68258-6043-09 ",.02)
 ;;68258-6043-09
 ;;9002226.02101,"1201,68258-6044-03 ",.01)
 ;;68258-6044-03
 ;;9002226.02101,"1201,68258-6044-03 ",.02)
 ;;68258-6044-03
 ;;9002226.02101,"1201,68258-6044-09 ",.01)
 ;;68258-6044-09
 ;;9002226.02101,"1201,68258-6044-09 ",.02)
 ;;68258-6044-09
 ;;9002226.02101,"1201,68258-6992-09 ",.01)
 ;;68258-6992-09
 ;;9002226.02101,"1201,68258-6992-09 ",.02)
 ;;68258-6992-09
 ;;9002226.02101,"1201,68258-6993-09 ",.01)
 ;;68258-6993-09
 ;;9002226.02101,"1201,68258-6993-09 ",.02)
 ;;68258-6993-09
 ;;9002226.02101,"1201,68258-9001-01 ",.01)
 ;;68258-9001-01
 ;;9002226.02101,"1201,68258-9001-01 ",.02)
 ;;68258-9001-01
 ;;9002226.02101,"1201,68258-9128-01 ",.01)
 ;;68258-9128-01
 ;;9002226.02101,"1201,68258-9128-01 ",.02)
 ;;68258-9128-01
 ;;9002226.02101,"1201,68258-9154-01 ",.01)
 ;;68258-9154-01
 ;;9002226.02101,"1201,68258-9154-01 ",.02)
 ;;68258-9154-01
 ;;9002226.02101,"1201,68382-0065-05 ",.01)
 ;;68382-0065-05
 ;;9002226.02101,"1201,68382-0065-05 ",.02)
 ;;68382-0065-05
 ;;9002226.02101,"1201,68382-0065-06 ",.01)
 ;;68382-0065-06
 ;;9002226.02101,"1201,68382-0065-06 ",.02)
 ;;68382-0065-06
 ;;9002226.02101,"1201,68382-0065-10 ",.01)
 ;;68382-0065-10
 ;;9002226.02101,"1201,68382-0065-10 ",.02)
 ;;68382-0065-10
 ;;9002226.02101,"1201,68382-0065-14 ",.01)
 ;;68382-0065-14
 ;;9002226.02101,"1201,68382-0065-14 ",.02)
 ;;68382-0065-14
 ;;9002226.02101,"1201,68382-0065-16 ",.01)
 ;;68382-0065-16
 ;;9002226.02101,"1201,68382-0065-16 ",.02)
 ;;68382-0065-16
 ;;9002226.02101,"1201,68382-0066-05 ",.01)
 ;;68382-0066-05