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

BGPM5AHI.m

Go to the documentation of this file.
BGPM5AHI ;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,"882,61392047430 ",.02)
 ;;61392047430
 ;;9002226.02101,"882,61392047431 ",.01)
 ;;61392047431
 ;;9002226.02101,"882,61392047431 ",.02)
 ;;61392047431
 ;;9002226.02101,"882,61392047439 ",.01)
 ;;61392047439
 ;;9002226.02101,"882,61392047439 ",.02)
 ;;61392047439
 ;;9002226.02101,"882,61392060425 ",.01)
 ;;61392060425
 ;;9002226.02101,"882,61392060425 ",.02)
 ;;61392060425
 ;;9002226.02101,"882,61392060430 ",.01)
 ;;61392060430
 ;;9002226.02101,"882,61392060430 ",.02)
 ;;61392060430
 ;;9002226.02101,"882,61392060460 ",.01)
 ;;61392060460
 ;;9002226.02101,"882,61392060460 ",.02)
 ;;61392060460
 ;;9002226.02101,"882,61392060490 ",.01)
 ;;61392060490
 ;;9002226.02101,"882,61392060490 ",.02)
 ;;61392060490
 ;;9002226.02101,"882,61392060525 ",.01)
 ;;61392060525
 ;;9002226.02101,"882,61392060525 ",.02)
 ;;61392060525
 ;;9002226.02101,"882,61392060530 ",.01)
 ;;61392060530
 ;;9002226.02101,"882,61392060530 ",.02)
 ;;61392060530
 ;;9002226.02101,"882,61392060531 ",.01)
 ;;61392060531
 ;;9002226.02101,"882,61392060531 ",.02)
 ;;61392060531
 ;;9002226.02101,"882,61392060539 ",.01)
 ;;61392060539
 ;;9002226.02101,"882,61392060539 ",.02)
 ;;61392060539
 ;;9002226.02101,"882,61392060560 ",.01)
 ;;61392060560
 ;;9002226.02101,"882,61392060560 ",.02)
 ;;61392060560
 ;;9002226.02101,"882,61392060565 ",.01)
 ;;61392060565
 ;;9002226.02101,"882,61392060565 ",.02)
 ;;61392060565
 ;;9002226.02101,"882,61392060590 ",.01)
 ;;61392060590
 ;;9002226.02101,"882,61392060590 ",.02)
 ;;61392060590
 ;;9002226.02101,"882,61392060595 ",.01)
 ;;61392060595
 ;;9002226.02101,"882,61392060595 ",.02)
 ;;61392060595
 ;;9002226.02101,"882,61392064925 ",.01)
 ;;61392064925
 ;;9002226.02101,"882,61392064925 ",.02)
 ;;61392064925
 ;;9002226.02101,"882,61392064930 ",.01)
 ;;61392064930
 ;;9002226.02101,"882,61392064930 ",.02)
 ;;61392064930
 ;;9002226.02101,"882,61392064931 ",.01)
 ;;61392064931
 ;;9002226.02101,"882,61392064931 ",.02)
 ;;61392064931
 ;;9002226.02101,"882,61392064939 ",.01)
 ;;61392064939
 ;;9002226.02101,"882,61392064939 ",.02)
 ;;61392064939
 ;;9002226.02101,"882,61392064960 ",.01)
 ;;61392064960
 ;;9002226.02101,"882,61392064960 ",.02)
 ;;61392064960
 ;;9002226.02101,"882,61392064965 ",.01)
 ;;61392064965
 ;;9002226.02101,"882,61392064965 ",.02)
 ;;61392064965
 ;;9002226.02101,"882,61392064990 ",.01)
 ;;61392064990
 ;;9002226.02101,"882,61392064990 ",.02)
 ;;61392064990
 ;;9002226.02101,"882,61392064995 ",.01)
 ;;61392064995
 ;;9002226.02101,"882,61392064995 ",.02)
 ;;61392064995
 ;;9002226.02101,"882,61392065025 ",.01)
 ;;61392065025
 ;;9002226.02101,"882,61392065025 ",.02)
 ;;61392065025
 ;;9002226.02101,"882,61392065030 ",.01)
 ;;61392065030
 ;;9002226.02101,"882,61392065030 ",.02)
 ;;61392065030
 ;;9002226.02101,"882,61392065031 ",.01)
 ;;61392065031
 ;;9002226.02101,"882,61392065031 ",.02)
 ;;61392065031
 ;;9002226.02101,"882,61392065039 ",.01)
 ;;61392065039
 ;;9002226.02101,"882,61392065039 ",.02)
 ;;61392065039
 ;;9002226.02101,"882,61392065060 ",.01)
 ;;61392065060
 ;;9002226.02101,"882,61392065060 ",.02)
 ;;61392065060
 ;;9002226.02101,"882,61392065065 ",.01)
 ;;61392065065
 ;;9002226.02101,"882,61392065065 ",.02)
 ;;61392065065
 ;;9002226.02101,"882,61392065090 ",.01)
 ;;61392065090
 ;;9002226.02101,"882,61392065090 ",.02)
 ;;61392065090
 ;;9002226.02101,"882,61392065095 ",.01)
 ;;61392065095
 ;;9002226.02101,"882,61392065095 ",.02)
 ;;61392065095
 ;;9002226.02101,"882,61392065125 ",.01)
 ;;61392065125
 ;;9002226.02101,"882,61392065125 ",.02)
 ;;61392065125
 ;;9002226.02101,"882,61392065130 ",.01)
 ;;61392065130
 ;;9002226.02101,"882,61392065130 ",.02)
 ;;61392065130
 ;;9002226.02101,"882,61392065131 ",.01)
 ;;61392065131
 ;;9002226.02101,"882,61392065131 ",.02)
 ;;61392065131
 ;;9002226.02101,"882,61392065139 ",.01)
 ;;61392065139
 ;;9002226.02101,"882,61392065139 ",.02)
 ;;61392065139
 ;;9002226.02101,"882,61392065160 ",.01)
 ;;61392065160
 ;;9002226.02101,"882,61392065160 ",.02)
 ;;61392065160
 ;;9002226.02101,"882,61392065165 ",.01)
 ;;61392065165
 ;;9002226.02101,"882,61392065165 ",.02)
 ;;61392065165
 ;;9002226.02101,"882,61392065190 ",.01)
 ;;61392065190
 ;;9002226.02101,"882,61392065190 ",.02)
 ;;61392065190
 ;;9002226.02101,"882,61392065195 ",.01)
 ;;61392065195
 ;;9002226.02101,"882,61392065195 ",.02)
 ;;61392065195
 ;;9002226.02101,"882,61392065225 ",.01)
 ;;61392065225
 ;;9002226.02101,"882,61392065225 ",.02)
 ;;61392065225
 ;;9002226.02101,"882,61392065230 ",.01)
 ;;61392065230
 ;;9002226.02101,"882,61392065230 ",.02)
 ;;61392065230
 ;;9002226.02101,"882,61392065231 ",.01)
 ;;61392065231
 ;;9002226.02101,"882,61392065231 ",.02)
 ;;61392065231
 ;;9002226.02101,"882,61392065239 ",.01)
 ;;61392065239
 ;;9002226.02101,"882,61392065239 ",.02)
 ;;61392065239
 ;;9002226.02101,"882,61392065260 ",.01)
 ;;61392065260
 ;;9002226.02101,"882,61392065260 ",.02)
 ;;61392065260
 ;;9002226.02101,"882,61392065265 ",.01)
 ;;61392065265
 ;;9002226.02101,"882,61392065265 ",.02)
 ;;61392065265
 ;;9002226.02101,"882,61392065290 ",.01)
 ;;61392065290
 ;;9002226.02101,"882,61392065290 ",.02)
 ;;61392065290
 ;;9002226.02101,"882,61392065295 ",.01)
 ;;61392065295
 ;;9002226.02101,"882,61392065295 ",.02)
 ;;61392065295
 ;;9002226.02101,"882,61392069323 ",.01)
 ;;61392069323
 ;;9002226.02101,"882,61392069323 ",.02)
 ;;61392069323
 ;;9002226.02101,"882,61392069325 ",.01)
 ;;61392069325
 ;;9002226.02101,"882,61392069325 ",.02)
 ;;61392069325
 ;;9002226.02101,"882,61392069330 ",.01)
 ;;61392069330
 ;;9002226.02101,"882,61392069330 ",.02)
 ;;61392069330
 ;;9002226.02101,"882,61392069331 ",.01)
 ;;61392069331
 ;;9002226.02101,"882,61392069331 ",.02)
 ;;61392069331
 ;;9002226.02101,"882,61392069339 ",.01)
 ;;61392069339
 ;;9002226.02101,"882,61392069339 ",.02)
 ;;61392069339
 ;;9002226.02101,"882,61392069360 ",.01)
 ;;61392069360
 ;;9002226.02101,"882,61392069360 ",.02)
 ;;61392069360
 ;;9002226.02101,"882,61392069365 ",.01)
 ;;61392069365
 ;;9002226.02101,"882,61392069365 ",.02)
 ;;61392069365
 ;;9002226.02101,"882,61392069390 ",.01)
 ;;61392069390
 ;;9002226.02101,"882,61392069390 ",.02)
 ;;61392069390
 ;;9002226.02101,"882,61392069395 ",.01)
 ;;61392069395
 ;;9002226.02101,"882,61392069395 ",.02)
 ;;61392069395
 ;;9002226.02101,"882,61392069423 ",.01)
 ;;61392069423
 ;;9002226.02101,"882,61392069423 ",.02)
 ;;61392069423
 ;;9002226.02101,"882,61392069425 ",.01)
 ;;61392069425
 ;;9002226.02101,"882,61392069425 ",.02)
 ;;61392069425
 ;;9002226.02101,"882,61392069430 ",.01)
 ;;61392069430
 ;;9002226.02101,"882,61392069430 ",.02)
 ;;61392069430
 ;;9002226.02101,"882,61392069431 ",.01)
 ;;61392069431
 ;;9002226.02101,"882,61392069431 ",.02)
 ;;61392069431
 ;;9002226.02101,"882,61392069439 ",.01)
 ;;61392069439
 ;;9002226.02101,"882,61392069439 ",.02)
 ;;61392069439
 ;;9002226.02101,"882,61392069460 ",.01)
 ;;61392069460
 ;;9002226.02101,"882,61392069460 ",.02)
 ;;61392069460
 ;;9002226.02101,"882,61392069465 ",.01)
 ;;61392069465
 ;;9002226.02101,"882,61392069465 ",.02)
 ;;61392069465
 ;;9002226.02101,"882,61392069490 ",.01)
 ;;61392069490
 ;;9002226.02101,"882,61392069490 ",.02)
 ;;61392069490
 ;;9002226.02101,"882,61392069495 ",.01)
 ;;61392069495
 ;;9002226.02101,"882,61392069495 ",.02)
 ;;61392069495
 ;;9002226.02101,"882,61392069525 ",.01)
 ;;61392069525
 ;;9002226.02101,"882,61392069525 ",.02)
 ;;61392069525
 ;;9002226.02101,"882,61392069530 ",.01)
 ;;61392069530
 ;;9002226.02101,"882,61392069530 ",.02)
 ;;61392069530
 ;;9002226.02101,"882,61392069531 ",.01)
 ;;61392069531
 ;;9002226.02101,"882,61392069531 ",.02)
 ;;61392069531
 ;;9002226.02101,"882,61392069539 ",.01)
 ;;61392069539
 ;;9002226.02101,"882,61392069539 ",.02)
 ;;61392069539
 ;;9002226.02101,"882,61392069560 ",.01)
 ;;61392069560
 ;;9002226.02101,"882,61392069560 ",.02)
 ;;61392069560
 ;;9002226.02101,"882,61392069625 ",.01)
 ;;61392069625
 ;;9002226.02101,"882,61392069625 ",.02)
 ;;61392069625
 ;;9002226.02101,"882,61392069630 ",.01)
 ;;61392069630
 ;;9002226.02101,"882,61392069630 ",.02)
 ;;61392069630
 ;;9002226.02101,"882,61392069660 ",.01)
 ;;61392069660
 ;;9002226.02101,"882,61392069660 ",.02)
 ;;61392069660
 ;;9002226.02101,"882,61392069690 ",.01)
 ;;61392069690
 ;;9002226.02101,"882,61392069690 ",.02)
 ;;61392069690
 ;;9002226.02101,"882,61392069725 ",.01)
 ;;61392069725
 ;;9002226.02101,"882,61392069725 ",.02)
 ;;61392069725
 ;;9002226.02101,"882,61392069730 ",.01)
 ;;61392069730
 ;;9002226.02101,"882,61392069730 ",.02)
 ;;61392069730
 ;;9002226.02101,"882,61392069731 ",.01)
 ;;61392069731
 ;;9002226.02101,"882,61392069731 ",.02)
 ;;61392069731
 ;;9002226.02101,"882,61392069739 ",.01)
 ;;61392069739
 ;;9002226.02101,"882,61392069739 ",.02)
 ;;61392069739
 ;;9002226.02101,"882,61392069760 ",.01)
 ;;61392069760
 ;;9002226.02101,"882,61392069760 ",.02)
 ;;61392069760
 ;;9002226.02101,"882,61392069765 ",.01)
 ;;61392069765
 ;;9002226.02101,"882,61392069765 ",.02)
 ;;61392069765
 ;;9002226.02101,"882,61392069790 ",.01)
 ;;61392069790
 ;;9002226.02101,"882,61392069790 ",.02)
 ;;61392069790
 ;;9002226.02101,"882,61392069795 ",.01)
 ;;61392069795
 ;;9002226.02101,"882,61392069795 ",.02)
 ;;61392069795
 ;;9002226.02101,"882,61392069825 ",.01)
 ;;61392069825
 ;;9002226.02101,"882,61392069825 ",.02)
 ;;61392069825
 ;;9002226.02101,"882,61392069830 ",.01)
 ;;61392069830
 ;;9002226.02101,"882,61392069830 ",.02)
 ;;61392069830
 ;;9002226.02101,"882,61392069831 ",.01)
 ;;61392069831
 ;;9002226.02101,"882,61392069831 ",.02)
 ;;61392069831
 ;;9002226.02101,"882,61392069839 ",.01)
 ;;61392069839
 ;;9002226.02101,"882,61392069839 ",.02)
 ;;61392069839
 ;;9002226.02101,"882,61392069860 ",.01)
 ;;61392069860
 ;;9002226.02101,"882,61392069860 ",.02)
 ;;61392069860
 ;;9002226.02101,"882,61392069865 ",.01)
 ;;61392069865
 ;;9002226.02101,"882,61392069865 ",.02)
 ;;61392069865
 ;;9002226.02101,"882,61392069890 ",.01)
 ;;61392069890
 ;;9002226.02101,"882,61392069890 ",.02)
 ;;61392069890
 ;;9002226.02101,"882,61392069895 ",.01)
 ;;61392069895
 ;;9002226.02101,"882,61392069895 ",.02)
 ;;61392069895
 ;;9002226.02101,"882,62022094501 ",.01)
 ;;62022094501
 ;;9002226.02101,"882,62022094501 ",.02)
 ;;62022094501
 ;;9002226.02101,"882,62022094505 ",.01)
 ;;62022094505
 ;;9002226.02101,"882,62022094505 ",.02)
 ;;62022094505
 ;;9002226.02101,"882,62022094510 ",.01)
 ;;62022094510
 ;;9002226.02101,"882,62022094510 ",.02)
 ;;62022094510
 ;;9002226.02101,"882,62022094601 ",.01)
 ;;62022094601
 ;;9002226.02101,"882,62022094601 ",.02)
 ;;62022094601
 ;;9002226.02101,"882,62022094605 ",.01)
 ;;62022094605
 ;;9002226.02101,"882,62022094605 ",.02)
 ;;62022094605
 ;;9002226.02101,"882,62022094610 ",.01)
 ;;62022094610
 ;;9002226.02101,"882,62022094610 ",.02)
 ;;62022094610
 ;;9002226.02101,"882,62033010120 ",.01)
 ;;62033010120
 ;;9002226.02101,"882,62033010120 ",.02)
 ;;62033010120
 ;;9002226.02101,"882,62037053110 ",.01)
 ;;62037053110
 ;;9002226.02101,"882,62037053110 ",.02)
 ;;62037053110
 ;;9002226.02101,"882,62037053190 ",.01)
 ;;62037053190
 ;;9002226.02101,"882,62037053190 ",.02)
 ;;62037053190
 ;;9002226.02101,"882,62037053210 ",.01)
 ;;62037053210
 ;;9002226.02101,"882,62037053210 ",.02)
 ;;62037053210
 ;;9002226.02101,"882,62037053290 ",.01)
 ;;62037053290
 ;;9002226.02101,"882,62037053290 ",.02)
 ;;62037053290
 ;;9002226.02101,"882,62037053310 ",.01)
 ;;62037053310
 ;;9002226.02101,"882,62037053310 ",.02)
 ;;62037053310
 ;;9002226.02101,"882,62037053390 ",.01)
 ;;62037053390