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