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

BGPM5BFM.m

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