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.
  1. BGPM5ASD ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1005,63629373903 ",.02)
  1. ;;63629373903
  1. ;;9002226.02101,"1005,63629436701 ",.01)
  1. ;;63629436701
  1. ;;9002226.02101,"1005,63629436701 ",.02)
  1. ;;63629436701
  1. ;;9002226.02101,"1005,63629436702 ",.01)
  1. ;;63629436702
  1. ;;9002226.02101,"1005,63629436702 ",.02)
  1. ;;63629436702
  1. ;;9002226.02101,"1005,63629436703 ",.01)
  1. ;;63629436703
  1. ;;9002226.02101,"1005,63629436703 ",.02)
  1. ;;63629436703
  1. ;;9002226.02101,"1005,63629447001 ",.01)
  1. ;;63629447001
  1. ;;9002226.02101,"1005,63629447001 ",.02)
  1. ;;63629447001
  1. ;;9002226.02101,"1005,63629447002 ",.01)
  1. ;;63629447002
  1. ;;9002226.02101,"1005,63629447002 ",.02)
  1. ;;63629447002
  1. ;;9002226.02101,"1005,63739004201 ",.01)
  1. ;;63739004201
  1. ;;9002226.02101,"1005,63739004201 ",.02)
  1. ;;63739004201
  1. ;;9002226.02101,"1005,63739004301 ",.01)
  1. ;;63739004301
  1. ;;9002226.02101,"1005,63739004301 ",.02)
  1. ;;63739004301
  1. ;;9002226.02101,"1005,63739030210 ",.01)
  1. ;;63739030210
  1. ;;9002226.02101,"1005,63739030210 ",.02)
  1. ;;63739030210
  1. ;;9002226.02101,"1005,63739032205 ",.01)
  1. ;;63739032205
  1. ;;9002226.02101,"1005,63739032205 ",.02)
  1. ;;63739032205
  1. ;;9002226.02101,"1005,63739034810 ",.01)
  1. ;;63739034810
  1. ;;9002226.02101,"1005,63739034810 ",.02)
  1. ;;63739034810
  1. ;;9002226.02101,"1005,63739034910 ",.01)
  1. ;;63739034910
  1. ;;9002226.02101,"1005,63739034910 ",.02)
  1. ;;63739034910
  1. ;;9002226.02101,"1005,63739035010 ",.01)
  1. ;;63739035010
  1. ;;9002226.02101,"1005,63739035010 ",.02)
  1. ;;63739035010
  1. ;;9002226.02101,"1005,63874005810 ",.01)
  1. ;;63874005810
  1. ;;9002226.02101,"1005,63874005810 ",.02)
  1. ;;63874005810
  1. ;;9002226.02101,"1005,63874005815 ",.01)
  1. ;;63874005815
  1. ;;9002226.02101,"1005,63874005815 ",.02)
  1. ;;63874005815
  1. ;;9002226.02101,"1005,63874005830 ",.01)
  1. ;;63874005830
  1. ;;9002226.02101,"1005,63874005830 ",.02)
  1. ;;63874005830
  1. ;;9002226.02101,"1005,63874005890 ",.01)
  1. ;;63874005890
  1. ;;9002226.02101,"1005,63874005890 ",.02)
  1. ;;63874005890
  1. ;;9002226.02101,"1005,63874034701 ",.01)
  1. ;;63874034701
  1. ;;9002226.02101,"1005,63874034701 ",.02)
  1. ;;63874034701
  1. ;;9002226.02101,"1005,63874034702 ",.01)
  1. ;;63874034702
  1. ;;9002226.02101,"1005,63874034702 ",.02)
  1. ;;63874034702
  1. ;;9002226.02101,"1005,63874034705 ",.01)
  1. ;;63874034705
  1. ;;9002226.02101,"1005,63874034705 ",.02)
  1. ;;63874034705
  1. ;;9002226.02101,"1005,63874034720 ",.01)
  1. ;;63874034720
  1. ;;9002226.02101,"1005,63874034720 ",.02)
  1. ;;63874034720
  1. ;;9002226.02101,"1005,63874034730 ",.01)
  1. ;;63874034730
  1. ;;9002226.02101,"1005,63874034730 ",.02)
  1. ;;63874034730
  1. ;;9002226.02101,"1005,63874034740 ",.01)
  1. ;;63874034740
  1. ;;9002226.02101,"1005,63874034740 ",.02)
  1. ;;63874034740
  1. ;;9002226.02101,"1005,63874034742 ",.01)
  1. ;;63874034742
  1. ;;9002226.02101,"1005,63874034742 ",.02)
  1. ;;63874034742
  1. ;;9002226.02101,"1005,63874034745 ",.01)
  1. ;;63874034745
  1. ;;9002226.02101,"1005,63874034745 ",.02)
  1. ;;63874034745
  1. ;;9002226.02101,"1005,63874034790 ",.01)
  1. ;;63874034790
  1. ;;9002226.02101,"1005,63874034790 ",.02)
  1. ;;63874034790
  1. ;;9002226.02101,"1005,63874034801 ",.01)
  1. ;;63874034801
  1. ;;9002226.02101,"1005,63874034801 ",.02)
  1. ;;63874034801
  1. ;;9002226.02101,"1005,63874034810 ",.01)
  1. ;;63874034810
  1. ;;9002226.02101,"1005,63874034810 ",.02)
  1. ;;63874034810
  1. ;;9002226.02101,"1005,63874034814 ",.01)
  1. ;;63874034814
  1. ;;9002226.02101,"1005,63874034814 ",.02)
  1. ;;63874034814
  1. ;;9002226.02101,"1005,63874034820 ",.01)
  1. ;;63874034820
  1. ;;9002226.02101,"1005,63874034820 ",.02)
  1. ;;63874034820
  1. ;;9002226.02101,"1005,63874034830 ",.01)
  1. ;;63874034830
  1. ;;9002226.02101,"1005,63874034830 ",.02)
  1. ;;63874034830
  1. ;;9002226.02101,"1005,63874034860 ",.01)
  1. ;;63874034860
  1. ;;9002226.02101,"1005,63874034860 ",.02)
  1. ;;63874034860
  1. ;;9002226.02101,"1005,63874034890 ",.01)
  1. ;;63874034890
  1. ;;9002226.02101,"1005,63874034890 ",.02)
  1. ;;63874034890
  1. ;;9002226.02101,"1005,63874037910 ",.01)
  1. ;;63874037910
  1. ;;9002226.02101,"1005,63874037910 ",.02)
  1. ;;63874037910
  1. ;;9002226.02101,"1005,63874037930 ",.01)
  1. ;;63874037930
  1. ;;9002226.02101,"1005,63874037930 ",.02)
  1. ;;63874037930
  1. ;;9002226.02101,"1005,63874042301 ",.01)
  1. ;;63874042301
  1. ;;9002226.02101,"1005,63874042301 ",.02)
  1. ;;63874042301
  1. ;;9002226.02101,"1005,63874042307 ",.01)
  1. ;;63874042307
  1. ;;9002226.02101,"1005,63874042307 ",.02)
  1. ;;63874042307
  1. ;;9002226.02101,"1005,63874042310 ",.01)
  1. ;;63874042310
  1. ;;9002226.02101,"1005,63874042310 ",.02)
  1. ;;63874042310
  1. ;;9002226.02101,"1005,63874042314 ",.01)
  1. ;;63874042314
  1. ;;9002226.02101,"1005,63874042314 ",.02)
  1. ;;63874042314
  1. ;;9002226.02101,"1005,63874042320 ",.01)
  1. ;;63874042320
  1. ;;9002226.02101,"1005,63874042320 ",.02)
  1. ;;63874042320
  1. ;;9002226.02101,"1005,63874042330 ",.01)
  1. ;;63874042330
  1. ;;9002226.02101,"1005,63874042330 ",.02)
  1. ;;63874042330
  1. ;;9002226.02101,"1005,63874042360 ",.01)
  1. ;;63874042360
  1. ;;9002226.02101,"1005,63874042360 ",.02)
  1. ;;63874042360
  1. ;;9002226.02101,"1005,63874051401 ",.01)
  1. ;;63874051401
  1. ;;9002226.02101,"1005,63874051401 ",.02)
  1. ;;63874051401
  1. ;;9002226.02101,"1005,63874051410 ",.01)
  1. ;;63874051410
  1. ;;9002226.02101,"1005,63874051410 ",.02)
  1. ;;63874051410
  1. ;;9002226.02101,"1005,63874051414 ",.01)
  1. ;;63874051414
  1. ;;9002226.02101,"1005,63874051414 ",.02)
  1. ;;63874051414
  1. ;;9002226.02101,"1005,63874051415 ",.01)
  1. ;;63874051415
  1. ;;9002226.02101,"1005,63874051415 ",.02)
  1. ;;63874051415
  1. ;;9002226.02101,"1005,63874051416 ",.01)
  1. ;;63874051416
  1. ;;9002226.02101,"1005,63874051416 ",.02)
  1. ;;63874051416
  1. ;;9002226.02101,"1005,63874051420 ",.01)
  1. ;;63874051420
  1. ;;9002226.02101,"1005,63874051420 ",.02)
  1. ;;63874051420
  1. ;;9002226.02101,"1005,63874051428 ",.01)
  1. ;;63874051428
  1. ;;9002226.02101,"1005,63874051428 ",.02)
  1. ;;63874051428
  1. ;;9002226.02101,"1005,63874051430 ",.01)
  1. ;;63874051430
  1. ;;9002226.02101,"1005,63874051430 ",.02)
  1. ;;63874051430
  1. ;;9002226.02101,"1005,63874051460 ",.01)
  1. ;;63874051460
  1. ;;9002226.02101,"1005,63874051460 ",.02)
  1. ;;63874051460
  1. ;;9002226.02101,"1005,63874051490 ",.01)
  1. ;;63874051490
  1. ;;9002226.02101,"1005,63874051490 ",.02)
  1. ;;63874051490
  1. ;;9002226.02101,"1005,63874052201 ",.01)
  1. ;;63874052201
  1. ;;9002226.02101,"1005,63874052201 ",.02)
  1. ;;63874052201
  1. ;;9002226.02101,"1005,63874052215 ",.01)
  1. ;;63874052215
  1. ;;9002226.02101,"1005,63874052215 ",.02)
  1. ;;63874052215
  1. ;;9002226.02101,"1005,63874052230 ",.01)
  1. ;;63874052230
  1. ;;9002226.02101,"1005,63874052230 ",.02)
  1. ;;63874052230
  1. ;;9002226.02101,"1005,63874052260 ",.01)
  1. ;;63874052260
  1. ;;9002226.02101,"1005,63874052260 ",.02)
  1. ;;63874052260
  1. ;;9002226.02101,"1005,63874055801 ",.01)
  1. ;;63874055801
  1. ;;9002226.02101,"1005,63874055801 ",.02)
  1. ;;63874055801
  1. ;;9002226.02101,"1005,63874055810 ",.01)
  1. ;;63874055810
  1. ;;9002226.02101,"1005,63874055810 ",.02)
  1. ;;63874055810
  1. ;;9002226.02101,"1005,63874055814 ",.01)
  1. ;;63874055814
  1. ;;9002226.02101,"1005,63874055814 ",.02)
  1. ;;63874055814
  1. ;;9002226.02101,"1005,63874055816 ",.01)
  1. ;;63874055816
  1. ;;9002226.02101,"1005,63874055816 ",.02)
  1. ;;63874055816
  1. ;;9002226.02101,"1005,63874055828 ",.01)
  1. ;;63874055828
  1. ;;9002226.02101,"1005,63874055828 ",.02)
  1. ;;63874055828
  1. ;;9002226.02101,"1005,63874055830 ",.01)
  1. ;;63874055830
  1. ;;9002226.02101,"1005,63874055830 ",.02)
  1. ;;63874055830
  1. ;;9002226.02101,"1005,63874055860 ",.01)
  1. ;;63874055860
  1. ;;9002226.02101,"1005,63874055860 ",.02)
  1. ;;63874055860
  1. ;;9002226.02101,"1005,63874055890 ",.01)
  1. ;;63874055890
  1. ;;9002226.02101,"1005,63874055890 ",.02)
  1. ;;63874055890
  1. ;;9002226.02101,"1005,63874058110 ",.01)
  1. ;;63874058110
  1. ;;9002226.02101,"1005,63874058110 ",.02)
  1. ;;63874058110
  1. ;;9002226.02101,"1005,63874058130 ",.01)
  1. ;;63874058130
  1. ;;9002226.02101,"1005,63874058130 ",.02)
  1. ;;63874058130
  1. ;;9002226.02101,"1005,63874058190 ",.01)
  1. ;;63874058190
  1. ;;9002226.02101,"1005,63874058190 ",.02)
  1. ;;63874058190
  1. ;;9002226.02101,"1005,63874064710 ",.01)
  1. ;;63874064710
  1. ;;9002226.02101,"1005,63874064710 ",.02)
  1. ;;63874064710
  1. ;;9002226.02101,"1005,63874064714 ",.01)
  1. ;;63874064714
  1. ;;9002226.02101,"1005,63874064714 ",.02)
  1. ;;63874064714
  1. ;;9002226.02101,"1005,63874064730 ",.01)
  1. ;;63874064730
  1. ;;9002226.02101,"1005,63874064730 ",.02)
  1. ;;63874064730
  1. ;;9002226.02101,"1005,63874065501 ",.01)
  1. ;;63874065501
  1. ;;9002226.02101,"1005,63874065501 ",.02)
  1. ;;63874065501
  1. ;;9002226.02101,"1005,63874065510 ",.01)
  1. ;;63874065510
  1. ;;9002226.02101,"1005,63874065510 ",.02)
  1. ;;63874065510
  1. ;;9002226.02101,"1005,63874065520 ",.01)
  1. ;;63874065520
  1. ;;9002226.02101,"1005,63874065520 ",.02)
  1. ;;63874065520
  1. ;;9002226.02101,"1005,63874065530 ",.01)
  1. ;;63874065530
  1. ;;9002226.02101,"1005,63874065530 ",.02)
  1. ;;63874065530
  1. ;;9002226.02101,"1005,63874065560 ",.01)
  1. ;;63874065560
  1. ;;9002226.02101,"1005,63874065560 ",.02)
  1. ;;63874065560
  1. ;;9002226.02101,"1005,63874098701 ",.01)
  1. ;;63874098701
  1. ;;9002226.02101,"1005,63874098701 ",.02)
  1. ;;63874098701
  1. ;;9002226.02101,"1005,63874098710 ",.01)
  1. ;;63874098710
  1. ;;9002226.02101,"1005,63874098710 ",.02)
  1. ;;63874098710
  1. ;;9002226.02101,"1005,63874098714 ",.01)
  1. ;;63874098714
  1. ;;9002226.02101,"1005,63874098714 ",.02)
  1. ;;63874098714
  1. ;;9002226.02101,"1005,63874098720 ",.01)
  1. ;;63874098720
  1. ;;9002226.02101,"1005,63874098720 ",.02)
  1. ;;63874098720
  1. ;;9002226.02101,"1005,63874098730 ",.01)
  1. ;;63874098730
  1. ;;9002226.02101,"1005,63874098730 ",.02)
  1. ;;63874098730
  1. ;;9002226.02101,"1005,63874098760 ",.01)
  1. ;;63874098760
  1. ;;9002226.02101,"1005,63874098760 ",.02)
  1. ;;63874098760
  1. ;;9002226.02101,"1005,63874111409 ",.01)
  1. ;;63874111409
  1. ;;9002226.02101,"1005,63874111409 ",.02)
  1. ;;63874111409
  1. ;;9002226.02101,"1005,64455013001 ",.01)
  1. ;;64455013001
  1. ;;9002226.02101,"1005,64455013001 ",.02)
  1. ;;64455013001
  1. ;;9002226.02101,"1005,64455013101 ",.01)
  1. ;;64455013101
  1. ;;9002226.02101,"1005,64455013101 ",.02)
  1. ;;64455013101
  1. ;;9002226.02101,"1005,64455013107 ",.01)
  1. ;;64455013107
  1. ;;9002226.02101,"1005,64455013107 ",.02)
  1. ;;64455013107
  1. ;;9002226.02101,"1005,64455013201 ",.01)
  1. ;;64455013201
  1. ;;9002226.02101,"1005,64455013201 ",.02)
  1. ;;64455013201
  1. ;;9002226.02101,"1005,64455013207 ",.01)
  1. ;;64455013207
  1. ;;9002226.02101,"1005,64455013207 ",.02)
  1. ;;64455013207
  1. ;;9002226.02101,"1005,64455014010 ",.01)
  1. ;;64455014010
  1. ;;9002226.02101,"1005,64455014010 ",.02)
  1. ;;64455014010
  1. ;;9002226.02101,"1005,64455014011 ",.01)
  1. ;;64455014011
  1. ;;9002226.02101,"1005,64455014011 ",.02)
  1. ;;64455014011
  1. ;;9002226.02101,"1005,64455014030 ",.01)
  1. ;;64455014030
  1. ;;9002226.02101,"1005,64455014030 ",.02)
  1. ;;64455014030
  1. ;;9002226.02101,"1005,64455014090 ",.01)
  1. ;;64455014090
  1. ;;9002226.02101,"1005,64455014090 ",.02)
  1. ;;64455014090
  1. ;;9002226.02101,"1005,64455014110 ",.01)
  1. ;;64455014110
  1. ;;9002226.02101,"1005,64455014110 ",.02)
  1. ;;64455014110
  1. ;;9002226.02101,"1005,64455014111 ",.01)
  1. ;;64455014111
  1. ;;9002226.02101,"1005,64455014111 ",.02)
  1. ;;64455014111
  1. ;;9002226.02101,"1005,64455014130 ",.01)
  1. ;;64455014130
  1. ;;9002226.02101,"1005,64455014130 ",.02)
  1. ;;64455014130
  1. ;;9002226.02101,"1005,64455014190 ",.01)
  1. ;;64455014190
  1. ;;9002226.02101,"1005,64455014190 ",.02)
  1. ;;64455014190
  1. ;;9002226.02101,"1005,64455014210 ",.01)
  1. ;;64455014210
  1. ;;9002226.02101,"1005,64455014210 ",.02)
  1. ;;64455014210
  1. ;;9002226.02101,"1005,64455014211 ",.01)
  1. ;;64455014211
  1. ;;9002226.02101,"1005,64455014211 ",.02)
  1. ;;64455014211
  1. ;;9002226.02101,"1005,64455014230 ",.01)
  1. ;;64455014230
  1. ;;9002226.02101,"1005,64455014230 ",.02)
  1. ;;64455014230
  1. ;;9002226.02101,"1005,64455014290 ",.01)
  1. ;;64455014290
  1. ;;9002226.02101,"1005,64455014290 ",.02)
  1. ;;64455014290
  1. ;;9002226.02101,"1005,64455014310 ",.01)
  1. ;;64455014310
  1. ;;9002226.02101,"1005,64455014310 ",.02)
  1. ;;64455014310
  1. ;;9002226.02101,"1005,64455014311 ",.01)
  1. ;;64455014311
  1. ;;9002226.02101,"1005,64455014311 ",.02)
  1. ;;64455014311