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

BGPM5ASA.m

Go to the documentation of this file.
BGPM5ASA ;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,61392069731 ",.01)
 ;;61392069731
 ;;9002226.02101,"1005,61392069731 ",.02)
 ;;61392069731
 ;;9002226.02101,"1005,61392069739 ",.01)
 ;;61392069739
 ;;9002226.02101,"1005,61392069739 ",.02)
 ;;61392069739
 ;;9002226.02101,"1005,61392069760 ",.01)
 ;;61392069760
 ;;9002226.02101,"1005,61392069760 ",.02)
 ;;61392069760
 ;;9002226.02101,"1005,61392069765 ",.01)
 ;;61392069765
 ;;9002226.02101,"1005,61392069765 ",.02)
 ;;61392069765
 ;;9002226.02101,"1005,61392069790 ",.01)
 ;;61392069790
 ;;9002226.02101,"1005,61392069790 ",.02)
 ;;61392069790
 ;;9002226.02101,"1005,61392069795 ",.01)
 ;;61392069795
 ;;9002226.02101,"1005,61392069795 ",.02)
 ;;61392069795
 ;;9002226.02101,"1005,61392069825 ",.01)
 ;;61392069825
 ;;9002226.02101,"1005,61392069825 ",.02)
 ;;61392069825
 ;;9002226.02101,"1005,61392069830 ",.01)
 ;;61392069830
 ;;9002226.02101,"1005,61392069830 ",.02)
 ;;61392069830
 ;;9002226.02101,"1005,61392069831 ",.01)
 ;;61392069831
 ;;9002226.02101,"1005,61392069831 ",.02)
 ;;61392069831
 ;;9002226.02101,"1005,61392069839 ",.01)
 ;;61392069839
 ;;9002226.02101,"1005,61392069839 ",.02)
 ;;61392069839
 ;;9002226.02101,"1005,61392069860 ",.01)
 ;;61392069860
 ;;9002226.02101,"1005,61392069860 ",.02)
 ;;61392069860
 ;;9002226.02101,"1005,61392069865 ",.01)
 ;;61392069865
 ;;9002226.02101,"1005,61392069865 ",.02)
 ;;61392069865
 ;;9002226.02101,"1005,61392069890 ",.01)
 ;;61392069890
 ;;9002226.02101,"1005,61392069890 ",.02)
 ;;61392069890
 ;;9002226.02101,"1005,61392069895 ",.01)
 ;;61392069895
 ;;9002226.02101,"1005,61392069895 ",.02)
 ;;61392069895
 ;;9002226.02101,"1005,61392086831 ",.01)
 ;;61392086831
 ;;9002226.02101,"1005,61392086831 ",.02)
 ;;61392086831
 ;;9002226.02101,"1005,61392086839 ",.01)
 ;;61392086839
 ;;9002226.02101,"1005,61392086839 ",.02)
 ;;61392086839
 ;;9002226.02101,"1005,61392088631 ",.01)
 ;;61392088631
 ;;9002226.02101,"1005,61392088631 ",.02)
 ;;61392088631
 ;;9002226.02101,"1005,61392088639 ",.01)
 ;;61392088639
 ;;9002226.02101,"1005,61392088639 ",.02)
 ;;61392088639
 ;;9002226.02101,"1005,61392089831 ",.01)
 ;;61392089831
 ;;9002226.02101,"1005,61392089831 ",.02)
 ;;61392089831
 ;;9002226.02101,"1005,61392089839 ",.01)
 ;;61392089839
 ;;9002226.02101,"1005,61392089839 ",.02)
 ;;61392089839
 ;;9002226.02101,"1005,61392092925 ",.01)
 ;;61392092925
 ;;9002226.02101,"1005,61392092925 ",.02)
 ;;61392092925
 ;;9002226.02101,"1005,61392092930 ",.01)
 ;;61392092930
 ;;9002226.02101,"1005,61392092930 ",.02)
 ;;61392092930
 ;;9002226.02101,"1005,61392092931 ",.01)
 ;;61392092931
 ;;9002226.02101,"1005,61392092931 ",.02)
 ;;61392092931
 ;;9002226.02101,"1005,61392092939 ",.01)
 ;;61392092939
 ;;9002226.02101,"1005,61392092939 ",.02)
 ;;61392092939
 ;;9002226.02101,"1005,61392092960 ",.01)
 ;;61392092960
 ;;9002226.02101,"1005,61392092960 ",.02)
 ;;61392092960
 ;;9002226.02101,"1005,61392092965 ",.01)
 ;;61392092965
 ;;9002226.02101,"1005,61392092965 ",.02)
 ;;61392092965
 ;;9002226.02101,"1005,61392092990 ",.01)
 ;;61392092990
 ;;9002226.02101,"1005,61392092990 ",.02)
 ;;61392092990
 ;;9002226.02101,"1005,61392092995 ",.01)
 ;;61392092995
 ;;9002226.02101,"1005,61392092995 ",.02)
 ;;61392092995
 ;;9002226.02101,"1005,61392093025 ",.01)
 ;;61392093025
 ;;9002226.02101,"1005,61392093025 ",.02)
 ;;61392093025
 ;;9002226.02101,"1005,61392093030 ",.01)
 ;;61392093030
 ;;9002226.02101,"1005,61392093030 ",.02)
 ;;61392093030
 ;;9002226.02101,"1005,61392093031 ",.01)
 ;;61392093031
 ;;9002226.02101,"1005,61392093031 ",.02)
 ;;61392093031
 ;;9002226.02101,"1005,61392093039 ",.01)
 ;;61392093039
 ;;9002226.02101,"1005,61392093039 ",.02)
 ;;61392093039
 ;;9002226.02101,"1005,61392093060 ",.01)
 ;;61392093060
 ;;9002226.02101,"1005,61392093060 ",.02)
 ;;61392093060
 ;;9002226.02101,"1005,61392093065 ",.01)
 ;;61392093065
 ;;9002226.02101,"1005,61392093065 ",.02)
 ;;61392093065
 ;;9002226.02101,"1005,61392093090 ",.01)
 ;;61392093090
 ;;9002226.02101,"1005,61392093090 ",.02)
 ;;61392093090
 ;;9002226.02101,"1005,61392093095 ",.01)
 ;;61392093095
 ;;9002226.02101,"1005,61392093095 ",.02)
 ;;61392093095
 ;;9002226.02101,"1005,61392093125 ",.01)
 ;;61392093125
 ;;9002226.02101,"1005,61392093125 ",.02)
 ;;61392093125
 ;;9002226.02101,"1005,61392093130 ",.01)
 ;;61392093130
 ;;9002226.02101,"1005,61392093130 ",.02)
 ;;61392093130
 ;;9002226.02101,"1005,61392093131 ",.01)
 ;;61392093131
 ;;9002226.02101,"1005,61392093131 ",.02)
 ;;61392093131
 ;;9002226.02101,"1005,61392093139 ",.01)
 ;;61392093139
 ;;9002226.02101,"1005,61392093139 ",.02)
 ;;61392093139
 ;;9002226.02101,"1005,61392093160 ",.01)
 ;;61392093160
 ;;9002226.02101,"1005,61392093160 ",.02)
 ;;61392093160
 ;;9002226.02101,"1005,61392093165 ",.01)
 ;;61392093165
 ;;9002226.02101,"1005,61392093165 ",.02)
 ;;61392093165
 ;;9002226.02101,"1005,61392093190 ",.01)
 ;;61392093190
 ;;9002226.02101,"1005,61392093190 ",.02)
 ;;61392093190
 ;;9002226.02101,"1005,61392093195 ",.01)
 ;;61392093195
 ;;9002226.02101,"1005,61392093195 ",.02)
 ;;61392093195
 ;;9002226.02101,"1005,61392093225 ",.01)
 ;;61392093225
 ;;9002226.02101,"1005,61392093225 ",.02)
 ;;61392093225
 ;;9002226.02101,"1005,61392093230 ",.01)
 ;;61392093230
 ;;9002226.02101,"1005,61392093230 ",.02)
 ;;61392093230
 ;;9002226.02101,"1005,61392093231 ",.01)
 ;;61392093231
 ;;9002226.02101,"1005,61392093231 ",.02)
 ;;61392093231
 ;;9002226.02101,"1005,61392093239 ",.01)
 ;;61392093239
 ;;9002226.02101,"1005,61392093239 ",.02)
 ;;61392093239
 ;;9002226.02101,"1005,61392093260 ",.01)
 ;;61392093260
 ;;9002226.02101,"1005,61392093260 ",.02)
 ;;61392093260
 ;;9002226.02101,"1005,61392093265 ",.01)
 ;;61392093265
 ;;9002226.02101,"1005,61392093265 ",.02)
 ;;61392093265
 ;;9002226.02101,"1005,61392093290 ",.01)
 ;;61392093290
 ;;9002226.02101,"1005,61392093290 ",.02)
 ;;61392093290
 ;;9002226.02101,"1005,61392093295 ",.01)
 ;;61392093295
 ;;9002226.02101,"1005,61392093295 ",.02)
 ;;61392093295
 ;;9002226.02101,"1005,61570011001 ",.01)
 ;;61570011001
 ;;9002226.02101,"1005,61570011001 ",.02)
 ;;61570011001
 ;;9002226.02101,"1005,61570011056 ",.01)
 ;;61570011056
 ;;9002226.02101,"1005,61570011056 ",.02)
 ;;61570011056
 ;;9002226.02101,"1005,61570011101 ",.01)
 ;;61570011101
 ;;9002226.02101,"1005,61570011101 ",.02)
 ;;61570011101
 ;;9002226.02101,"1005,61570011105 ",.01)
 ;;61570011105
 ;;9002226.02101,"1005,61570011105 ",.02)
 ;;61570011105
 ;;9002226.02101,"1005,61570011107 ",.01)
 ;;61570011107
 ;;9002226.02101,"1005,61570011107 ",.02)
 ;;61570011107
 ;;9002226.02101,"1005,61570011150 ",.01)
 ;;61570011150
 ;;9002226.02101,"1005,61570011150 ",.02)
 ;;61570011150
 ;;9002226.02101,"1005,61570011156 ",.01)
 ;;61570011156
 ;;9002226.02101,"1005,61570011156 ",.02)
 ;;61570011156
 ;;9002226.02101,"1005,61570011201 ",.01)
 ;;61570011201
 ;;9002226.02101,"1005,61570011201 ",.02)
 ;;61570011201
 ;;9002226.02101,"1005,61570011205 ",.01)
 ;;61570011205
 ;;9002226.02101,"1005,61570011205 ",.02)
 ;;61570011205
 ;;9002226.02101,"1005,61570011207 ",.01)
 ;;61570011207
 ;;9002226.02101,"1005,61570011207 ",.02)
 ;;61570011207
 ;;9002226.02101,"1005,61570011250 ",.01)
 ;;61570011250
 ;;9002226.02101,"1005,61570011250 ",.02)
 ;;61570011250
 ;;9002226.02101,"1005,61570011256 ",.01)
 ;;61570011256
 ;;9002226.02101,"1005,61570011256 ",.02)
 ;;61570011256
 ;;9002226.02101,"1005,61570012001 ",.01)
 ;;61570012001
 ;;9002226.02101,"1005,61570012001 ",.02)
 ;;61570012001
 ;;9002226.02101,"1005,61570012005 ",.01)
 ;;61570012005
 ;;9002226.02101,"1005,61570012005 ",.02)
 ;;61570012005
 ;;9002226.02101,"1005,61570012007 ",.01)
 ;;61570012007
 ;;9002226.02101,"1005,61570012007 ",.02)
 ;;61570012007
 ;;9002226.02101,"1005,61570012080 ",.01)
 ;;61570012080
 ;;9002226.02101,"1005,61570012080 ",.02)
 ;;61570012080
 ;;9002226.02101,"1005,61703023716 ",.01)
 ;;61703023716
 ;;9002226.02101,"1005,61703023716 ",.02)
 ;;61703023716
 ;;9002226.02101,"1005,61703023744 ",.01)
 ;;61703023744
 ;;9002226.02101,"1005,61703023744 ",.02)
 ;;61703023744
 ;;9002226.02101,"1005,62022094501 ",.01)
 ;;62022094501
 ;;9002226.02101,"1005,62022094501 ",.02)
 ;;62022094501
 ;;9002226.02101,"1005,62022094505 ",.01)
 ;;62022094505
 ;;9002226.02101,"1005,62022094505 ",.02)
 ;;62022094505
 ;;9002226.02101,"1005,62022094510 ",.01)
 ;;62022094510
 ;;9002226.02101,"1005,62022094510 ",.02)
 ;;62022094510
 ;;9002226.02101,"1005,62022094601 ",.01)
 ;;62022094601
 ;;9002226.02101,"1005,62022094601 ",.02)
 ;;62022094601
 ;;9002226.02101,"1005,62022094605 ",.01)
 ;;62022094605
 ;;9002226.02101,"1005,62022094605 ",.02)
 ;;62022094605
 ;;9002226.02101,"1005,62022094610 ",.01)
 ;;62022094610
 ;;9002226.02101,"1005,62022094610 ",.02)
 ;;62022094610
 ;;9002226.02101,"1005,62033010120 ",.01)
 ;;62033010120
 ;;9002226.02101,"1005,62033010120 ",.02)
 ;;62033010120
 ;;9002226.02101,"1005,62037053110 ",.01)
 ;;62037053110
 ;;9002226.02101,"1005,62037053110 ",.02)
 ;;62037053110
 ;;9002226.02101,"1005,62037053190 ",.01)
 ;;62037053190
 ;;9002226.02101,"1005,62037053190 ",.02)
 ;;62037053190
 ;;9002226.02101,"1005,62037053210 ",.01)
 ;;62037053210
 ;;9002226.02101,"1005,62037053210 ",.02)
 ;;62037053210
 ;;9002226.02101,"1005,62037053290 ",.01)
 ;;62037053290
 ;;9002226.02101,"1005,62037053290 ",.02)
 ;;62037053290
 ;;9002226.02101,"1005,62037053310 ",.01)
 ;;62037053310
 ;;9002226.02101,"1005,62037053310 ",.02)
 ;;62037053310
 ;;9002226.02101,"1005,62037053390 ",.01)
 ;;62037053390
 ;;9002226.02101,"1005,62037053390 ",.02)
 ;;62037053390
 ;;9002226.02101,"1005,62037053410 ",.01)
 ;;62037053410
 ;;9002226.02101,"1005,62037053410 ",.02)
 ;;62037053410
 ;;9002226.02101,"1005,62037053490 ",.01)
 ;;62037053490
 ;;9002226.02101,"1005,62037053490 ",.02)
 ;;62037053490
 ;;9002226.02101,"1005,62037093505 ",.01)
 ;;62037093505
 ;;9002226.02101,"1005,62037093505 ",.02)
 ;;62037093505
 ;;9002226.02101,"1005,62037093510 ",.01)
 ;;62037093510
 ;;9002226.02101,"1005,62037093510 ",.02)
 ;;62037093510
 ;;9002226.02101,"1005,62037093530 ",.01)
 ;;62037093530
 ;;9002226.02101,"1005,62037093530 ",.02)
 ;;62037093530
 ;;9002226.02101,"1005,62037093590 ",.01)
 ;;62037093590
 ;;9002226.02101,"1005,62037093590 ",.02)
 ;;62037093590
 ;;9002226.02101,"1005,62037093605 ",.01)
 ;;62037093605
 ;;9002226.02101,"1005,62037093605 ",.02)
 ;;62037093605
 ;;9002226.02101,"1005,62037093610 ",.01)
 ;;62037093610
 ;;9002226.02101,"1005,62037093610 ",.02)
 ;;62037093610
 ;;9002226.02101,"1005,62037093630 ",.01)
 ;;62037093630
 ;;9002226.02101,"1005,62037093630 ",.02)
 ;;62037093630
 ;;9002226.02101,"1005,62037093690 ",.01)
 ;;62037093690
 ;;9002226.02101,"1005,62037093690 ",.02)
 ;;62037093690
 ;;9002226.02101,"1005,62037093705 ",.01)
 ;;62037093705
 ;;9002226.02101,"1005,62037093705 ",.02)
 ;;62037093705
 ;;9002226.02101,"1005,62037093710 ",.01)
 ;;62037093710
 ;;9002226.02101,"1005,62037093710 ",.02)
 ;;62037093710
 ;;9002226.02101,"1005,62037093730 ",.01)
 ;;62037093730
 ;;9002226.02101,"1005,62037093730 ",.02)
 ;;62037093730
 ;;9002226.02101,"1005,62037093790 ",.01)
 ;;62037093790
 ;;9002226.02101,"1005,62037093790 ",.02)
 ;;62037093790
 ;;9002226.02101,"1005,62175017137 ",.01)
 ;;62175017137
 ;;9002226.02101,"1005,62175017137 ",.02)
 ;;62175017137
 ;;9002226.02101,"1005,62175017737 ",.01)
 ;;62175017737
 ;;9002226.02101,"1005,62175017737 ",.02)
 ;;62175017737
 ;;9002226.02101,"1005,62301004444 ",.01)
 ;;62301004444
 ;;9002226.02101,"1005,62301004444 ",.02)
 ;;62301004444
 ;;9002226.02101,"1005,62301006767 ",.01)
 ;;62301006767