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