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