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

BGPM5ATD.m

Go to the documentation of this file.
BGPM5ATD ;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,60312011754 ",.01)
 ;;60312011754
 ;;9002226.02101,"1011,60312011754 ",.02)
 ;;60312011754
 ;;9002226.02101,"1011,60312011780 ",.01)
 ;;60312011780
 ;;9002226.02101,"1011,60312011780 ",.02)
 ;;60312011780
 ;;9002226.02101,"1011,60312027501 ",.01)
 ;;60312027501
 ;;9002226.02101,"1011,60312027501 ",.02)
 ;;60312027501
 ;;9002226.02101,"1011,60312027502 ",.01)
 ;;60312027502
 ;;9002226.02101,"1011,60312027502 ",.02)
 ;;60312027502
 ;;9002226.02101,"1011,60312027503 ",.01)
 ;;60312027503
 ;;9002226.02101,"1011,60312027503 ",.02)
 ;;60312027503
 ;;9002226.02101,"1011,60312027504 ",.01)
 ;;60312027504
 ;;9002226.02101,"1011,60312027504 ",.02)
 ;;60312027504
 ;;9002226.02101,"1011,60312027582 ",.01)
 ;;60312027582
 ;;9002226.02101,"1011,60312027582 ",.02)
 ;;60312027582
 ;;9002226.02101,"1011,60312071101 ",.01)
 ;;60312071101
 ;;9002226.02101,"1011,60312071101 ",.02)
 ;;60312071101
 ;;9002226.02101,"1011,60312071102 ",.01)
 ;;60312071102
 ;;9002226.02101,"1011,60312071102 ",.02)
 ;;60312071102
 ;;9002226.02101,"1011,60312071103 ",.01)
 ;;60312071103
 ;;9002226.02101,"1011,60312071103 ",.02)
 ;;60312071103
 ;;9002226.02101,"1011,60312071104 ",.01)
 ;;60312071104
 ;;9002226.02101,"1011,60312071104 ",.02)
 ;;60312071104
 ;;9002226.02101,"1011,60432015706 ",.01)
 ;;60432015706
 ;;9002226.02101,"1011,60432015706 ",.02)
 ;;60432015706
 ;;9002226.02101,"1011,60432015712 ",.01)
 ;;60432015712
 ;;9002226.02101,"1011,60432015712 ",.02)
 ;;60432015712
 ;;9002226.02101,"1011,60432015721 ",.01)
 ;;60432015721
 ;;9002226.02101,"1011,60432015721 ",.02)
 ;;60432015721
 ;;9002226.02101,"1011,60491063580 ",.01)
 ;;60491063580
 ;;9002226.02101,"1011,60491063580 ",.02)
 ;;60491063580
 ;;9002226.02101,"1011,60491063590 ",.01)
 ;;60491063590
 ;;9002226.02101,"1011,60491063590 ",.02)
 ;;60491063590
 ;;9002226.02101,"1011,60491063601 ",.01)
 ;;60491063601
 ;;9002226.02101,"1011,60491063601 ",.02)
 ;;60491063601
 ;;9002226.02101,"1011,60491063680 ",.01)
 ;;60491063680
 ;;9002226.02101,"1011,60491063680 ",.02)
 ;;60491063680
 ;;9002226.02101,"1011,60491063690 ",.01)
 ;;60491063690
 ;;9002226.02101,"1011,60491063690 ",.02)
 ;;60491063690
 ;;9002226.02101,"1011,60491063701 ",.01)
 ;;60491063701
 ;;9002226.02101,"1011,60491063701 ",.02)
 ;;60491063701
 ;;9002226.02101,"1011,60491063720 ",.01)
 ;;60491063720
 ;;9002226.02101,"1011,60491063720 ",.02)
 ;;60491063720
 ;;9002226.02101,"1011,60491063760 ",.01)
 ;;60491063760
 ;;9002226.02101,"1011,60491063760 ",.02)
 ;;60491063760
 ;;9002226.02101,"1011,60491063768 ",.01)
 ;;60491063768
 ;;9002226.02101,"1011,60491063768 ",.02)
 ;;60491063768
 ;;9002226.02101,"1011,60505080201 ",.01)
 ;;60505080201
 ;;9002226.02101,"1011,60505080201 ",.02)
 ;;60505080201
 ;;9002226.02101,"1011,60793001012 ",.01)
 ;;60793001012
 ;;9002226.02101,"1011,60793001012 ",.02)
 ;;60793001012
 ;;9002226.02101,"1011,60793001060 ",.01)
 ;;60793001060
 ;;9002226.02101,"1011,60793001060 ",.02)
 ;;60793001060
 ;;9002226.02101,"1011,60793001108 ",.01)
 ;;60793001108
 ;;9002226.02101,"1011,60793001108 ",.02)
 ;;60793001108
 ;;9002226.02101,"1011,60793001114 ",.01)
 ;;60793001114
 ;;9002226.02101,"1011,60793001114 ",.02)
 ;;60793001114
 ;;9002226.02101,"1011,61392001725 ",.01)
 ;;61392001725
 ;;9002226.02101,"1011,61392001725 ",.02)
 ;;61392001725
 ;;9002226.02101,"1011,61392001730 ",.01)
 ;;61392001730
 ;;9002226.02101,"1011,61392001730 ",.02)
 ;;61392001730
 ;;9002226.02101,"1011,61392001731 ",.01)
 ;;61392001731
 ;;9002226.02101,"1011,61392001731 ",.02)
 ;;61392001731
 ;;9002226.02101,"1011,61392001739 ",.01)
 ;;61392001739
 ;;9002226.02101,"1011,61392001739 ",.02)
 ;;61392001739
 ;;9002226.02101,"1011,61392001754 ",.01)
 ;;61392001754
 ;;9002226.02101,"1011,61392001754 ",.02)
 ;;61392001754
 ;;9002226.02101,"1011,61392001756 ",.01)
 ;;61392001756
 ;;9002226.02101,"1011,61392001756 ",.02)
 ;;61392001756
 ;;9002226.02101,"1011,61392001760 ",.01)
 ;;61392001760
 ;;9002226.02101,"1011,61392001760 ",.02)
 ;;61392001760
 ;;9002226.02101,"1011,61392001765 ",.01)
 ;;61392001765
 ;;9002226.02101,"1011,61392001765 ",.02)
 ;;61392001765
 ;;9002226.02101,"1011,61392001790 ",.01)
 ;;61392001790
 ;;9002226.02101,"1011,61392001790 ",.02)
 ;;61392001790
 ;;9002226.02101,"1011,61392001791 ",.01)
 ;;61392001791
 ;;9002226.02101,"1011,61392001791 ",.02)
 ;;61392001791
 ;;9002226.02101,"1011,61570001901 ",.01)
 ;;61570001901
 ;;9002226.02101,"1011,61570001901 ",.02)
 ;;61570001901
 ;;9002226.02101,"1011,61570001905 ",.01)
 ;;61570001905
 ;;9002226.02101,"1011,61570001905 ",.02)
 ;;61570001905
 ;;9002226.02101,"1011,61570002001 ",.01)
 ;;61570002001
 ;;9002226.02101,"1011,61570002001 ",.02)
 ;;61570002001
 ;;9002226.02101,"1011,62584048700 ",.01)
 ;;62584048700
 ;;9002226.02101,"1011,62584048700 ",.02)
 ;;62584048700
 ;;9002226.02101,"1011,62584055470 ",.01)
 ;;62584055470
 ;;9002226.02101,"1011,62584055470 ",.02)
 ;;62584055470
 ;;9002226.02101,"1011,62584058400 ",.01)
 ;;62584058400
 ;;9002226.02101,"1011,62584058400 ",.02)
 ;;62584058400
 ;;9002226.02101,"1011,62584058405 ",.01)
 ;;62584058405
 ;;9002226.02101,"1011,62584058405 ",.02)
 ;;62584058405
 ;;9002226.02101,"1011,62584058406 ",.01)
 ;;62584058406
 ;;9002226.02101,"1011,62584058406 ",.02)
 ;;62584058406
 ;;9002226.02101,"1011,62584093300 ",.01)
 ;;62584093300
 ;;9002226.02101,"1011,62584093300 ",.02)
 ;;62584093300
 ;;9002226.02101,"1011,62584093305 ",.01)
 ;;62584093305
 ;;9002226.02101,"1011,62584093305 ",.02)
 ;;62584093305
 ;;9002226.02101,"1011,62947640504 ",.01)
 ;;62947640504
 ;;9002226.02101,"1011,62947640504 ",.02)
 ;;62947640504
 ;;9002226.02101,"1011,62947640509 ",.01)
 ;;62947640509
 ;;9002226.02101,"1011,62947640509 ",.02)
 ;;62947640509
 ;;9002226.02101,"1011,62947640605 ",.01)
 ;;62947640605
 ;;9002226.02101,"1011,62947640605 ",.02)
 ;;62947640605
 ;;9002226.02101,"1011,62947640609 ",.01)
 ;;62947640609
 ;;9002226.02101,"1011,62947640609 ",.02)
 ;;62947640609
 ;;9002226.02101,"1011,63402051001 ",.01)
 ;;63402051001
 ;;9002226.02101,"1011,63402051001 ",.02)
 ;;63402051001
 ;;9002226.02101,"1011,63402051005 ",.01)
 ;;63402051005
 ;;9002226.02101,"1011,63402051005 ",.02)
 ;;63402051005
 ;;9002226.02101,"1011,63402051100 ",.01)
 ;;63402051100
 ;;9002226.02101,"1011,63402051100 ",.02)
 ;;63402051100
 ;;9002226.02101,"1011,63402051124 ",.01)
 ;;63402051124
 ;;9002226.02101,"1011,63402051124 ",.02)
 ;;63402051124
 ;;9002226.02101,"1011,63402051200 ",.01)
 ;;63402051200
 ;;9002226.02101,"1011,63402051200 ",.02)
 ;;63402051200
 ;;9002226.02101,"1011,63402051224 ",.01)
 ;;63402051224
 ;;9002226.02101,"1011,63402051224 ",.02)
 ;;63402051224
 ;;9002226.02101,"1011,63402051300 ",.01)
 ;;63402051300
 ;;9002226.02101,"1011,63402051300 ",.02)
 ;;63402051300
 ;;9002226.02101,"1011,63402051324 ",.01)
 ;;63402051324
 ;;9002226.02101,"1011,63402051324 ",.02)
 ;;63402051324
 ;;9002226.02101,"1011,63402051500 ",.01)
 ;;63402051500
 ;;9002226.02101,"1011,63402051500 ",.02)
 ;;63402051500
 ;;9002226.02101,"1011,63402051530 ",.01)
 ;;63402051530
 ;;9002226.02101,"1011,63402051530 ",.02)
 ;;63402051530
 ;;9002226.02101,"1011,63629163901 ",.01)
 ;;63629163901
 ;;9002226.02101,"1011,63629163901 ",.02)
 ;;63629163901
 ;;9002226.02101,"1011,63629163902 ",.01)
 ;;63629163902
 ;;9002226.02101,"1011,63629163902 ",.02)
 ;;63629163902
 ;;9002226.02101,"1011,63629163903 ",.01)
 ;;63629163903
 ;;9002226.02101,"1011,63629163903 ",.02)
 ;;63629163903
 ;;9002226.02101,"1011,63775080201 ",.01)
 ;;63775080201
 ;;9002226.02101,"1011,63775080201 ",.02)
 ;;63775080201
 ;;9002226.02101,"1011,63874067501 ",.01)
 ;;63874067501
 ;;9002226.02101,"1011,63874067501 ",.02)
 ;;63874067501
 ;;9002226.02101,"1011,63874067515 ",.01)
 ;;63874067515
 ;;9002226.02101,"1011,63874067515 ",.02)
 ;;63874067515
 ;;9002226.02101,"1011,63874067520 ",.01)
 ;;63874067520
 ;;9002226.02101,"1011,63874067520 ",.02)
 ;;63874067520
 ;;9002226.02101,"1011,63874070820 ",.01)
 ;;63874070820
 ;;9002226.02101,"1011,63874070820 ",.02)
 ;;63874070820
 ;;9002226.02101,"1011,64725030303 ",.01)
 ;;64725030303
 ;;9002226.02101,"1011,64725030303 ",.02)
 ;;64725030303
 ;;9002226.02101,"1011,64725032703 ",.01)
 ;;64725032703
 ;;9002226.02101,"1011,64725032703 ",.02)
 ;;64725032703
 ;;9002226.02101,"1011,65084012710 ",.01)
 ;;65084012710
 ;;9002226.02101,"1011,65084012710 ",.02)
 ;;65084012710
 ;;9002226.02101,"1011,65162032510 ",.01)
 ;;65162032510
 ;;9002226.02101,"1011,65162032510 ",.02)
 ;;65162032510
 ;;9002226.02101,"1011,65162032511 ",.01)
 ;;65162032511
 ;;9002226.02101,"1011,65162032511 ",.02)
 ;;65162032511
 ;;9002226.02101,"1011,65271000205 ",.01)
 ;;65271000205
 ;;9002226.02101,"1011,65271000205 ",.02)
 ;;65271000205
 ;;9002226.02101,"1011,65271000206 ",.01)
 ;;65271000206
 ;;9002226.02101,"1011,65271000206 ",.02)
 ;;65271000206
 ;;9002226.02101,"1011,65302008301 ",.01)
 ;;65302008301
 ;;9002226.02101,"1011,65302008301 ",.02)
 ;;65302008301
 ;;9002226.02101,"1011,65302008302 ",.01)
 ;;65302008302
 ;;9002226.02101,"1011,65302008302 ",.02)
 ;;65302008302
 ;;9002226.02101,"1011,65302008303 ",.01)
 ;;65302008303
 ;;9002226.02101,"1011,65302008303 ",.02)
 ;;65302008303
 ;;9002226.02101,"1011,65302051300 ",.01)
 ;;65302051300
 ;;9002226.02101,"1011,65302051300 ",.02)
 ;;65302051300
 ;;9002226.02101,"1011,65302051324 ",.01)
 ;;65302051324
 ;;9002226.02101,"1011,65302051324 ",.02)
 ;;65302051324
 ;;9002226.02101,"1011,65427078401 ",.01)
 ;;65427078401
 ;;9002226.02101,"1011,65427078401 ",.02)
 ;;65427078401
 ;;9002226.02101,"1011,65427078501 ",.01)
 ;;65427078501
 ;;9002226.02101,"1011,65427078501 ",.02)
 ;;65427078501
 ;;9002226.02101,"1011,65427078550 ",.01)
 ;;65427078550
 ;;9002226.02101,"1011,65427078550 ",.02)
 ;;65427078550
 ;;9002226.02101,"1011,65427078701 ",.01)
 ;;65427078701
 ;;9002226.02101,"1011,65427078701 ",.02)
 ;;65427078701
 ;;9002226.02101,"1011,65427078750 ",.01)
 ;;65427078750
 ;;9002226.02101,"1011,65427078750 ",.02)
 ;;65427078750
 ;;9002226.02101,"1011,65427078901 ",.01)
 ;;65427078901
 ;;9002226.02101,"1011,65427078901 ",.02)
 ;;65427078901
 ;;9002226.02101,"1011,66105016402 ",.01)
 ;;66105016402
 ;;9002226.02101,"1011,66105016402 ",.02)
 ;;66105016402
 ;;9002226.02101,"1011,66105016403 ",.01)
 ;;66105016403
 ;;9002226.02101,"1011,66105016403 ",.02)
 ;;66105016403
 ;;9002226.02101,"1011,66105016406 ",.01)
 ;;66105016406
 ;;9002226.02101,"1011,66105016406 ",.02)
 ;;66105016406
 ;;9002226.02101,"1011,66105016409 ",.01)
 ;;66105016409
 ;;9002226.02101,"1011,66105016409 ",.02)
 ;;66105016409
 ;;9002226.02101,"1011,66105016410 ",.01)
 ;;66105016410
 ;;9002226.02101,"1011,66105016410 ",.02)
 ;;66105016410
 ;;9002226.02101,"1011,66105050106 ",.01)
 ;;66105050106
 ;;9002226.02101,"1011,66105050106 ",.02)
 ;;66105050106
 ;;9002226.02101,"1011,66105050206 ",.01)
 ;;66105050206
 ;;9002226.02101,"1011,66105050206 ",.02)
 ;;66105050206
 ;;9002226.02101,"1011,66267036830 ",.01)
 ;;66267036830
 ;;9002226.02101,"1011,66267036830 ",.02)
 ;;66267036830
 ;;9002226.02101,"1011,66267036930 ",.01)
 ;;66267036930
 ;;9002226.02101,"1011,66267036930 ",.02)
 ;;66267036930
 ;;9002226.02101,"1011,66267062210 ",.01)
 ;;66267062210
 ;;9002226.02101,"1011,66267062210 ",.02)
 ;;66267062210
 ;;9002226.02101,"1011,66267062220 ",.01)
 ;;66267062220
 ;;9002226.02101,"1011,66267062220 ",.02)
 ;;66267062220
 ;;9002226.02101,"1011,66267062230 ",.01)
 ;;66267062230
 ;;9002226.02101,"1011,66267062230 ",.02)
 ;;66267062230
 ;;9002226.02101,"1011,66267062240 ",.01)
 ;;66267062240