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

BGPM5AVJ.m

Go to the documentation of this file.
BGPM5AVJ ;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,55154546600 ",.01)
 ;;55154546600
 ;;9002226.02101,"1033,55154546600 ",.02)
 ;;55154546600
 ;;9002226.02101,"1033,55154552200 ",.01)
 ;;55154552200
 ;;9002226.02101,"1033,55154552200 ",.02)
 ;;55154552200
 ;;9002226.02101,"1033,55154552207 ",.01)
 ;;55154552207
 ;;9002226.02101,"1033,55154552207 ",.02)
 ;;55154552207
 ;;9002226.02101,"1033,55154554600 ",.01)
 ;;55154554600
 ;;9002226.02101,"1033,55154554600 ",.02)
 ;;55154554600
 ;;9002226.02101,"1033,55154554607 ",.01)
 ;;55154554607
 ;;9002226.02101,"1033,55154554607 ",.02)
 ;;55154554607
 ;;9002226.02101,"1033,55154558600 ",.01)
 ;;55154558600
 ;;9002226.02101,"1033,55154558600 ",.02)
 ;;55154558600
 ;;9002226.02101,"1033,55154567000 ",.01)
 ;;55154567000
 ;;9002226.02101,"1033,55154567000 ",.02)
 ;;55154567000
 ;;9002226.02101,"1033,55154567400 ",.01)
 ;;55154567400
 ;;9002226.02101,"1033,55154567400 ",.02)
 ;;55154567400
 ;;9002226.02101,"1033,55154575905 ",.01)
 ;;55154575905
 ;;9002226.02101,"1033,55154575905 ",.02)
 ;;55154575905
 ;;9002226.02101,"1033,55154585100 ",.01)
 ;;55154585100
 ;;9002226.02101,"1033,55154585100 ",.02)
 ;;55154585100
 ;;9002226.02101,"1033,55154585200 ",.01)
 ;;55154585200
 ;;9002226.02101,"1033,55154585200 ",.02)
 ;;55154585200
 ;;9002226.02101,"1033,55154585300 ",.01)
 ;;55154585300
 ;;9002226.02101,"1033,55154585300 ",.02)
 ;;55154585300
 ;;9002226.02101,"1033,55154616409 ",.01)
 ;;55154616409
 ;;9002226.02101,"1033,55154616409 ",.02)
 ;;55154616409
 ;;9002226.02101,"1033,55154617209 ",.01)
 ;;55154617209
 ;;9002226.02101,"1033,55154617209 ",.02)
 ;;55154617209
 ;;9002226.02101,"1033,55154617700 ",.01)
 ;;55154617700
 ;;9002226.02101,"1033,55154617700 ",.02)
 ;;55154617700
 ;;9002226.02101,"1033,55154617900 ",.01)
 ;;55154617900
 ;;9002226.02101,"1033,55154617900 ",.02)
 ;;55154617900
 ;;9002226.02101,"1033,55154618700 ",.01)
 ;;55154618700
 ;;9002226.02101,"1033,55154618700 ",.02)
 ;;55154618700
 ;;9002226.02101,"1033,55154634500 ",.01)
 ;;55154634500
 ;;9002226.02101,"1033,55154634500 ",.02)
 ;;55154634500
 ;;9002226.02101,"1033,55154685005 ",.01)
 ;;55154685005
 ;;9002226.02101,"1033,55154685005 ",.02)
 ;;55154685005
 ;;9002226.02101,"1033,55154695305 ",.01)
 ;;55154695305
 ;;9002226.02101,"1033,55154695305 ",.02)
 ;;55154695305
 ;;9002226.02101,"1033,55154695405 ",.01)
 ;;55154695405
 ;;9002226.02101,"1033,55154695405 ",.02)
 ;;55154695405
 ;;9002226.02101,"1033,55154695605 ",.01)
 ;;55154695605
 ;;9002226.02101,"1033,55154695605 ",.02)
 ;;55154695605
 ;;9002226.02101,"1033,55154695705 ",.01)
 ;;55154695705
 ;;9002226.02101,"1033,55154695705 ",.02)
 ;;55154695705
 ;;9002226.02101,"1033,55154695805 ",.01)
 ;;55154695805
 ;;9002226.02101,"1033,55154695805 ",.02)
 ;;55154695805
 ;;9002226.02101,"1033,55154696205 ",.01)
 ;;55154696205
 ;;9002226.02101,"1033,55154696205 ",.02)
 ;;55154696205
 ;;9002226.02101,"1033,55154696500 ",.01)
 ;;55154696500
 ;;9002226.02101,"1033,55154696500 ",.02)
 ;;55154696500
 ;;9002226.02101,"1033,55154696504 ",.01)
 ;;55154696504
 ;;9002226.02101,"1033,55154696504 ",.02)
 ;;55154696504
 ;;9002226.02101,"1033,55154696506 ",.01)
 ;;55154696506
 ;;9002226.02101,"1033,55154696506 ",.02)
 ;;55154696506
 ;;9002226.02101,"1033,55154746902 ",.01)
 ;;55154746902
 ;;9002226.02101,"1033,55154746902 ",.02)
 ;;55154746902
 ;;9002226.02101,"1033,55154746909 ",.01)
 ;;55154746909
 ;;9002226.02101,"1033,55154746909 ",.02)
 ;;55154746909
 ;;9002226.02101,"1033,55154760305 ",.01)
 ;;55154760305
 ;;9002226.02101,"1033,55154760305 ",.02)
 ;;55154760305
 ;;9002226.02101,"1033,55154760307 ",.01)
 ;;55154760307
 ;;9002226.02101,"1033,55154760307 ",.02)
 ;;55154760307
 ;;9002226.02101,"1033,55154760605 ",.01)
 ;;55154760605
 ;;9002226.02101,"1033,55154760605 ",.02)
 ;;55154760605
 ;;9002226.02101,"1033,55154760705 ",.01)
 ;;55154760705
 ;;9002226.02101,"1033,55154760705 ",.02)
 ;;55154760705
 ;;9002226.02101,"1033,55154827700 ",.01)
 ;;55154827700
 ;;9002226.02101,"1033,55154827700 ",.02)
 ;;55154827700
 ;;9002226.02101,"1033,55154827800 ",.01)
 ;;55154827800
 ;;9002226.02101,"1033,55154827800 ",.02)
 ;;55154827800
 ;;9002226.02101,"1033,55154937905 ",.01)
 ;;55154937905
 ;;9002226.02101,"1033,55154937905 ",.02)
 ;;55154937905
 ;;9002226.02101,"1033,55154938105 ",.01)
 ;;55154938105
 ;;9002226.02101,"1033,55154938105 ",.02)
 ;;55154938105
 ;;9002226.02101,"1033,55154938505 ",.01)
 ;;55154938505
 ;;9002226.02101,"1033,55154938505 ",.02)
 ;;55154938505
 ;;9002226.02101,"1033,55154947500 ",.01)
 ;;55154947500
 ;;9002226.02101,"1033,55154947500 ",.02)
 ;;55154947500
 ;;9002226.02101,"1033,55154947504 ",.01)
 ;;55154947504
 ;;9002226.02101,"1033,55154947504 ",.02)
 ;;55154947504
 ;;9002226.02101,"1033,55154947506 ",.01)
 ;;55154947506
 ;;9002226.02101,"1033,55154947506 ",.02)
 ;;55154947506
 ;;9002226.02101,"1033,55154947609 ",.01)
 ;;55154947609
 ;;9002226.02101,"1033,55154947609 ",.02)
 ;;55154947609
 ;;9002226.02101,"1033,55154955505 ",.01)
 ;;55154955505
 ;;9002226.02101,"1033,55154955505 ",.02)
 ;;55154955505
 ;;9002226.02101,"1033,55154955905 ",.01)
 ;;55154955905
 ;;9002226.02101,"1033,55154955905 ",.02)
 ;;55154955905
 ;;9002226.02101,"1033,55175274601 ",.01)
 ;;55175274601
 ;;9002226.02101,"1033,55175274601 ",.02)
 ;;55175274601
 ;;9002226.02101,"1033,55190023224 ",.01)
 ;;55190023224
 ;;9002226.02101,"1033,55190023224 ",.02)
 ;;55190023224
 ;;9002226.02101,"1033,55190023230 ",.01)
 ;;55190023230
 ;;9002226.02101,"1033,55190023230 ",.02)
 ;;55190023230
 ;;9002226.02101,"1033,55190040224 ",.01)
 ;;55190040224
 ;;9002226.02101,"1033,55190040224 ",.02)
 ;;55190040224
 ;;9002226.02101,"1033,55190040230 ",.01)
 ;;55190040230
 ;;9002226.02101,"1033,55190040230 ",.02)
 ;;55190040230
 ;;9002226.02101,"1033,55190040424 ",.01)
 ;;55190040424
 ;;9002226.02101,"1033,55190040424 ",.02)
 ;;55190040424
 ;;9002226.02101,"1033,55190040430 ",.01)
 ;;55190040430
 ;;9002226.02101,"1033,55190040430 ",.02)
 ;;55190040430
 ;;9002226.02101,"1033,55190046017 ",.01)
 ;;55190046017
 ;;9002226.02101,"1033,55190046017 ",.02)
 ;;55190046017
 ;;9002226.02101,"1033,55190046020 ",.01)
 ;;55190046020
 ;;9002226.02101,"1033,55190046020 ",.02)
 ;;55190046020
 ;;9002226.02101,"1033,55190046117 ",.01)
 ;;55190046117
 ;;9002226.02101,"1033,55190046117 ",.02)
 ;;55190046117
 ;;9002226.02101,"1033,55190046120 ",.01)
 ;;55190046120
 ;;9002226.02101,"1033,55190046120 ",.02)
 ;;55190046120
 ;;9002226.02101,"1033,55190048817 ",.01)
 ;;55190048817
 ;;9002226.02101,"1033,55190048817 ",.02)
 ;;55190048817
 ;;9002226.02101,"1033,55190048820 ",.01)
 ;;55190048820
 ;;9002226.02101,"1033,55190048820 ",.02)
 ;;55190048820
 ;;9002226.02101,"1033,55190048917 ",.01)
 ;;55190048917
 ;;9002226.02101,"1033,55190048917 ",.02)
 ;;55190048917
 ;;9002226.02101,"1033,55190048920 ",.01)
 ;;55190048920
 ;;9002226.02101,"1033,55190048920 ",.02)
 ;;55190048920
 ;;9002226.02101,"1033,55190050016 ",.01)
 ;;55190050016
 ;;9002226.02101,"1033,55190050016 ",.02)
 ;;55190050016
 ;;9002226.02101,"1033,55190050017 ",.01)
 ;;55190050017
 ;;9002226.02101,"1033,55190050017 ",.02)
 ;;55190050017
 ;;9002226.02101,"1033,55190050018 ",.01)
 ;;55190050018
 ;;9002226.02101,"1033,55190050018 ",.02)
 ;;55190050018
 ;;9002226.02101,"1033,55190050020 ",.01)
 ;;55190050020
 ;;9002226.02101,"1033,55190050020 ",.02)
 ;;55190050020
 ;;9002226.02101,"1033,55190050116 ",.01)
 ;;55190050116
 ;;9002226.02101,"1033,55190050116 ",.02)
 ;;55190050116
 ;;9002226.02101,"1033,55190050117 ",.01)
 ;;55190050117
 ;;9002226.02101,"1033,55190050117 ",.02)
 ;;55190050117
 ;;9002226.02101,"1033,55190050118 ",.01)
 ;;55190050118
 ;;9002226.02101,"1033,55190050118 ",.02)
 ;;55190050118
 ;;9002226.02101,"1033,55190050120 ",.01)
 ;;55190050120
 ;;9002226.02101,"1033,55190050120 ",.02)
 ;;55190050120
 ;;9002226.02101,"1033,55190064814 ",.01)
 ;;55190064814
 ;;9002226.02101,"1033,55190064814 ",.02)
 ;;55190064814
 ;;9002226.02101,"1033,55190064815 ",.01)
 ;;55190064815
 ;;9002226.02101,"1033,55190064815 ",.02)
 ;;55190064815
 ;;9002226.02101,"1033,55190064816 ",.01)
 ;;55190064816
 ;;9002226.02101,"1033,55190064816 ",.02)
 ;;55190064816
 ;;9002226.02101,"1033,55190064824 ",.01)
 ;;55190064824
 ;;9002226.02101,"1033,55190064824 ",.02)
 ;;55190064824
 ;;9002226.02101,"1033,55190064832 ",.01)
 ;;55190064832
 ;;9002226.02101,"1033,55190064832 ",.02)
 ;;55190064832
 ;;9002226.02101,"1033,55190067315 ",.01)
 ;;55190067315
 ;;9002226.02101,"1033,55190067315 ",.02)
 ;;55190067315
 ;;9002226.02101,"1033,55190067316 ",.01)
 ;;55190067316
 ;;9002226.02101,"1033,55190067316 ",.02)
 ;;55190067316
 ;;9002226.02101,"1033,55190067324 ",.01)
 ;;55190067324
 ;;9002226.02101,"1033,55190067324 ",.02)
 ;;55190067324
 ;;9002226.02101,"1033,55190067330 ",.01)
 ;;55190067330
 ;;9002226.02101,"1033,55190067330 ",.02)
 ;;55190067330
 ;;9002226.02101,"1033,55190073024 ",.01)
 ;;55190073024
 ;;9002226.02101,"1033,55190073024 ",.02)
 ;;55190073024
 ;;9002226.02101,"1033,55190073030 ",.01)
 ;;55190073030
 ;;9002226.02101,"1033,55190073030 ",.02)
 ;;55190073030
 ;;9002226.02101,"1033,55190073124 ",.01)
 ;;55190073124
 ;;9002226.02101,"1033,55190073124 ",.02)
 ;;55190073124
 ;;9002226.02101,"1033,55190073130 ",.01)
 ;;55190073130
 ;;9002226.02101,"1033,55190073130 ",.02)
 ;;55190073130
 ;;9002226.02101,"1033,55288123601 ",.01)
 ;;55288123601
 ;;9002226.02101,"1033,55288123601 ",.02)
 ;;55288123601
 ;;9002226.02101,"1033,55288123701 ",.01)
 ;;55288123701
 ;;9002226.02101,"1033,55288123701 ",.02)
 ;;55288123701
 ;;9002226.02101,"1033,55288124401 ",.01)
 ;;55288124401
 ;;9002226.02101,"1033,55288124401 ",.02)
 ;;55288124401
 ;;9002226.02101,"1033,55288124501 ",.01)
 ;;55288124501
 ;;9002226.02101,"1033,55288124501 ",.02)
 ;;55288124501
 ;;9002226.02101,"1033,55288124601 ",.01)
 ;;55288124601
 ;;9002226.02101,"1033,55288124601 ",.02)
 ;;55288124601
 ;;9002226.02101,"1033,55288124901 ",.01)
 ;;55288124901
 ;;9002226.02101,"1033,55288124901 ",.02)
 ;;55288124901
 ;;9002226.02101,"1033,55288126501 ",.01)
 ;;55288126501
 ;;9002226.02101,"1033,55288126501 ",.02)
 ;;55288126501
 ;;9002226.02101,"1033,55288126601 ",.01)
 ;;55288126601
 ;;9002226.02101,"1033,55288126601 ",.02)
 ;;55288126601
 ;;9002226.02101,"1033,55289001901 ",.01)
 ;;55289001901
 ;;9002226.02101,"1033,55289001901 ",.02)
 ;;55289001901
 ;;9002226.02101,"1033,55289001906 ",.01)
 ;;55289001906
 ;;9002226.02101,"1033,55289001906 ",.02)
 ;;55289001906
 ;;9002226.02101,"1033,55289001915 ",.01)
 ;;55289001915
 ;;9002226.02101,"1033,55289001915 ",.02)
 ;;55289001915
 ;;9002226.02101,"1033,55289001921 ",.01)
 ;;55289001921
 ;;9002226.02101,"1033,55289001921 ",.02)
 ;;55289001921
 ;;9002226.02101,"1033,55289001924 ",.01)
 ;;55289001924
 ;;9002226.02101,"1033,55289001924 ",.02)
 ;;55289001924
 ;;9002226.02101,"1033,55289001930 ",.01)
 ;;55289001930
 ;;9002226.02101,"1033,55289001930 ",.02)
 ;;55289001930
 ;;9002226.02101,"1033,55289001940 ",.01)
 ;;55289001940
 ;;9002226.02101,"1033,55289001940 ",.02)
 ;;55289001940
 ;;9002226.02101,"1033,55289001960 ",.01)
 ;;55289001960
 ;;9002226.02101,"1033,55289001960 ",.02)
 ;;55289001960
 ;;9002226.02101,"1033,55289001997 ",.01)
 ;;55289001997
 ;;9002226.02101,"1033,55289001997 ",.02)
 ;;55289001997
 ;;9002226.02101,"1033,55289002004 ",.01)
 ;;55289002004
 ;;9002226.02101,"1033,55289002004 ",.02)
 ;;55289002004
 ;;9002226.02101,"1033,55289002006 ",.01)
 ;;55289002006
 ;;9002226.02101,"1033,55289002006 ",.02)
 ;;55289002006
 ;;9002226.02101,"1033,55289002009 ",.01)
 ;;55289002009