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

BGPM5AJM.m

Go to the documentation of this file.
BGPM5AJM ;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,51138015930 ",.01)
 ;;51138015930
 ;;9002226.02101,"889,51138015930 ",.02)
 ;;51138015930
 ;;9002226.02101,"889,51138020530 ",.01)
 ;;51138020530
 ;;9002226.02101,"889,51138020530 ",.02)
 ;;51138020530
 ;;9002226.02101,"889,51138037310 ",.01)
 ;;51138037310
 ;;9002226.02101,"889,51138037310 ",.02)
 ;;51138037310
 ;;9002226.02101,"889,51138037330 ",.01)
 ;;51138037330
 ;;9002226.02101,"889,51138037330 ",.02)
 ;;51138037330
 ;;9002226.02101,"889,51138037410 ",.01)
 ;;51138037410
 ;;9002226.02101,"889,51138037410 ",.02)
 ;;51138037410
 ;;9002226.02101,"889,51138037430 ",.01)
 ;;51138037430
 ;;9002226.02101,"889,51138037430 ",.02)
 ;;51138037430
 ;;9002226.02101,"889,51138037510 ",.01)
 ;;51138037510
 ;;9002226.02101,"889,51138037510 ",.02)
 ;;51138037510
 ;;9002226.02101,"889,51138037530 ",.01)
 ;;51138037530
 ;;9002226.02101,"889,51138037530 ",.02)
 ;;51138037530
 ;;9002226.02101,"889,51138037610 ",.01)
 ;;51138037610
 ;;9002226.02101,"889,51138037610 ",.02)
 ;;51138037610
 ;;9002226.02101,"889,51138037630 ",.01)
 ;;51138037630
 ;;9002226.02101,"889,51138037630 ",.02)
 ;;51138037630
 ;;9002226.02101,"889,51138040910 ",.01)
 ;;51138040910
 ;;9002226.02101,"889,51138040910 ",.02)
 ;;51138040910
 ;;9002226.02101,"889,51138040930 ",.01)
 ;;51138040930
 ;;9002226.02101,"889,51138040930 ",.02)
 ;;51138040930
 ;;9002226.02101,"889,51138041010 ",.01)
 ;;51138041010
 ;;9002226.02101,"889,51138041010 ",.02)
 ;;51138041010
 ;;9002226.02101,"889,51138041030 ",.01)
 ;;51138041030
 ;;9002226.02101,"889,51138041030 ",.02)
 ;;51138041030
 ;;9002226.02101,"889,51138041110 ",.01)
 ;;51138041110
 ;;9002226.02101,"889,51138041110 ",.02)
 ;;51138041110
 ;;9002226.02101,"889,51138041130 ",.01)
 ;;51138041130
 ;;9002226.02101,"889,51138041130 ",.02)
 ;;51138041130
 ;;9002226.02101,"889,51138041210 ",.01)
 ;;51138041210
 ;;9002226.02101,"889,51138041210 ",.02)
 ;;51138041210
 ;;9002226.02101,"889,51138041230 ",.01)
 ;;51138041230
 ;;9002226.02101,"889,51138041230 ",.02)
 ;;51138041230
 ;;9002226.02101,"889,51138041330 ",.01)
 ;;51138041330
 ;;9002226.02101,"889,51138041330 ",.02)
 ;;51138041330
 ;;9002226.02101,"889,51138041430 ",.01)
 ;;51138041430
 ;;9002226.02101,"889,51138041430 ",.02)
 ;;51138041430
 ;;9002226.02101,"889,51138041530 ",.01)
 ;;51138041530
 ;;9002226.02101,"889,51138041530 ",.02)
 ;;51138041530
 ;;9002226.02101,"889,51138041620 ",.01)
 ;;51138041620
 ;;9002226.02101,"889,51138041620 ",.02)
 ;;51138041620
 ;;9002226.02101,"889,51138041630 ",.01)
 ;;51138041630
 ;;9002226.02101,"889,51138041630 ",.02)
 ;;51138041630
 ;;9002226.02101,"889,51138041730 ",.01)
 ;;51138041730
 ;;9002226.02101,"889,51138041730 ",.02)
 ;;51138041730
 ;;9002226.02101,"889,51138045930 ",.01)
 ;;51138045930
 ;;9002226.02101,"889,51138045930 ",.02)
 ;;51138045930
 ;;9002226.02101,"889,51138045960 ",.01)
 ;;51138045960
 ;;9002226.02101,"889,51138045960 ",.02)
 ;;51138045960
 ;;9002226.02101,"889,51138046030 ",.01)
 ;;51138046030
 ;;9002226.02101,"889,51138046030 ",.02)
 ;;51138046030
 ;;9002226.02101,"889,51138046060 ",.01)
 ;;51138046060
 ;;9002226.02101,"889,51138046060 ",.02)
 ;;51138046060
 ;;9002226.02101,"889,51138046130 ",.01)
 ;;51138046130
 ;;9002226.02101,"889,51138046130 ",.02)
 ;;51138046130
 ;;9002226.02101,"889,51138046160 ",.01)
 ;;51138046160
 ;;9002226.02101,"889,51138046160 ",.02)
 ;;51138046160
 ;;9002226.02101,"889,51138052830 ",.01)
 ;;51138052830
 ;;9002226.02101,"889,51138052830 ",.02)
 ;;51138052830
 ;;9002226.02101,"889,51138052930 ",.01)
 ;;51138052930
 ;;9002226.02101,"889,51138052930 ",.02)
 ;;51138052930
 ;;9002226.02101,"889,51138053030 ",.01)
 ;;51138053030
 ;;9002226.02101,"889,51138053030 ",.02)
 ;;51138053030
 ;;9002226.02101,"889,51285004001 ",.01)
 ;;51285004001
 ;;9002226.02101,"889,51285004001 ",.02)
 ;;51285004001
 ;;9002226.02101,"889,51285004702 ",.01)
 ;;51285004702
 ;;9002226.02101,"889,51285004702 ",.02)
 ;;51285004702
 ;;9002226.02101,"889,51285005002 ",.01)
 ;;51285005002
 ;;9002226.02101,"889,51285005002 ",.02)
 ;;51285005002
 ;;9002226.02101,"889,51285006001 ",.01)
 ;;51285006001
 ;;9002226.02101,"889,51285006001 ",.02)
 ;;51285006001
 ;;9002226.02101,"889,51285006101 ",.01)
 ;;51285006101
 ;;9002226.02101,"889,51285006101 ",.02)
 ;;51285006101
 ;;9002226.02101,"889,51655014924 ",.01)
 ;;51655014924
 ;;9002226.02101,"889,51655014924 ",.02)
 ;;51655014924
 ;;9002226.02101,"889,51655014925 ",.01)
 ;;51655014925
 ;;9002226.02101,"889,51655014925 ",.02)
 ;;51655014925
 ;;9002226.02101,"889,51655014953 ",.01)
 ;;51655014953
 ;;9002226.02101,"889,51655014953 ",.02)
 ;;51655014953
 ;;9002226.02101,"889,51655034924 ",.01)
 ;;51655034924
 ;;9002226.02101,"889,51655034924 ",.02)
 ;;51655034924
 ;;9002226.02101,"889,51655034925 ",.01)
 ;;51655034925
 ;;9002226.02101,"889,51655034925 ",.02)
 ;;51655034925
 ;;9002226.02101,"889,51655034926 ",.01)
 ;;51655034926
 ;;9002226.02101,"889,51655034926 ",.02)
 ;;51655034926
 ;;9002226.02101,"889,51655034982 ",.01)
 ;;51655034982
 ;;9002226.02101,"889,51655034982 ",.02)
 ;;51655034982
 ;;9002226.02101,"889,51655035021 ",.01)
 ;;51655035021
 ;;9002226.02101,"889,51655035021 ",.02)
 ;;51655035021
 ;;9002226.02101,"889,51655035024 ",.01)
 ;;51655035024
 ;;9002226.02101,"889,51655035024 ",.02)
 ;;51655035024
 ;;9002226.02101,"889,51655035025 ",.01)
 ;;51655035025
 ;;9002226.02101,"889,51655035025 ",.02)
 ;;51655035025
 ;;9002226.02101,"889,51655035026 ",.01)
 ;;51655035026
 ;;9002226.02101,"889,51655035026 ",.02)
 ;;51655035026
 ;;9002226.02101,"889,51655035082 ",.01)
 ;;51655035082
 ;;9002226.02101,"889,51655035082 ",.02)
 ;;51655035082
 ;;9002226.02101,"889,51655038224 ",.01)
 ;;51655038224
 ;;9002226.02101,"889,51655038224 ",.02)
 ;;51655038224
 ;;9002226.02101,"889,51655038225 ",.01)
 ;;51655038225
 ;;9002226.02101,"889,51655038225 ",.02)
 ;;51655038225
 ;;9002226.02101,"889,51655038226 ",.01)
 ;;51655038226
 ;;9002226.02101,"889,51655038226 ",.02)
 ;;51655038226
 ;;9002226.02101,"889,51655038282 ",.01)
 ;;51655038282
 ;;9002226.02101,"889,51655038282 ",.02)
 ;;51655038282
 ;;9002226.02101,"889,51655038424 ",.01)
 ;;51655038424
 ;;9002226.02101,"889,51655038424 ",.02)
 ;;51655038424
 ;;9002226.02101,"889,51655053024 ",.01)
 ;;51655053024
 ;;9002226.02101,"889,51655053024 ",.02)
 ;;51655053024
 ;;9002226.02101,"889,51655053025 ",.01)
 ;;51655053025
 ;;9002226.02101,"889,51655053025 ",.02)
 ;;51655053025
 ;;9002226.02101,"889,51655053026 ",.01)
 ;;51655053026
 ;;9002226.02101,"889,51655053026 ",.02)
 ;;51655053026
 ;;9002226.02101,"889,51655053090 ",.01)
 ;;51655053090
 ;;9002226.02101,"889,51655053090 ",.02)
 ;;51655053090
 ;;9002226.02101,"889,51655092624 ",.01)
 ;;51655092624
 ;;9002226.02101,"889,51655092624 ",.02)
 ;;51655092624
 ;;9002226.02101,"889,51655092626 ",.01)
 ;;51655092626
 ;;9002226.02101,"889,51655092626 ",.02)
 ;;51655092626
 ;;9002226.02101,"889,51655092824 ",.01)
 ;;51655092824
 ;;9002226.02101,"889,51655092824 ",.02)
 ;;51655092824
 ;;9002226.02101,"889,51655092825 ",.01)
 ;;51655092825
 ;;9002226.02101,"889,51655092825 ",.02)
 ;;51655092825
 ;;9002226.02101,"889,51655092826 ",.01)
 ;;51655092826
 ;;9002226.02101,"889,51655092826 ",.02)
 ;;51655092826
 ;;9002226.02101,"889,51655092852 ",.01)
 ;;51655092852
 ;;9002226.02101,"889,51655092852 ",.02)
 ;;51655092852
 ;;9002226.02101,"889,51660062101 ",.01)
 ;;51660062101
 ;;9002226.02101,"889,51660062101 ",.02)
 ;;51660062101
 ;;9002226.02101,"889,51660062110 ",.01)
 ;;51660062110
 ;;9002226.02101,"889,51660062110 ",.02)
 ;;51660062110
 ;;9002226.02101,"889,51660062201 ",.01)
 ;;51660062201
 ;;9002226.02101,"889,51660062201 ",.02)
 ;;51660062201
 ;;9002226.02101,"889,51660062210 ",.01)
 ;;51660062210
 ;;9002226.02101,"889,51660062210 ",.02)
 ;;51660062210
 ;;9002226.02101,"889,51660062301 ",.01)
 ;;51660062301
 ;;9002226.02101,"889,51660062301 ",.02)
 ;;51660062301
 ;;9002226.02101,"889,51660062310 ",.01)
 ;;51660062310
 ;;9002226.02101,"889,51660062310 ",.02)
 ;;51660062310
 ;;9002226.02101,"889,52544030501 ",.01)
 ;;52544030501
 ;;9002226.02101,"889,52544030501 ",.02)
 ;;52544030501
 ;;9002226.02101,"889,52544030700 ",.01)
 ;;52544030700
 ;;9002226.02101,"889,52544030700 ",.02)
 ;;52544030700
 ;;9002226.02101,"889,52544030701 ",.01)
 ;;52544030701
 ;;9002226.02101,"889,52544030701 ",.02)
 ;;52544030701
 ;;9002226.02101,"889,52544030801 ",.01)
 ;;52544030801
 ;;9002226.02101,"889,52544030801 ",.02)
 ;;52544030801
 ;;9002226.02101,"889,52544030805 ",.01)
 ;;52544030805
 ;;9002226.02101,"889,52544030805 ",.02)
 ;;52544030805
 ;;9002226.02101,"889,52544035201 ",.01)
 ;;52544035201
 ;;9002226.02101,"889,52544035201 ",.02)
 ;;52544035201
 ;;9002226.02101,"889,52544060601 ",.01)
 ;;52544060601
 ;;9002226.02101,"889,52544060601 ",.02)
 ;;52544060601
 ;;9002226.02101,"889,52544060605 ",.01)
 ;;52544060605
 ;;9002226.02101,"889,52544060605 ",.02)
 ;;52544060605
 ;;9002226.02101,"889,52544060610 ",.01)
 ;;52544060610
 ;;9002226.02101,"889,52544060610 ",.02)
 ;;52544060610
 ;;9002226.02101,"889,52544084101 ",.01)
 ;;52544084101
 ;;9002226.02101,"889,52544084101 ",.02)
 ;;52544084101
 ;;9002226.02101,"889,52544084105 ",.01)
 ;;52544084105
 ;;9002226.02101,"889,52544084105 ",.02)
 ;;52544084105
 ;;9002226.02101,"889,52544084201 ",.01)
 ;;52544084201
 ;;9002226.02101,"889,52544084201 ",.02)
 ;;52544084201
 ;;9002226.02101,"889,52555045001 ",.01)
 ;;52555045001
 ;;9002226.02101,"889,52555045001 ",.02)
 ;;52555045001
 ;;9002226.02101,"889,52555054501 ",.01)
 ;;52555054501
 ;;9002226.02101,"889,52555054501 ",.02)
 ;;52555054501
 ;;9002226.02101,"889,52584000310 ",.01)
 ;;52584000310
 ;;9002226.02101,"889,52584000310 ",.02)
 ;;52584000310
 ;;9002226.02101,"889,52584028505 ",.01)
 ;;52584028505
 ;;9002226.02101,"889,52584028505 ",.02)
 ;;52584028505
 ;;9002226.02101,"889,52584087201 ",.01)
 ;;52584087201
 ;;9002226.02101,"889,52584087201 ",.02)
 ;;52584087201
 ;;9002226.02101,"889,52959021201 ",.01)
 ;;52959021201
 ;;9002226.02101,"889,52959021201 ",.02)
 ;;52959021201
 ;;9002226.02101,"889,52959021210 ",.01)
 ;;52959021210
 ;;9002226.02101,"889,52959021210 ",.02)
 ;;52959021210
 ;;9002226.02101,"889,52959021220 ",.01)
 ;;52959021220
 ;;9002226.02101,"889,52959021220 ",.02)
 ;;52959021220
 ;;9002226.02101,"889,52959021245 ",.01)
 ;;52959021245
 ;;9002226.02101,"889,52959021245 ",.02)
 ;;52959021245
 ;;9002226.02101,"889,52959021250 ",.01)
 ;;52959021250
 ;;9002226.02101,"889,52959021250 ",.02)
 ;;52959021250
 ;;9002226.02101,"889,52959021260 ",.01)
 ;;52959021260
 ;;9002226.02101,"889,52959021260 ",.02)
 ;;52959021260
 ;;9002226.02101,"889,52959024130 ",.01)
 ;;52959024130
 ;;9002226.02101,"889,52959024130 ",.02)
 ;;52959024130
 ;;9002226.02101,"889,52959024730 ",.01)
 ;;52959024730
 ;;9002226.02101,"889,52959024730 ",.02)
 ;;52959024730
 ;;9002226.02101,"889,52959025300 ",.01)
 ;;52959025300
 ;;9002226.02101,"889,52959025300 ",.02)
 ;;52959025300
 ;;9002226.02101,"889,52959025320 ",.01)
 ;;52959025320
 ;;9002226.02101,"889,52959025320 ",.02)
 ;;52959025320
 ;;9002226.02101,"889,52959025330 ",.01)
 ;;52959025330
 ;;9002226.02101,"889,52959025330 ",.02)
 ;;52959025330
 ;;9002226.02101,"889,52959025340 ",.01)
 ;;52959025340
 ;;9002226.02101,"889,52959025340 ",.02)
 ;;52959025340
 ;;9002226.02101,"889,52959025830 ",.01)
 ;;52959025830
 ;;9002226.02101,"889,52959025830 ",.02)
 ;;52959025830
 ;;9002226.02101,"889,52959025860 ",.01)
 ;;52959025860
 ;;9002226.02101,"889,52959025860 ",.02)
 ;;52959025860