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

BGPM5AJU.m

Go to the documentation of this file.
BGPM5AJU ;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,57664016252 ",.01)
 ;;57664016252
 ;;9002226.02101,"889,57664016252 ",.02)
 ;;57664016252
 ;;9002226.02101,"889,57664016258 ",.01)
 ;;57664016258
 ;;9002226.02101,"889,57664016258 ",.02)
 ;;57664016258
 ;;9002226.02101,"889,57664016259 ",.01)
 ;;57664016259
 ;;9002226.02101,"889,57664016259 ",.02)
 ;;57664016259
 ;;9002226.02101,"889,57664016608 ",.01)
 ;;57664016608
 ;;9002226.02101,"889,57664016608 ",.02)
 ;;57664016608
 ;;9002226.02101,"889,57664016618 ",.01)
 ;;57664016618
 ;;9002226.02101,"889,57664016618 ",.02)
 ;;57664016618
 ;;9002226.02101,"889,57664016652 ",.01)
 ;;57664016652
 ;;9002226.02101,"889,57664016652 ",.02)
 ;;57664016652
 ;;9002226.02101,"889,57664016658 ",.01)
 ;;57664016658
 ;;9002226.02101,"889,57664016658 ",.02)
 ;;57664016658
 ;;9002226.02101,"889,57664016708 ",.01)
 ;;57664016708
 ;;9002226.02101,"889,57664016708 ",.02)
 ;;57664016708
 ;;9002226.02101,"889,57664016718 ",.01)
 ;;57664016718
 ;;9002226.02101,"889,57664016718 ",.02)
 ;;57664016718
 ;;9002226.02101,"889,57664016752 ",.01)
 ;;57664016752
 ;;9002226.02101,"889,57664016752 ",.02)
 ;;57664016752
 ;;9002226.02101,"889,57664016758 ",.01)
 ;;57664016758
 ;;9002226.02101,"889,57664016758 ",.02)
 ;;57664016758
 ;;9002226.02101,"889,57664016759 ",.01)
 ;;57664016759
 ;;9002226.02101,"889,57664016759 ",.02)
 ;;57664016759
 ;;9002226.02101,"889,57664026413 ",.01)
 ;;57664026413
 ;;9002226.02101,"889,57664026413 ",.02)
 ;;57664026413
 ;;9002226.02101,"889,57664026418 ",.01)
 ;;57664026418
 ;;9002226.02101,"889,57664026418 ",.02)
 ;;57664026418
 ;;9002226.02101,"889,57664026488 ",.01)
 ;;57664026488
 ;;9002226.02101,"889,57664026488 ",.02)
 ;;57664026488
 ;;9002226.02101,"889,57664026513 ",.01)
 ;;57664026513
 ;;9002226.02101,"889,57664026513 ",.02)
 ;;57664026513
 ;;9002226.02101,"889,57664026518 ",.01)
 ;;57664026518
 ;;9002226.02101,"889,57664026518 ",.02)
 ;;57664026518
 ;;9002226.02101,"889,57664026588 ",.01)
 ;;57664026588
 ;;9002226.02101,"889,57664026588 ",.02)
 ;;57664026588
 ;;9002226.02101,"889,57664026613 ",.01)
 ;;57664026613
 ;;9002226.02101,"889,57664026613 ",.02)
 ;;57664026613
 ;;9002226.02101,"889,57664026618 ",.01)
 ;;57664026618
 ;;9002226.02101,"889,57664026618 ",.02)
 ;;57664026618
 ;;9002226.02101,"889,57664026688 ",.01)
 ;;57664026688
 ;;9002226.02101,"889,57664026688 ",.02)
 ;;57664026688
 ;;9002226.02101,"889,57664029308 ",.01)
 ;;57664029308
 ;;9002226.02101,"889,57664029308 ",.02)
 ;;57664029308
 ;;9002226.02101,"889,57664029318 ",.01)
 ;;57664029318
 ;;9002226.02101,"889,57664029318 ",.02)
 ;;57664029318
 ;;9002226.02101,"889,57664029383 ",.01)
 ;;57664029383
 ;;9002226.02101,"889,57664029383 ",.02)
 ;;57664029383
 ;;9002226.02101,"889,57664029399 ",.01)
 ;;57664029399
 ;;9002226.02101,"889,57664029399 ",.02)
 ;;57664029399
 ;;9002226.02101,"889,57664029408 ",.01)
 ;;57664029408
 ;;9002226.02101,"889,57664029408 ",.02)
 ;;57664029408
 ;;9002226.02101,"889,57664029418 ",.01)
 ;;57664029418
 ;;9002226.02101,"889,57664029418 ",.02)
 ;;57664029418
 ;;9002226.02101,"889,57664029508 ",.01)
 ;;57664029508
 ;;9002226.02101,"889,57664029508 ",.02)
 ;;57664029508
 ;;9002226.02101,"889,57664029518 ",.01)
 ;;57664029518
 ;;9002226.02101,"889,57664029518 ",.02)
 ;;57664029518
 ;;9002226.02101,"889,57664029571 ",.01)
 ;;57664029571
 ;;9002226.02101,"889,57664029571 ",.02)
 ;;57664029571
 ;;9002226.02101,"889,57664029573 ",.01)
 ;;57664029573
 ;;9002226.02101,"889,57664029573 ",.02)
 ;;57664029573
 ;;9002226.02101,"889,57664029608 ",.01)
 ;;57664029608
 ;;9002226.02101,"889,57664029608 ",.02)
 ;;57664029608
 ;;9002226.02101,"889,57664029618 ",.01)
 ;;57664029618
 ;;9002226.02101,"889,57664029618 ",.02)
 ;;57664029618
 ;;9002226.02101,"889,57664029699 ",.01)
 ;;57664029699
 ;;9002226.02101,"889,57664029699 ",.02)
 ;;57664029699
 ;;9002226.02101,"889,57664029708 ",.01)
 ;;57664029708
 ;;9002226.02101,"889,57664029708 ",.02)
 ;;57664029708
 ;;9002226.02101,"889,57664029718 ",.01)
 ;;57664029718
 ;;9002226.02101,"889,57664029718 ",.02)
 ;;57664029718
 ;;9002226.02101,"889,57664029799 ",.01)
 ;;57664029799
 ;;9002226.02101,"889,57664029799 ",.02)
 ;;57664029799
 ;;9002226.02101,"889,57664047708 ",.01)
 ;;57664047708
 ;;9002226.02101,"889,57664047708 ",.02)
 ;;57664047708
 ;;9002226.02101,"889,57664047718 ",.01)
 ;;57664047718
 ;;9002226.02101,"889,57664047718 ",.02)
 ;;57664047718
 ;;9002226.02101,"889,57664047752 ",.01)
 ;;57664047752
 ;;9002226.02101,"889,57664047752 ",.02)
 ;;57664047752
 ;;9002226.02101,"889,57664047758 ",.01)
 ;;57664047758
 ;;9002226.02101,"889,57664047758 ",.02)
 ;;57664047758
 ;;9002226.02101,"889,57664050608 ",.01)
 ;;57664050608
 ;;9002226.02101,"889,57664050608 ",.02)
 ;;57664050608
 ;;9002226.02101,"889,57664050618 ",.01)
 ;;57664050618
 ;;9002226.02101,"889,57664050618 ",.02)
 ;;57664050618
 ;;9002226.02101,"889,57664050652 ",.01)
 ;;57664050652
 ;;9002226.02101,"889,57664050652 ",.02)
 ;;57664050652
 ;;9002226.02101,"889,57664050654 ",.01)
 ;;57664050654
 ;;9002226.02101,"889,57664050654 ",.02)
 ;;57664050654
 ;;9002226.02101,"889,57664050658 ",.01)
 ;;57664050658
 ;;9002226.02101,"889,57664050658 ",.02)
 ;;57664050658
 ;;9002226.02101,"889,57664050659 ",.01)
 ;;57664050659
 ;;9002226.02101,"889,57664050659 ",.02)
 ;;57664050659
 ;;9002226.02101,"889,57866315501 ",.01)
 ;;57866315501
 ;;9002226.02101,"889,57866315501 ",.02)
 ;;57866315501
 ;;9002226.02101,"889,57866333001 ",.01)
 ;;57866333001
 ;;9002226.02101,"889,57866333001 ",.02)
 ;;57866333001
 ;;9002226.02101,"889,57866333002 ",.01)
 ;;57866333002
 ;;9002226.02101,"889,57866333002 ",.02)
 ;;57866333002
 ;;9002226.02101,"889,57866333003 ",.01)
 ;;57866333003
 ;;9002226.02101,"889,57866333003 ",.02)
 ;;57866333003
 ;;9002226.02101,"889,57866333004 ",.01)
 ;;57866333004
 ;;9002226.02101,"889,57866333004 ",.02)
 ;;57866333004
 ;;9002226.02101,"889,57866333005 ",.01)
 ;;57866333005
 ;;9002226.02101,"889,57866333005 ",.02)
 ;;57866333005
 ;;9002226.02101,"889,57866333101 ",.01)
 ;;57866333101
 ;;9002226.02101,"889,57866333101 ",.02)
 ;;57866333101
 ;;9002226.02101,"889,57866333102 ",.01)
 ;;57866333102
 ;;9002226.02101,"889,57866333102 ",.02)
 ;;57866333102
 ;;9002226.02101,"889,57866333103 ",.01)
 ;;57866333103
 ;;9002226.02101,"889,57866333103 ",.02)
 ;;57866333103
 ;;9002226.02101,"889,57866333201 ",.01)
 ;;57866333201
 ;;9002226.02101,"889,57866333201 ",.02)
 ;;57866333201
 ;;9002226.02101,"889,57866333202 ",.01)
 ;;57866333202
 ;;9002226.02101,"889,57866333202 ",.02)
 ;;57866333202
 ;;9002226.02101,"889,57866333203 ",.01)
 ;;57866333203
 ;;9002226.02101,"889,57866333203 ",.02)
 ;;57866333203
 ;;9002226.02101,"889,57866430901 ",.01)
 ;;57866430901
 ;;9002226.02101,"889,57866430901 ",.02)
 ;;57866430901
 ;;9002226.02101,"889,57866430902 ",.01)
 ;;57866430902
 ;;9002226.02101,"889,57866430902 ",.02)
 ;;57866430902
 ;;9002226.02101,"889,57866430903 ",.01)
 ;;57866430903
 ;;9002226.02101,"889,57866430903 ",.02)
 ;;57866430903
 ;;9002226.02101,"889,57866431301 ",.01)
 ;;57866431301
 ;;9002226.02101,"889,57866431301 ",.02)
 ;;57866431301
 ;;9002226.02101,"889,57866431302 ",.01)
 ;;57866431302
 ;;9002226.02101,"889,57866431302 ",.02)
 ;;57866431302
 ;;9002226.02101,"889,57866431304 ",.01)
 ;;57866431304
 ;;9002226.02101,"889,57866431304 ",.02)
 ;;57866431304
 ;;9002226.02101,"889,57866431401 ",.01)
 ;;57866431401
 ;;9002226.02101,"889,57866431401 ",.02)
 ;;57866431401
 ;;9002226.02101,"889,57866431402 ",.01)
 ;;57866431402
 ;;9002226.02101,"889,57866431402 ",.02)
 ;;57866431402
 ;;9002226.02101,"889,57866431501 ",.01)
 ;;57866431501
 ;;9002226.02101,"889,57866431501 ",.02)
 ;;57866431501
 ;;9002226.02101,"889,57866431600 ",.01)
 ;;57866431600
 ;;9002226.02101,"889,57866431600 ",.02)
 ;;57866431600
 ;;9002226.02101,"889,57866431601 ",.01)
 ;;57866431601
 ;;9002226.02101,"889,57866431601 ",.02)
 ;;57866431601
 ;;9002226.02101,"889,57866431602 ",.01)
 ;;57866431602
 ;;9002226.02101,"889,57866431602 ",.02)
 ;;57866431602
 ;;9002226.02101,"889,57866657800 ",.01)
 ;;57866657800
 ;;9002226.02101,"889,57866657800 ",.02)
 ;;57866657800
 ;;9002226.02101,"889,57866657801 ",.01)
 ;;57866657801
 ;;9002226.02101,"889,57866657801 ",.02)
 ;;57866657801
 ;;9002226.02101,"889,57866657802 ",.01)
 ;;57866657802
 ;;9002226.02101,"889,57866657802 ",.02)
 ;;57866657802
 ;;9002226.02101,"889,57866657803 ",.01)
 ;;57866657803
 ;;9002226.02101,"889,57866657803 ",.02)
 ;;57866657803
 ;;9002226.02101,"889,57866657805 ",.01)
 ;;57866657805
 ;;9002226.02101,"889,57866657805 ",.02)
 ;;57866657805
 ;;9002226.02101,"889,57866657901 ",.01)
 ;;57866657901
 ;;9002226.02101,"889,57866657901 ",.02)
 ;;57866657901
 ;;9002226.02101,"889,57866657902 ",.01)
 ;;57866657902
 ;;9002226.02101,"889,57866657902 ",.02)
 ;;57866657902
 ;;9002226.02101,"889,57866658001 ",.01)
 ;;57866658001
 ;;9002226.02101,"889,57866658001 ",.02)
 ;;57866658001
 ;;9002226.02101,"889,57866658101 ",.01)
 ;;57866658101
 ;;9002226.02101,"889,57866658101 ",.02)
 ;;57866658101
 ;;9002226.02101,"889,57866706801 ",.01)
 ;;57866706801
 ;;9002226.02101,"889,57866706801 ",.02)
 ;;57866706801
 ;;9002226.02101,"889,57866706802 ",.01)
 ;;57866706802
 ;;9002226.02101,"889,57866706802 ",.02)
 ;;57866706802
 ;;9002226.02101,"889,58016000100 ",.01)
 ;;58016000100
 ;;9002226.02101,"889,58016000100 ",.02)
 ;;58016000100
 ;;9002226.02101,"889,58016000101 ",.01)
 ;;58016000101
 ;;9002226.02101,"889,58016000101 ",.02)
 ;;58016000101
 ;;9002226.02101,"889,58016000102 ",.01)
 ;;58016000102
 ;;9002226.02101,"889,58016000102 ",.02)
 ;;58016000102
 ;;9002226.02101,"889,58016000103 ",.01)
 ;;58016000103
 ;;9002226.02101,"889,58016000103 ",.02)
 ;;58016000103
 ;;9002226.02101,"889,58016000104 ",.01)
 ;;58016000104
 ;;9002226.02101,"889,58016000104 ",.02)
 ;;58016000104
 ;;9002226.02101,"889,58016000105 ",.01)
 ;;58016000105
 ;;9002226.02101,"889,58016000105 ",.02)
 ;;58016000105
 ;;9002226.02101,"889,58016000106 ",.01)
 ;;58016000106
 ;;9002226.02101,"889,58016000106 ",.02)
 ;;58016000106
 ;;9002226.02101,"889,58016000107 ",.01)
 ;;58016000107
 ;;9002226.02101,"889,58016000107 ",.02)
 ;;58016000107
 ;;9002226.02101,"889,58016000108 ",.01)
 ;;58016000108
 ;;9002226.02101,"889,58016000108 ",.02)
 ;;58016000108
 ;;9002226.02101,"889,58016000109 ",.01)
 ;;58016000109
 ;;9002226.02101,"889,58016000109 ",.02)
 ;;58016000109
 ;;9002226.02101,"889,58016000110 ",.01)
 ;;58016000110
 ;;9002226.02101,"889,58016000110 ",.02)
 ;;58016000110
 ;;9002226.02101,"889,58016000130 ",.01)
 ;;58016000130
 ;;9002226.02101,"889,58016000130 ",.02)
 ;;58016000130
 ;;9002226.02101,"889,58016000160 ",.01)
 ;;58016000160
 ;;9002226.02101,"889,58016000160 ",.02)
 ;;58016000160
 ;;9002226.02101,"889,58016000190 ",.01)
 ;;58016000190
 ;;9002226.02101,"889,58016000190 ",.02)
 ;;58016000190
 ;;9002226.02101,"889,58016004500 ",.01)
 ;;58016004500
 ;;9002226.02101,"889,58016004500 ",.02)
 ;;58016004500
 ;;9002226.02101,"889,58016004501 ",.01)
 ;;58016004501
 ;;9002226.02101,"889,58016004501 ",.02)
 ;;58016004501
 ;;9002226.02101,"889,58016004502 ",.01)
 ;;58016004502
 ;;9002226.02101,"889,58016004502 ",.02)
 ;;58016004502
 ;;9002226.02101,"889,58016004503 ",.01)
 ;;58016004503
 ;;9002226.02101,"889,58016004503 ",.02)
 ;;58016004503
 ;;9002226.02101,"889,58016004504 ",.01)
 ;;58016004504
 ;;9002226.02101,"889,58016004504 ",.02)
 ;;58016004504
 ;;9002226.02101,"889,58016004505 ",.01)
 ;;58016004505
 ;;9002226.02101,"889,58016004505 ",.02)
 ;;58016004505