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

BGPM5AXS.m

Go to the documentation of this file.
BGPM5AXS ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 30, 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,"1038,52959090620 ",.02)
 ;;52959090620
 ;;9002226.02101,"1038,53002039110 ",.01)
 ;;53002039110
 ;;9002226.02101,"1038,53002039110 ",.02)
 ;;53002039110
 ;;9002226.02101,"1038,53002039120 ",.01)
 ;;53002039120
 ;;9002226.02101,"1038,53002039120 ",.02)
 ;;53002039120
 ;;9002226.02101,"1038,53002039130 ",.01)
 ;;53002039130
 ;;9002226.02101,"1038,53002039130 ",.02)
 ;;53002039130
 ;;9002226.02101,"1038,53002039140 ",.01)
 ;;53002039140
 ;;9002226.02101,"1038,53002039140 ",.02)
 ;;53002039140
 ;;9002226.02101,"1038,53002087199 ",.01)
 ;;53002087199
 ;;9002226.02101,"1038,53002087199 ",.02)
 ;;53002087199
 ;;9002226.02101,"1038,53002090264 ",.01)
 ;;53002090264
 ;;9002226.02101,"1038,53002090264 ",.02)
 ;;53002090264
 ;;9002226.02101,"1038,53002090265 ",.01)
 ;;53002090265
 ;;9002226.02101,"1038,53002090265 ",.02)
 ;;53002090265
 ;;9002226.02101,"1038,53104015201 ",.01)
 ;;53104015201
 ;;9002226.02101,"1038,53104015201 ",.02)
 ;;53104015201
 ;;9002226.02101,"1038,53104015209 ",.01)
 ;;53104015209
 ;;9002226.02101,"1038,53104015209 ",.02)
 ;;53104015209
 ;;9002226.02101,"1038,53104015301 ",.01)
 ;;53104015301
 ;;9002226.02101,"1038,53104015301 ",.02)
 ;;53104015301
 ;;9002226.02101,"1038,53104015309 ",.01)
 ;;53104015309
 ;;9002226.02101,"1038,53104015309 ",.02)
 ;;53104015309
 ;;9002226.02101,"1038,53489017601 ",.01)
 ;;53489017601
 ;;9002226.02101,"1038,53489017601 ",.02)
 ;;53489017601
 ;;9002226.02101,"1038,53489017602 ",.01)
 ;;53489017602
 ;;9002226.02101,"1038,53489017602 ",.02)
 ;;53489017602
 ;;9002226.02101,"1038,53489017603 ",.01)
 ;;53489017603
 ;;9002226.02101,"1038,53489017603 ",.02)
 ;;53489017603
 ;;9002226.02101,"1038,53489017605 ",.01)
 ;;53489017605
 ;;9002226.02101,"1038,53489017605 ",.02)
 ;;53489017605
 ;;9002226.02101,"1038,53489017610 ",.01)
 ;;53489017610
 ;;9002226.02101,"1038,53489017610 ",.02)
 ;;53489017610
 ;;9002226.02101,"1038,53489017701 ",.01)
 ;;53489017701
 ;;9002226.02101,"1038,53489017701 ",.02)
 ;;53489017701
 ;;9002226.02101,"1038,53489017702 ",.01)
 ;;53489017702
 ;;9002226.02101,"1038,53489017702 ",.02)
 ;;53489017702
 ;;9002226.02101,"1038,53489017703 ",.01)
 ;;53489017703
 ;;9002226.02101,"1038,53489017703 ",.02)
 ;;53489017703
 ;;9002226.02101,"1038,53489017705 ",.01)
 ;;53489017705
 ;;9002226.02101,"1038,53489017705 ",.02)
 ;;53489017705
 ;;9002226.02101,"1038,53489017710 ",.01)
 ;;53489017710
 ;;9002226.02101,"1038,53489017710 ",.02)
 ;;53489017710
 ;;9002226.02101,"1038,54569287400 ",.01)
 ;;54569287400
 ;;9002226.02101,"1038,54569287400 ",.02)
 ;;54569287400
 ;;9002226.02101,"1038,54569287401 ",.01)
 ;;54569287401
 ;;9002226.02101,"1038,54569287401 ",.02)
 ;;54569287401
 ;;9002226.02101,"1038,54569287402 ",.01)
 ;;54569287402
 ;;9002226.02101,"1038,54569287402 ",.02)
 ;;54569287402
 ;;9002226.02101,"1038,54569340900 ",.01)
 ;;54569340900
 ;;9002226.02101,"1038,54569340900 ",.02)
 ;;54569340900
 ;;9002226.02101,"1038,54569370001 ",.01)
 ;;54569370001
 ;;9002226.02101,"1038,54569370001 ",.02)
 ;;54569370001
 ;;9002226.02101,"1038,54569370002 ",.01)
 ;;54569370002
 ;;9002226.02101,"1038,54569370002 ",.02)
 ;;54569370002
 ;;9002226.02101,"1038,54569389900 ",.01)
 ;;54569389900
 ;;9002226.02101,"1038,54569389900 ",.02)
 ;;54569389900
 ;;9002226.02101,"1038,54569390000 ",.01)
 ;;54569390000
 ;;9002226.02101,"1038,54569390000 ",.02)
 ;;54569390000
 ;;9002226.02101,"1038,54569489900 ",.01)
 ;;54569489900
 ;;9002226.02101,"1038,54569489900 ",.02)
 ;;54569489900
 ;;9002226.02101,"1038,54868107302 ",.01)
 ;;54868107302
 ;;9002226.02101,"1038,54868107302 ",.02)
 ;;54868107302
 ;;9002226.02101,"1038,54868107303 ",.01)
 ;;54868107303
 ;;9002226.02101,"1038,54868107303 ",.02)
 ;;54868107303
 ;;9002226.02101,"1038,54868107304 ",.01)
 ;;54868107304
 ;;9002226.02101,"1038,54868107304 ",.02)
 ;;54868107304
 ;;9002226.02101,"1038,54868107305 ",.01)
 ;;54868107305
 ;;9002226.02101,"1038,54868107305 ",.02)
 ;;54868107305
 ;;9002226.02101,"1038,54868107306 ",.01)
 ;;54868107306
 ;;9002226.02101,"1038,54868107306 ",.02)
 ;;54868107306
 ;;9002226.02101,"1038,54868107403 ",.01)
 ;;54868107403
 ;;9002226.02101,"1038,54868107403 ",.02)
 ;;54868107403
 ;;9002226.02101,"1038,54868107405 ",.01)
 ;;54868107405
 ;;9002226.02101,"1038,54868107405 ",.02)
 ;;54868107405
 ;;9002226.02101,"1038,54868107406 ",.01)
 ;;54868107406
 ;;9002226.02101,"1038,54868107406 ",.02)
 ;;54868107406
 ;;9002226.02101,"1038,54868107407 ",.01)
 ;;54868107407
 ;;9002226.02101,"1038,54868107407 ",.02)
 ;;54868107407
 ;;9002226.02101,"1038,54868247200 ",.01)
 ;;54868247200
 ;;9002226.02101,"1038,54868247200 ",.02)
 ;;54868247200
 ;;9002226.02101,"1038,54868247201 ",.01)
 ;;54868247201
 ;;9002226.02101,"1038,54868247201 ",.02)
 ;;54868247201
 ;;9002226.02101,"1038,54868288700 ",.01)
 ;;54868288700
 ;;9002226.02101,"1038,54868288700 ",.02)
 ;;54868288700
 ;;9002226.02101,"1038,54868340700 ",.01)
 ;;54868340700
 ;;9002226.02101,"1038,54868340700 ",.02)
 ;;54868340700
 ;;9002226.02101,"1038,54868373900 ",.01)
 ;;54868373900
 ;;9002226.02101,"1038,54868373900 ",.02)
 ;;54868373900
 ;;9002226.02101,"1038,54868564600 ",.01)
 ;;54868564600
 ;;9002226.02101,"1038,54868564600 ",.02)
 ;;54868564600
 ;;9002226.02101,"1038,54868564601 ",.01)
 ;;54868564601
 ;;9002226.02101,"1038,54868564601 ",.02)
 ;;54868564601
 ;;9002226.02101,"1038,54868564602 ",.01)
 ;;54868564602
 ;;9002226.02101,"1038,54868564602 ",.02)
 ;;54868564602
 ;;9002226.02101,"1038,54868570900 ",.01)
 ;;54868570900
 ;;9002226.02101,"1038,54868570900 ",.02)
 ;;54868570900
 ;;9002226.02101,"1038,54868597400 ",.01)
 ;;54868597400
 ;;9002226.02101,"1038,54868597400 ",.02)
 ;;54868597400
 ;;9002226.02101,"1038,55045182200 ",.01)
 ;;55045182200
 ;;9002226.02101,"1038,55045182200 ",.02)
 ;;55045182200
 ;;9002226.02101,"1038,55045182207 ",.01)
 ;;55045182207
 ;;9002226.02101,"1038,55045182207 ",.02)
 ;;55045182207
 ;;9002226.02101,"1038,55045182208 ",.01)
 ;;55045182208
 ;;9002226.02101,"1038,55045182208 ",.02)
 ;;55045182208
 ;;9002226.02101,"1038,55045204307 ",.01)
 ;;55045204307
 ;;9002226.02101,"1038,55045204307 ",.02)
 ;;55045204307
 ;;9002226.02101,"1038,55045228308 ",.01)
 ;;55045228308
 ;;9002226.02101,"1038,55045228308 ",.02)
 ;;55045228308
 ;;9002226.02101,"1038,55045228309 ",.01)
 ;;55045228309
 ;;9002226.02101,"1038,55045228309 ",.02)
 ;;55045228309
 ;;9002226.02101,"1038,55045239005 ",.01)
 ;;55045239005
 ;;9002226.02101,"1038,55045239005 ",.02)
 ;;55045239005
 ;;9002226.02101,"1038,55045247002 ",.01)
 ;;55045247002
 ;;9002226.02101,"1038,55045247002 ",.02)
 ;;55045247002
 ;;9002226.02101,"1038,55154435005 ",.01)
 ;;55154435005
 ;;9002226.02101,"1038,55154435005 ",.02)
 ;;55154435005
 ;;9002226.02101,"1038,55154435405 ",.01)
 ;;55154435405
 ;;9002226.02101,"1038,55154435405 ",.02)
 ;;55154435405
 ;;9002226.02101,"1038,55154435506 ",.01)
 ;;55154435506
 ;;9002226.02101,"1038,55154435506 ",.02)
 ;;55154435506
 ;;9002226.02101,"1038,55154850605 ",.01)
 ;;55154850605
 ;;9002226.02101,"1038,55154850605 ",.02)
 ;;55154850605
 ;;9002226.02101,"1038,55154850805 ",.01)
 ;;55154850805
 ;;9002226.02101,"1038,55154850805 ",.02)
 ;;55154850805
 ;;9002226.02101,"1038,55154917001 ",.01)
 ;;55154917001
 ;;9002226.02101,"1038,55154917001 ",.02)
 ;;55154917001
 ;;9002226.02101,"1038,55154917002 ",.01)
 ;;55154917002
 ;;9002226.02101,"1038,55154917002 ",.02)
 ;;55154917002
 ;;9002226.02101,"1038,55154917003 ",.01)
 ;;55154917003
 ;;9002226.02101,"1038,55154917003 ",.02)
 ;;55154917003
 ;;9002226.02101,"1038,55289004530 ",.01)
 ;;55289004530
 ;;9002226.02101,"1038,55289004530 ",.02)
 ;;55289004530
 ;;9002226.02101,"1038,55289036320 ",.01)
 ;;55289036320
 ;;9002226.02101,"1038,55289036320 ",.02)
 ;;55289036320
 ;;9002226.02101,"1038,55289036324 ",.01)
 ;;55289036324
 ;;9002226.02101,"1038,55289036324 ",.02)
 ;;55289036324
 ;;9002226.02101,"1038,55289036330 ",.01)
 ;;55289036330
 ;;9002226.02101,"1038,55289036330 ",.02)
 ;;55289036330
 ;;9002226.02101,"1038,55887023816 ",.01)
 ;;55887023816
 ;;9002226.02101,"1038,55887023816 ",.02)
 ;;55887023816
 ;;9002226.02101,"1038,55887038220 ",.01)
 ;;55887038220
 ;;9002226.02101,"1038,55887038220 ",.02)
 ;;55887038220
 ;;9002226.02101,"1038,55887039125 ",.01)
 ;;55887039125
 ;;9002226.02101,"1038,55887039125 ",.02)
 ;;55887039125
 ;;9002226.02101,"1038,55887039130 ",.01)
 ;;55887039130
 ;;9002226.02101,"1038,55887039130 ",.02)
 ;;55887039130
 ;;9002226.02101,"1038,55887050930 ",.01)
 ;;55887050930
 ;;9002226.02101,"1038,55887050930 ",.02)
 ;;55887050930
 ;;9002226.02101,"1038,55887081218 ",.01)
 ;;55887081218
 ;;9002226.02101,"1038,55887081218 ",.02)
 ;;55887081218
 ;;9002226.02101,"1038,57575001830 ",.01)
 ;;57575001830
 ;;9002226.02101,"1038,57575001830 ",.02)
 ;;57575001830
 ;;9002226.02101,"1038,57866300801 ",.01)
 ;;57866300801
 ;;9002226.02101,"1038,57866300801 ",.02)
 ;;57866300801
 ;;9002226.02101,"1038,57866300802 ",.01)
 ;;57866300802
 ;;9002226.02101,"1038,57866300802 ",.02)
 ;;57866300802
 ;;9002226.02101,"1038,57866300901 ",.01)
 ;;57866300901
 ;;9002226.02101,"1038,57866300901 ",.02)
 ;;57866300901
 ;;9002226.02101,"1038,58016047300 ",.01)
 ;;58016047300
 ;;9002226.02101,"1038,58016047300 ",.02)
 ;;58016047300
 ;;9002226.02101,"1038,58016047312 ",.01)
 ;;58016047312
 ;;9002226.02101,"1038,58016047312 ",.02)
 ;;58016047312
 ;;9002226.02101,"1038,58016047315 ",.01)
 ;;58016047315
 ;;9002226.02101,"1038,58016047315 ",.02)
 ;;58016047315
 ;;9002226.02101,"1038,58016047320 ",.01)
 ;;58016047320
 ;;9002226.02101,"1038,58016047320 ",.02)
 ;;58016047320
 ;;9002226.02101,"1038,58016047324 ",.01)
 ;;58016047324
 ;;9002226.02101,"1038,58016047324 ",.02)
 ;;58016047324
 ;;9002226.02101,"1038,58016047330 ",.01)
 ;;58016047330
 ;;9002226.02101,"1038,58016047330 ",.02)
 ;;58016047330
 ;;9002226.02101,"1038,58016047390 ",.01)
 ;;58016047390
 ;;9002226.02101,"1038,58016047390 ",.02)
 ;;58016047390
 ;;9002226.02101,"1038,58016060300 ",.01)
 ;;58016060300
 ;;9002226.02101,"1038,58016060300 ",.02)
 ;;58016060300
 ;;9002226.02101,"1038,58016060312 ",.01)
 ;;58016060312
 ;;9002226.02101,"1038,58016060312 ",.02)
 ;;58016060312
 ;;9002226.02101,"1038,58016060315 ",.01)
 ;;58016060315
 ;;9002226.02101,"1038,58016060315 ",.02)
 ;;58016060315
 ;;9002226.02101,"1038,58016060320 ",.01)
 ;;58016060320
 ;;9002226.02101,"1038,58016060320 ",.02)
 ;;58016060320
 ;;9002226.02101,"1038,58016060324 ",.01)
 ;;58016060324
 ;;9002226.02101,"1038,58016060324 ",.02)
 ;;58016060324
 ;;9002226.02101,"1038,58016060330 ",.01)
 ;;58016060330
 ;;9002226.02101,"1038,58016060330 ",.02)
 ;;58016060330
 ;;9002226.02101,"1038,58016640401 ",.01)
 ;;58016640401
 ;;9002226.02101,"1038,58016640401 ",.02)
 ;;58016640401
 ;;9002226.02101,"1038,59772617501 ",.01)
 ;;59772617501
 ;;9002226.02101,"1038,59772617501 ",.02)
 ;;59772617501
 ;;9002226.02101,"1038,59772617502 ",.01)
 ;;59772617502
 ;;9002226.02101,"1038,59772617502 ",.02)
 ;;59772617502
 ;;9002226.02101,"1038,59930151005 ",.01)
 ;;59930151005
 ;;9002226.02101,"1038,59930151005 ",.02)
 ;;59930151005
 ;;9002226.02101,"1038,59930151701 ",.01)
 ;;59930151701
 ;;9002226.02101,"1038,59930151701 ",.02)
 ;;59930151701
 ;;9002226.02101,"1038,59930151702 ",.01)
 ;;59930151702
 ;;9002226.02101,"1038,59930151702 ",.02)
 ;;59930151702
 ;;9002226.02101,"1038,59930156001 ",.01)
 ;;59930156001
 ;;9002226.02101,"1038,59930156001 ",.02)
 ;;59930156001
 ;;9002226.02101,"1038,59930156002 ",.01)
 ;;59930156002
 ;;9002226.02101,"1038,59930156002 ",.02)
 ;;59930156002