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

BGPM5ATB.m

Go to the documentation of this file.
BGPM5ATB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 24, 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,"1011,54569005200 ",.01)
 ;;54569005200
 ;;9002226.02101,"1011,54569005200 ",.02)
 ;;54569005200
 ;;9002226.02101,"1011,54569006501 ",.01)
 ;;54569006501
 ;;9002226.02101,"1011,54569006501 ",.02)
 ;;54569006501
 ;;9002226.02101,"1011,54569006502 ",.01)
 ;;54569006502
 ;;9002226.02101,"1011,54569006502 ",.02)
 ;;54569006502
 ;;9002226.02101,"1011,54569006505 ",.01)
 ;;54569006505
 ;;9002226.02101,"1011,54569006505 ",.02)
 ;;54569006505
 ;;9002226.02101,"1011,54569166600 ",.01)
 ;;54569166600
 ;;9002226.02101,"1011,54569166600 ",.02)
 ;;54569166600
 ;;9002226.02101,"1011,54569198900 ",.01)
 ;;54569198900
 ;;9002226.02101,"1011,54569198900 ",.02)
 ;;54569198900
 ;;9002226.02101,"1011,54569248300 ",.01)
 ;;54569248300
 ;;9002226.02101,"1011,54569248300 ",.02)
 ;;54569248300
 ;;9002226.02101,"1011,54569248301 ",.01)
 ;;54569248301
 ;;9002226.02101,"1011,54569248301 ",.02)
 ;;54569248301
 ;;9002226.02101,"1011,54569248302 ",.01)
 ;;54569248302
 ;;9002226.02101,"1011,54569248302 ",.02)
 ;;54569248302
 ;;9002226.02101,"1011,54569248303 ",.01)
 ;;54569248303
 ;;9002226.02101,"1011,54569248303 ",.02)
 ;;54569248303
 ;;9002226.02101,"1011,54569389900 ",.01)
 ;;54569389900
 ;;9002226.02101,"1011,54569389900 ",.02)
 ;;54569389900
 ;;9002226.02101,"1011,54569390000 ",.01)
 ;;54569390000
 ;;9002226.02101,"1011,54569390000 ",.02)
 ;;54569390000
 ;;9002226.02101,"1011,54569454900 ",.01)
 ;;54569454900
 ;;9002226.02101,"1011,54569454900 ",.02)
 ;;54569454900
 ;;9002226.02101,"1011,54569460000 ",.01)
 ;;54569460000
 ;;9002226.02101,"1011,54569460000 ",.02)
 ;;54569460000
 ;;9002226.02101,"1011,54569460401 ",.01)
 ;;54569460401
 ;;9002226.02101,"1011,54569460401 ",.02)
 ;;54569460401
 ;;9002226.02101,"1011,54569460500 ",.01)
 ;;54569460500
 ;;9002226.02101,"1011,54569460500 ",.02)
 ;;54569460500
 ;;9002226.02101,"1011,54569460501 ",.01)
 ;;54569460501
 ;;9002226.02101,"1011,54569460501 ",.02)
 ;;54569460501
 ;;9002226.02101,"1011,54569462100 ",.01)
 ;;54569462100
 ;;9002226.02101,"1011,54569462100 ",.02)
 ;;54569462100
 ;;9002226.02101,"1011,54569473600 ",.01)
 ;;54569473600
 ;;9002226.02101,"1011,54569473600 ",.02)
 ;;54569473600
 ;;9002226.02101,"1011,54569473602 ",.01)
 ;;54569473602
 ;;9002226.02101,"1011,54569473602 ",.02)
 ;;54569473602
 ;;9002226.02101,"1011,54569474800 ",.01)
 ;;54569474800
 ;;9002226.02101,"1011,54569474800 ",.02)
 ;;54569474800
 ;;9002226.02101,"1011,54569477200 ",.01)
 ;;54569477200
 ;;9002226.02101,"1011,54569477200 ",.02)
 ;;54569477200
 ;;9002226.02101,"1011,54569516200 ",.01)
 ;;54569516200
 ;;9002226.02101,"1011,54569516200 ",.02)
 ;;54569516200
 ;;9002226.02101,"1011,54569516300 ",.01)
 ;;54569516300
 ;;9002226.02101,"1011,54569516300 ",.02)
 ;;54569516300
 ;;9002226.02101,"1011,54569516700 ",.01)
 ;;54569516700
 ;;9002226.02101,"1011,54569516700 ",.02)
 ;;54569516700
 ;;9002226.02101,"1011,54569516702 ",.01)
 ;;54569516702
 ;;9002226.02101,"1011,54569516702 ",.02)
 ;;54569516702
 ;;9002226.02101,"1011,54569524100 ",.01)
 ;;54569524100
 ;;9002226.02101,"1011,54569524100 ",.02)
 ;;54569524100
 ;;9002226.02101,"1011,54569524200 ",.01)
 ;;54569524200
 ;;9002226.02101,"1011,54569524200 ",.02)
 ;;54569524200
 ;;9002226.02101,"1011,54569524300 ",.01)
 ;;54569524300
 ;;9002226.02101,"1011,54569524300 ",.02)
 ;;54569524300
 ;;9002226.02101,"1011,54569544500 ",.01)
 ;;54569544500
 ;;9002226.02101,"1011,54569544500 ",.02)
 ;;54569544500
 ;;9002226.02101,"1011,54569566300 ",.01)
 ;;54569566300
 ;;9002226.02101,"1011,54569566300 ",.02)
 ;;54569566300
 ;;9002226.02101,"1011,54569567100 ",.01)
 ;;54569567100
 ;;9002226.02101,"1011,54569567100 ",.02)
 ;;54569567100
 ;;9002226.02101,"1011,54569570200 ",.01)
 ;;54569570200
 ;;9002226.02101,"1011,54569570200 ",.02)
 ;;54569570200
 ;;9002226.02101,"1011,54569585300 ",.01)
 ;;54569585300
 ;;9002226.02101,"1011,54569585300 ",.02)
 ;;54569585300
 ;;9002226.02101,"1011,54868002900 ",.01)
 ;;54868002900
 ;;9002226.02101,"1011,54868002900 ",.02)
 ;;54868002900
 ;;9002226.02101,"1011,54868002902 ",.01)
 ;;54868002902
 ;;9002226.02101,"1011,54868002902 ",.02)
 ;;54868002902
 ;;9002226.02101,"1011,54868002903 ",.01)
 ;;54868002903
 ;;9002226.02101,"1011,54868002903 ",.02)
 ;;54868002903
 ;;9002226.02101,"1011,54868002904 ",.01)
 ;;54868002904
 ;;9002226.02101,"1011,54868002904 ",.02)
 ;;54868002904
 ;;9002226.02101,"1011,54868002905 ",.01)
 ;;54868002905
 ;;9002226.02101,"1011,54868002905 ",.02)
 ;;54868002905
 ;;9002226.02101,"1011,54868002906 ",.01)
 ;;54868002906
 ;;9002226.02101,"1011,54868002906 ",.02)
 ;;54868002906
 ;;9002226.02101,"1011,54868002907 ",.01)
 ;;54868002907
 ;;9002226.02101,"1011,54868002907 ",.02)
 ;;54868002907
 ;;9002226.02101,"1011,54868104101 ",.01)
 ;;54868104101
 ;;9002226.02101,"1011,54868104101 ",.02)
 ;;54868104101
 ;;9002226.02101,"1011,54868143800 ",.01)
 ;;54868143800
 ;;9002226.02101,"1011,54868143800 ",.02)
 ;;54868143800
 ;;9002226.02101,"1011,54868143801 ",.01)
 ;;54868143801
 ;;9002226.02101,"1011,54868143801 ",.02)
 ;;54868143801
 ;;9002226.02101,"1011,54868188301 ",.01)
 ;;54868188301
 ;;9002226.02101,"1011,54868188301 ",.02)
 ;;54868188301
 ;;9002226.02101,"1011,54868189402 ",.01)
 ;;54868189402
 ;;9002226.02101,"1011,54868189402 ",.02)
 ;;54868189402
 ;;9002226.02101,"1011,54868247200 ",.01)
 ;;54868247200
 ;;9002226.02101,"1011,54868247200 ",.02)
 ;;54868247200
 ;;9002226.02101,"1011,54868247201 ",.01)
 ;;54868247201
 ;;9002226.02101,"1011,54868247201 ",.02)
 ;;54868247201
 ;;9002226.02101,"1011,54868271000 ",.01)
 ;;54868271000
 ;;9002226.02101,"1011,54868271000 ",.02)
 ;;54868271000
 ;;9002226.02101,"1011,54868271001 ",.01)
 ;;54868271001
 ;;9002226.02101,"1011,54868271001 ",.02)
 ;;54868271001
 ;;9002226.02101,"1011,54868282200 ",.01)
 ;;54868282200
 ;;9002226.02101,"1011,54868282200 ",.02)
 ;;54868282200
 ;;9002226.02101,"1011,54868291100 ",.01)
 ;;54868291100
 ;;9002226.02101,"1011,54868291100 ",.02)
 ;;54868291100
 ;;9002226.02101,"1011,54868328300 ",.01)
 ;;54868328300
 ;;9002226.02101,"1011,54868328300 ",.02)
 ;;54868328300
 ;;9002226.02101,"1011,54868328301 ",.01)
 ;;54868328301
 ;;9002226.02101,"1011,54868328301 ",.02)
 ;;54868328301
 ;;9002226.02101,"1011,54868328302 ",.01)
 ;;54868328302
 ;;9002226.02101,"1011,54868328302 ",.02)
 ;;54868328302
 ;;9002226.02101,"1011,54868340700 ",.01)
 ;;54868340700
 ;;9002226.02101,"1011,54868340700 ",.02)
 ;;54868340700
 ;;9002226.02101,"1011,54868347900 ",.01)
 ;;54868347900
 ;;9002226.02101,"1011,54868347900 ",.02)
 ;;54868347900
 ;;9002226.02101,"1011,54868355500 ",.01)
 ;;54868355500
 ;;9002226.02101,"1011,54868355500 ",.02)
 ;;54868355500
 ;;9002226.02101,"1011,54868355501 ",.01)
 ;;54868355501
 ;;9002226.02101,"1011,54868355501 ",.02)
 ;;54868355501
 ;;9002226.02101,"1011,54868417200 ",.01)
 ;;54868417200
 ;;9002226.02101,"1011,54868417200 ",.02)
 ;;54868417200
 ;;9002226.02101,"1011,54868417201 ",.01)
 ;;54868417201
 ;;9002226.02101,"1011,54868417201 ",.02)
 ;;54868417201
 ;;9002226.02101,"1011,54868417202 ",.01)
 ;;54868417202
 ;;9002226.02101,"1011,54868417202 ",.02)
 ;;54868417202
 ;;9002226.02101,"1011,54868422500 ",.01)
 ;;54868422500
 ;;9002226.02101,"1011,54868422500 ",.02)
 ;;54868422500
 ;;9002226.02101,"1011,54868440900 ",.01)
 ;;54868440900
 ;;9002226.02101,"1011,54868440900 ",.02)
 ;;54868440900
 ;;9002226.02101,"1011,54868448100 ",.01)
 ;;54868448100
 ;;9002226.02101,"1011,54868448100 ",.02)
 ;;54868448100
 ;;9002226.02101,"1011,54868451600 ",.01)
 ;;54868451600
 ;;9002226.02101,"1011,54868451600 ",.02)
 ;;54868451600
 ;;9002226.02101,"1011,54868451700 ",.01)
 ;;54868451700
 ;;9002226.02101,"1011,54868451700 ",.02)
 ;;54868451700
 ;;9002226.02101,"1011,54868451800 ",.01)
 ;;54868451800
 ;;9002226.02101,"1011,54868451800 ",.02)
 ;;54868451800
 ;;9002226.02101,"1011,54868463000 ",.01)
 ;;54868463000
 ;;9002226.02101,"1011,54868463000 ",.02)
 ;;54868463000
 ;;9002226.02101,"1011,54868484700 ",.01)
 ;;54868484700
 ;;9002226.02101,"1011,54868484700 ",.02)
 ;;54868484700
 ;;9002226.02101,"1011,54868497200 ",.01)
 ;;54868497200
 ;;9002226.02101,"1011,54868497200 ",.02)
 ;;54868497200
 ;;9002226.02101,"1011,54868497201 ",.01)
 ;;54868497201
 ;;9002226.02101,"1011,54868497201 ",.02)
 ;;54868497201
 ;;9002226.02101,"1011,54868529400 ",.01)
 ;;54868529400
 ;;9002226.02101,"1011,54868529400 ",.02)
 ;;54868529400
 ;;9002226.02101,"1011,54868536200 ",.01)
 ;;54868536200
 ;;9002226.02101,"1011,54868536200 ",.02)
 ;;54868536200
 ;;9002226.02101,"1011,54868545900 ",.01)
 ;;54868545900
 ;;9002226.02101,"1011,54868545900 ",.02)
 ;;54868545900
 ;;9002226.02101,"1011,54868553100 ",.01)
 ;;54868553100
 ;;9002226.02101,"1011,54868553100 ",.02)
 ;;54868553100
 ;;9002226.02101,"1011,54868553101 ",.01)
 ;;54868553101
 ;;9002226.02101,"1011,54868553101 ",.02)
 ;;54868553101
 ;;9002226.02101,"1011,54868554700 ",.01)
 ;;54868554700
 ;;9002226.02101,"1011,54868554700 ",.02)
 ;;54868554700
 ;;9002226.02101,"1011,54868554701 ",.01)
 ;;54868554701
 ;;9002226.02101,"1011,54868554701 ",.02)
 ;;54868554701
 ;;9002226.02101,"1011,54868554702 ",.01)
 ;;54868554702
 ;;9002226.02101,"1011,54868554702 ",.02)
 ;;54868554702
 ;;9002226.02101,"1011,54868562100 ",.01)
 ;;54868562100
 ;;9002226.02101,"1011,54868562100 ",.02)
 ;;54868562100
 ;;9002226.02101,"1011,54868563700 ",.01)
 ;;54868563700
 ;;9002226.02101,"1011,54868563700 ",.02)
 ;;54868563700
 ;;9002226.02101,"1011,54868564600 ",.01)
 ;;54868564600
 ;;9002226.02101,"1011,54868564600 ",.02)
 ;;54868564600
 ;;9002226.02101,"1011,54868564601 ",.01)
 ;;54868564601
 ;;9002226.02101,"1011,54868564601 ",.02)
 ;;54868564601
 ;;9002226.02101,"1011,54868564602 ",.01)
 ;;54868564602
 ;;9002226.02101,"1011,54868564602 ",.02)
 ;;54868564602
 ;;9002226.02101,"1011,54868568900 ",.01)
 ;;54868568900
 ;;9002226.02101,"1011,54868568900 ",.02)
 ;;54868568900
 ;;9002226.02101,"1011,54868570900 ",.01)
 ;;54868570900
 ;;9002226.02101,"1011,54868570900 ",.02)
 ;;54868570900
 ;;9002226.02101,"1011,54868577400 ",.01)
 ;;54868577400
 ;;9002226.02101,"1011,54868577400 ",.02)
 ;;54868577400
 ;;9002226.02101,"1011,54868599500 ",.01)
 ;;54868599500
 ;;9002226.02101,"1011,54868599500 ",.02)
 ;;54868599500
 ;;9002226.02101,"1011,54868602100 ",.01)
 ;;54868602100
 ;;9002226.02101,"1011,54868602100 ",.02)
 ;;54868602100
 ;;9002226.02101,"1011,54868605000 ",.01)
 ;;54868605000
 ;;9002226.02101,"1011,54868605000 ",.02)
 ;;54868605000
 ;;9002226.02101,"1011,54868605100 ",.01)
 ;;54868605100
 ;;9002226.02101,"1011,54868605100 ",.02)
 ;;54868605100
 ;;9002226.02101,"1011,54921040102 ",.01)
 ;;54921040102
 ;;9002226.02101,"1011,54921040102 ",.02)
 ;;54921040102
 ;;9002226.02101,"1011,54921040139 ",.01)
 ;;54921040139
 ;;9002226.02101,"1011,54921040139 ",.02)
 ;;54921040139
 ;;9002226.02101,"1011,54921040160 ",.01)
 ;;54921040160
 ;;9002226.02101,"1011,54921040160 ",.02)
 ;;54921040160
 ;;9002226.02101,"1011,54921040195 ",.01)
 ;;54921040195
 ;;9002226.02101,"1011,54921040195 ",.02)
 ;;54921040195
 ;;9002226.02101,"1011,54921040202 ",.01)
 ;;54921040202
 ;;9002226.02101,"1011,54921040202 ",.02)
 ;;54921040202
 ;;9002226.02101,"1011,54921040239 ",.01)
 ;;54921040239
 ;;9002226.02101,"1011,54921040239 ",.02)
 ;;54921040239
 ;;9002226.02101,"1011,54921040260 ",.01)
 ;;54921040260
 ;;9002226.02101,"1011,54921040260 ",.02)
 ;;54921040260
 ;;9002226.02101,"1011,54921040295 ",.01)
 ;;54921040295
 ;;9002226.02101,"1011,54921040295 ",.02)
 ;;54921040295
 ;;9002226.02101,"1011,55045131202 ",.01)
 ;;55045131202