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