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

BGPM5AJR.m

Go to the documentation of this file.
BGPM5AJR ;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,"889,55045123608 ",.01)
 ;;55045123608
 ;;9002226.02101,"889,55045123608 ",.02)
 ;;55045123608
 ;;9002226.02101,"889,55045123609 ",.01)
 ;;55045123609
 ;;9002226.02101,"889,55045123609 ",.02)
 ;;55045123609
 ;;9002226.02101,"889,55045133909 ",.01)
 ;;55045133909
 ;;9002226.02101,"889,55045133909 ",.02)
 ;;55045133909
 ;;9002226.02101,"889,55045185301 ",.01)
 ;;55045185301
 ;;9002226.02101,"889,55045185301 ",.02)
 ;;55045185301
 ;;9002226.02101,"889,55045186001 ",.01)
 ;;55045186001
 ;;9002226.02101,"889,55045186001 ",.02)
 ;;55045186001
 ;;9002226.02101,"889,55045186002 ",.01)
 ;;55045186002
 ;;9002226.02101,"889,55045186002 ",.02)
 ;;55045186002
 ;;9002226.02101,"889,55045186006 ",.01)
 ;;55045186006
 ;;9002226.02101,"889,55045186006 ",.02)
 ;;55045186006
 ;;9002226.02101,"889,55045186008 ",.01)
 ;;55045186008
 ;;9002226.02101,"889,55045186008 ",.02)
 ;;55045186008
 ;;9002226.02101,"889,55045186009 ",.01)
 ;;55045186009
 ;;9002226.02101,"889,55045186009 ",.02)
 ;;55045186009
 ;;9002226.02101,"889,55045207801 ",.01)
 ;;55045207801
 ;;9002226.02101,"889,55045207801 ",.02)
 ;;55045207801
 ;;9002226.02101,"889,55045207806 ",.01)
 ;;55045207806
 ;;9002226.02101,"889,55045207806 ",.02)
 ;;55045207806
 ;;9002226.02101,"889,55045207808 ",.01)
 ;;55045207808
 ;;9002226.02101,"889,55045207808 ",.02)
 ;;55045207808
 ;;9002226.02101,"889,55045221700 ",.01)
 ;;55045221700
 ;;9002226.02101,"889,55045221700 ",.02)
 ;;55045221700
 ;;9002226.02101,"889,55045221702 ",.01)
 ;;55045221702
 ;;9002226.02101,"889,55045221702 ",.02)
 ;;55045221702
 ;;9002226.02101,"889,55045221706 ",.01)
 ;;55045221706
 ;;9002226.02101,"889,55045221706 ",.02)
 ;;55045221706
 ;;9002226.02101,"889,55045221708 ",.01)
 ;;55045221708
 ;;9002226.02101,"889,55045221708 ",.02)
 ;;55045221708
 ;;9002226.02101,"889,55045221709 ",.01)
 ;;55045221709
 ;;9002226.02101,"889,55045221709 ",.02)
 ;;55045221709
 ;;9002226.02101,"889,55045226900 ",.01)
 ;;55045226900
 ;;9002226.02101,"889,55045226900 ",.02)
 ;;55045226900
 ;;9002226.02101,"889,55045226901 ",.01)
 ;;55045226901
 ;;9002226.02101,"889,55045226901 ",.02)
 ;;55045226901
 ;;9002226.02101,"889,55045226902 ",.01)
 ;;55045226902
 ;;9002226.02101,"889,55045226902 ",.02)
 ;;55045226902
 ;;9002226.02101,"889,55045226906 ",.01)
 ;;55045226906
 ;;9002226.02101,"889,55045226906 ",.02)
 ;;55045226906
 ;;9002226.02101,"889,55045226908 ",.01)
 ;;55045226908
 ;;9002226.02101,"889,55045226908 ",.02)
 ;;55045226908
 ;;9002226.02101,"889,55045226909 ",.01)
 ;;55045226909
 ;;9002226.02101,"889,55045226909 ",.02)
 ;;55045226909
 ;;9002226.02101,"889,55045228200 ",.01)
 ;;55045228200
 ;;9002226.02101,"889,55045228200 ",.02)
 ;;55045228200
 ;;9002226.02101,"889,55045228202 ",.01)
 ;;55045228202
 ;;9002226.02101,"889,55045228202 ",.02)
 ;;55045228202
 ;;9002226.02101,"889,55045228206 ",.01)
 ;;55045228206
 ;;9002226.02101,"889,55045228206 ",.02)
 ;;55045228206
 ;;9002226.02101,"889,55045228207 ",.01)
 ;;55045228207
 ;;9002226.02101,"889,55045228207 ",.02)
 ;;55045228207
 ;;9002226.02101,"889,55045228208 ",.01)
 ;;55045228208
 ;;9002226.02101,"889,55045228208 ",.02)
 ;;55045228208
 ;;9002226.02101,"889,55045228209 ",.01)
 ;;55045228209
 ;;9002226.02101,"889,55045228209 ",.02)
 ;;55045228209
 ;;9002226.02101,"889,55045243100 ",.01)
 ;;55045243100
 ;;9002226.02101,"889,55045243100 ",.02)
 ;;55045243100
 ;;9002226.02101,"889,55045243101 ",.01)
 ;;55045243101
 ;;9002226.02101,"889,55045243101 ",.02)
 ;;55045243101
 ;;9002226.02101,"889,55045243108 ",.01)
 ;;55045243108
 ;;9002226.02101,"889,55045243108 ",.02)
 ;;55045243108
 ;;9002226.02101,"889,55045249801 ",.01)
 ;;55045249801
 ;;9002226.02101,"889,55045249801 ",.02)
 ;;55045249801
 ;;9002226.02101,"889,55045249808 ",.01)
 ;;55045249808
 ;;9002226.02101,"889,55045249808 ",.02)
 ;;55045249808
 ;;9002226.02101,"889,55045275508 ",.01)
 ;;55045275508
 ;;9002226.02101,"889,55045275508 ",.02)
 ;;55045275508
 ;;9002226.02101,"889,55045297700 ",.01)
 ;;55045297700
 ;;9002226.02101,"889,55045297700 ",.02)
 ;;55045297700
 ;;9002226.02101,"889,55045299001 ",.01)
 ;;55045299001
 ;;9002226.02101,"889,55045299001 ",.02)
 ;;55045299001
 ;;9002226.02101,"889,55045299008 ",.01)
 ;;55045299008
 ;;9002226.02101,"889,55045299008 ",.02)
 ;;55045299008
 ;;9002226.02101,"889,55045300600 ",.01)
 ;;55045300600
 ;;9002226.02101,"889,55045300600 ",.02)
 ;;55045300600
 ;;9002226.02101,"889,55045300608 ",.01)
 ;;55045300608
 ;;9002226.02101,"889,55045300608 ",.02)
 ;;55045300608
 ;;9002226.02101,"889,55045306100 ",.01)
 ;;55045306100
 ;;9002226.02101,"889,55045306100 ",.02)
 ;;55045306100
 ;;9002226.02101,"889,55045336101 ",.01)
 ;;55045336101
 ;;9002226.02101,"889,55045336101 ",.02)
 ;;55045336101
 ;;9002226.02101,"889,55045336108 ",.01)
 ;;55045336108
 ;;9002226.02101,"889,55045336108 ",.02)
 ;;55045336108
 ;;9002226.02101,"889,55045337108 ",.01)
 ;;55045337108
 ;;9002226.02101,"889,55045337108 ",.02)
 ;;55045337108
 ;;9002226.02101,"889,55045337708 ",.01)
 ;;55045337708
 ;;9002226.02101,"889,55045337708 ",.02)
 ;;55045337708
 ;;9002226.02101,"889,55045360401 ",.01)
 ;;55045360401
 ;;9002226.02101,"889,55045360401 ",.02)
 ;;55045360401
 ;;9002226.02101,"889,55045376208 ",.01)
 ;;55045376208
 ;;9002226.02101,"889,55045376208 ",.02)
 ;;55045376208
 ;;9002226.02101,"889,55154020401 ",.01)
 ;;55154020401
 ;;9002226.02101,"889,55154020401 ",.02)
 ;;55154020401
 ;;9002226.02101,"889,55154036105 ",.01)
 ;;55154036105
 ;;9002226.02101,"889,55154036105 ",.02)
 ;;55154036105
 ;;9002226.02101,"889,55154037305 ",.01)
 ;;55154037305
 ;;9002226.02101,"889,55154037305 ",.02)
 ;;55154037305
 ;;9002226.02101,"889,55154060401 ",.01)
 ;;55154060401
 ;;9002226.02101,"889,55154060401 ",.02)
 ;;55154060401
 ;;9002226.02101,"889,55154060501 ",.01)
 ;;55154060501
 ;;9002226.02101,"889,55154060501 ",.02)
 ;;55154060501
 ;;9002226.02101,"889,55154068400 ",.01)
 ;;55154068400
 ;;9002226.02101,"889,55154068400 ",.02)
 ;;55154068400
 ;;9002226.02101,"889,55154100907 ",.01)
 ;;55154100907
 ;;9002226.02101,"889,55154100907 ",.02)
 ;;55154100907
 ;;9002226.02101,"889,55154110107 ",.01)
 ;;55154110107
 ;;9002226.02101,"889,55154110107 ",.02)
 ;;55154110107
 ;;9002226.02101,"889,55154235505 ",.01)
 ;;55154235505
 ;;9002226.02101,"889,55154235505 ",.02)
 ;;55154235505
 ;;9002226.02101,"889,55154235507 ",.01)
 ;;55154235507
 ;;9002226.02101,"889,55154235507 ",.02)
 ;;55154235507
 ;;9002226.02101,"889,55154343509 ",.01)
 ;;55154343509
 ;;9002226.02101,"889,55154343509 ",.02)
 ;;55154343509
 ;;9002226.02101,"889,55154451400 ",.01)
 ;;55154451400
 ;;9002226.02101,"889,55154451400 ",.02)
 ;;55154451400
 ;;9002226.02101,"889,55154451404 ",.01)
 ;;55154451404
 ;;9002226.02101,"889,55154451404 ",.02)
 ;;55154451404
 ;;9002226.02101,"889,55154451406 ",.01)
 ;;55154451406
 ;;9002226.02101,"889,55154451406 ",.02)
 ;;55154451406
 ;;9002226.02101,"889,55154451500 ",.01)
 ;;55154451500
 ;;9002226.02101,"889,55154451500 ",.02)
 ;;55154451500
 ;;9002226.02101,"889,55154451504 ",.01)
 ;;55154451504
 ;;9002226.02101,"889,55154451504 ",.02)
 ;;55154451504
 ;;9002226.02101,"889,55154451506 ",.01)
 ;;55154451506
 ;;9002226.02101,"889,55154451506 ",.02)
 ;;55154451506
 ;;9002226.02101,"889,55154451600 ",.01)
 ;;55154451600
 ;;9002226.02101,"889,55154451600 ",.02)
 ;;55154451600
 ;;9002226.02101,"889,55154451604 ",.01)
 ;;55154451604
 ;;9002226.02101,"889,55154451604 ",.02)
 ;;55154451604
 ;;9002226.02101,"889,55154451606 ",.01)
 ;;55154451606
 ;;9002226.02101,"889,55154451606 ",.02)
 ;;55154451606
 ;;9002226.02101,"889,55154451700 ",.01)
 ;;55154451700
 ;;9002226.02101,"889,55154451700 ",.02)
 ;;55154451700
 ;;9002226.02101,"889,55154451704 ",.01)
 ;;55154451704
 ;;9002226.02101,"889,55154451704 ",.02)
 ;;55154451704
 ;;9002226.02101,"889,55154451706 ",.01)
 ;;55154451706
 ;;9002226.02101,"889,55154451706 ",.02)
 ;;55154451706
 ;;9002226.02101,"889,55154451708 ",.01)
 ;;55154451708
 ;;9002226.02101,"889,55154451708 ",.02)
 ;;55154451708
 ;;9002226.02101,"889,55154455109 ",.01)
 ;;55154455109
 ;;9002226.02101,"889,55154455109 ",.02)
 ;;55154455109
 ;;9002226.02101,"889,55154455809 ",.01)
 ;;55154455809
 ;;9002226.02101,"889,55154455809 ",.02)
 ;;55154455809
 ;;9002226.02101,"889,55154502600 ",.01)
 ;;55154502600
 ;;9002226.02101,"889,55154502600 ",.02)
 ;;55154502600
 ;;9002226.02101,"889,55154502608 ",.01)
 ;;55154502608
 ;;9002226.02101,"889,55154502608 ",.02)
 ;;55154502608
 ;;9002226.02101,"889,55154505600 ",.01)
 ;;55154505600
 ;;9002226.02101,"889,55154505600 ",.02)
 ;;55154505600
 ;;9002226.02101,"889,55154507300 ",.01)
 ;;55154507300
 ;;9002226.02101,"889,55154507300 ",.02)
 ;;55154507300
 ;;9002226.02101,"889,55154535600 ",.01)
 ;;55154535600
 ;;9002226.02101,"889,55154535600 ",.02)
 ;;55154535600
 ;;9002226.02101,"889,55154540507 ",.01)
 ;;55154540507
 ;;9002226.02101,"889,55154540507 ",.02)
 ;;55154540507
 ;;9002226.02101,"889,55154541107 ",.01)
 ;;55154541107
 ;;9002226.02101,"889,55154541107 ",.02)
 ;;55154541107
 ;;9002226.02101,"889,55154545500 ",.01)
 ;;55154545500
 ;;9002226.02101,"889,55154545500 ",.02)
 ;;55154545500
 ;;9002226.02101,"889,55154547800 ",.01)
 ;;55154547800
 ;;9002226.02101,"889,55154547800 ",.02)
 ;;55154547800
 ;;9002226.02101,"889,55154547807 ",.01)
 ;;55154547807
 ;;9002226.02101,"889,55154547807 ",.02)
 ;;55154547807
 ;;9002226.02101,"889,55154548500 ",.01)
 ;;55154548500
 ;;9002226.02101,"889,55154548500 ",.02)
 ;;55154548500
 ;;9002226.02101,"889,55154549100 ",.01)
 ;;55154549100
 ;;9002226.02101,"889,55154549100 ",.02)
 ;;55154549100
 ;;9002226.02101,"889,55154551100 ",.01)
 ;;55154551100
 ;;9002226.02101,"889,55154551100 ",.02)
 ;;55154551100
 ;;9002226.02101,"889,55154551107 ",.01)
 ;;55154551107
 ;;9002226.02101,"889,55154551107 ",.02)
 ;;55154551107
 ;;9002226.02101,"889,55154551200 ",.01)
 ;;55154551200
 ;;9002226.02101,"889,55154551200 ",.02)
 ;;55154551200
 ;;9002226.02101,"889,55154551207 ",.01)
 ;;55154551207
 ;;9002226.02101,"889,55154551207 ",.02)
 ;;55154551207
 ;;9002226.02101,"889,55154567100 ",.01)
 ;;55154567100
 ;;9002226.02101,"889,55154567100 ",.02)
 ;;55154567100
 ;;9002226.02101,"889,55154568200 ",.01)
 ;;55154568200
 ;;9002226.02101,"889,55154568200 ",.02)
 ;;55154568200
 ;;9002226.02101,"889,55154583600 ",.01)
 ;;55154583600
 ;;9002226.02101,"889,55154583600 ",.02)
 ;;55154583600
 ;;9002226.02101,"889,55154583800 ",.01)
 ;;55154583800
 ;;9002226.02101,"889,55154583800 ",.02)
 ;;55154583800
 ;;9002226.02101,"889,55154617300 ",.01)
 ;;55154617300
 ;;9002226.02101,"889,55154617300 ",.02)
 ;;55154617300
 ;;9002226.02101,"889,55154618000 ",.01)
 ;;55154618000
 ;;9002226.02101,"889,55154618000 ",.02)
 ;;55154618000
 ;;9002226.02101,"889,55154618100 ",.01)
 ;;55154618100
 ;;9002226.02101,"889,55154618100 ",.02)
 ;;55154618100
 ;;9002226.02101,"889,55154618600 ",.01)
 ;;55154618600
 ;;9002226.02101,"889,55154618600 ",.02)
 ;;55154618600
 ;;9002226.02101,"889,55154621309 ",.01)
 ;;55154621309
 ;;9002226.02101,"889,55154621309 ",.02)
 ;;55154621309
 ;;9002226.02101,"889,55154622709 ",.01)
 ;;55154622709
 ;;9002226.02101,"889,55154622709 ",.02)
 ;;55154622709
 ;;9002226.02101,"889,55154665405 ",.01)
 ;;55154665405
 ;;9002226.02101,"889,55154665405 ",.02)
 ;;55154665405
 ;;9002226.02101,"889,55154755900 ",.01)
 ;;55154755900
 ;;9002226.02101,"889,55154755900 ",.02)
 ;;55154755900
 ;;9002226.02101,"889,55154756000 ",.01)
 ;;55154756000
 ;;9002226.02101,"889,55154756000 ",.02)
 ;;55154756000