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

BGP13X12.m

Go to the documentation of this file.
  1. BGP13X12 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1100,00006-0014-87 ",.01)
  1. ;;00006-0014-87
  1. ;;9002226.02101,"1100,00006-0014-87 ",.02)
  1. ;;00006-0014-87
  1. ;;9002226.02101,"1100,00006-0014-94 ",.01)
  1. ;;00006-0014-94
  1. ;;9002226.02101,"1100,00006-0014-94 ",.02)
  1. ;;00006-0014-94
  1. ;;9002226.02101,"1100,00006-0015-28 ",.01)
  1. ;;00006-0015-28
  1. ;;9002226.02101,"1100,00006-0015-28 ",.02)
  1. ;;00006-0015-28
  1. ;;9002226.02101,"1100,00006-0015-31 ",.01)
  1. ;;00006-0015-31
  1. ;;9002226.02101,"1100,00006-0015-31 ",.02)
  1. ;;00006-0015-31
  1. ;;9002226.02101,"1100,00006-0015-58 ",.01)
  1. ;;00006-0015-58
  1. ;;9002226.02101,"1100,00006-0015-58 ",.02)
  1. ;;00006-0015-58
  1. ;;9002226.02101,"1100,00006-0019-28 ",.01)
  1. ;;00006-0019-28
  1. ;;9002226.02101,"1100,00006-0019-28 ",.02)
  1. ;;00006-0019-28
  1. ;;9002226.02101,"1100,00006-0019-54 ",.01)
  1. ;;00006-0019-54
  1. ;;9002226.02101,"1100,00006-0019-54 ",.02)
  1. ;;00006-0019-54
  1. ;;9002226.02101,"1100,00006-0019-58 ",.01)
  1. ;;00006-0019-58
  1. ;;9002226.02101,"1100,00006-0019-58 ",.02)
  1. ;;00006-0019-58
  1. ;;9002226.02101,"1100,00006-0019-72 ",.01)
  1. ;;00006-0019-72
  1. ;;9002226.02101,"1100,00006-0019-72 ",.02)
  1. ;;00006-0019-72
  1. ;;9002226.02101,"1100,00006-0019-82 ",.01)
  1. ;;00006-0019-82
  1. ;;9002226.02101,"1100,00006-0019-82 ",.02)
  1. ;;00006-0019-82
  1. ;;9002226.02101,"1100,00006-0019-86 ",.01)
  1. ;;00006-0019-86
  1. ;;9002226.02101,"1100,00006-0019-86 ",.02)
  1. ;;00006-0019-86
  1. ;;9002226.02101,"1100,00006-0019-87 ",.01)
  1. ;;00006-0019-87
  1. ;;9002226.02101,"1100,00006-0019-87 ",.02)
  1. ;;00006-0019-87
  1. ;;9002226.02101,"1100,00006-0019-94 ",.01)
  1. ;;00006-0019-94
  1. ;;9002226.02101,"1100,00006-0019-94 ",.02)
  1. ;;00006-0019-94
  1. ;;9002226.02101,"1100,00006-0106-28 ",.01)
  1. ;;00006-0106-28
  1. ;;9002226.02101,"1100,00006-0106-28 ",.02)
  1. ;;00006-0106-28
  1. ;;9002226.02101,"1100,00006-0106-31 ",.01)
  1. ;;00006-0106-31
  1. ;;9002226.02101,"1100,00006-0106-31 ",.02)
  1. ;;00006-0106-31
  1. ;;9002226.02101,"1100,00006-0106-54 ",.01)
  1. ;;00006-0106-54
  1. ;;9002226.02101,"1100,00006-0106-54 ",.02)
  1. ;;00006-0106-54
  1. ;;9002226.02101,"1100,00006-0106-58 ",.01)
  1. ;;00006-0106-58
  1. ;;9002226.02101,"1100,00006-0106-58 ",.02)
  1. ;;00006-0106-58
  1. ;;9002226.02101,"1100,00006-0106-72 ",.01)
  1. ;;00006-0106-72
  1. ;;9002226.02101,"1100,00006-0106-72 ",.02)
  1. ;;00006-0106-72
  1. ;;9002226.02101,"1100,00006-0106-82 ",.01)
  1. ;;00006-0106-82
  1. ;;9002226.02101,"1100,00006-0106-82 ",.02)
  1. ;;00006-0106-82
  1. ;;9002226.02101,"1100,00006-0106-87 ",.01)
  1. ;;00006-0106-87
  1. ;;9002226.02101,"1100,00006-0106-87 ",.02)
  1. ;;00006-0106-87
  1. ;;9002226.02101,"1100,00006-0106-94 ",.01)
  1. ;;00006-0106-94
  1. ;;9002226.02101,"1100,00006-0106-94 ",.02)
  1. ;;00006-0106-94
  1. ;;9002226.02101,"1100,00006-0140-31 ",.01)
  1. ;;00006-0140-31
  1. ;;9002226.02101,"1100,00006-0140-31 ",.02)
  1. ;;00006-0140-31
  1. ;;9002226.02101,"1100,00006-0140-58 ",.01)
  1. ;;00006-0140-58
  1. ;;9002226.02101,"1100,00006-0140-58 ",.02)
  1. ;;00006-0140-58
  1. ;;9002226.02101,"1100,00006-0142-31 ",.01)
  1. ;;00006-0142-31
  1. ;;9002226.02101,"1100,00006-0142-31 ",.02)
  1. ;;00006-0142-31
  1. ;;9002226.02101,"1100,00006-0142-58 ",.01)
  1. ;;00006-0142-58
  1. ;;9002226.02101,"1100,00006-0142-58 ",.02)
  1. ;;00006-0142-58
  1. ;;9002226.02101,"1100,00006-0145-31 ",.01)
  1. ;;00006-0145-31
  1. ;;9002226.02101,"1100,00006-0145-31 ",.02)
  1. ;;00006-0145-31
  1. ;;9002226.02101,"1100,00006-0145-58 ",.01)
  1. ;;00006-0145-58
  1. ;;9002226.02101,"1100,00006-0145-58 ",.02)
  1. ;;00006-0145-58
  1. ;;9002226.02101,"1100,00006-0173-68 ",.01)
  1. ;;00006-0173-68
  1. ;;9002226.02101,"1100,00006-0173-68 ",.02)
  1. ;;00006-0173-68
  1. ;;9002226.02101,"1100,00006-0207-28 ",.01)
  1. ;;00006-0207-28
  1. ;;9002226.02101,"1100,00006-0207-28 ",.02)
  1. ;;00006-0207-28
  1. ;;9002226.02101,"1100,00006-0207-31 ",.01)
  1. ;;00006-0207-31
  1. ;;9002226.02101,"1100,00006-0207-31 ",.02)
  1. ;;00006-0207-31
  1. ;;9002226.02101,"1100,00006-0207-54 ",.01)
  1. ;;00006-0207-54
  1. ;;9002226.02101,"1100,00006-0207-54 ",.02)
  1. ;;00006-0207-54
  1. ;;9002226.02101,"1100,00006-0207-58 ",.01)
  1. ;;00006-0207-58
  1. ;;9002226.02101,"1100,00006-0207-58 ",.02)
  1. ;;00006-0207-58
  1. ;;9002226.02101,"1100,00006-0207-72 ",.01)
  1. ;;00006-0207-72
  1. ;;9002226.02101,"1100,00006-0207-72 ",.02)
  1. ;;00006-0207-72
  1. ;;9002226.02101,"1100,00006-0207-82 ",.01)
  1. ;;00006-0207-82
  1. ;;9002226.02101,"1100,00006-0207-82 ",.02)
  1. ;;00006-0207-82
  1. ;;9002226.02101,"1100,00006-0207-87 ",.01)
  1. ;;00006-0207-87
  1. ;;9002226.02101,"1100,00006-0207-87 ",.02)
  1. ;;00006-0207-87
  1. ;;9002226.02101,"1100,00006-0207-94 ",.01)
  1. ;;00006-0207-94
  1. ;;9002226.02101,"1100,00006-0207-94 ",.02)
  1. ;;00006-0207-94
  1. ;;9002226.02101,"1100,00006-0237-58 ",.01)
  1. ;;00006-0237-58
  1. ;;9002226.02101,"1100,00006-0237-58 ",.02)
  1. ;;00006-0237-58
  1. ;;9002226.02101,"1100,00006-0712-28 ",.01)
  1. ;;00006-0712-28
  1. ;;9002226.02101,"1100,00006-0712-28 ",.02)
  1. ;;00006-0712-28
  1. ;;9002226.02101,"1100,00006-0712-68 ",.01)
  1. ;;00006-0712-68
  1. ;;9002226.02101,"1100,00006-0712-68 ",.02)
  1. ;;00006-0712-68
  1. ;;9002226.02101,"1100,00006-0712-82 ",.01)
  1. ;;00006-0712-82
  1. ;;9002226.02101,"1100,00006-0712-82 ",.02)
  1. ;;00006-0712-82
  1. ;;9002226.02101,"1100,00006-0712-87 ",.01)
  1. ;;00006-0712-87
  1. ;;9002226.02101,"1100,00006-0712-87 ",.02)
  1. ;;00006-0712-87
  1. ;;9002226.02101,"1100,00006-0712-94 ",.01)
  1. ;;00006-0712-94
  1. ;;9002226.02101,"1100,00006-0712-94 ",.02)
  1. ;;00006-0712-94
  1. ;;9002226.02101,"1100,00006-0713-28 ",.01)
  1. ;;00006-0713-28
  1. ;;9002226.02101,"1100,00006-0713-28 ",.02)
  1. ;;00006-0713-28
  1. ;;9002226.02101,"1100,00006-0713-68 ",.01)
  1. ;;00006-0713-68
  1. ;;9002226.02101,"1100,00006-0713-68 ",.02)
  1. ;;00006-0713-68
  1. ;;9002226.02101,"1100,00006-0713-82 ",.01)
  1. ;;00006-0713-82
  1. ;;9002226.02101,"1100,00006-0713-82 ",.02)
  1. ;;00006-0713-82
  1. ;;9002226.02101,"1100,00006-0713-87 ",.01)
  1. ;;00006-0713-87
  1. ;;9002226.02101,"1100,00006-0713-87 ",.02)
  1. ;;00006-0713-87
  1. ;;9002226.02101,"1100,00006-0713-94 ",.01)
  1. ;;00006-0713-94
  1. ;;9002226.02101,"1100,00006-0713-94 ",.02)
  1. ;;00006-0713-94
  1. ;;9002226.02101,"1100,00006-0714-28 ",.01)
  1. ;;00006-0714-28
  1. ;;9002226.02101,"1100,00006-0714-28 ",.02)
  1. ;;00006-0714-28
  1. ;;9002226.02101,"1100,00006-0714-68 ",.01)
  1. ;;00006-0714-68
  1. ;;9002226.02101,"1100,00006-0714-68 ",.02)
  1. ;;00006-0714-68
  1. ;;9002226.02101,"1100,00006-0714-82 ",.01)
  1. ;;00006-0714-82
  1. ;;9002226.02101,"1100,00006-0714-82 ",.02)
  1. ;;00006-0714-82
  1. ;;9002226.02101,"1100,00006-0714-87 ",.01)
  1. ;;00006-0714-87
  1. ;;9002226.02101,"1100,00006-0714-87 ",.02)
  1. ;;00006-0714-87
  1. ;;9002226.02101,"1100,00006-0714-94 ",.01)
  1. ;;00006-0714-94
  1. ;;9002226.02101,"1100,00006-0714-94 ",.02)
  1. ;;00006-0714-94
  1. ;;9002226.02101,"1100,00006-0717-01 ",.01)
  1. ;;00006-0717-01
  1. ;;9002226.02101,"1100,00006-0717-01 ",.02)
  1. ;;00006-0717-01
  1. ;;9002226.02101,"1100,00006-0717-28 ",.01)
  1. ;;00006-0717-28
  1. ;;9002226.02101,"1100,00006-0717-28 ",.02)
  1. ;;00006-0717-28
  1. ;;9002226.02101,"1100,00006-0717-31 ",.01)
  1. ;;00006-0717-31
  1. ;;9002226.02101,"1100,00006-0717-31 ",.02)
  1. ;;00006-0717-31
  1. ;;9002226.02101,"1100,00006-0717-54 ",.01)
  1. ;;00006-0717-54
  1. ;;9002226.02101,"1100,00006-0717-54 ",.02)
  1. ;;00006-0717-54
  1. ;;9002226.02101,"1100,00006-0717-58 ",.01)
  1. ;;00006-0717-58
  1. ;;9002226.02101,"1100,00006-0717-58 ",.02)
  1. ;;00006-0717-58
  1. ;;9002226.02101,"1100,00006-0717-82 ",.01)
  1. ;;00006-0717-82
  1. ;;9002226.02101,"1100,00006-0717-82 ",.02)
  1. ;;00006-0717-82
  1. ;;9002226.02101,"1100,00006-0717-86 ",.01)
  1. ;;00006-0717-86
  1. ;;9002226.02101,"1100,00006-0717-86 ",.02)
  1. ;;00006-0717-86
  1. ;;9002226.02101,"1100,00006-0720-68 ",.01)
  1. ;;00006-0720-68
  1. ;;9002226.02101,"1100,00006-0720-68 ",.02)
  1. ;;00006-0720-68
  1. ;;9002226.02101,"1100,00006-0745-28 ",.01)
  1. ;;00006-0745-28
  1. ;;9002226.02101,"1100,00006-0745-28 ",.02)
  1. ;;00006-0745-28
  1. ;;9002226.02101,"1100,00006-0745-31 ",.01)
  1. ;;00006-0745-31
  1. ;;9002226.02101,"1100,00006-0745-31 ",.02)
  1. ;;00006-0745-31
  1. ;;9002226.02101,"1100,00006-0745-54 ",.01)
  1. ;;00006-0745-54
  1. ;;9002226.02101,"1100,00006-0745-54 ",.02)
  1. ;;00006-0745-54
  1. ;;9002226.02101,"1100,00006-0745-82 ",.01)
  1. ;;00006-0745-82
  1. ;;9002226.02101,"1100,00006-0745-82 ",.02)
  1. ;;00006-0745-82
  1. ;;9002226.02101,"1100,00006-0745-86 ",.01)
  1. ;;00006-0745-86
  1. ;;9002226.02101,"1100,00006-0745-86 ",.02)
  1. ;;00006-0745-86
  1. ;;9002226.02101,"1100,00006-0747-28 ",.01)
  1. ;;00006-0747-28
  1. ;;9002226.02101,"1100,00006-0747-28 ",.02)
  1. ;;00006-0747-28
  1. ;;9002226.02101,"1100,00006-0747-31 ",.01)
  1. ;;00006-0747-31
  1. ;;9002226.02101,"1100,00006-0747-31 ",.02)
  1. ;;00006-0747-31
  1. ;;9002226.02101,"1100,00006-0747-54 ",.01)
  1. ;;00006-0747-54
  1. ;;9002226.02101,"1100,00006-0747-54 ",.02)
  1. ;;00006-0747-54
  1. ;;9002226.02101,"1100,00006-0747-58 ",.01)
  1. ;;00006-0747-58
  1. ;;9002226.02101,"1100,00006-0747-58 ",.02)
  1. ;;00006-0747-58
  1. ;;9002226.02101,"1100,00006-0747-81 ",.01)
  1. ;;00006-0747-81
  1. ;;9002226.02101,"1100,00006-0747-81 ",.02)
  1. ;;00006-0747-81
  1. ;;9002226.02101,"1100,00006-0747-82 ",.01)
  1. ;;00006-0747-82
  1. ;;9002226.02101,"1100,00006-0747-82 ",.02)
  1. ;;00006-0747-82
  1. ;;9002226.02101,"1100,00006-0951-01 ",.01)
  1. ;;00006-0951-01
  1. ;;9002226.02101,"1100,00006-0951-01 ",.02)
  1. ;;00006-0951-01
  1. ;;9002226.02101,"1100,00006-0951-28 ",.01)
  1. ;;00006-0951-28
  1. ;;9002226.02101,"1100,00006-0951-28 ",.02)
  1. ;;00006-0951-28
  1. ;;9002226.02101,"1100,00006-0951-54 ",.01)
  1. ;;00006-0951-54
  1. ;;9002226.02101,"1100,00006-0951-54 ",.02)
  1. ;;00006-0951-54
  1. ;;9002226.02101,"1100,00006-0951-58 ",.01)
  1. ;;00006-0951-58
  1. ;;9002226.02101,"1100,00006-0951-58 ",.02)
  1. ;;00006-0951-58
  1. ;;9002226.02101,"1100,00006-0951-82 ",.01)
  1. ;;00006-0951-82
  1. ;;9002226.02101,"1100,00006-0951-82 ",.02)
  1. ;;00006-0951-82
  1. ;;9002226.02101,"1100,00006-0951-87 ",.01)
  1. ;;00006-0951-87
  1. ;;9002226.02101,"1100,00006-0951-87 ",.02)
  1. ;;00006-0951-87
  1. ;;9002226.02101,"1100,00006-0952-01 ",.01)
  1. ;;00006-0952-01
  1. ;;9002226.02101,"1100,00006-0952-01 ",.02)
  1. ;;00006-0952-01
  1. ;;9002226.02101,"1100,00006-0952-28 ",.01)
  1. ;;00006-0952-28
  1. ;;9002226.02101,"1100,00006-0952-28 ",.02)
  1. ;;00006-0952-28
  1. ;;9002226.02101,"1100,00006-0952-31 ",.01)
  1. ;;00006-0952-31
  1. ;;9002226.02101,"1100,00006-0952-31 ",.02)
  1. ;;00006-0952-31
  1. ;;9002226.02101,"1100,00006-0952-54 ",.01)
  1. ;;00006-0952-54
  1. ;;9002226.02101,"1100,00006-0952-54 ",.02)
  1. ;;00006-0952-54
  1. ;;9002226.02101,"1100,00006-0952-58 ",.01)
  1. ;;00006-0952-58
  1. ;;9002226.02101,"1100,00006-0952-58 ",.02)
  1. ;;00006-0952-58
  1. ;;9002226.02101,"1100,00006-0952-82 ",.01)
  1. ;;00006-0952-82
  1. ;;9002226.02101,"1100,00006-0952-82 ",.02)
  1. ;;00006-0952-82
  1. ;;9002226.02101,"1100,00006-0952-87 ",.01)
  1. ;;00006-0952-87
  1. ;;9002226.02101,"1100,00006-0952-87 ",.02)
  1. ;;00006-0952-87
  1. ;;9002226.02101,"1100,00006-0960-01 ",.01)
  1. ;;00006-0960-01
  1. ;;9002226.02101,"1100,00006-0960-01 ",.02)
  1. ;;00006-0960-01
  1. ;;9002226.02101,"1100,00006-0960-28 ",.01)
  1. ;;00006-0960-28
  1. ;;9002226.02101,"1100,00006-0960-28 ",.02)
  1. ;;00006-0960-28
  1. ;;9002226.02101,"1100,00006-0960-31 ",.01)
  1. ;;00006-0960-31
  1. ;;9002226.02101,"1100,00006-0960-31 ",.02)
  1. ;;00006-0960-31
  1. ;;9002226.02101,"1100,00006-0960-54 ",.01)
  1. ;;00006-0960-54
  1. ;;9002226.02101,"1100,00006-0960-54 ",.02)
  1. ;;00006-0960-54
  1. ;;9002226.02101,"1100,00006-0960-58 ",.01)
  1. ;;00006-0960-58
  1. ;;9002226.02101,"1100,00006-0960-58 ",.02)
  1. ;;00006-0960-58
  1. ;;9002226.02101,"1100,00006-0960-82 ",.01)
  1. ;;00006-0960-82
  1. ;;9002226.02101,"1100,00006-0960-82 ",.02)
  1. ;;00006-0960-82
  1. ;;9002226.02101,"1100,00006-0960-86 ",.01)
  1. ;;00006-0960-86
  1. ;;9002226.02101,"1100,00006-0960-86 ",.02)
  1. ;;00006-0960-86
  1. ;;9002226.02101,"1100,00032-1101-01 ",.01)
  1. ;;00032-1101-01
  1. ;;9002226.02101,"1100,00032-1101-01 ",.02)
  1. ;;00032-1101-01
  1. ;;9002226.02101,"1100,00032-1102-01 ",.01)
  1. ;;00032-1102-01
  1. ;;9002226.02101,"1100,00032-1102-01 ",.02)
  1. ;;00032-1102-01
  1. ;;9002226.02101,"1100,00032-1103-01 ",.01)
  1. ;;00032-1103-01
  1. ;;9002226.02101,"1100,00032-1103-01 ",.02)
  1. ;;00032-1103-01
  1. ;;9002226.02101,"1100,00048-5805-01 ",.01)
  1. ;;00048-5805-01
  1. ;;9002226.02101,"1100,00048-5805-01 ",.02)
  1. ;;00048-5805-01
  1. ;;9002226.02101,"1100,00048-5805-41 ",.01)
  1. ;;00048-5805-41
  1. ;;9002226.02101,"1100,00048-5805-41 ",.02)
  1. ;;00048-5805-41
  1. ;;9002226.02101,"1100,00048-5806-01 ",.01)
  1. ;;00048-5806-01
  1. ;;9002226.02101,"1100,00048-5806-01 ",.02)
  1. ;;00048-5806-01
  1. ;;9002226.02101,"1100,00048-5806-41 ",.01)
  1. ;;00048-5806-41
  1. ;;9002226.02101,"1100,00048-5806-41 ",.02)
  1. ;;00048-5806-41
  1. ;;9002226.02101,"1100,00048-5807-01 ",.01)
  1. ;;00048-5807-01
  1. ;;9002226.02101,"1100,00048-5807-01 ",.02)
  1. ;;00048-5807-01
  1. ;;9002226.02101,"1100,00048-5807-41 ",.01)
  1. ;;00048-5807-41
  1. ;;9002226.02101,"1100,00048-5807-41 ",.02)
  1. ;;00048-5807-41
  1. ;;9002226.02101,"1100,00048-5912-40 ",.01)
  1. ;;00048-5912-40
  1. ;;9002226.02101,"1100,00048-5912-40 ",.02)
  1. ;;00048-5912-40
  1. ;;9002226.02101,"1100,00048-5921-80 ",.01)
  1. ;;00048-5921-80
  1. ;;9002226.02101,"1100,00048-5921-80 ",.02)
  1. ;;00048-5921-80