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

BGPM5AKB.m

Go to the documentation of this file.
BGPM5AKB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"889,59564012625 ",.01)
 ;;59564012625
 ;;9002226.02101,"889,59564012625 ",.02)
 ;;59564012625
 ;;9002226.02101,"889,59762125801 ",.01)
 ;;59762125801
 ;;9002226.02101,"889,59762125801 ",.02)
 ;;59762125801
 ;;9002226.02101,"889,59762125802 ",.01)
 ;;59762125802
 ;;9002226.02101,"889,59762125802 ",.02)
 ;;59762125802
 ;;9002226.02101,"889,59762126101 ",.01)
 ;;59762126101
 ;;9002226.02101,"889,59762126101 ",.02)
 ;;59762126101
 ;;9002226.02101,"889,59762126102 ",.01)
 ;;59762126102
 ;;9002226.02101,"889,59762126102 ",.02)
 ;;59762126102
 ;;9002226.02101,"889,59762130001 ",.01)
 ;;59762130001
 ;;9002226.02101,"889,59762130001 ",.02)
 ;;59762130001
 ;;9002226.02101,"889,59762130003 ",.01)
 ;;59762130003
 ;;9002226.02101,"889,59762130003 ",.02)
 ;;59762130003
 ;;9002226.02101,"889,59762130101 ",.01)
 ;;59762130101
 ;;9002226.02101,"889,59762130101 ",.02)
 ;;59762130101
 ;;9002226.02101,"889,59762130103 ",.01)
 ;;59762130103
 ;;9002226.02101,"889,59762130103 ",.02)
 ;;59762130103
 ;;9002226.02101,"889,59762130201 ",.01)
 ;;59762130201
 ;;9002226.02101,"889,59762130201 ",.02)
 ;;59762130201
 ;;9002226.02101,"889,59762130203 ",.01)
 ;;59762130203
 ;;9002226.02101,"889,59762130203 ",.02)
 ;;59762130203
 ;;9002226.02101,"889,59772246101 ",.01)
 ;;59772246101
 ;;9002226.02101,"889,59772246101 ",.02)
 ;;59772246101
 ;;9002226.02101,"889,59772246102 ",.01)
 ;;59772246102
 ;;9002226.02101,"889,59772246102 ",.02)
 ;;59772246102
 ;;9002226.02101,"889,59772246201 ",.01)
 ;;59772246201
 ;;9002226.02101,"889,59772246201 ",.02)
 ;;59772246201
 ;;9002226.02101,"889,59772246202 ",.01)
 ;;59772246202
 ;;9002226.02101,"889,59772246202 ",.02)
 ;;59772246202
 ;;9002226.02101,"889,59772246203 ",.01)
 ;;59772246203
 ;;9002226.02101,"889,59772246203 ",.02)
 ;;59772246203
 ;;9002226.02101,"889,59772246301 ",.01)
 ;;59772246301
 ;;9002226.02101,"889,59772246301 ",.02)
 ;;59772246301
 ;;9002226.02101,"889,59772246302 ",.01)
 ;;59772246302
 ;;9002226.02101,"889,59772246302 ",.02)
 ;;59772246302
 ;;9002226.02101,"889,59772246303 ",.01)
 ;;59772246303
 ;;9002226.02101,"889,59772246303 ",.02)
 ;;59772246303
 ;;9002226.02101,"889,59772246401 ",.01)
 ;;59772246401
 ;;9002226.02101,"889,59772246401 ",.02)
 ;;59772246401
 ;;9002226.02101,"889,59772246403 ",.01)
 ;;59772246403
 ;;9002226.02101,"889,59772246403 ",.02)
 ;;59772246403
 ;;9002226.02101,"889,59772246501 ",.01)
 ;;59772246501
 ;;9002226.02101,"889,59772246501 ",.02)
 ;;59772246501
 ;;9002226.02101,"889,59772259201 ",.01)
 ;;59772259201
 ;;9002226.02101,"889,59772259201 ",.02)
 ;;59772259201
 ;;9002226.02101,"889,59772259301 ",.01)
 ;;59772259301
 ;;9002226.02101,"889,59772259301 ",.02)
 ;;59772259301
 ;;9002226.02101,"889,59772369202 ",.01)
 ;;59772369202
 ;;9002226.02101,"889,59772369202 ",.02)
 ;;59772369202
 ;;9002226.02101,"889,59772369205 ",.01)
 ;;59772369205
 ;;9002226.02101,"889,59772369205 ",.02)
 ;;59772369205
 ;;9002226.02101,"889,59772369302 ",.01)
 ;;59772369302
 ;;9002226.02101,"889,59772369302 ",.02)
 ;;59772369302
 ;;9002226.02101,"889,59772369305 ",.01)
 ;;59772369305
 ;;9002226.02101,"889,59772369305 ",.02)
 ;;59772369305
 ;;9002226.02101,"889,60346052306 ",.01)
 ;;60346052306
 ;;9002226.02101,"889,60346052306 ",.02)
 ;;60346052306
 ;;9002226.02101,"889,60429002530 ",.01)
 ;;60429002530
 ;;9002226.02101,"889,60429002530 ",.02)
 ;;60429002530
 ;;9002226.02101,"889,60429002590 ",.01)
 ;;60429002590
 ;;9002226.02101,"889,60429002590 ",.02)
 ;;60429002590
 ;;9002226.02101,"889,60429002630 ",.01)
 ;;60429002630
 ;;9002226.02101,"889,60429002630 ",.02)
 ;;60429002630
 ;;9002226.02101,"889,60429012630 ",.01)
 ;;60429012630
 ;;9002226.02101,"889,60429012630 ",.02)
 ;;60429012630
 ;;9002226.02101,"889,60429012660 ",.01)
 ;;60429012660
 ;;9002226.02101,"889,60429012660 ",.02)
 ;;60429012660
 ;;9002226.02101,"889,60429012730 ",.01)
 ;;60429012730
 ;;9002226.02101,"889,60429012730 ",.02)
 ;;60429012730
 ;;9002226.02101,"889,60429012760 ",.01)
 ;;60429012760
 ;;9002226.02101,"889,60429012760 ",.02)
 ;;60429012760
 ;;9002226.02101,"889,60429021130 ",.01)
 ;;60429021130
 ;;9002226.02101,"889,60429021130 ",.02)
 ;;60429021130
 ;;9002226.02101,"889,60429021190 ",.01)
 ;;60429021190
 ;;9002226.02101,"889,60429021190 ",.02)
 ;;60429021190
 ;;9002226.02101,"889,60429075301 ",.01)
 ;;60429075301
 ;;9002226.02101,"889,60429075301 ",.02)
 ;;60429075301
 ;;9002226.02101,"889,60429075401 ",.01)
 ;;60429075401
 ;;9002226.02101,"889,60429075401 ",.02)
 ;;60429075401
 ;;9002226.02101,"889,60440010103 ",.01)
 ;;60440010103
 ;;9002226.02101,"889,60440010103 ",.02)
 ;;60440010103
 ;;9002226.02101,"889,60440010109 ",.01)
 ;;60440010109
 ;;9002226.02101,"889,60440010109 ",.02)
 ;;60440010109
 ;;9002226.02101,"889,60440010503 ",.01)
 ;;60440010503
 ;;9002226.02101,"889,60440010503 ",.02)
 ;;60440010503
 ;;9002226.02101,"889,60440010509 ",.01)
 ;;60440010509
 ;;9002226.02101,"889,60440010509 ",.02)
 ;;60440010509
 ;;9002226.02101,"889,60440011509 ",.01)
 ;;60440011509
 ;;9002226.02101,"889,60440011509 ",.02)
 ;;60440011509
 ;;9002226.02101,"889,60440011709 ",.01)
 ;;60440011709
 ;;9002226.02101,"889,60440011709 ",.02)
 ;;60440011709
 ;;9002226.02101,"889,60491015601 ",.01)
 ;;60491015601
 ;;9002226.02101,"889,60491015601 ",.02)
 ;;60491015601
 ;;9002226.02101,"889,60491015660 ",.01)
 ;;60491015660
 ;;9002226.02101,"889,60491015660 ",.02)
 ;;60491015660
 ;;9002226.02101,"889,60491015668 ",.01)
 ;;60491015668
 ;;9002226.02101,"889,60491015668 ",.02)
 ;;60491015668
 ;;9002226.02101,"889,60491015680 ",.01)
 ;;60491015680
 ;;9002226.02101,"889,60491015680 ",.02)
 ;;60491015680
 ;;9002226.02101,"889,60491015710 ",.01)
 ;;60491015710
 ;;9002226.02101,"889,60491015710 ",.02)
 ;;60491015710
 ;;9002226.02101,"889,60491015760 ",.01)
 ;;60491015760
 ;;9002226.02101,"889,60491015760 ",.02)
 ;;60491015760
 ;;9002226.02101,"889,60491015768 ",.01)
 ;;60491015768
 ;;9002226.02101,"889,60491015768 ",.02)
 ;;60491015768
 ;;9002226.02101,"889,60491031501 ",.01)
 ;;60491031501
 ;;9002226.02101,"889,60491031501 ",.02)
 ;;60491031501
 ;;9002226.02101,"889,60491031560 ",.01)
 ;;60491031560
 ;;9002226.02101,"889,60491031560 ",.02)
 ;;60491031560
 ;;9002226.02101,"889,60491031568 ",.01)
 ;;60491031568
 ;;9002226.02101,"889,60491031568 ",.02)
 ;;60491031568
 ;;9002226.02101,"889,60491031601 ",.01)
 ;;60491031601
 ;;9002226.02101,"889,60491031601 ",.02)
 ;;60491031601
 ;;9002226.02101,"889,60491031660 ",.01)
 ;;60491031660
 ;;9002226.02101,"889,60491031660 ",.02)
 ;;60491031660
 ;;9002226.02101,"889,60491031668 ",.01)
 ;;60491031668
 ;;9002226.02101,"889,60491031668 ",.02)
 ;;60491031668
 ;;9002226.02101,"889,60491031701 ",.01)
 ;;60491031701
 ;;9002226.02101,"889,60491031701 ",.02)
 ;;60491031701
 ;;9002226.02101,"889,60491031760 ",.01)
 ;;60491031760
 ;;9002226.02101,"889,60491031760 ",.02)
 ;;60491031760
 ;;9002226.02101,"889,60491031768 ",.01)
 ;;60491031768
 ;;9002226.02101,"889,60491031768 ",.02)
 ;;60491031768
 ;;9002226.02101,"889,60491031901 ",.01)
 ;;60491031901
 ;;9002226.02101,"889,60491031901 ",.02)
 ;;60491031901
 ;;9002226.02101,"889,60491031960 ",.01)
 ;;60491031960
 ;;9002226.02101,"889,60491031960 ",.02)
 ;;60491031960
 ;;9002226.02101,"889,60491031968 ",.01)
 ;;60491031968
 ;;9002226.02101,"889,60491031968 ",.02)
 ;;60491031968
 ;;9002226.02101,"889,60491032101 ",.01)
 ;;60491032101
 ;;9002226.02101,"889,60491032101 ",.02)
 ;;60491032101
 ;;9002226.02101,"889,60491032130 ",.01)
 ;;60491032130
 ;;9002226.02101,"889,60491032130 ",.02)
 ;;60491032130
 ;;9002226.02101,"889,60491032134 ",.01)
 ;;60491032134
 ;;9002226.02101,"889,60491032134 ",.02)
 ;;60491032134
 ;;9002226.02101,"889,60491032201 ",.01)
 ;;60491032201
 ;;9002226.02101,"889,60491032201 ",.02)
 ;;60491032201
 ;;9002226.02101,"889,60491032230 ",.01)
 ;;60491032230
 ;;9002226.02101,"889,60491032230 ",.02)
 ;;60491032230
 ;;9002226.02101,"889,60491032234 ",.01)
 ;;60491032234
 ;;9002226.02101,"889,60491032234 ",.02)
 ;;60491032234
 ;;9002226.02101,"889,60491032330 ",.01)
 ;;60491032330
 ;;9002226.02101,"889,60491032330 ",.02)
 ;;60491032330
 ;;9002226.02101,"889,60491032334 ",.01)
 ;;60491032334
 ;;9002226.02101,"889,60491032334 ",.02)
 ;;60491032334
 ;;9002226.02101,"889,60491032730 ",.01)
 ;;60491032730
 ;;9002226.02101,"889,60491032730 ",.02)
 ;;60491032730
 ;;9002226.02101,"889,60491032734 ",.01)
 ;;60491032734
 ;;9002226.02101,"889,60491032734 ",.02)
 ;;60491032734
 ;;9002226.02101,"889,60491032830 ",.01)
 ;;60491032830
 ;;9002226.02101,"889,60491032830 ",.02)
 ;;60491032830
 ;;9002226.02101,"889,60491032834 ",.01)
 ;;60491032834
 ;;9002226.02101,"889,60491032834 ",.02)
 ;;60491032834
 ;;9002226.02101,"889,60491032930 ",.01)
 ;;60491032930
 ;;9002226.02101,"889,60491032930 ",.02)
 ;;60491032930
 ;;9002226.02101,"889,60491032934 ",.01)
 ;;60491032934
 ;;9002226.02101,"889,60491032934 ",.02)
 ;;60491032934
 ;;9002226.02101,"889,60491037130 ",.01)
 ;;60491037130
 ;;9002226.02101,"889,60491037130 ",.02)
 ;;60491037130
 ;;9002226.02101,"889,60491037134 ",.01)
 ;;60491037134
 ;;9002226.02101,"889,60491037134 ",.02)
 ;;60491037134
 ;;9002226.02101,"889,60491062701 ",.01)
 ;;60491062701
 ;;9002226.02101,"889,60491062701 ",.02)
 ;;60491062701
 ;;9002226.02101,"889,60491062730 ",.01)
 ;;60491062730
 ;;9002226.02101,"889,60491062730 ",.02)
 ;;60491062730
 ;;9002226.02101,"889,60491062734 ",.01)
 ;;60491062734
 ;;9002226.02101,"889,60491062734 ",.02)
 ;;60491062734
 ;;9002226.02101,"889,60491062830 ",.01)
 ;;60491062830
 ;;9002226.02101,"889,60491062830 ",.02)
 ;;60491062830
 ;;9002226.02101,"889,60491062834 ",.01)
 ;;60491062834
 ;;9002226.02101,"889,60491062834 ",.02)
 ;;60491062834
 ;;9002226.02101,"889,60491062930 ",.01)
 ;;60491062930
 ;;9002226.02101,"889,60491062930 ",.02)
 ;;60491062930
 ;;9002226.02101,"889,60491062934 ",.01)
 ;;60491062934
 ;;9002226.02101,"889,60491062934 ",.02)
 ;;60491062934
 ;;9002226.02101,"889,60491064801 ",.01)
 ;;60491064801
 ;;9002226.02101,"889,60491064801 ",.02)
 ;;60491064801
 ;;9002226.02101,"889,60491064860 ",.01)
 ;;60491064860
 ;;9002226.02101,"889,60491064860 ",.02)
 ;;60491064860
 ;;9002226.02101,"889,60491064868 ",.01)
 ;;60491064868
 ;;9002226.02101,"889,60491064868 ",.02)
 ;;60491064868
 ;;9002226.02101,"889,60491064901 ",.01)
 ;;60491064901
 ;;9002226.02101,"889,60491064901 ",.02)
 ;;60491064901
 ;;9002226.02101,"889,60491064960 ",.01)
 ;;60491064960
 ;;9002226.02101,"889,60491064960 ",.02)
 ;;60491064960
 ;;9002226.02101,"889,60491064968 ",.01)
 ;;60491064968
 ;;9002226.02101,"889,60491064968 ",.02)
 ;;60491064968
 ;;9002226.02101,"889,60491069830 ",.01)
 ;;60491069830
 ;;9002226.02101,"889,60491069830 ",.02)
 ;;60491069830
 ;;9002226.02101,"889,60491069834 ",.01)
 ;;60491069834
 ;;9002226.02101,"889,60491069834 ",.02)
 ;;60491069834
 ;;9002226.02101,"889,60491072030 ",.01)
 ;;60491072030
 ;;9002226.02101,"889,60491072030 ",.02)
 ;;60491072030
 ;;9002226.02101,"889,60491072130 ",.01)
 ;;60491072130
 ;;9002226.02101,"889,60491072130 ",.02)
 ;;60491072130
 ;;9002226.02101,"889,60491072134 ",.01)
 ;;60491072134
 ;;9002226.02101,"889,60491072134 ",.02)
 ;;60491072134
 ;;9002226.02101,"889,60505071700 ",.01)
 ;;60505071700
 ;;9002226.02101,"889,60505071700 ",.02)
 ;;60505071700
 ;;9002226.02101,"889,60505071701 ",.01)
 ;;60505071701
 ;;9002226.02101,"889,60505071701 ",.02)
 ;;60505071701
 ;;9002226.02101,"889,60505071702 ",.01)
 ;;60505071702
 ;;9002226.02101,"889,60505071702 ",.02)
 ;;60505071702