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

BGPM5AZD.m

Go to the documentation of this file.
BGPM5AZD ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 02, 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,"1050,00378603493 ",.01)
 ;;00378603493
 ;;9002226.02101,"1050,00378603493 ",.02)
 ;;00378603493
 ;;9002226.02101,"1050,00480078201 ",.01)
 ;;00480078201
 ;;9002226.02101,"1050,00480078201 ",.02)
 ;;00480078201
 ;;9002226.02101,"1050,00480078205 ",.01)
 ;;00480078205
 ;;9002226.02101,"1050,00480078205 ",.02)
 ;;00480078205
 ;;9002226.02101,"1050,00480078210 ",.01)
 ;;00480078210
 ;;9002226.02101,"1050,00480078210 ",.02)
 ;;00480078210
 ;;9002226.02101,"1050,00480078256 ",.01)
 ;;00480078256
 ;;9002226.02101,"1050,00480078256 ",.02)
 ;;00480078256
 ;;9002226.02101,"1050,00480078405 ",.01)
 ;;00480078405
 ;;9002226.02101,"1050,00480078405 ",.02)
 ;;00480078405
 ;;9002226.02101,"1050,00480078406 ",.01)
 ;;00480078406
 ;;9002226.02101,"1050,00480078406 ",.02)
 ;;00480078406
 ;;9002226.02101,"1050,00480078410 ",.01)
 ;;00480078410
 ;;9002226.02101,"1050,00480078410 ",.02)
 ;;00480078410
 ;;9002226.02101,"1050,00480078486 ",.01)
 ;;00480078486
 ;;9002226.02101,"1050,00480078486 ",.02)
 ;;00480078486
 ;;9002226.02101,"1050,00555044603 ",.01)
 ;;00555044603
 ;;9002226.02101,"1050,00555044603 ",.02)
 ;;00555044603
 ;;9002226.02101,"1050,00555044605 ",.01)
 ;;00555044605
 ;;9002226.02101,"1050,00555044605 ",.02)
 ;;00555044605
 ;;9002226.02101,"1050,00555044609 ",.01)
 ;;00555044609
 ;;9002226.02101,"1050,00555044609 ",.02)
 ;;00555044609
 ;;9002226.02101,"1050,00555044612 ",.01)
 ;;00555044612
 ;;9002226.02101,"1050,00555044612 ",.02)
 ;;00555044612
 ;;9002226.02101,"1050,00555044663 ",.01)
 ;;00555044663
 ;;9002226.02101,"1050,00555044663 ",.02)
 ;;00555044663
 ;;9002226.02101,"1050,00555090401 ",.01)
 ;;00555090401
 ;;9002226.02101,"1050,00555090401 ",.02)
 ;;00555090401
 ;;9002226.02101,"1050,00555090405 ",.01)
 ;;00555090405
 ;;9002226.02101,"1050,00555090405 ",.02)
 ;;00555090405
 ;;9002226.02101,"1050,00555090414 ",.01)
 ;;00555090414
 ;;9002226.02101,"1050,00555090414 ",.02)
 ;;00555090414
 ;;9002226.02101,"1050,00555090464 ",.01)
 ;;00555090464
 ;;9002226.02101,"1050,00555090464 ",.02)
 ;;00555090464
 ;;9002226.02101,"1050,00591223218 ",.01)
 ;;00591223218
 ;;9002226.02101,"1050,00591223218 ",.02)
 ;;00591223218
 ;;9002226.02101,"1050,00591223260 ",.01)
 ;;00591223260
 ;;9002226.02101,"1050,00591223260 ",.02)
 ;;00591223260
 ;;9002226.02101,"1050,00591223319 ",.01)
 ;;00591223319
 ;;9002226.02101,"1050,00591223319 ",.02)
 ;;00591223319
 ;;9002226.02101,"1050,00591223330 ",.01)
 ;;00591223330
 ;;9002226.02101,"1050,00591223330 ",.02)
 ;;00591223330
 ;;9002226.02101,"1050,00591247218 ",.01)
 ;;00591247218
 ;;9002226.02101,"1050,00591247218 ",.02)
 ;;00591247218
 ;;9002226.02101,"1050,00591247260 ",.01)
 ;;00591247260
 ;;9002226.02101,"1050,00591247260 ",.02)
 ;;00591247260
 ;;9002226.02101,"1050,00591247319 ",.01)
 ;;00591247319
 ;;9002226.02101,"1050,00591247319 ",.02)
 ;;00591247319
 ;;9002226.02101,"1050,00591247330 ",.01)
 ;;00591247330
 ;;9002226.02101,"1050,00591247330 ",.02)
 ;;00591247330
 ;;9002226.02101,"1050,00603418016 ",.01)
 ;;00603418016
 ;;9002226.02101,"1050,00603418016 ",.02)
 ;;00603418016
 ;;9002226.02101,"1050,00781535631 ",.01)
 ;;00781535631
 ;;9002226.02101,"1050,00781535631 ",.02)
 ;;00781535631
 ;;9002226.02101,"1050,00904619546 ",.01)
 ;;00904619546
 ;;9002226.02101,"1050,00904619546 ",.02)
 ;;00904619546
 ;;9002226.02101,"1050,00904622961 ",.01)
 ;;00904622961
 ;;9002226.02101,"1050,00904622961 ",.02)
 ;;00904622961
 ;;9002226.02101,"1050,16571042103 ",.01)
 ;;16571042103
 ;;9002226.02101,"1050,16571042103 ",.02)
 ;;16571042103
 ;;9002226.02101,"1050,16729003410 ",.01)
 ;;16729003410
 ;;9002226.02101,"1050,16729003410 ",.02)
 ;;16729003410
 ;;9002226.02101,"1050,16729003510 ",.01)
 ;;16729003510
 ;;9002226.02101,"1050,16729003510 ",.02)
 ;;16729003510
 ;;9002226.02101,"1050,16729003515 ",.01)
 ;;16729003515
 ;;9002226.02101,"1050,16729003515 ",.02)
 ;;16729003515
 ;;9002226.02101,"1050,16729003516 ",.01)
 ;;16729003516
 ;;9002226.02101,"1050,16729003516 ",.02)
 ;;16729003516
 ;;9002226.02101,"1050,21695099030 ",.01)
 ;;21695099030
 ;;9002226.02101,"1050,21695099030 ",.02)
 ;;21695099030
 ;;9002226.02101,"1050,24724003001 ",.01)
 ;;24724003001
 ;;9002226.02101,"1050,24724003001 ",.02)
 ;;24724003001
 ;;9002226.02101,"1050,24724003003 ",.01)
 ;;24724003003
 ;;9002226.02101,"1050,24724003003 ",.02)
 ;;24724003003
 ;;9002226.02101,"1050,26053000601 ",.01)
 ;;26053000601
 ;;9002226.02101,"1050,26053000601 ",.02)
 ;;26053000601
 ;;9002226.02101,"1050,26053004401 ",.01)
 ;;26053004401
 ;;9002226.02101,"1050,26053004401 ",.02)
 ;;26053004401
 ;;9002226.02101,"1050,42043018003 ",.01)
 ;;42043018003
 ;;9002226.02101,"1050,42043018003 ",.02)
 ;;42043018003
 ;;9002226.02101,"1050,42291010530 ",.01)
 ;;42291010530
 ;;9002226.02101,"1050,42291010530 ",.02)
 ;;42291010530
 ;;9002226.02101,"1050,42291037390 ",.01)
 ;;42291037390
 ;;9002226.02101,"1050,42291037390 ",.02)
 ;;42291037390
 ;;9002226.02101,"1050,48581622101 ",.01)
 ;;48581622101
 ;;9002226.02101,"1050,48581622101 ",.02)
 ;;48581622101
 ;;9002226.02101,"1050,48581622102 ",.01)
 ;;48581622102
 ;;9002226.02101,"1050,48581622102 ",.02)
 ;;48581622102
 ;;9002226.02101,"1050,48581622103 ",.01)
 ;;48581622103
 ;;9002226.02101,"1050,48581622103 ",.02)
 ;;48581622103
 ;;9002226.02101,"1050,48581622104 ",.01)
 ;;48581622104
 ;;9002226.02101,"1050,48581622104 ",.02)
 ;;48581622104
 ;;9002226.02101,"1050,48581622201 ",.01)
 ;;48581622201
 ;;9002226.02101,"1050,48581622201 ",.02)
 ;;48581622201
 ;;9002226.02101,"1050,48581622202 ",.01)
 ;;48581622202
 ;;9002226.02101,"1050,48581622202 ",.02)
 ;;48581622202
 ;;9002226.02101,"1050,48581622203 ",.01)
 ;;48581622203
 ;;9002226.02101,"1050,48581622203 ",.02)
 ;;48581622203
 ;;9002226.02101,"1050,51079032301 ",.01)
 ;;51079032301
 ;;9002226.02101,"1050,51079032301 ",.02)
 ;;51079032301
 ;;9002226.02101,"1050,51079032306 ",.01)
 ;;51079032306
 ;;9002226.02101,"1050,51079032306 ",.02)
 ;;51079032306
 ;;9002226.02101,"1050,51129262201 ",.01)
 ;;51129262201
 ;;9002226.02101,"1050,51129262201 ",.02)
 ;;51129262201
 ;;9002226.02101,"1050,51129421801 ",.01)
 ;;51129421801
 ;;9002226.02101,"1050,51129421801 ",.02)
 ;;51129421801
 ;;9002226.02101,"1050,51129421802 ",.01)
 ;;51129421802
 ;;9002226.02101,"1050,51129421802 ",.02)
 ;;51129421802
 ;;9002226.02101,"1050,51129466201 ",.01)
 ;;51129466201
 ;;9002226.02101,"1050,51129466201 ",.02)
 ;;51129466201
 ;;9002226.02101,"1050,51129466202 ",.01)
 ;;51129466202
 ;;9002226.02101,"1050,51129466202 ",.02)
 ;;51129466202
 ;;9002226.02101,"1050,51991062010 ",.01)
 ;;51991062010
 ;;9002226.02101,"1050,51991062010 ",.02)
 ;;51991062010
 ;;9002226.02101,"1050,51991062033 ",.01)
 ;;51991062033
 ;;9002226.02101,"1050,51991062033 ",.02)
 ;;51991062033
 ;;9002226.02101,"1050,51991075910 ",.01)
 ;;51991075910
 ;;9002226.02101,"1050,51991075910 ",.02)
 ;;51991075910
 ;;9002226.02101,"1050,51991075933 ",.01)
 ;;51991075933
 ;;9002226.02101,"1050,51991075933 ",.02)
 ;;51991075933
 ;;9002226.02101,"1050,53002103203 ",.01)
 ;;53002103203
 ;;9002226.02101,"1050,53002103203 ",.02)
 ;;53002103203
 ;;9002226.02101,"1050,53002103206 ",.01)
 ;;53002103206
 ;;9002226.02101,"1050,53002103206 ",.02)
 ;;53002103206
 ;;9002226.02101,"1050,54569376500 ",.01)
 ;;54569376500
 ;;9002226.02101,"1050,54569376500 ",.02)
 ;;54569376500
 ;;9002226.02101,"1050,54569376501 ",.01)
 ;;54569376501
 ;;9002226.02101,"1050,54569376501 ",.02)
 ;;54569376501
 ;;9002226.02101,"1050,54569619800 ",.01)
 ;;54569619800
 ;;9002226.02101,"1050,54569619800 ",.02)
 ;;54569619800
 ;;9002226.02101,"1050,54569860200 ",.01)
 ;;54569860200
 ;;9002226.02101,"1050,54569860200 ",.02)
 ;;54569860200
 ;;9002226.02101,"1050,54868300401 ",.01)
 ;;54868300401
 ;;9002226.02101,"1050,54868300401 ",.02)
 ;;54868300401
 ;;9002226.02101,"1050,54868300402 ",.01)
 ;;54868300402
 ;;9002226.02101,"1050,54868300402 ",.02)
 ;;54868300402
 ;;9002226.02101,"1050,54868300403 ",.01)
 ;;54868300403
 ;;9002226.02101,"1050,54868300403 ",.02)
 ;;54868300403
 ;;9002226.02101,"1050,54868300404 ",.01)
 ;;54868300404
 ;;9002226.02101,"1050,54868300404 ",.02)
 ;;54868300404
 ;;9002226.02101,"1050,54868300405 ",.01)
 ;;54868300405
 ;;9002226.02101,"1050,54868300405 ",.02)
 ;;54868300405
 ;;9002226.02101,"1050,54868428700 ",.01)
 ;;54868428700
 ;;9002226.02101,"1050,54868428700 ",.02)
 ;;54868428700
 ;;9002226.02101,"1050,54868428701 ",.01)
 ;;54868428701
 ;;9002226.02101,"1050,54868428701 ",.02)
 ;;54868428701
 ;;9002226.02101,"1050,54868428702 ",.01)
 ;;54868428702
 ;;9002226.02101,"1050,54868428702 ",.02)
 ;;54868428702
 ;;9002226.02101,"1050,54868428703 ",.01)
 ;;54868428703
 ;;9002226.02101,"1050,54868428703 ",.02)
 ;;54868428703
 ;;9002226.02101,"1050,54868428704 ",.01)
 ;;54868428704
 ;;9002226.02101,"1050,54868428704 ",.02)
 ;;54868428704
 ;;9002226.02101,"1050,54868613000 ",.01)
 ;;54868613000
 ;;9002226.02101,"1050,54868613000 ",.02)
 ;;54868613000
 ;;9002226.02101,"1050,54868613001 ",.01)
 ;;54868613001
 ;;9002226.02101,"1050,54868613001 ",.02)
 ;;54868613001
 ;;9002226.02101,"1050,54868625200 ",.01)
 ;;54868625200
 ;;9002226.02101,"1050,54868625200 ",.02)
 ;;54868625200
 ;;9002226.02101,"1050,55045270300 ",.01)
 ;;55045270300
 ;;9002226.02101,"1050,55045270300 ",.02)
 ;;55045270300
 ;;9002226.02101,"1050,55045270309 ",.01)
 ;;55045270309
 ;;9002226.02101,"1050,55045270309 ",.02)
 ;;55045270309
 ;;9002226.02101,"1050,55111064630 ",.01)
 ;;55111064630
 ;;9002226.02101,"1050,55111064630 ",.02)
 ;;55111064630
 ;;9002226.02101,"1050,55111064678 ",.01)
 ;;55111064678
 ;;9002226.02101,"1050,55111064678 ",.02)
 ;;55111064678
 ;;9002226.02101,"1050,55111064679 ",.01)
 ;;55111064679
 ;;9002226.02101,"1050,55111064679 ",.02)
 ;;55111064679
 ;;9002226.02101,"1050,55111064730 ",.01)
 ;;55111064730
 ;;9002226.02101,"1050,55111064730 ",.02)
 ;;55111064730
 ;;9002226.02101,"1050,55160014901 ",.01)
 ;;55160014901
 ;;9002226.02101,"1050,55160014901 ",.02)
 ;;55160014901
 ;;9002226.02101,"1050,55160014905 ",.01)
 ;;55160014905
 ;;9002226.02101,"1050,55160014905 ",.02)
 ;;55160014905
 ;;9002226.02101,"1050,55160015001 ",.01)
 ;;55160015001
 ;;9002226.02101,"1050,55160015001 ",.02)
 ;;55160015001
 ;;9002226.02101,"1050,55160015005 ",.01)
 ;;55160015005
 ;;9002226.02101,"1050,55160015005 ",.02)
 ;;55160015005
 ;;9002226.02101,"1050,55887087201 ",.01)
 ;;55887087201
 ;;9002226.02101,"1050,55887087201 ",.02)
 ;;55887087201
 ;;9002226.02101,"1050,55887087290 ",.01)
 ;;55887087290
 ;;9002226.02101,"1050,55887087290 ",.02)
 ;;55887087290
 ;;9002226.02101,"1050,59564014401 ",.01)
 ;;59564014401
 ;;9002226.02101,"1050,59564014401 ",.02)
 ;;59564014401
 ;;9002226.02101,"1050,59564014407 ",.01)
 ;;59564014407
 ;;9002226.02101,"1050,59564014407 ",.02)
 ;;59564014407
 ;;9002226.02101,"1050,59762285801 ",.01)
 ;;59762285801
 ;;9002226.02101,"1050,59762285801 ",.02)
 ;;59762285801
 ;;9002226.02101,"1050,60258086603 ",.01)
 ;;60258086603
 ;;9002226.02101,"1050,60258086603 ",.02)
 ;;60258086603
 ;;9002226.02101,"1050,62037096418 ",.01)
 ;;62037096418
 ;;9002226.02101,"1050,62037096418 ",.02)
 ;;62037096418
 ;;9002226.02101,"1050,62037096425 ",.01)
 ;;62037096425
 ;;9002226.02101,"1050,62037096425 ",.02)
 ;;62037096425
 ;;9002226.02101,"1050,62037096460 ",.01)
 ;;62037096460
 ;;9002226.02101,"1050,62037096460 ",.02)
 ;;62037096460
 ;;9002226.02101,"1050,62037096512 ",.01)
 ;;62037096512
 ;;9002226.02101,"1050,62037096512 ",.02)
 ;;62037096512
 ;;9002226.02101,"1050,62037096530 ",.01)
 ;;62037096530