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

BGPM5AMD.m

Go to the documentation of this file.
  1. BGPM5AMD ;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,"900,60491040634 ",.01)
  1. ;;60491040634
  1. ;;9002226.02101,"900,60491040634 ",.02)
  1. ;;60491040634
  1. ;;9002226.02101,"900,60491040660 ",.01)
  1. ;;60491040660
  1. ;;9002226.02101,"900,60491040660 ",.02)
  1. ;;60491040660
  1. ;;9002226.02101,"900,60491072314 ",.01)
  1. ;;60491072314
  1. ;;9002226.02101,"900,60491072314 ",.02)
  1. ;;60491072314
  1. ;;9002226.02101,"900,60491072330 ",.01)
  1. ;;60491072330
  1. ;;9002226.02101,"900,60491072330 ",.02)
  1. ;;60491072330
  1. ;;9002226.02101,"900,60491072334 ",.01)
  1. ;;60491072334
  1. ;;9002226.02101,"900,60491072334 ",.02)
  1. ;;60491072334
  1. ;;9002226.02101,"900,60491072430 ",.01)
  1. ;;60491072430
  1. ;;9002226.02101,"900,60491072430 ",.02)
  1. ;;60491072430
  1. ;;9002226.02101,"900,60491072434 ",.01)
  1. ;;60491072434
  1. ;;9002226.02101,"900,60491072434 ",.02)
  1. ;;60491072434
  1. ;;9002226.02101,"900,60491072530 ",.01)
  1. ;;60491072530
  1. ;;9002226.02101,"900,60491072530 ",.02)
  1. ;;60491072530
  1. ;;9002226.02101,"900,60491072534 ",.01)
  1. ;;60491072534
  1. ;;9002226.02101,"900,60491072534 ",.02)
  1. ;;60491072534
  1. ;;9002226.02101,"900,60491072630 ",.01)
  1. ;;60491072630
  1. ;;9002226.02101,"900,60491072630 ",.02)
  1. ;;60491072630
  1. ;;9002226.02101,"900,60491072634 ",.01)
  1. ;;60491072634
  1. ;;9002226.02101,"900,60491072634 ",.02)
  1. ;;60491072634
  1. ;;9002226.02101,"900,60491072660 ",.01)
  1. ;;60491072660
  1. ;;9002226.02101,"900,60491072660 ",.02)
  1. ;;60491072660
  1. ;;9002226.02101,"900,60491080330 ",.01)
  1. ;;60491080330
  1. ;;9002226.02101,"900,60491080330 ",.02)
  1. ;;60491080330
  1. ;;9002226.02101,"900,60491080334 ",.01)
  1. ;;60491080334
  1. ;;9002226.02101,"900,60491080334 ",.02)
  1. ;;60491080334
  1. ;;9002226.02101,"900,60491080430 ",.01)
  1. ;;60491080430
  1. ;;9002226.02101,"900,60491080430 ",.02)
  1. ;;60491080430
  1. ;;9002226.02101,"900,60491080434 ",.01)
  1. ;;60491080434
  1. ;;9002226.02101,"900,60491080434 ",.02)
  1. ;;60491080434
  1. ;;9002226.02101,"900,60505003400 ",.01)
  1. ;;60505003400
  1. ;;9002226.02101,"900,60505003400 ",.02)
  1. ;;60505003400
  1. ;;9002226.02101,"900,60505003401 ",.01)
  1. ;;60505003401
  1. ;;9002226.02101,"900,60505003401 ",.02)
  1. ;;60505003401
  1. ;;9002226.02101,"900,60505003402 ",.01)
  1. ;;60505003402
  1. ;;9002226.02101,"900,60505003402 ",.02)
  1. ;;60505003402
  1. ;;9002226.02101,"900,60505003404 ",.01)
  1. ;;60505003404
  1. ;;9002226.02101,"900,60505003404 ",.02)
  1. ;;60505003404
  1. ;;9002226.02101,"900,60505003406 ",.01)
  1. ;;60505003406
  1. ;;9002226.02101,"900,60505003406 ",.02)
  1. ;;60505003406
  1. ;;9002226.02101,"900,60505003408 ",.01)
  1. ;;60505003408
  1. ;;9002226.02101,"900,60505003408 ",.02)
  1. ;;60505003408
  1. ;;9002226.02101,"900,60505017700 ",.01)
  1. ;;60505017700
  1. ;;9002226.02101,"900,60505017700 ",.02)
  1. ;;60505017700
  1. ;;9002226.02101,"900,60505017701 ",.01)
  1. ;;60505017701
  1. ;;9002226.02101,"900,60505017701 ",.02)
  1. ;;60505017701
  1. ;;9002226.02101,"900,60505017703 ",.01)
  1. ;;60505017703
  1. ;;9002226.02101,"900,60505017703 ",.02)
  1. ;;60505017703
  1. ;;9002226.02101,"900,60505017709 ",.01)
  1. ;;60505017709
  1. ;;9002226.02101,"900,60505017709 ",.02)
  1. ;;60505017709
  1. ;;9002226.02101,"900,60505017800 ",.01)
  1. ;;60505017800
  1. ;;9002226.02101,"900,60505017800 ",.02)
  1. ;;60505017800
  1. ;;9002226.02101,"900,60505017801 ",.01)
  1. ;;60505017801
  1. ;;9002226.02101,"900,60505017801 ",.02)
  1. ;;60505017801
  1. ;;9002226.02101,"900,60505017803 ",.01)
  1. ;;60505017803
  1. ;;9002226.02101,"900,60505017803 ",.02)
  1. ;;60505017803
  1. ;;9002226.02101,"900,60505017809 ",.01)
  1. ;;60505017809
  1. ;;9002226.02101,"900,60505017809 ",.02)
  1. ;;60505017809
  1. ;;9002226.02101,"900,60505017900 ",.01)
  1. ;;60505017900
  1. ;;9002226.02101,"900,60505017900 ",.02)
  1. ;;60505017900
  1. ;;9002226.02101,"900,60505017901 ",.01)
  1. ;;60505017901
  1. ;;9002226.02101,"900,60505017901 ",.02)
  1. ;;60505017901
  1. ;;9002226.02101,"900,60505017903 ",.01)
  1. ;;60505017903
  1. ;;9002226.02101,"900,60505017903 ",.02)
  1. ;;60505017903
  1. ;;9002226.02101,"900,60505017909 ",.01)
  1. ;;60505017909
  1. ;;9002226.02101,"900,60505017909 ",.02)
  1. ;;60505017909
  1. ;;9002226.02101,"900,60598000790 ",.01)
  1. ;;60598000790
  1. ;;9002226.02101,"900,60598000790 ",.02)
  1. ;;60598000790
  1. ;;9002226.02101,"900,60814056701 ",.01)
  1. ;;60814056701
  1. ;;9002226.02101,"900,60814056701 ",.02)
  1. ;;60814056701
  1. ;;9002226.02101,"900,60814056801 ",.01)
  1. ;;60814056801
  1. ;;9002226.02101,"900,60814056801 ",.02)
  1. ;;60814056801
  1. ;;9002226.02101,"900,60935001000 ",.01)
  1. ;;60935001000
  1. ;;9002226.02101,"900,60935001000 ",.02)
  1. ;;60935001000
  1. ;;9002226.02101,"900,60935001001 ",.01)
  1. ;;60935001001
  1. ;;9002226.02101,"900,60935001001 ",.02)
  1. ;;60935001001
  1. ;;9002226.02101,"900,61258031101 ",.01)
  1. ;;61258031101
  1. ;;9002226.02101,"900,61258031101 ",.02)
  1. ;;61258031101
  1. ;;9002226.02101,"900,61258031201 ",.01)
  1. ;;61258031201
  1. ;;9002226.02101,"900,61258031201 ",.02)
  1. ;;61258031201
  1. ;;9002226.02101,"900,61392009325 ",.01)
  1. ;;61392009325
  1. ;;9002226.02101,"900,61392009325 ",.02)
  1. ;;61392009325
  1. ;;9002226.02101,"900,61392009330 ",.01)
  1. ;;61392009330
  1. ;;9002226.02101,"900,61392009330 ",.02)
  1. ;;61392009330
  1. ;;9002226.02101,"900,61392009331 ",.01)
  1. ;;61392009331
  1. ;;9002226.02101,"900,61392009331 ",.02)
  1. ;;61392009331
  1. ;;9002226.02101,"900,61392009339 ",.01)
  1. ;;61392009339
  1. ;;9002226.02101,"900,61392009339 ",.02)
  1. ;;61392009339
  1. ;;9002226.02101,"900,61392009360 ",.01)
  1. ;;61392009360
  1. ;;9002226.02101,"900,61392009360 ",.02)
  1. ;;61392009360
  1. ;;9002226.02101,"900,61392009365 ",.01)
  1. ;;61392009365
  1. ;;9002226.02101,"900,61392009365 ",.02)
  1. ;;61392009365
  1. ;;9002226.02101,"900,61392009390 ",.01)
  1. ;;61392009390
  1. ;;9002226.02101,"900,61392009390 ",.02)
  1. ;;61392009390
  1. ;;9002226.02101,"900,61392011630 ",.01)
  1. ;;61392011630
  1. ;;9002226.02101,"900,61392011630 ",.02)
  1. ;;61392011630
  1. ;;9002226.02101,"900,61392011631 ",.01)
  1. ;;61392011631
  1. ;;9002226.02101,"900,61392011631 ",.02)
  1. ;;61392011631
  1. ;;9002226.02101,"900,61392011632 ",.01)
  1. ;;61392011632
  1. ;;9002226.02101,"900,61392011632 ",.02)
  1. ;;61392011632
  1. ;;9002226.02101,"900,61392011639 ",.01)
  1. ;;61392011639
  1. ;;9002226.02101,"900,61392011639 ",.02)
  1. ;;61392011639
  1. ;;9002226.02101,"900,61392011645 ",.01)
  1. ;;61392011645
  1. ;;9002226.02101,"900,61392011645 ",.02)
  1. ;;61392011645
  1. ;;9002226.02101,"900,61392011651 ",.01)
  1. ;;61392011651
  1. ;;9002226.02101,"900,61392011651 ",.02)
  1. ;;61392011651
  1. ;;9002226.02101,"900,61392011654 ",.01)
  1. ;;61392011654
  1. ;;9002226.02101,"900,61392011654 ",.02)
  1. ;;61392011654
  1. ;;9002226.02101,"900,61392011660 ",.01)
  1. ;;61392011660
  1. ;;9002226.02101,"900,61392011660 ",.02)
  1. ;;61392011660
  1. ;;9002226.02101,"900,61392011690 ",.01)
  1. ;;61392011690
  1. ;;9002226.02101,"900,61392011690 ",.02)
  1. ;;61392011690
  1. ;;9002226.02101,"900,61392011691 ",.01)
  1. ;;61392011691
  1. ;;9002226.02101,"900,61392011691 ",.02)
  1. ;;61392011691
  1. ;;9002226.02101,"900,61392073731 ",.01)
  1. ;;61392073731
  1. ;;9002226.02101,"900,61392073731 ",.02)
  1. ;;61392073731
  1. ;;9002226.02101,"900,61392073739 ",.01)
  1. ;;61392073739
  1. ;;9002226.02101,"900,61392073739 ",.02)
  1. ;;61392073739
  1. ;;9002226.02101,"900,61392078625 ",.01)
  1. ;;61392078625
  1. ;;9002226.02101,"900,61392078625 ",.02)
  1. ;;61392078625
  1. ;;9002226.02101,"900,61392078630 ",.01)
  1. ;;61392078630
  1. ;;9002226.02101,"900,61392078630 ",.02)
  1. ;;61392078630
  1. ;;9002226.02101,"900,61392079725 ",.01)
  1. ;;61392079725
  1. ;;9002226.02101,"900,61392079725 ",.02)
  1. ;;61392079725
  1. ;;9002226.02101,"900,61392079730 ",.01)
  1. ;;61392079730
  1. ;;9002226.02101,"900,61392079730 ",.02)
  1. ;;61392079730
  1. ;;9002226.02101,"900,61392079731 ",.01)
  1. ;;61392079731
  1. ;;9002226.02101,"900,61392079731 ",.02)
  1. ;;61392079731
  1. ;;9002226.02101,"900,61392079739 ",.01)
  1. ;;61392079739
  1. ;;9002226.02101,"900,61392079739 ",.02)
  1. ;;61392079739
  1. ;;9002226.02101,"900,61442014101 ",.01)
  1. ;;61442014101
  1. ;;9002226.02101,"900,61442014101 ",.02)
  1. ;;61442014101
  1. ;;9002226.02101,"900,61442014105 ",.01)
  1. ;;61442014105
  1. ;;9002226.02101,"900,61442014105 ",.02)
  1. ;;61442014105
  1. ;;9002226.02101,"900,61442014110 ",.01)
  1. ;;61442014110
  1. ;;9002226.02101,"900,61442014110 ",.02)
  1. ;;61442014110
  1. ;;9002226.02101,"900,61442014160 ",.01)
  1. ;;61442014160
  1. ;;9002226.02101,"900,61442014160 ",.02)
  1. ;;61442014160
  1. ;;9002226.02101,"900,61442014201 ",.01)
  1. ;;61442014201
  1. ;;9002226.02101,"900,61442014201 ",.02)
  1. ;;61442014201
  1. ;;9002226.02101,"900,61442014205 ",.01)
  1. ;;61442014205
  1. ;;9002226.02101,"900,61442014205 ",.02)
  1. ;;61442014205
  1. ;;9002226.02101,"900,61442014210 ",.01)
  1. ;;61442014210
  1. ;;9002226.02101,"900,61442014210 ",.02)
  1. ;;61442014210
  1. ;;9002226.02101,"900,61442014260 ",.01)
  1. ;;61442014260
  1. ;;9002226.02101,"900,61442014260 ",.02)
  1. ;;61442014260
  1. ;;9002226.02101,"900,61442014301 ",.01)
  1. ;;61442014301
  1. ;;9002226.02101,"900,61442014301 ",.02)
  1. ;;61442014301
  1. ;;9002226.02101,"900,61442014305 ",.01)
  1. ;;61442014305
  1. ;;9002226.02101,"900,61442014305 ",.02)
  1. ;;61442014305
  1. ;;9002226.02101,"900,61442014310 ",.01)
  1. ;;61442014310
  1. ;;9002226.02101,"900,61442014310 ",.02)
  1. ;;61442014310
  1. ;;9002226.02101,"900,61442014360 ",.01)
  1. ;;61442014360
  1. ;;9002226.02101,"900,61442014360 ",.02)
  1. ;;61442014360
  1. ;;9002226.02101,"900,61853000600 ",.01)
  1. ;;61853000600
  1. ;;9002226.02101,"900,61853000600 ",.02)
  1. ;;61853000600
  1. ;;9002226.02101,"900,61853000700 ",.01)
  1. ;;61853000700
  1. ;;9002226.02101,"900,61853000700 ",.02)
  1. ;;61853000700
  1. ;;9002226.02101,"900,61853000800 ",.01)
  1. ;;61853000800
  1. ;;9002226.02101,"900,61853000800 ",.02)
  1. ;;61853000800
  1. ;;9002226.02101,"900,61947015500 ",.01)
  1. ;;61947015500
  1. ;;9002226.02101,"900,61947015500 ",.02)
  1. ;;61947015500
  1. ;;9002226.02101,"900,61947015501 ",.01)
  1. ;;61947015501
  1. ;;9002226.02101,"900,61947015501 ",.02)
  1. ;;61947015501
  1. ;;9002226.02101,"900,61947015503 ",.01)
  1. ;;61947015503
  1. ;;9002226.02101,"900,61947015503 ",.02)
  1. ;;61947015503
  1. ;;9002226.02101,"900,61947015504 ",.01)
  1. ;;61947015504
  1. ;;9002226.02101,"900,61947015504 ",.02)
  1. ;;61947015504
  1. ;;9002226.02101,"900,61947015507 ",.01)
  1. ;;61947015507
  1. ;;9002226.02101,"900,61947015507 ",.02)
  1. ;;61947015507
  1. ;;9002226.02101,"900,61947015509 ",.01)
  1. ;;61947015509
  1. ;;9002226.02101,"900,61947015509 ",.02)
  1. ;;61947015509
  1. ;;9002226.02101,"900,61947015600 ",.01)
  1. ;;61947015600
  1. ;;9002226.02101,"900,61947015600 ",.02)
  1. ;;61947015600
  1. ;;9002226.02101,"900,61947015601 ",.01)
  1. ;;61947015601
  1. ;;9002226.02101,"900,61947015601 ",.02)
  1. ;;61947015601
  1. ;;9002226.02101,"900,61947015603 ",.01)
  1. ;;61947015603
  1. ;;9002226.02101,"900,61947015603 ",.02)
  1. ;;61947015603
  1. ;;9002226.02101,"900,61947015604 ",.01)
  1. ;;61947015604
  1. ;;9002226.02101,"900,61947015604 ",.02)
  1. ;;61947015604
  1. ;;9002226.02101,"900,61947015606 ",.01)
  1. ;;61947015606
  1. ;;9002226.02101,"900,61947015606 ",.02)
  1. ;;61947015606
  1. ;;9002226.02101,"900,61947015609 ",.01)
  1. ;;61947015609
  1. ;;9002226.02101,"900,61947015609 ",.02)
  1. ;;61947015609
  1. ;;9002226.02101,"900,61947015700 ",.01)
  1. ;;61947015700
  1. ;;9002226.02101,"900,61947015700 ",.02)
  1. ;;61947015700
  1. ;;9002226.02101,"900,61947015703 ",.01)
  1. ;;61947015703
  1. ;;9002226.02101,"900,61947015703 ",.02)
  1. ;;61947015703
  1. ;;9002226.02101,"900,61947015704 ",.01)
  1. ;;61947015704
  1. ;;9002226.02101,"900,61947015704 ",.02)
  1. ;;61947015704
  1. ;;9002226.02101,"900,61947015707 ",.01)
  1. ;;61947015707
  1. ;;9002226.02101,"900,61947015707 ",.02)
  1. ;;61947015707
  1. ;;9002226.02101,"900,61947015709 ",.01)
  1. ;;61947015709
  1. ;;9002226.02101,"900,61947015709 ",.02)
  1. ;;61947015709
  1. ;;9002226.02101,"900,61947015800 ",.01)
  1. ;;61947015800
  1. ;;9002226.02101,"900,61947015800 ",.02)
  1. ;;61947015800
  1. ;;9002226.02101,"900,61947015803 ",.01)
  1. ;;61947015803
  1. ;;9002226.02101,"900,61947015803 ",.02)
  1. ;;61947015803
  1. ;;9002226.02101,"900,61947015804 ",.01)
  1. ;;61947015804
  1. ;;9002226.02101,"900,61947015804 ",.02)
  1. ;;61947015804
  1. ;;9002226.02101,"900,61947015807 ",.01)
  1. ;;61947015807
  1. ;;9002226.02101,"900,61947015807 ",.02)
  1. ;;61947015807