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

BGPM5AKH.m

Go to the documentation of this file.
BGPM5AKH ;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,"889,66105099415 ",.01)
 ;;66105099415
 ;;9002226.02101,"889,66105099415 ",.02)
 ;;66105099415
 ;;9002226.02101,"889,66105099510 ",.01)
 ;;66105099510
 ;;9002226.02101,"889,66105099510 ",.02)
 ;;66105099510
 ;;9002226.02101,"889,66105099603 ",.01)
 ;;66105099603
 ;;9002226.02101,"889,66105099603 ",.02)
 ;;66105099603
 ;;9002226.02101,"889,66105099606 ",.01)
 ;;66105099606
 ;;9002226.02101,"889,66105099606 ",.02)
 ;;66105099606
 ;;9002226.02101,"889,66105099610 ",.01)
 ;;66105099610
 ;;9002226.02101,"889,66105099610 ",.02)
 ;;66105099610
 ;;9002226.02101,"889,66105099611 ",.01)
 ;;66105099611
 ;;9002226.02101,"889,66105099611 ",.02)
 ;;66105099611
 ;;9002226.02101,"889,66105099615 ",.01)
 ;;66105099615
 ;;9002226.02101,"889,66105099615 ",.02)
 ;;66105099615
 ;;9002226.02101,"889,66105099710 ",.01)
 ;;66105099710
 ;;9002226.02101,"889,66105099710 ",.02)
 ;;66105099710
 ;;9002226.02101,"889,66112012101 ",.01)
 ;;66112012101
 ;;9002226.02101,"889,66112012101 ",.02)
 ;;66112012101
 ;;9002226.02101,"889,66112012201 ",.01)
 ;;66112012201
 ;;9002226.02101,"889,66112012201 ",.02)
 ;;66112012201
 ;;9002226.02101,"889,66112012301 ",.01)
 ;;66112012301
 ;;9002226.02101,"889,66112012301 ",.02)
 ;;66112012301
 ;;9002226.02101,"889,66112012401 ",.01)
 ;;66112012401
 ;;9002226.02101,"889,66112012401 ",.02)
 ;;66112012401
 ;;9002226.02101,"889,66112012501 ",.01)
 ;;66112012501
 ;;9002226.02101,"889,66112012501 ",.02)
 ;;66112012501
 ;;9002226.02101,"889,66112013103 ",.01)
 ;;66112013103
 ;;9002226.02101,"889,66112013103 ",.02)
 ;;66112013103
 ;;9002226.02101,"889,66112013203 ",.01)
 ;;66112013203
 ;;9002226.02101,"889,66112013203 ",.02)
 ;;66112013203
 ;;9002226.02101,"889,66112013303 ",.01)
 ;;66112013303
 ;;9002226.02101,"889,66112013303 ",.02)
 ;;66112013303
 ;;9002226.02101,"889,66116023930 ",.01)
 ;;66116023930
 ;;9002226.02101,"889,66116023930 ",.02)
 ;;66116023930
 ;;9002226.02101,"889,66116032860 ",.01)
 ;;66116032860
 ;;9002226.02101,"889,66116032860 ",.02)
 ;;66116032860
 ;;9002226.02101,"889,66116033230 ",.01)
 ;;66116033230
 ;;9002226.02101,"889,66116033230 ",.02)
 ;;66116033230
 ;;9002226.02101,"889,66116033630 ",.01)
 ;;66116033630
 ;;9002226.02101,"889,66116033630 ",.02)
 ;;66116033630
 ;;9002226.02101,"889,66116035130 ",.01)
 ;;66116035130
 ;;9002226.02101,"889,66116035130 ",.02)
 ;;66116035130
 ;;9002226.02101,"889,66116042130 ",.01)
 ;;66116042130
 ;;9002226.02101,"889,66116042130 ",.02)
 ;;66116042130
 ;;9002226.02101,"889,66116071630 ",.01)
 ;;66116071630
 ;;9002226.02101,"889,66116071630 ",.02)
 ;;66116071630
 ;;9002226.02101,"889,66116078430 ",.01)
 ;;66116078430
 ;;9002226.02101,"889,66116078430 ",.02)
 ;;66116078430
 ;;9002226.02101,"889,66116080960 ",.01)
 ;;66116080960
 ;;9002226.02101,"889,66116080960 ",.02)
 ;;66116080960
 ;;9002226.02101,"889,66116081060 ",.01)
 ;;66116081060
 ;;9002226.02101,"889,66116081060 ",.02)
 ;;66116081060
 ;;9002226.02101,"889,66116082330 ",.01)
 ;;66116082330
 ;;9002226.02101,"889,66116082330 ",.02)
 ;;66116082330
 ;;9002226.02101,"889,66116083960 ",.01)
 ;;66116083960
 ;;9002226.02101,"889,66116083960 ",.02)
 ;;66116083960
 ;;9002226.02101,"889,66116084160 ",.01)
 ;;66116084160
 ;;9002226.02101,"889,66116084160 ",.02)
 ;;66116084160
 ;;9002226.02101,"889,66116084630 ",.01)
 ;;66116084630
 ;;9002226.02101,"889,66116084630 ",.02)
 ;;66116084630
 ;;9002226.02101,"889,66116087330 ",.01)
 ;;66116087330
 ;;9002226.02101,"889,66116087330 ",.02)
 ;;66116087330
 ;;9002226.02101,"889,66116087730 ",.01)
 ;;66116087730
 ;;9002226.02101,"889,66116087730 ",.02)
 ;;66116087730
 ;;9002226.02101,"889,66267002930 ",.01)
 ;;66267002930
 ;;9002226.02101,"889,66267002930 ",.02)
 ;;66267002930
 ;;9002226.02101,"889,66267002960 ",.01)
 ;;66267002960
 ;;9002226.02101,"889,66267002960 ",.02)
 ;;66267002960
 ;;9002226.02101,"889,66267002990 ",.01)
 ;;66267002990
 ;;9002226.02101,"889,66267002990 ",.02)
 ;;66267002990
 ;;9002226.02101,"889,66267002991 ",.01)
 ;;66267002991
 ;;9002226.02101,"889,66267002991 ",.02)
 ;;66267002991
 ;;9002226.02101,"889,66267002992 ",.01)
 ;;66267002992
 ;;9002226.02101,"889,66267002992 ",.02)
 ;;66267002992
 ;;9002226.02101,"889,66267003020 ",.01)
 ;;66267003020
 ;;9002226.02101,"889,66267003020 ",.02)
 ;;66267003020
 ;;9002226.02101,"889,66267003030 ",.01)
 ;;66267003030
 ;;9002226.02101,"889,66267003030 ",.02)
 ;;66267003030
 ;;9002226.02101,"889,66267003040 ",.01)
 ;;66267003040
 ;;9002226.02101,"889,66267003040 ",.02)
 ;;66267003040
 ;;9002226.02101,"889,66267003060 ",.01)
 ;;66267003060
 ;;9002226.02101,"889,66267003060 ",.02)
 ;;66267003060
 ;;9002226.02101,"889,66267003090 ",.01)
 ;;66267003090
 ;;9002226.02101,"889,66267003090 ",.02)
 ;;66267003090
 ;;9002226.02101,"889,66267003115 ",.01)
 ;;66267003115
 ;;9002226.02101,"889,66267003115 ",.02)
 ;;66267003115
 ;;9002226.02101,"889,66267003120 ",.01)
 ;;66267003120
 ;;9002226.02101,"889,66267003120 ",.02)
 ;;66267003120
 ;;9002226.02101,"889,66267003130 ",.01)
 ;;66267003130
 ;;9002226.02101,"889,66267003130 ",.02)
 ;;66267003130
 ;;9002226.02101,"889,66267003140 ",.01)
 ;;66267003140
 ;;9002226.02101,"889,66267003140 ",.02)
 ;;66267003140
 ;;9002226.02101,"889,66267003160 ",.01)
 ;;66267003160
 ;;9002226.02101,"889,66267003160 ",.02)
 ;;66267003160
 ;;9002226.02101,"889,66267003190 ",.01)
 ;;66267003190
 ;;9002226.02101,"889,66267003190 ",.02)
 ;;66267003190
 ;;9002226.02101,"889,66267018020 ",.01)
 ;;66267018020
 ;;9002226.02101,"889,66267018020 ",.02)
 ;;66267018020
 ;;9002226.02101,"889,66267018030 ",.01)
 ;;66267018030
 ;;9002226.02101,"889,66267018030 ",.02)
 ;;66267018030
 ;;9002226.02101,"889,66267018060 ",.01)
 ;;66267018060
 ;;9002226.02101,"889,66267018060 ",.02)
 ;;66267018060
 ;;9002226.02101,"889,66267018090 ",.01)
 ;;66267018090
 ;;9002226.02101,"889,66267018090 ",.02)
 ;;66267018090
 ;;9002226.02101,"889,66267018130 ",.01)
 ;;66267018130
 ;;9002226.02101,"889,66267018130 ",.02)
 ;;66267018130
 ;;9002226.02101,"889,66267018140 ",.01)
 ;;66267018140
 ;;9002226.02101,"889,66267018140 ",.02)
 ;;66267018140
 ;;9002226.02101,"889,66267018145 ",.01)
 ;;66267018145
 ;;9002226.02101,"889,66267018145 ",.02)
 ;;66267018145
 ;;9002226.02101,"889,66267018160 ",.01)
 ;;66267018160
 ;;9002226.02101,"889,66267018160 ",.02)
 ;;66267018160
 ;;9002226.02101,"889,66267018190 ",.01)
 ;;66267018190
 ;;9002226.02101,"889,66267018190 ",.02)
 ;;66267018190
 ;;9002226.02101,"889,66267018191 ",.01)
 ;;66267018191
 ;;9002226.02101,"889,66267018191 ",.02)
 ;;66267018191
 ;;9002226.02101,"889,66267018230 ",.01)
 ;;66267018230
 ;;9002226.02101,"889,66267018230 ",.02)
 ;;66267018230
 ;;9002226.02101,"889,66267018260 ",.01)
 ;;66267018260
 ;;9002226.02101,"889,66267018260 ",.02)
 ;;66267018260
 ;;9002226.02101,"889,66267024020 ",.01)
 ;;66267024020
 ;;9002226.02101,"889,66267024020 ",.02)
 ;;66267024020
 ;;9002226.02101,"889,66267024030 ",.01)
 ;;66267024030
 ;;9002226.02101,"889,66267024030 ",.02)
 ;;66267024030
 ;;9002226.02101,"889,66267024060 ",.01)
 ;;66267024060
 ;;9002226.02101,"889,66267024060 ",.02)
 ;;66267024060
 ;;9002226.02101,"889,66267024090 ",.01)
 ;;66267024090
 ;;9002226.02101,"889,66267024090 ",.02)
 ;;66267024090
 ;;9002226.02101,"889,66267024092 ",.01)
 ;;66267024092
 ;;9002226.02101,"889,66267024092 ",.02)
 ;;66267024092
 ;;9002226.02101,"889,66267026130 ",.01)
 ;;66267026130
 ;;9002226.02101,"889,66267026130 ",.02)
 ;;66267026130
 ;;9002226.02101,"889,66267026190 ",.01)
 ;;66267026190
 ;;9002226.02101,"889,66267026190 ",.02)
 ;;66267026190
 ;;9002226.02101,"889,66267032415 ",.01)
 ;;66267032415
 ;;9002226.02101,"889,66267032415 ",.02)
 ;;66267032415
 ;;9002226.02101,"889,66267032420 ",.01)
 ;;66267032420
 ;;9002226.02101,"889,66267032420 ",.02)
 ;;66267032420
 ;;9002226.02101,"889,66267032430 ",.01)
 ;;66267032430
 ;;9002226.02101,"889,66267032430 ",.02)
 ;;66267032430
 ;;9002226.02101,"889,66267032440 ",.01)
 ;;66267032440
 ;;9002226.02101,"889,66267032440 ",.02)
 ;;66267032440
 ;;9002226.02101,"889,66267032460 ",.01)
 ;;66267032460
 ;;9002226.02101,"889,66267032460 ",.02)
 ;;66267032460
 ;;9002226.02101,"889,66267034610 ",.01)
 ;;66267034610
 ;;9002226.02101,"889,66267034610 ",.02)
 ;;66267034610
 ;;9002226.02101,"889,66267034620 ",.01)
 ;;66267034620
 ;;9002226.02101,"889,66267034620 ",.02)
 ;;66267034620
 ;;9002226.02101,"889,66267034630 ",.01)
 ;;66267034630
 ;;9002226.02101,"889,66267034630 ",.02)
 ;;66267034630
 ;;9002226.02101,"889,66267034640 ",.01)
 ;;66267034640
 ;;9002226.02101,"889,66267034640 ",.02)
 ;;66267034640
 ;;9002226.02101,"889,66267034660 ",.01)
 ;;66267034660
 ;;9002226.02101,"889,66267034660 ",.02)
 ;;66267034660
 ;;9002226.02101,"889,66267034690 ",.01)
 ;;66267034690
 ;;9002226.02101,"889,66267034690 ",.02)
 ;;66267034690
 ;;9002226.02101,"889,66267034691 ",.01)
 ;;66267034691
 ;;9002226.02101,"889,66267034691 ",.02)
 ;;66267034691
 ;;9002226.02101,"889,66267034692 ",.01)
 ;;66267034692
 ;;9002226.02101,"889,66267034692 ",.02)
 ;;66267034692
 ;;9002226.02101,"889,66267034693 ",.01)
 ;;66267034693
 ;;9002226.02101,"889,66267034693 ",.02)
 ;;66267034693
 ;;9002226.02101,"889,66267035330 ",.01)
 ;;66267035330
 ;;9002226.02101,"889,66267035330 ",.02)
 ;;66267035330
 ;;9002226.02101,"889,66267045910 ",.01)
 ;;66267045910
 ;;9002226.02101,"889,66267045910 ",.02)
 ;;66267045910
 ;;9002226.02101,"889,66267045920 ",.01)
 ;;66267045920
 ;;9002226.02101,"889,66267045920 ",.02)
 ;;66267045920
 ;;9002226.02101,"889,66267045930 ",.01)
 ;;66267045930
 ;;9002226.02101,"889,66267045930 ",.02)
 ;;66267045930
 ;;9002226.02101,"889,66267045940 ",.01)
 ;;66267045940
 ;;9002226.02101,"889,66267045940 ",.02)
 ;;66267045940
 ;;9002226.02101,"889,66267045960 ",.01)
 ;;66267045960
 ;;9002226.02101,"889,66267045960 ",.02)
 ;;66267045960
 ;;9002226.02101,"889,66267046510 ",.01)
 ;;66267046510
 ;;9002226.02101,"889,66267046510 ",.02)
 ;;66267046510
 ;;9002226.02101,"889,66267046520 ",.01)
 ;;66267046520
 ;;9002226.02101,"889,66267046520 ",.02)
 ;;66267046520
 ;;9002226.02101,"889,66267046530 ",.01)
 ;;66267046530
 ;;9002226.02101,"889,66267046530 ",.02)
 ;;66267046530
 ;;9002226.02101,"889,66267046540 ",.01)
 ;;66267046540
 ;;9002226.02101,"889,66267046540 ",.02)
 ;;66267046540
 ;;9002226.02101,"889,66267046560 ",.01)
 ;;66267046560
 ;;9002226.02101,"889,66267046560 ",.02)
 ;;66267046560
 ;;9002226.02101,"889,66267047310 ",.01)
 ;;66267047310
 ;;9002226.02101,"889,66267047310 ",.02)
 ;;66267047310
 ;;9002226.02101,"889,66267047320 ",.01)
 ;;66267047320
 ;;9002226.02101,"889,66267047320 ",.02)
 ;;66267047320
 ;;9002226.02101,"889,66267047330 ",.01)
 ;;66267047330
 ;;9002226.02101,"889,66267047330 ",.02)
 ;;66267047330
 ;;9002226.02101,"889,66267047340 ",.01)
 ;;66267047340
 ;;9002226.02101,"889,66267047340 ",.02)
 ;;66267047340
 ;;9002226.02101,"889,66267047360 ",.01)
 ;;66267047360
 ;;9002226.02101,"889,66267047360 ",.02)
 ;;66267047360
 ;;9002226.02101,"889,66267056610 ",.01)
 ;;66267056610
 ;;9002226.02101,"889,66267056610 ",.02)
 ;;66267056610
 ;;9002226.02101,"889,66267056620 ",.01)
 ;;66267056620
 ;;9002226.02101,"889,66267056620 ",.02)
 ;;66267056620
 ;;9002226.02101,"889,66267056630 ",.01)
 ;;66267056630
 ;;9002226.02101,"889,66267056630 ",.02)
 ;;66267056630
 ;;9002226.02101,"889,66267056640 ",.01)
 ;;66267056640
 ;;9002226.02101,"889,66267056640 ",.02)
 ;;66267056640
 ;;9002226.02101,"889,66267056660 ",.01)
 ;;66267056660
 ;;9002226.02101,"889,66267056660 ",.02)
 ;;66267056660