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