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

BGPM5ADA.m

Go to the documentation of this file.
BGPM5ADA ;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,"846,58016037875 ",.02)
 ;;58016037875
 ;;9002226.02101,"846,58016037876 ",.01)
 ;;58016037876
 ;;9002226.02101,"846,58016037876 ",.02)
 ;;58016037876
 ;;9002226.02101,"846,58016037877 ",.01)
 ;;58016037877
 ;;9002226.02101,"846,58016037877 ",.02)
 ;;58016037877
 ;;9002226.02101,"846,58016037879 ",.01)
 ;;58016037879
 ;;9002226.02101,"846,58016037879 ",.02)
 ;;58016037879
 ;;9002226.02101,"846,58016037880 ",.01)
 ;;58016037880
 ;;9002226.02101,"846,58016037880 ",.02)
 ;;58016037880
 ;;9002226.02101,"846,58016037881 ",.01)
 ;;58016037881
 ;;9002226.02101,"846,58016037881 ",.02)
 ;;58016037881
 ;;9002226.02101,"846,58016037882 ",.01)
 ;;58016037882
 ;;9002226.02101,"846,58016037882 ",.02)
 ;;58016037882
 ;;9002226.02101,"846,58016037883 ",.01)
 ;;58016037883
 ;;9002226.02101,"846,58016037883 ",.02)
 ;;58016037883
 ;;9002226.02101,"846,58016037884 ",.01)
 ;;58016037884
 ;;9002226.02101,"846,58016037884 ",.02)
 ;;58016037884
 ;;9002226.02101,"846,58016037887 ",.01)
 ;;58016037887
 ;;9002226.02101,"846,58016037887 ",.02)
 ;;58016037887
 ;;9002226.02101,"846,58016037889 ",.01)
 ;;58016037889
 ;;9002226.02101,"846,58016037889 ",.02)
 ;;58016037889
 ;;9002226.02101,"846,58016037890 ",.01)
 ;;58016037890
 ;;9002226.02101,"846,58016037890 ",.02)
 ;;58016037890
 ;;9002226.02101,"846,58016037891 ",.01)
 ;;58016037891
 ;;9002226.02101,"846,58016037891 ",.02)
 ;;58016037891
 ;;9002226.02101,"846,58016037892 ",.01)
 ;;58016037892
 ;;9002226.02101,"846,58016037892 ",.02)
 ;;58016037892
 ;;9002226.02101,"846,58016037893 ",.01)
 ;;58016037893
 ;;9002226.02101,"846,58016037893 ",.02)
 ;;58016037893
 ;;9002226.02101,"846,58016037896 ",.01)
 ;;58016037896
 ;;9002226.02101,"846,58016037896 ",.02)
 ;;58016037896
 ;;9002226.02101,"846,58016037897 ",.01)
 ;;58016037897
 ;;9002226.02101,"846,58016037897 ",.02)
 ;;58016037897
 ;;9002226.02101,"846,58016037898 ",.01)
 ;;58016037898
 ;;9002226.02101,"846,58016037898 ",.02)
 ;;58016037898
 ;;9002226.02101,"846,58016037899 ",.01)
 ;;58016037899
 ;;9002226.02101,"846,58016037899 ",.02)
 ;;58016037899
 ;;9002226.02101,"846,58016038300 ",.01)
 ;;58016038300
 ;;9002226.02101,"846,58016038300 ",.02)
 ;;58016038300
 ;;9002226.02101,"846,58016038301 ",.01)
 ;;58016038301
 ;;9002226.02101,"846,58016038301 ",.02)
 ;;58016038301
 ;;9002226.02101,"846,58016038302 ",.01)
 ;;58016038302
 ;;9002226.02101,"846,58016038302 ",.02)
 ;;58016038302
 ;;9002226.02101,"846,58016038303 ",.01)
 ;;58016038303
 ;;9002226.02101,"846,58016038303 ",.02)
 ;;58016038303
 ;;9002226.02101,"846,58016038304 ",.01)
 ;;58016038304
 ;;9002226.02101,"846,58016038304 ",.02)
 ;;58016038304
 ;;9002226.02101,"846,58016038305 ",.01)
 ;;58016038305
 ;;9002226.02101,"846,58016038305 ",.02)
 ;;58016038305
 ;;9002226.02101,"846,58016038306 ",.01)
 ;;58016038306
 ;;9002226.02101,"846,58016038306 ",.02)
 ;;58016038306
 ;;9002226.02101,"846,58016038307 ",.01)
 ;;58016038307
 ;;9002226.02101,"846,58016038307 ",.02)
 ;;58016038307
 ;;9002226.02101,"846,58016038308 ",.01)
 ;;58016038308
 ;;9002226.02101,"846,58016038308 ",.02)
 ;;58016038308
 ;;9002226.02101,"846,58016038309 ",.01)
 ;;58016038309
 ;;9002226.02101,"846,58016038309 ",.02)
 ;;58016038309
 ;;9002226.02101,"846,58016038310 ",.01)
 ;;58016038310
 ;;9002226.02101,"846,58016038310 ",.02)
 ;;58016038310
 ;;9002226.02101,"846,58016038312 ",.01)
 ;;58016038312
 ;;9002226.02101,"846,58016038312 ",.02)
 ;;58016038312
 ;;9002226.02101,"846,58016038314 ",.01)
 ;;58016038314
 ;;9002226.02101,"846,58016038314 ",.02)
 ;;58016038314
 ;;9002226.02101,"846,58016038315 ",.01)
 ;;58016038315
 ;;9002226.02101,"846,58016038315 ",.02)
 ;;58016038315
 ;;9002226.02101,"846,58016038316 ",.01)
 ;;58016038316
 ;;9002226.02101,"846,58016038316 ",.02)
 ;;58016038316
 ;;9002226.02101,"846,58016038318 ",.01)
 ;;58016038318
 ;;9002226.02101,"846,58016038318 ",.02)
 ;;58016038318
 ;;9002226.02101,"846,58016038320 ",.01)
 ;;58016038320
 ;;9002226.02101,"846,58016038320 ",.02)
 ;;58016038320
 ;;9002226.02101,"846,58016038321 ",.01)
 ;;58016038321
 ;;9002226.02101,"846,58016038321 ",.02)
 ;;58016038321
 ;;9002226.02101,"846,58016038324 ",.01)
 ;;58016038324
 ;;9002226.02101,"846,58016038324 ",.02)
 ;;58016038324
 ;;9002226.02101,"846,58016038325 ",.01)
 ;;58016038325
 ;;9002226.02101,"846,58016038325 ",.02)
 ;;58016038325
 ;;9002226.02101,"846,58016038326 ",.01)
 ;;58016038326
 ;;9002226.02101,"846,58016038326 ",.02)
 ;;58016038326
 ;;9002226.02101,"846,58016038327 ",.01)
 ;;58016038327
 ;;9002226.02101,"846,58016038327 ",.02)
 ;;58016038327
 ;;9002226.02101,"846,58016038328 ",.01)
 ;;58016038328
 ;;9002226.02101,"846,58016038328 ",.02)
 ;;58016038328
 ;;9002226.02101,"846,58016038330 ",.01)
 ;;58016038330
 ;;9002226.02101,"846,58016038330 ",.02)
 ;;58016038330
 ;;9002226.02101,"846,58016038332 ",.01)
 ;;58016038332
 ;;9002226.02101,"846,58016038332 ",.02)
 ;;58016038332
 ;;9002226.02101,"846,58016038335 ",.01)
 ;;58016038335
 ;;9002226.02101,"846,58016038335 ",.02)
 ;;58016038335
 ;;9002226.02101,"846,58016038336 ",.01)
 ;;58016038336
 ;;9002226.02101,"846,58016038336 ",.02)
 ;;58016038336
 ;;9002226.02101,"846,58016038340 ",.01)
 ;;58016038340
 ;;9002226.02101,"846,58016038340 ",.02)
 ;;58016038340
 ;;9002226.02101,"846,58016038342 ",.01)
 ;;58016038342
 ;;9002226.02101,"846,58016038342 ",.02)
 ;;58016038342
 ;;9002226.02101,"846,58016038344 ",.01)
 ;;58016038344
 ;;9002226.02101,"846,58016038344 ",.02)
 ;;58016038344
 ;;9002226.02101,"846,58016038345 ",.01)
 ;;58016038345
 ;;9002226.02101,"846,58016038345 ",.02)
 ;;58016038345
 ;;9002226.02101,"846,58016038348 ",.01)
 ;;58016038348
 ;;9002226.02101,"846,58016038348 ",.02)
 ;;58016038348
 ;;9002226.02101,"846,58016038350 ",.01)
 ;;58016038350
 ;;9002226.02101,"846,58016038350 ",.02)
 ;;58016038350
 ;;9002226.02101,"846,58016038356 ",.01)
 ;;58016038356
 ;;9002226.02101,"846,58016038356 ",.02)
 ;;58016038356
 ;;9002226.02101,"846,58016038360 ",.01)
 ;;58016038360
 ;;9002226.02101,"846,58016038360 ",.02)
 ;;58016038360
 ;;9002226.02101,"846,58016038367 ",.01)
 ;;58016038367
 ;;9002226.02101,"846,58016038367 ",.02)
 ;;58016038367
 ;;9002226.02101,"846,58016038369 ",.01)
 ;;58016038369
 ;;9002226.02101,"846,58016038369 ",.02)
 ;;58016038369
 ;;9002226.02101,"846,58016038370 ",.01)
 ;;58016038370
 ;;9002226.02101,"846,58016038370 ",.02)
 ;;58016038370
 ;;9002226.02101,"846,58016038371 ",.01)
 ;;58016038371
 ;;9002226.02101,"846,58016038371 ",.02)
 ;;58016038371
 ;;9002226.02101,"846,58016038372 ",.01)
 ;;58016038372
 ;;9002226.02101,"846,58016038372 ",.02)
 ;;58016038372
 ;;9002226.02101,"846,58016038373 ",.01)
 ;;58016038373
 ;;9002226.02101,"846,58016038373 ",.02)
 ;;58016038373
 ;;9002226.02101,"846,58016038375 ",.01)
 ;;58016038375
 ;;9002226.02101,"846,58016038375 ",.02)
 ;;58016038375
 ;;9002226.02101,"846,58016038376 ",.01)
 ;;58016038376
 ;;9002226.02101,"846,58016038376 ",.02)
 ;;58016038376
 ;;9002226.02101,"846,58016038377 ",.01)
 ;;58016038377
 ;;9002226.02101,"846,58016038377 ",.02)
 ;;58016038377
 ;;9002226.02101,"846,58016038379 ",.01)
 ;;58016038379
 ;;9002226.02101,"846,58016038379 ",.02)
 ;;58016038379
 ;;9002226.02101,"846,58016038380 ",.01)
 ;;58016038380
 ;;9002226.02101,"846,58016038380 ",.02)
 ;;58016038380
 ;;9002226.02101,"846,58016038381 ",.01)
 ;;58016038381
 ;;9002226.02101,"846,58016038381 ",.02)
 ;;58016038381
 ;;9002226.02101,"846,58016038382 ",.01)
 ;;58016038382
 ;;9002226.02101,"846,58016038382 ",.02)
 ;;58016038382
 ;;9002226.02101,"846,58016038383 ",.01)
 ;;58016038383
 ;;9002226.02101,"846,58016038383 ",.02)
 ;;58016038383
 ;;9002226.02101,"846,58016038384 ",.01)
 ;;58016038384
 ;;9002226.02101,"846,58016038384 ",.02)
 ;;58016038384
 ;;9002226.02101,"846,58016038387 ",.01)
 ;;58016038387
 ;;9002226.02101,"846,58016038387 ",.02)
 ;;58016038387
 ;;9002226.02101,"846,58016038389 ",.01)
 ;;58016038389
 ;;9002226.02101,"846,58016038389 ",.02)
 ;;58016038389
 ;;9002226.02101,"846,58016038390 ",.01)
 ;;58016038390
 ;;9002226.02101,"846,58016038390 ",.02)
 ;;58016038390
 ;;9002226.02101,"846,58016038391 ",.01)
 ;;58016038391
 ;;9002226.02101,"846,58016038391 ",.02)
 ;;58016038391
 ;;9002226.02101,"846,58016038392 ",.01)
 ;;58016038392
 ;;9002226.02101,"846,58016038392 ",.02)
 ;;58016038392
 ;;9002226.02101,"846,58016038393 ",.01)
 ;;58016038393
 ;;9002226.02101,"846,58016038393 ",.02)
 ;;58016038393
 ;;9002226.02101,"846,58016038396 ",.01)
 ;;58016038396
 ;;9002226.02101,"846,58016038396 ",.02)
 ;;58016038396
 ;;9002226.02101,"846,58016038397 ",.01)
 ;;58016038397
 ;;9002226.02101,"846,58016038397 ",.02)
 ;;58016038397
 ;;9002226.02101,"846,58016038398 ",.01)
 ;;58016038398
 ;;9002226.02101,"846,58016038398 ",.02)
 ;;58016038398
 ;;9002226.02101,"846,58016038399 ",.01)
 ;;58016038399
 ;;9002226.02101,"846,58016038399 ",.02)
 ;;58016038399
 ;;9002226.02101,"846,58016038600 ",.01)
 ;;58016038600
 ;;9002226.02101,"846,58016038600 ",.02)
 ;;58016038600
 ;;9002226.02101,"846,58016038601 ",.01)
 ;;58016038601
 ;;9002226.02101,"846,58016038601 ",.02)
 ;;58016038601
 ;;9002226.02101,"846,58016038602 ",.01)
 ;;58016038602
 ;;9002226.02101,"846,58016038602 ",.02)
 ;;58016038602
 ;;9002226.02101,"846,58016038603 ",.01)
 ;;58016038603
 ;;9002226.02101,"846,58016038603 ",.02)
 ;;58016038603
 ;;9002226.02101,"846,58016038604 ",.01)
 ;;58016038604
 ;;9002226.02101,"846,58016038604 ",.02)
 ;;58016038604
 ;;9002226.02101,"846,58016038605 ",.01)
 ;;58016038605
 ;;9002226.02101,"846,58016038605 ",.02)
 ;;58016038605
 ;;9002226.02101,"846,58016038606 ",.01)
 ;;58016038606
 ;;9002226.02101,"846,58016038606 ",.02)
 ;;58016038606
 ;;9002226.02101,"846,58016038607 ",.01)
 ;;58016038607
 ;;9002226.02101,"846,58016038607 ",.02)
 ;;58016038607
 ;;9002226.02101,"846,58016038608 ",.01)
 ;;58016038608
 ;;9002226.02101,"846,58016038608 ",.02)
 ;;58016038608
 ;;9002226.02101,"846,58016038609 ",.01)
 ;;58016038609
 ;;9002226.02101,"846,58016038609 ",.02)
 ;;58016038609
 ;;9002226.02101,"846,58016038610 ",.01)
 ;;58016038610
 ;;9002226.02101,"846,58016038610 ",.02)
 ;;58016038610
 ;;9002226.02101,"846,58016038612 ",.01)
 ;;58016038612
 ;;9002226.02101,"846,58016038612 ",.02)
 ;;58016038612
 ;;9002226.02101,"846,58016038614 ",.01)
 ;;58016038614
 ;;9002226.02101,"846,58016038614 ",.02)
 ;;58016038614
 ;;9002226.02101,"846,58016038615 ",.01)
 ;;58016038615
 ;;9002226.02101,"846,58016038615 ",.02)
 ;;58016038615
 ;;9002226.02101,"846,58016038616 ",.01)
 ;;58016038616
 ;;9002226.02101,"846,58016038616 ",.02)
 ;;58016038616
 ;;9002226.02101,"846,58016038618 ",.01)
 ;;58016038618
 ;;9002226.02101,"846,58016038618 ",.02)
 ;;58016038618
 ;;9002226.02101,"846,58016038620 ",.01)
 ;;58016038620
 ;;9002226.02101,"846,58016038620 ",.02)
 ;;58016038620
 ;;9002226.02101,"846,58016038621 ",.01)
 ;;58016038621
 ;;9002226.02101,"846,58016038621 ",.02)
 ;;58016038621
 ;;9002226.02101,"846,58016038624 ",.01)
 ;;58016038624
 ;;9002226.02101,"846,58016038624 ",.02)
 ;;58016038624
 ;;9002226.02101,"846,58016038625 ",.01)
 ;;58016038625
 ;;9002226.02101,"846,58016038625 ",.02)
 ;;58016038625
 ;;9002226.02101,"846,58016038626 ",.01)
 ;;58016038626
 ;;9002226.02101,"846,58016038626 ",.02)
 ;;58016038626
 ;;9002226.02101,"846,58016038627 ",.01)
 ;;58016038627
 ;;9002226.02101,"846,58016038627 ",.02)
 ;;58016038627
 ;;9002226.02101,"846,58016038628 ",.01)
 ;;58016038628
 ;;9002226.02101,"846,58016038628 ",.02)
 ;;58016038628
 ;;9002226.02101,"846,58016038630 ",.01)
 ;;58016038630