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

BGPM5BER.m

Go to the documentation of this file.
  1. BGPM5BER ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,00172224570 ",.01)
  1. ;;00172224570
  1. ;;9002226.02101,"1084,00172224570 ",.02)
  1. ;;00172224570
  1. ;;9002226.02101,"1084,00172224580 ",.01)
  1. ;;00172224580
  1. ;;9002226.02101,"1084,00172224580 ",.02)
  1. ;;00172224580
  1. ;;9002226.02101,"1084,00172298060 ",.01)
  1. ;;00172298060
  1. ;;9002226.02101,"1084,00172298060 ",.02)
  1. ;;00172298060
  1. ;;9002226.02101,"1084,00172298065 ",.01)
  1. ;;00172298065
  1. ;;9002226.02101,"1084,00172298065 ",.02)
  1. ;;00172298065
  1. ;;9002226.02101,"1084,00172298070 ",.01)
  1. ;;00172298070
  1. ;;9002226.02101,"1084,00172298070 ",.02)
  1. ;;00172298070
  1. ;;9002226.02101,"1084,00172364900 ",.01)
  1. ;;00172364900
  1. ;;9002226.02101,"1084,00172364900 ",.02)
  1. ;;00172364900
  1. ;;9002226.02101,"1084,00172364910 ",.01)
  1. ;;00172364910
  1. ;;9002226.02101,"1084,00172364910 ",.02)
  1. ;;00172364910
  1. ;;9002226.02101,"1084,00172364960 ",.01)
  1. ;;00172364960
  1. ;;9002226.02101,"1084,00172364960 ",.02)
  1. ;;00172364960
  1. ;;9002226.02101,"1084,00172364970 ",.01)
  1. ;;00172364970
  1. ;;9002226.02101,"1084,00172364970 ",.02)
  1. ;;00172364970
  1. ;;9002226.02101,"1084,00172365000 ",.01)
  1. ;;00172365000
  1. ;;9002226.02101,"1084,00172365000 ",.02)
  1. ;;00172365000
  1. ;;9002226.02101,"1084,00172365010 ",.01)
  1. ;;00172365010
  1. ;;9002226.02101,"1084,00172365010 ",.02)
  1. ;;00172365010
  1. ;;9002226.02101,"1084,00172365060 ",.01)
  1. ;;00172365060
  1. ;;9002226.02101,"1084,00172365060 ",.02)
  1. ;;00172365060
  1. ;;9002226.02101,"1084,00172365070 ",.01)
  1. ;;00172365070
  1. ;;9002226.02101,"1084,00172365070 ",.02)
  1. ;;00172365070
  1. ;;9002226.02101,"1084,00172433000 ",.01)
  1. ;;00172433000
  1. ;;9002226.02101,"1084,00172433000 ",.02)
  1. ;;00172433000
  1. ;;9002226.02101,"1084,00172433010 ",.01)
  1. ;;00172433010
  1. ;;9002226.02101,"1084,00172433010 ",.02)
  1. ;;00172433010
  1. ;;9002226.02101,"1084,00172433060 ",.01)
  1. ;;00172433060
  1. ;;9002226.02101,"1084,00172433060 ",.02)
  1. ;;00172433060
  1. ;;9002226.02101,"1084,00172433070 ",.01)
  1. ;;00172433070
  1. ;;9002226.02101,"1084,00172433070 ",.02)
  1. ;;00172433070
  1. ;;9002226.02101,"1084,00172433080 ",.01)
  1. ;;00172433080
  1. ;;9002226.02101,"1084,00172433080 ",.02)
  1. ;;00172433080
  1. ;;9002226.02101,"1084,00172433100 ",.01)
  1. ;;00172433100
  1. ;;9002226.02101,"1084,00172433100 ",.02)
  1. ;;00172433100
  1. ;;9002226.02101,"1084,00172433110 ",.01)
  1. ;;00172433110
  1. ;;9002226.02101,"1084,00172433110 ",.02)
  1. ;;00172433110
  1. ;;9002226.02101,"1084,00172433160 ",.01)
  1. ;;00172433160
  1. ;;9002226.02101,"1084,00172433160 ",.02)
  1. ;;00172433160
  1. ;;9002226.02101,"1084,00172433170 ",.01)
  1. ;;00172433170
  1. ;;9002226.02101,"1084,00172433170 ",.02)
  1. ;;00172433170
  1. ;;9002226.02101,"1084,00172433180 ",.01)
  1. ;;00172433180
  1. ;;9002226.02101,"1084,00172433180 ",.02)
  1. ;;00172433180
  1. ;;9002226.02101,"1084,00172433200 ",.01)
  1. ;;00172433200
  1. ;;9002226.02101,"1084,00172433200 ",.02)
  1. ;;00172433200
  1. ;;9002226.02101,"1084,00172443210 ",.01)
  1. ;;00172443210
  1. ;;9002226.02101,"1084,00172443210 ",.02)
  1. ;;00172443210
  1. ;;9002226.02101,"1084,00172443260 ",.01)
  1. ;;00172443260
  1. ;;9002226.02101,"1084,00172443260 ",.02)
  1. ;;00172443260
  1. ;;9002226.02101,"1084,00172443270 ",.01)
  1. ;;00172443270
  1. ;;9002226.02101,"1084,00172443270 ",.02)
  1. ;;00172443270
  1. ;;9002226.02101,"1084,00172443280 ",.01)
  1. ;;00172443280
  1. ;;9002226.02101,"1084,00172443280 ",.02)
  1. ;;00172443280
  1. ;;9002226.02101,"1084,00172443500 ",.01)
  1. ;;00172443500
  1. ;;9002226.02101,"1084,00172443500 ",.02)
  1. ;;00172443500
  1. ;;9002226.02101,"1084,00172443510 ",.01)
  1. ;;00172443510
  1. ;;9002226.02101,"1084,00172443510 ",.02)
  1. ;;00172443510
  1. ;;9002226.02101,"1084,00172443560 ",.01)
  1. ;;00172443560
  1. ;;9002226.02101,"1084,00172443560 ",.02)
  1. ;;00172443560
  1. ;;9002226.02101,"1084,00172443570 ",.01)
  1. ;;00172443570
  1. ;;9002226.02101,"1084,00172443570 ",.02)
  1. ;;00172443570
  1. ;;9002226.02101,"1084,00172443580 ",.01)
  1. ;;00172443580
  1. ;;9002226.02101,"1084,00172443580 ",.02)
  1. ;;00172443580
  1. ;;9002226.02101,"1084,00172571060 ",.01)
  1. ;;00172571060
  1. ;;9002226.02101,"1084,00172571060 ",.02)
  1. ;;00172571060
  1. ;;9002226.02101,"1084,00179019801 ",.01)
  1. ;;00179019801
  1. ;;9002226.02101,"1084,00179019801 ",.02)
  1. ;;00179019801
  1. ;;9002226.02101,"1084,00179019802 ",.01)
  1. ;;00179019802
  1. ;;9002226.02101,"1084,00179019802 ",.02)
  1. ;;00179019802
  1. ;;9002226.02101,"1084,00179120502 ",.01)
  1. ;;00179120502
  1. ;;9002226.02101,"1084,00179120502 ",.02)
  1. ;;00179120502
  1. ;;9002226.02101,"1084,00179120512 ",.01)
  1. ;;00179120512
  1. ;;9002226.02101,"1084,00179120512 ",.02)
  1. ;;00179120512
  1. ;;9002226.02101,"1084,00179120524 ",.01)
  1. ;;00179120524
  1. ;;9002226.02101,"1084,00179120524 ",.02)
  1. ;;00179120524
  1. ;;9002226.02101,"1084,00179120530 ",.01)
  1. ;;00179120530
  1. ;;9002226.02101,"1084,00179120530 ",.02)
  1. ;;00179120530
  1. ;;9002226.02101,"1084,00179120536 ",.01)
  1. ;;00179120536
  1. ;;9002226.02101,"1084,00179120536 ",.02)
  1. ;;00179120536
  1. ;;9002226.02101,"1084,00179120560 ",.01)
  1. ;;00179120560
  1. ;;9002226.02101,"1084,00179120560 ",.02)
  1. ;;00179120560
  1. ;;9002226.02101,"1084,00179120590 ",.01)
  1. ;;00179120590
  1. ;;9002226.02101,"1084,00179120590 ",.02)
  1. ;;00179120590
  1. ;;9002226.02101,"1084,00179120701 ",.01)
  1. ;;00179120701
  1. ;;9002226.02101,"1084,00179120701 ",.02)
  1. ;;00179120701
  1. ;;9002226.02101,"1084,00179120801 ",.01)
  1. ;;00179120801
  1. ;;9002226.02101,"1084,00179120801 ",.02)
  1. ;;00179120801
  1. ;;9002226.02101,"1084,00179136830 ",.01)
  1. ;;00179136830
  1. ;;9002226.02101,"1084,00179136830 ",.02)
  1. ;;00179136830
  1. ;;9002226.02101,"1084,00179136850 ",.01)
  1. ;;00179136850
  1. ;;9002226.02101,"1084,00179136850 ",.02)
  1. ;;00179136850
  1. ;;9002226.02101,"1084,00179136860 ",.01)
  1. ;;00179136860
  1. ;;9002226.02101,"1084,00179136860 ",.02)
  1. ;;00179136860
  1. ;;9002226.02101,"1084,00179136870 ",.01)
  1. ;;00179136870
  1. ;;9002226.02101,"1084,00179136870 ",.02)
  1. ;;00179136870
  1. ;;9002226.02101,"1084,00179136890 ",.01)
  1. ;;00179136890
  1. ;;9002226.02101,"1084,00179136890 ",.02)
  1. ;;00179136890
  1. ;;9002226.02101,"1084,00179139870 ",.01)
  1. ;;00179139870
  1. ;;9002226.02101,"1084,00179139870 ",.02)
  1. ;;00179139870
  1. ;;9002226.02101,"1084,00179141601 ",.01)
  1. ;;00179141601
  1. ;;9002226.02101,"1084,00179141601 ",.02)
  1. ;;00179141601
  1. ;;9002226.02101,"1084,00179141602 ",.01)
  1. ;;00179141602
  1. ;;9002226.02101,"1084,00179141602 ",.02)
  1. ;;00179141602
  1. ;;9002226.02101,"1084,00179141612 ",.01)
  1. ;;00179141612
  1. ;;9002226.02101,"1084,00179141612 ",.02)
  1. ;;00179141612
  1. ;;9002226.02101,"1084,00179141630 ",.01)
  1. ;;00179141630
  1. ;;9002226.02101,"1084,00179141630 ",.02)
  1. ;;00179141630
  1. ;;9002226.02101,"1084,00179141660 ",.01)
  1. ;;00179141660
  1. ;;9002226.02101,"1084,00179141660 ",.02)
  1. ;;00179141660
  1. ;;9002226.02101,"1084,00179143601 ",.01)
  1. ;;00179143601
  1. ;;9002226.02101,"1084,00179143601 ",.02)
  1. ;;00179143601
  1. ;;9002226.02101,"1084,00179143612 ",.01)
  1. ;;00179143612
  1. ;;9002226.02101,"1084,00179143612 ",.02)
  1. ;;00179143612
  1. ;;9002226.02101,"1084,00179143630 ",.01)
  1. ;;00179143630
  1. ;;9002226.02101,"1084,00179143630 ",.02)
  1. ;;00179143630
  1. ;;9002226.02101,"1084,00179143660 ",.01)
  1. ;;00179143660
  1. ;;9002226.02101,"1084,00179143660 ",.02)
  1. ;;00179143660
  1. ;;9002226.02101,"1084,00179147501 ",.01)
  1. ;;00179147501
  1. ;;9002226.02101,"1084,00179147501 ",.02)
  1. ;;00179147501
  1. ;;9002226.02101,"1084,00179147512 ",.01)
  1. ;;00179147512
  1. ;;9002226.02101,"1084,00179147512 ",.02)
  1. ;;00179147512
  1. ;;9002226.02101,"1084,00179147530 ",.01)
  1. ;;00179147530
  1. ;;9002226.02101,"1084,00179147530 ",.02)
  1. ;;00179147530
  1. ;;9002226.02101,"1084,00179147550 ",.01)
  1. ;;00179147550
  1. ;;9002226.02101,"1084,00179147550 ",.02)
  1. ;;00179147550
  1. ;;9002226.02101,"1084,00179147560 ",.01)
  1. ;;00179147560
  1. ;;9002226.02101,"1084,00179147560 ",.02)
  1. ;;00179147560
  1. ;;9002226.02101,"1084,00179151330 ",.01)
  1. ;;00179151330
  1. ;;9002226.02101,"1084,00179151330 ",.02)
  1. ;;00179151330
  1. ;;9002226.02101,"1084,00179151350 ",.01)
  1. ;;00179151350
  1. ;;9002226.02101,"1084,00179151350 ",.02)
  1. ;;00179151350
  1. ;;9002226.02101,"1084,00179151360 ",.01)
  1. ;;00179151360
  1. ;;9002226.02101,"1084,00179151360 ",.02)
  1. ;;00179151360
  1. ;;9002226.02101,"1084,00179151370 ",.01)
  1. ;;00179151370
  1. ;;9002226.02101,"1084,00179151370 ",.02)
  1. ;;00179151370
  1. ;;9002226.02101,"1084,00179151390 ",.01)
  1. ;;00179151390
  1. ;;9002226.02101,"1084,00179151390 ",.02)
  1. ;;00179151390
  1. ;;9002226.02101,"1084,00179152501 ",.01)
  1. ;;00179152501
  1. ;;9002226.02101,"1084,00179152501 ",.02)
  1. ;;00179152501
  1. ;;9002226.02101,"1084,00179152530 ",.01)
  1. ;;00179152530
  1. ;;9002226.02101,"1084,00179152530 ",.02)
  1. ;;00179152530
  1. ;;9002226.02101,"1084,00179152550 ",.01)
  1. ;;00179152550
  1. ;;9002226.02101,"1084,00179152550 ",.02)
  1. ;;00179152550
  1. ;;9002226.02101,"1084,00179152560 ",.01)
  1. ;;00179152560
  1. ;;9002226.02101,"1084,00179152560 ",.02)
  1. ;;00179152560
  1. ;;9002226.02101,"1084,00179152590 ",.01)
  1. ;;00179152590
  1. ;;9002226.02101,"1084,00179152590 ",.02)
  1. ;;00179152590
  1. ;;9002226.02101,"1084,00179152601 ",.01)
  1. ;;00179152601
  1. ;;9002226.02101,"1084,00179152601 ",.02)
  1. ;;00179152601
  1. ;;9002226.02101,"1084,00179152630 ",.01)
  1. ;;00179152630
  1. ;;9002226.02101,"1084,00179152630 ",.02)
  1. ;;00179152630
  1. ;;9002226.02101,"1084,00179152650 ",.01)
  1. ;;00179152650
  1. ;;9002226.02101,"1084,00179152650 ",.02)
  1. ;;00179152650
  1. ;;9002226.02101,"1084,00179152660 ",.01)
  1. ;;00179152660
  1. ;;9002226.02101,"1084,00179152660 ",.02)
  1. ;;00179152660
  1. ;;9002226.02101,"1084,00179152690 ",.01)
  1. ;;00179152690
  1. ;;9002226.02101,"1084,00179152690 ",.02)
  1. ;;00179152690
  1. ;;9002226.02101,"1084,00179178970 ",.01)
  1. ;;00179178970
  1. ;;9002226.02101,"1084,00179178970 ",.02)
  1. ;;00179178970
  1. ;;9002226.02101,"1084,00179178971 ",.01)
  1. ;;00179178971
  1. ;;9002226.02101,"1084,00179178971 ",.02)
  1. ;;00179178971
  1. ;;9002226.02101,"1084,00179178972 ",.01)
  1. ;;00179178972
  1. ;;9002226.02101,"1084,00179178972 ",.02)
  1. ;;00179178972
  1. ;;9002226.02101,"1084,00179184170 ",.01)
  1. ;;00179184170
  1. ;;9002226.02101,"1084,00179184170 ",.02)
  1. ;;00179184170
  1. ;;9002226.02101,"1084,00179184171 ",.01)
  1. ;;00179184171
  1. ;;9002226.02101,"1084,00179184171 ",.02)
  1. ;;00179184171
  1. ;;9002226.02101,"1084,00179184172 ",.01)
  1. ;;00179184172
  1. ;;9002226.02101,"1084,00179184172 ",.02)
  1. ;;00179184172
  1. ;;9002226.02101,"1084,00179197901 ",.01)
  1. ;;00179197901
  1. ;;9002226.02101,"1084,00179197901 ",.02)
  1. ;;00179197901
  1. ;;9002226.02101,"1084,00179197912 ",.01)
  1. ;;00179197912
  1. ;;9002226.02101,"1084,00179197912 ",.02)
  1. ;;00179197912
  1. ;;9002226.02101,"1084,00179197930 ",.01)
  1. ;;00179197930
  1. ;;9002226.02101,"1084,00179197930 ",.02)
  1. ;;00179197930
  1. ;;9002226.02101,"1084,00179197960 ",.01)
  1. ;;00179197960
  1. ;;9002226.02101,"1084,00179197960 ",.02)
  1. ;;00179197960
  1. ;;9002226.02101,"1084,00182199489 ",.01)
  1. ;;00182199489
  1. ;;9002226.02101,"1084,00182199489 ",.02)
  1. ;;00182199489
  1. ;;9002226.02101,"1084,00182199589 ",.01)
  1. ;;00182199589
  1. ;;9002226.02101,"1084,00182199589 ",.02)
  1. ;;00182199589
  1. ;;9002226.02101,"1084,00182264689 ",.01)
  1. ;;00182264689
  1. ;;9002226.02101,"1084,00182264689 ",.02)
  1. ;;00182264689
  1. ;;9002226.02101,"1084,00182264789 ",.01)
  1. ;;00182264789
  1. ;;9002226.02101,"1084,00182264789 ",.02)
  1. ;;00182264789
  1. ;;9002226.02101,"1084,00185021301 ",.01)
  1. ;;00185021301
  1. ;;9002226.02101,"1084,00185021301 ",.02)
  1. ;;00185021301
  1. ;;9002226.02101,"1084,00185021305 ",.01)
  1. ;;00185021305
  1. ;;9002226.02101,"1084,00185021305 ",.02)
  1. ;;00185021305
  1. ;;9002226.02101,"1084,00185021310 ",.01)
  1. ;;00185021310
  1. ;;9002226.02101,"1084,00185021310 ",.02)
  1. ;;00185021310
  1. ;;9002226.02101,"1084,00185021501 ",.01)
  1. ;;00185021501
  1. ;;9002226.02101,"1084,00185021501 ",.02)
  1. ;;00185021501
  1. ;;9002226.02101,"1084,00185021505 ",.01)
  1. ;;00185021505
  1. ;;9002226.02101,"1084,00185021505 ",.02)
  1. ;;00185021505
  1. ;;9002226.02101,"1084,00185022101 ",.01)
  1. ;;00185022101
  1. ;;9002226.02101,"1084,00185022101 ",.02)
  1. ;;00185022101
  1. ;;9002226.02101,"1084,00185022105 ",.01)
  1. ;;00185022105