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