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

BGP71T26.m

Go to the documentation of this file.
BGP71T26 ; 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,"1218,60429-0126-01 ",.02)
 ;;60429-0126-01
 ;;9002226.02101,"1218,60429-0126-05 ",.01)
 ;;60429-0126-05
 ;;9002226.02101,"1218,60429-0126-05 ",.02)
 ;;60429-0126-05
 ;;9002226.02101,"1218,60429-0127-01 ",.01)
 ;;60429-0127-01
 ;;9002226.02101,"1218,60429-0127-01 ",.02)
 ;;60429-0127-01
 ;;9002226.02101,"1218,60429-0127-05 ",.01)
 ;;60429-0127-05
 ;;9002226.02101,"1218,60429-0127-05 ",.02)
 ;;60429-0127-05
 ;;9002226.02101,"1218,60429-0128-01 ",.01)
 ;;60429-0128-01
 ;;9002226.02101,"1218,60429-0128-01 ",.02)
 ;;60429-0128-01
 ;;9002226.02101,"1218,60429-0128-05 ",.01)
 ;;60429-0128-05
 ;;9002226.02101,"1218,60429-0128-05 ",.02)
 ;;60429-0128-05
 ;;9002226.02101,"1218,60429-0129-01 ",.01)
 ;;60429-0129-01
 ;;9002226.02101,"1218,60429-0129-01 ",.02)
 ;;60429-0129-01
 ;;9002226.02101,"1218,60429-0129-05 ",.01)
 ;;60429-0129-05
 ;;9002226.02101,"1218,60429-0129-05 ",.02)
 ;;60429-0129-05
 ;;9002226.02101,"1218,60429-0139-01 ",.01)
 ;;60429-0139-01
 ;;9002226.02101,"1218,60429-0139-01 ",.02)
 ;;60429-0139-01
 ;;9002226.02101,"1218,60429-0139-10 ",.01)
 ;;60429-0139-10
 ;;9002226.02101,"1218,60429-0139-10 ",.02)
 ;;60429-0139-10
 ;;9002226.02101,"1218,60429-0140-01 ",.01)
 ;;60429-0140-01
 ;;9002226.02101,"1218,60429-0140-01 ",.02)
 ;;60429-0140-01
 ;;9002226.02101,"1218,60429-0140-10 ",.01)
 ;;60429-0140-10
 ;;9002226.02101,"1218,60429-0140-10 ",.02)
 ;;60429-0140-10
 ;;9002226.02101,"1218,60429-0141-01 ",.01)
 ;;60429-0141-01
 ;;9002226.02101,"1218,60429-0141-01 ",.02)
 ;;60429-0141-01
 ;;9002226.02101,"1218,60429-0141-10 ",.01)
 ;;60429-0141-10
 ;;9002226.02101,"1218,60429-0141-10 ",.02)
 ;;60429-0141-10
 ;;9002226.02101,"1218,60429-0141-45 ",.01)
 ;;60429-0141-45
 ;;9002226.02101,"1218,60429-0141-45 ",.02)
 ;;60429-0141-45
 ;;9002226.02101,"1218,60429-0142-01 ",.01)
 ;;60429-0142-01
 ;;9002226.02101,"1218,60429-0142-01 ",.02)
 ;;60429-0142-01
 ;;9002226.02101,"1218,60429-0142-05 ",.01)
 ;;60429-0142-05
 ;;9002226.02101,"1218,60429-0142-05 ",.02)
 ;;60429-0142-05
 ;;9002226.02101,"1218,60429-0142-10 ",.01)
 ;;60429-0142-10
 ;;9002226.02101,"1218,60429-0142-10 ",.02)
 ;;60429-0142-10
 ;;9002226.02101,"1218,60429-0142-45 ",.01)
 ;;60429-0142-45
 ;;9002226.02101,"1218,60429-0142-45 ",.02)
 ;;60429-0142-45
 ;;9002226.02101,"1218,60429-0277-01 ",.01)
 ;;60429-0277-01
 ;;9002226.02101,"1218,60429-0277-01 ",.02)
 ;;60429-0277-01
 ;;9002226.02101,"1218,60429-0277-05 ",.01)
 ;;60429-0277-05
 ;;9002226.02101,"1218,60429-0277-05 ",.02)
 ;;60429-0277-05
 ;;9002226.02101,"1218,60429-0278-01 ",.01)
 ;;60429-0278-01
 ;;9002226.02101,"1218,60429-0278-01 ",.02)
 ;;60429-0278-01
 ;;9002226.02101,"1218,60429-0278-05 ",.01)
 ;;60429-0278-05
 ;;9002226.02101,"1218,60429-0278-05 ",.02)
 ;;60429-0278-05
 ;;9002226.02101,"1218,60429-0279-01 ",.01)
 ;;60429-0279-01
 ;;9002226.02101,"1218,60429-0279-01 ",.02)
 ;;60429-0279-01
 ;;9002226.02101,"1218,60429-0753-01 ",.01)
 ;;60429-0753-01
 ;;9002226.02101,"1218,60429-0753-01 ",.02)
 ;;60429-0753-01
 ;;9002226.02101,"1218,60429-0754-01 ",.01)
 ;;60429-0754-01
 ;;9002226.02101,"1218,60429-0754-01 ",.02)
 ;;60429-0754-01
 ;;9002226.02101,"1218,60505-2606-01 ",.01)
 ;;60505-2606-01
 ;;9002226.02101,"1218,60505-2606-01 ",.02)
 ;;60505-2606-01
 ;;9002226.02101,"1218,60505-2606-08 ",.01)
 ;;60505-2606-08
 ;;9002226.02101,"1218,60505-2606-08 ",.02)
 ;;60505-2606-08
 ;;9002226.02101,"1218,60505-2607-01 ",.01)
 ;;60505-2607-01
 ;;9002226.02101,"1218,60505-2607-01 ",.02)
 ;;60505-2607-01
 ;;9002226.02101,"1218,60505-2607-08 ",.01)
 ;;60505-2607-08
 ;;9002226.02101,"1218,60505-2607-08 ",.02)
 ;;60505-2607-08
 ;;9002226.02101,"1218,60505-2608-01 ",.01)
 ;;60505-2608-01
 ;;9002226.02101,"1218,60505-2608-01 ",.02)
 ;;60505-2608-01
 ;;9002226.02101,"1218,60505-2608-08 ",.01)
 ;;60505-2608-08
 ;;9002226.02101,"1218,60505-2608-08 ",.02)
 ;;60505-2608-08
 ;;9002226.02101,"1218,60505-2609-01 ",.01)
 ;;60505-2609-01
 ;;9002226.02101,"1218,60505-2609-01 ",.02)
 ;;60505-2609-01
 ;;9002226.02101,"1218,60505-2609-08 ",.01)
 ;;60505-2609-08
 ;;9002226.02101,"1218,60505-2609-08 ",.02)
 ;;60505-2609-08
 ;;9002226.02101,"1218,60687-0114-01 ",.01)
 ;;60687-0114-01
 ;;9002226.02101,"1218,60687-0114-01 ",.02)
 ;;60687-0114-01
 ;;9002226.02101,"1218,60687-0114-11 ",.01)
 ;;60687-0114-11
 ;;9002226.02101,"1218,60687-0114-11 ",.02)
 ;;60687-0114-11
 ;;9002226.02101,"1218,60687-0125-01 ",.01)
 ;;60687-0125-01
 ;;9002226.02101,"1218,60687-0125-01 ",.02)
 ;;60687-0125-01
 ;;9002226.02101,"1218,60687-0125-11 ",.01)
 ;;60687-0125-11
 ;;9002226.02101,"1218,60687-0125-11 ",.02)
 ;;60687-0125-11
 ;;9002226.02101,"1218,60687-0136-01 ",.01)
 ;;60687-0136-01
 ;;9002226.02101,"1218,60687-0136-01 ",.02)
 ;;60687-0136-01
 ;;9002226.02101,"1218,60687-0136-11 ",.01)
 ;;60687-0136-11
 ;;9002226.02101,"1218,60687-0136-11 ",.02)
 ;;60687-0136-11
 ;;9002226.02101,"1218,60760-0059-30 ",.01)
 ;;60760-0059-30
 ;;9002226.02101,"1218,60760-0059-30 ",.02)
 ;;60760-0059-30
 ;;9002226.02101,"1218,60760-0059-90 ",.01)
 ;;60760-0059-90
 ;;9002226.02101,"1218,60760-0059-90 ",.02)
 ;;60760-0059-90
 ;;9002226.02101,"1218,60760-0060-30 ",.01)
 ;;60760-0060-30
 ;;9002226.02101,"1218,60760-0060-30 ",.02)
 ;;60760-0060-30
 ;;9002226.02101,"1218,60760-0060-90 ",.01)
 ;;60760-0060-90
 ;;9002226.02101,"1218,60760-0060-90 ",.02)
 ;;60760-0060-90
 ;;9002226.02101,"1218,60760-0061-90 ",.01)
 ;;60760-0061-90
 ;;9002226.02101,"1218,60760-0061-90 ",.02)
 ;;60760-0061-90
 ;;9002226.02101,"1218,60760-0142-60 ",.01)
 ;;60760-0142-60
 ;;9002226.02101,"1218,60760-0142-60 ",.02)
 ;;60760-0142-60
 ;;9002226.02101,"1218,60760-0142-98 ",.01)
 ;;60760-0142-98
 ;;9002226.02101,"1218,60760-0142-98 ",.02)
 ;;60760-0142-98
 ;;9002226.02101,"1218,60760-0143-60 ",.01)
 ;;60760-0143-60
 ;;9002226.02101,"1218,60760-0143-60 ",.02)
 ;;60760-0143-60
 ;;9002226.02101,"1218,60760-0143-98 ",.01)
 ;;60760-0143-98
 ;;9002226.02101,"1218,60760-0143-98 ",.02)
 ;;60760-0143-98
 ;;9002226.02101,"1218,60760-0144-60 ",.01)
 ;;60760-0144-60
 ;;9002226.02101,"1218,60760-0144-60 ",.02)
 ;;60760-0144-60
 ;;9002226.02101,"1218,60760-0144-98 ",.01)
 ;;60760-0144-98
 ;;9002226.02101,"1218,60760-0144-98 ",.02)
 ;;60760-0144-98
 ;;9002226.02101,"1218,60760-0145-60 ",.01)
 ;;60760-0145-60
 ;;9002226.02101,"1218,60760-0145-60 ",.02)
 ;;60760-0145-60
 ;;9002226.02101,"1218,60760-0145-98 ",.01)
 ;;60760-0145-98
 ;;9002226.02101,"1218,60760-0145-98 ",.02)
 ;;60760-0145-98
 ;;9002226.02101,"1218,60760-0251-60 ",.01)
 ;;60760-0251-60
 ;;9002226.02101,"1218,60760-0251-60 ",.02)
 ;;60760-0251-60
 ;;9002226.02101,"1218,60760-0251-98 ",.01)
 ;;60760-0251-98
 ;;9002226.02101,"1218,60760-0251-98 ",.02)
 ;;60760-0251-98
 ;;9002226.02101,"1218,60760-0252-30 ",.01)
 ;;60760-0252-30
 ;;9002226.02101,"1218,60760-0252-30 ",.02)
 ;;60760-0252-30
 ;;9002226.02101,"1218,60760-0252-60 ",.01)
 ;;60760-0252-60
 ;;9002226.02101,"1218,60760-0252-60 ",.02)
 ;;60760-0252-60
 ;;9002226.02101,"1218,60760-0252-90 ",.01)
 ;;60760-0252-90
 ;;9002226.02101,"1218,60760-0252-90 ",.02)
 ;;60760-0252-90
 ;;9002226.02101,"1218,60760-0291-90 ",.01)
 ;;60760-0291-90
 ;;9002226.02101,"1218,60760-0291-90 ",.02)
 ;;60760-0291-90
 ;;9002226.02101,"1218,60760-0292-60 ",.01)
 ;;60760-0292-60
 ;;9002226.02101,"1218,60760-0292-60 ",.02)
 ;;60760-0292-60
 ;;9002226.02101,"1218,60760-0976-30 ",.01)
 ;;60760-0976-30
 ;;9002226.02101,"1218,60760-0976-30 ",.02)
 ;;60760-0976-30
 ;;9002226.02101,"1218,60760-0976-90 ",.01)
 ;;60760-0976-90
 ;;9002226.02101,"1218,60760-0976-90 ",.02)
 ;;60760-0976-90
 ;;9002226.02101,"1218,60760-0977-30 ",.01)
 ;;60760-0977-30
 ;;9002226.02101,"1218,60760-0977-30 ",.02)
 ;;60760-0977-30
 ;;9002226.02101,"1218,60760-0977-90 ",.01)
 ;;60760-0977-90
 ;;9002226.02101,"1218,60760-0977-90 ",.02)
 ;;60760-0977-90
 ;;9002226.02101,"1218,60760-0978-30 ",.01)
 ;;60760-0978-30
 ;;9002226.02101,"1218,60760-0978-30 ",.02)
 ;;60760-0978-30
 ;;9002226.02101,"1218,60760-0978-90 ",.01)
 ;;60760-0978-90
 ;;9002226.02101,"1218,60760-0978-90 ",.02)
 ;;60760-0978-90
 ;;9002226.02101,"1218,60793-0283-01 ",.01)
 ;;60793-0283-01
 ;;9002226.02101,"1218,60793-0283-01 ",.02)
 ;;60793-0283-01
 ;;9002226.02101,"1218,60793-0284-01 ",.01)
 ;;60793-0284-01
 ;;9002226.02101,"1218,60793-0284-01 ",.02)
 ;;60793-0284-01
 ;;9002226.02101,"1218,60793-0800-01 ",.01)
 ;;60793-0800-01
 ;;9002226.02101,"1218,60793-0800-01 ",.02)
 ;;60793-0800-01
 ;;9002226.02101,"1218,60793-0801-01 ",.01)
 ;;60793-0801-01
 ;;9002226.02101,"1218,60793-0801-01 ",.02)
 ;;60793-0801-01
 ;;9002226.02101,"1218,60793-0802-01 ",.01)
 ;;60793-0802-01
 ;;9002226.02101,"1218,60793-0802-01 ",.02)
 ;;60793-0802-01
 ;;9002226.02101,"1218,61919-0052-60 ",.01)
 ;;61919-0052-60
 ;;9002226.02101,"1218,61919-0052-60 ",.02)
 ;;61919-0052-60
 ;;9002226.02101,"1218,61919-0052-90 ",.01)
 ;;61919-0052-90
 ;;9002226.02101,"1218,61919-0052-90 ",.02)
 ;;61919-0052-90
 ;;9002226.02101,"1218,61919-0256-30 ",.01)
 ;;61919-0256-30
 ;;9002226.02101,"1218,61919-0256-30 ",.02)
 ;;61919-0256-30
 ;;9002226.02101,"1218,61919-0256-90 ",.01)
 ;;61919-0256-90
 ;;9002226.02101,"1218,61919-0256-90 ",.02)
 ;;61919-0256-90
 ;;9002226.02101,"1218,61919-0257-30 ",.01)
 ;;61919-0257-30
 ;;9002226.02101,"1218,61919-0257-30 ",.02)
 ;;61919-0257-30
 ;;9002226.02101,"1218,61919-0257-90 ",.01)
 ;;61919-0257-90
 ;;9002226.02101,"1218,61919-0257-90 ",.02)
 ;;61919-0257-90
 ;;9002226.02101,"1218,61919-0317-30 ",.01)
 ;;61919-0317-30
 ;;9002226.02101,"1218,61919-0317-30 ",.02)
 ;;61919-0317-30
 ;;9002226.02101,"1218,61919-0317-60 ",.01)
 ;;61919-0317-60
 ;;9002226.02101,"1218,61919-0317-60 ",.02)
 ;;61919-0317-60
 ;;9002226.02101,"1218,61919-0317-90 ",.01)
 ;;61919-0317-90
 ;;9002226.02101,"1218,61919-0317-90 ",.02)
 ;;61919-0317-90
 ;;9002226.02101,"1218,61919-0428-90 ",.01)
 ;;61919-0428-90
 ;;9002226.02101,"1218,61919-0428-90 ",.02)
 ;;61919-0428-90
 ;;9002226.02101,"1218,61919-0533-90 ",.01)
 ;;61919-0533-90
 ;;9002226.02101,"1218,61919-0533-90 ",.02)
 ;;61919-0533-90
 ;;9002226.02101,"1218,61919-0808-30 ",.01)
 ;;61919-0808-30
 ;;9002226.02101,"1218,61919-0808-30 ",.02)
 ;;61919-0808-30
 ;;9002226.02101,"1218,62037-0830-01 ",.01)
 ;;62037-0830-01
 ;;9002226.02101,"1218,62037-0830-01 ",.02)
 ;;62037-0830-01
 ;;9002226.02101,"1218,62037-0830-10 ",.01)
 ;;62037-0830-10
 ;;9002226.02101,"1218,62037-0830-10 ",.02)
 ;;62037-0830-10
 ;;9002226.02101,"1218,62037-0831-01 ",.01)
 ;;62037-0831-01
 ;;9002226.02101,"1218,62037-0831-01 ",.02)
 ;;62037-0831-01
 ;;9002226.02101,"1218,62037-0831-10 ",.01)
 ;;62037-0831-10
 ;;9002226.02101,"1218,62037-0831-10 ",.02)
 ;;62037-0831-10
 ;;9002226.02101,"1218,62037-0832-01 ",.01)
 ;;62037-0832-01
 ;;9002226.02101,"1218,62037-0832-01 ",.02)
 ;;62037-0832-01
 ;;9002226.02101,"1218,62037-0832-10 ",.01)
 ;;62037-0832-10
 ;;9002226.02101,"1218,62037-0832-10 ",.02)
 ;;62037-0832-10
 ;;9002226.02101,"1218,62037-0833-01 ",.01)
 ;;62037-0833-01
 ;;9002226.02101,"1218,62037-0833-01 ",.02)
 ;;62037-0833-01
 ;;9002226.02101,"1218,62037-0833-10 ",.01)
 ;;62037-0833-10
 ;;9002226.02101,"1218,62037-0833-10 ",.02)
 ;;62037-0833-10
 ;;9002226.02101,"1218,62332-0112-31 ",.01)
 ;;62332-0112-31
 ;;9002226.02101,"1218,62332-0112-31 ",.02)
 ;;62332-0112-31
 ;;9002226.02101,"1218,62332-0113-31 ",.01)
 ;;62332-0113-31
 ;;9002226.02101,"1218,62332-0113-31 ",.02)
 ;;62332-0113-31
 ;;9002226.02101,"1218,62332-0114-31 ",.01)
 ;;62332-0114-31
 ;;9002226.02101,"1218,62332-0114-31 ",.02)
 ;;62332-0114-31
 ;;9002226.02101,"1218,62332-0115-31 ",.01)
 ;;62332-0115-31
 ;;9002226.02101,"1218,62332-0115-31 ",.02)
 ;;62332-0115-31