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