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

BGPM5ATA.m

Go to the documentation of this file.
BGPM5ATA ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 24, 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,"1011,49502069761 ",.02)
 ;;49502069761
 ;;9002226.02101,"1011,49502069785 ",.01)
 ;;49502069785
 ;;9002226.02101,"1011,49502069785 ",.02)
 ;;49502069785
 ;;9002226.02101,"1011,49856080201 ",.01)
 ;;49856080201
 ;;9002226.02101,"1011,49856080201 ",.02)
 ;;49856080201
 ;;9002226.02101,"1011,49999030028 ",.01)
 ;;49999030028
 ;;9002226.02101,"1011,49999030028 ",.02)
 ;;49999030028
 ;;9002226.02101,"1011,49999034425 ",.01)
 ;;49999034425
 ;;9002226.02101,"1011,49999034425 ",.02)
 ;;49999034425
 ;;9002226.02101,"1011,49999053330 ",.01)
 ;;49999053330
 ;;9002226.02101,"1011,49999053330 ",.02)
 ;;49999053330
 ;;9002226.02101,"1011,49999053390 ",.01)
 ;;49999053390
 ;;9002226.02101,"1011,49999053390 ",.02)
 ;;49999053390
 ;;9002226.02101,"1011,49999061401 ",.01)
 ;;49999061401
 ;;9002226.02101,"1011,49999061401 ",.02)
 ;;49999061401
 ;;9002226.02101,"1011,49999081960 ",.01)
 ;;49999081960
 ;;9002226.02101,"1011,49999081960 ",.02)
 ;;49999081960
 ;;9002226.02101,"1011,49999088430 ",.01)
 ;;49999088430
 ;;9002226.02101,"1011,49999088430 ",.02)
 ;;49999088430
 ;;9002226.02101,"1011,49999088490 ",.01)
 ;;49999088490
 ;;9002226.02101,"1011,49999088490 ",.02)
 ;;49999088490
 ;;9002226.02101,"1011,49999090767 ",.01)
 ;;49999090767
 ;;9002226.02101,"1011,49999090767 ",.02)
 ;;49999090767
 ;;9002226.02101,"1011,49999092215 ",.01)
 ;;49999092215
 ;;9002226.02101,"1011,49999092215 ",.02)
 ;;49999092215
 ;;9002226.02101,"1011,49999095230 ",.01)
 ;;49999095230
 ;;9002226.02101,"1011,49999095230 ",.02)
 ;;49999095230
 ;;9002226.02101,"1011,49999098460 ",.01)
 ;;49999098460
 ;;9002226.02101,"1011,49999098460 ",.02)
 ;;49999098460
 ;;9002226.02101,"1011,49999098560 ",.01)
 ;;49999098560
 ;;9002226.02101,"1011,49999098560 ",.02)
 ;;49999098560
 ;;9002226.02101,"1011,49999099007 ",.01)
 ;;49999099007
 ;;9002226.02101,"1011,49999099007 ",.02)
 ;;49999099007
 ;;9002226.02101,"1011,50111045901 ",.01)
 ;;50111045901
 ;;9002226.02101,"1011,50111045901 ",.02)
 ;;50111045901
 ;;9002226.02101,"1011,50111045902 ",.01)
 ;;50111045902
 ;;9002226.02101,"1011,50111045902 ",.02)
 ;;50111045902
 ;;9002226.02101,"1011,50111045903 ",.01)
 ;;50111045903
 ;;9002226.02101,"1011,50111045903 ",.02)
 ;;50111045903
 ;;9002226.02101,"1011,50383074120 ",.01)
 ;;50383074120
 ;;9002226.02101,"1011,50383074120 ",.02)
 ;;50383074120
 ;;9002226.02101,"1011,50383074225 ",.01)
 ;;50383074225
 ;;9002226.02101,"1011,50383074225 ",.02)
 ;;50383074225
 ;;9002226.02101,"1011,50474010001 ",.01)
 ;;50474010001
 ;;9002226.02101,"1011,50474010001 ",.02)
 ;;50474010001
 ;;9002226.02101,"1011,50474020001 ",.01)
 ;;50474020001
 ;;9002226.02101,"1011,50474020001 ",.02)
 ;;50474020001
 ;;9002226.02101,"1011,50474020050 ",.01)
 ;;50474020050
 ;;9002226.02101,"1011,50474020050 ",.02)
 ;;50474020050
 ;;9002226.02101,"1011,50474030001 ",.01)
 ;;50474030001
 ;;9002226.02101,"1011,50474030001 ",.02)
 ;;50474030001
 ;;9002226.02101,"1011,50474030050 ",.01)
 ;;50474030050
 ;;9002226.02101,"1011,50474030050 ",.02)
 ;;50474030050
 ;;9002226.02101,"1011,50474040001 ",.01)
 ;;50474040001
 ;;9002226.02101,"1011,50474040001 ",.02)
 ;;50474040001
 ;;9002226.02101,"1011,50550033526 ",.01)
 ;;50550033526
 ;;9002226.02101,"1011,50550033526 ",.02)
 ;;50550033526
 ;;9002226.02101,"1011,50550033550 ",.01)
 ;;50550033550
 ;;9002226.02101,"1011,50550033550 ",.02)
 ;;50550033550
 ;;9002226.02101,"1011,51129087501 ",.01)
 ;;51129087501
 ;;9002226.02101,"1011,51129087501 ",.02)
 ;;51129087501
 ;;9002226.02101,"1011,51129092801 ",.01)
 ;;51129092801
 ;;9002226.02101,"1011,51129092801 ",.02)
 ;;51129092801
 ;;9002226.02101,"1011,51129138001 ",.01)
 ;;51129138001
 ;;9002226.02101,"1011,51129138001 ",.02)
 ;;51129138001
 ;;9002226.02101,"1011,51129139801 ",.01)
 ;;51129139801
 ;;9002226.02101,"1011,51129139801 ",.02)
 ;;51129139801
 ;;9002226.02101,"1011,51129147801 ",.01)
 ;;51129147801
 ;;9002226.02101,"1011,51129147801 ",.02)
 ;;51129147801
 ;;9002226.02101,"1011,51129151901 ",.01)
 ;;51129151901
 ;;9002226.02101,"1011,51129151901 ",.02)
 ;;51129151901
 ;;9002226.02101,"1011,51129153701 ",.01)
 ;;51129153701
 ;;9002226.02101,"1011,51129153701 ",.02)
 ;;51129153701
 ;;9002226.02101,"1011,51129160401 ",.01)
 ;;51129160401
 ;;9002226.02101,"1011,51129160401 ",.02)
 ;;51129160401
 ;;9002226.02101,"1011,51129166801 ",.01)
 ;;51129166801
 ;;9002226.02101,"1011,51129166801 ",.02)
 ;;51129166801
 ;;9002226.02101,"1011,51129167001 ",.01)
 ;;51129167001
 ;;9002226.02101,"1011,51129167001 ",.02)
 ;;51129167001
 ;;9002226.02101,"1011,51129183101 ",.01)
 ;;51129183101
 ;;9002226.02101,"1011,51129183101 ",.02)
 ;;51129183101
 ;;9002226.02101,"1011,51129201601 ",.01)
 ;;51129201601
 ;;9002226.02101,"1011,51129201601 ",.02)
 ;;51129201601
 ;;9002226.02101,"1011,51129291401 ",.01)
 ;;51129291401
 ;;9002226.02101,"1011,51129291401 ",.02)
 ;;51129291401
 ;;9002226.02101,"1011,51129291402 ",.01)
 ;;51129291402
 ;;9002226.02101,"1011,51129291402 ",.02)
 ;;51129291402
 ;;9002226.02101,"1011,51129317401 ",.01)
 ;;51129317401
 ;;9002226.02101,"1011,51129317401 ",.02)
 ;;51129317401
 ;;9002226.02101,"1011,51129317402 ",.01)
 ;;51129317402
 ;;9002226.02101,"1011,51129317402 ",.02)
 ;;51129317402
 ;;9002226.02101,"1011,51129700401 ",.01)
 ;;51129700401
 ;;9002226.02101,"1011,51129700401 ",.02)
 ;;51129700401
 ;;9002226.02101,"1011,51655006724 ",.01)
 ;;51655006724
 ;;9002226.02101,"1011,51655006724 ",.02)
 ;;51655006724
 ;;9002226.02101,"1011,51655006783 ",.01)
 ;;51655006783
 ;;9002226.02101,"1011,51655006783 ",.02)
 ;;51655006783
 ;;9002226.02101,"1011,51655025624 ",.01)
 ;;51655025624
 ;;9002226.02101,"1011,51655025624 ",.02)
 ;;51655025624
 ;;9002226.02101,"1011,51655025625 ",.01)
 ;;51655025625
 ;;9002226.02101,"1011,51655025625 ",.02)
 ;;51655025625
 ;;9002226.02101,"1011,51655025676 ",.01)
 ;;51655025676
 ;;9002226.02101,"1011,51655025676 ",.02)
 ;;51655025676
 ;;9002226.02101,"1011,51655025683 ",.01)
 ;;51655025683
 ;;9002226.02101,"1011,51655025683 ",.02)
 ;;51655025683
 ;;9002226.02101,"1011,51655025724 ",.01)
 ;;51655025724
 ;;9002226.02101,"1011,51655025724 ",.02)
 ;;51655025724
 ;;9002226.02101,"1011,51655025725 ",.01)
 ;;51655025725
 ;;9002226.02101,"1011,51655025725 ",.02)
 ;;51655025725
 ;;9002226.02101,"1011,51655025750 ",.01)
 ;;51655025750
 ;;9002226.02101,"1011,51655025750 ",.02)
 ;;51655025750
 ;;9002226.02101,"1011,51655025776 ",.01)
 ;;51655025776
 ;;9002226.02101,"1011,51655025776 ",.02)
 ;;51655025776
 ;;9002226.02101,"1011,51655025783 ",.01)
 ;;51655025783
 ;;9002226.02101,"1011,51655025783 ",.02)
 ;;51655025783
 ;;9002226.02101,"1011,51789067302 ",.01)
 ;;51789067302
 ;;9002226.02101,"1011,51789067302 ",.02)
 ;;51789067302
 ;;9002226.02101,"1011,51789067303 ",.01)
 ;;51789067303
 ;;9002226.02101,"1011,51789067303 ",.02)
 ;;51789067303
 ;;9002226.02101,"1011,51789067399 ",.01)
 ;;51789067399
 ;;9002226.02101,"1011,51789067399 ",.02)
 ;;51789067399
 ;;9002226.02101,"1011,52959056901 ",.01)
 ;;52959056901
 ;;9002226.02101,"1011,52959056901 ",.02)
 ;;52959056901
 ;;9002226.02101,"1011,52959074120 ",.01)
 ;;52959074120
 ;;9002226.02101,"1011,52959074120 ",.02)
 ;;52959074120
 ;;9002226.02101,"1011,53002038210 ",.01)
 ;;53002038210
 ;;9002226.02101,"1011,53002038210 ",.02)
 ;;53002038210
 ;;9002226.02101,"1011,53002038220 ",.01)
 ;;53002038220
 ;;9002226.02101,"1011,53002038220 ",.02)
 ;;53002038220
 ;;9002226.02101,"1011,53002038230 ",.01)
 ;;53002038230
 ;;9002226.02101,"1011,53002038230 ",.02)
 ;;53002038230
 ;;9002226.02101,"1011,53002038240 ",.01)
 ;;53002038240
 ;;9002226.02101,"1011,53002038240 ",.02)
 ;;53002038240
 ;;9002226.02101,"1011,53002038260 ",.01)
 ;;53002038260
 ;;9002226.02101,"1011,53002038260 ",.02)
 ;;53002038260
 ;;9002226.02101,"1011,53002052373 ",.01)
 ;;53002052373
 ;;9002226.02101,"1011,53002052373 ",.02)
 ;;53002052373
 ;;9002226.02101,"1011,53002057500 ",.01)
 ;;53002057500
 ;;9002226.02101,"1011,53002057500 ",.02)
 ;;53002057500
 ;;9002226.02101,"1011,53002057520 ",.01)
 ;;53002057520
 ;;9002226.02101,"1011,53002057520 ",.02)
 ;;53002057520
 ;;9002226.02101,"1011,53002057530 ",.01)
 ;;53002057530
 ;;9002226.02101,"1011,53002057530 ",.02)
 ;;53002057530
 ;;9002226.02101,"1011,53002057550 ",.01)
 ;;53002057550
 ;;9002226.02101,"1011,53002057550 ",.02)
 ;;53002057550
 ;;9002226.02101,"1011,53002057560 ",.01)
 ;;53002057560
 ;;9002226.02101,"1011,53002057560 ",.02)
 ;;53002057560
 ;;9002226.02101,"1011,53002083601 ",.01)
 ;;53002083601
 ;;9002226.02101,"1011,53002083601 ",.02)
 ;;53002083601
 ;;9002226.02101,"1011,53002087199 ",.01)
 ;;53002087199
 ;;9002226.02101,"1011,53002087199 ",.02)
 ;;53002087199
 ;;9002226.02101,"1011,53002088099 ",.01)
 ;;53002088099
 ;;9002226.02101,"1011,53002088099 ",.02)
 ;;53002088099
 ;;9002226.02101,"1011,53002104200 ",.01)
 ;;53002104200
 ;;9002226.02101,"1011,53002104200 ",.02)
 ;;53002104200
 ;;9002226.02101,"1011,53002104202 ",.01)
 ;;53002104202
 ;;9002226.02101,"1011,53002104202 ",.02)
 ;;53002104202
 ;;9002226.02101,"1011,53002104203 ",.01)
 ;;53002104203
 ;;9002226.02101,"1011,53002104203 ",.02)
 ;;53002104203
 ;;9002226.02101,"1011,53002104205 ",.01)
 ;;53002104205
 ;;9002226.02101,"1011,53002104205 ",.02)
 ;;53002104205
 ;;9002226.02101,"1011,53002104206 ",.01)
 ;;53002104206
 ;;9002226.02101,"1011,53002104206 ",.02)
 ;;53002104206
 ;;9002226.02101,"1011,53002105800 ",.01)
 ;;53002105800
 ;;9002226.02101,"1011,53002105800 ",.02)
 ;;53002105800
 ;;9002226.02101,"1011,53002105802 ",.01)
 ;;53002105802
 ;;9002226.02101,"1011,53002105802 ",.02)
 ;;53002105802
 ;;9002226.02101,"1011,53002105803 ",.01)
 ;;53002105803
 ;;9002226.02101,"1011,53002105803 ",.02)
 ;;53002105803
 ;;9002226.02101,"1011,53002105805 ",.01)
 ;;53002105805
 ;;9002226.02101,"1011,53002105805 ",.02)
 ;;53002105805
 ;;9002226.02101,"1011,53002105806 ",.01)
 ;;53002105806
 ;;9002226.02101,"1011,53002105806 ",.02)
 ;;53002105806
 ;;9002226.02101,"1011,53002107600 ",.01)
 ;;53002107600
 ;;9002226.02101,"1011,53002107600 ",.02)
 ;;53002107600
 ;;9002226.02101,"1011,53002107602 ",.01)
 ;;53002107602
 ;;9002226.02101,"1011,53002107602 ",.02)
 ;;53002107602
 ;;9002226.02101,"1011,53002107603 ",.01)
 ;;53002107603
 ;;9002226.02101,"1011,53002107603 ",.02)
 ;;53002107603
 ;;9002226.02101,"1011,53002107605 ",.01)
 ;;53002107605
 ;;9002226.02101,"1011,53002107605 ",.02)
 ;;53002107605
 ;;9002226.02101,"1011,53002107606 ",.01)
 ;;53002107606
 ;;9002226.02101,"1011,53002107606 ",.02)
 ;;53002107606
 ;;9002226.02101,"1011,53104015301 ",.01)
 ;;53104015301
 ;;9002226.02101,"1011,53104015301 ",.02)
 ;;53104015301
 ;;9002226.02101,"1011,53104015309 ",.01)
 ;;53104015309
 ;;9002226.02101,"1011,53104015309 ",.02)
 ;;53104015309
 ;;9002226.02101,"1011,53808020301 ",.01)
 ;;53808020301
 ;;9002226.02101,"1011,53808020301 ",.02)
 ;;53808020301
 ;;9002226.02101,"1011,53808031601 ",.01)
 ;;53808031601
 ;;9002226.02101,"1011,53808031601 ",.02)
 ;;53808031601
 ;;9002226.02101,"1011,53978024309 ",.01)
 ;;53978024309
 ;;9002226.02101,"1011,53978024309 ",.02)
 ;;53978024309
 ;;9002226.02101,"1011,53978032003 ",.01)
 ;;53978032003
 ;;9002226.02101,"1011,53978032003 ",.02)
 ;;53978032003
 ;;9002226.02101,"1011,53978032009 ",.01)
 ;;53978032009
 ;;9002226.02101,"1011,53978032009 ",.02)
 ;;53978032009
 ;;9002226.02101,"1011,53978034309 ",.01)
 ;;53978034309
 ;;9002226.02101,"1011,53978034309 ",.02)
 ;;53978034309
 ;;9002226.02101,"1011,53978342409 ",.01)
 ;;53978342409
 ;;9002226.02101,"1011,53978342409 ",.02)
 ;;53978342409