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

BGPM5AXB.m

Go to the documentation of this file.
  1. BGPM5AXB ;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,68084027830 ",.01)
  1. ;;68084027830
  1. ;;9002226.02101,"1033,68084027830 ",.02)
  1. ;;68084027830
  1. ;;9002226.02101,"1033,68084027865 ",.01)
  1. ;;68084027865
  1. ;;9002226.02101,"1033,68084027865 ",.02)
  1. ;;68084027865
  1. ;;9002226.02101,"1033,68084027889 ",.01)
  1. ;;68084027889
  1. ;;9002226.02101,"1033,68084027889 ",.02)
  1. ;;68084027889
  1. ;;9002226.02101,"1033,68084028901 ",.01)
  1. ;;68084028901
  1. ;;9002226.02101,"1033,68084028901 ",.02)
  1. ;;68084028901
  1. ;;9002226.02101,"1033,68084028911 ",.01)
  1. ;;68084028911
  1. ;;9002226.02101,"1033,68084028911 ",.02)
  1. ;;68084028911
  1. ;;9002226.02101,"1033,68084044311 ",.01)
  1. ;;68084044311
  1. ;;9002226.02101,"1033,68084044311 ",.02)
  1. ;;68084044311
  1. ;;9002226.02101,"1033,68084044365 ",.01)
  1. ;;68084044365
  1. ;;9002226.02101,"1033,68084044365 ",.02)
  1. ;;68084044365
  1. ;;9002226.02101,"1033,68084048301 ",.01)
  1. ;;68084048301
  1. ;;9002226.02101,"1033,68084048301 ",.02)
  1. ;;68084048301
  1. ;;9002226.02101,"1033,68084048311 ",.01)
  1. ;;68084048311
  1. ;;9002226.02101,"1033,68084048311 ",.02)
  1. ;;68084048311
  1. ;;9002226.02101,"1033,68115002606 ",.01)
  1. ;;68115002606
  1. ;;9002226.02101,"1033,68115002606 ",.02)
  1. ;;68115002606
  1. ;;9002226.02101,"1033,68115002609 ",.01)
  1. ;;68115002609
  1. ;;9002226.02101,"1033,68115002609 ",.02)
  1. ;;68115002609
  1. ;;9002226.02101,"1033,68115002615 ",.01)
  1. ;;68115002615
  1. ;;9002226.02101,"1033,68115002615 ",.02)
  1. ;;68115002615
  1. ;;9002226.02101,"1033,68115002640 ",.01)
  1. ;;68115002640
  1. ;;9002226.02101,"1033,68115002640 ",.02)
  1. ;;68115002640
  1. ;;9002226.02101,"1033,68115002920 ",.01)
  1. ;;68115002920
  1. ;;9002226.02101,"1033,68115002920 ",.02)
  1. ;;68115002920
  1. ;;9002226.02101,"1033,68115003010 ",.01)
  1. ;;68115003010
  1. ;;9002226.02101,"1033,68115003010 ",.02)
  1. ;;68115003010
  1. ;;9002226.02101,"1033,68115003240 ",.01)
  1. ;;68115003240
  1. ;;9002226.02101,"1033,68115003240 ",.02)
  1. ;;68115003240
  1. ;;9002226.02101,"1033,68115003315 ",.01)
  1. ;;68115003315
  1. ;;9002226.02101,"1033,68115003315 ",.02)
  1. ;;68115003315
  1. ;;9002226.02101,"1033,68115003340 ",.01)
  1. ;;68115003340
  1. ;;9002226.02101,"1033,68115003340 ",.02)
  1. ;;68115003340
  1. ;;9002226.02101,"1033,68115006720 ",.01)
  1. ;;68115006720
  1. ;;9002226.02101,"1033,68115006720 ",.02)
  1. ;;68115006720
  1. ;;9002226.02101,"1033,68115009020 ",.01)
  1. ;;68115009020
  1. ;;9002226.02101,"1033,68115009020 ",.02)
  1. ;;68115009020
  1. ;;9002226.02101,"1033,68115010406 ",.01)
  1. ;;68115010406
  1. ;;9002226.02101,"1033,68115010406 ",.02)
  1. ;;68115010406
  1. ;;9002226.02101,"1033,68115010440 ",.01)
  1. ;;68115010440
  1. ;;9002226.02101,"1033,68115010440 ",.02)
  1. ;;68115010440
  1. ;;9002226.02101,"1033,68115010530 ",.01)
  1. ;;68115010530
  1. ;;9002226.02101,"1033,68115010530 ",.02)
  1. ;;68115010530
  1. ;;9002226.02101,"1033,68115010540 ",.01)
  1. ;;68115010540
  1. ;;9002226.02101,"1033,68115010540 ",.02)
  1. ;;68115010540
  1. ;;9002226.02101,"1033,68115012528 ",.01)
  1. ;;68115012528
  1. ;;9002226.02101,"1033,68115012528 ",.02)
  1. ;;68115012528
  1. ;;9002226.02101,"1033,68115042128 ",.01)
  1. ;;68115042128
  1. ;;9002226.02101,"1033,68115042128 ",.02)
  1. ;;68115042128
  1. ;;9002226.02101,"1033,68115044522 ",.01)
  1. ;;68115044522
  1. ;;9002226.02101,"1033,68115044522 ",.02)
  1. ;;68115044522
  1. ;;9002226.02101,"1033,68115060110 ",.01)
  1. ;;68115060110
  1. ;;9002226.02101,"1033,68115060110 ",.02)
  1. ;;68115060110
  1. ;;9002226.02101,"1033,68164010040 ",.01)
  1. ;;68164010040
  1. ;;9002226.02101,"1033,68164010040 ",.02)
  1. ;;68164010040
  1. ;;9002226.02101,"1033,68180012101 ",.01)
  1. ;;68180012101
  1. ;;9002226.02101,"1033,68180012101 ",.02)
  1. ;;68180012101
  1. ;;9002226.02101,"1033,68180012102 ",.01)
  1. ;;68180012102
  1. ;;9002226.02101,"1033,68180012102 ",.02)
  1. ;;68180012102
  1. ;;9002226.02101,"1033,68180012201 ",.01)
  1. ;;68180012201
  1. ;;9002226.02101,"1033,68180012201 ",.02)
  1. ;;68180012201
  1. ;;9002226.02101,"1033,68180012202 ",.01)
  1. ;;68180012202
  1. ;;9002226.02101,"1033,68180012202 ",.02)
  1. ;;68180012202
  1. ;;9002226.02101,"1033,68180012301 ",.01)
  1. ;;68180012301
  1. ;;9002226.02101,"1033,68180012301 ",.02)
  1. ;;68180012301
  1. ;;9002226.02101,"1033,68180012302 ",.01)
  1. ;;68180012302
  1. ;;9002226.02101,"1033,68180012302 ",.02)
  1. ;;68180012302
  1. ;;9002226.02101,"1033,68180012401 ",.01)
  1. ;;68180012401
  1. ;;9002226.02101,"1033,68180012401 ",.02)
  1. ;;68180012401
  1. ;;9002226.02101,"1033,68180012402 ",.01)
  1. ;;68180012402
  1. ;;9002226.02101,"1033,68180012402 ",.02)
  1. ;;68180012402
  1. ;;9002226.02101,"1033,68180018001 ",.01)
  1. ;;68180018001
  1. ;;9002226.02101,"1033,68180018001 ",.02)
  1. ;;68180018001
  1. ;;9002226.02101,"1033,68180018008 ",.01)
  1. ;;68180018008
  1. ;;9002226.02101,"1033,68180018008 ",.02)
  1. ;;68180018008
  1. ;;9002226.02101,"1033,68180018101 ",.01)
  1. ;;68180018101
  1. ;;9002226.02101,"1033,68180018101 ",.02)
  1. ;;68180018101
  1. ;;9002226.02101,"1033,68180018102 ",.01)
  1. ;;68180018102
  1. ;;9002226.02101,"1033,68180018102 ",.02)
  1. ;;68180018102
  1. ;;9002226.02101,"1033,68180018201 ",.01)
  1. ;;68180018201
  1. ;;9002226.02101,"1033,68180018201 ",.02)
  1. ;;68180018201
  1. ;;9002226.02101,"1033,68180018202 ",.01)
  1. ;;68180018202
  1. ;;9002226.02101,"1033,68180018202 ",.02)
  1. ;;68180018202
  1. ;;9002226.02101,"1033,68180018203 ",.01)
  1. ;;68180018203
  1. ;;9002226.02101,"1033,68180018203 ",.02)
  1. ;;68180018203
  1. ;;9002226.02101,"1033,68180024201 ",.01)
  1. ;;68180024201
  1. ;;9002226.02101,"1033,68180024201 ",.02)
  1. ;;68180024201
  1. ;;9002226.02101,"1033,68180024202 ",.01)
  1. ;;68180024202
  1. ;;9002226.02101,"1033,68180024202 ",.02)
  1. ;;68180024202
  1. ;;9002226.02101,"1033,68180024211 ",.01)
  1. ;;68180024211
  1. ;;9002226.02101,"1033,68180024211 ",.02)
  1. ;;68180024211
  1. ;;9002226.02101,"1033,68180024220 ",.01)
  1. ;;68180024220
  1. ;;9002226.02101,"1033,68180024220 ",.02)
  1. ;;68180024220
  1. ;;9002226.02101,"1033,68180030220 ",.01)
  1. ;;68180030220
  1. ;;9002226.02101,"1033,68180030220 ",.02)
  1. ;;68180030220
  1. ;;9002226.02101,"1033,68180030260 ",.01)
  1. ;;68180030260
  1. ;;9002226.02101,"1033,68180030260 ",.02)
  1. ;;68180030260
  1. ;;9002226.02101,"1033,68180030320 ",.01)
  1. ;;68180030320
  1. ;;9002226.02101,"1033,68180030320 ",.02)
  1. ;;68180030320
  1. ;;9002226.02101,"1033,68180030360 ",.01)
  1. ;;68180030360
  1. ;;9002226.02101,"1033,68180030360 ",.02)
  1. ;;68180030360
  1. ;;9002226.02101,"1033,68180040101 ",.01)
  1. ;;68180040101
  1. ;;9002226.02101,"1033,68180040101 ",.02)
  1. ;;68180040101
  1. ;;9002226.02101,"1033,68180040102 ",.01)
  1. ;;68180040102
  1. ;;9002226.02101,"1033,68180040102 ",.02)
  1. ;;68180040102
  1. ;;9002226.02101,"1033,68180040103 ",.01)
  1. ;;68180040103
  1. ;;9002226.02101,"1033,68180040103 ",.02)
  1. ;;68180040103
  1. ;;9002226.02101,"1033,68180040201 ",.01)
  1. ;;68180040201
  1. ;;9002226.02101,"1033,68180040201 ",.02)
  1. ;;68180040201
  1. ;;9002226.02101,"1033,68180040202 ",.01)
  1. ;;68180040202
  1. ;;9002226.02101,"1033,68180040202 ",.02)
  1. ;;68180040202
  1. ;;9002226.02101,"1033,68180040203 ",.01)
  1. ;;68180040203
  1. ;;9002226.02101,"1033,68180040203 ",.02)
  1. ;;68180040203
  1. ;;9002226.02101,"1033,68180040301 ",.01)
  1. ;;68180040301
  1. ;;9002226.02101,"1033,68180040301 ",.02)
  1. ;;68180040301
  1. ;;9002226.02101,"1033,68180040401 ",.01)
  1. ;;68180040401
  1. ;;9002226.02101,"1033,68180040401 ",.02)
  1. ;;68180040401
  1. ;;9002226.02101,"1033,68180040402 ",.01)
  1. ;;68180040402
  1. ;;9002226.02101,"1033,68180040402 ",.02)
  1. ;;68180040402
  1. ;;9002226.02101,"1033,68180061101 ",.01)
  1. ;;68180061101
  1. ;;9002226.02101,"1033,68180061101 ",.02)
  1. ;;68180061101
  1. ;;9002226.02101,"1033,68180061110 ",.01)
  1. ;;68180061110
  1. ;;9002226.02101,"1033,68180061110 ",.02)
  1. ;;68180061110
  1. ;;9002226.02101,"1033,68180062201 ",.01)
  1. ;;68180062201
  1. ;;9002226.02101,"1033,68180062201 ",.02)
  1. ;;68180062201
  1. ;;9002226.02101,"1033,68180062210 ",.01)
  1. ;;68180062210
  1. ;;9002226.02101,"1033,68180062210 ",.02)
  1. ;;68180062210
  1. ;;9002226.02101,"1033,68180063301 ",.01)
  1. ;;68180063301
  1. ;;9002226.02101,"1033,68180063301 ",.02)
  1. ;;68180063301
  1. ;;9002226.02101,"1033,68180063310 ",.01)
  1. ;;68180063310
  1. ;;9002226.02101,"1033,68180063310 ",.02)
  1. ;;68180063310
  1. ;;9002226.02101,"1033,68180064401 ",.01)
  1. ;;68180064401
  1. ;;9002226.02101,"1033,68180064401 ",.02)
  1. ;;68180064401
  1. ;;9002226.02101,"1033,68180064410 ",.01)
  1. ;;68180064410
  1. ;;9002226.02101,"1033,68180064410 ",.02)
  1. ;;68180064410
  1. ;;9002226.02101,"1033,68180065501 ",.01)
  1. ;;68180065501
  1. ;;9002226.02101,"1033,68180065501 ",.02)
  1. ;;68180065501
  1. ;;9002226.02101,"1033,68180071160 ",.01)
  1. ;;68180071160
  1. ;;9002226.02101,"1033,68180071160 ",.02)
  1. ;;68180071160
  1. ;;9002226.02101,"1033,68180072210 ",.01)
  1. ;;68180072210
  1. ;;9002226.02101,"1033,68180072210 ",.02)
  1. ;;68180072210
  1. ;;9002226.02101,"1033,68180072220 ",.01)
  1. ;;68180072220
  1. ;;9002226.02101,"1033,68180072220 ",.02)
  1. ;;68180072220
  1. ;;9002226.02101,"1033,68180072310 ",.01)
  1. ;;68180072310
  1. ;;9002226.02101,"1033,68180072310 ",.02)
  1. ;;68180072310
  1. ;;9002226.02101,"1033,68180072320 ",.01)
  1. ;;68180072320
  1. ;;9002226.02101,"1033,68180072320 ",.02)
  1. ;;68180072320
  1. ;;9002226.02101,"1033,68258930002 ",.01)
  1. ;;68258930002
  1. ;;9002226.02101,"1033,68258930002 ",.02)
  1. ;;68258930002
  1. ;;9002226.02101,"1033,68289000101 ",.01)
  1. ;;68289000101
  1. ;;9002226.02101,"1033,68289000101 ",.02)
  1. ;;68289000101
  1. ;;9002226.02101,"1033,68289000155 ",.01)
  1. ;;68289000155
  1. ;;9002226.02101,"1033,68289000155 ",.02)
  1. ;;68289000155
  1. ;;9002226.02101,"1033,68289000201 ",.01)
  1. ;;68289000201
  1. ;;9002226.02101,"1033,68289000201 ",.02)
  1. ;;68289000201
  1. ;;9002226.02101,"1033,68289000255 ",.01)
  1. ;;68289000255
  1. ;;9002226.02101,"1033,68289000255 ",.02)
  1. ;;68289000255
  1. ;;9002226.02101,"1033,68289000301 ",.01)
  1. ;;68289000301
  1. ;;9002226.02101,"1033,68289000301 ",.02)
  1. ;;68289000301
  1. ;;9002226.02101,"1033,68289000350 ",.01)
  1. ;;68289000350
  1. ;;9002226.02101,"1033,68289000350 ",.02)
  1. ;;68289000350
  1. ;;9002226.02101,"1033,68289000401 ",.01)
  1. ;;68289000401
  1. ;;9002226.02101,"1033,68289000401 ",.02)
  1. ;;68289000401
  1. ;;9002226.02101,"1033,68289000415 ",.01)
  1. ;;68289000415
  1. ;;9002226.02101,"1033,68289000415 ",.02)
  1. ;;68289000415
  1. ;;9002226.02101,"1033,68289000501 ",.01)
  1. ;;68289000501
  1. ;;9002226.02101,"1033,68289000501 ",.02)
  1. ;;68289000501
  1. ;;9002226.02101,"1033,68289000515 ",.01)
  1. ;;68289000515
  1. ;;9002226.02101,"1033,68289000515 ",.02)
  1. ;;68289000515
  1. ;;9002226.02101,"1033,68289000801 ",.01)
  1. ;;68289000801
  1. ;;9002226.02101,"1033,68289000801 ",.02)
  1. ;;68289000801
  1. ;;9002226.02101,"1033,68289000820 ",.01)
  1. ;;68289000820
  1. ;;9002226.02101,"1033,68289000820 ",.02)
  1. ;;68289000820
  1. ;;9002226.02101,"1033,68289000901 ",.01)
  1. ;;68289000901
  1. ;;9002226.02101,"1033,68289000901 ",.02)
  1. ;;68289000901
  1. ;;9002226.02101,"1033,68289000920 ",.01)
  1. ;;68289000920
  1. ;;9002226.02101,"1033,68289000920 ",.02)
  1. ;;68289000920
  1. ;;9002226.02101,"1033,68289005101 ",.01)
  1. ;;68289005101
  1. ;;9002226.02101,"1033,68289005101 ",.02)
  1. ;;68289005101
  1. ;;9002226.02101,"1033,68289005122 ",.01)
  1. ;;68289005122
  1. ;;9002226.02101,"1033,68289005122 ",.02)
  1. ;;68289005122
  1. ;;9002226.02101,"1033,68289005150 ",.01)
  1. ;;68289005150
  1. ;;9002226.02101,"1033,68289005150 ",.02)
  1. ;;68289005150
  1. ;;9002226.02101,"1033,68330000101 ",.01)
  1. ;;68330000101
  1. ;;9002226.02101,"1033,68330000101 ",.02)
  1. ;;68330000101
  1. ;;9002226.02101,"1033,68330000110 ",.01)
  1. ;;68330000110
  1. ;;9002226.02101,"1033,68330000110 ",.02)
  1. ;;68330000110
  1. ;;9002226.02101,"1033,68330000201 ",.01)
  1. ;;68330000201
  1. ;;9002226.02101,"1033,68330000201 ",.02)
  1. ;;68330000201
  1. ;;9002226.02101,"1033,68330000210 ",.01)
  1. ;;68330000210
  1. ;;9002226.02101,"1033,68330000210 ",.02)
  1. ;;68330000210
  1. ;;9002226.02101,"1033,68330000301 ",.01)
  1. ;;68330000301
  1. ;;9002226.02101,"1033,68330000301 ",.02)
  1. ;;68330000301
  1. ;;9002226.02101,"1033,68330000310 ",.01)
  1. ;;68330000310
  1. ;;9002226.02101,"1033,68330000310 ",.02)
  1. ;;68330000310
  1. ;;9002226.02101,"1033,68330000401 ",.01)
  1. ;;68330000401
  1. ;;9002226.02101,"1033,68330000401 ",.02)
  1. ;;68330000401
  1. ;;9002226.02101,"1033,68330000410 ",.01)
  1. ;;68330000410