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

BGPM5AS.m

Go to the documentation of this file.
BGPM5AS ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,60793071105 ",.02)
 ;;60793071105
 ;;9002226.02101,"1005,60793071180 ",.01)
 ;;60793071180
 ;;9002226.02101,"1005,60793071180 ",.02)
 ;;60793071180
 ;;9002226.02101,"1005,60793071201 ",.01)
 ;;60793071201
 ;;9002226.02101,"1005,60793071201 ",.02)
 ;;60793071201
 ;;9002226.02101,"1005,60793091001 ",.01)
 ;;60793091001
 ;;9002226.02101,"1005,60793091001 ",.02)
 ;;60793091001
 ;;9002226.02101,"1005,60793091005 ",.01)
 ;;60793091005
 ;;9002226.02101,"1005,60793091005 ",.02)
 ;;60793091005
 ;;9002226.02101,"1005,60793091101 ",.01)
 ;;60793091101
 ;;9002226.02101,"1005,60793091101 ",.02)
 ;;60793091101
 ;;9002226.02101,"1005,60793091105 ",.01)
 ;;60793091105
 ;;9002226.02101,"1005,60793091105 ",.02)
 ;;60793091105
 ;;9002226.02101,"1005,60793091501 ",.01)
 ;;60793091501
 ;;9002226.02101,"1005,60793091501 ",.02)
 ;;60793091501
 ;;9002226.02101,"1005,60793091505 ",.01)
 ;;60793091505
 ;;9002226.02101,"1005,60793091505 ",.02)
 ;;60793091505
 ;;9002226.02101,"1005,60793091507 ",.01)
 ;;60793091507
 ;;9002226.02101,"1005,60793091507 ",.02)
 ;;60793091507
 ;;9002226.02101,"1005,60951072170 ",.01)
 ;;60951072170
 ;;9002226.02101,"1005,60951072170 ",.02)
 ;;60951072170
 ;;9002226.02101,"1005,60951072270 ",.01)
 ;;60951072270
 ;;9002226.02101,"1005,60951072270 ",.02)
 ;;60951072270
 ;;9002226.02101,"1005,60951072470 ",.01)
 ;;60951072470
 ;;9002226.02101,"1005,60951072470 ",.02)
 ;;60951072470
 ;;9002226.02101,"1005,60951072770 ",.01)
 ;;60951072770
 ;;9002226.02101,"1005,60951072770 ",.02)
 ;;60951072770
 ;;9002226.02101,"1005,60951073170 ",.01)
 ;;60951073170
 ;;9002226.02101,"1005,60951073170 ",.02)
 ;;60951073170
 ;;9002226.02101,"1005,60951073370 ",.01)
 ;;60951073370
 ;;9002226.02101,"1005,60951073370 ",.02)
 ;;60951073370
 ;;9002226.02101,"1005,60951073970 ",.01)
 ;;60951073970
 ;;9002226.02101,"1005,60951073970 ",.02)
 ;;60951073970
 ;;9002226.02101,"1005,60951074170 ",.01)
 ;;60951074170
 ;;9002226.02101,"1005,60951074170 ",.02)
 ;;60951074170
 ;;9002226.02101,"1005,61392042625 ",.01)
 ;;61392042625
 ;;9002226.02101,"1005,61392042625 ",.02)
 ;;61392042625
 ;;9002226.02101,"1005,61392042630 ",.01)
 ;;61392042630
 ;;9002226.02101,"1005,61392042630 ",.02)
 ;;61392042630
 ;;9002226.02101,"1005,61392045425 ",.01)
 ;;61392045425
 ;;9002226.02101,"1005,61392045425 ",.02)
 ;;61392045425
 ;;9002226.02101,"1005,61392045430 ",.01)
 ;;61392045430
 ;;9002226.02101,"1005,61392045430 ",.02)
 ;;61392045430
 ;;9002226.02101,"1005,61392045431 ",.01)
 ;;61392045431
 ;;9002226.02101,"1005,61392045431 ",.02)
 ;;61392045431
 ;;9002226.02101,"1005,61392045439 ",.01)
 ;;61392045439
 ;;9002226.02101,"1005,61392045439 ",.02)
 ;;61392045439
 ;;9002226.02101,"1005,61392047425 ",.01)
 ;;61392047425
 ;;9002226.02101,"1005,61392047425 ",.02)
 ;;61392047425
 ;;9002226.02101,"1005,61392047430 ",.01)
 ;;61392047430
 ;;9002226.02101,"1005,61392047430 ",.02)
 ;;61392047430
 ;;9002226.02101,"1005,61392047431 ",.01)
 ;;61392047431
 ;;9002226.02101,"1005,61392047431 ",.02)
 ;;61392047431
 ;;9002226.02101,"1005,61392047439 ",.01)
 ;;61392047439
 ;;9002226.02101,"1005,61392047439 ",.02)
 ;;61392047439
 ;;9002226.02101,"1005,61392060425 ",.01)
 ;;61392060425
 ;;9002226.02101,"1005,61392060425 ",.02)
 ;;61392060425
 ;;9002226.02101,"1005,61392060430 ",.01)
 ;;61392060430
 ;;9002226.02101,"1005,61392060430 ",.02)
 ;;61392060430
 ;;9002226.02101,"1005,61392060460 ",.01)
 ;;61392060460
 ;;9002226.02101,"1005,61392060460 ",.02)
 ;;61392060460
 ;;9002226.02101,"1005,61392060490 ",.01)
 ;;61392060490
 ;;9002226.02101,"1005,61392060490 ",.02)
 ;;61392060490
 ;;9002226.02101,"1005,61392060525 ",.01)
 ;;61392060525
 ;;9002226.02101,"1005,61392060525 ",.02)
 ;;61392060525
 ;;9002226.02101,"1005,61392060530 ",.01)
 ;;61392060530
 ;;9002226.02101,"1005,61392060530 ",.02)
 ;;61392060530
 ;;9002226.02101,"1005,61392060531 ",.01)
 ;;61392060531
 ;;9002226.02101,"1005,61392060531 ",.02)
 ;;61392060531
 ;;9002226.02101,"1005,61392060539 ",.01)
 ;;61392060539
 ;;9002226.02101,"1005,61392060539 ",.02)
 ;;61392060539
 ;;9002226.02101,"1005,61392060560 ",.01)
 ;;61392060560
 ;;9002226.02101,"1005,61392060560 ",.02)
 ;;61392060560
 ;;9002226.02101,"1005,61392060565 ",.01)
 ;;61392060565
 ;;9002226.02101,"1005,61392060565 ",.02)
 ;;61392060565
 ;;9002226.02101,"1005,61392060590 ",.01)
 ;;61392060590
 ;;9002226.02101,"1005,61392060590 ",.02)
 ;;61392060590
 ;;9002226.02101,"1005,61392060595 ",.01)
 ;;61392060595
 ;;9002226.02101,"1005,61392060595 ",.02)
 ;;61392060595
 ;;9002226.02101,"1005,61392064925 ",.01)
 ;;61392064925
 ;;9002226.02101,"1005,61392064925 ",.02)
 ;;61392064925
 ;;9002226.02101,"1005,61392064930 ",.01)
 ;;61392064930
 ;;9002226.02101,"1005,61392064930 ",.02)
 ;;61392064930
 ;;9002226.02101,"1005,61392064931 ",.01)
 ;;61392064931
 ;;9002226.02101,"1005,61392064931 ",.02)
 ;;61392064931
 ;;9002226.02101,"1005,61392064939 ",.01)
 ;;61392064939
 ;;9002226.02101,"1005,61392064939 ",.02)
 ;;61392064939
 ;;9002226.02101,"1005,61392064960 ",.01)
 ;;61392064960
 ;;9002226.02101,"1005,61392064960 ",.02)
 ;;61392064960
 ;;9002226.02101,"1005,61392064965 ",.01)
 ;;61392064965
 ;;9002226.02101,"1005,61392064965 ",.02)
 ;;61392064965
 ;;9002226.02101,"1005,61392064990 ",.01)
 ;;61392064990
 ;;9002226.02101,"1005,61392064990 ",.02)
 ;;61392064990
 ;;9002226.02101,"1005,61392064995 ",.01)
 ;;61392064995
 ;;9002226.02101,"1005,61392064995 ",.02)
 ;;61392064995
 ;;9002226.02101,"1005,61392065025 ",.01)
 ;;61392065025
 ;;9002226.02101,"1005,61392065025 ",.02)
 ;;61392065025
 ;;9002226.02101,"1005,61392065030 ",.01)
 ;;61392065030
 ;;9002226.02101,"1005,61392065030 ",.02)
 ;;61392065030
 ;;9002226.02101,"1005,61392065031 ",.01)
 ;;61392065031
 ;;9002226.02101,"1005,61392065031 ",.02)
 ;;61392065031
 ;;9002226.02101,"1005,61392065039 ",.01)
 ;;61392065039
 ;;9002226.02101,"1005,61392065039 ",.02)
 ;;61392065039
 ;;9002226.02101,"1005,61392065060 ",.01)
 ;;61392065060
 ;;9002226.02101,"1005,61392065060 ",.02)
 ;;61392065060
 ;;9002226.02101,"1005,61392065065 ",.01)
 ;;61392065065
 ;;9002226.02101,"1005,61392065065 ",.02)
 ;;61392065065
 ;;9002226.02101,"1005,61392065090 ",.01)
 ;;61392065090
 ;;9002226.02101,"1005,61392065090 ",.02)
 ;;61392065090
 ;;9002226.02101,"1005,61392065095 ",.01)
 ;;61392065095
 ;;9002226.02101,"1005,61392065095 ",.02)
 ;;61392065095
 ;;9002226.02101,"1005,61392065125 ",.01)
 ;;61392065125
 ;;9002226.02101,"1005,61392065125 ",.02)
 ;;61392065125
 ;;9002226.02101,"1005,61392065130 ",.01)
 ;;61392065130
 ;;9002226.02101,"1005,61392065130 ",.02)
 ;;61392065130
 ;;9002226.02101,"1005,61392065131 ",.01)
 ;;61392065131
 ;;9002226.02101,"1005,61392065131 ",.02)
 ;;61392065131
 ;;9002226.02101,"1005,61392065139 ",.01)
 ;;61392065139
 ;;9002226.02101,"1005,61392065139 ",.02)
 ;;61392065139
 ;;9002226.02101,"1005,61392065160 ",.01)
 ;;61392065160
 ;;9002226.02101,"1005,61392065160 ",.02)
 ;;61392065160
 ;;9002226.02101,"1005,61392065165 ",.01)
 ;;61392065165
 ;;9002226.02101,"1005,61392065165 ",.02)
 ;;61392065165
 ;;9002226.02101,"1005,61392065190 ",.01)
 ;;61392065190
 ;;9002226.02101,"1005,61392065190 ",.02)
 ;;61392065190
 ;;9002226.02101,"1005,61392065195 ",.01)
 ;;61392065195
 ;;9002226.02101,"1005,61392065195 ",.02)
 ;;61392065195
 ;;9002226.02101,"1005,61392065225 ",.01)
 ;;61392065225
 ;;9002226.02101,"1005,61392065225 ",.02)
 ;;61392065225
 ;;9002226.02101,"1005,61392065230 ",.01)
 ;;61392065230
 ;;9002226.02101,"1005,61392065230 ",.02)
 ;;61392065230
 ;;9002226.02101,"1005,61392065231 ",.01)
 ;;61392065231
 ;;9002226.02101,"1005,61392065231 ",.02)
 ;;61392065231
 ;;9002226.02101,"1005,61392065239 ",.01)
 ;;61392065239
 ;;9002226.02101,"1005,61392065239 ",.02)
 ;;61392065239
 ;;9002226.02101,"1005,61392065260 ",.01)
 ;;61392065260
 ;;9002226.02101,"1005,61392065260 ",.02)
 ;;61392065260
 ;;9002226.02101,"1005,61392065265 ",.01)
 ;;61392065265
 ;;9002226.02101,"1005,61392065265 ",.02)
 ;;61392065265
 ;;9002226.02101,"1005,61392065290 ",.01)
 ;;61392065290
 ;;9002226.02101,"1005,61392065290 ",.02)
 ;;61392065290
 ;;9002226.02101,"1005,61392065295 ",.01)
 ;;61392065295
 ;;9002226.02101,"1005,61392065295 ",.02)
 ;;61392065295
 ;;9002226.02101,"1005,61392069323 ",.01)
 ;;61392069323
 ;;9002226.02101,"1005,61392069323 ",.02)
 ;;61392069323
 ;;9002226.02101,"1005,61392069325 ",.01)
 ;;61392069325
 ;;9002226.02101,"1005,61392069325 ",.02)
 ;;61392069325
 ;;9002226.02101,"1005,61392069330 ",.01)
 ;;61392069330
 ;;9002226.02101,"1005,61392069330 ",.02)
 ;;61392069330
 ;;9002226.02101,"1005,61392069331 ",.01)
 ;;61392069331
 ;;9002226.02101,"1005,61392069331 ",.02)
 ;;61392069331
 ;;9002226.02101,"1005,61392069339 ",.01)
 ;;61392069339
 ;;9002226.02101,"1005,61392069339 ",.02)
 ;;61392069339
 ;;9002226.02101,"1005,61392069360 ",.01)
 ;;61392069360
 ;;9002226.02101,"1005,61392069360 ",.02)
 ;;61392069360
 ;;9002226.02101,"1005,61392069365 ",.01)
 ;;61392069365
 ;;9002226.02101,"1005,61392069365 ",.02)
 ;;61392069365
 ;;9002226.02101,"1005,61392069390 ",.01)
 ;;61392069390
 ;;9002226.02101,"1005,61392069390 ",.02)
 ;;61392069390
 ;;9002226.02101,"1005,61392069395 ",.01)
 ;;61392069395
 ;;9002226.02101,"1005,61392069395 ",.02)
 ;;61392069395
 ;;9002226.02101,"1005,61392069423 ",.01)
 ;;61392069423
 ;;9002226.02101,"1005,61392069423 ",.02)
 ;;61392069423
 ;;9002226.02101,"1005,61392069425 ",.01)
 ;;61392069425
 ;;9002226.02101,"1005,61392069425 ",.02)
 ;;61392069425
 ;;9002226.02101,"1005,61392069430 ",.01)
 ;;61392069430
 ;;9002226.02101,"1005,61392069430 ",.02)
 ;;61392069430
 ;;9002226.02101,"1005,61392069431 ",.01)
 ;;61392069431
 ;;9002226.02101,"1005,61392069431 ",.02)
 ;;61392069431
 ;;9002226.02101,"1005,61392069439 ",.01)
 ;;61392069439
 ;;9002226.02101,"1005,61392069439 ",.02)
 ;;61392069439
 ;;9002226.02101,"1005,61392069460 ",.01)
 ;;61392069460
 ;;9002226.02101,"1005,61392069460 ",.02)
 ;;61392069460
 ;;9002226.02101,"1005,61392069465 ",.01)
 ;;61392069465
 ;;9002226.02101,"1005,61392069465 ",.02)
 ;;61392069465
 ;;9002226.02101,"1005,61392069490 ",.01)
 ;;61392069490
 ;;9002226.02101,"1005,61392069490 ",.02)
 ;;61392069490
 ;;9002226.02101,"1005,61392069495 ",.01)
 ;;61392069495
 ;;9002226.02101,"1005,61392069495 ",.02)
 ;;61392069495
 ;;9002226.02101,"1005,61392069525 ",.01)
 ;;61392069525
 ;;9002226.02101,"1005,61392069525 ",.02)
 ;;61392069525
 ;;9002226.02101,"1005,61392069530 ",.01)
 ;;61392069530
 ;;9002226.02101,"1005,61392069530 ",.02)
 ;;61392069530
 ;;9002226.02101,"1005,61392069531 ",.01)
 ;;61392069531
 ;;9002226.02101,"1005,61392069531 ",.02)
 ;;61392069531
 ;;9002226.02101,"1005,61392069539 ",.01)
 ;;61392069539
 ;;9002226.02101,"1005,61392069539 ",.02)
 ;;61392069539
 ;;9002226.02101,"1005,61392069560 ",.01)
 ;;61392069560
 ;;9002226.02101,"1005,61392069560 ",.02)
 ;;61392069560
 ;;9002226.02101,"1005,61392069625 ",.01)
 ;;61392069625
 ;;9002226.02101,"1005,61392069625 ",.02)
 ;;61392069625
 ;;9002226.02101,"1005,61392069630 ",.01)
 ;;61392069630
 ;;9002226.02101,"1005,61392069630 ",.02)
 ;;61392069630
 ;;9002226.02101,"1005,61392069660 ",.01)
 ;;61392069660
 ;;9002226.02101,"1005,61392069660 ",.02)
 ;;61392069660
 ;;9002226.02101,"1005,61392069690 ",.01)
 ;;61392069690
 ;;9002226.02101,"1005,61392069690 ",.02)
 ;;61392069690
 ;;9002226.02101,"1005,61392069725 ",.01)
 ;;61392069725
 ;;9002226.02101,"1005,61392069725 ",.02)
 ;;61392069725
 ;;9002226.02101,"1005,61392069730 ",.01)
 ;;61392069730
 ;;9002226.02101,"1005,61392069730 ",.02)
 ;;61392069730