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

BGPM5ARG.m

Go to the documentation of this file.
BGPM5ARG ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,54868447901 ",.02)
 ;;54868447901
 ;;9002226.02101,"1005,54868447902 ",.01)
 ;;54868447902
 ;;9002226.02101,"1005,54868447902 ",.02)
 ;;54868447902
 ;;9002226.02101,"1005,54868449400 ",.01)
 ;;54868449400
 ;;9002226.02101,"1005,54868449400 ",.02)
 ;;54868449400
 ;;9002226.02101,"1005,54868452600 ",.01)
 ;;54868452600
 ;;9002226.02101,"1005,54868452600 ",.02)
 ;;54868452600
 ;;9002226.02101,"1005,54868452601 ",.01)
 ;;54868452601
 ;;9002226.02101,"1005,54868452601 ",.02)
 ;;54868452601
 ;;9002226.02101,"1005,54868453901 ",.01)
 ;;54868453901
 ;;9002226.02101,"1005,54868453901 ",.02)
 ;;54868453901
 ;;9002226.02101,"1005,54868454001 ",.01)
 ;;54868454001
 ;;9002226.02101,"1005,54868454001 ",.02)
 ;;54868454001
 ;;9002226.02101,"1005,54868454002 ",.01)
 ;;54868454002
 ;;9002226.02101,"1005,54868454002 ",.02)
 ;;54868454002
 ;;9002226.02101,"1005,54868455200 ",.01)
 ;;54868455200
 ;;9002226.02101,"1005,54868455200 ",.02)
 ;;54868455200
 ;;9002226.02101,"1005,54868455201 ",.01)
 ;;54868455201
 ;;9002226.02101,"1005,54868455201 ",.02)
 ;;54868455201
 ;;9002226.02101,"1005,54868455500 ",.01)
 ;;54868455500
 ;;9002226.02101,"1005,54868455500 ",.02)
 ;;54868455500
 ;;9002226.02101,"1005,54868455501 ",.01)
 ;;54868455501
 ;;9002226.02101,"1005,54868455501 ",.02)
 ;;54868455501
 ;;9002226.02101,"1005,54868460501 ",.01)
 ;;54868460501
 ;;9002226.02101,"1005,54868460501 ",.02)
 ;;54868460501
 ;;9002226.02101,"1005,54868460502 ",.01)
 ;;54868460502
 ;;9002226.02101,"1005,54868460502 ",.02)
 ;;54868460502
 ;;9002226.02101,"1005,54868461200 ",.01)
 ;;54868461200
 ;;9002226.02101,"1005,54868461200 ",.02)
 ;;54868461200
 ;;9002226.02101,"1005,54868463700 ",.01)
 ;;54868463700
 ;;9002226.02101,"1005,54868463700 ",.02)
 ;;54868463700
 ;;9002226.02101,"1005,54868463701 ",.01)
 ;;54868463701
 ;;9002226.02101,"1005,54868463701 ",.02)
 ;;54868463701
 ;;9002226.02101,"1005,54868463702 ",.01)
 ;;54868463702
 ;;9002226.02101,"1005,54868463702 ",.02)
 ;;54868463702
 ;;9002226.02101,"1005,54868463703 ",.01)
 ;;54868463703
 ;;9002226.02101,"1005,54868463703 ",.02)
 ;;54868463703
 ;;9002226.02101,"1005,54868463704 ",.01)
 ;;54868463704
 ;;9002226.02101,"1005,54868463704 ",.02)
 ;;54868463704
 ;;9002226.02101,"1005,54868464500 ",.01)
 ;;54868464500
 ;;9002226.02101,"1005,54868464500 ",.02)
 ;;54868464500
 ;;9002226.02101,"1005,54868464501 ",.01)
 ;;54868464501
 ;;9002226.02101,"1005,54868464501 ",.02)
 ;;54868464501
 ;;9002226.02101,"1005,54868464502 ",.01)
 ;;54868464502
 ;;9002226.02101,"1005,54868464502 ",.02)
 ;;54868464502
 ;;9002226.02101,"1005,54868464503 ",.01)
 ;;54868464503
 ;;9002226.02101,"1005,54868464503 ",.02)
 ;;54868464503
 ;;9002226.02101,"1005,54868464600 ",.01)
 ;;54868464600
 ;;9002226.02101,"1005,54868464600 ",.02)
 ;;54868464600
 ;;9002226.02101,"1005,54868464601 ",.01)
 ;;54868464601
 ;;9002226.02101,"1005,54868464601 ",.02)
 ;;54868464601
 ;;9002226.02101,"1005,54868464602 ",.01)
 ;;54868464602
 ;;9002226.02101,"1005,54868464602 ",.02)
 ;;54868464602
 ;;9002226.02101,"1005,54868464603 ",.01)
 ;;54868464603
 ;;9002226.02101,"1005,54868464603 ",.02)
 ;;54868464603
 ;;9002226.02101,"1005,54868464604 ",.01)
 ;;54868464604
 ;;9002226.02101,"1005,54868464604 ",.02)
 ;;54868464604
 ;;9002226.02101,"1005,54868464605 ",.01)
 ;;54868464605
 ;;9002226.02101,"1005,54868464605 ",.02)
 ;;54868464605
 ;;9002226.02101,"1005,54868465200 ",.01)
 ;;54868465200
 ;;9002226.02101,"1005,54868465200 ",.02)
 ;;54868465200
 ;;9002226.02101,"1005,54868465201 ",.01)
 ;;54868465201
 ;;9002226.02101,"1005,54868465201 ",.02)
 ;;54868465201
 ;;9002226.02101,"1005,54868465202 ",.01)
 ;;54868465202
 ;;9002226.02101,"1005,54868465202 ",.02)
 ;;54868465202
 ;;9002226.02101,"1005,54868465203 ",.01)
 ;;54868465203
 ;;9002226.02101,"1005,54868465203 ",.02)
 ;;54868465203
 ;;9002226.02101,"1005,54868465204 ",.01)
 ;;54868465204
 ;;9002226.02101,"1005,54868465204 ",.02)
 ;;54868465204
 ;;9002226.02101,"1005,54868465205 ",.01)
 ;;54868465205
 ;;9002226.02101,"1005,54868465205 ",.02)
 ;;54868465205
 ;;9002226.02101,"1005,54868465600 ",.01)
 ;;54868465600
 ;;9002226.02101,"1005,54868465600 ",.02)
 ;;54868465600
 ;;9002226.02101,"1005,54868465601 ",.01)
 ;;54868465601
 ;;9002226.02101,"1005,54868465601 ",.02)
 ;;54868465601
 ;;9002226.02101,"1005,54868465602 ",.01)
 ;;54868465602
 ;;9002226.02101,"1005,54868465602 ",.02)
 ;;54868465602
 ;;9002226.02101,"1005,54868465603 ",.01)
 ;;54868465603
 ;;9002226.02101,"1005,54868465603 ",.02)
 ;;54868465603
 ;;9002226.02101,"1005,54868465700 ",.01)
 ;;54868465700
 ;;9002226.02101,"1005,54868465700 ",.02)
 ;;54868465700
 ;;9002226.02101,"1005,54868465701 ",.01)
 ;;54868465701
 ;;9002226.02101,"1005,54868465701 ",.02)
 ;;54868465701
 ;;9002226.02101,"1005,54868465702 ",.01)
 ;;54868465702
 ;;9002226.02101,"1005,54868465702 ",.02)
 ;;54868465702
 ;;9002226.02101,"1005,54868465703 ",.01)
 ;;54868465703
 ;;9002226.02101,"1005,54868465703 ",.02)
 ;;54868465703
 ;;9002226.02101,"1005,54868465704 ",.01)
 ;;54868465704
 ;;9002226.02101,"1005,54868465704 ",.02)
 ;;54868465704
 ;;9002226.02101,"1005,54868465706 ",.01)
 ;;54868465706
 ;;9002226.02101,"1005,54868465706 ",.02)
 ;;54868465706
 ;;9002226.02101,"1005,54868465800 ",.01)
 ;;54868465800
 ;;9002226.02101,"1005,54868465800 ",.02)
 ;;54868465800
 ;;9002226.02101,"1005,54868465801 ",.01)
 ;;54868465801
 ;;9002226.02101,"1005,54868465801 ",.02)
 ;;54868465801
 ;;9002226.02101,"1005,54868465802 ",.01)
 ;;54868465802
 ;;9002226.02101,"1005,54868465802 ",.02)
 ;;54868465802
 ;;9002226.02101,"1005,54868465803 ",.01)
 ;;54868465803
 ;;9002226.02101,"1005,54868465803 ",.02)
 ;;54868465803
 ;;9002226.02101,"1005,54868465804 ",.01)
 ;;54868465804
 ;;9002226.02101,"1005,54868465804 ",.02)
 ;;54868465804
 ;;9002226.02101,"1005,54868467800 ",.01)
 ;;54868467800
 ;;9002226.02101,"1005,54868467800 ",.02)
 ;;54868467800
 ;;9002226.02101,"1005,54868467801 ",.01)
 ;;54868467801
 ;;9002226.02101,"1005,54868467801 ",.02)
 ;;54868467801
 ;;9002226.02101,"1005,54868467802 ",.01)
 ;;54868467802
 ;;9002226.02101,"1005,54868467802 ",.02)
 ;;54868467802
 ;;9002226.02101,"1005,54868467803 ",.01)
 ;;54868467803
 ;;9002226.02101,"1005,54868467803 ",.02)
 ;;54868467803
 ;;9002226.02101,"1005,54868467804 ",.01)
 ;;54868467804
 ;;9002226.02101,"1005,54868467804 ",.02)
 ;;54868467804
 ;;9002226.02101,"1005,54868472000 ",.01)
 ;;54868472000
 ;;9002226.02101,"1005,54868472000 ",.02)
 ;;54868472000
 ;;9002226.02101,"1005,54868472001 ",.01)
 ;;54868472001
 ;;9002226.02101,"1005,54868472001 ",.02)
 ;;54868472001
 ;;9002226.02101,"1005,54868472002 ",.01)
 ;;54868472002
 ;;9002226.02101,"1005,54868472002 ",.02)
 ;;54868472002
 ;;9002226.02101,"1005,54868472003 ",.01)
 ;;54868472003
 ;;9002226.02101,"1005,54868472003 ",.02)
 ;;54868472003
 ;;9002226.02101,"1005,54868472900 ",.01)
 ;;54868472900
 ;;9002226.02101,"1005,54868472900 ",.02)
 ;;54868472900
 ;;9002226.02101,"1005,54868478000 ",.01)
 ;;54868478000
 ;;9002226.02101,"1005,54868478000 ",.02)
 ;;54868478000
 ;;9002226.02101,"1005,54868478001 ",.01)
 ;;54868478001
 ;;9002226.02101,"1005,54868478001 ",.02)
 ;;54868478001
 ;;9002226.02101,"1005,54868478002 ",.01)
 ;;54868478002
 ;;9002226.02101,"1005,54868478002 ",.02)
 ;;54868478002
 ;;9002226.02101,"1005,54868478500 ",.01)
 ;;54868478500
 ;;9002226.02101,"1005,54868478500 ",.02)
 ;;54868478500
 ;;9002226.02101,"1005,54868478501 ",.01)
 ;;54868478501
 ;;9002226.02101,"1005,54868478501 ",.02)
 ;;54868478501
 ;;9002226.02101,"1005,54868478502 ",.01)
 ;;54868478502
 ;;9002226.02101,"1005,54868478502 ",.02)
 ;;54868478502
 ;;9002226.02101,"1005,54868478503 ",.01)
 ;;54868478503
 ;;9002226.02101,"1005,54868478503 ",.02)
 ;;54868478503
 ;;9002226.02101,"1005,54868486900 ",.01)
 ;;54868486900
 ;;9002226.02101,"1005,54868486900 ",.02)
 ;;54868486900
 ;;9002226.02101,"1005,54868488300 ",.01)
 ;;54868488300
 ;;9002226.02101,"1005,54868488300 ",.02)
 ;;54868488300
 ;;9002226.02101,"1005,54868488301 ",.01)
 ;;54868488301
 ;;9002226.02101,"1005,54868488301 ",.02)
 ;;54868488301
 ;;9002226.02101,"1005,54868488302 ",.01)
 ;;54868488302
 ;;9002226.02101,"1005,54868488302 ",.02)
 ;;54868488302
 ;;9002226.02101,"1005,54868488500 ",.01)
 ;;54868488500
 ;;9002226.02101,"1005,54868488500 ",.02)
 ;;54868488500
 ;;9002226.02101,"1005,54868488501 ",.01)
 ;;54868488501
 ;;9002226.02101,"1005,54868488501 ",.02)
 ;;54868488501
 ;;9002226.02101,"1005,54868497700 ",.01)
 ;;54868497700
 ;;9002226.02101,"1005,54868497700 ",.02)
 ;;54868497700
 ;;9002226.02101,"1005,54868497701 ",.01)
 ;;54868497701
 ;;9002226.02101,"1005,54868497701 ",.02)
 ;;54868497701
 ;;9002226.02101,"1005,54868497702 ",.01)
 ;;54868497702
 ;;9002226.02101,"1005,54868497702 ",.02)
 ;;54868497702
 ;;9002226.02101,"1005,54868498600 ",.01)
 ;;54868498600
 ;;9002226.02101,"1005,54868498600 ",.02)
 ;;54868498600
 ;;9002226.02101,"1005,54868498601 ",.01)
 ;;54868498601
 ;;9002226.02101,"1005,54868498601 ",.02)
 ;;54868498601
 ;;9002226.02101,"1005,54868498602 ",.01)
 ;;54868498602
 ;;9002226.02101,"1005,54868498602 ",.02)
 ;;54868498602
 ;;9002226.02101,"1005,54868505500 ",.01)
 ;;54868505500
 ;;9002226.02101,"1005,54868505500 ",.02)
 ;;54868505500
 ;;9002226.02101,"1005,54868506400 ",.01)
 ;;54868506400
 ;;9002226.02101,"1005,54868506400 ",.02)
 ;;54868506400
 ;;9002226.02101,"1005,54868506401 ",.01)
 ;;54868506401
 ;;9002226.02101,"1005,54868506401 ",.02)
 ;;54868506401
 ;;9002226.02101,"1005,54868507500 ",.01)
 ;;54868507500
 ;;9002226.02101,"1005,54868507500 ",.02)
 ;;54868507500
 ;;9002226.02101,"1005,54868507501 ",.01)
 ;;54868507501
 ;;9002226.02101,"1005,54868507501 ",.02)
 ;;54868507501
 ;;9002226.02101,"1005,54868507800 ",.01)
 ;;54868507800
 ;;9002226.02101,"1005,54868507800 ",.02)
 ;;54868507800
 ;;9002226.02101,"1005,54868507801 ",.01)
 ;;54868507801
 ;;9002226.02101,"1005,54868507801 ",.02)
 ;;54868507801
 ;;9002226.02101,"1005,54868508200 ",.01)
 ;;54868508200
 ;;9002226.02101,"1005,54868508200 ",.02)
 ;;54868508200
 ;;9002226.02101,"1005,54868508201 ",.01)
 ;;54868508201
 ;;9002226.02101,"1005,54868508201 ",.02)
 ;;54868508201
 ;;9002226.02101,"1005,54868508202 ",.01)
 ;;54868508202
 ;;9002226.02101,"1005,54868508202 ",.02)
 ;;54868508202
 ;;9002226.02101,"1005,54868508203 ",.01)
 ;;54868508203
 ;;9002226.02101,"1005,54868508203 ",.02)
 ;;54868508203
 ;;9002226.02101,"1005,54868509900 ",.01)
 ;;54868509900
 ;;9002226.02101,"1005,54868509900 ",.02)
 ;;54868509900
 ;;9002226.02101,"1005,54868509901 ",.01)
 ;;54868509901
 ;;9002226.02101,"1005,54868509901 ",.02)
 ;;54868509901
 ;;9002226.02101,"1005,54868510000 ",.01)
 ;;54868510000
 ;;9002226.02101,"1005,54868510000 ",.02)
 ;;54868510000
 ;;9002226.02101,"1005,54868510001 ",.01)
 ;;54868510001
 ;;9002226.02101,"1005,54868510001 ",.02)
 ;;54868510001
 ;;9002226.02101,"1005,54868510002 ",.01)
 ;;54868510002
 ;;9002226.02101,"1005,54868510002 ",.02)
 ;;54868510002
 ;;9002226.02101,"1005,54868517000 ",.01)
 ;;54868517000
 ;;9002226.02101,"1005,54868517000 ",.02)
 ;;54868517000
 ;;9002226.02101,"1005,54868517001 ",.01)
 ;;54868517001
 ;;9002226.02101,"1005,54868517001 ",.02)
 ;;54868517001
 ;;9002226.02101,"1005,54868518200 ",.01)
 ;;54868518200
 ;;9002226.02101,"1005,54868518200 ",.02)
 ;;54868518200
 ;;9002226.02101,"1005,54868518201 ",.01)
 ;;54868518201
 ;;9002226.02101,"1005,54868518201 ",.02)
 ;;54868518201
 ;;9002226.02101,"1005,54868518202 ",.01)
 ;;54868518202
 ;;9002226.02101,"1005,54868518202 ",.02)
 ;;54868518202