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

BGP13T63.m

Go to the documentation of this file.
BGP13T63 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"992,65862-0013-30 ",.01)
 ;;65862-0013-30
 ;;9002226.02101,"992,65862-0013-30 ",.02)
 ;;65862-0013-30
 ;;9002226.02101,"992,65862-0013-90 ",.01)
 ;;65862-0013-90
 ;;9002226.02101,"992,65862-0013-90 ",.02)
 ;;65862-0013-90
 ;;9002226.02101,"992,65862-0021-06 ",.01)
 ;;65862-0021-06
 ;;9002226.02101,"992,65862-0021-06 ",.02)
 ;;65862-0021-06
 ;;9002226.02101,"992,65862-0022-06 ",.01)
 ;;65862-0022-06
 ;;9002226.02101,"992,65862-0022-06 ",.02)
 ;;65862-0022-06
 ;;9002226.02101,"992,65862-0023-06 ",.01)
 ;;65862-0023-06
 ;;9002226.02101,"992,65862-0023-06 ",.02)
 ;;65862-0023-06
 ;;9002226.02101,"992,65862-0031-01 ",.01)
 ;;65862-0031-01
 ;;9002226.02101,"992,65862-0031-01 ",.02)
 ;;65862-0031-01
 ;;9002226.02101,"992,65862-0031-03 ",.01)
 ;;65862-0031-03
 ;;9002226.02101,"992,65862-0031-03 ",.02)
 ;;65862-0031-03
 ;;9002226.02101,"992,65862-0031-05 ",.01)
 ;;65862-0031-05
 ;;9002226.02101,"992,65862-0031-05 ",.02)
 ;;65862-0031-05
 ;;9002226.02101,"992,65862-0031-30 ",.01)
 ;;65862-0031-30
 ;;9002226.02101,"992,65862-0031-30 ",.02)
 ;;65862-0031-30
 ;;9002226.02101,"992,65862-0031-90 ",.01)
 ;;65862-0031-90
 ;;9002226.02101,"992,65862-0031-90 ",.02)
 ;;65862-0031-90
 ;;9002226.02101,"992,65862-0032-01 ",.01)
 ;;65862-0032-01
 ;;9002226.02101,"992,65862-0032-01 ",.02)
 ;;65862-0032-01
 ;;9002226.02101,"992,65862-0032-03 ",.01)
 ;;65862-0032-03
 ;;9002226.02101,"992,65862-0032-03 ",.02)
 ;;65862-0032-03
 ;;9002226.02101,"992,65862-0032-05 ",.01)
 ;;65862-0032-05
 ;;9002226.02101,"992,65862-0032-05 ",.02)
 ;;65862-0032-05
 ;;9002226.02101,"992,65862-0032-30 ",.01)
 ;;65862-0032-30
 ;;9002226.02101,"992,65862-0032-30 ",.02)
 ;;65862-0032-30
 ;;9002226.02101,"992,65862-0032-90 ",.01)
 ;;65862-0032-90
 ;;9002226.02101,"992,65862-0032-90 ",.02)
 ;;65862-0032-90
 ;;9002226.02101,"992,65862-0074-24 ",.01)
 ;;65862-0074-24
 ;;9002226.02101,"992,65862-0074-24 ",.02)
 ;;65862-0074-24
 ;;9002226.02101,"992,65862-0154-30 ",.01)
 ;;65862-0154-30
 ;;9002226.02101,"992,65862-0154-30 ",.02)
 ;;65862-0154-30
 ;;9002226.02101,"992,65862-0155-05 ",.01)
 ;;65862-0155-05
 ;;9002226.02101,"992,65862-0155-05 ",.02)
 ;;65862-0155-05
 ;;9002226.02101,"992,65862-0155-30 ",.01)
 ;;65862-0155-30
 ;;9002226.02101,"992,65862-0155-30 ",.02)
 ;;65862-0155-30
 ;;9002226.02101,"992,65862-0155-99 ",.01)
 ;;65862-0155-99
 ;;9002226.02101,"992,65862-0155-99 ",.02)
 ;;65862-0155-99
 ;;9002226.02101,"992,65862-0156-30 ",.01)
 ;;65862-0156-30
 ;;9002226.02101,"992,65862-0156-30 ",.02)
 ;;65862-0156-30
 ;;9002226.02101,"992,65862-0156-99 ",.01)
 ;;65862-0156-99
 ;;9002226.02101,"992,65862-0156-99 ",.02)
 ;;65862-0156-99
 ;;9002226.02101,"992,65862-0157-30 ",.01)
 ;;65862-0157-30
 ;;9002226.02101,"992,65862-0157-30 ",.02)
 ;;65862-0157-30
 ;;9002226.02101,"992,65862-0157-99 ",.01)
 ;;65862-0157-99
 ;;9002226.02101,"992,65862-0157-99 ",.02)
 ;;65862-0157-99
 ;;9002226.02101,"992,65862-0192-01 ",.01)
 ;;65862-0192-01
 ;;9002226.02101,"992,65862-0192-01 ",.02)
 ;;65862-0192-01
 ;;9002226.02101,"992,65862-0192-05 ",.01)
 ;;65862-0192-05
 ;;9002226.02101,"992,65862-0192-05 ",.02)
 ;;65862-0192-05
 ;;9002226.02101,"992,65862-0192-99 ",.01)
 ;;65862-0192-99
 ;;9002226.02101,"992,65862-0192-99 ",.02)
 ;;65862-0192-99
 ;;9002226.02101,"992,65862-0193-01 ",.01)
 ;;65862-0193-01
 ;;9002226.02101,"992,65862-0193-01 ",.02)
 ;;65862-0193-01
 ;;9002226.02101,"992,65862-0193-05 ",.01)
 ;;65862-0193-05
 ;;9002226.02101,"992,65862-0193-05 ",.02)
 ;;65862-0193-05
 ;;9002226.02101,"992,65862-0193-99 ",.01)
 ;;65862-0193-99
 ;;9002226.02101,"992,65862-0193-99 ",.02)
 ;;65862-0193-99
 ;;9002226.02101,"992,65862-0194-01 ",.01)
 ;;65862-0194-01
 ;;9002226.02101,"992,65862-0194-01 ",.02)
 ;;65862-0194-01
 ;;9002226.02101,"992,65862-0194-30 ",.01)
 ;;65862-0194-30
 ;;9002226.02101,"992,65862-0194-30 ",.02)
 ;;65862-0194-30
 ;;9002226.02101,"992,66105-0111-10 ",.01)
 ;;66105-0111-10
 ;;9002226.02101,"992,66105-0111-10 ",.02)
 ;;66105-0111-10
 ;;9002226.02101,"992,66105-0112-01 ",.01)
 ;;66105-0112-01
 ;;9002226.02101,"992,66105-0112-01 ",.02)
 ;;66105-0112-01
 ;;9002226.02101,"992,66105-0112-03 ",.01)
 ;;66105-0112-03
 ;;9002226.02101,"992,66105-0112-03 ",.02)
 ;;66105-0112-03
 ;;9002226.02101,"992,66105-0112-06 ",.01)
 ;;66105-0112-06
 ;;9002226.02101,"992,66105-0112-06 ",.02)
 ;;66105-0112-06
 ;;9002226.02101,"992,66105-0112-10 ",.01)
 ;;66105-0112-10
 ;;9002226.02101,"992,66105-0112-10 ",.02)
 ;;66105-0112-10
 ;;9002226.02101,"992,66105-0112-15 ",.01)
 ;;66105-0112-15
 ;;9002226.02101,"992,66105-0112-15 ",.02)
 ;;66105-0112-15
 ;;9002226.02101,"992,66105-0116-03 ",.01)
 ;;66105-0116-03
 ;;9002226.02101,"992,66105-0116-03 ",.02)
 ;;66105-0116-03
 ;;9002226.02101,"992,66105-0117-03 ",.01)
 ;;66105-0117-03
 ;;9002226.02101,"992,66105-0117-03 ",.02)
 ;;66105-0117-03
 ;;9002226.02101,"992,66105-0118-10 ",.01)
 ;;66105-0118-10
 ;;9002226.02101,"992,66105-0118-10 ",.02)
 ;;66105-0118-10
 ;;9002226.02101,"992,66105-0480-01 ",.01)
 ;;66105-0480-01
 ;;9002226.02101,"992,66105-0480-01 ",.02)
 ;;66105-0480-01
 ;;9002226.02101,"992,66105-0480-02 ",.01)
 ;;66105-0480-02
 ;;9002226.02101,"992,66105-0480-02 ",.02)
 ;;66105-0480-02
 ;;9002226.02101,"992,66105-0480-03 ",.01)
 ;;66105-0480-03
 ;;9002226.02101,"992,66105-0480-03 ",.02)
 ;;66105-0480-03
 ;;9002226.02101,"992,66105-0480-06 ",.01)
 ;;66105-0480-06
 ;;9002226.02101,"992,66105-0480-06 ",.02)
 ;;66105-0480-06
 ;;9002226.02101,"992,66105-0480-15 ",.01)
 ;;66105-0480-15
 ;;9002226.02101,"992,66105-0480-15 ",.02)
 ;;66105-0480-15
 ;;9002226.02101,"992,66105-0481-01 ",.01)
 ;;66105-0481-01
 ;;9002226.02101,"992,66105-0481-01 ",.02)
 ;;66105-0481-01
 ;;9002226.02101,"992,66105-0481-02 ",.01)
 ;;66105-0481-02
 ;;9002226.02101,"992,66105-0481-02 ",.02)
 ;;66105-0481-02
 ;;9002226.02101,"992,66105-0481-03 ",.01)
 ;;66105-0481-03
 ;;9002226.02101,"992,66105-0481-03 ",.02)
 ;;66105-0481-03
 ;;9002226.02101,"992,66105-0481-06 ",.01)
 ;;66105-0481-06
 ;;9002226.02101,"992,66105-0481-06 ",.02)
 ;;66105-0481-06
 ;;9002226.02101,"992,66105-0481-15 ",.01)
 ;;66105-0481-15
 ;;9002226.02101,"992,66105-0481-15 ",.02)
 ;;66105-0481-15
 ;;9002226.02101,"992,66105-0550-03 ",.01)
 ;;66105-0550-03
 ;;9002226.02101,"992,66105-0550-03 ",.02)
 ;;66105-0550-03
 ;;9002226.02101,"992,66105-0564-03 ",.01)
 ;;66105-0564-03
 ;;9002226.02101,"992,66105-0564-03 ",.02)
 ;;66105-0564-03
 ;;9002226.02101,"992,66105-0969-03 ",.01)
 ;;66105-0969-03
 ;;9002226.02101,"992,66105-0969-03 ",.02)
 ;;66105-0969-03
 ;;9002226.02101,"992,66105-0977-03 ",.01)
 ;;66105-0977-03
 ;;9002226.02101,"992,66105-0977-03 ",.02)
 ;;66105-0977-03
 ;;9002226.02101,"992,66267-0018-30 ",.01)
 ;;66267-0018-30
 ;;9002226.02101,"992,66267-0018-30 ",.02)
 ;;66267-0018-30
 ;;9002226.02101,"992,66267-0018-60 ",.01)
 ;;66267-0018-60
 ;;9002226.02101,"992,66267-0018-60 ",.02)
 ;;66267-0018-60
 ;;9002226.02101,"992,66267-0018-90 ",.01)
 ;;66267-0018-90
 ;;9002226.02101,"992,66267-0018-90 ",.02)
 ;;66267-0018-90
 ;;9002226.02101,"992,66267-0019-14 ",.01)
 ;;66267-0019-14
 ;;9002226.02101,"992,66267-0019-14 ",.02)
 ;;66267-0019-14
 ;;9002226.02101,"992,66267-0019-90 ",.01)
 ;;66267-0019-90
 ;;9002226.02101,"992,66267-0019-90 ",.02)
 ;;66267-0019-90
 ;;9002226.02101,"992,66267-0205-30 ",.01)
 ;;66267-0205-30
 ;;9002226.02101,"992,66267-0205-30 ",.02)
 ;;66267-0205-30
 ;;9002226.02101,"992,66267-0205-60 ",.01)
 ;;66267-0205-60
 ;;9002226.02101,"992,66267-0205-60 ",.02)
 ;;66267-0205-60
 ;;9002226.02101,"992,66267-0392-30 ",.01)
 ;;66267-0392-30
 ;;9002226.02101,"992,66267-0392-30 ",.02)
 ;;66267-0392-30
 ;;9002226.02101,"992,66267-0392-60 ",.01)
 ;;66267-0392-60
 ;;9002226.02101,"992,66267-0392-60 ",.02)
 ;;66267-0392-60
 ;;9002226.02101,"992,66267-0483-30 ",.01)
 ;;66267-0483-30
 ;;9002226.02101,"992,66267-0483-30 ",.02)
 ;;66267-0483-30
 ;;9002226.02101,"992,66267-0483-45 ",.01)
 ;;66267-0483-45
 ;;9002226.02101,"992,66267-0483-45 ",.02)
 ;;66267-0483-45
 ;;9002226.02101,"992,66267-0483-60 ",.01)
 ;;66267-0483-60
 ;;9002226.02101,"992,66267-0483-60 ",.02)
 ;;66267-0483-60
 ;;9002226.02101,"992,66267-0484-30 ",.01)
 ;;66267-0484-30
 ;;9002226.02101,"992,66267-0484-30 ",.02)
 ;;66267-0484-30
 ;;9002226.02101,"992,66267-0484-45 ",.01)
 ;;66267-0484-45
 ;;9002226.02101,"992,66267-0484-45 ",.02)
 ;;66267-0484-45
 ;;9002226.02101,"992,66267-0484-60 ",.01)
 ;;66267-0484-60
 ;;9002226.02101,"992,66267-0484-60 ",.02)
 ;;66267-0484-60
 ;;9002226.02101,"992,66267-0488-30 ",.01)
 ;;66267-0488-30
 ;;9002226.02101,"992,66267-0488-30 ",.02)
 ;;66267-0488-30
 ;;9002226.02101,"992,66267-0488-60 ",.01)
 ;;66267-0488-60
 ;;9002226.02101,"992,66267-0488-60 ",.02)
 ;;66267-0488-60
 ;;9002226.02101,"992,66267-0488-90 ",.01)
 ;;66267-0488-90
 ;;9002226.02101,"992,66267-0488-90 ",.02)
 ;;66267-0488-90
 ;;9002226.02101,"992,66267-0560-90 ",.01)
 ;;66267-0560-90
 ;;9002226.02101,"992,66267-0560-90 ",.02)
 ;;66267-0560-90
 ;;9002226.02101,"992,66267-0576-30 ",.01)
 ;;66267-0576-30
 ;;9002226.02101,"992,66267-0576-30 ",.02)
 ;;66267-0576-30
 ;;9002226.02101,"992,66267-0587-30 ",.01)
 ;;66267-0587-30
 ;;9002226.02101,"992,66267-0587-30 ",.02)
 ;;66267-0587-30
 ;;9002226.02101,"992,66267-0614-30 ",.01)
 ;;66267-0614-30
 ;;9002226.02101,"992,66267-0614-30 ",.02)
 ;;66267-0614-30
 ;;9002226.02101,"992,66267-0614-60 ",.01)
 ;;66267-0614-60
 ;;9002226.02101,"992,66267-0614-60 ",.02)
 ;;66267-0614-60
 ;;9002226.02101,"992,66267-0618-30 ",.01)
 ;;66267-0618-30
 ;;9002226.02101,"992,66267-0618-30 ",.02)
 ;;66267-0618-30
 ;;9002226.02101,"992,66267-0626-30 ",.01)
 ;;66267-0626-30
 ;;9002226.02101,"992,66267-0626-30 ",.02)
 ;;66267-0626-30
 ;;9002226.02101,"992,66267-0680-30 ",.01)
 ;;66267-0680-30
 ;;9002226.02101,"992,66267-0680-30 ",.02)
 ;;66267-0680-30
 ;;9002226.02101,"992,66267-0721-30 ",.01)
 ;;66267-0721-30
 ;;9002226.02101,"992,66267-0721-30 ",.02)
 ;;66267-0721-30
 ;;9002226.02101,"992,66267-1006-00 ",.01)
 ;;66267-1006-00
 ;;9002226.02101,"992,66267-1006-00 ",.02)
 ;;66267-1006-00
 ;;9002226.02101,"992,66336-0004-30 ",.01)
 ;;66336-0004-30
 ;;9002226.02101,"992,66336-0004-30 ",.02)
 ;;66336-0004-30
 ;;9002226.02101,"992,66336-0004-60 ",.01)
 ;;66336-0004-60
 ;;9002226.02101,"992,66336-0004-60 ",.02)
 ;;66336-0004-60
 ;;9002226.02101,"992,66336-0014-30 ",.01)
 ;;66336-0014-30
 ;;9002226.02101,"992,66336-0014-30 ",.02)
 ;;66336-0014-30
 ;;9002226.02101,"992,66336-0014-60 ",.01)
 ;;66336-0014-60
 ;;9002226.02101,"992,66336-0014-60 ",.02)
 ;;66336-0014-60
 ;;9002226.02101,"992,66336-0027-30 ",.01)
 ;;66336-0027-30
 ;;9002226.02101,"992,66336-0027-30 ",.02)
 ;;66336-0027-30
 ;;9002226.02101,"992,66336-0027-60 ",.01)
 ;;66336-0027-60
 ;;9002226.02101,"992,66336-0027-60 ",.02)
 ;;66336-0027-60
 ;;9002226.02101,"992,66336-0224-30 ",.01)
 ;;66336-0224-30
 ;;9002226.02101,"992,66336-0224-30 ",.02)
 ;;66336-0224-30
 ;;9002226.02101,"992,66336-0271-30 ",.01)
 ;;66336-0271-30
 ;;9002226.02101,"992,66336-0271-30 ",.02)
 ;;66336-0271-30
 ;;9002226.02101,"992,66336-0354-30 ",.01)
 ;;66336-0354-30
 ;;9002226.02101,"992,66336-0354-30 ",.02)
 ;;66336-0354-30
 ;;9002226.02101,"992,66336-0354-60 ",.01)
 ;;66336-0354-60
 ;;9002226.02101,"992,66336-0354-60 ",.02)
 ;;66336-0354-60
 ;;9002226.02101,"992,66336-0354-90 ",.01)
 ;;66336-0354-90
 ;;9002226.02101,"992,66336-0354-90 ",.02)
 ;;66336-0354-90
 ;;9002226.02101,"992,66336-0418-30 ",.01)
 ;;66336-0418-30
 ;;9002226.02101,"992,66336-0418-30 ",.02)
 ;;66336-0418-30
 ;;9002226.02101,"992,66336-0553-30 ",.01)
 ;;66336-0553-30
 ;;9002226.02101,"992,66336-0553-30 ",.02)
 ;;66336-0553-30
 ;;9002226.02101,"992,66336-0620-28 ",.01)
 ;;66336-0620-28
 ;;9002226.02101,"992,66336-0620-28 ",.02)
 ;;66336-0620-28
 ;;9002226.02101,"992,66336-0620-30 ",.01)
 ;;66336-0620-30
 ;;9002226.02101,"992,66336-0620-30 ",.02)
 ;;66336-0620-30
 ;;9002226.02101,"992,66336-0620-60 ",.01)
 ;;66336-0620-60
 ;;9002226.02101,"992,66336-0620-60 ",.02)
 ;;66336-0620-60
 ;;9002226.02101,"992,66336-0621-60 ",.01)
 ;;66336-0621-60
 ;;9002226.02101,"992,66336-0621-60 ",.02)
 ;;66336-0621-60
 ;;9002226.02101,"992,66336-0673-30 ",.01)
 ;;66336-0673-30
 ;;9002226.02101,"992,66336-0673-30 ",.02)
 ;;66336-0673-30
 ;;9002226.02101,"992,66336-0673-50 ",.01)
 ;;66336-0673-50
 ;;9002226.02101,"992,66336-0673-50 ",.02)
 ;;66336-0673-50
 ;;9002226.02101,"992,66336-0673-60 ",.01)
 ;;66336-0673-60
 ;;9002226.02101,"992,66336-0673-60 ",.02)
 ;;66336-0673-60
 ;;9002226.02101,"992,66336-0757-60 ",.01)
 ;;66336-0757-60