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

BGPM5ASD.m

Go to the documentation of this file.
BGPM5ASD ;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,63629373903 ",.02)
 ;;63629373903
 ;;9002226.02101,"1005,63629436701 ",.01)
 ;;63629436701
 ;;9002226.02101,"1005,63629436701 ",.02)
 ;;63629436701
 ;;9002226.02101,"1005,63629436702 ",.01)
 ;;63629436702
 ;;9002226.02101,"1005,63629436702 ",.02)
 ;;63629436702
 ;;9002226.02101,"1005,63629436703 ",.01)
 ;;63629436703
 ;;9002226.02101,"1005,63629436703 ",.02)
 ;;63629436703
 ;;9002226.02101,"1005,63629447001 ",.01)
 ;;63629447001
 ;;9002226.02101,"1005,63629447001 ",.02)
 ;;63629447001
 ;;9002226.02101,"1005,63629447002 ",.01)
 ;;63629447002
 ;;9002226.02101,"1005,63629447002 ",.02)
 ;;63629447002
 ;;9002226.02101,"1005,63739004201 ",.01)
 ;;63739004201
 ;;9002226.02101,"1005,63739004201 ",.02)
 ;;63739004201
 ;;9002226.02101,"1005,63739004301 ",.01)
 ;;63739004301
 ;;9002226.02101,"1005,63739004301 ",.02)
 ;;63739004301
 ;;9002226.02101,"1005,63739030210 ",.01)
 ;;63739030210
 ;;9002226.02101,"1005,63739030210 ",.02)
 ;;63739030210
 ;;9002226.02101,"1005,63739032205 ",.01)
 ;;63739032205
 ;;9002226.02101,"1005,63739032205 ",.02)
 ;;63739032205
 ;;9002226.02101,"1005,63739034810 ",.01)
 ;;63739034810
 ;;9002226.02101,"1005,63739034810 ",.02)
 ;;63739034810
 ;;9002226.02101,"1005,63739034910 ",.01)
 ;;63739034910
 ;;9002226.02101,"1005,63739034910 ",.02)
 ;;63739034910
 ;;9002226.02101,"1005,63739035010 ",.01)
 ;;63739035010
 ;;9002226.02101,"1005,63739035010 ",.02)
 ;;63739035010
 ;;9002226.02101,"1005,63874005810 ",.01)
 ;;63874005810
 ;;9002226.02101,"1005,63874005810 ",.02)
 ;;63874005810
 ;;9002226.02101,"1005,63874005815 ",.01)
 ;;63874005815
 ;;9002226.02101,"1005,63874005815 ",.02)
 ;;63874005815
 ;;9002226.02101,"1005,63874005830 ",.01)
 ;;63874005830
 ;;9002226.02101,"1005,63874005830 ",.02)
 ;;63874005830
 ;;9002226.02101,"1005,63874005890 ",.01)
 ;;63874005890
 ;;9002226.02101,"1005,63874005890 ",.02)
 ;;63874005890
 ;;9002226.02101,"1005,63874034701 ",.01)
 ;;63874034701
 ;;9002226.02101,"1005,63874034701 ",.02)
 ;;63874034701
 ;;9002226.02101,"1005,63874034702 ",.01)
 ;;63874034702
 ;;9002226.02101,"1005,63874034702 ",.02)
 ;;63874034702
 ;;9002226.02101,"1005,63874034705 ",.01)
 ;;63874034705
 ;;9002226.02101,"1005,63874034705 ",.02)
 ;;63874034705
 ;;9002226.02101,"1005,63874034720 ",.01)
 ;;63874034720
 ;;9002226.02101,"1005,63874034720 ",.02)
 ;;63874034720
 ;;9002226.02101,"1005,63874034730 ",.01)
 ;;63874034730
 ;;9002226.02101,"1005,63874034730 ",.02)
 ;;63874034730
 ;;9002226.02101,"1005,63874034740 ",.01)
 ;;63874034740
 ;;9002226.02101,"1005,63874034740 ",.02)
 ;;63874034740
 ;;9002226.02101,"1005,63874034742 ",.01)
 ;;63874034742
 ;;9002226.02101,"1005,63874034742 ",.02)
 ;;63874034742
 ;;9002226.02101,"1005,63874034745 ",.01)
 ;;63874034745
 ;;9002226.02101,"1005,63874034745 ",.02)
 ;;63874034745
 ;;9002226.02101,"1005,63874034790 ",.01)
 ;;63874034790
 ;;9002226.02101,"1005,63874034790 ",.02)
 ;;63874034790
 ;;9002226.02101,"1005,63874034801 ",.01)
 ;;63874034801
 ;;9002226.02101,"1005,63874034801 ",.02)
 ;;63874034801
 ;;9002226.02101,"1005,63874034810 ",.01)
 ;;63874034810
 ;;9002226.02101,"1005,63874034810 ",.02)
 ;;63874034810
 ;;9002226.02101,"1005,63874034814 ",.01)
 ;;63874034814
 ;;9002226.02101,"1005,63874034814 ",.02)
 ;;63874034814
 ;;9002226.02101,"1005,63874034820 ",.01)
 ;;63874034820
 ;;9002226.02101,"1005,63874034820 ",.02)
 ;;63874034820
 ;;9002226.02101,"1005,63874034830 ",.01)
 ;;63874034830
 ;;9002226.02101,"1005,63874034830 ",.02)
 ;;63874034830
 ;;9002226.02101,"1005,63874034860 ",.01)
 ;;63874034860
 ;;9002226.02101,"1005,63874034860 ",.02)
 ;;63874034860
 ;;9002226.02101,"1005,63874034890 ",.01)
 ;;63874034890
 ;;9002226.02101,"1005,63874034890 ",.02)
 ;;63874034890
 ;;9002226.02101,"1005,63874037910 ",.01)
 ;;63874037910
 ;;9002226.02101,"1005,63874037910 ",.02)
 ;;63874037910
 ;;9002226.02101,"1005,63874037930 ",.01)
 ;;63874037930
 ;;9002226.02101,"1005,63874037930 ",.02)
 ;;63874037930
 ;;9002226.02101,"1005,63874042301 ",.01)
 ;;63874042301
 ;;9002226.02101,"1005,63874042301 ",.02)
 ;;63874042301
 ;;9002226.02101,"1005,63874042307 ",.01)
 ;;63874042307
 ;;9002226.02101,"1005,63874042307 ",.02)
 ;;63874042307
 ;;9002226.02101,"1005,63874042310 ",.01)
 ;;63874042310
 ;;9002226.02101,"1005,63874042310 ",.02)
 ;;63874042310
 ;;9002226.02101,"1005,63874042314 ",.01)
 ;;63874042314
 ;;9002226.02101,"1005,63874042314 ",.02)
 ;;63874042314
 ;;9002226.02101,"1005,63874042320 ",.01)
 ;;63874042320
 ;;9002226.02101,"1005,63874042320 ",.02)
 ;;63874042320
 ;;9002226.02101,"1005,63874042330 ",.01)
 ;;63874042330
 ;;9002226.02101,"1005,63874042330 ",.02)
 ;;63874042330
 ;;9002226.02101,"1005,63874042360 ",.01)
 ;;63874042360
 ;;9002226.02101,"1005,63874042360 ",.02)
 ;;63874042360
 ;;9002226.02101,"1005,63874051401 ",.01)
 ;;63874051401
 ;;9002226.02101,"1005,63874051401 ",.02)
 ;;63874051401
 ;;9002226.02101,"1005,63874051410 ",.01)
 ;;63874051410
 ;;9002226.02101,"1005,63874051410 ",.02)
 ;;63874051410
 ;;9002226.02101,"1005,63874051414 ",.01)
 ;;63874051414
 ;;9002226.02101,"1005,63874051414 ",.02)
 ;;63874051414
 ;;9002226.02101,"1005,63874051415 ",.01)
 ;;63874051415
 ;;9002226.02101,"1005,63874051415 ",.02)
 ;;63874051415
 ;;9002226.02101,"1005,63874051416 ",.01)
 ;;63874051416
 ;;9002226.02101,"1005,63874051416 ",.02)
 ;;63874051416
 ;;9002226.02101,"1005,63874051420 ",.01)
 ;;63874051420
 ;;9002226.02101,"1005,63874051420 ",.02)
 ;;63874051420
 ;;9002226.02101,"1005,63874051428 ",.01)
 ;;63874051428
 ;;9002226.02101,"1005,63874051428 ",.02)
 ;;63874051428
 ;;9002226.02101,"1005,63874051430 ",.01)
 ;;63874051430
 ;;9002226.02101,"1005,63874051430 ",.02)
 ;;63874051430
 ;;9002226.02101,"1005,63874051460 ",.01)
 ;;63874051460
 ;;9002226.02101,"1005,63874051460 ",.02)
 ;;63874051460
 ;;9002226.02101,"1005,63874051490 ",.01)
 ;;63874051490
 ;;9002226.02101,"1005,63874051490 ",.02)
 ;;63874051490
 ;;9002226.02101,"1005,63874052201 ",.01)
 ;;63874052201
 ;;9002226.02101,"1005,63874052201 ",.02)
 ;;63874052201
 ;;9002226.02101,"1005,63874052215 ",.01)
 ;;63874052215
 ;;9002226.02101,"1005,63874052215 ",.02)
 ;;63874052215
 ;;9002226.02101,"1005,63874052230 ",.01)
 ;;63874052230
 ;;9002226.02101,"1005,63874052230 ",.02)
 ;;63874052230
 ;;9002226.02101,"1005,63874052260 ",.01)
 ;;63874052260
 ;;9002226.02101,"1005,63874052260 ",.02)
 ;;63874052260
 ;;9002226.02101,"1005,63874055801 ",.01)
 ;;63874055801
 ;;9002226.02101,"1005,63874055801 ",.02)
 ;;63874055801
 ;;9002226.02101,"1005,63874055810 ",.01)
 ;;63874055810
 ;;9002226.02101,"1005,63874055810 ",.02)
 ;;63874055810
 ;;9002226.02101,"1005,63874055814 ",.01)
 ;;63874055814
 ;;9002226.02101,"1005,63874055814 ",.02)
 ;;63874055814
 ;;9002226.02101,"1005,63874055816 ",.01)
 ;;63874055816
 ;;9002226.02101,"1005,63874055816 ",.02)
 ;;63874055816
 ;;9002226.02101,"1005,63874055828 ",.01)
 ;;63874055828
 ;;9002226.02101,"1005,63874055828 ",.02)
 ;;63874055828
 ;;9002226.02101,"1005,63874055830 ",.01)
 ;;63874055830
 ;;9002226.02101,"1005,63874055830 ",.02)
 ;;63874055830
 ;;9002226.02101,"1005,63874055860 ",.01)
 ;;63874055860
 ;;9002226.02101,"1005,63874055860 ",.02)
 ;;63874055860
 ;;9002226.02101,"1005,63874055890 ",.01)
 ;;63874055890
 ;;9002226.02101,"1005,63874055890 ",.02)
 ;;63874055890
 ;;9002226.02101,"1005,63874058110 ",.01)
 ;;63874058110
 ;;9002226.02101,"1005,63874058110 ",.02)
 ;;63874058110
 ;;9002226.02101,"1005,63874058130 ",.01)
 ;;63874058130
 ;;9002226.02101,"1005,63874058130 ",.02)
 ;;63874058130
 ;;9002226.02101,"1005,63874058190 ",.01)
 ;;63874058190
 ;;9002226.02101,"1005,63874058190 ",.02)
 ;;63874058190
 ;;9002226.02101,"1005,63874064710 ",.01)
 ;;63874064710
 ;;9002226.02101,"1005,63874064710 ",.02)
 ;;63874064710
 ;;9002226.02101,"1005,63874064714 ",.01)
 ;;63874064714
 ;;9002226.02101,"1005,63874064714 ",.02)
 ;;63874064714
 ;;9002226.02101,"1005,63874064730 ",.01)
 ;;63874064730
 ;;9002226.02101,"1005,63874064730 ",.02)
 ;;63874064730
 ;;9002226.02101,"1005,63874065501 ",.01)
 ;;63874065501
 ;;9002226.02101,"1005,63874065501 ",.02)
 ;;63874065501
 ;;9002226.02101,"1005,63874065510 ",.01)
 ;;63874065510
 ;;9002226.02101,"1005,63874065510 ",.02)
 ;;63874065510
 ;;9002226.02101,"1005,63874065520 ",.01)
 ;;63874065520
 ;;9002226.02101,"1005,63874065520 ",.02)
 ;;63874065520
 ;;9002226.02101,"1005,63874065530 ",.01)
 ;;63874065530
 ;;9002226.02101,"1005,63874065530 ",.02)
 ;;63874065530
 ;;9002226.02101,"1005,63874065560 ",.01)
 ;;63874065560
 ;;9002226.02101,"1005,63874065560 ",.02)
 ;;63874065560
 ;;9002226.02101,"1005,63874098701 ",.01)
 ;;63874098701
 ;;9002226.02101,"1005,63874098701 ",.02)
 ;;63874098701
 ;;9002226.02101,"1005,63874098710 ",.01)
 ;;63874098710
 ;;9002226.02101,"1005,63874098710 ",.02)
 ;;63874098710
 ;;9002226.02101,"1005,63874098714 ",.01)
 ;;63874098714
 ;;9002226.02101,"1005,63874098714 ",.02)
 ;;63874098714
 ;;9002226.02101,"1005,63874098720 ",.01)
 ;;63874098720
 ;;9002226.02101,"1005,63874098720 ",.02)
 ;;63874098720
 ;;9002226.02101,"1005,63874098730 ",.01)
 ;;63874098730
 ;;9002226.02101,"1005,63874098730 ",.02)
 ;;63874098730
 ;;9002226.02101,"1005,63874098760 ",.01)
 ;;63874098760
 ;;9002226.02101,"1005,63874098760 ",.02)
 ;;63874098760
 ;;9002226.02101,"1005,63874111409 ",.01)
 ;;63874111409
 ;;9002226.02101,"1005,63874111409 ",.02)
 ;;63874111409
 ;;9002226.02101,"1005,64455013001 ",.01)
 ;;64455013001
 ;;9002226.02101,"1005,64455013001 ",.02)
 ;;64455013001
 ;;9002226.02101,"1005,64455013101 ",.01)
 ;;64455013101
 ;;9002226.02101,"1005,64455013101 ",.02)
 ;;64455013101
 ;;9002226.02101,"1005,64455013107 ",.01)
 ;;64455013107
 ;;9002226.02101,"1005,64455013107 ",.02)
 ;;64455013107
 ;;9002226.02101,"1005,64455013201 ",.01)
 ;;64455013201
 ;;9002226.02101,"1005,64455013201 ",.02)
 ;;64455013201
 ;;9002226.02101,"1005,64455013207 ",.01)
 ;;64455013207
 ;;9002226.02101,"1005,64455013207 ",.02)
 ;;64455013207
 ;;9002226.02101,"1005,64455014010 ",.01)
 ;;64455014010
 ;;9002226.02101,"1005,64455014010 ",.02)
 ;;64455014010
 ;;9002226.02101,"1005,64455014011 ",.01)
 ;;64455014011
 ;;9002226.02101,"1005,64455014011 ",.02)
 ;;64455014011
 ;;9002226.02101,"1005,64455014030 ",.01)
 ;;64455014030
 ;;9002226.02101,"1005,64455014030 ",.02)
 ;;64455014030
 ;;9002226.02101,"1005,64455014090 ",.01)
 ;;64455014090
 ;;9002226.02101,"1005,64455014090 ",.02)
 ;;64455014090
 ;;9002226.02101,"1005,64455014110 ",.01)
 ;;64455014110
 ;;9002226.02101,"1005,64455014110 ",.02)
 ;;64455014110
 ;;9002226.02101,"1005,64455014111 ",.01)
 ;;64455014111
 ;;9002226.02101,"1005,64455014111 ",.02)
 ;;64455014111
 ;;9002226.02101,"1005,64455014130 ",.01)
 ;;64455014130
 ;;9002226.02101,"1005,64455014130 ",.02)
 ;;64455014130
 ;;9002226.02101,"1005,64455014190 ",.01)
 ;;64455014190
 ;;9002226.02101,"1005,64455014190 ",.02)
 ;;64455014190
 ;;9002226.02101,"1005,64455014210 ",.01)
 ;;64455014210
 ;;9002226.02101,"1005,64455014210 ",.02)
 ;;64455014210
 ;;9002226.02101,"1005,64455014211 ",.01)
 ;;64455014211
 ;;9002226.02101,"1005,64455014211 ",.02)
 ;;64455014211
 ;;9002226.02101,"1005,64455014230 ",.01)
 ;;64455014230
 ;;9002226.02101,"1005,64455014230 ",.02)
 ;;64455014230
 ;;9002226.02101,"1005,64455014290 ",.01)
 ;;64455014290
 ;;9002226.02101,"1005,64455014290 ",.02)
 ;;64455014290
 ;;9002226.02101,"1005,64455014310 ",.01)
 ;;64455014310
 ;;9002226.02101,"1005,64455014310 ",.02)
 ;;64455014310
 ;;9002226.02101,"1005,64455014311 ",.01)
 ;;64455014311
 ;;9002226.02101,"1005,64455014311 ",.02)
 ;;64455014311