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

BGPM5ACT.m

Go to the documentation of this file.
BGPM5ACT ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"846,43353026160 ",.02)
 ;;43353026160
 ;;9002226.02101,"846,43353036953 ",.01)
 ;;43353036953
 ;;9002226.02101,"846,43353036953 ",.02)
 ;;43353036953
 ;;9002226.02101,"846,43353036960 ",.01)
 ;;43353036960
 ;;9002226.02101,"846,43353036960 ",.02)
 ;;43353036960
 ;;9002226.02101,"846,43353036970 ",.01)
 ;;43353036970
 ;;9002226.02101,"846,43353036970 ",.02)
 ;;43353036970
 ;;9002226.02101,"846,43353036980 ",.01)
 ;;43353036980
 ;;9002226.02101,"846,43353036980 ",.02)
 ;;43353036980
 ;;9002226.02101,"846,43353036992 ",.01)
 ;;43353036992
 ;;9002226.02101,"846,43353036992 ",.02)
 ;;43353036992
 ;;9002226.02101,"846,43353036994 ",.01)
 ;;43353036994
 ;;9002226.02101,"846,43353036994 ",.02)
 ;;43353036994
 ;;9002226.02101,"846,43353037960 ",.01)
 ;;43353037960
 ;;9002226.02101,"846,43353037960 ",.02)
 ;;43353037960
 ;;9002226.02101,"846,43353037980 ",.01)
 ;;43353037980
 ;;9002226.02101,"846,43353037980 ",.02)
 ;;43353037980
 ;;9002226.02101,"846,43353058280 ",.01)
 ;;43353058280
 ;;9002226.02101,"846,43353058280 ",.02)
 ;;43353058280
 ;;9002226.02101,"846,43683012360 ",.01)
 ;;43683012360
 ;;9002226.02101,"846,43683012360 ",.02)
 ;;43683012360
 ;;9002226.02101,"846,43683012430 ",.01)
 ;;43683012430
 ;;9002226.02101,"846,43683012430 ",.02)
 ;;43683012430
 ;;9002226.02101,"846,43806003440 ",.01)
 ;;43806003440
 ;;9002226.02101,"846,43806003440 ",.02)
 ;;43806003440
 ;;9002226.02101,"846,43806003441 ",.01)
 ;;43806003441
 ;;9002226.02101,"846,43806003441 ",.02)
 ;;43806003441
 ;;9002226.02101,"846,43806003540 ",.01)
 ;;43806003540
 ;;9002226.02101,"846,43806003540 ",.02)
 ;;43806003540
 ;;9002226.02101,"846,43806003541 ",.01)
 ;;43806003541
 ;;9002226.02101,"846,43806003541 ",.02)
 ;;43806003541
 ;;9002226.02101,"846,43806003570 ",.01)
 ;;43806003570
 ;;9002226.02101,"846,43806003570 ",.02)
 ;;43806003570
 ;;9002226.02101,"846,43806003580 ",.01)
 ;;43806003580
 ;;9002226.02101,"846,43806003580 ",.02)
 ;;43806003580
 ;;9002226.02101,"846,43806003640 ",.01)
 ;;43806003640
 ;;9002226.02101,"846,43806003640 ",.02)
 ;;43806003640
 ;;9002226.02101,"846,43806034240 ",.01)
 ;;43806034240
 ;;9002226.02101,"846,43806034240 ",.02)
 ;;43806034240
 ;;9002226.02101,"846,43806034270 ",.01)
 ;;43806034270
 ;;9002226.02101,"846,43806034270 ",.02)
 ;;43806034270
 ;;9002226.02101,"846,43806034327 ",.01)
 ;;43806034327
 ;;9002226.02101,"846,43806034327 ",.02)
 ;;43806034327
 ;;9002226.02101,"846,43806034335 ",.01)
 ;;43806034335
 ;;9002226.02101,"846,43806034335 ",.02)
 ;;43806034335
 ;;9002226.02101,"846,43806034340 ",.01)
 ;;43806034340
 ;;9002226.02101,"846,43806034340 ",.02)
 ;;43806034340
 ;;9002226.02101,"846,43806034370 ",.01)
 ;;43806034370
 ;;9002226.02101,"846,43806034370 ",.02)
 ;;43806034370
 ;;9002226.02101,"846,43806034380 ",.01)
 ;;43806034380
 ;;9002226.02101,"846,43806034380 ",.02)
 ;;43806034380
 ;;9002226.02101,"846,43806034440 ",.01)
 ;;43806034440
 ;;9002226.02101,"846,43806034440 ",.02)
 ;;43806034440
 ;;9002226.02101,"846,43806034470 ",.01)
 ;;43806034470
 ;;9002226.02101,"846,43806034470 ",.02)
 ;;43806034470
 ;;9002226.02101,"846,43806034480 ",.01)
 ;;43806034480
 ;;9002226.02101,"846,43806034480 ",.02)
 ;;43806034480
 ;;9002226.02101,"846,43806052440 ",.01)
 ;;43806052440
 ;;9002226.02101,"846,43806052440 ",.02)
 ;;43806052440
 ;;9002226.02101,"846,43806052441 ",.01)
 ;;43806052441
 ;;9002226.02101,"846,43806052441 ",.02)
 ;;43806052441
 ;;9002226.02101,"846,43806052470 ",.01)
 ;;43806052470
 ;;9002226.02101,"846,43806052470 ",.02)
 ;;43806052470
 ;;9002226.02101,"846,43806052480 ",.01)
 ;;43806052480
 ;;9002226.02101,"846,43806052480 ",.02)
 ;;43806052480
 ;;9002226.02101,"846,43806052540 ",.01)
 ;;43806052540
 ;;9002226.02101,"846,43806052540 ",.02)
 ;;43806052540
 ;;9002226.02101,"846,43806052541 ",.01)
 ;;43806052541
 ;;9002226.02101,"846,43806052541 ",.02)
 ;;43806052541
 ;;9002226.02101,"846,43806052570 ",.01)
 ;;43806052570
 ;;9002226.02101,"846,43806052570 ",.02)
 ;;43806052570
 ;;9002226.02101,"846,43806052580 ",.01)
 ;;43806052580
 ;;9002226.02101,"846,43806052580 ",.02)
 ;;43806052580
 ;;9002226.02101,"846,44514038536 ",.01)
 ;;44514038536
 ;;9002226.02101,"846,44514038536 ",.02)
 ;;44514038536
 ;;9002226.02101,"846,45802077078 ",.01)
 ;;45802077078
 ;;9002226.02101,"846,45802077078 ",.02)
 ;;45802077078
 ;;9002226.02101,"846,45802077093 ",.01)
 ;;45802077093
 ;;9002226.02101,"846,45802077093 ",.02)
 ;;45802077093
 ;;9002226.02101,"846,45802082278 ",.01)
 ;;45802082278
 ;;9002226.02101,"846,45802082278 ",.02)
 ;;45802082278
 ;;9002226.02101,"846,45802082293 ",.01)
 ;;45802082293
 ;;9002226.02101,"846,45802082293 ",.02)
 ;;45802082293
 ;;9002226.02101,"846,45802094778 ",.01)
 ;;45802094778
 ;;9002226.02101,"846,45802094778 ",.02)
 ;;45802094778
 ;;9002226.02101,"846,45802094793 ",.01)
 ;;45802094793
 ;;9002226.02101,"846,45802094793 ",.02)
 ;;45802094793
 ;;9002226.02101,"846,49349003702 ",.01)
 ;;49349003702
 ;;9002226.02101,"846,49349003702 ",.02)
 ;;49349003702
 ;;9002226.02101,"846,49349009202 ",.01)
 ;;49349009202
 ;;9002226.02101,"846,49349009202 ",.02)
 ;;49349009202
 ;;9002226.02101,"846,49349009230 ",.01)
 ;;49349009230
 ;;9002226.02101,"846,49349009230 ",.02)
 ;;49349009230
 ;;9002226.02101,"846,49349017002 ",.01)
 ;;49349017002
 ;;9002226.02101,"846,49349017002 ",.02)
 ;;49349017002
 ;;9002226.02101,"846,49349017502 ",.01)
 ;;49349017502
 ;;9002226.02101,"846,49349017502 ",.02)
 ;;49349017502
 ;;9002226.02101,"846,49349022802 ",.01)
 ;;49349022802
 ;;9002226.02101,"846,49349022802 ",.02)
 ;;49349022802
 ;;9002226.02101,"846,49349027202 ",.01)
 ;;49349027202
 ;;9002226.02101,"846,49349027202 ",.02)
 ;;49349027202
 ;;9002226.02101,"846,49349071902 ",.01)
 ;;49349071902
 ;;9002226.02101,"846,49349071902 ",.02)
 ;;49349071902
 ;;9002226.02101,"846,49884084501 ",.01)
 ;;49884084501
 ;;9002226.02101,"846,49884084501 ",.02)
 ;;49884084501
 ;;9002226.02101,"846,49884084510 ",.01)
 ;;49884084510
 ;;9002226.02101,"846,49884084510 ",.02)
 ;;49884084510
 ;;9002226.02101,"846,49884084601 ",.01)
 ;;49884084601
 ;;9002226.02101,"846,49884084601 ",.02)
 ;;49884084601
 ;;9002226.02101,"846,49884084610 ",.01)
 ;;49884084610
 ;;9002226.02101,"846,49884084610 ",.02)
 ;;49884084610
 ;;9002226.02101,"846,49884084701 ",.01)
 ;;49884084701
 ;;9002226.02101,"846,49884084701 ",.02)
 ;;49884084701
 ;;9002226.02101,"846,49884084710 ",.01)
 ;;49884084710
 ;;9002226.02101,"846,49884084710 ",.02)
 ;;49884084710
 ;;9002226.02101,"846,49999010700 ",.01)
 ;;49999010700
 ;;9002226.02101,"846,49999010700 ",.02)
 ;;49999010700
 ;;9002226.02101,"846,49999010720 ",.01)
 ;;49999010720
 ;;9002226.02101,"846,49999010720 ",.02)
 ;;49999010720
 ;;9002226.02101,"846,49999010730 ",.01)
 ;;49999010730
 ;;9002226.02101,"846,49999010730 ",.02)
 ;;49999010730
 ;;9002226.02101,"846,49999010760 ",.01)
 ;;49999010760
 ;;9002226.02101,"846,49999010760 ",.02)
 ;;49999010760
 ;;9002226.02101,"846,49999010790 ",.01)
 ;;49999010790
 ;;9002226.02101,"846,49999010790 ",.02)
 ;;49999010790
 ;;9002226.02101,"846,49999010800 ",.01)
 ;;49999010800
 ;;9002226.02101,"846,49999010800 ",.02)
 ;;49999010800
 ;;9002226.02101,"846,49999010830 ",.01)
 ;;49999010830
 ;;9002226.02101,"846,49999010830 ",.02)
 ;;49999010830
 ;;9002226.02101,"846,49999010860 ",.01)
 ;;49999010860
 ;;9002226.02101,"846,49999010860 ",.02)
 ;;49999010860
 ;;9002226.02101,"846,49999011300 ",.01)
 ;;49999011300
 ;;9002226.02101,"846,49999011300 ",.02)
 ;;49999011300
 ;;9002226.02101,"846,49999011301 ",.01)
 ;;49999011301
 ;;9002226.02101,"846,49999011301 ",.02)
 ;;49999011301
 ;;9002226.02101,"846,49999011330 ",.01)
 ;;49999011330
 ;;9002226.02101,"846,49999011330 ",.02)
 ;;49999011330
 ;;9002226.02101,"846,49999011360 ",.01)
 ;;49999011360
 ;;9002226.02101,"846,49999011360 ",.02)
 ;;49999011360
 ;;9002226.02101,"846,49999011390 ",.01)
 ;;49999011390
 ;;9002226.02101,"846,49999011390 ",.02)
 ;;49999011390
 ;;9002226.02101,"846,49999040130 ",.01)
 ;;49999040130
 ;;9002226.02101,"846,49999040130 ",.02)
 ;;49999040130
 ;;9002226.02101,"846,49999040160 ",.01)
 ;;49999040160
 ;;9002226.02101,"846,49999040160 ",.02)
 ;;49999040160
 ;;9002226.02101,"846,49999051430 ",.01)
 ;;49999051430
 ;;9002226.02101,"846,49999051430 ",.02)
 ;;49999051430
 ;;9002226.02101,"846,49999057160 ",.01)
 ;;49999057160
 ;;9002226.02101,"846,49999057160 ",.02)
 ;;49999057160
 ;;9002226.02101,"846,49999078100 ",.01)
 ;;49999078100
 ;;9002226.02101,"846,49999078100 ",.02)
 ;;49999078100
 ;;9002226.02101,"846,49999080700 ",.01)
 ;;49999080700
 ;;9002226.02101,"846,49999080700 ",.02)
 ;;49999080700
 ;;9002226.02101,"846,49999080800 ",.01)
 ;;49999080800
 ;;9002226.02101,"846,49999080800 ",.02)
 ;;49999080800
 ;;9002226.02101,"846,50053312701 ",.01)
 ;;50053312701
 ;;9002226.02101,"846,50053312701 ",.02)
 ;;50053312701
 ;;9002226.02101,"846,50053312703 ",.01)
 ;;50053312703
 ;;9002226.02101,"846,50053312703 ",.02)
 ;;50053312703
 ;;9002226.02101,"846,50111037201 ",.01)
 ;;50111037201
 ;;9002226.02101,"846,50111037201 ",.02)
 ;;50111037201
 ;;9002226.02101,"846,50111037202 ",.01)
 ;;50111037202
 ;;9002226.02101,"846,50111037202 ",.02)
 ;;50111037202
 ;;9002226.02101,"846,50111037203 ",.01)
 ;;50111037203
 ;;9002226.02101,"846,50111037203 ",.02)
 ;;50111037203
 ;;9002226.02101,"846,50111037301 ",.01)
 ;;50111037301
 ;;9002226.02101,"846,50111037301 ",.02)
 ;;50111037301
 ;;9002226.02101,"846,50111037302 ",.01)
 ;;50111037302
 ;;9002226.02101,"846,50111037302 ",.02)
 ;;50111037302
 ;;9002226.02101,"846,50111037303 ",.01)
 ;;50111037303
 ;;9002226.02101,"846,50111037303 ",.02)
 ;;50111037303
 ;;9002226.02101,"846,50111037306 ",.01)
 ;;50111037306
 ;;9002226.02101,"846,50111037306 ",.02)
 ;;50111037306
 ;;9002226.02101,"846,51079020220 ",.01)
 ;;51079020220
 ;;9002226.02101,"846,51079020220 ",.02)
 ;;51079020220
 ;;9002226.02101,"846,51079020320 ",.01)
 ;;51079020320
 ;;9002226.02101,"846,51079020320 ",.02)
 ;;51079020320
 ;;9002226.02101,"846,51079042501 ",.01)
 ;;51079042501
 ;;9002226.02101,"846,51079042501 ",.02)
 ;;51079042501
 ;;9002226.02101,"846,51079042520 ",.01)
 ;;51079042520
 ;;9002226.02101,"846,51079042520 ",.02)
 ;;51079042520
 ;;9002226.02101,"846,51079042601 ",.01)
 ;;51079042601
 ;;9002226.02101,"846,51079042601 ",.02)
 ;;51079042601
 ;;9002226.02101,"846,51079042620 ",.01)
 ;;51079042620
 ;;9002226.02101,"846,51079042620 ",.02)
 ;;51079042620
 ;;9002226.02101,"846,51079056020 ",.01)
 ;;51079056020
 ;;9002226.02101,"846,51079056020 ",.02)
 ;;51079056020
 ;;9002226.02101,"846,51079081001 ",.01)
 ;;51079081001
 ;;9002226.02101,"846,51079081001 ",.02)
 ;;51079081001
 ;;9002226.02101,"846,51079081017 ",.01)
 ;;51079081017
 ;;9002226.02101,"846,51079081017 ",.02)
 ;;51079081017
 ;;9002226.02101,"846,51079081019 ",.01)
 ;;51079081019
 ;;9002226.02101,"846,51079081019 ",.02)
 ;;51079081019
 ;;9002226.02101,"846,51079081020 ",.01)
 ;;51079081020
 ;;9002226.02101,"846,51079081020 ",.02)
 ;;51079081020
 ;;9002226.02101,"846,51079081101 ",.01)
 ;;51079081101
 ;;9002226.02101,"846,51079081101 ",.02)
 ;;51079081101
 ;;9002226.02101,"846,51079081117 ",.01)
 ;;51079081117
 ;;9002226.02101,"846,51079081117 ",.02)
 ;;51079081117
 ;;9002226.02101,"846,51079081119 ",.01)
 ;;51079081119
 ;;9002226.02101,"846,51079081119 ",.02)
 ;;51079081119
 ;;9002226.02101,"846,51079081120 ",.01)
 ;;51079081120
 ;;9002226.02101,"846,51079081120 ",.02)
 ;;51079081120
 ;;9002226.02101,"846,51079087201 ",.01)
 ;;51079087201