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

BGPM5AGW.m

Go to the documentation of this file.
BGPM5AGW ;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,"882,54868465601 ",.02)
 ;;54868465601
 ;;9002226.02101,"882,54868465602 ",.01)
 ;;54868465602
 ;;9002226.02101,"882,54868465602 ",.02)
 ;;54868465602
 ;;9002226.02101,"882,54868465603 ",.01)
 ;;54868465603
 ;;9002226.02101,"882,54868465603 ",.02)
 ;;54868465603
 ;;9002226.02101,"882,54868465700 ",.01)
 ;;54868465700
 ;;9002226.02101,"882,54868465700 ",.02)
 ;;54868465700
 ;;9002226.02101,"882,54868465701 ",.01)
 ;;54868465701
 ;;9002226.02101,"882,54868465701 ",.02)
 ;;54868465701
 ;;9002226.02101,"882,54868465702 ",.01)
 ;;54868465702
 ;;9002226.02101,"882,54868465702 ",.02)
 ;;54868465702
 ;;9002226.02101,"882,54868465703 ",.01)
 ;;54868465703
 ;;9002226.02101,"882,54868465703 ",.02)
 ;;54868465703
 ;;9002226.02101,"882,54868465704 ",.01)
 ;;54868465704
 ;;9002226.02101,"882,54868465704 ",.02)
 ;;54868465704
 ;;9002226.02101,"882,54868465706 ",.01)
 ;;54868465706
 ;;9002226.02101,"882,54868465706 ",.02)
 ;;54868465706
 ;;9002226.02101,"882,54868465800 ",.01)
 ;;54868465800
 ;;9002226.02101,"882,54868465800 ",.02)
 ;;54868465800
 ;;9002226.02101,"882,54868465801 ",.01)
 ;;54868465801
 ;;9002226.02101,"882,54868465801 ",.02)
 ;;54868465801
 ;;9002226.02101,"882,54868465802 ",.01)
 ;;54868465802
 ;;9002226.02101,"882,54868465802 ",.02)
 ;;54868465802
 ;;9002226.02101,"882,54868465803 ",.01)
 ;;54868465803
 ;;9002226.02101,"882,54868465803 ",.02)
 ;;54868465803
 ;;9002226.02101,"882,54868465804 ",.01)
 ;;54868465804
 ;;9002226.02101,"882,54868465804 ",.02)
 ;;54868465804
 ;;9002226.02101,"882,54868467800 ",.01)
 ;;54868467800
 ;;9002226.02101,"882,54868467800 ",.02)
 ;;54868467800
 ;;9002226.02101,"882,54868467801 ",.01)
 ;;54868467801
 ;;9002226.02101,"882,54868467801 ",.02)
 ;;54868467801
 ;;9002226.02101,"882,54868467802 ",.01)
 ;;54868467802
 ;;9002226.02101,"882,54868467802 ",.02)
 ;;54868467802
 ;;9002226.02101,"882,54868467803 ",.01)
 ;;54868467803
 ;;9002226.02101,"882,54868467803 ",.02)
 ;;54868467803
 ;;9002226.02101,"882,54868478000 ",.01)
 ;;54868478000
 ;;9002226.02101,"882,54868478000 ",.02)
 ;;54868478000
 ;;9002226.02101,"882,54868478001 ",.01)
 ;;54868478001
 ;;9002226.02101,"882,54868478001 ",.02)
 ;;54868478001
 ;;9002226.02101,"882,54868478002 ",.01)
 ;;54868478002
 ;;9002226.02101,"882,54868478002 ",.02)
 ;;54868478002
 ;;9002226.02101,"882,54868478500 ",.01)
 ;;54868478500
 ;;9002226.02101,"882,54868478500 ",.02)
 ;;54868478500
 ;;9002226.02101,"882,54868478501 ",.01)
 ;;54868478501
 ;;9002226.02101,"882,54868478501 ",.02)
 ;;54868478501
 ;;9002226.02101,"882,54868478502 ",.01)
 ;;54868478502
 ;;9002226.02101,"882,54868478502 ",.02)
 ;;54868478502
 ;;9002226.02101,"882,54868478503 ",.01)
 ;;54868478503
 ;;9002226.02101,"882,54868478503 ",.02)
 ;;54868478503
 ;;9002226.02101,"882,54868488300 ",.01)
 ;;54868488300
 ;;9002226.02101,"882,54868488300 ",.02)
 ;;54868488300
 ;;9002226.02101,"882,54868488301 ",.01)
 ;;54868488301
 ;;9002226.02101,"882,54868488301 ",.02)
 ;;54868488301
 ;;9002226.02101,"882,54868488302 ",.01)
 ;;54868488302
 ;;9002226.02101,"882,54868488302 ",.02)
 ;;54868488302
 ;;9002226.02101,"882,54868497700 ",.01)
 ;;54868497700
 ;;9002226.02101,"882,54868497700 ",.02)
 ;;54868497700
 ;;9002226.02101,"882,54868497701 ",.01)
 ;;54868497701
 ;;9002226.02101,"882,54868497701 ",.02)
 ;;54868497701
 ;;9002226.02101,"882,54868497702 ",.01)
 ;;54868497702
 ;;9002226.02101,"882,54868497702 ",.02)
 ;;54868497702
 ;;9002226.02101,"882,54868505500 ",.01)
 ;;54868505500
 ;;9002226.02101,"882,54868505500 ",.02)
 ;;54868505500
 ;;9002226.02101,"882,54868506400 ",.01)
 ;;54868506400
 ;;9002226.02101,"882,54868506400 ",.02)
 ;;54868506400
 ;;9002226.02101,"882,54868506401 ",.01)
 ;;54868506401
 ;;9002226.02101,"882,54868506401 ",.02)
 ;;54868506401
 ;;9002226.02101,"882,54868510000 ",.01)
 ;;54868510000
 ;;9002226.02101,"882,54868510000 ",.02)
 ;;54868510000
 ;;9002226.02101,"882,54868510001 ",.01)
 ;;54868510001
 ;;9002226.02101,"882,54868510001 ",.02)
 ;;54868510001
 ;;9002226.02101,"882,54868510002 ",.01)
 ;;54868510002
 ;;9002226.02101,"882,54868510002 ",.02)
 ;;54868510002
 ;;9002226.02101,"882,54868518200 ",.01)
 ;;54868518200
 ;;9002226.02101,"882,54868518200 ",.02)
 ;;54868518200
 ;;9002226.02101,"882,54868518201 ",.01)
 ;;54868518201
 ;;9002226.02101,"882,54868518201 ",.02)
 ;;54868518201
 ;;9002226.02101,"882,54868518202 ",.01)
 ;;54868518202
 ;;9002226.02101,"882,54868518202 ",.02)
 ;;54868518202
 ;;9002226.02101,"882,54868519600 ",.01)
 ;;54868519600
 ;;9002226.02101,"882,54868519600 ",.02)
 ;;54868519600
 ;;9002226.02101,"882,54868519601 ",.01)
 ;;54868519601
 ;;9002226.02101,"882,54868519601 ",.02)
 ;;54868519601
 ;;9002226.02101,"882,54868519602 ",.01)
 ;;54868519602
 ;;9002226.02101,"882,54868519602 ",.02)
 ;;54868519602
 ;;9002226.02101,"882,54868524100 ",.01)
 ;;54868524100
 ;;9002226.02101,"882,54868524100 ",.02)
 ;;54868524100
 ;;9002226.02101,"882,54868524101 ",.01)
 ;;54868524101
 ;;9002226.02101,"882,54868524101 ",.02)
 ;;54868524101
 ;;9002226.02101,"882,54868524102 ",.01)
 ;;54868524102
 ;;9002226.02101,"882,54868524102 ",.02)
 ;;54868524102
 ;;9002226.02101,"882,54868524500 ",.01)
 ;;54868524500
 ;;9002226.02101,"882,54868524500 ",.02)
 ;;54868524500
 ;;9002226.02101,"882,54868524501 ",.01)
 ;;54868524501
 ;;9002226.02101,"882,54868524501 ",.02)
 ;;54868524501
 ;;9002226.02101,"882,54868524502 ",.01)
 ;;54868524502
 ;;9002226.02101,"882,54868524502 ",.02)
 ;;54868524502
 ;;9002226.02101,"882,54868524600 ",.01)
 ;;54868524600
 ;;9002226.02101,"882,54868524600 ",.02)
 ;;54868524600
 ;;9002226.02101,"882,54868524601 ",.01)
 ;;54868524601
 ;;9002226.02101,"882,54868524601 ",.02)
 ;;54868524601
 ;;9002226.02101,"882,54868527900 ",.01)
 ;;54868527900
 ;;9002226.02101,"882,54868527900 ",.02)
 ;;54868527900
 ;;9002226.02101,"882,54868534600 ",.01)
 ;;54868534600
 ;;9002226.02101,"882,54868534600 ",.02)
 ;;54868534600
 ;;9002226.02101,"882,54868534601 ",.01)
 ;;54868534601
 ;;9002226.02101,"882,54868534601 ",.02)
 ;;54868534601
 ;;9002226.02101,"882,54868546900 ",.01)
 ;;54868546900
 ;;9002226.02101,"882,54868546900 ",.02)
 ;;54868546900
 ;;9002226.02101,"882,54868546901 ",.01)
 ;;54868546901
 ;;9002226.02101,"882,54868546901 ",.02)
 ;;54868546901
 ;;9002226.02101,"882,54868547500 ",.01)
 ;;54868547500
 ;;9002226.02101,"882,54868547500 ",.02)
 ;;54868547500
 ;;9002226.02101,"882,54868550300 ",.01)
 ;;54868550300
 ;;9002226.02101,"882,54868550300 ",.02)
 ;;54868550300
 ;;9002226.02101,"882,54868550301 ",.01)
 ;;54868550301
 ;;9002226.02101,"882,54868550301 ",.02)
 ;;54868550301
 ;;9002226.02101,"882,54868578700 ",.01)
 ;;54868578700
 ;;9002226.02101,"882,54868578700 ",.02)
 ;;54868578700
 ;;9002226.02101,"882,54868584200 ",.01)
 ;;54868584200
 ;;9002226.02101,"882,54868584200 ",.02)
 ;;54868584200
 ;;9002226.02101,"882,54868584201 ",.01)
 ;;54868584201
 ;;9002226.02101,"882,54868584201 ",.02)
 ;;54868584201
 ;;9002226.02101,"882,54868584202 ",.01)
 ;;54868584202
 ;;9002226.02101,"882,54868584202 ",.02)
 ;;54868584202
 ;;9002226.02101,"882,54868584203 ",.01)
 ;;54868584203
 ;;9002226.02101,"882,54868584203 ",.02)
 ;;54868584203
 ;;9002226.02101,"882,54868584300 ",.01)
 ;;54868584300
 ;;9002226.02101,"882,54868584300 ",.02)
 ;;54868584300
 ;;9002226.02101,"882,54868584301 ",.01)
 ;;54868584301
 ;;9002226.02101,"882,54868584301 ",.02)
 ;;54868584301
 ;;9002226.02101,"882,54868584302 ",.01)
 ;;54868584302
 ;;9002226.02101,"882,54868584302 ",.02)
 ;;54868584302
 ;;9002226.02101,"882,54868585600 ",.01)
 ;;54868585600
 ;;9002226.02101,"882,54868585600 ",.02)
 ;;54868585600
 ;;9002226.02101,"882,54868585601 ",.01)
 ;;54868585601
 ;;9002226.02101,"882,54868585601 ",.02)
 ;;54868585601
 ;;9002226.02101,"882,54868589600 ",.01)
 ;;54868589600
 ;;9002226.02101,"882,54868589600 ",.02)
 ;;54868589600
 ;;9002226.02101,"882,54868592800 ",.01)
 ;;54868592800
 ;;9002226.02101,"882,54868592800 ",.02)
 ;;54868592800
 ;;9002226.02101,"882,54907040301 ",.01)
 ;;54907040301
 ;;9002226.02101,"882,54907040301 ",.02)
 ;;54907040301
 ;;9002226.02101,"882,54907040401 ",.01)
 ;;54907040401
 ;;9002226.02101,"882,54907040401 ",.02)
 ;;54907040401
 ;;9002226.02101,"882,54907077501 ",.01)
 ;;54907077501
 ;;9002226.02101,"882,54907077501 ",.02)
 ;;54907077501
 ;;9002226.02101,"882,54907077509 ",.01)
 ;;54907077509
 ;;9002226.02101,"882,54907077509 ",.02)
 ;;54907077509
 ;;9002226.02101,"882,54907077601 ",.01)
 ;;54907077601
 ;;9002226.02101,"882,54907077601 ",.02)
 ;;54907077601
 ;;9002226.02101,"882,54907077609 ",.01)
 ;;54907077609
 ;;9002226.02101,"882,54907077609 ",.02)
 ;;54907077609
 ;;9002226.02101,"882,54907077701 ",.01)
 ;;54907077701
 ;;9002226.02101,"882,54907077701 ",.02)
 ;;54907077701
 ;;9002226.02101,"882,54907077709 ",.01)
 ;;54907077709
 ;;9002226.02101,"882,54907077709 ",.02)
 ;;54907077709
 ;;9002226.02101,"882,55045237600 ",.01)
 ;;55045237600
 ;;9002226.02101,"882,55045237600 ",.02)
 ;;55045237600
 ;;9002226.02101,"882,55045237608 ",.01)
 ;;55045237608
 ;;9002226.02101,"882,55045237608 ",.02)
 ;;55045237608
 ;;9002226.02101,"882,55045237609 ",.01)
 ;;55045237609
 ;;9002226.02101,"882,55045237609 ",.02)
 ;;55045237609
 ;;9002226.02101,"882,55045279900 ",.01)
 ;;55045279900
 ;;9002226.02101,"882,55045279900 ",.02)
 ;;55045279900
 ;;9002226.02101,"882,55045279901 ",.01)
 ;;55045279901
 ;;9002226.02101,"882,55045279901 ",.02)
 ;;55045279901
 ;;9002226.02101,"882,55045279902 ",.01)
 ;;55045279902
 ;;9002226.02101,"882,55045279902 ",.02)
 ;;55045279902
 ;;9002226.02101,"882,55045279906 ",.01)
 ;;55045279906
 ;;9002226.02101,"882,55045279906 ",.02)
 ;;55045279906
 ;;9002226.02101,"882,55045279909 ",.01)
 ;;55045279909
 ;;9002226.02101,"882,55045279909 ",.02)
 ;;55045279909
 ;;9002226.02101,"882,55045282700 ",.01)
 ;;55045282700
 ;;9002226.02101,"882,55045282700 ",.02)
 ;;55045282700
 ;;9002226.02101,"882,55045282704 ",.01)
 ;;55045282704
 ;;9002226.02101,"882,55045282704 ",.02)
 ;;55045282704
 ;;9002226.02101,"882,55045282706 ",.01)
 ;;55045282706
 ;;9002226.02101,"882,55045282706 ",.02)
 ;;55045282706
 ;;9002226.02101,"882,55045282708 ",.01)
 ;;55045282708
 ;;9002226.02101,"882,55045282708 ",.02)
 ;;55045282708
 ;;9002226.02101,"882,55045282709 ",.01)
 ;;55045282709
 ;;9002226.02101,"882,55045282709 ",.02)
 ;;55045282709
 ;;9002226.02101,"882,55045282800 ",.01)
 ;;55045282800
 ;;9002226.02101,"882,55045282800 ",.02)
 ;;55045282800
 ;;9002226.02101,"882,55045283208 ",.01)
 ;;55045283208
 ;;9002226.02101,"882,55045283208 ",.02)
 ;;55045283208
 ;;9002226.02101,"882,55045292900 ",.01)
 ;;55045292900
 ;;9002226.02101,"882,55045292900 ",.02)
 ;;55045292900
 ;;9002226.02101,"882,55045292906 ",.01)
 ;;55045292906
 ;;9002226.02101,"882,55045292906 ",.02)
 ;;55045292906
 ;;9002226.02101,"882,55045292908 ",.01)
 ;;55045292908
 ;;9002226.02101,"882,55045292908 ",.02)
 ;;55045292908
 ;;9002226.02101,"882,55045293600 ",.01)
 ;;55045293600
 ;;9002226.02101,"882,55045293600 ",.02)
 ;;55045293600
 ;;9002226.02101,"882,55045293608 ",.01)
 ;;55045293608
 ;;9002226.02101,"882,55045293608 ",.02)
 ;;55045293608
 ;;9002226.02101,"882,55045293700 ",.01)
 ;;55045293700
 ;;9002226.02101,"882,55045293700 ",.02)
 ;;55045293700
 ;;9002226.02101,"882,55045293800 ",.01)
 ;;55045293800
 ;;9002226.02101,"882,55045293800 ",.02)
 ;;55045293800
 ;;9002226.02101,"882,55045293808 ",.01)
 ;;55045293808
 ;;9002226.02101,"882,55045293808 ",.02)
 ;;55045293808
 ;;9002226.02101,"882,55045297500 ",.01)
 ;;55045297500