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

BGPM5ACX.m

Go to the documentation of this file.
  1. BGPM5ACX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"846,54868524301 ",.02)
  1. ;;54868524301
  1. ;;9002226.02101,"846,54868524302 ",.01)
  1. ;;54868524302
  1. ;;9002226.02101,"846,54868524302 ",.02)
  1. ;;54868524302
  1. ;;9002226.02101,"846,54868524303 ",.01)
  1. ;;54868524303
  1. ;;9002226.02101,"846,54868524303 ",.02)
  1. ;;54868524303
  1. ;;9002226.02101,"846,54868524304 ",.01)
  1. ;;54868524304
  1. ;;9002226.02101,"846,54868524304 ",.02)
  1. ;;54868524304
  1. ;;9002226.02101,"846,54868536400 ",.01)
  1. ;;54868536400
  1. ;;9002226.02101,"846,54868536400 ",.02)
  1. ;;54868536400
  1. ;;9002226.02101,"846,54868536401 ",.01)
  1. ;;54868536401
  1. ;;9002226.02101,"846,54868536401 ",.02)
  1. ;;54868536401
  1. ;;9002226.02101,"846,54868536402 ",.01)
  1. ;;54868536402
  1. ;;9002226.02101,"846,54868536402 ",.02)
  1. ;;54868536402
  1. ;;9002226.02101,"846,54868545700 ",.01)
  1. ;;54868545700
  1. ;;9002226.02101,"846,54868545700 ",.02)
  1. ;;54868545700
  1. ;;9002226.02101,"846,54868545701 ",.01)
  1. ;;54868545701
  1. ;;9002226.02101,"846,54868545701 ",.02)
  1. ;;54868545701
  1. ;;9002226.02101,"846,54868545702 ",.01)
  1. ;;54868545702
  1. ;;9002226.02101,"846,54868545702 ",.02)
  1. ;;54868545702
  1. ;;9002226.02101,"846,54868546700 ",.01)
  1. ;;54868546700
  1. ;;9002226.02101,"846,54868546700 ",.02)
  1. ;;54868546700
  1. ;;9002226.02101,"846,54868546701 ",.01)
  1. ;;54868546701
  1. ;;9002226.02101,"846,54868546701 ",.02)
  1. ;;54868546701
  1. ;;9002226.02101,"846,54868546702 ",.01)
  1. ;;54868546702
  1. ;;9002226.02101,"846,54868546702 ",.02)
  1. ;;54868546702
  1. ;;9002226.02101,"846,54868571200 ",.01)
  1. ;;54868571200
  1. ;;9002226.02101,"846,54868571200 ",.02)
  1. ;;54868571200
  1. ;;9002226.02101,"846,54907042501 ",.01)
  1. ;;54907042501
  1. ;;9002226.02101,"846,54907042501 ",.02)
  1. ;;54907042501
  1. ;;9002226.02101,"846,54907042601 ",.01)
  1. ;;54907042601
  1. ;;9002226.02101,"846,54907042601 ",.02)
  1. ;;54907042601
  1. ;;9002226.02101,"846,54907042701 ",.01)
  1. ;;54907042701
  1. ;;9002226.02101,"846,54907042701 ",.02)
  1. ;;54907042701
  1. ;;9002226.02101,"846,55045121101 ",.01)
  1. ;;55045121101
  1. ;;9002226.02101,"846,55045121101 ",.02)
  1. ;;55045121101
  1. ;;9002226.02101,"846,55045156809 ",.01)
  1. ;;55045156809
  1. ;;9002226.02101,"846,55045156809 ",.02)
  1. ;;55045156809
  1. ;;9002226.02101,"846,55045213800 ",.01)
  1. ;;55045213800
  1. ;;9002226.02101,"846,55045213800 ",.02)
  1. ;;55045213800
  1. ;;9002226.02101,"846,55045213801 ",.01)
  1. ;;55045213801
  1. ;;9002226.02101,"846,55045213801 ",.02)
  1. ;;55045213801
  1. ;;9002226.02101,"846,55045213802 ",.01)
  1. ;;55045213802
  1. ;;9002226.02101,"846,55045213802 ",.02)
  1. ;;55045213802
  1. ;;9002226.02101,"846,55045213806 ",.01)
  1. ;;55045213806
  1. ;;9002226.02101,"846,55045213806 ",.02)
  1. ;;55045213806
  1. ;;9002226.02101,"846,55045213808 ",.01)
  1. ;;55045213808
  1. ;;9002226.02101,"846,55045213808 ",.02)
  1. ;;55045213808
  1. ;;9002226.02101,"846,55045226501 ",.01)
  1. ;;55045226501
  1. ;;9002226.02101,"846,55045226501 ",.02)
  1. ;;55045226501
  1. ;;9002226.02101,"846,55045226601 ",.01)
  1. ;;55045226601
  1. ;;9002226.02101,"846,55045226601 ",.02)
  1. ;;55045226601
  1. ;;9002226.02101,"846,55045226606 ",.01)
  1. ;;55045226606
  1. ;;9002226.02101,"846,55045226606 ",.02)
  1. ;;55045226606
  1. ;;9002226.02101,"846,55045226608 ",.01)
  1. ;;55045226608
  1. ;;9002226.02101,"846,55045226608 ",.02)
  1. ;;55045226608
  1. ;;9002226.02101,"846,55045226609 ",.01)
  1. ;;55045226609
  1. ;;9002226.02101,"846,55045226609 ",.02)
  1. ;;55045226609
  1. ;;9002226.02101,"846,55045226700 ",.01)
  1. ;;55045226700
  1. ;;9002226.02101,"846,55045226700 ",.02)
  1. ;;55045226700
  1. ;;9002226.02101,"846,55045226708 ",.01)
  1. ;;55045226708
  1. ;;9002226.02101,"846,55045226708 ",.02)
  1. ;;55045226708
  1. ;;9002226.02101,"846,55045232201 ",.01)
  1. ;;55045232201
  1. ;;9002226.02101,"846,55045232201 ",.02)
  1. ;;55045232201
  1. ;;9002226.02101,"846,55045232208 ",.01)
  1. ;;55045232208
  1. ;;9002226.02101,"846,55045232208 ",.02)
  1. ;;55045232208
  1. ;;9002226.02101,"846,55045261700 ",.01)
  1. ;;55045261700
  1. ;;9002226.02101,"846,55045261700 ",.02)
  1. ;;55045261700
  1. ;;9002226.02101,"846,55045330001 ",.01)
  1. ;;55045330001
  1. ;;9002226.02101,"846,55045330001 ",.02)
  1. ;;55045330001
  1. ;;9002226.02101,"846,55045360702 ",.01)
  1. ;;55045360702
  1. ;;9002226.02101,"846,55045360702 ",.02)
  1. ;;55045360702
  1. ;;9002226.02101,"846,55045361304 ",.01)
  1. ;;55045361304
  1. ;;9002226.02101,"846,55045361304 ",.02)
  1. ;;55045361304
  1. ;;9002226.02101,"846,55111032001 ",.01)
  1. ;;55111032001
  1. ;;9002226.02101,"846,55111032001 ",.02)
  1. ;;55111032001
  1. ;;9002226.02101,"846,55111032005 ",.01)
  1. ;;55111032005
  1. ;;9002226.02101,"846,55111032005 ",.02)
  1. ;;55111032005
  1. ;;9002226.02101,"846,55111032030 ",.01)
  1. ;;55111032030
  1. ;;9002226.02101,"846,55111032030 ",.02)
  1. ;;55111032030
  1. ;;9002226.02101,"846,55111032078 ",.01)
  1. ;;55111032078
  1. ;;9002226.02101,"846,55111032078 ",.02)
  1. ;;55111032078
  1. ;;9002226.02101,"846,55111032101 ",.01)
  1. ;;55111032101
  1. ;;9002226.02101,"846,55111032101 ",.02)
  1. ;;55111032101
  1. ;;9002226.02101,"846,55111032105 ",.01)
  1. ;;55111032105
  1. ;;9002226.02101,"846,55111032105 ",.02)
  1. ;;55111032105
  1. ;;9002226.02101,"846,55111032130 ",.01)
  1. ;;55111032130
  1. ;;9002226.02101,"846,55111032130 ",.02)
  1. ;;55111032130
  1. ;;9002226.02101,"846,55111032178 ",.01)
  1. ;;55111032178
  1. ;;9002226.02101,"846,55111032178 ",.02)
  1. ;;55111032178
  1. ;;9002226.02101,"846,55111032179 ",.01)
  1. ;;55111032179
  1. ;;9002226.02101,"846,55111032179 ",.02)
  1. ;;55111032179
  1. ;;9002226.02101,"846,55111032201 ",.01)
  1. ;;55111032201
  1. ;;9002226.02101,"846,55111032201 ",.02)
  1. ;;55111032201
  1. ;;9002226.02101,"846,55111032205 ",.01)
  1. ;;55111032205
  1. ;;9002226.02101,"846,55111032205 ",.02)
  1. ;;55111032205
  1. ;;9002226.02101,"846,55111032230 ",.01)
  1. ;;55111032230
  1. ;;9002226.02101,"846,55111032230 ",.02)
  1. ;;55111032230
  1. ;;9002226.02101,"846,55111032278 ",.01)
  1. ;;55111032278
  1. ;;9002226.02101,"846,55111032278 ",.02)
  1. ;;55111032278
  1. ;;9002226.02101,"846,55111032279 ",.01)
  1. ;;55111032279
  1. ;;9002226.02101,"846,55111032279 ",.02)
  1. ;;55111032279
  1. ;;9002226.02101,"846,55111069501 ",.01)
  1. ;;55111069501
  1. ;;9002226.02101,"846,55111069501 ",.02)
  1. ;;55111069501
  1. ;;9002226.02101,"846,55111069505 ",.01)
  1. ;;55111069505
  1. ;;9002226.02101,"846,55111069505 ",.02)
  1. ;;55111069505
  1. ;;9002226.02101,"846,55111069510 ",.01)
  1. ;;55111069510
  1. ;;9002226.02101,"846,55111069510 ",.02)
  1. ;;55111069510
  1. ;;9002226.02101,"846,55111069601 ",.01)
  1. ;;55111069601
  1. ;;9002226.02101,"846,55111069601 ",.02)
  1. ;;55111069601
  1. ;;9002226.02101,"846,55111069605 ",.01)
  1. ;;55111069605
  1. ;;9002226.02101,"846,55111069605 ",.02)
  1. ;;55111069605
  1. ;;9002226.02101,"846,55111069610 ",.01)
  1. ;;55111069610
  1. ;;9002226.02101,"846,55111069610 ",.02)
  1. ;;55111069610
  1. ;;9002226.02101,"846,55111069701 ",.01)
  1. ;;55111069701
  1. ;;9002226.02101,"846,55111069701 ",.02)
  1. ;;55111069701
  1. ;;9002226.02101,"846,55111069705 ",.01)
  1. ;;55111069705
  1. ;;9002226.02101,"846,55111069705 ",.02)
  1. ;;55111069705
  1. ;;9002226.02101,"846,55111069710 ",.01)
  1. ;;55111069710
  1. ;;9002226.02101,"846,55111069710 ",.02)
  1. ;;55111069710
  1. ;;9002226.02101,"846,55154053400 ",.01)
  1. ;;55154053400
  1. ;;9002226.02101,"846,55154053400 ",.02)
  1. ;;55154053400
  1. ;;9002226.02101,"846,55154053404 ",.01)
  1. ;;55154053404
  1. ;;9002226.02101,"846,55154053404 ",.02)
  1. ;;55154053404
  1. ;;9002226.02101,"846,55154053406 ",.01)
  1. ;;55154053406
  1. ;;9002226.02101,"846,55154053406 ",.02)
  1. ;;55154053406
  1. ;;9002226.02101,"846,55154317500 ",.01)
  1. ;;55154317500
  1. ;;9002226.02101,"846,55154317500 ",.02)
  1. ;;55154317500
  1. ;;9002226.02101,"846,55154317504 ",.01)
  1. ;;55154317504
  1. ;;9002226.02101,"846,55154317504 ",.02)
  1. ;;55154317504
  1. ;;9002226.02101,"846,55154317506 ",.01)
  1. ;;55154317506
  1. ;;9002226.02101,"846,55154317506 ",.02)
  1. ;;55154317506
  1. ;;9002226.02101,"846,55154455609 ",.01)
  1. ;;55154455609
  1. ;;9002226.02101,"846,55154455609 ",.02)
  1. ;;55154455609
  1. ;;9002226.02101,"846,55154455709 ",.01)
  1. ;;55154455709
  1. ;;9002226.02101,"846,55154455709 ",.02)
  1. ;;55154455709
  1. ;;9002226.02101,"846,55154507000 ",.01)
  1. ;;55154507000
  1. ;;9002226.02101,"846,55154507000 ",.02)
  1. ;;55154507000
  1. ;;9002226.02101,"846,55154522400 ",.01)
  1. ;;55154522400
  1. ;;9002226.02101,"846,55154522400 ",.02)
  1. ;;55154522400
  1. ;;9002226.02101,"846,55154522407 ",.01)
  1. ;;55154522407
  1. ;;9002226.02101,"846,55154522407 ",.02)
  1. ;;55154522407
  1. ;;9002226.02101,"846,55154547600 ",.01)
  1. ;;55154547600
  1. ;;9002226.02101,"846,55154547600 ",.02)
  1. ;;55154547600
  1. ;;9002226.02101,"846,55154547607 ",.01)
  1. ;;55154547607
  1. ;;9002226.02101,"846,55154547607 ",.02)
  1. ;;55154547607
  1. ;;9002226.02101,"846,55154558800 ",.01)
  1. ;;55154558800
  1. ;;9002226.02101,"846,55154558800 ",.02)
  1. ;;55154558800
  1. ;;9002226.02101,"846,55154566200 ",.01)
  1. ;;55154566200
  1. ;;9002226.02101,"846,55154566200 ",.02)
  1. ;;55154566200
  1. ;;9002226.02101,"846,55154599204 ",.01)
  1. ;;55154599204
  1. ;;9002226.02101,"846,55154599204 ",.02)
  1. ;;55154599204
  1. ;;9002226.02101,"846,55154599206 ",.01)
  1. ;;55154599206
  1. ;;9002226.02101,"846,55154599206 ",.02)
  1. ;;55154599206
  1. ;;9002226.02101,"846,55154619000 ",.01)
  1. ;;55154619000
  1. ;;9002226.02101,"846,55154619000 ",.02)
  1. ;;55154619000
  1. ;;9002226.02101,"846,55154619600 ",.01)
  1. ;;55154619600
  1. ;;9002226.02101,"846,55154619600 ",.02)
  1. ;;55154619600
  1. ;;9002226.02101,"846,55154622408 ",.01)
  1. ;;55154622408
  1. ;;9002226.02101,"846,55154622408 ",.02)
  1. ;;55154622408
  1. ;;9002226.02101,"846,55154622409 ",.01)
  1. ;;55154622409
  1. ;;9002226.02101,"846,55154622409 ",.02)
  1. ;;55154622409
  1. ;;9002226.02101,"846,55154623809 ",.01)
  1. ;;55154623809
  1. ;;9002226.02101,"846,55154623809 ",.02)
  1. ;;55154623809
  1. ;;9002226.02101,"846,55154827009 ",.01)
  1. ;;55154827009
  1. ;;9002226.02101,"846,55154827009 ",.02)
  1. ;;55154827009
  1. ;;9002226.02101,"846,55160012201 ",.01)
  1. ;;55160012201
  1. ;;9002226.02101,"846,55160012201 ",.02)
  1. ;;55160012201
  1. ;;9002226.02101,"846,55160012205 ",.01)
  1. ;;55160012205
  1. ;;9002226.02101,"846,55160012205 ",.02)
  1. ;;55160012205
  1. ;;9002226.02101,"846,55160012301 ",.01)
  1. ;;55160012301
  1. ;;9002226.02101,"846,55160012301 ",.02)
  1. ;;55160012301
  1. ;;9002226.02101,"846,55160012305 ",.01)
  1. ;;55160012305
  1. ;;9002226.02101,"846,55160012305 ",.02)
  1. ;;55160012305
  1. ;;9002226.02101,"846,55288124301 ",.01)
  1. ;;55288124301
  1. ;;9002226.02101,"846,55288124301 ",.02)
  1. ;;55288124301
  1. ;;9002226.02101,"846,55288125201 ",.01)
  1. ;;55288125201
  1. ;;9002226.02101,"846,55288125201 ",.02)
  1. ;;55288125201
  1. ;;9002226.02101,"846,55289006690 ",.01)
  1. ;;55289006690
  1. ;;9002226.02101,"846,55289006690 ",.02)
  1. ;;55289006690
  1. ;;9002226.02101,"846,55289006697 ",.01)
  1. ;;55289006697
  1. ;;9002226.02101,"846,55289006697 ",.02)
  1. ;;55289006697
  1. ;;9002226.02101,"846,55289018797 ",.01)
  1. ;;55289018797
  1. ;;9002226.02101,"846,55289018797 ",.02)
  1. ;;55289018797
  1. ;;9002226.02101,"846,55289026590 ",.01)
  1. ;;55289026590
  1. ;;9002226.02101,"846,55289026590 ",.02)
  1. ;;55289026590
  1. ;;9002226.02101,"846,55289028130 ",.01)
  1. ;;55289028130
  1. ;;9002226.02101,"846,55289028130 ",.02)
  1. ;;55289028130
  1. ;;9002226.02101,"846,55289028160 ",.01)
  1. ;;55289028160
  1. ;;9002226.02101,"846,55289028160 ",.02)
  1. ;;55289028160
  1. ;;9002226.02101,"846,55289028186 ",.01)
  1. ;;55289028186
  1. ;;9002226.02101,"846,55289028186 ",.02)
  1. ;;55289028186
  1. ;;9002226.02101,"846,55289028190 ",.01)
  1. ;;55289028190
  1. ;;9002226.02101,"846,55289028190 ",.02)
  1. ;;55289028190
  1. ;;9002226.02101,"846,55289030193 ",.01)
  1. ;;55289030193
  1. ;;9002226.02101,"846,55289030193 ",.02)
  1. ;;55289030193
  1. ;;9002226.02101,"846,55289060630 ",.01)
  1. ;;55289060630
  1. ;;9002226.02101,"846,55289060630 ",.02)
  1. ;;55289060630
  1. ;;9002226.02101,"846,55289060690 ",.01)
  1. ;;55289060690
  1. ;;9002226.02101,"846,55289060690 ",.02)
  1. ;;55289060690
  1. ;;9002226.02101,"846,55289077907 ",.01)
  1. ;;55289077907
  1. ;;9002226.02101,"846,55289077907 ",.02)
  1. ;;55289077907
  1. ;;9002226.02101,"846,55289080614 ",.01)
  1. ;;55289080614
  1. ;;9002226.02101,"846,55289080614 ",.02)
  1. ;;55289080614
  1. ;;9002226.02101,"846,55289080630 ",.01)
  1. ;;55289080630