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

BGP73F64.m

Go to the documentation of this file.
BGP73F64 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
 ;;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,"868,55887-0983-01 ",.02)
 ;;55887-0983-01
 ;;9002226.02101,"868,55887-0983-15 ",.01)
 ;;55887-0983-15
 ;;9002226.02101,"868,55887-0983-15 ",.02)
 ;;55887-0983-15
 ;;9002226.02101,"868,55887-0983-40 ",.01)
 ;;55887-0983-40
 ;;9002226.02101,"868,55887-0983-40 ",.02)
 ;;55887-0983-40
 ;;9002226.02101,"868,55887-0983-42 ",.01)
 ;;55887-0983-42
 ;;9002226.02101,"868,55887-0983-42 ",.02)
 ;;55887-0983-42
 ;;9002226.02101,"868,55887-0983-60 ",.01)
 ;;55887-0983-60
 ;;9002226.02101,"868,55887-0983-60 ",.02)
 ;;55887-0983-60
 ;;9002226.02101,"868,55887-0991-28 ",.01)
 ;;55887-0991-28
 ;;9002226.02101,"868,55887-0991-28 ",.02)
 ;;55887-0991-28
 ;;9002226.02101,"868,55887-0993-09 ",.01)
 ;;55887-0993-09
 ;;9002226.02101,"868,55887-0993-09 ",.02)
 ;;55887-0993-09
 ;;9002226.02101,"868,55887-0993-14 ",.01)
 ;;55887-0993-14
 ;;9002226.02101,"868,55887-0993-14 ",.02)
 ;;55887-0993-14
 ;;9002226.02101,"868,55887-0993-15 ",.01)
 ;;55887-0993-15
 ;;9002226.02101,"868,55887-0993-15 ",.02)
 ;;55887-0993-15
 ;;9002226.02101,"868,55887-0993-20 ",.01)
 ;;55887-0993-20
 ;;9002226.02101,"868,55887-0993-20 ",.02)
 ;;55887-0993-20
 ;;9002226.02101,"868,55887-0993-42 ",.01)
 ;;55887-0993-42
 ;;9002226.02101,"868,55887-0993-42 ",.02)
 ;;55887-0993-42
 ;;9002226.02101,"868,57237-0028-01 ",.01)
 ;;57237-0028-01
 ;;9002226.02101,"868,57237-0028-01 ",.02)
 ;;57237-0028-01
 ;;9002226.02101,"868,57237-0029-01 ",.01)
 ;;57237-0029-01
 ;;9002226.02101,"868,57237-0029-01 ",.02)
 ;;57237-0029-01
 ;;9002226.02101,"868,57237-0029-20 ",.01)
 ;;57237-0029-20
 ;;9002226.02101,"868,57237-0029-20 ",.02)
 ;;57237-0029-20
 ;;9002226.02101,"868,57237-0030-01 ",.01)
 ;;57237-0030-01
 ;;9002226.02101,"868,57237-0030-01 ",.02)
 ;;57237-0030-01
 ;;9002226.02101,"868,57237-0030-05 ",.01)
 ;;57237-0030-05
 ;;9002226.02101,"868,57237-0030-05 ",.02)
 ;;57237-0030-05
 ;;9002226.02101,"868,57237-0031-01 ",.01)
 ;;57237-0031-01
 ;;9002226.02101,"868,57237-0031-01 ",.02)
 ;;57237-0031-01
 ;;9002226.02101,"868,57237-0031-05 ",.01)
 ;;57237-0031-05
 ;;9002226.02101,"868,57237-0031-05 ",.02)
 ;;57237-0031-05
 ;;9002226.02101,"868,57237-0032-01 ",.01)
 ;;57237-0032-01
 ;;9002226.02101,"868,57237-0032-01 ",.02)
 ;;57237-0032-01
 ;;9002226.02101,"868,57237-0032-50 ",.01)
 ;;57237-0032-50
 ;;9002226.02101,"868,57237-0032-50 ",.02)
 ;;57237-0032-50
 ;;9002226.02101,"868,57237-0032-75 ",.01)
 ;;57237-0032-75
 ;;9002226.02101,"868,57237-0032-75 ",.02)
 ;;57237-0032-75
 ;;9002226.02101,"868,57237-0033-01 ",.01)
 ;;57237-0033-01
 ;;9002226.02101,"868,57237-0033-01 ",.02)
 ;;57237-0033-01
 ;;9002226.02101,"868,57237-0033-50 ",.01)
 ;;57237-0033-50
 ;;9002226.02101,"868,57237-0033-50 ",.02)
 ;;57237-0033-50
 ;;9002226.02101,"868,57237-0033-75 ",.01)
 ;;57237-0033-75
 ;;9002226.02101,"868,57237-0033-75 ",.02)
 ;;57237-0033-75
 ;;9002226.02101,"868,57237-0040-01 ",.01)
 ;;57237-0040-01
 ;;9002226.02101,"868,57237-0040-01 ",.02)
 ;;57237-0040-01
 ;;9002226.02101,"868,57237-0040-99 ",.01)
 ;;57237-0040-99
 ;;9002226.02101,"868,57237-0040-99 ",.02)
 ;;57237-0040-99
 ;;9002226.02101,"868,57237-0041-01 ",.01)
 ;;57237-0041-01
 ;;9002226.02101,"868,57237-0041-01 ",.02)
 ;;57237-0041-01
 ;;9002226.02101,"868,57237-0041-05 ",.01)
 ;;57237-0041-05
 ;;9002226.02101,"868,57237-0041-05 ",.02)
 ;;57237-0041-05
 ;;9002226.02101,"868,57237-0041-99 ",.01)
 ;;57237-0041-99
 ;;9002226.02101,"868,57237-0041-99 ",.02)
 ;;57237-0041-99
 ;;9002226.02101,"868,57237-0044-60 ",.01)
 ;;57237-0044-60
 ;;9002226.02101,"868,57237-0044-60 ",.02)
 ;;57237-0044-60
 ;;9002226.02101,"868,57237-0045-60 ",.01)
 ;;57237-0045-60
 ;;9002226.02101,"868,57237-0045-60 ",.02)
 ;;57237-0045-60
 ;;9002226.02101,"868,57237-0096-01 ",.01)
 ;;57237-0096-01
 ;;9002226.02101,"868,57237-0096-01 ",.02)
 ;;57237-0096-01
 ;;9002226.02101,"868,57237-0096-50 ",.01)
 ;;57237-0096-50
 ;;9002226.02101,"868,57237-0096-50 ",.02)
 ;;57237-0096-50
 ;;9002226.02101,"868,57237-0097-01 ",.01)
 ;;57237-0097-01
 ;;9002226.02101,"868,57237-0097-01 ",.02)
 ;;57237-0097-01
 ;;9002226.02101,"868,57237-0098-01 ",.01)
 ;;57237-0098-01
 ;;9002226.02101,"868,57237-0098-01 ",.02)
 ;;57237-0098-01
 ;;9002226.02101,"868,57237-0098-75 ",.01)
 ;;57237-0098-75
 ;;9002226.02101,"868,57237-0098-75 ",.02)
 ;;57237-0098-75
 ;;9002226.02101,"868,57237-0099-60 ",.01)
 ;;57237-0099-60
 ;;9002226.02101,"868,57237-0099-60 ",.02)
 ;;57237-0099-60
 ;;9002226.02101,"868,57237-0103-25 ",.01)
 ;;57237-0103-25
 ;;9002226.02101,"868,57237-0103-25 ",.02)
 ;;57237-0103-25
 ;;9002226.02101,"868,57237-0103-60 ",.01)
 ;;57237-0103-60
 ;;9002226.02101,"868,57237-0103-60 ",.02)
 ;;57237-0103-60
 ;;9002226.02101,"868,57237-0104-01 ",.01)
 ;;57237-0104-01
 ;;9002226.02101,"868,57237-0104-01 ",.02)
 ;;57237-0104-01
 ;;9002226.02101,"868,57237-0104-25 ",.01)
 ;;57237-0104-25
 ;;9002226.02101,"868,57237-0104-25 ",.02)
 ;;57237-0104-25
 ;;9002226.02101,"868,57237-0105-01 ",.01)
 ;;57237-0105-01
 ;;9002226.02101,"868,57237-0105-01 ",.02)
 ;;57237-0105-01
 ;;9002226.02101,"868,57237-0105-25 ",.01)
 ;;57237-0105-25
 ;;9002226.02101,"868,57237-0105-25 ",.02)
 ;;57237-0105-25
 ;;9002226.02101,"868,57664-0851-88 ",.01)
 ;;57664-0851-88
 ;;9002226.02101,"868,57664-0851-88 ",.02)
 ;;57664-0851-88
 ;;9002226.02101,"868,57664-0852-88 ",.01)
 ;;57664-0852-88
 ;;9002226.02101,"868,57664-0852-88 ",.02)
 ;;57664-0852-88
 ;;9002226.02101,"868,57664-0853-85 ",.01)
 ;;57664-0853-85
 ;;9002226.02101,"868,57664-0853-85 ",.02)
 ;;57664-0853-85
 ;;9002226.02101,"868,57866-0106-01 ",.01)
 ;;57866-0106-01
 ;;9002226.02101,"868,57866-0106-01 ",.02)
 ;;57866-0106-01
 ;;9002226.02101,"868,57866-0106-02 ",.01)
 ;;57866-0106-02
 ;;9002226.02101,"868,57866-0106-02 ",.02)
 ;;57866-0106-02
 ;;9002226.02101,"868,57866-0117-01 ",.01)
 ;;57866-0117-01
 ;;9002226.02101,"868,57866-0117-01 ",.02)
 ;;57866-0117-01
 ;;9002226.02101,"868,57866-0117-03 ",.01)
 ;;57866-0117-03
 ;;9002226.02101,"868,57866-0117-03 ",.02)
 ;;57866-0117-03
 ;;9002226.02101,"868,57866-0117-04 ",.01)
 ;;57866-0117-04
 ;;9002226.02101,"868,57866-0117-04 ",.02)
 ;;57866-0117-04
 ;;9002226.02101,"868,57866-0117-05 ",.01)
 ;;57866-0117-05
 ;;9002226.02101,"868,57866-0117-05 ",.02)
 ;;57866-0117-05
 ;;9002226.02101,"868,57866-0117-06 ",.01)
 ;;57866-0117-06
 ;;9002226.02101,"868,57866-0117-06 ",.02)
 ;;57866-0117-06
 ;;9002226.02101,"868,57866-0155-00 ",.01)
 ;;57866-0155-00
 ;;9002226.02101,"868,57866-0155-00 ",.02)
 ;;57866-0155-00
 ;;9002226.02101,"868,57866-0155-05 ",.01)
 ;;57866-0155-05
 ;;9002226.02101,"868,57866-0155-05 ",.02)
 ;;57866-0155-05
 ;;9002226.02101,"868,57866-0340-01 ",.01)
 ;;57866-0340-01
 ;;9002226.02101,"868,57866-0340-01 ",.02)
 ;;57866-0340-01
 ;;9002226.02101,"868,57866-0340-02 ",.01)
 ;;57866-0340-02
 ;;9002226.02101,"868,57866-0340-02 ",.02)
 ;;57866-0340-02
 ;;9002226.02101,"868,57866-0340-05 ",.01)
 ;;57866-0340-05
 ;;9002226.02101,"868,57866-0340-05 ",.02)
 ;;57866-0340-05
 ;;9002226.02101,"868,57866-0341-02 ",.01)
 ;;57866-0341-02
 ;;9002226.02101,"868,57866-0341-02 ",.02)
 ;;57866-0341-02
 ;;9002226.02101,"868,57866-0341-04 ",.01)
 ;;57866-0341-04
 ;;9002226.02101,"868,57866-0341-04 ",.02)
 ;;57866-0341-04
 ;;9002226.02101,"868,57866-0343-01 ",.01)
 ;;57866-0343-01
 ;;9002226.02101,"868,57866-0343-01 ",.02)
 ;;57866-0343-01
 ;;9002226.02101,"868,57866-1094-02 ",.01)
 ;;57866-1094-02
 ;;9002226.02101,"868,57866-1094-02 ",.02)
 ;;57866-1094-02
 ;;9002226.02101,"868,57866-3129-01 ",.01)
 ;;57866-3129-01
 ;;9002226.02101,"868,57866-3129-01 ",.02)
 ;;57866-3129-01
 ;;9002226.02101,"868,57866-3135-01 ",.01)
 ;;57866-3135-01
 ;;9002226.02101,"868,57866-3135-01 ",.02)
 ;;57866-3135-01
 ;;9002226.02101,"868,57866-3136-01 ",.01)
 ;;57866-3136-01
 ;;9002226.02101,"868,57866-3136-01 ",.02)
 ;;57866-3136-01
 ;;9002226.02101,"868,57866-3148-02 ",.01)
 ;;57866-3148-02
 ;;9002226.02101,"868,57866-3148-02 ",.02)
 ;;57866-3148-02
 ;;9002226.02101,"868,57866-3613-02 ",.01)
 ;;57866-3613-02
 ;;9002226.02101,"868,57866-3613-02 ",.02)
 ;;57866-3613-02
 ;;9002226.02101,"868,57866-3614-01 ",.01)
 ;;57866-3614-01
 ;;9002226.02101,"868,57866-3614-01 ",.02)
 ;;57866-3614-01
 ;;9002226.02101,"868,57866-4356-01 ",.01)
 ;;57866-4356-01
 ;;9002226.02101,"868,57866-4356-01 ",.02)
 ;;57866-4356-01
 ;;9002226.02101,"868,57866-4693-01 ",.01)
 ;;57866-4693-01
 ;;9002226.02101,"868,57866-4693-01 ",.02)
 ;;57866-4693-01
 ;;9002226.02101,"868,57866-4693-02 ",.01)
 ;;57866-4693-02
 ;;9002226.02101,"868,57866-4693-02 ",.02)
 ;;57866-4693-02
 ;;9002226.02101,"868,57866-4693-04 ",.01)
 ;;57866-4693-04
 ;;9002226.02101,"868,57866-4693-04 ",.02)
 ;;57866-4693-04
 ;;9002226.02101,"868,57866-4693-06 ",.01)
 ;;57866-4693-06
 ;;9002226.02101,"868,57866-4693-06 ",.02)
 ;;57866-4693-06
 ;;9002226.02101,"868,57866-6041-01 ",.01)
 ;;57866-6041-01
 ;;9002226.02101,"868,57866-6041-01 ",.02)
 ;;57866-6041-01
 ;;9002226.02101,"868,57866-6041-02 ",.01)
 ;;57866-6041-02
 ;;9002226.02101,"868,57866-6041-02 ",.02)
 ;;57866-6041-02
 ;;9002226.02101,"868,57866-6041-03 ",.01)
 ;;57866-6041-03
 ;;9002226.02101,"868,57866-6041-03 ",.02)
 ;;57866-6041-03
 ;;9002226.02101,"868,57866-6041-04 ",.01)
 ;;57866-6041-04
 ;;9002226.02101,"868,57866-6041-04 ",.02)
 ;;57866-6041-04
 ;;9002226.02101,"868,57866-6041-05 ",.01)
 ;;57866-6041-05
 ;;9002226.02101,"868,57866-6041-05 ",.02)
 ;;57866-6041-05
 ;;9002226.02101,"868,57866-6041-08 ",.01)
 ;;57866-6041-08
 ;;9002226.02101,"868,57866-6041-08 ",.02)
 ;;57866-6041-08
 ;;9002226.02101,"868,57866-7216-01 ",.01)
 ;;57866-7216-01
 ;;9002226.02101,"868,57866-7216-01 ",.02)
 ;;57866-7216-01
 ;;9002226.02101,"868,57866-7216-02 ",.01)
 ;;57866-7216-02
 ;;9002226.02101,"868,57866-7216-02 ",.02)
 ;;57866-7216-02
 ;;9002226.02101,"868,57866-7216-03 ",.01)
 ;;57866-7216-03
 ;;9002226.02101,"868,57866-7216-03 ",.02)
 ;;57866-7216-03
 ;;9002226.02101,"868,57866-7216-04 ",.01)
 ;;57866-7216-04
 ;;9002226.02101,"868,57866-7216-04 ",.02)
 ;;57866-7216-04
 ;;9002226.02101,"868,57866-7216-07 ",.01)
 ;;57866-7216-07
 ;;9002226.02101,"868,57866-7216-07 ",.02)
 ;;57866-7216-07
 ;;9002226.02101,"868,57866-7216-08 ",.01)
 ;;57866-7216-08
 ;;9002226.02101,"868,57866-7216-08 ",.02)
 ;;57866-7216-08
 ;;9002226.02101,"868,57866-7218-01 ",.01)
 ;;57866-7218-01
 ;;9002226.02101,"868,57866-7218-01 ",.02)
 ;;57866-7218-01
 ;;9002226.02101,"868,57866-7218-02 ",.01)
 ;;57866-7218-02
 ;;9002226.02101,"868,57866-7218-02 ",.02)
 ;;57866-7218-02
 ;;9002226.02101,"868,58016-0075-30 ",.01)
 ;;58016-0075-30
 ;;9002226.02101,"868,58016-0075-30 ",.02)
 ;;58016-0075-30
 ;;9002226.02101,"868,58016-0086-30 ",.01)
 ;;58016-0086-30
 ;;9002226.02101,"868,58016-0086-30 ",.02)
 ;;58016-0086-30
 ;;9002226.02101,"868,58016-0101-00 ",.01)
 ;;58016-0101-00
 ;;9002226.02101,"868,58016-0101-00 ",.02)
 ;;58016-0101-00
 ;;9002226.02101,"868,58016-0101-08 ",.01)
 ;;58016-0101-08
 ;;9002226.02101,"868,58016-0101-08 ",.02)
 ;;58016-0101-08
 ;;9002226.02101,"868,58016-0101-10 ",.01)
 ;;58016-0101-10
 ;;9002226.02101,"868,58016-0101-10 ",.02)
 ;;58016-0101-10
 ;;9002226.02101,"868,58016-0101-12 ",.01)
 ;;58016-0101-12
 ;;9002226.02101,"868,58016-0101-12 ",.02)
 ;;58016-0101-12
 ;;9002226.02101,"868,58016-0101-14 ",.01)
 ;;58016-0101-14
 ;;9002226.02101,"868,58016-0101-14 ",.02)
 ;;58016-0101-14
 ;;9002226.02101,"868,58016-0101-20 ",.01)
 ;;58016-0101-20
 ;;9002226.02101,"868,58016-0101-20 ",.02)
 ;;58016-0101-20
 ;;9002226.02101,"868,58016-0101-24 ",.01)
 ;;58016-0101-24
 ;;9002226.02101,"868,58016-0101-24 ",.02)
 ;;58016-0101-24
 ;;9002226.02101,"868,58016-0101-28 ",.01)
 ;;58016-0101-28