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

BGPM5AJT.m

Go to the documentation of this file.
BGPM5AJT ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"889,55887007430 ",.01)
 ;;55887007430
 ;;9002226.02101,"889,55887007430 ",.02)
 ;;55887007430
 ;;9002226.02101,"889,55887007460 ",.01)
 ;;55887007460
 ;;9002226.02101,"889,55887007460 ",.02)
 ;;55887007460
 ;;9002226.02101,"889,55887007490 ",.01)
 ;;55887007490
 ;;9002226.02101,"889,55887007490 ",.02)
 ;;55887007490
 ;;9002226.02101,"889,55887018030 ",.01)
 ;;55887018030
 ;;9002226.02101,"889,55887018030 ",.02)
 ;;55887018030
 ;;9002226.02101,"889,55887025930 ",.01)
 ;;55887025930
 ;;9002226.02101,"889,55887025930 ",.02)
 ;;55887025930
 ;;9002226.02101,"889,55887025960 ",.01)
 ;;55887025960
 ;;9002226.02101,"889,55887025960 ",.02)
 ;;55887025960
 ;;9002226.02101,"889,55887026730 ",.01)
 ;;55887026730
 ;;9002226.02101,"889,55887026730 ",.02)
 ;;55887026730
 ;;9002226.02101,"889,55887027401 ",.01)
 ;;55887027401
 ;;9002226.02101,"889,55887027401 ",.02)
 ;;55887027401
 ;;9002226.02101,"889,55887027430 ",.01)
 ;;55887027430
 ;;9002226.02101,"889,55887027430 ",.02)
 ;;55887027430
 ;;9002226.02101,"889,55887027460 ",.01)
 ;;55887027460
 ;;9002226.02101,"889,55887027460 ",.02)
 ;;55887027460
 ;;9002226.02101,"889,55887027490 ",.01)
 ;;55887027490
 ;;9002226.02101,"889,55887027490 ",.02)
 ;;55887027490
 ;;9002226.02101,"889,55887034830 ",.01)
 ;;55887034830
 ;;9002226.02101,"889,55887034830 ",.02)
 ;;55887034830
 ;;9002226.02101,"889,55887034920 ",.01)
 ;;55887034920
 ;;9002226.02101,"889,55887034920 ",.02)
 ;;55887034920
 ;;9002226.02101,"889,55887034930 ",.01)
 ;;55887034930
 ;;9002226.02101,"889,55887034930 ",.02)
 ;;55887034930
 ;;9002226.02101,"889,55887034990 ",.01)
 ;;55887034990
 ;;9002226.02101,"889,55887034990 ",.02)
 ;;55887034990
 ;;9002226.02101,"889,55887045330 ",.01)
 ;;55887045330
 ;;9002226.02101,"889,55887045330 ",.02)
 ;;55887045330
 ;;9002226.02101,"889,55887045360 ",.01)
 ;;55887045360
 ;;9002226.02101,"889,55887045360 ",.02)
 ;;55887045360
 ;;9002226.02101,"889,55887047401 ",.01)
 ;;55887047401
 ;;9002226.02101,"889,55887047401 ",.02)
 ;;55887047401
 ;;9002226.02101,"889,55887047430 ",.01)
 ;;55887047430
 ;;9002226.02101,"889,55887047430 ",.02)
 ;;55887047430
 ;;9002226.02101,"889,55887047460 ",.01)
 ;;55887047460
 ;;9002226.02101,"889,55887047460 ",.02)
 ;;55887047460
 ;;9002226.02101,"889,55887047490 ",.01)
 ;;55887047490
 ;;9002226.02101,"889,55887047490 ",.02)
 ;;55887047490
 ;;9002226.02101,"889,55887047492 ",.01)
 ;;55887047492
 ;;9002226.02101,"889,55887047492 ",.02)
 ;;55887047492
 ;;9002226.02101,"889,55887055901 ",.01)
 ;;55887055901
 ;;9002226.02101,"889,55887055901 ",.02)
 ;;55887055901
 ;;9002226.02101,"889,55887055930 ",.01)
 ;;55887055930
 ;;9002226.02101,"889,55887055930 ",.02)
 ;;55887055930
 ;;9002226.02101,"889,55887055960 ",.01)
 ;;55887055960
 ;;9002226.02101,"889,55887055960 ",.02)
 ;;55887055960
 ;;9002226.02101,"889,55887055990 ",.01)
 ;;55887055990
 ;;9002226.02101,"889,55887055990 ",.02)
 ;;55887055990
 ;;9002226.02101,"889,55887057560 ",.01)
 ;;55887057560
 ;;9002226.02101,"889,55887057560 ",.02)
 ;;55887057560
 ;;9002226.02101,"889,55887058501 ",.01)
 ;;55887058501
 ;;9002226.02101,"889,55887058501 ",.02)
 ;;55887058501
 ;;9002226.02101,"889,55887058530 ",.01)
 ;;55887058530
 ;;9002226.02101,"889,55887058530 ",.02)
 ;;55887058530
 ;;9002226.02101,"889,55887058560 ",.01)
 ;;55887058560
 ;;9002226.02101,"889,55887058560 ",.02)
 ;;55887058560
 ;;9002226.02101,"889,55887058582 ",.01)
 ;;55887058582
 ;;9002226.02101,"889,55887058582 ",.02)
 ;;55887058582
 ;;9002226.02101,"889,55887058590 ",.01)
 ;;55887058590
 ;;9002226.02101,"889,55887058590 ",.02)
 ;;55887058590
 ;;9002226.02101,"889,55887059901 ",.01)
 ;;55887059901
 ;;9002226.02101,"889,55887059901 ",.02)
 ;;55887059901
 ;;9002226.02101,"889,55887059930 ",.01)
 ;;55887059930
 ;;9002226.02101,"889,55887059930 ",.02)
 ;;55887059930
 ;;9002226.02101,"889,55887059960 ",.01)
 ;;55887059960
 ;;9002226.02101,"889,55887059960 ",.02)
 ;;55887059960
 ;;9002226.02101,"889,55887059990 ",.01)
 ;;55887059990
 ;;9002226.02101,"889,55887059990 ",.02)
 ;;55887059990
 ;;9002226.02101,"889,55887061330 ",.01)
 ;;55887061330
 ;;9002226.02101,"889,55887061330 ",.02)
 ;;55887061330
 ;;9002226.02101,"889,55887061360 ",.01)
 ;;55887061360
 ;;9002226.02101,"889,55887061360 ",.02)
 ;;55887061360
 ;;9002226.02101,"889,55887061382 ",.01)
 ;;55887061382
 ;;9002226.02101,"889,55887061382 ",.02)
 ;;55887061382
 ;;9002226.02101,"889,55887062501 ",.01)
 ;;55887062501
 ;;9002226.02101,"889,55887062501 ",.02)
 ;;55887062501
 ;;9002226.02101,"889,55887062530 ",.01)
 ;;55887062530
 ;;9002226.02101,"889,55887062530 ",.02)
 ;;55887062530
 ;;9002226.02101,"889,55887062560 ",.01)
 ;;55887062560
 ;;9002226.02101,"889,55887062560 ",.02)
 ;;55887062560
 ;;9002226.02101,"889,55887062590 ",.01)
 ;;55887062590
 ;;9002226.02101,"889,55887062590 ",.02)
 ;;55887062590
 ;;9002226.02101,"889,55887072930 ",.01)
 ;;55887072930
 ;;9002226.02101,"889,55887072930 ",.02)
 ;;55887072930
 ;;9002226.02101,"889,55887073160 ",.01)
 ;;55887073160
 ;;9002226.02101,"889,55887073160 ",.02)
 ;;55887073160
 ;;9002226.02101,"889,55887079290 ",.01)
 ;;55887079290
 ;;9002226.02101,"889,55887079290 ",.02)
 ;;55887079290
 ;;9002226.02101,"889,55887083220 ",.01)
 ;;55887083220
 ;;9002226.02101,"889,55887083220 ",.02)
 ;;55887083220
 ;;9002226.02101,"889,55887083230 ",.01)
 ;;55887083230
 ;;9002226.02101,"889,55887083230 ",.02)
 ;;55887083230
 ;;9002226.02101,"889,55887083260 ",.01)
 ;;55887083260
 ;;9002226.02101,"889,55887083260 ",.02)
 ;;55887083260
 ;;9002226.02101,"889,55887083801 ",.01)
 ;;55887083801
 ;;9002226.02101,"889,55887083801 ",.02)
 ;;55887083801
 ;;9002226.02101,"889,55887083830 ",.01)
 ;;55887083830
 ;;9002226.02101,"889,55887083830 ",.02)
 ;;55887083830
 ;;9002226.02101,"889,55887083860 ",.01)
 ;;55887083860
 ;;9002226.02101,"889,55887083860 ",.02)
 ;;55887083860
 ;;9002226.02101,"889,55887083890 ",.01)
 ;;55887083890
 ;;9002226.02101,"889,55887083890 ",.02)
 ;;55887083890
 ;;9002226.02101,"889,55887099830 ",.01)
 ;;55887099830
 ;;9002226.02101,"889,55887099830 ",.02)
 ;;55887099830
 ;;9002226.02101,"889,55887099860 ",.01)
 ;;55887099860
 ;;9002226.02101,"889,55887099860 ",.02)
 ;;55887099860
 ;;9002226.02101,"889,55887099890 ",.01)
 ;;55887099890
 ;;9002226.02101,"889,55887099890 ",.02)
 ;;55887099890
 ;;9002226.02101,"889,57451057901 ",.01)
 ;;57451057901
 ;;9002226.02101,"889,57451057901 ",.02)
 ;;57451057901
 ;;9002226.02101,"889,57451057902 ",.01)
 ;;57451057902
 ;;9002226.02101,"889,57451057902 ",.02)
 ;;57451057902
 ;;9002226.02101,"889,57451058001 ",.01)
 ;;57451058001
 ;;9002226.02101,"889,57451058001 ",.02)
 ;;57451058001
 ;;9002226.02101,"889,57451058002 ",.01)
 ;;57451058002
 ;;9002226.02101,"889,57451058002 ",.02)
 ;;57451058002
 ;;9002226.02101,"889,57451058101 ",.01)
 ;;57451058101
 ;;9002226.02101,"889,57451058101 ",.02)
 ;;57451058101
 ;;9002226.02101,"889,57451058102 ",.01)
 ;;57451058102
 ;;9002226.02101,"889,57451058102 ",.02)
 ;;57451058102
 ;;9002226.02101,"889,57451062101 ",.01)
 ;;57451062101
 ;;9002226.02101,"889,57451062101 ",.02)
 ;;57451062101
 ;;9002226.02101,"889,57451062102 ",.01)
 ;;57451062102
 ;;9002226.02101,"889,57451062102 ",.02)
 ;;57451062102
 ;;9002226.02101,"889,57451062201 ",.01)
 ;;57451062201
 ;;9002226.02101,"889,57451062201 ",.02)
 ;;57451062201
 ;;9002226.02101,"889,57451062202 ",.01)
 ;;57451062202
 ;;9002226.02101,"889,57451062202 ",.02)
 ;;57451062202
 ;;9002226.02101,"889,57451062301 ",.01)
 ;;57451062301
 ;;9002226.02101,"889,57451062301 ",.02)
 ;;57451062301
 ;;9002226.02101,"889,57451062302 ",.01)
 ;;57451062302
 ;;9002226.02101,"889,57451062302 ",.02)
 ;;57451062302
 ;;9002226.02101,"889,57451500301 ",.01)
 ;;57451500301
 ;;9002226.02101,"889,57451500301 ",.02)
 ;;57451500301
 ;;9002226.02101,"889,57451500302 ",.01)
 ;;57451500302
 ;;9002226.02101,"889,57451500302 ",.02)
 ;;57451500302
 ;;9002226.02101,"889,57451500303 ",.01)
 ;;57451500303
 ;;9002226.02101,"889,57451500303 ",.02)
 ;;57451500303
 ;;9002226.02101,"889,57451500401 ",.01)
 ;;57451500401
 ;;9002226.02101,"889,57451500401 ",.02)
 ;;57451500401
 ;;9002226.02101,"889,57451500402 ",.01)
 ;;57451500402
 ;;9002226.02101,"889,57451500402 ",.02)
 ;;57451500402
 ;;9002226.02101,"889,57451500403 ",.01)
 ;;57451500403
 ;;9002226.02101,"889,57451500403 ",.02)
 ;;57451500403
 ;;9002226.02101,"889,57451500501 ",.01)
 ;;57451500501
 ;;9002226.02101,"889,57451500501 ",.02)
 ;;57451500501
 ;;9002226.02101,"889,57451500502 ",.01)
 ;;57451500502
 ;;9002226.02101,"889,57451500502 ",.02)
 ;;57451500502
 ;;9002226.02101,"889,57451500503 ",.01)
 ;;57451500503
 ;;9002226.02101,"889,57451500503 ",.02)
 ;;57451500503
 ;;9002226.02101,"889,57451500601 ",.01)
 ;;57451500601
 ;;9002226.02101,"889,57451500601 ",.02)
 ;;57451500601
 ;;9002226.02101,"889,57451500602 ",.01)
 ;;57451500602
 ;;9002226.02101,"889,57451500602 ",.02)
 ;;57451500602
 ;;9002226.02101,"889,57451500603 ",.01)
 ;;57451500603
 ;;9002226.02101,"889,57451500603 ",.02)
 ;;57451500603
 ;;9002226.02101,"889,57451500701 ",.01)
 ;;57451500701
 ;;9002226.02101,"889,57451500701 ",.02)
 ;;57451500701
 ;;9002226.02101,"889,57451500702 ",.01)
 ;;57451500702
 ;;9002226.02101,"889,57451500702 ",.02)
 ;;57451500702
 ;;9002226.02101,"889,57451500703 ",.01)
 ;;57451500703
 ;;9002226.02101,"889,57451500703 ",.02)
 ;;57451500703
 ;;9002226.02101,"889,57451500704 ",.01)
 ;;57451500704
 ;;9002226.02101,"889,57451500704 ",.02)
 ;;57451500704
 ;;9002226.02101,"889,57451500901 ",.01)
 ;;57451500901
 ;;9002226.02101,"889,57451500901 ",.02)
 ;;57451500901
 ;;9002226.02101,"889,57451500902 ",.01)
 ;;57451500902
 ;;9002226.02101,"889,57451500902 ",.02)
 ;;57451500902
 ;;9002226.02101,"889,57451500903 ",.01)
 ;;57451500903
 ;;9002226.02101,"889,57451500903 ",.02)
 ;;57451500903
 ;;9002226.02101,"889,57451501001 ",.01)
 ;;57451501001
 ;;9002226.02101,"889,57451501001 ",.02)
 ;;57451501001
 ;;9002226.02101,"889,57451501002 ",.01)
 ;;57451501002
 ;;9002226.02101,"889,57451501002 ",.02)
 ;;57451501002
 ;;9002226.02101,"889,57451501003 ",.01)
 ;;57451501003
 ;;9002226.02101,"889,57451501003 ",.02)
 ;;57451501003
 ;;9002226.02101,"889,57451501101 ",.01)
 ;;57451501101
 ;;9002226.02101,"889,57451501101 ",.02)
 ;;57451501101
 ;;9002226.02101,"889,57451501102 ",.01)
 ;;57451501102
 ;;9002226.02101,"889,57451501102 ",.02)
 ;;57451501102
 ;;9002226.02101,"889,57451501103 ",.01)
 ;;57451501103
 ;;9002226.02101,"889,57451501103 ",.02)
 ;;57451501103
 ;;9002226.02101,"889,57451501801 ",.01)
 ;;57451501801
 ;;9002226.02101,"889,57451501801 ",.02)
 ;;57451501801
 ;;9002226.02101,"889,57451501802 ",.01)
 ;;57451501802
 ;;9002226.02101,"889,57451501802 ",.02)
 ;;57451501802
 ;;9002226.02101,"889,57451501803 ",.01)
 ;;57451501803
 ;;9002226.02101,"889,57451501803 ",.02)
 ;;57451501803
 ;;9002226.02101,"889,57451501901 ",.01)
 ;;57451501901
 ;;9002226.02101,"889,57451501901 ",.02)
 ;;57451501901
 ;;9002226.02101,"889,57451501902 ",.01)
 ;;57451501902
 ;;9002226.02101,"889,57451501902 ",.02)
 ;;57451501902
 ;;9002226.02101,"889,57451501903 ",.01)
 ;;57451501903
 ;;9002226.02101,"889,57451501903 ",.02)
 ;;57451501903
 ;;9002226.02101,"889,57451502001 ",.01)
 ;;57451502001
 ;;9002226.02101,"889,57451502001 ",.02)
 ;;57451502001
 ;;9002226.02101,"889,57451502002 ",.01)
 ;;57451502002
 ;;9002226.02101,"889,57451502002 ",.02)
 ;;57451502002
 ;;9002226.02101,"889,57451502003 ",.01)
 ;;57451502003
 ;;9002226.02101,"889,57451502003 ",.02)
 ;;57451502003