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