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

BGPM5AL.m

Go to the documentation of this file.
BGPM5AL ;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,"885,54569033904 ",.02)
 ;;54569033904
 ;;9002226.02101,"885,54569423301 ",.01)
 ;;54569423301
 ;;9002226.02101,"885,54569423301 ",.02)
 ;;54569423301
 ;;9002226.02101,"885,54569470000 ",.01)
 ;;54569470000
 ;;9002226.02101,"885,54569470000 ",.02)
 ;;54569470000
 ;;9002226.02101,"885,54569470002 ",.01)
 ;;54569470002
 ;;9002226.02101,"885,54569470002 ",.02)
 ;;54569470002
 ;;9002226.02101,"885,54569565900 ",.01)
 ;;54569565900
 ;;9002226.02101,"885,54569565900 ",.02)
 ;;54569565900
 ;;9002226.02101,"885,54629080101 ",.01)
 ;;54629080101
 ;;9002226.02101,"885,54629080101 ",.02)
 ;;54629080101
 ;;9002226.02101,"885,54629080303 ",.01)
 ;;54629080303
 ;;9002226.02101,"885,54629080303 ",.02)
 ;;54629080303
 ;;9002226.02101,"885,54738011103 ",.01)
 ;;54738011103
 ;;9002226.02101,"885,54738011103 ",.02)
 ;;54738011103
 ;;9002226.02101,"885,54868103100 ",.01)
 ;;54868103100
 ;;9002226.02101,"885,54868103100 ",.02)
 ;;54868103100
 ;;9002226.02101,"885,54868103102 ",.01)
 ;;54868103102
 ;;9002226.02101,"885,54868103102 ",.02)
 ;;54868103102
 ;;9002226.02101,"885,54868107500 ",.01)
 ;;54868107500
 ;;9002226.02101,"885,54868107500 ",.02)
 ;;54868107500
 ;;9002226.02101,"885,54868107501 ",.01)
 ;;54868107501
 ;;9002226.02101,"885,54868107501 ",.02)
 ;;54868107501
 ;;9002226.02101,"885,54868107502 ",.01)
 ;;54868107502
 ;;9002226.02101,"885,54868107502 ",.02)
 ;;54868107502
 ;;9002226.02101,"885,54868107503 ",.01)
 ;;54868107503
 ;;9002226.02101,"885,54868107503 ",.02)
 ;;54868107503
 ;;9002226.02101,"885,54868107504 ",.01)
 ;;54868107504
 ;;9002226.02101,"885,54868107504 ",.02)
 ;;54868107504
 ;;9002226.02101,"885,54868119800 ",.01)
 ;;54868119800
 ;;9002226.02101,"885,54868119800 ",.02)
 ;;54868119800
 ;;9002226.02101,"885,54868119802 ",.01)
 ;;54868119802
 ;;9002226.02101,"885,54868119802 ",.02)
 ;;54868119802
 ;;9002226.02101,"885,54868141200 ",.01)
 ;;54868141200
 ;;9002226.02101,"885,54868141200 ",.02)
 ;;54868141200
 ;;9002226.02101,"885,54868199601 ",.01)
 ;;54868199601
 ;;9002226.02101,"885,54868199601 ",.02)
 ;;54868199601
 ;;9002226.02101,"885,54868240501 ",.01)
 ;;54868240501
 ;;9002226.02101,"885,54868240501 ",.02)
 ;;54868240501
 ;;9002226.02101,"885,54868240502 ",.01)
 ;;54868240502
 ;;9002226.02101,"885,54868240502 ",.02)
 ;;54868240502
 ;;9002226.02101,"885,54868240503 ",.01)
 ;;54868240503
 ;;9002226.02101,"885,54868240503 ",.02)
 ;;54868240503
 ;;9002226.02101,"885,54868244001 ",.01)
 ;;54868244001
 ;;9002226.02101,"885,54868244001 ",.02)
 ;;54868244001
 ;;9002226.02101,"885,54868407000 ",.01)
 ;;54868407000
 ;;9002226.02101,"885,54868407000 ",.02)
 ;;54868407000
 ;;9002226.02101,"885,54868407001 ",.01)
 ;;54868407001
 ;;9002226.02101,"885,54868407001 ",.02)
 ;;54868407001
 ;;9002226.02101,"885,54868407002 ",.01)
 ;;54868407002
 ;;9002226.02101,"885,54868407002 ",.02)
 ;;54868407002
 ;;9002226.02101,"885,54868409400 ",.01)
 ;;54868409400
 ;;9002226.02101,"885,54868409400 ",.02)
 ;;54868409400
 ;;9002226.02101,"885,54868453000 ",.01)
 ;;54868453000
 ;;9002226.02101,"885,54868453000 ",.02)
 ;;54868453000
 ;;9002226.02101,"885,54868495500 ",.01)
 ;;54868495500
 ;;9002226.02101,"885,54868495500 ",.02)
 ;;54868495500
 ;;9002226.02101,"885,54868514300 ",.01)
 ;;54868514300
 ;;9002226.02101,"885,54868514300 ",.02)
 ;;54868514300
 ;;9002226.02101,"885,55045120800 ",.01)
 ;;55045120800
 ;;9002226.02101,"885,55045120800 ",.02)
 ;;55045120800
 ;;9002226.02101,"885,55045120802 ",.01)
 ;;55045120802
 ;;9002226.02101,"885,55045120802 ",.02)
 ;;55045120802
 ;;9002226.02101,"885,55045120803 ",.01)
 ;;55045120803
 ;;9002226.02101,"885,55045120803 ",.02)
 ;;55045120803
 ;;9002226.02101,"885,55045120806 ",.01)
 ;;55045120806
 ;;9002226.02101,"885,55045120806 ",.02)
 ;;55045120806
 ;;9002226.02101,"885,55045120807 ",.01)
 ;;55045120807
 ;;9002226.02101,"885,55045120807 ",.02)
 ;;55045120807
 ;;9002226.02101,"885,55045120808 ",.01)
 ;;55045120808
 ;;9002226.02101,"885,55045120808 ",.02)
 ;;55045120808
 ;;9002226.02101,"885,55045120809 ",.01)
 ;;55045120809
 ;;9002226.02101,"885,55045120809 ",.02)
 ;;55045120809
 ;;9002226.02101,"885,55045310100 ",.01)
 ;;55045310100
 ;;9002226.02101,"885,55045310100 ",.02)
 ;;55045310100
 ;;9002226.02101,"885,55045312901 ",.01)
 ;;55045312901
 ;;9002226.02101,"885,55045312901 ",.02)
 ;;55045312901
 ;;9002226.02101,"885,55154040800 ",.01)
 ;;55154040800
 ;;9002226.02101,"885,55154040800 ",.02)
 ;;55154040800
 ;;9002226.02101,"885,55154040804 ",.01)
 ;;55154040804
 ;;9002226.02101,"885,55154040804 ",.02)
 ;;55154040804
 ;;9002226.02101,"885,55154040806 ",.01)
 ;;55154040806
 ;;9002226.02101,"885,55154040806 ",.02)
 ;;55154040806
 ;;9002226.02101,"885,55154074709 ",.01)
 ;;55154074709
 ;;9002226.02101,"885,55154074709 ",.02)
 ;;55154074709
 ;;9002226.02101,"885,55154074809 ",.01)
 ;;55154074809
 ;;9002226.02101,"885,55154074809 ",.02)
 ;;55154074809
 ;;9002226.02101,"885,55154147300 ",.01)
 ;;55154147300
 ;;9002226.02101,"885,55154147300 ",.02)
 ;;55154147300
 ;;9002226.02101,"885,55154147600 ",.01)
 ;;55154147600
 ;;9002226.02101,"885,55154147600 ",.02)
 ;;55154147600
 ;;9002226.02101,"885,55154201600 ",.01)
 ;;55154201600
 ;;9002226.02101,"885,55154201600 ",.02)
 ;;55154201600
 ;;9002226.02101,"885,55154201607 ",.01)
 ;;55154201607
 ;;9002226.02101,"885,55154201607 ",.02)
 ;;55154201607
 ;;9002226.02101,"885,55154675200 ",.01)
 ;;55154675200
 ;;9002226.02101,"885,55154675200 ",.02)
 ;;55154675200
 ;;9002226.02101,"885,55154675500 ",.01)
 ;;55154675500
 ;;9002226.02101,"885,55154675500 ",.02)
 ;;55154675500
 ;;9002226.02101,"885,55154680809 ",.01)
 ;;55154680809
 ;;9002226.02101,"885,55154680809 ",.02)
 ;;55154680809
 ;;9002226.02101,"885,55289004015 ",.01)
 ;;55289004015
 ;;9002226.02101,"885,55289004015 ",.02)
 ;;55289004015
 ;;9002226.02101,"885,55289004020 ",.01)
 ;;55289004020
 ;;9002226.02101,"885,55289004020 ",.02)
 ;;55289004020
 ;;9002226.02101,"885,55289004030 ",.01)
 ;;55289004030
 ;;9002226.02101,"885,55289004030 ",.02)
 ;;55289004030
 ;;9002226.02101,"885,55289019101 ",.01)
 ;;55289019101
 ;;9002226.02101,"885,55289019101 ",.02)
 ;;55289019101
 ;;9002226.02101,"885,55289019130 ",.01)
 ;;55289019130
 ;;9002226.02101,"885,55289019130 ",.02)
 ;;55289019130
 ;;9002226.02101,"885,55289019135 ",.01)
 ;;55289019135
 ;;9002226.02101,"885,55289019135 ",.02)
 ;;55289019135
 ;;9002226.02101,"885,55289019190 ",.01)
 ;;55289019190
 ;;9002226.02101,"885,55289019190 ",.02)
 ;;55289019190
 ;;9002226.02101,"885,55289035601 ",.01)
 ;;55289035601
 ;;9002226.02101,"885,55289035601 ",.02)
 ;;55289035601
 ;;9002226.02101,"885,55289074324 ",.01)
 ;;55289074324
 ;;9002226.02101,"885,55289074324 ",.02)
 ;;55289074324
 ;;9002226.02101,"885,55289088601 ",.01)
 ;;55289088601
 ;;9002226.02101,"885,55289088601 ",.02)
 ;;55289088601
 ;;9002226.02101,"885,55289088635 ",.01)
 ;;55289088635
 ;;9002226.02101,"885,55289088635 ",.02)
 ;;55289088635
 ;;9002226.02101,"885,55289088690 ",.01)
 ;;55289088690
 ;;9002226.02101,"885,55289088690 ",.02)
 ;;55289088690
 ;;9002226.02101,"885,55289088698 ",.01)
 ;;55289088698
 ;;9002226.02101,"885,55289088698 ",.02)
 ;;55289088698
 ;;9002226.02101,"885,55289091115 ",.01)
 ;;55289091115
 ;;9002226.02101,"885,55289091115 ",.02)
 ;;55289091115
 ;;9002226.02101,"885,55289091130 ",.01)
 ;;55289091130
 ;;9002226.02101,"885,55289091130 ",.02)
 ;;55289091130
 ;;9002226.02101,"885,55312027748 ",.01)
 ;;55312027748
 ;;9002226.02101,"885,55312027748 ",.02)
 ;;55312027748
 ;;9002226.02101,"885,55312046768 ",.01)
 ;;55312046768
 ;;9002226.02101,"885,55312046768 ",.02)
 ;;55312046768
 ;;9002226.02101,"885,55312053576 ",.01)
 ;;55312053576
 ;;9002226.02101,"885,55312053576 ",.02)
 ;;55312053576
 ;;9002226.02101,"885,55316053576 ",.01)
 ;;55316053576
 ;;9002226.02101,"885,55316053576 ",.02)
 ;;55316053576
 ;;9002226.02101,"885,55505010213 ",.01)
 ;;55505010213
 ;;9002226.02101,"885,55505010213 ",.02)
 ;;55505010213
 ;;9002226.02101,"885,55505010914 ",.01)
 ;;55505010914
 ;;9002226.02101,"885,55505010914 ",.02)
 ;;55505010914
 ;;9002226.02101,"885,55505013601 ",.01)
 ;;55505013601
 ;;9002226.02101,"885,55505013601 ",.02)
 ;;55505013601
 ;;9002226.02101,"885,55505016814 ",.01)
 ;;55505016814
 ;;9002226.02101,"885,55505016814 ",.02)
 ;;55505016814
 ;;9002226.02101,"885,55505017218 ",.01)
 ;;55505017218
 ;;9002226.02101,"885,55505017218 ",.02)
 ;;55505017218
 ;;9002226.02101,"885,55670013113 ",.01)
 ;;55670013113
 ;;9002226.02101,"885,55670013113 ",.02)
 ;;55670013113
 ;;9002226.02101,"885,55670013199 ",.01)
 ;;55670013199
 ;;9002226.02101,"885,55670013199 ",.02)
 ;;55670013199
 ;;9002226.02101,"885,55670067613 ",.01)
 ;;55670067613
 ;;9002226.02101,"885,55670067613 ",.02)
 ;;55670067613
 ;;9002226.02101,"885,55670067699 ",.01)
 ;;55670067699
 ;;9002226.02101,"885,55670067699 ",.02)
 ;;55670067699
 ;;9002226.02101,"885,55887038630 ",.01)
 ;;55887038630
 ;;9002226.02101,"885,55887038630 ",.02)
 ;;55887038630
 ;;9002226.02101,"885,55887046630 ",.01)
 ;;55887046630
 ;;9002226.02101,"885,55887046630 ",.02)
 ;;55887046630
 ;;9002226.02101,"885,55887069001 ",.01)
 ;;55887069001
 ;;9002226.02101,"885,55887069001 ",.02)
 ;;55887069001
 ;;9002226.02101,"885,55910015915 ",.01)
 ;;55910015915
 ;;9002226.02101,"885,55910015915 ",.02)
 ;;55910015915
 ;;9002226.02101,"885,55910043078 ",.01)
 ;;55910043078
 ;;9002226.02101,"885,55910043078 ",.02)
 ;;55910043078
 ;;9002226.02101,"885,55910046768 ",.01)
 ;;55910046768
 ;;9002226.02101,"885,55910046768 ",.02)
 ;;55910046768
 ;;9002226.02101,"885,55966002809 ",.01)
 ;;55966002809
 ;;9002226.02101,"885,55966002809 ",.02)
 ;;55966002809
 ;;9002226.02101,"885,55966002820 ",.01)
 ;;55966002820
 ;;9002226.02101,"885,55966002820 ",.02)
 ;;55966002820
 ;;9002226.02101,"885,55966004501 ",.01)
 ;;55966004501
 ;;9002226.02101,"885,55966004501 ",.02)
 ;;55966004501
 ;;9002226.02101,"885,55966004509 ",.01)
 ;;55966004509
 ;;9002226.02101,"885,55966004509 ",.02)
 ;;55966004509
 ;;9002226.02101,"885,55966004801 ",.01)
 ;;55966004801
 ;;9002226.02101,"885,55966004801 ",.02)
 ;;55966004801
 ;;9002226.02101,"885,55966004805 ",.01)
 ;;55966004805
 ;;9002226.02101,"885,55966004805 ",.02)
 ;;55966004805
 ;;9002226.02101,"885,55966004809 ",.01)
 ;;55966004809
 ;;9002226.02101,"885,55966004809 ",.02)
 ;;55966004809
 ;;9002226.02101,"885,55966004810 ",.01)
 ;;55966004810
 ;;9002226.02101,"885,55966004810 ",.02)
 ;;55966004810
 ;;9002226.02101,"885,55966004815 ",.01)
 ;;55966004815
 ;;9002226.02101,"885,55966004815 ",.02)
 ;;55966004815
 ;;9002226.02101,"885,55966004837 ",.01)
 ;;55966004837
 ;;9002226.02101,"885,55966004837 ",.02)
 ;;55966004837
 ;;9002226.02101,"885,55966008903 ",.01)
 ;;55966008903
 ;;9002226.02101,"885,55966008903 ",.02)
 ;;55966008903
 ;;9002226.02101,"885,55966008909 ",.01)
 ;;55966008909
 ;;9002226.02101,"885,55966008909 ",.02)
 ;;55966008909
 ;;9002226.02101,"885,55966010706 ",.01)
 ;;55966010706
 ;;9002226.02101,"885,55966010706 ",.02)
 ;;55966010706
 ;;9002226.02101,"885,55966010709 ",.01)
 ;;55966010709
 ;;9002226.02101,"885,55966010709 ",.02)
 ;;55966010709
 ;;9002226.02101,"885,56062037471 ",.01)
 ;;56062037471
 ;;9002226.02101,"885,56062037471 ",.02)
 ;;56062037471
 ;;9002226.02101,"885,56062041678 ",.01)
 ;;56062041678
 ;;9002226.02101,"885,56062041678 ",.02)
 ;;56062041678
 ;;9002226.02101,"885,56062042902 ",.01)
 ;;56062042902
 ;;9002226.02101,"885,56062042902 ",.02)
 ;;56062042902
 ;;9002226.02101,"885,56062043078 ",.01)
 ;;56062043078