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