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

BGPM5ABX.m

Go to the documentation of this file.
  1. BGPM5ABX ;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,"830,54868521701 ",.02)
  1. ;;54868521701
  1. ;;9002226.02101,"830,54868521702 ",.01)
  1. ;;54868521702
  1. ;;9002226.02101,"830,54868521702 ",.02)
  1. ;;54868521702
  1. ;;9002226.02101,"830,54868521703 ",.01)
  1. ;;54868521703
  1. ;;9002226.02101,"830,54868521703 ",.02)
  1. ;;54868521703
  1. ;;9002226.02101,"830,54868521704 ",.01)
  1. ;;54868521704
  1. ;;9002226.02101,"830,54868521704 ",.02)
  1. ;;54868521704
  1. ;;9002226.02101,"830,54868521705 ",.01)
  1. ;;54868521705
  1. ;;9002226.02101,"830,54868521705 ",.02)
  1. ;;54868521705
  1. ;;9002226.02101,"830,54868524300 ",.01)
  1. ;;54868524300
  1. ;;9002226.02101,"830,54868524300 ",.02)
  1. ;;54868524300
  1. ;;9002226.02101,"830,54868524301 ",.01)
  1. ;;54868524301
  1. ;;9002226.02101,"830,54868524301 ",.02)
  1. ;;54868524301
  1. ;;9002226.02101,"830,54868524302 ",.01)
  1. ;;54868524302
  1. ;;9002226.02101,"830,54868524302 ",.02)
  1. ;;54868524302
  1. ;;9002226.02101,"830,54868524303 ",.01)
  1. ;;54868524303
  1. ;;9002226.02101,"830,54868524303 ",.02)
  1. ;;54868524303
  1. ;;9002226.02101,"830,54868524304 ",.01)
  1. ;;54868524304
  1. ;;9002226.02101,"830,54868524304 ",.02)
  1. ;;54868524304
  1. ;;9002226.02101,"830,54868546700 ",.01)
  1. ;;54868546700
  1. ;;9002226.02101,"830,54868546700 ",.02)
  1. ;;54868546700
  1. ;;9002226.02101,"830,54868546701 ",.01)
  1. ;;54868546701
  1. ;;9002226.02101,"830,54868546701 ",.02)
  1. ;;54868546701
  1. ;;9002226.02101,"830,54868546702 ",.01)
  1. ;;54868546702
  1. ;;9002226.02101,"830,54868546702 ",.02)
  1. ;;54868546702
  1. ;;9002226.02101,"830,54868550500 ",.01)
  1. ;;54868550500
  1. ;;9002226.02101,"830,54868550500 ",.02)
  1. ;;54868550500
  1. ;;9002226.02101,"830,54868550501 ",.01)
  1. ;;54868550501
  1. ;;9002226.02101,"830,54868550501 ",.02)
  1. ;;54868550501
  1. ;;9002226.02101,"830,54868550502 ",.01)
  1. ;;54868550502
  1. ;;9002226.02101,"830,54868550502 ",.02)
  1. ;;54868550502
  1. ;;9002226.02101,"830,54907076701 ",.01)
  1. ;;54907076701
  1. ;;9002226.02101,"830,54907076701 ",.02)
  1. ;;54907076701
  1. ;;9002226.02101,"830,54907086001 ",.01)
  1. ;;54907086001
  1. ;;9002226.02101,"830,54907086001 ",.02)
  1. ;;54907086001
  1. ;;9002226.02101,"830,54907086003 ",.01)
  1. ;;54907086003
  1. ;;9002226.02101,"830,54907086003 ",.02)
  1. ;;54907086003
  1. ;;9002226.02101,"830,54907086004 ",.01)
  1. ;;54907086004
  1. ;;9002226.02101,"830,54907086004 ",.02)
  1. ;;54907086004
  1. ;;9002226.02101,"830,54907086005 ",.01)
  1. ;;54907086005
  1. ;;9002226.02101,"830,54907086005 ",.02)
  1. ;;54907086005
  1. ;;9002226.02101,"830,55045290400 ",.01)
  1. ;;55045290400
  1. ;;9002226.02101,"830,55045290400 ",.02)
  1. ;;55045290400
  1. ;;9002226.02101,"830,55045290402 ",.01)
  1. ;;55045290402
  1. ;;9002226.02101,"830,55045290402 ",.02)
  1. ;;55045290402
  1. ;;9002226.02101,"830,55045290409 ",.01)
  1. ;;55045290409
  1. ;;9002226.02101,"830,55045290409 ",.02)
  1. ;;55045290409
  1. ;;9002226.02101,"830,55045290500 ",.01)
  1. ;;55045290500
  1. ;;9002226.02101,"830,55045290500 ",.02)
  1. ;;55045290500
  1. ;;9002226.02101,"830,55045290503 ",.01)
  1. ;;55045290503
  1. ;;9002226.02101,"830,55045290503 ",.02)
  1. ;;55045290503
  1. ;;9002226.02101,"830,55045290506 ",.01)
  1. ;;55045290506
  1. ;;9002226.02101,"830,55045290506 ",.02)
  1. ;;55045290506
  1. ;;9002226.02101,"830,55045290508 ",.01)
  1. ;;55045290508
  1. ;;9002226.02101,"830,55045290508 ",.02)
  1. ;;55045290508
  1. ;;9002226.02101,"830,55045290600 ",.01)
  1. ;;55045290600
  1. ;;9002226.02101,"830,55045290600 ",.02)
  1. ;;55045290600
  1. ;;9002226.02101,"830,55045290601 ",.01)
  1. ;;55045290601
  1. ;;9002226.02101,"830,55045290601 ",.02)
  1. ;;55045290601
  1. ;;9002226.02101,"830,55045290602 ",.01)
  1. ;;55045290602
  1. ;;9002226.02101,"830,55045290602 ",.02)
  1. ;;55045290602
  1. ;;9002226.02101,"830,55045290606 ",.01)
  1. ;;55045290606
  1. ;;9002226.02101,"830,55045290606 ",.02)
  1. ;;55045290606
  1. ;;9002226.02101,"830,55045290609 ",.01)
  1. ;;55045290609
  1. ;;9002226.02101,"830,55045290609 ",.02)
  1. ;;55045290609
  1. ;;9002226.02101,"830,55045328701 ",.01)
  1. ;;55045328701
  1. ;;9002226.02101,"830,55045328701 ",.02)
  1. ;;55045328701
  1. ;;9002226.02101,"830,55111042901 ",.01)
  1. ;;55111042901
  1. ;;9002226.02101,"830,55111042901 ",.02)
  1. ;;55111042901
  1. ;;9002226.02101,"830,55111042905 ",.01)
  1. ;;55111042905
  1. ;;9002226.02101,"830,55111042905 ",.02)
  1. ;;55111042905
  1. ;;9002226.02101,"830,55111042910 ",.01)
  1. ;;55111042910
  1. ;;9002226.02101,"830,55111042910 ",.02)
  1. ;;55111042910
  1. ;;9002226.02101,"830,55111042930 ",.01)
  1. ;;55111042930
  1. ;;9002226.02101,"830,55111042930 ",.02)
  1. ;;55111042930
  1. ;;9002226.02101,"830,55111042960 ",.01)
  1. ;;55111042960
  1. ;;9002226.02101,"830,55111042960 ",.02)
  1. ;;55111042960
  1. ;;9002226.02101,"830,55111042978 ",.01)
  1. ;;55111042978
  1. ;;9002226.02101,"830,55111042978 ",.02)
  1. ;;55111042978
  1. ;;9002226.02101,"830,55111043001 ",.01)
  1. ;;55111043001
  1. ;;9002226.02101,"830,55111043001 ",.02)
  1. ;;55111043001
  1. ;;9002226.02101,"830,55111043005 ",.01)
  1. ;;55111043005
  1. ;;9002226.02101,"830,55111043005 ",.02)
  1. ;;55111043005
  1. ;;9002226.02101,"830,55111043030 ",.01)
  1. ;;55111043030
  1. ;;9002226.02101,"830,55111043030 ",.02)
  1. ;;55111043030
  1. ;;9002226.02101,"830,55111043060 ",.01)
  1. ;;55111043060
  1. ;;9002226.02101,"830,55111043060 ",.02)
  1. ;;55111043060
  1. ;;9002226.02101,"830,55111043078 ",.01)
  1. ;;55111043078
  1. ;;9002226.02101,"830,55111043078 ",.02)
  1. ;;55111043078
  1. ;;9002226.02101,"830,55111043101 ",.01)
  1. ;;55111043101
  1. ;;9002226.02101,"830,55111043101 ",.02)
  1. ;;55111043101
  1. ;;9002226.02101,"830,55111043105 ",.01)
  1. ;;55111043105
  1. ;;9002226.02101,"830,55111043105 ",.02)
  1. ;;55111043105
  1. ;;9002226.02101,"830,55111043130 ",.01)
  1. ;;55111043130
  1. ;;9002226.02101,"830,55111043130 ",.02)
  1. ;;55111043130
  1. ;;9002226.02101,"830,55111043160 ",.01)
  1. ;;55111043160
  1. ;;9002226.02101,"830,55111043160 ",.02)
  1. ;;55111043160
  1. ;;9002226.02101,"830,55111043178 ",.01)
  1. ;;55111043178
  1. ;;9002226.02101,"830,55111043178 ",.02)
  1. ;;55111043178
  1. ;;9002226.02101,"830,55111069501 ",.01)
  1. ;;55111069501
  1. ;;9002226.02101,"830,55111069501 ",.02)
  1. ;;55111069501
  1. ;;9002226.02101,"830,55111069505 ",.01)
  1. ;;55111069505
  1. ;;9002226.02101,"830,55111069505 ",.02)
  1. ;;55111069505
  1. ;;9002226.02101,"830,55111069510 ",.01)
  1. ;;55111069510
  1. ;;9002226.02101,"830,55111069510 ",.02)
  1. ;;55111069510
  1. ;;9002226.02101,"830,55111069601 ",.01)
  1. ;;55111069601
  1. ;;9002226.02101,"830,55111069601 ",.02)
  1. ;;55111069601
  1. ;;9002226.02101,"830,55111069605 ",.01)
  1. ;;55111069605
  1. ;;9002226.02101,"830,55111069605 ",.02)
  1. ;;55111069605
  1. ;;9002226.02101,"830,55111069610 ",.01)
  1. ;;55111069610
  1. ;;9002226.02101,"830,55111069610 ",.02)
  1. ;;55111069610
  1. ;;9002226.02101,"830,55111069701 ",.01)
  1. ;;55111069701
  1. ;;9002226.02101,"830,55111069701 ",.02)
  1. ;;55111069701
  1. ;;9002226.02101,"830,55111069705 ",.01)
  1. ;;55111069705
  1. ;;9002226.02101,"830,55111069705 ",.02)
  1. ;;55111069705
  1. ;;9002226.02101,"830,55111069710 ",.01)
  1. ;;55111069710
  1. ;;9002226.02101,"830,55111069710 ",.02)
  1. ;;55111069710
  1. ;;9002226.02101,"830,55154167509 ",.01)
  1. ;;55154167509
  1. ;;9002226.02101,"830,55154167509 ",.02)
  1. ;;55154167509
  1. ;;9002226.02101,"830,55154167609 ",.01)
  1. ;;55154167609
  1. ;;9002226.02101,"830,55154167609 ",.02)
  1. ;;55154167609
  1. ;;9002226.02101,"830,55154205800 ",.01)
  1. ;;55154205800
  1. ;;9002226.02101,"830,55154205800 ",.02)
  1. ;;55154205800
  1. ;;9002226.02101,"830,55154343709 ",.01)
  1. ;;55154343709
  1. ;;9002226.02101,"830,55154343709 ",.02)
  1. ;;55154343709
  1. ;;9002226.02101,"830,55154375001 ",.01)
  1. ;;55154375001
  1. ;;9002226.02101,"830,55154375001 ",.02)
  1. ;;55154375001
  1. ;;9002226.02101,"830,55154456103 ",.01)
  1. ;;55154456103
  1. ;;9002226.02101,"830,55154456103 ",.02)
  1. ;;55154456103
  1. ;;9002226.02101,"830,55154542209 ",.01)
  1. ;;55154542209
  1. ;;9002226.02101,"830,55154542209 ",.02)
  1. ;;55154542209
  1. ;;9002226.02101,"830,55154548700 ",.01)
  1. ;;55154548700
  1. ;;9002226.02101,"830,55154548700 ",.02)
  1. ;;55154548700
  1. ;;9002226.02101,"830,55154548707 ",.01)
  1. ;;55154548707
  1. ;;9002226.02101,"830,55154548707 ",.02)
  1. ;;55154548707
  1. ;;9002226.02101,"830,55154585003 ",.01)
  1. ;;55154585003
  1. ;;9002226.02101,"830,55154585003 ",.02)
  1. ;;55154585003
  1. ;;9002226.02101,"830,55154665703 ",.01)
  1. ;;55154665703
  1. ;;9002226.02101,"830,55154665703 ",.02)
  1. ;;55154665703
  1. ;;9002226.02101,"830,55160014301 ",.01)
  1. ;;55160014301
  1. ;;9002226.02101,"830,55160014301 ",.02)
  1. ;;55160014301
  1. ;;9002226.02101,"830,55160014305 ",.01)
  1. ;;55160014305
  1. ;;9002226.02101,"830,55160014305 ",.02)
  1. ;;55160014305
  1. ;;9002226.02101,"830,55160014401 ",.01)
  1. ;;55160014401
  1. ;;9002226.02101,"830,55160014401 ",.02)
  1. ;;55160014401
  1. ;;9002226.02101,"830,55160014501 ",.01)
  1. ;;55160014501
  1. ;;9002226.02101,"830,55160014501 ",.02)
  1. ;;55160014501
  1. ;;9002226.02101,"830,55289028130 ",.01)
  1. ;;55289028130
  1. ;;9002226.02101,"830,55289028130 ",.02)
  1. ;;55289028130
  1. ;;9002226.02101,"830,55289028160 ",.01)
  1. ;;55289028160
  1. ;;9002226.02101,"830,55289028160 ",.02)
  1. ;;55289028160
  1. ;;9002226.02101,"830,55289028186 ",.01)
  1. ;;55289028186
  1. ;;9002226.02101,"830,55289028186 ",.02)
  1. ;;55289028186
  1. ;;9002226.02101,"830,55289028190 ",.01)
  1. ;;55289028190
  1. ;;9002226.02101,"830,55289028190 ",.02)
  1. ;;55289028190
  1. ;;9002226.02101,"830,55289038430 ",.01)
  1. ;;55289038430
  1. ;;9002226.02101,"830,55289038430 ",.02)
  1. ;;55289038430
  1. ;;9002226.02101,"830,55289038460 ",.01)
  1. ;;55289038460
  1. ;;9002226.02101,"830,55289038460 ",.02)
  1. ;;55289038460
  1. ;;9002226.02101,"830,55289038486 ",.01)
  1. ;;55289038486
  1. ;;9002226.02101,"830,55289038486 ",.02)
  1. ;;55289038486
  1. ;;9002226.02101,"830,55289038490 ",.01)
  1. ;;55289038490
  1. ;;9002226.02101,"830,55289038490 ",.02)
  1. ;;55289038490
  1. ;;9002226.02101,"830,55289038493 ",.01)
  1. ;;55289038493
  1. ;;9002226.02101,"830,55289038493 ",.02)
  1. ;;55289038493
  1. ;;9002226.02101,"830,55289038494 ",.01)
  1. ;;55289038494
  1. ;;9002226.02101,"830,55289038494 ",.02)
  1. ;;55289038494
  1. ;;9002226.02101,"830,55289061514 ",.01)
  1. ;;55289061514
  1. ;;9002226.02101,"830,55289061514 ",.02)
  1. ;;55289061514
  1. ;;9002226.02101,"830,55289061530 ",.01)
  1. ;;55289061530
  1. ;;9002226.02101,"830,55289061530 ",.02)
  1. ;;55289061530
  1. ;;9002226.02101,"830,55289061560 ",.01)
  1. ;;55289061560
  1. ;;9002226.02101,"830,55289061560 ",.02)
  1. ;;55289061560
  1. ;;9002226.02101,"830,55289061586 ",.01)
  1. ;;55289061586
  1. ;;9002226.02101,"830,55289061586 ",.02)
  1. ;;55289061586
  1. ;;9002226.02101,"830,55289061590 ",.01)
  1. ;;55289061590
  1. ;;9002226.02101,"830,55289061590 ",.02)
  1. ;;55289061590
  1. ;;9002226.02101,"830,55289061593 ",.01)
  1. ;;55289061593
  1. ;;9002226.02101,"830,55289061593 ",.02)
  1. ;;55289061593
  1. ;;9002226.02101,"830,55289061594 ",.01)
  1. ;;55289061594
  1. ;;9002226.02101,"830,55289061594 ",.02)
  1. ;;55289061594
  1. ;;9002226.02101,"830,55289061598 ",.01)
  1. ;;55289061598
  1. ;;9002226.02101,"830,55289061598 ",.02)
  1. ;;55289061598
  1. ;;9002226.02101,"830,55289091930 ",.01)
  1. ;;55289091930
  1. ;;9002226.02101,"830,55289091930 ",.02)
  1. ;;55289091930
  1. ;;9002226.02101,"830,55289091960 ",.01)
  1. ;;55289091960
  1. ;;9002226.02101,"830,55289091960 ",.02)
  1. ;;55289091960
  1. ;;9002226.02101,"830,55289091990 ",.01)
  1. ;;55289091990
  1. ;;9002226.02101,"830,55289091990 ",.02)
  1. ;;55289091990
  1. ;;9002226.02101,"830,55289091993 ",.01)
  1. ;;55289091993
  1. ;;9002226.02101,"830,55289091993 ",.02)
  1. ;;55289091993
  1. ;;9002226.02101,"830,55289091994 ",.01)
  1. ;;55289091994
  1. ;;9002226.02101,"830,55289091994 ",.02)
  1. ;;55289091994
  1. ;;9002226.02101,"830,55289091998 ",.01)
  1. ;;55289091998
  1. ;;9002226.02101,"830,55289091998 ",.02)
  1. ;;55289091998
  1. ;;9002226.02101,"830,55289093430 ",.01)
  1. ;;55289093430
  1. ;;9002226.02101,"830,55289093430 ",.02)
  1. ;;55289093430
  1. ;;9002226.02101,"830,55289093460 ",.01)
  1. ;;55289093460
  1. ;;9002226.02101,"830,55289093460 ",.02)
  1. ;;55289093460
  1. ;;9002226.02101,"830,55289093493 ",.01)
  1. ;;55289093493
  1. ;;9002226.02101,"830,55289093493 ",.02)
  1. ;;55289093493
  1. ;;9002226.02101,"830,55289093494 ",.01)
  1. ;;55289093494
  1. ;;9002226.02101,"830,55289093494 ",.02)
  1. ;;55289093494
  1. ;;9002226.02101,"830,55289093498 ",.01)
  1. ;;55289093498