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

BGPM5AGZ.m

Go to the documentation of this file.
  1. BGPM5AGZ ;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,"882,55887042660 ",.02)
  1. ;;55887042660
  1. ;;9002226.02101,"882,55887042690 ",.01)
  1. ;;55887042690
  1. ;;9002226.02101,"882,55887042690 ",.02)
  1. ;;55887042690
  1. ;;9002226.02101,"882,55887043030 ",.01)
  1. ;;55887043030
  1. ;;9002226.02101,"882,55887043030 ",.02)
  1. ;;55887043030
  1. ;;9002226.02101,"882,55887053201 ",.01)
  1. ;;55887053201
  1. ;;9002226.02101,"882,55887053201 ",.02)
  1. ;;55887053201
  1. ;;9002226.02101,"882,55887053230 ",.01)
  1. ;;55887053230
  1. ;;9002226.02101,"882,55887053230 ",.02)
  1. ;;55887053230
  1. ;;9002226.02101,"882,55887053260 ",.01)
  1. ;;55887053260
  1. ;;9002226.02101,"882,55887053260 ",.02)
  1. ;;55887053260
  1. ;;9002226.02101,"882,55887053290 ",.01)
  1. ;;55887053290
  1. ;;9002226.02101,"882,55887053290 ",.02)
  1. ;;55887053290
  1. ;;9002226.02101,"882,55887055830 ",.01)
  1. ;;55887055830
  1. ;;9002226.02101,"882,55887055830 ",.02)
  1. ;;55887055830
  1. ;;9002226.02101,"882,55887055860 ",.01)
  1. ;;55887055860
  1. ;;9002226.02101,"882,55887055860 ",.02)
  1. ;;55887055860
  1. ;;9002226.02101,"882,55887055890 ",.01)
  1. ;;55887055890
  1. ;;9002226.02101,"882,55887055890 ",.02)
  1. ;;55887055890
  1. ;;9002226.02101,"882,55887056930 ",.01)
  1. ;;55887056930
  1. ;;9002226.02101,"882,55887056930 ",.02)
  1. ;;55887056930
  1. ;;9002226.02101,"882,55887056960 ",.01)
  1. ;;55887056960
  1. ;;9002226.02101,"882,55887056960 ",.02)
  1. ;;55887056960
  1. ;;9002226.02101,"882,55887056990 ",.01)
  1. ;;55887056990
  1. ;;9002226.02101,"882,55887056990 ",.02)
  1. ;;55887056990
  1. ;;9002226.02101,"882,55887058101 ",.01)
  1. ;;55887058101
  1. ;;9002226.02101,"882,55887058101 ",.02)
  1. ;;55887058101
  1. ;;9002226.02101,"882,55887058130 ",.01)
  1. ;;55887058130
  1. ;;9002226.02101,"882,55887058130 ",.02)
  1. ;;55887058130
  1. ;;9002226.02101,"882,55887058160 ",.01)
  1. ;;55887058160
  1. ;;9002226.02101,"882,55887058160 ",.02)
  1. ;;55887058160
  1. ;;9002226.02101,"882,55887058190 ",.01)
  1. ;;55887058190
  1. ;;9002226.02101,"882,55887058190 ",.02)
  1. ;;55887058190
  1. ;;9002226.02101,"882,55887058201 ",.01)
  1. ;;55887058201
  1. ;;9002226.02101,"882,55887058201 ",.02)
  1. ;;55887058201
  1. ;;9002226.02101,"882,55887058230 ",.01)
  1. ;;55887058230
  1. ;;9002226.02101,"882,55887058230 ",.02)
  1. ;;55887058230
  1. ;;9002226.02101,"882,55887058260 ",.01)
  1. ;;55887058260
  1. ;;9002226.02101,"882,55887058260 ",.02)
  1. ;;55887058260
  1. ;;9002226.02101,"882,55887058290 ",.01)
  1. ;;55887058290
  1. ;;9002226.02101,"882,55887058290 ",.02)
  1. ;;55887058290
  1. ;;9002226.02101,"882,55887058930 ",.01)
  1. ;;55887058930
  1. ;;9002226.02101,"882,55887058930 ",.02)
  1. ;;55887058930
  1. ;;9002226.02101,"882,55887058990 ",.01)
  1. ;;55887058990
  1. ;;9002226.02101,"882,55887058990 ",.02)
  1. ;;55887058990
  1. ;;9002226.02101,"882,55887059030 ",.01)
  1. ;;55887059030
  1. ;;9002226.02101,"882,55887059030 ",.02)
  1. ;;55887059030
  1. ;;9002226.02101,"882,55887059060 ",.01)
  1. ;;55887059060
  1. ;;9002226.02101,"882,55887059060 ",.02)
  1. ;;55887059060
  1. ;;9002226.02101,"882,55887059090 ",.01)
  1. ;;55887059090
  1. ;;9002226.02101,"882,55887059090 ",.02)
  1. ;;55887059090
  1. ;;9002226.02101,"882,55887059101 ",.01)
  1. ;;55887059101
  1. ;;9002226.02101,"882,55887059101 ",.02)
  1. ;;55887059101
  1. ;;9002226.02101,"882,55887059110 ",.01)
  1. ;;55887059110
  1. ;;9002226.02101,"882,55887059110 ",.02)
  1. ;;55887059110
  1. ;;9002226.02101,"882,55887059120 ",.01)
  1. ;;55887059120
  1. ;;9002226.02101,"882,55887059120 ",.02)
  1. ;;55887059120
  1. ;;9002226.02101,"882,55887059130 ",.01)
  1. ;;55887059130
  1. ;;9002226.02101,"882,55887059130 ",.02)
  1. ;;55887059130
  1. ;;9002226.02101,"882,55887059160 ",.01)
  1. ;;55887059160
  1. ;;9002226.02101,"882,55887059160 ",.02)
  1. ;;55887059160
  1. ;;9002226.02101,"882,55887059190 ",.01)
  1. ;;55887059190
  1. ;;9002226.02101,"882,55887059190 ",.02)
  1. ;;55887059190
  1. ;;9002226.02101,"882,55887059430 ",.01)
  1. ;;55887059430
  1. ;;9002226.02101,"882,55887059430 ",.02)
  1. ;;55887059430
  1. ;;9002226.02101,"882,55887059490 ",.01)
  1. ;;55887059490
  1. ;;9002226.02101,"882,55887059490 ",.02)
  1. ;;55887059490
  1. ;;9002226.02101,"882,55887059530 ",.01)
  1. ;;55887059530
  1. ;;9002226.02101,"882,55887059530 ",.02)
  1. ;;55887059530
  1. ;;9002226.02101,"882,55887059590 ",.01)
  1. ;;55887059590
  1. ;;9002226.02101,"882,55887059590 ",.02)
  1. ;;55887059590
  1. ;;9002226.02101,"882,55887061201 ",.01)
  1. ;;55887061201
  1. ;;9002226.02101,"882,55887061201 ",.02)
  1. ;;55887061201
  1. ;;9002226.02101,"882,55887061230 ",.01)
  1. ;;55887061230
  1. ;;9002226.02101,"882,55887061230 ",.02)
  1. ;;55887061230
  1. ;;9002226.02101,"882,55887061260 ",.01)
  1. ;;55887061260
  1. ;;9002226.02101,"882,55887061260 ",.02)
  1. ;;55887061260
  1. ;;9002226.02101,"882,55887061290 ",.01)
  1. ;;55887061290
  1. ;;9002226.02101,"882,55887061290 ",.02)
  1. ;;55887061290
  1. ;;9002226.02101,"882,55887061292 ",.01)
  1. ;;55887061292
  1. ;;9002226.02101,"882,55887061292 ",.02)
  1. ;;55887061292
  1. ;;9002226.02101,"882,55887098430 ",.01)
  1. ;;55887098430
  1. ;;9002226.02101,"882,55887098430 ",.02)
  1. ;;55887098430
  1. ;;9002226.02101,"882,57297051201 ",.01)
  1. ;;57297051201
  1. ;;9002226.02101,"882,57297051201 ",.02)
  1. ;;57297051201
  1. ;;9002226.02101,"882,57297051202 ",.01)
  1. ;;57297051202
  1. ;;9002226.02101,"882,57297051202 ",.02)
  1. ;;57297051202
  1. ;;9002226.02101,"882,57297051203 ",.01)
  1. ;;57297051203
  1. ;;9002226.02101,"882,57297051203 ",.02)
  1. ;;57297051203
  1. ;;9002226.02101,"882,57297051301 ",.01)
  1. ;;57297051301
  1. ;;9002226.02101,"882,57297051301 ",.02)
  1. ;;57297051301
  1. ;;9002226.02101,"882,57297051302 ",.01)
  1. ;;57297051302
  1. ;;9002226.02101,"882,57297051302 ",.02)
  1. ;;57297051302
  1. ;;9002226.02101,"882,57297051303 ",.01)
  1. ;;57297051303
  1. ;;9002226.02101,"882,57297051303 ",.02)
  1. ;;57297051303
  1. ;;9002226.02101,"882,57297051304 ",.01)
  1. ;;57297051304
  1. ;;9002226.02101,"882,57297051304 ",.02)
  1. ;;57297051304
  1. ;;9002226.02101,"882,57297051401 ",.01)
  1. ;;57297051401
  1. ;;9002226.02101,"882,57297051401 ",.02)
  1. ;;57297051401
  1. ;;9002226.02101,"882,57297051402 ",.01)
  1. ;;57297051402
  1. ;;9002226.02101,"882,57297051402 ",.02)
  1. ;;57297051402
  1. ;;9002226.02101,"882,57297051403 ",.01)
  1. ;;57297051403
  1. ;;9002226.02101,"882,57297051403 ",.02)
  1. ;;57297051403
  1. ;;9002226.02101,"882,57297051404 ",.01)
  1. ;;57297051404
  1. ;;9002226.02101,"882,57297051404 ",.02)
  1. ;;57297051404
  1. ;;9002226.02101,"882,57297051501 ",.01)
  1. ;;57297051501
  1. ;;9002226.02101,"882,57297051501 ",.02)
  1. ;;57297051501
  1. ;;9002226.02101,"882,57297051502 ",.01)
  1. ;;57297051502
  1. ;;9002226.02101,"882,57297051502 ",.02)
  1. ;;57297051502
  1. ;;9002226.02101,"882,57297051503 ",.01)
  1. ;;57297051503
  1. ;;9002226.02101,"882,57297051503 ",.02)
  1. ;;57297051503
  1. ;;9002226.02101,"882,57297051504 ",.01)
  1. ;;57297051504
  1. ;;9002226.02101,"882,57297051504 ",.02)
  1. ;;57297051504
  1. ;;9002226.02101,"882,57297051601 ",.01)
  1. ;;57297051601
  1. ;;9002226.02101,"882,57297051601 ",.02)
  1. ;;57297051601
  1. ;;9002226.02101,"882,57297051602 ",.01)
  1. ;;57297051602
  1. ;;9002226.02101,"882,57297051602 ",.02)
  1. ;;57297051602
  1. ;;9002226.02101,"882,57297051603 ",.01)
  1. ;;57297051603
  1. ;;9002226.02101,"882,57297051603 ",.02)
  1. ;;57297051603
  1. ;;9002226.02101,"882,57297051701 ",.01)
  1. ;;57297051701
  1. ;;9002226.02101,"882,57297051701 ",.02)
  1. ;;57297051701
  1. ;;9002226.02101,"882,57297051702 ",.01)
  1. ;;57297051702
  1. ;;9002226.02101,"882,57297051702 ",.02)
  1. ;;57297051702
  1. ;;9002226.02101,"882,57297051703 ",.01)
  1. ;;57297051703
  1. ;;9002226.02101,"882,57297051703 ",.02)
  1. ;;57297051703
  1. ;;9002226.02101,"882,57297051704 ",.01)
  1. ;;57297051704
  1. ;;9002226.02101,"882,57297051704 ",.02)
  1. ;;57297051704
  1. ;;9002226.02101,"882,57297051801 ",.01)
  1. ;;57297051801
  1. ;;9002226.02101,"882,57297051801 ",.02)
  1. ;;57297051801
  1. ;;9002226.02101,"882,57297051802 ",.01)
  1. ;;57297051802
  1. ;;9002226.02101,"882,57297051802 ",.02)
  1. ;;57297051802
  1. ;;9002226.02101,"882,57297051901 ",.01)
  1. ;;57297051901
  1. ;;9002226.02101,"882,57297051901 ",.02)
  1. ;;57297051901
  1. ;;9002226.02101,"882,57297051902 ",.01)
  1. ;;57297051902
  1. ;;9002226.02101,"882,57297051902 ",.02)
  1. ;;57297051902
  1. ;;9002226.02101,"882,57297052001 ",.01)
  1. ;;57297052001
  1. ;;9002226.02101,"882,57297052001 ",.02)
  1. ;;57297052001
  1. ;;9002226.02101,"882,57297052002 ",.01)
  1. ;;57297052002
  1. ;;9002226.02101,"882,57297052002 ",.02)
  1. ;;57297052002
  1. ;;9002226.02101,"882,57297055609 ",.01)
  1. ;;57297055609
  1. ;;9002226.02101,"882,57297055609 ",.02)
  1. ;;57297055609
  1. ;;9002226.02101,"882,57297055703 ",.01)
  1. ;;57297055703
  1. ;;9002226.02101,"882,57297055703 ",.02)
  1. ;;57297055703
  1. ;;9002226.02101,"882,57297055709 ",.01)
  1. ;;57297055709
  1. ;;9002226.02101,"882,57297055709 ",.02)
  1. ;;57297055709
  1. ;;9002226.02101,"882,57297055803 ",.01)
  1. ;;57297055803
  1. ;;9002226.02101,"882,57297055803 ",.02)
  1. ;;57297055803
  1. ;;9002226.02101,"882,57297055809 ",.01)
  1. ;;57297055809
  1. ;;9002226.02101,"882,57297055809 ",.02)
  1. ;;57297055809
  1. ;;9002226.02101,"882,57297055903 ",.01)
  1. ;;57297055903
  1. ;;9002226.02101,"882,57297055903 ",.02)
  1. ;;57297055903
  1. ;;9002226.02101,"882,57297055909 ",.01)
  1. ;;57297055909
  1. ;;9002226.02101,"882,57297055909 ",.02)
  1. ;;57297055909
  1. ;;9002226.02101,"882,57297056601 ",.01)
  1. ;;57297056601
  1. ;;9002226.02101,"882,57297056601 ",.02)
  1. ;;57297056601
  1. ;;9002226.02101,"882,57297056701 ",.01)
  1. ;;57297056701
  1. ;;9002226.02101,"882,57297056701 ",.02)
  1. ;;57297056701
  1. ;;9002226.02101,"882,57297058801 ",.01)
  1. ;;57297058801
  1. ;;9002226.02101,"882,57297058801 ",.02)
  1. ;;57297058801
  1. ;;9002226.02101,"882,57297058802 ",.01)
  1. ;;57297058802
  1. ;;9002226.02101,"882,57297058802 ",.02)
  1. ;;57297058802
  1. ;;9002226.02101,"882,57297058901 ",.01)
  1. ;;57297058901
  1. ;;9002226.02101,"882,57297058901 ",.02)
  1. ;;57297058901
  1. ;;9002226.02101,"882,57297058902 ",.01)
  1. ;;57297058902
  1. ;;9002226.02101,"882,57297058902 ",.02)
  1. ;;57297058902
  1. ;;9002226.02101,"882,57297059001 ",.01)
  1. ;;57297059001
  1. ;;9002226.02101,"882,57297059001 ",.02)
  1. ;;57297059001
  1. ;;9002226.02101,"882,57297059002 ",.01)
  1. ;;57297059002
  1. ;;9002226.02101,"882,57297059002 ",.02)
  1. ;;57297059002
  1. ;;9002226.02101,"882,57297059101 ",.01)
  1. ;;57297059101
  1. ;;9002226.02101,"882,57297059101 ",.02)
  1. ;;57297059101
  1. ;;9002226.02101,"882,57297059102 ",.01)
  1. ;;57297059102
  1. ;;9002226.02101,"882,57297059102 ",.02)
  1. ;;57297059102
  1. ;;9002226.02101,"882,57783273703 ",.01)
  1. ;;57783273703
  1. ;;9002226.02101,"882,57783273703 ",.02)
  1. ;;57783273703
  1. ;;9002226.02101,"882,57866027401 ",.01)
  1. ;;57866027401
  1. ;;9002226.02101,"882,57866027401 ",.02)
  1. ;;57866027401
  1. ;;9002226.02101,"882,57866027502 ",.01)
  1. ;;57866027502
  1. ;;9002226.02101,"882,57866027502 ",.02)
  1. ;;57866027502
  1. ;;9002226.02101,"882,57866200001 ",.01)
  1. ;;57866200001
  1. ;;9002226.02101,"882,57866200001 ",.02)
  1. ;;57866200001
  1. ;;9002226.02101,"882,57866200002 ",.01)
  1. ;;57866200002
  1. ;;9002226.02101,"882,57866200002 ",.02)
  1. ;;57866200002
  1. ;;9002226.02101,"882,57866313801 ",.01)
  1. ;;57866313801
  1. ;;9002226.02101,"882,57866313801 ",.02)
  1. ;;57866313801
  1. ;;9002226.02101,"882,57866400001 ",.01)
  1. ;;57866400001
  1. ;;9002226.02101,"882,57866400001 ",.02)
  1. ;;57866400001
  1. ;;9002226.02101,"882,57866400002 ",.01)
  1. ;;57866400002
  1. ;;9002226.02101,"882,57866400002 ",.02)
  1. ;;57866400002
  1. ;;9002226.02101,"882,57866500001 ",.01)
  1. ;;57866500001
  1. ;;9002226.02101,"882,57866500001 ",.02)
  1. ;;57866500001
  1. ;;9002226.02101,"882,57866500002 ",.01)
  1. ;;57866500002
  1. ;;9002226.02101,"882,57866500002 ",.02)
  1. ;;57866500002
  1. ;;9002226.02101,"882,57866610301 ",.01)
  1. ;;57866610301
  1. ;;9002226.02101,"882,57866610301 ",.02)
  1. ;;57866610301
  1. ;;9002226.02101,"882,57866610302 ",.01)
  1. ;;57866610302
  1. ;;9002226.02101,"882,57866610302 ",.02)
  1. ;;57866610302
  1. ;;9002226.02101,"882,57866610303 ",.01)
  1. ;;57866610303
  1. ;;9002226.02101,"882,57866610303 ",.02)
  1. ;;57866610303
  1. ;;9002226.02101,"882,57866610304 ",.01)
  1. ;;57866610304
  1. ;;9002226.02101,"882,57866610304 ",.02)
  1. ;;57866610304
  1. ;;9002226.02101,"882,57866610601 ",.01)
  1. ;;57866610601
  1. ;;9002226.02101,"882,57866610601 ",.02)
  1. ;;57866610601
  1. ;;9002226.02101,"882,57866610602 ",.01)
  1. ;;57866610602