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

BGPM5AXA.m

Go to the documentation of this file.
BGPM5AXA ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,67877021560 ",.02)
 ;;67877021560
 ;;9002226.02101,"1033,67877021601 ",.01)
 ;;67877021601
 ;;9002226.02101,"1033,67877021601 ",.02)
 ;;67877021601
 ;;9002226.02101,"1033,67877021620 ",.01)
 ;;67877021620
 ;;9002226.02101,"1033,67877021620 ",.02)
 ;;67877021620
 ;;9002226.02101,"1033,67877021660 ",.01)
 ;;67877021660
 ;;9002226.02101,"1033,67877021660 ",.02)
 ;;67877021660
 ;;9002226.02101,"1033,67877021901 ",.01)
 ;;67877021901
 ;;9002226.02101,"1033,67877021901 ",.02)
 ;;67877021901
 ;;9002226.02101,"1033,67877021905 ",.01)
 ;;67877021905
 ;;9002226.02101,"1033,67877021905 ",.02)
 ;;67877021905
 ;;9002226.02101,"1033,67877021910 ",.01)
 ;;67877021910
 ;;9002226.02101,"1033,67877021910 ",.02)
 ;;67877021910
 ;;9002226.02101,"1033,67877021920 ",.01)
 ;;67877021920
 ;;9002226.02101,"1033,67877021920 ",.02)
 ;;67877021920
 ;;9002226.02101,"1033,67877022001 ",.01)
 ;;67877022001
 ;;9002226.02101,"1033,67877022001 ",.02)
 ;;67877022001
 ;;9002226.02101,"1033,67877022005 ",.01)
 ;;67877022005
 ;;9002226.02101,"1033,67877022005 ",.02)
 ;;67877022005
 ;;9002226.02101,"1033,67877022010 ",.01)
 ;;67877022010
 ;;9002226.02101,"1033,67877022010 ",.02)
 ;;67877022010
 ;;9002226.02101,"1033,67877022020 ",.01)
 ;;67877022020
 ;;9002226.02101,"1033,67877022020 ",.02)
 ;;67877022020
 ;;9002226.02101,"1033,68030000702 ",.01)
 ;;68030000702
 ;;9002226.02101,"1033,68030000702 ",.02)
 ;;68030000702
 ;;9002226.02101,"1033,68047071401 ",.01)
 ;;68047071401
 ;;9002226.02101,"1033,68047071401 ",.02)
 ;;68047071401
 ;;9002226.02101,"1033,68047071460 ",.01)
 ;;68047071460
 ;;9002226.02101,"1033,68047071460 ",.02)
 ;;68047071460
 ;;9002226.02101,"1033,68071001214 ",.01)
 ;;68071001214
 ;;9002226.02101,"1033,68071001214 ",.02)
 ;;68071001214
 ;;9002226.02101,"1033,68071001483 ",.01)
 ;;68071001483
 ;;9002226.02101,"1033,68071001483 ",.02)
 ;;68071001483
 ;;9002226.02101,"1033,68071001492 ",.01)
 ;;68071001492
 ;;9002226.02101,"1033,68071001492 ",.02)
 ;;68071001492
 ;;9002226.02101,"1033,68071002504 ",.01)
 ;;68071002504
 ;;9002226.02101,"1033,68071002504 ",.02)
 ;;68071002504
 ;;9002226.02101,"1033,68071003103 ",.01)
 ;;68071003103
 ;;9002226.02101,"1033,68071003103 ",.02)
 ;;68071003103
 ;;9002226.02101,"1033,68071005002 ",.01)
 ;;68071005002
 ;;9002226.02101,"1033,68071005002 ",.02)
 ;;68071005002
 ;;9002226.02101,"1033,68071005006 ",.01)
 ;;68071005006
 ;;9002226.02101,"1033,68071005006 ",.02)
 ;;68071005006
 ;;9002226.02101,"1033,68071005504 ",.01)
 ;;68071005504
 ;;9002226.02101,"1033,68071005504 ",.02)
 ;;68071005504
 ;;9002226.02101,"1033,68071005505 ",.01)
 ;;68071005505
 ;;9002226.02101,"1033,68071005505 ",.02)
 ;;68071005505
 ;;9002226.02101,"1033,68071005506 ",.01)
 ;;68071005506
 ;;9002226.02101,"1033,68071005506 ",.02)
 ;;68071005506
 ;;9002226.02101,"1033,68071005510 ",.01)
 ;;68071005510
 ;;9002226.02101,"1033,68071005510 ",.02)
 ;;68071005510
 ;;9002226.02101,"1033,68071005514 ",.01)
 ;;68071005514
 ;;9002226.02101,"1033,68071005514 ",.02)
 ;;68071005514
 ;;9002226.02101,"1033,68071005520 ",.01)
 ;;68071005520
 ;;9002226.02101,"1033,68071005520 ",.02)
 ;;68071005520
 ;;9002226.02101,"1033,68071005528 ",.01)
 ;;68071005528
 ;;9002226.02101,"1033,68071005528 ",.02)
 ;;68071005528
 ;;9002226.02101,"1033,68071005530 ",.01)
 ;;68071005530
 ;;9002226.02101,"1033,68071005530 ",.02)
 ;;68071005530
 ;;9002226.02101,"1033,68071006303 ",.01)
 ;;68071006303
 ;;9002226.02101,"1033,68071006303 ",.02)
 ;;68071006303
 ;;9002226.02101,"1033,68071006314 ",.01)
 ;;68071006314
 ;;9002226.02101,"1033,68071006314 ",.02)
 ;;68071006314
 ;;9002226.02101,"1033,68071006330 ",.01)
 ;;68071006330
 ;;9002226.02101,"1033,68071006330 ",.02)
 ;;68071006330
 ;;9002226.02101,"1033,68071007730 ",.01)
 ;;68071007730
 ;;9002226.02101,"1033,68071007730 ",.02)
 ;;68071007730
 ;;9002226.02101,"1033,68071008128 ",.01)
 ;;68071008128
 ;;9002226.02101,"1033,68071008128 ",.02)
 ;;68071008128
 ;;9002226.02101,"1033,68071008920 ",.01)
 ;;68071008920
 ;;9002226.02101,"1033,68071008920 ",.02)
 ;;68071008920
 ;;9002226.02101,"1033,68071012304 ",.01)
 ;;68071012304
 ;;9002226.02101,"1033,68071012304 ",.02)
 ;;68071012304
 ;;9002226.02101,"1033,68071013821 ",.01)
 ;;68071013821
 ;;9002226.02101,"1033,68071013821 ",.02)
 ;;68071013821
 ;;9002226.02101,"1033,68071014440 ",.01)
 ;;68071014440
 ;;9002226.02101,"1033,68071014440 ",.02)
 ;;68071014440
 ;;9002226.02101,"1033,68071015206 ",.01)
 ;;68071015206
 ;;9002226.02101,"1033,68071015206 ",.02)
 ;;68071015206
 ;;9002226.02101,"1033,68071017420 ",.01)
 ;;68071017420
 ;;9002226.02101,"1033,68071017420 ",.02)
 ;;68071017420
 ;;9002226.02101,"1033,68071021304 ",.01)
 ;;68071021304
 ;;9002226.02101,"1033,68071021304 ",.02)
 ;;68071021304
 ;;9002226.02101,"1033,68071022920 ",.01)
 ;;68071022920
 ;;9002226.02101,"1033,68071022920 ",.02)
 ;;68071022920
 ;;9002226.02101,"1033,68071023201 ",.01)
 ;;68071023201
 ;;9002226.02101,"1033,68071023201 ",.02)
 ;;68071023201
 ;;9002226.02101,"1033,68071023606 ",.01)
 ;;68071023606
 ;;9002226.02101,"1033,68071023606 ",.02)
 ;;68071023606
 ;;9002226.02101,"1033,68071023804 ",.01)
 ;;68071023804
 ;;9002226.02101,"1033,68071023804 ",.02)
 ;;68071023804
 ;;9002226.02101,"1033,68071031614 ",.01)
 ;;68071031614
 ;;9002226.02101,"1033,68071031614 ",.02)
 ;;68071031614
 ;;9002226.02101,"1033,68071033114 ",.01)
 ;;68071033114
 ;;9002226.02101,"1033,68071033114 ",.02)
 ;;68071033114
 ;;9002226.02101,"1033,68071033120 ",.01)
 ;;68071033120
 ;;9002226.02101,"1033,68071033120 ",.02)
 ;;68071033120
 ;;9002226.02101,"1033,68071033130 ",.01)
 ;;68071033130
 ;;9002226.02101,"1033,68071033130 ",.02)
 ;;68071033130
 ;;9002226.02101,"1033,68071033714 ",.01)
 ;;68071033714
 ;;9002226.02101,"1033,68071033714 ",.02)
 ;;68071033714
 ;;9002226.02101,"1033,68071033720 ",.01)
 ;;68071033720
 ;;9002226.02101,"1033,68071033720 ",.02)
 ;;68071033720
 ;;9002226.02101,"1033,68071033730 ",.01)
 ;;68071033730
 ;;9002226.02101,"1033,68071033730 ",.02)
 ;;68071033730
 ;;9002226.02101,"1033,68071039202 ",.01)
 ;;68071039202
 ;;9002226.02101,"1033,68071039202 ",.02)
 ;;68071039202
 ;;9002226.02101,"1033,68071039204 ",.01)
 ;;68071039204
 ;;9002226.02101,"1033,68071039204 ",.02)
 ;;68071039204
 ;;9002226.02101,"1033,68071039205 ",.01)
 ;;68071039205
 ;;9002226.02101,"1033,68071039205 ",.02)
 ;;68071039205
 ;;9002226.02101,"1033,68071039806 ",.01)
 ;;68071039806
 ;;9002226.02101,"1033,68071039806 ",.02)
 ;;68071039806
 ;;9002226.02101,"1033,68071039814 ",.01)
 ;;68071039814
 ;;9002226.02101,"1033,68071039814 ",.02)
 ;;68071039814
 ;;9002226.02101,"1033,68071039820 ",.01)
 ;;68071039820
 ;;9002226.02101,"1033,68071039820 ",.02)
 ;;68071039820
 ;;9002226.02101,"1033,68071039830 ",.01)
 ;;68071039830
 ;;9002226.02101,"1033,68071039830 ",.02)
 ;;68071039830
 ;;9002226.02101,"1033,68071039840 ",.01)
 ;;68071039840
 ;;9002226.02101,"1033,68071039840 ",.02)
 ;;68071039840
 ;;9002226.02101,"1033,68071039845 ",.01)
 ;;68071039845
 ;;9002226.02101,"1033,68071039845 ",.02)
 ;;68071039845
 ;;9002226.02101,"1033,68071039890 ",.01)
 ;;68071039890
 ;;9002226.02101,"1033,68071039890 ",.02)
 ;;68071039890
 ;;9002226.02101,"1033,68071045906 ",.01)
 ;;68071045906
 ;;9002226.02101,"1033,68071045906 ",.02)
 ;;68071045906
 ;;9002226.02101,"1033,68071051103 ",.01)
 ;;68071051103
 ;;9002226.02101,"1033,68071051103 ",.02)
 ;;68071051103
 ;;9002226.02101,"1033,68071055604 ",.01)
 ;;68071055604
 ;;9002226.02101,"1033,68071055604 ",.02)
 ;;68071055604
 ;;9002226.02101,"1033,68071060003 ",.01)
 ;;68071060003
 ;;9002226.02101,"1033,68071060003 ",.02)
 ;;68071060003
 ;;9002226.02101,"1033,68071061540 ",.01)
 ;;68071061540
 ;;9002226.02101,"1033,68071061540 ",.02)
 ;;68071061540
 ;;9002226.02101,"1033,68071061830 ",.01)
 ;;68071061830
 ;;9002226.02101,"1033,68071061830 ",.02)
 ;;68071061830
 ;;9002226.02101,"1033,68071062330 ",.01)
 ;;68071062330
 ;;9002226.02101,"1033,68071062330 ",.02)
 ;;68071062330
 ;;9002226.02101,"1033,68071062440 ",.01)
 ;;68071062440
 ;;9002226.02101,"1033,68071062440 ",.02)
 ;;68071062440
 ;;9002226.02101,"1033,68071062780 ",.01)
 ;;68071062780
 ;;9002226.02101,"1033,68071062780 ",.02)
 ;;68071062780
 ;;9002226.02101,"1033,68071062940 ",.01)
 ;;68071062940
 ;;9002226.02101,"1033,68071062940 ",.02)
 ;;68071062940
 ;;9002226.02101,"1033,68071063420 ",.01)
 ;;68071063420
 ;;9002226.02101,"1033,68071063420 ",.02)
 ;;68071063420
 ;;9002226.02101,"1033,68071065620 ",.01)
 ;;68071065620
 ;;9002226.02101,"1033,68071065620 ",.02)
 ;;68071065620
 ;;9002226.02101,"1033,68071067321 ",.01)
 ;;68071067321
 ;;9002226.02101,"1033,68071067321 ",.02)
 ;;68071067321
 ;;9002226.02101,"1033,68071067814 ",.01)
 ;;68071067814
 ;;9002226.02101,"1033,68071067814 ",.02)
 ;;68071067814
 ;;9002226.02101,"1033,68071068730 ",.01)
 ;;68071068730
 ;;9002226.02101,"1033,68071068730 ",.02)
 ;;68071068730
 ;;9002226.02101,"1033,68071074228 ",.01)
 ;;68071074228
 ;;9002226.02101,"1033,68071074228 ",.02)
 ;;68071074228
 ;;9002226.02101,"1033,68071074506 ",.01)
 ;;68071074506
 ;;9002226.02101,"1033,68071074506 ",.02)
 ;;68071074506
 ;;9002226.02101,"1033,68071077210 ",.01)
 ;;68071077210
 ;;9002226.02101,"1033,68071077210 ",.02)
 ;;68071077210
 ;;9002226.02101,"1033,68084006901 ",.01)
 ;;68084006901
 ;;9002226.02101,"1033,68084006901 ",.02)
 ;;68084006901
 ;;9002226.02101,"1033,68084006911 ",.01)
 ;;68084006911
 ;;9002226.02101,"1033,68084006911 ",.02)
 ;;68084006911
 ;;9002226.02101,"1033,68084007001 ",.01)
 ;;68084007001
 ;;9002226.02101,"1033,68084007001 ",.02)
 ;;68084007001
 ;;9002226.02101,"1033,68084007011 ",.01)
 ;;68084007011
 ;;9002226.02101,"1033,68084007011 ",.02)
 ;;68084007011
 ;;9002226.02101,"1033,68084007101 ",.01)
 ;;68084007101
 ;;9002226.02101,"1033,68084007101 ",.02)
 ;;68084007101
 ;;9002226.02101,"1033,68084007111 ",.01)
 ;;68084007111
 ;;9002226.02101,"1033,68084007111 ",.02)
 ;;68084007111
 ;;9002226.02101,"1033,68084021801 ",.01)
 ;;68084021801
 ;;9002226.02101,"1033,68084021801 ",.02)
 ;;68084021801
 ;;9002226.02101,"1033,68084021901 ",.01)
 ;;68084021901
 ;;9002226.02101,"1033,68084021901 ",.02)
 ;;68084021901
 ;;9002226.02101,"1033,68084023001 ",.01)
 ;;68084023001
 ;;9002226.02101,"1033,68084023001 ",.02)
 ;;68084023001
 ;;9002226.02101,"1033,68084023011 ",.01)
 ;;68084023011
 ;;9002226.02101,"1033,68084023011 ",.02)
 ;;68084023011
 ;;9002226.02101,"1033,68084023501 ",.01)
 ;;68084023501
 ;;9002226.02101,"1033,68084023501 ",.02)
 ;;68084023501
 ;;9002226.02101,"1033,68084023511 ",.01)
 ;;68084023511
 ;;9002226.02101,"1033,68084023511 ",.02)
 ;;68084023511
 ;;9002226.02101,"1033,68084023601 ",.01)
 ;;68084023601
 ;;9002226.02101,"1033,68084023601 ",.02)
 ;;68084023601
 ;;9002226.02101,"1033,68084023611 ",.01)
 ;;68084023611
 ;;9002226.02101,"1033,68084023611 ",.02)
 ;;68084023611
 ;;9002226.02101,"1033,68084024301 ",.01)
 ;;68084024301
 ;;9002226.02101,"1033,68084024301 ",.02)
 ;;68084024301
 ;;9002226.02101,"1033,68084024311 ",.01)
 ;;68084024311
 ;;9002226.02101,"1033,68084024311 ",.02)
 ;;68084024311
 ;;9002226.02101,"1033,68084024401 ",.01)
 ;;68084024401
 ;;9002226.02101,"1033,68084024401 ",.02)
 ;;68084024401
 ;;9002226.02101,"1033,68084024411 ",.01)
 ;;68084024411
 ;;9002226.02101,"1033,68084024411 ",.02)
 ;;68084024411
 ;;9002226.02101,"1033,68084027801 ",.01)
 ;;68084027801
 ;;9002226.02101,"1033,68084027801 ",.02)
 ;;68084027801
 ;;9002226.02101,"1033,68084027811 ",.01)
 ;;68084027811
 ;;9002226.02101,"1033,68084027811 ",.02)
 ;;68084027811