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