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

BGPM5ALP.m

Go to the documentation of this file.
BGPM5ALP ;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,"900,13411011509 ",.01)
 ;;13411011509
 ;;9002226.02101,"900,13411011509 ",.02)
 ;;13411011509
 ;;9002226.02101,"900,13411011515 ",.01)
 ;;13411011515
 ;;9002226.02101,"900,13411011515 ",.02)
 ;;13411011515
 ;;9002226.02101,"900,13411013201 ",.01)
 ;;13411013201
 ;;9002226.02101,"900,13411013201 ",.02)
 ;;13411013201
 ;;9002226.02101,"900,13411013203 ",.01)
 ;;13411013203
 ;;9002226.02101,"900,13411013203 ",.02)
 ;;13411013203
 ;;9002226.02101,"900,13411013206 ",.01)
 ;;13411013206
 ;;9002226.02101,"900,13411013206 ",.02)
 ;;13411013206
 ;;9002226.02101,"900,13411013209 ",.01)
 ;;13411013209
 ;;9002226.02101,"900,13411013209 ",.02)
 ;;13411013209
 ;;9002226.02101,"900,13411013215 ",.01)
 ;;13411013215
 ;;9002226.02101,"900,13411013215 ",.02)
 ;;13411013215
 ;;9002226.02101,"900,13411013301 ",.01)
 ;;13411013301
 ;;9002226.02101,"900,13411013301 ",.02)
 ;;13411013301
 ;;9002226.02101,"900,13411013303 ",.01)
 ;;13411013303
 ;;9002226.02101,"900,13411013303 ",.02)
 ;;13411013303
 ;;9002226.02101,"900,13411013306 ",.01)
 ;;13411013306
 ;;9002226.02101,"900,13411013306 ",.02)
 ;;13411013306
 ;;9002226.02101,"900,13411013309 ",.01)
 ;;13411013309
 ;;9002226.02101,"900,13411013309 ",.02)
 ;;13411013309
 ;;9002226.02101,"900,13411013315 ",.01)
 ;;13411013315
 ;;9002226.02101,"900,13411013315 ",.02)
 ;;13411013315
 ;;9002226.02101,"900,13411016101 ",.01)
 ;;13411016101
 ;;9002226.02101,"900,13411016101 ",.02)
 ;;13411016101
 ;;9002226.02101,"900,13411016103 ",.01)
 ;;13411016103
 ;;9002226.02101,"900,13411016103 ",.02)
 ;;13411016103
 ;;9002226.02101,"900,13411016106 ",.01)
 ;;13411016106
 ;;9002226.02101,"900,13411016106 ",.02)
 ;;13411016106
 ;;9002226.02101,"900,13411016109 ",.01)
 ;;13411016109
 ;;9002226.02101,"900,13411016109 ",.02)
 ;;13411016109
 ;;9002226.02101,"900,13411016115 ",.01)
 ;;13411016115
 ;;9002226.02101,"900,13411016115 ",.02)
 ;;13411016115
 ;;9002226.02101,"900,13411016201 ",.01)
 ;;13411016201
 ;;9002226.02101,"900,13411016201 ",.02)
 ;;13411016201
 ;;9002226.02101,"900,13411016203 ",.01)
 ;;13411016203
 ;;9002226.02101,"900,13411016203 ",.02)
 ;;13411016203
 ;;9002226.02101,"900,13411016206 ",.01)
 ;;13411016206
 ;;9002226.02101,"900,13411016206 ",.02)
 ;;13411016206
 ;;9002226.02101,"900,13411016209 ",.01)
 ;;13411016209
 ;;9002226.02101,"900,13411016209 ",.02)
 ;;13411016209
 ;;9002226.02101,"900,13411016215 ",.01)
 ;;13411016215
 ;;9002226.02101,"900,13411016215 ",.02)
 ;;13411016215
 ;;9002226.02101,"900,13411016703 ",.01)
 ;;13411016703
 ;;9002226.02101,"900,13411016703 ",.02)
 ;;13411016703
 ;;9002226.02101,"900,13411016710 ",.01)
 ;;13411016710
 ;;9002226.02101,"900,13411016710 ",.02)
 ;;13411016710
 ;;9002226.02101,"900,13672048000 ",.01)
 ;;13672048000
 ;;9002226.02101,"900,13672048000 ",.02)
 ;;13672048000
 ;;9002226.02101,"900,13672048007 ",.01)
 ;;13672048007
 ;;9002226.02101,"900,13672048007 ",.02)
 ;;13672048007
 ;;9002226.02101,"900,13672048090 ",.01)
 ;;13672048090
 ;;9002226.02101,"900,13672048090 ",.02)
 ;;13672048090
 ;;9002226.02101,"900,13672048500 ",.01)
 ;;13672048500
 ;;9002226.02101,"900,13672048500 ",.02)
 ;;13672048500
 ;;9002226.02101,"900,13672048507 ",.01)
 ;;13672048507
 ;;9002226.02101,"900,13672048507 ",.02)
 ;;13672048507
 ;;9002226.02101,"900,13672048590 ",.01)
 ;;13672048590
 ;;9002226.02101,"900,13672048590 ",.02)
 ;;13672048590
 ;;9002226.02101,"900,14508011513 ",.01)
 ;;14508011513
 ;;9002226.02101,"900,14508011513 ",.02)
 ;;14508011513
 ;;9002226.02101,"900,14508011518 ",.01)
 ;;14508011518
 ;;9002226.02101,"900,14508011518 ",.02)
 ;;14508011518
 ;;9002226.02101,"900,14508011586 ",.01)
 ;;14508011586
 ;;9002226.02101,"900,14508011586 ",.02)
 ;;14508011586
 ;;9002226.02101,"900,14550051401 ",.01)
 ;;14550051401
 ;;9002226.02101,"900,14550051401 ",.02)
 ;;14550051401
 ;;9002226.02101,"900,14550051404 ",.01)
 ;;14550051404
 ;;9002226.02101,"900,14550051404 ",.02)
 ;;14550051404
 ;;9002226.02101,"900,14550051501 ",.01)
 ;;14550051501
 ;;9002226.02101,"900,14550051501 ",.02)
 ;;14550051501
 ;;9002226.02101,"900,14550051504 ",.01)
 ;;14550051504
 ;;9002226.02101,"900,14550051504 ",.02)
 ;;14550051504
 ;;9002226.02101,"900,14550051601 ",.01)
 ;;14550051601
 ;;9002226.02101,"900,14550051601 ",.02)
 ;;14550051601
 ;;9002226.02101,"900,14550051604 ",.01)
 ;;14550051604
 ;;9002226.02101,"900,14550051604 ",.02)
 ;;14550051604
 ;;9002226.02101,"900,15548044211 ",.01)
 ;;15548044211
 ;;9002226.02101,"900,15548044211 ",.02)
 ;;15548044211
 ;;9002226.02101,"900,15548044214 ",.01)
 ;;15548044214
 ;;9002226.02101,"900,15548044214 ",.02)
 ;;15548044214
 ;;9002226.02101,"900,15548058005 ",.01)
 ;;15548058005
 ;;9002226.02101,"900,15548058005 ",.02)
 ;;15548058005
 ;;9002226.02101,"900,15548058011 ",.01)
 ;;15548058011
 ;;9002226.02101,"900,15548058011 ",.02)
 ;;15548058011
 ;;9002226.02101,"900,15548058901 ",.01)
 ;;15548058901
 ;;9002226.02101,"900,15548058901 ",.02)
 ;;15548058901
 ;;9002226.02101,"900,15548058903 ",.01)
 ;;15548058903
 ;;9002226.02101,"900,15548058903 ",.02)
 ;;15548058903
 ;;9002226.02101,"900,16590054730 ",.01)
 ;;16590054730
 ;;9002226.02101,"900,16590054730 ",.02)
 ;;16590054730
 ;;9002226.02101,"900,16590054760 ",.01)
 ;;16590054760
 ;;9002226.02101,"900,16590054760 ",.02)
 ;;16590054760
 ;;9002226.02101,"900,16590054772 ",.01)
 ;;16590054772
 ;;9002226.02101,"900,16590054772 ",.02)
 ;;16590054772
 ;;9002226.02101,"900,16590054790 ",.01)
 ;;16590054790
 ;;9002226.02101,"900,16590054790 ",.02)
 ;;16590054790
 ;;9002226.02101,"900,16590096860 ",.01)
 ;;16590096860
 ;;9002226.02101,"900,16590096860 ",.02)
 ;;16590096860
 ;;9002226.02101,"900,16714010101 ",.01)
 ;;16714010101
 ;;9002226.02101,"900,16714010101 ",.02)
 ;;16714010101
 ;;9002226.02101,"900,16714010102 ",.01)
 ;;16714010102
 ;;9002226.02101,"900,16714010102 ",.02)
 ;;16714010102
 ;;9002226.02101,"900,16714010103 ",.01)
 ;;16714010103
 ;;9002226.02101,"900,16714010103 ",.02)
 ;;16714010103
 ;;9002226.02101,"900,16714010104 ",.01)
 ;;16714010104
 ;;9002226.02101,"900,16714010104 ",.02)
 ;;16714010104
 ;;9002226.02101,"900,16714010105 ",.01)
 ;;16714010105
 ;;9002226.02101,"900,16714010105 ",.02)
 ;;16714010105
 ;;9002226.02101,"900,17088002600 ",.01)
 ;;17088002600
 ;;9002226.02101,"900,17088002600 ",.02)
 ;;17088002600
 ;;9002226.02101,"900,17856015702 ",.01)
 ;;17856015702
 ;;9002226.02101,"900,17856015702 ",.02)
 ;;17856015702
 ;;9002226.02101,"900,17856015802 ",.01)
 ;;17856015802
 ;;9002226.02101,"900,17856015802 ",.02)
 ;;17856015802
 ;;9002226.02101,"900,17856031102 ",.01)
 ;;17856031102
 ;;9002226.02101,"900,17856031102 ",.02)
 ;;17856031102
 ;;9002226.02101,"900,17856031202 ",.01)
 ;;17856031202
 ;;9002226.02101,"900,17856031202 ",.02)
 ;;17856031202
 ;;9002226.02101,"900,17856031302 ",.01)
 ;;17856031302
 ;;9002226.02101,"900,17856031302 ",.02)
 ;;17856031302
 ;;9002226.02101,"900,17856031502 ",.01)
 ;;17856031502
 ;;9002226.02101,"900,17856031502 ",.02)
 ;;17856031502
 ;;9002226.02101,"900,17856612302 ",.01)
 ;;17856612302
 ;;9002226.02101,"900,17856612302 ",.02)
 ;;17856612302
 ;;9002226.02101,"900,17856612320 ",.01)
 ;;17856612320
 ;;9002226.02101,"900,17856612320 ",.02)
 ;;17856612320
 ;;9002226.02101,"900,21695025590 ",.01)
 ;;21695025590
 ;;9002226.02101,"900,21695025590 ",.02)
 ;;21695025590
 ;;9002226.02101,"900,21695028710 ",.01)
 ;;21695028710
 ;;9002226.02101,"900,21695028710 ",.02)
 ;;21695028710
 ;;9002226.02101,"900,21695028790 ",.01)
 ;;21695028790
 ;;9002226.02101,"900,21695028790 ",.02)
 ;;21695028790
 ;;9002226.02101,"900,21695028890 ",.01)
 ;;21695028890
 ;;9002226.02101,"900,21695028890 ",.02)
 ;;21695028890
 ;;9002226.02101,"900,21695032530 ",.01)
 ;;21695032530
 ;;9002226.02101,"900,21695032530 ",.02)
 ;;21695032530
 ;;9002226.02101,"900,21695033930 ",.01)
 ;;21695033930
 ;;9002226.02101,"900,21695033930 ",.02)
 ;;21695033930
 ;;9002226.02101,"900,21695048130 ",.01)
 ;;21695048130
 ;;9002226.02101,"900,21695048130 ",.02)
 ;;21695048130
 ;;9002226.02101,"900,21695053430 ",.01)
 ;;21695053430
 ;;9002226.02101,"900,21695053430 ",.02)
 ;;21695053430
 ;;9002226.02101,"900,21695053530 ",.01)
 ;;21695053530
 ;;9002226.02101,"900,21695053530 ",.02)
 ;;21695053530
 ;;9002226.02101,"900,21695053590 ",.01)
 ;;21695053590
 ;;9002226.02101,"900,21695053590 ",.02)
 ;;21695053590
 ;;9002226.02101,"900,21695053630 ",.01)
 ;;21695053630
 ;;9002226.02101,"900,21695053630 ",.02)
 ;;21695053630
 ;;9002226.02101,"900,21695053690 ",.01)
 ;;21695053690
 ;;9002226.02101,"900,21695053690 ",.02)
 ;;21695053690
 ;;9002226.02101,"900,21695065930 ",.01)
 ;;21695065930
 ;;9002226.02101,"900,21695065930 ",.02)
 ;;21695065930
 ;;9002226.02101,"900,21695073230 ",.01)
 ;;21695073230
 ;;9002226.02101,"900,21695073230 ",.02)
 ;;21695073230
 ;;9002226.02101,"900,21695073260 ",.01)
 ;;21695073260
 ;;9002226.02101,"900,21695073260 ",.02)
 ;;21695073260
 ;;9002226.02101,"900,21695073290 ",.01)
 ;;21695073290
 ;;9002226.02101,"900,21695073290 ",.02)
 ;;21695073290
 ;;9002226.02101,"900,21695075990 ",.01)
 ;;21695075990
 ;;9002226.02101,"900,21695075990 ",.02)
 ;;21695075990
 ;;9002226.02101,"900,21695077830 ",.01)
 ;;21695077830
 ;;9002226.02101,"900,21695077830 ",.02)
 ;;21695077830
 ;;9002226.02101,"900,21695077890 ",.01)
 ;;21695077890
 ;;9002226.02101,"900,21695077890 ",.02)
 ;;21695077890
 ;;9002226.02101,"900,21695078178 ",.01)
 ;;21695078178
 ;;9002226.02101,"900,21695078178 ",.02)
 ;;21695078178
 ;;9002226.02101,"900,21695082730 ",.01)
 ;;21695082730
 ;;9002226.02101,"900,21695082730 ",.02)
 ;;21695082730
 ;;9002226.02101,"900,23490063200 ",.01)
 ;;23490063200
 ;;9002226.02101,"900,23490063200 ",.02)
 ;;23490063200
 ;;9002226.02101,"900,23490063203 ",.01)
 ;;23490063203
 ;;9002226.02101,"900,23490063203 ",.02)
 ;;23490063203
 ;;9002226.02101,"900,23490063205 ",.01)
 ;;23490063205
 ;;9002226.02101,"900,23490063205 ",.02)
 ;;23490063205
 ;;9002226.02101,"900,23490063206 ",.01)
 ;;23490063206
 ;;9002226.02101,"900,23490063206 ",.02)
 ;;23490063206
 ;;9002226.02101,"900,23490063209 ",.01)
 ;;23490063209
 ;;9002226.02101,"900,23490063209 ",.02)
 ;;23490063209
 ;;9002226.02101,"900,23490562601 ",.01)
 ;;23490562601
 ;;9002226.02101,"900,23490562601 ",.02)
 ;;23490562601
 ;;9002226.02101,"900,23490562602 ",.01)
 ;;23490562602
 ;;9002226.02101,"900,23490562602 ",.02)
 ;;23490562602
 ;;9002226.02101,"900,23490583802 ",.01)
 ;;23490583802
 ;;9002226.02101,"900,23490583802 ",.02)
 ;;23490583802
 ;;9002226.02101,"900,23490583806 ",.01)
 ;;23490583806
 ;;9002226.02101,"900,23490583806 ",.02)
 ;;23490583806
 ;;9002226.02101,"900,23490583809 ",.01)
 ;;23490583809
 ;;9002226.02101,"900,23490583809 ",.02)
 ;;23490583809
 ;;9002226.02101,"900,23490583900 ",.01)
 ;;23490583900
 ;;9002226.02101,"900,23490583900 ",.02)
 ;;23490583900
 ;;9002226.02101,"900,23490583901 ",.01)
 ;;23490583901
 ;;9002226.02101,"900,23490583901 ",.02)
 ;;23490583901
 ;;9002226.02101,"900,23490584001 ",.01)
 ;;23490584001
 ;;9002226.02101,"900,23490584001 ",.02)
 ;;23490584001
 ;;9002226.02101,"900,23490584002 ",.01)
 ;;23490584002
 ;;9002226.02101,"900,23490584002 ",.02)
 ;;23490584002
 ;;9002226.02101,"900,24236008602 ",.01)
 ;;24236008602
 ;;9002226.02101,"900,24236008602 ",.02)
 ;;24236008602
 ;;9002226.02101,"900,24236015602 ",.01)
 ;;24236015602
 ;;9002226.02101,"900,24236015602 ",.02)
 ;;24236015602
 ;;9002226.02101,"900,24236021002 ",.01)
 ;;24236021002
 ;;9002226.02101,"900,24236021002 ",.02)
 ;;24236021002