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

BGPM5ABP.m

Go to the documentation of this file.
BGPM5ABP ;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,"830,00093104993 ",.02)
 ;;00093104993
 ;;9002226.02101,"830,00093104998 ",.01)
 ;;00093104998
 ;;9002226.02101,"830,00093104998 ",.02)
 ;;00093104998
 ;;9002226.02101,"830,00093571001 ",.01)
 ;;00093571001
 ;;9002226.02101,"830,00093571001 ",.02)
 ;;00093571001
 ;;9002226.02101,"830,00093571005 ",.01)
 ;;00093571005
 ;;9002226.02101,"830,00093571005 ",.02)
 ;;00093571005
 ;;9002226.02101,"830,00093571019 ",.01)
 ;;00093571019
 ;;9002226.02101,"830,00093571019 ",.02)
 ;;00093571019
 ;;9002226.02101,"830,00093571093 ",.01)
 ;;00093571093
 ;;9002226.02101,"830,00093571093 ",.02)
 ;;00093571093
 ;;9002226.02101,"830,00093571101 ",.01)
 ;;00093571101
 ;;9002226.02101,"830,00093571101 ",.02)
 ;;00093571101
 ;;9002226.02101,"830,00093571105 ",.01)
 ;;00093571105
 ;;9002226.02101,"830,00093571105 ",.02)
 ;;00093571105
 ;;9002226.02101,"830,00093571119 ",.01)
 ;;00093571119
 ;;9002226.02101,"830,00093571119 ",.02)
 ;;00093571119
 ;;9002226.02101,"830,00093571193 ",.01)
 ;;00093571193
 ;;9002226.02101,"830,00093571193 ",.02)
 ;;00093571193
 ;;9002226.02101,"830,00093571201 ",.01)
 ;;00093571201
 ;;9002226.02101,"830,00093571201 ",.02)
 ;;00093571201
 ;;9002226.02101,"830,00093571205 ",.01)
 ;;00093571205
 ;;9002226.02101,"830,00093571205 ",.02)
 ;;00093571205
 ;;9002226.02101,"830,00093571219 ",.01)
 ;;00093571219
 ;;9002226.02101,"830,00093571219 ",.02)
 ;;00093571219
 ;;9002226.02101,"830,00093571293 ",.01)
 ;;00093571293
 ;;9002226.02101,"830,00093571293 ",.02)
 ;;00093571293
 ;;9002226.02101,"830,00093721201 ",.01)
 ;;00093721201
 ;;9002226.02101,"830,00093721201 ",.02)
 ;;00093721201
 ;;9002226.02101,"830,00093721401 ",.01)
 ;;00093721401
 ;;9002226.02101,"830,00093721401 ",.02)
 ;;00093721401
 ;;9002226.02101,"830,00093721405 ",.01)
 ;;00093721405
 ;;9002226.02101,"830,00093721405 ",.02)
 ;;00093721405
 ;;9002226.02101,"830,00093721410 ",.01)
 ;;00093721410
 ;;9002226.02101,"830,00093721410 ",.02)
 ;;00093721410
 ;;9002226.02101,"830,00093721498 ",.01)
 ;;00093721498
 ;;9002226.02101,"830,00093721498 ",.02)
 ;;00093721498
 ;;9002226.02101,"830,00093726001 ",.01)
 ;;00093726001
 ;;9002226.02101,"830,00093726001 ",.02)
 ;;00093726001
 ;;9002226.02101,"830,00093726101 ",.01)
 ;;00093726101
 ;;9002226.02101,"830,00093726101 ",.02)
 ;;00093726101
 ;;9002226.02101,"830,00093726105 ",.01)
 ;;00093726105
 ;;9002226.02101,"830,00093726105 ",.02)
 ;;00093726105
 ;;9002226.02101,"830,00093726205 ",.01)
 ;;00093726205
 ;;9002226.02101,"830,00093726205 ",.02)
 ;;00093726205
 ;;9002226.02101,"830,00093726701 ",.01)
 ;;00093726701
 ;;9002226.02101,"830,00093726701 ",.02)
 ;;00093726701
 ;;9002226.02101,"830,00093726710 ",.01)
 ;;00093726710
 ;;9002226.02101,"830,00093726710 ",.02)
 ;;00093726710
 ;;9002226.02101,"830,00093745501 ",.01)
 ;;00093745501
 ;;9002226.02101,"830,00093745501 ",.02)
 ;;00093745501
 ;;9002226.02101,"830,00093745601 ",.01)
 ;;00093745601
 ;;9002226.02101,"830,00093745601 ",.02)
 ;;00093745601
 ;;9002226.02101,"830,00093745701 ",.01)
 ;;00093745701
 ;;9002226.02101,"830,00093745701 ",.02)
 ;;00093745701
 ;;9002226.02101,"830,00172433000 ",.01)
 ;;00172433000
 ;;9002226.02101,"830,00172433000 ",.02)
 ;;00172433000
 ;;9002226.02101,"830,00172433010 ",.01)
 ;;00172433010
 ;;9002226.02101,"830,00172433010 ",.02)
 ;;00172433010
 ;;9002226.02101,"830,00172433060 ",.01)
 ;;00172433060
 ;;9002226.02101,"830,00172433060 ",.02)
 ;;00172433060
 ;;9002226.02101,"830,00172433070 ",.01)
 ;;00172433070
 ;;9002226.02101,"830,00172433070 ",.02)
 ;;00172433070
 ;;9002226.02101,"830,00172433080 ",.01)
 ;;00172433080
 ;;9002226.02101,"830,00172433080 ",.02)
 ;;00172433080
 ;;9002226.02101,"830,00172433100 ",.01)
 ;;00172433100
 ;;9002226.02101,"830,00172433100 ",.02)
 ;;00172433100
 ;;9002226.02101,"830,00172433110 ",.01)
 ;;00172433110
 ;;9002226.02101,"830,00172433110 ",.02)
 ;;00172433110
 ;;9002226.02101,"830,00172433160 ",.01)
 ;;00172433160
 ;;9002226.02101,"830,00172433160 ",.02)
 ;;00172433160
 ;;9002226.02101,"830,00172433170 ",.01)
 ;;00172433170
 ;;9002226.02101,"830,00172433170 ",.02)
 ;;00172433170
 ;;9002226.02101,"830,00172433180 ",.01)
 ;;00172433180
 ;;9002226.02101,"830,00172433180 ",.02)
 ;;00172433180
 ;;9002226.02101,"830,00172433200 ",.01)
 ;;00172433200
 ;;9002226.02101,"830,00172433200 ",.02)
 ;;00172433200
 ;;9002226.02101,"830,00172443210 ",.01)
 ;;00172443210
 ;;9002226.02101,"830,00172443210 ",.02)
 ;;00172443210
 ;;9002226.02101,"830,00172443260 ",.01)
 ;;00172443260
 ;;9002226.02101,"830,00172443260 ",.02)
 ;;00172443260
 ;;9002226.02101,"830,00172443270 ",.01)
 ;;00172443270
 ;;9002226.02101,"830,00172443270 ",.02)
 ;;00172443270
 ;;9002226.02101,"830,00172443280 ",.01)
 ;;00172443280
 ;;9002226.02101,"830,00172443280 ",.02)
 ;;00172443280
 ;;9002226.02101,"830,00172443500 ",.01)
 ;;00172443500
 ;;9002226.02101,"830,00172443500 ",.02)
 ;;00172443500
 ;;9002226.02101,"830,00172443510 ",.01)
 ;;00172443510
 ;;9002226.02101,"830,00172443510 ",.02)
 ;;00172443510
 ;;9002226.02101,"830,00172443560 ",.01)
 ;;00172443560
 ;;9002226.02101,"830,00172443560 ",.02)
 ;;00172443560
 ;;9002226.02101,"830,00172443570 ",.01)
 ;;00172443570
 ;;9002226.02101,"830,00172443570 ",.02)
 ;;00172443570
 ;;9002226.02101,"830,00172443580 ",.01)
 ;;00172443580
 ;;9002226.02101,"830,00172443580 ",.02)
 ;;00172443580
 ;;9002226.02101,"830,00172571060 ",.01)
 ;;00172571060
 ;;9002226.02101,"830,00172571060 ",.02)
 ;;00172571060
 ;;9002226.02101,"830,00179143601 ",.01)
 ;;00179143601
 ;;9002226.02101,"830,00179143601 ",.02)
 ;;00179143601
 ;;9002226.02101,"830,00179143612 ",.01)
 ;;00179143612
 ;;9002226.02101,"830,00179143612 ",.02)
 ;;00179143612
 ;;9002226.02101,"830,00179143630 ",.01)
 ;;00179143630
 ;;9002226.02101,"830,00179143630 ",.02)
 ;;00179143630
 ;;9002226.02101,"830,00179143660 ",.01)
 ;;00179143660
 ;;9002226.02101,"830,00179143660 ",.02)
 ;;00179143660
 ;;9002226.02101,"830,00179147501 ",.01)
 ;;00179147501
 ;;9002226.02101,"830,00179147501 ",.02)
 ;;00179147501
 ;;9002226.02101,"830,00179147512 ",.01)
 ;;00179147512
 ;;9002226.02101,"830,00179147512 ",.02)
 ;;00179147512
 ;;9002226.02101,"830,00179147530 ",.01)
 ;;00179147530
 ;;9002226.02101,"830,00179147530 ",.02)
 ;;00179147530
 ;;9002226.02101,"830,00179147550 ",.01)
 ;;00179147550
 ;;9002226.02101,"830,00179147550 ",.02)
 ;;00179147550
 ;;9002226.02101,"830,00179147560 ",.01)
 ;;00179147560
 ;;9002226.02101,"830,00179147560 ",.02)
 ;;00179147560
 ;;9002226.02101,"830,00179152501 ",.01)
 ;;00179152501
 ;;9002226.02101,"830,00179152501 ",.02)
 ;;00179152501
 ;;9002226.02101,"830,00179152530 ",.01)
 ;;00179152530
 ;;9002226.02101,"830,00179152530 ",.02)
 ;;00179152530
 ;;9002226.02101,"830,00179152550 ",.01)
 ;;00179152550
 ;;9002226.02101,"830,00179152550 ",.02)
 ;;00179152550
 ;;9002226.02101,"830,00179152560 ",.01)
 ;;00179152560
 ;;9002226.02101,"830,00179152560 ",.02)
 ;;00179152560
 ;;9002226.02101,"830,00179152590 ",.01)
 ;;00179152590
 ;;9002226.02101,"830,00179152590 ",.02)
 ;;00179152590
 ;;9002226.02101,"830,00179152601 ",.01)
 ;;00179152601
 ;;9002226.02101,"830,00179152601 ",.02)
 ;;00179152601
 ;;9002226.02101,"830,00179152630 ",.01)
 ;;00179152630
 ;;9002226.02101,"830,00179152630 ",.02)
 ;;00179152630
 ;;9002226.02101,"830,00179152650 ",.01)
 ;;00179152650
 ;;9002226.02101,"830,00179152650 ",.02)
 ;;00179152650
 ;;9002226.02101,"830,00179152660 ",.01)
 ;;00179152660
 ;;9002226.02101,"830,00179152660 ",.02)
 ;;00179152660
 ;;9002226.02101,"830,00179152690 ",.01)
 ;;00179152690
 ;;9002226.02101,"830,00179152690 ",.02)
 ;;00179152690
 ;;9002226.02101,"830,00179197901 ",.01)
 ;;00179197901
 ;;9002226.02101,"830,00179197901 ",.02)
 ;;00179197901
 ;;9002226.02101,"830,00179197912 ",.01)
 ;;00179197912
 ;;9002226.02101,"830,00179197912 ",.02)
 ;;00179197912
 ;;9002226.02101,"830,00179197930 ",.01)
 ;;00179197930
 ;;9002226.02101,"830,00179197930 ",.02)
 ;;00179197930
 ;;9002226.02101,"830,00179197960 ",.01)
 ;;00179197960
 ;;9002226.02101,"830,00179197960 ",.02)
 ;;00179197960
 ;;9002226.02101,"830,00185021301 ",.01)
 ;;00185021301
 ;;9002226.02101,"830,00185021301 ",.02)
 ;;00185021301
 ;;9002226.02101,"830,00185021305 ",.01)
 ;;00185021305
 ;;9002226.02101,"830,00185021305 ",.02)
 ;;00185021305
 ;;9002226.02101,"830,00185021310 ",.01)
 ;;00185021310
 ;;9002226.02101,"830,00185021310 ",.02)
 ;;00185021310
 ;;9002226.02101,"830,00185021501 ",.01)
 ;;00185021501
 ;;9002226.02101,"830,00185021501 ",.02)
 ;;00185021501
 ;;9002226.02101,"830,00185021505 ",.01)
 ;;00185021505
 ;;9002226.02101,"830,00185021505 ",.02)
 ;;00185021505
 ;;9002226.02101,"830,00185022101 ",.01)
 ;;00185022101
 ;;9002226.02101,"830,00185022101 ",.02)
 ;;00185022101
 ;;9002226.02101,"830,00185022105 ",.01)
 ;;00185022105
 ;;9002226.02101,"830,00185022105 ",.02)
 ;;00185022105
 ;;9002226.02101,"830,00185441601 ",.01)
 ;;00185441601
 ;;9002226.02101,"830,00185441601 ",.02)
 ;;00185441601
 ;;9002226.02101,"830,00185441605 ",.01)
 ;;00185441605
 ;;9002226.02101,"830,00185441605 ",.02)
 ;;00185441605
 ;;9002226.02101,"830,00228265710 ",.01)
 ;;00228265710
 ;;9002226.02101,"830,00228265710 ",.02)
 ;;00228265710
 ;;9002226.02101,"830,00228265711 ",.01)
 ;;00228265711
 ;;9002226.02101,"830,00228265711 ",.02)
 ;;00228265711
 ;;9002226.02101,"830,00228265750 ",.01)
 ;;00228265750
 ;;9002226.02101,"830,00228265750 ",.02)
 ;;00228265750
 ;;9002226.02101,"830,00228265796 ",.01)
 ;;00228265796
 ;;9002226.02101,"830,00228265796 ",.02)
 ;;00228265796
 ;;9002226.02101,"830,00228271510 ",.01)
 ;;00228271510
 ;;9002226.02101,"830,00228271510 ",.02)
 ;;00228271510
 ;;9002226.02101,"830,00228271511 ",.01)
 ;;00228271511
 ;;9002226.02101,"830,00228271511 ",.02)
 ;;00228271511
 ;;9002226.02101,"830,00228271550 ",.01)
 ;;00228271550
 ;;9002226.02101,"830,00228271550 ",.02)
 ;;00228271550
 ;;9002226.02101,"830,00228271596 ",.01)
 ;;00228271596
 ;;9002226.02101,"830,00228271596 ",.02)
 ;;00228271596
 ;;9002226.02101,"830,00228271810 ",.01)
 ;;00228271810
 ;;9002226.02101,"830,00228271810 ",.02)
 ;;00228271810
 ;;9002226.02101,"830,00228271811 ",.01)
 ;;00228271811
 ;;9002226.02101,"830,00228271811 ",.02)
 ;;00228271811
 ;;9002226.02101,"830,00228271850 ",.01)
 ;;00228271850
 ;;9002226.02101,"830,00228271850 ",.02)
 ;;00228271850
 ;;9002226.02101,"830,00228271896 ",.01)
 ;;00228271896
 ;;9002226.02101,"830,00228271896 ",.02)
 ;;00228271896
 ;;9002226.02101,"830,00228272811 ",.01)
 ;;00228272811
 ;;9002226.02101,"830,00228272811 ",.02)
 ;;00228272811
 ;;9002226.02101,"830,00228272850 ",.01)
 ;;00228272850
 ;;9002226.02101,"830,00228272850 ",.02)
 ;;00228272850
 ;;9002226.02101,"830,00228274011 ",.01)
 ;;00228274011
 ;;9002226.02101,"830,00228274011 ",.02)
 ;;00228274011
 ;;9002226.02101,"830,00228274050 ",.01)
 ;;00228274050
 ;;9002226.02101,"830,00228274050 ",.02)
 ;;00228274050
 ;;9002226.02101,"830,00228275111 ",.01)
 ;;00228275111
 ;;9002226.02101,"830,00228275111 ",.02)
 ;;00228275111
 ;;9002226.02101,"830,00228275150 ",.01)
 ;;00228275150
 ;;9002226.02101,"830,00228275150 ",.02)
 ;;00228275150
 ;;9002226.02101,"830,00228275211 ",.01)
 ;;00228275211
 ;;9002226.02101,"830,00228275211 ",.02)
 ;;00228275211
 ;;9002226.02101,"830,00228275250 ",.01)
 ;;00228275250
 ;;9002226.02101,"830,00228275250 ",.02)
 ;;00228275250
 ;;9002226.02101,"830,00228275311 ",.01)
 ;;00228275311
 ;;9002226.02101,"830,00228275311 ",.02)
 ;;00228275311
 ;;9002226.02101,"830,00228275350 ",.01)
 ;;00228275350