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

BGPM5ALX.m

Go to the documentation of this file.
  1. BGPM5ALX ;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,"900,55567012818 ",.01)
  1. ;;55567012818
  1. ;;9002226.02101,"900,55567012818 ",.02)
  1. ;;55567012818
  1. ;;9002226.02101,"900,55567012835 ",.01)
  1. ;;55567012835
  1. ;;9002226.02101,"900,55567012835 ",.02)
  1. ;;55567012835
  1. ;;9002226.02101,"900,55567012869 ",.01)
  1. ;;55567012869
  1. ;;9002226.02101,"900,55567012869 ",.02)
  1. ;;55567012869
  1. ;;9002226.02101,"900,55567012900 ",.01)
  1. ;;55567012900
  1. ;;9002226.02101,"900,55567012900 ",.02)
  1. ;;55567012900
  1. ;;9002226.02101,"900,55567012906 ",.01)
  1. ;;55567012906
  1. ;;9002226.02101,"900,55567012906 ",.02)
  1. ;;55567012906
  1. ;;9002226.02101,"900,55567012918 ",.01)
  1. ;;55567012918
  1. ;;9002226.02101,"900,55567012918 ",.02)
  1. ;;55567012918
  1. ;;9002226.02101,"900,55567012935 ",.01)
  1. ;;55567012935
  1. ;;9002226.02101,"900,55567012935 ",.02)
  1. ;;55567012935
  1. ;;9002226.02101,"900,55567012969 ",.01)
  1. ;;55567012969
  1. ;;9002226.02101,"900,55567012969 ",.02)
  1. ;;55567012969
  1. ;;9002226.02101,"900,55567073161 ",.01)
  1. ;;55567073161
  1. ;;9002226.02101,"900,55567073161 ",.02)
  1. ;;55567073161
  1. ;;9002226.02101,"900,55567073261 ",.01)
  1. ;;55567073261
  1. ;;9002226.02101,"900,55567073261 ",.02)
  1. ;;55567073261
  1. ;;9002226.02101,"900,55648090101 ",.01)
  1. ;;55648090101
  1. ;;9002226.02101,"900,55648090101 ",.02)
  1. ;;55648090101
  1. ;;9002226.02101,"900,55887033330 ",.01)
  1. ;;55887033330
  1. ;;9002226.02101,"900,55887033330 ",.02)
  1. ;;55887033330
  1. ;;9002226.02101,"900,55887033530 ",.01)
  1. ;;55887033530
  1. ;;9002226.02101,"900,55887033530 ",.02)
  1. ;;55887033530
  1. ;;9002226.02101,"900,55887033560 ",.01)
  1. ;;55887033560
  1. ;;9002226.02101,"900,55887033560 ",.02)
  1. ;;55887033560
  1. ;;9002226.02101,"900,55887033582 ",.01)
  1. ;;55887033582
  1. ;;9002226.02101,"900,55887033582 ",.02)
  1. ;;55887033582
  1. ;;9002226.02101,"900,55887033590 ",.01)
  1. ;;55887033590
  1. ;;9002226.02101,"900,55887033590 ",.02)
  1. ;;55887033590
  1. ;;9002226.02101,"900,55887033592 ",.01)
  1. ;;55887033592
  1. ;;9002226.02101,"900,55887033592 ",.02)
  1. ;;55887033592
  1. ;;9002226.02101,"900,55887035001 ",.01)
  1. ;;55887035001
  1. ;;9002226.02101,"900,55887035001 ",.02)
  1. ;;55887035001
  1. ;;9002226.02101,"900,55887035030 ",.01)
  1. ;;55887035030
  1. ;;9002226.02101,"900,55887035030 ",.02)
  1. ;;55887035030
  1. ;;9002226.02101,"900,55887035060 ",.01)
  1. ;;55887035060
  1. ;;9002226.02101,"900,55887035060 ",.02)
  1. ;;55887035060
  1. ;;9002226.02101,"900,55887035090 ",.01)
  1. ;;55887035090
  1. ;;9002226.02101,"900,55887035090 ",.02)
  1. ;;55887035090
  1. ;;9002226.02101,"900,55887036930 ",.01)
  1. ;;55887036930
  1. ;;9002226.02101,"900,55887036930 ",.02)
  1. ;;55887036930
  1. ;;9002226.02101,"900,55887036940 ",.01)
  1. ;;55887036940
  1. ;;9002226.02101,"900,55887036940 ",.02)
  1. ;;55887036940
  1. ;;9002226.02101,"900,55887036960 ",.01)
  1. ;;55887036960
  1. ;;9002226.02101,"900,55887036960 ",.02)
  1. ;;55887036960
  1. ;;9002226.02101,"900,55887036990 ",.01)
  1. ;;55887036990
  1. ;;9002226.02101,"900,55887036990 ",.02)
  1. ;;55887036990
  1. ;;9002226.02101,"900,55887062430 ",.01)
  1. ;;55887062430
  1. ;;9002226.02101,"900,55887062430 ",.02)
  1. ;;55887062430
  1. ;;9002226.02101,"900,55887073030 ",.01)
  1. ;;55887073030
  1. ;;9002226.02101,"900,55887073030 ",.02)
  1. ;;55887073030
  1. ;;9002226.02101,"900,55887073060 ",.01)
  1. ;;55887073060
  1. ;;9002226.02101,"900,55887073060 ",.02)
  1. ;;55887073060
  1. ;;9002226.02101,"900,55887073090 ",.01)
  1. ;;55887073090
  1. ;;9002226.02101,"900,55887073090 ",.02)
  1. ;;55887073090
  1. ;;9002226.02101,"900,55887087830 ",.01)
  1. ;;55887087830
  1. ;;9002226.02101,"900,55887087830 ",.02)
  1. ;;55887087830
  1. ;;9002226.02101,"900,55887088230 ",.01)
  1. ;;55887088230
  1. ;;9002226.02101,"900,55887088230 ",.02)
  1. ;;55887088230
  1. ;;9002226.02101,"900,55887092930 ",.01)
  1. ;;55887092930
  1. ;;9002226.02101,"900,55887092930 ",.02)
  1. ;;55887092930
  1. ;;9002226.02101,"900,55887092990 ",.01)
  1. ;;55887092990
  1. ;;9002226.02101,"900,55887092990 ",.02)
  1. ;;55887092990
  1. ;;9002226.02101,"900,55887097490 ",.01)
  1. ;;55887097490
  1. ;;9002226.02101,"900,55887097490 ",.02)
  1. ;;55887097490
  1. ;;9002226.02101,"900,55983070101 ",.01)
  1. ;;55983070101
  1. ;;9002226.02101,"900,55983070101 ",.02)
  1. ;;55983070101
  1. ;;9002226.02101,"900,55983070118 ",.01)
  1. ;;55983070118
  1. ;;9002226.02101,"900,55983070118 ",.02)
  1. ;;55983070118
  1. ;;9002226.02101,"900,55983070124 ",.01)
  1. ;;55983070124
  1. ;;9002226.02101,"900,55983070124 ",.02)
  1. ;;55983070124
  1. ;;9002226.02101,"900,57297046701 ",.01)
  1. ;;57297046701
  1. ;;9002226.02101,"900,57297046701 ",.02)
  1. ;;57297046701
  1. ;;9002226.02101,"900,57297046703 ",.01)
  1. ;;57297046703
  1. ;;9002226.02101,"900,57297046703 ",.02)
  1. ;;57297046703
  1. ;;9002226.02101,"900,57297046707 ",.01)
  1. ;;57297046707
  1. ;;9002226.02101,"900,57297046707 ",.02)
  1. ;;57297046707
  1. ;;9002226.02101,"900,57297046801 ",.01)
  1. ;;57297046801
  1. ;;9002226.02101,"900,57297046801 ",.02)
  1. ;;57297046801
  1. ;;9002226.02101,"900,57297046803 ",.01)
  1. ;;57297046803
  1. ;;9002226.02101,"900,57297046803 ",.02)
  1. ;;57297046803
  1. ;;9002226.02101,"900,57297046807 ",.01)
  1. ;;57297046807
  1. ;;9002226.02101,"900,57297046807 ",.02)
  1. ;;57297046807
  1. ;;9002226.02101,"900,57297046809 ",.01)
  1. ;;57297046809
  1. ;;9002226.02101,"900,57297046809 ",.02)
  1. ;;57297046809
  1. ;;9002226.02101,"900,57297046901 ",.01)
  1. ;;57297046901
  1. ;;9002226.02101,"900,57297046901 ",.02)
  1. ;;57297046901
  1. ;;9002226.02101,"900,57297046903 ",.01)
  1. ;;57297046903
  1. ;;9002226.02101,"900,57297046903 ",.02)
  1. ;;57297046903
  1. ;;9002226.02101,"900,57297046907 ",.01)
  1. ;;57297046907
  1. ;;9002226.02101,"900,57297046907 ",.02)
  1. ;;57297046907
  1. ;;9002226.02101,"900,57297046909 ",.01)
  1. ;;57297046909
  1. ;;9002226.02101,"900,57297046909 ",.02)
  1. ;;57297046909
  1. ;;9002226.02101,"900,57664011508 ",.01)
  1. ;;57664011508
  1. ;;9002226.02101,"900,57664011508 ",.02)
  1. ;;57664011508
  1. ;;9002226.02101,"900,57664011513 ",.01)
  1. ;;57664011513
  1. ;;9002226.02101,"900,57664011513 ",.02)
  1. ;;57664011513
  1. ;;9002226.02101,"900,57664011518 ",.01)
  1. ;;57664011518
  1. ;;9002226.02101,"900,57664011518 ",.02)
  1. ;;57664011518
  1. ;;9002226.02101,"900,57664011583 ",.01)
  1. ;;57664011583
  1. ;;9002226.02101,"900,57664011583 ",.02)
  1. ;;57664011583
  1. ;;9002226.02101,"900,57664011586 ",.01)
  1. ;;57664011586
  1. ;;9002226.02101,"900,57664011586 ",.02)
  1. ;;57664011586
  1. ;;9002226.02101,"900,57664011588 ",.01)
  1. ;;57664011588
  1. ;;9002226.02101,"900,57664011588 ",.02)
  1. ;;57664011588
  1. ;;9002226.02101,"900,57844032201 ",.01)
  1. ;;57844032201
  1. ;;9002226.02101,"900,57844032201 ",.02)
  1. ;;57844032201
  1. ;;9002226.02101,"900,57844032301 ",.01)
  1. ;;57844032301
  1. ;;9002226.02101,"900,57844032301 ",.02)
  1. ;;57844032301
  1. ;;9002226.02101,"900,57844032401 ",.01)
  1. ;;57844032401
  1. ;;9002226.02101,"900,57844032401 ",.02)
  1. ;;57844032401
  1. ;;9002226.02101,"900,57844069198 ",.01)
  1. ;;57844069198
  1. ;;9002226.02101,"900,57844069198 ",.02)
  1. ;;57844069198
  1. ;;9002226.02101,"900,57844069298 ",.01)
  1. ;;57844069298
  1. ;;9002226.02101,"900,57844069298 ",.02)
  1. ;;57844069298
  1. ;;9002226.02101,"900,57866650001 ",.01)
  1. ;;57866650001
  1. ;;9002226.02101,"900,57866650001 ",.02)
  1. ;;57866650001
  1. ;;9002226.02101,"900,57866654001 ",.01)
  1. ;;57866654001
  1. ;;9002226.02101,"900,57866654001 ",.02)
  1. ;;57866654001
  1. ;;9002226.02101,"900,57866654002 ",.01)
  1. ;;57866654002
  1. ;;9002226.02101,"900,57866654002 ",.02)
  1. ;;57866654002
  1. ;;9002226.02101,"900,57866654004 ",.01)
  1. ;;57866654004
  1. ;;9002226.02101,"900,57866654004 ",.02)
  1. ;;57866654004
  1. ;;9002226.02101,"900,57866659801 ",.01)
  1. ;;57866659801
  1. ;;9002226.02101,"900,57866659801 ",.02)
  1. ;;57866659801
  1. ;;9002226.02101,"900,57866659901 ",.01)
  1. ;;57866659901
  1. ;;9002226.02101,"900,57866659901 ",.02)
  1. ;;57866659901
  1. ;;9002226.02101,"900,57866660101 ",.01)
  1. ;;57866660101
  1. ;;9002226.02101,"900,57866660101 ",.02)
  1. ;;57866660101
  1. ;;9002226.02101,"900,57866798201 ",.01)
  1. ;;57866798201
  1. ;;9002226.02101,"900,57866798201 ",.02)
  1. ;;57866798201
  1. ;;9002226.02101,"900,58016003700 ",.01)
  1. ;;58016003700
  1. ;;9002226.02101,"900,58016003700 ",.02)
  1. ;;58016003700
  1. ;;9002226.02101,"900,58016003701 ",.01)
  1. ;;58016003701
  1. ;;9002226.02101,"900,58016003701 ",.02)
  1. ;;58016003701
  1. ;;9002226.02101,"900,58016003702 ",.01)
  1. ;;58016003702
  1. ;;9002226.02101,"900,58016003702 ",.02)
  1. ;;58016003702
  1. ;;9002226.02101,"900,58016003703 ",.01)
  1. ;;58016003703
  1. ;;9002226.02101,"900,58016003703 ",.02)
  1. ;;58016003703
  1. ;;9002226.02101,"900,58016003704 ",.01)
  1. ;;58016003704
  1. ;;9002226.02101,"900,58016003704 ",.02)
  1. ;;58016003704
  1. ;;9002226.02101,"900,58016003705 ",.01)
  1. ;;58016003705
  1. ;;9002226.02101,"900,58016003705 ",.02)
  1. ;;58016003705
  1. ;;9002226.02101,"900,58016003730 ",.01)
  1. ;;58016003730
  1. ;;9002226.02101,"900,58016003730 ",.02)
  1. ;;58016003730
  1. ;;9002226.02101,"900,58016003760 ",.01)
  1. ;;58016003760
  1. ;;9002226.02101,"900,58016003760 ",.02)
  1. ;;58016003760
  1. ;;9002226.02101,"900,58016003790 ",.01)
  1. ;;58016003790
  1. ;;9002226.02101,"900,58016003790 ",.02)
  1. ;;58016003790
  1. ;;9002226.02101,"900,58016004401 ",.01)
  1. ;;58016004401
  1. ;;9002226.02101,"900,58016004401 ",.02)
  1. ;;58016004401
  1. ;;9002226.02101,"900,58016004402 ",.01)
  1. ;;58016004402
  1. ;;9002226.02101,"900,58016004402 ",.02)
  1. ;;58016004402
  1. ;;9002226.02101,"900,58016004403 ",.01)
  1. ;;58016004403
  1. ;;9002226.02101,"900,58016004403 ",.02)
  1. ;;58016004403
  1. ;;9002226.02101,"900,58016004404 ",.01)
  1. ;;58016004404
  1. ;;9002226.02101,"900,58016004404 ",.02)
  1. ;;58016004404
  1. ;;9002226.02101,"900,58016004405 ",.01)
  1. ;;58016004405
  1. ;;9002226.02101,"900,58016004405 ",.02)
  1. ;;58016004405
  1. ;;9002226.02101,"900,58016005100 ",.01)
  1. ;;58016005100
  1. ;;9002226.02101,"900,58016005100 ",.02)
  1. ;;58016005100
  1. ;;9002226.02101,"900,58016005101 ",.01)
  1. ;;58016005101
  1. ;;9002226.02101,"900,58016005101 ",.02)
  1. ;;58016005101
  1. ;;9002226.02101,"900,58016005102 ",.01)
  1. ;;58016005102
  1. ;;9002226.02101,"900,58016005102 ",.02)
  1. ;;58016005102
  1. ;;9002226.02101,"900,58016005103 ",.01)
  1. ;;58016005103
  1. ;;9002226.02101,"900,58016005103 ",.02)
  1. ;;58016005103
  1. ;;9002226.02101,"900,58016005104 ",.01)
  1. ;;58016005104
  1. ;;9002226.02101,"900,58016005104 ",.02)
  1. ;;58016005104
  1. ;;9002226.02101,"900,58016005105 ",.01)
  1. ;;58016005105
  1. ;;9002226.02101,"900,58016005105 ",.02)
  1. ;;58016005105
  1. ;;9002226.02101,"900,58016005130 ",.01)
  1. ;;58016005130
  1. ;;9002226.02101,"900,58016005130 ",.02)
  1. ;;58016005130
  1. ;;9002226.02101,"900,58016005160 ",.01)
  1. ;;58016005160
  1. ;;9002226.02101,"900,58016005160 ",.02)
  1. ;;58016005160
  1. ;;9002226.02101,"900,58016005190 ",.01)
  1. ;;58016005190
  1. ;;9002226.02101,"900,58016005190 ",.02)
  1. ;;58016005190
  1. ;;9002226.02101,"900,58016005200 ",.01)
  1. ;;58016005200
  1. ;;9002226.02101,"900,58016005200 ",.02)
  1. ;;58016005200
  1. ;;9002226.02101,"900,58016005201 ",.01)
  1. ;;58016005201
  1. ;;9002226.02101,"900,58016005201 ",.02)
  1. ;;58016005201
  1. ;;9002226.02101,"900,58016005202 ",.01)
  1. ;;58016005202
  1. ;;9002226.02101,"900,58016005202 ",.02)
  1. ;;58016005202
  1. ;;9002226.02101,"900,58016005203 ",.01)
  1. ;;58016005203
  1. ;;9002226.02101,"900,58016005203 ",.02)
  1. ;;58016005203
  1. ;;9002226.02101,"900,58016005204 ",.01)
  1. ;;58016005204
  1. ;;9002226.02101,"900,58016005204 ",.02)
  1. ;;58016005204
  1. ;;9002226.02101,"900,58016005205 ",.01)
  1. ;;58016005205
  1. ;;9002226.02101,"900,58016005205 ",.02)
  1. ;;58016005205
  1. ;;9002226.02101,"900,58016005206 ",.01)
  1. ;;58016005206
  1. ;;9002226.02101,"900,58016005206 ",.02)
  1. ;;58016005206
  1. ;;9002226.02101,"900,58016005207 ",.01)
  1. ;;58016005207
  1. ;;9002226.02101,"900,58016005207 ",.02)
  1. ;;58016005207
  1. ;;9002226.02101,"900,58016005208 ",.01)
  1. ;;58016005208
  1. ;;9002226.02101,"900,58016005208 ",.02)
  1. ;;58016005208
  1. ;;9002226.02101,"900,58016005209 ",.01)
  1. ;;58016005209
  1. ;;9002226.02101,"900,58016005209 ",.02)
  1. ;;58016005209
  1. ;;9002226.02101,"900,58016005210 ",.01)
  1. ;;58016005210
  1. ;;9002226.02101,"900,58016005210 ",.02)
  1. ;;58016005210
  1. ;;9002226.02101,"900,58016005230 ",.01)
  1. ;;58016005230
  1. ;;9002226.02101,"900,58016005230 ",.02)
  1. ;;58016005230