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

BGPM5ALQ.m

Go to the documentation of this file.
BGPM5ALQ ;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,24236022902 ",.01)
 ;;24236022902
 ;;9002226.02101,"900,24236022902 ",.02)
 ;;24236022902
 ;;9002226.02101,"900,24236030502 ",.01)
 ;;24236030502
 ;;9002226.02101,"900,24236030502 ",.02)
 ;;24236030502
 ;;9002226.02101,"900,24236037202 ",.01)
 ;;24236037202
 ;;9002226.02101,"900,24236037202 ",.02)
 ;;24236037202
 ;;9002226.02101,"900,24236038402 ",.01)
 ;;24236038402
 ;;9002226.02101,"900,24236038402 ",.02)
 ;;24236038402
 ;;9002226.02101,"900,24236049802 ",.01)
 ;;24236049802
 ;;9002226.02101,"900,24236049802 ",.02)
 ;;24236049802
 ;;9002226.02101,"900,24236050002 ",.01)
 ;;24236050002
 ;;9002226.02101,"900,24236050002 ",.02)
 ;;24236050002
 ;;9002226.02101,"900,24236059102 ",.01)
 ;;24236059102
 ;;9002226.02101,"900,24236059102 ",.02)
 ;;24236059102
 ;;9002226.02101,"900,24236064002 ",.01)
 ;;24236064002
 ;;9002226.02101,"900,24236064002 ",.02)
 ;;24236064002
 ;;9002226.02101,"900,24236064402 ",.01)
 ;;24236064402
 ;;9002226.02101,"900,24236064402 ",.02)
 ;;24236064402
 ;;9002226.02101,"900,24236071302 ",.01)
 ;;24236071302
 ;;9002226.02101,"900,24236071302 ",.02)
 ;;24236071302
 ;;9002226.02101,"900,24385073478 ",.01)
 ;;24385073478
 ;;9002226.02101,"900,24385073478 ",.02)
 ;;24385073478
 ;;9002226.02101,"900,24385083978 ",.01)
 ;;24385083978
 ;;9002226.02101,"900,24385083978 ",.02)
 ;;24385083978
 ;;9002226.02101,"900,24658013005 ",.01)
 ;;24658013005
 ;;9002226.02101,"900,24658013005 ",.02)
 ;;24658013005
 ;;9002226.02101,"900,24658013018 ",.01)
 ;;24658013018
 ;;9002226.02101,"900,24658013018 ",.02)
 ;;24658013018
 ;;9002226.02101,"900,24658013033 ",.01)
 ;;24658013033
 ;;9002226.02101,"900,24658013033 ",.02)
 ;;24658013033
 ;;9002226.02101,"900,24658013060 ",.01)
 ;;24658013060
 ;;9002226.02101,"900,24658013060 ",.02)
 ;;24658013060
 ;;9002226.02101,"900,24658026005 ",.01)
 ;;24658026005
 ;;9002226.02101,"900,24658026005 ",.02)
 ;;24658026005
 ;;9002226.02101,"900,24658026018 ",.01)
 ;;24658026018
 ;;9002226.02101,"900,24658026018 ",.02)
 ;;24658026018
 ;;9002226.02101,"900,24658026030 ",.01)
 ;;24658026030
 ;;9002226.02101,"900,24658026030 ",.02)
 ;;24658026030
 ;;9002226.02101,"900,24658026060 ",.01)
 ;;24658026060
 ;;9002226.02101,"900,24658026060 ",.02)
 ;;24658026060
 ;;9002226.02101,"900,24658026090 ",.01)
 ;;24658026090
 ;;9002226.02101,"900,24658026090 ",.02)
 ;;24658026090
 ;;9002226.02101,"900,26053010301 ",.01)
 ;;26053010301
 ;;9002226.02101,"900,26053010301 ",.02)
 ;;26053010301
 ;;9002226.02101,"900,26053013801 ",.01)
 ;;26053013801
 ;;9002226.02101,"900,26053013801 ",.02)
 ;;26053013801
 ;;9002226.02101,"900,26053014001 ",.01)
 ;;26053014001
 ;;9002226.02101,"900,26053014001 ",.02)
 ;;26053014001
 ;;9002226.02101,"900,26053014101 ",.01)
 ;;26053014101
 ;;9002226.02101,"900,26053014101 ",.02)
 ;;26053014101
 ;;9002226.02101,"900,26053017701 ",.01)
 ;;26053017701
 ;;9002226.02101,"900,26053017701 ",.02)
 ;;26053017701
 ;;9002226.02101,"900,26053030501 ",.01)
 ;;26053030501
 ;;9002226.02101,"900,26053030501 ",.02)
 ;;26053030501
 ;;9002226.02101,"900,27437010901 ",.01)
 ;;27437010901
 ;;9002226.02101,"900,27437010901 ",.02)
 ;;27437010901
 ;;9002226.02101,"900,27437010906 ",.01)
 ;;27437010906
 ;;9002226.02101,"900,27437010906 ",.02)
 ;;27437010906
 ;;9002226.02101,"900,27437011001 ",.01)
 ;;27437011001
 ;;9002226.02101,"900,27437011001 ",.02)
 ;;27437011001
 ;;9002226.02101,"900,27437011006 ",.01)
 ;;27437011006
 ;;9002226.02101,"900,27437011006 ",.02)
 ;;27437011006
 ;;9002226.02101,"900,30768000061 ",.01)
 ;;30768000061
 ;;9002226.02101,"900,30768000061 ",.02)
 ;;30768000061
 ;;9002226.02101,"900,31722022501 ",.01)
 ;;31722022501
 ;;9002226.02101,"900,31722022501 ",.02)
 ;;31722022501
 ;;9002226.02101,"900,31722022505 ",.01)
 ;;31722022505
 ;;9002226.02101,"900,31722022505 ",.02)
 ;;31722022505
 ;;9002226.02101,"900,31722022560 ",.01)
 ;;31722022560
 ;;9002226.02101,"900,31722022560 ",.02)
 ;;31722022560
 ;;9002226.02101,"900,33358015530 ",.01)
 ;;33358015530
 ;;9002226.02101,"900,33358015530 ",.02)
 ;;33358015530
 ;;9002226.02101,"900,33358015560 ",.01)
 ;;33358015560
 ;;9002226.02101,"900,33358015560 ",.02)
 ;;33358015560
 ;;9002226.02101,"900,33358021001 ",.01)
 ;;33358021001
 ;;9002226.02101,"900,33358021001 ",.02)
 ;;33358021001
 ;;9002226.02101,"900,33358021030 ",.01)
 ;;33358021030
 ;;9002226.02101,"900,33358021030 ",.02)
 ;;33358021030
 ;;9002226.02101,"900,33358021060 ",.01)
 ;;33358021060
 ;;9002226.02101,"900,33358021060 ",.02)
 ;;33358021060
 ;;9002226.02101,"900,33358021090 ",.01)
 ;;33358021090
 ;;9002226.02101,"900,33358021090 ",.02)
 ;;33358021090
 ;;9002226.02101,"900,33358022330 ",.01)
 ;;33358022330
 ;;9002226.02101,"900,33358022330 ",.02)
 ;;33358022330
 ;;9002226.02101,"900,33358022430 ",.01)
 ;;33358022430
 ;;9002226.02101,"900,33358022430 ",.02)
 ;;33358022430
 ;;9002226.02101,"900,33358022500 ",.01)
 ;;33358022500
 ;;9002226.02101,"900,33358022500 ",.02)
 ;;33358022500
 ;;9002226.02101,"900,33358022530 ",.01)
 ;;33358022530
 ;;9002226.02101,"900,33358022530 ",.02)
 ;;33358022530
 ;;9002226.02101,"900,33358022560 ",.01)
 ;;33358022560
 ;;9002226.02101,"900,33358022560 ",.02)
 ;;33358022560
 ;;9002226.02101,"900,33358022630 ",.01)
 ;;33358022630
 ;;9002226.02101,"900,33358022630 ",.02)
 ;;33358022630
 ;;9002226.02101,"900,35356041330 ",.01)
 ;;35356041330
 ;;9002226.02101,"900,35356041330 ",.02)
 ;;35356041330
 ;;9002226.02101,"900,35356051930 ",.01)
 ;;35356051930
 ;;9002226.02101,"900,35356051930 ",.02)
 ;;35356051930
 ;;9002226.02101,"900,35356099230 ",.01)
 ;;35356099230
 ;;9002226.02101,"900,35356099230 ",.02)
 ;;35356099230
 ;;9002226.02101,"900,39686001423 ",.01)
 ;;39686001423
 ;;9002226.02101,"900,39686001423 ",.02)
 ;;39686001423
 ;;9002226.02101,"900,42291037590 ",.01)
 ;;42291037590
 ;;9002226.02101,"900,42291037590 ",.02)
 ;;42291037590
 ;;9002226.02101,"900,42291037690 ",.01)
 ;;42291037690
 ;;9002226.02101,"900,42291037690 ",.02)
 ;;42291037690
 ;;9002226.02101,"900,42291037710 ",.01)
 ;;42291037710
 ;;9002226.02101,"900,42291037710 ",.02)
 ;;42291037710
 ;;9002226.02101,"900,42291037790 ",.01)
 ;;42291037790
 ;;9002226.02101,"900,42291037790 ",.02)
 ;;42291037790
 ;;9002226.02101,"900,43265075101 ",.01)
 ;;43265075101
 ;;9002226.02101,"900,43265075101 ",.02)
 ;;43265075101
 ;;9002226.02101,"900,43265075102 ",.01)
 ;;43265075102
 ;;9002226.02101,"900,43265075102 ",.02)
 ;;43265075102
 ;;9002226.02101,"900,43265075201 ",.01)
 ;;43265075201
 ;;9002226.02101,"900,43265075201 ",.02)
 ;;43265075201
 ;;9002226.02101,"900,43265075202 ",.01)
 ;;43265075202
 ;;9002226.02101,"900,43265075202 ",.02)
 ;;43265075202
 ;;9002226.02101,"900,43265075401 ",.01)
 ;;43265075401
 ;;9002226.02101,"900,43265075401 ",.02)
 ;;43265075401
 ;;9002226.02101,"900,43265075402 ",.01)
 ;;43265075402
 ;;9002226.02101,"900,43265075402 ",.02)
 ;;43265075402
 ;;9002226.02101,"900,43265075501 ",.01)
 ;;43265075501
 ;;9002226.02101,"900,43265075501 ",.02)
 ;;43265075501
 ;;9002226.02101,"900,43265075502 ",.01)
 ;;43265075502
 ;;9002226.02101,"900,43265075502 ",.02)
 ;;43265075502
 ;;9002226.02101,"900,43292012356 ",.01)
 ;;43292012356
 ;;9002226.02101,"900,43292012356 ",.02)
 ;;43292012356
 ;;9002226.02101,"900,43292022328 ",.01)
 ;;43292022328
 ;;9002226.02101,"900,43292022328 ",.02)
 ;;43292022328
 ;;9002226.02101,"900,43292055740 ",.01)
 ;;43292055740
 ;;9002226.02101,"900,43292055740 ",.02)
 ;;43292055740
 ;;9002226.02101,"900,43353003115 ",.01)
 ;;43353003115
 ;;9002226.02101,"900,43353003115 ",.02)
 ;;43353003115
 ;;9002226.02101,"900,43353003145 ",.01)
 ;;43353003145
 ;;9002226.02101,"900,43353003145 ",.02)
 ;;43353003145
 ;;9002226.02101,"900,43353003160 ",.01)
 ;;43353003160
 ;;9002226.02101,"900,43353003160 ",.02)
 ;;43353003160
 ;;9002226.02101,"900,43353003182 ",.01)
 ;;43353003182
 ;;9002226.02101,"900,43353003182 ",.02)
 ;;43353003182
 ;;9002226.02101,"900,43353003199 ",.01)
 ;;43353003199
 ;;9002226.02101,"900,43353003199 ",.02)
 ;;43353003199
 ;;9002226.02101,"900,43353009060 ",.01)
 ;;43353009060
 ;;9002226.02101,"900,43353009060 ",.02)
 ;;43353009060
 ;;9002226.02101,"900,43353009080 ",.01)
 ;;43353009080
 ;;9002226.02101,"900,43353009080 ",.02)
 ;;43353009080
 ;;9002226.02101,"900,43353028915 ",.01)
 ;;43353028915
 ;;9002226.02101,"900,43353028915 ",.02)
 ;;43353028915
 ;;9002226.02101,"900,43353028945 ",.01)
 ;;43353028945
 ;;9002226.02101,"900,43353028945 ",.02)
 ;;43353028945
 ;;9002226.02101,"900,43353040230 ",.01)
 ;;43353040230
 ;;9002226.02101,"900,43353040230 ",.02)
 ;;43353040230
 ;;9002226.02101,"900,43353067330 ",.01)
 ;;43353067330
 ;;9002226.02101,"900,43353067330 ",.02)
 ;;43353067330
 ;;9002226.02101,"900,43353067353 ",.01)
 ;;43353067353
 ;;9002226.02101,"900,43353067353 ",.02)
 ;;43353067353
 ;;9002226.02101,"900,43353067394 ",.01)
 ;;43353067394
 ;;9002226.02101,"900,43353067394 ",.02)
 ;;43353067394
 ;;9002226.02101,"900,43353071460 ",.01)
 ;;43353071460
 ;;9002226.02101,"900,43353071460 ",.02)
 ;;43353071460
 ;;9002226.02101,"900,43353071845 ",.01)
 ;;43353071845
 ;;9002226.02101,"900,43353071845 ",.02)
 ;;43353071845
 ;;9002226.02101,"900,43353071860 ",.01)
 ;;43353071860
 ;;9002226.02101,"900,43353071860 ",.02)
 ;;43353071860
 ;;9002226.02101,"900,43806024040 ",.01)
 ;;43806024040
 ;;9002226.02101,"900,43806024040 ",.02)
 ;;43806024040
 ;;9002226.02101,"900,43806038240 ",.01)
 ;;43806038240
 ;;9002226.02101,"900,43806038240 ",.02)
 ;;43806038240
 ;;9002226.02101,"900,43806041140 ",.01)
 ;;43806041140
 ;;9002226.02101,"900,43806041140 ",.02)
 ;;43806041140
 ;;9002226.02101,"900,43806041240 ",.01)
 ;;43806041240
 ;;9002226.02101,"900,43806041240 ",.02)
 ;;43806041240
 ;;9002226.02101,"900,43806067035 ",.01)
 ;;43806067035
 ;;9002226.02101,"900,43806067035 ",.02)
 ;;43806067035
 ;;9002226.02101,"900,43806067041 ",.01)
 ;;43806067041
 ;;9002226.02101,"900,43806067041 ",.02)
 ;;43806067041
 ;;9002226.02101,"900,43806067070 ",.01)
 ;;43806067070
 ;;9002226.02101,"900,43806067070 ",.02)
 ;;43806067070
 ;;9002226.02101,"900,43806092240 ",.01)
 ;;43806092240
 ;;9002226.02101,"900,43806092240 ",.02)
 ;;43806092240
 ;;9002226.02101,"900,43806092340 ",.01)
 ;;43806092340
 ;;9002226.02101,"900,43806092340 ",.02)
 ;;43806092340
 ;;9002226.02101,"900,43806092440 ",.01)
 ;;43806092440
 ;;9002226.02101,"900,43806092440 ",.02)
 ;;43806092440
 ;;9002226.02101,"900,46672081777 ",.01)
 ;;46672081777
 ;;9002226.02101,"900,46672081777 ",.02)
 ;;46672081777
 ;;9002226.02101,"900,49072095377 ",.01)
 ;;49072095377
 ;;9002226.02101,"900,49072095377 ",.02)
 ;;49072095377
 ;;9002226.02101,"900,49299109001 ",.01)
 ;;49299109001
 ;;9002226.02101,"900,49299109001 ",.02)
 ;;49299109001
 ;;9002226.02101,"900,49299109102 ",.01)
 ;;49299109102
 ;;9002226.02101,"900,49299109102 ",.02)
 ;;49299109102
 ;;9002226.02101,"900,49299109204 ",.01)
 ;;49299109204
 ;;9002226.02101,"900,49299109204 ",.02)
 ;;49299109204
 ;;9002226.02101,"900,49299109308 ",.01)
 ;;49299109308
 ;;9002226.02101,"900,49299109308 ",.02)
 ;;49299109308
 ;;9002226.02101,"900,49348009710 ",.01)
 ;;49348009710
 ;;9002226.02101,"900,49348009710 ",.02)
 ;;49348009710
 ;;9002226.02101,"900,49348026212 ",.01)
 ;;49348026212
 ;;9002226.02101,"900,49348026212 ",.02)
 ;;49348026212
 ;;9002226.02101,"900,49349003902 ",.01)
 ;;49349003902
 ;;9002226.02101,"900,49349003902 ",.02)
 ;;49349003902
 ;;9002226.02101,"900,49349015702 ",.01)
 ;;49349015702
 ;;9002226.02101,"900,49349015702 ",.02)
 ;;49349015702