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.
  1. BGPM5ATB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 24, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1011,54569005200 ",.01)
  1. ;;54569005200
  1. ;;9002226.02101,"1011,54569005200 ",.02)
  1. ;;54569005200
  1. ;;9002226.02101,"1011,54569006501 ",.01)
  1. ;;54569006501
  1. ;;9002226.02101,"1011,54569006501 ",.02)
  1. ;;54569006501
  1. ;;9002226.02101,"1011,54569006502 ",.01)
  1. ;;54569006502
  1. ;;9002226.02101,"1011,54569006502 ",.02)
  1. ;;54569006502
  1. ;;9002226.02101,"1011,54569006505 ",.01)
  1. ;;54569006505
  1. ;;9002226.02101,"1011,54569006505 ",.02)
  1. ;;54569006505
  1. ;;9002226.02101,"1011,54569166600 ",.01)
  1. ;;54569166600
  1. ;;9002226.02101,"1011,54569166600 ",.02)
  1. ;;54569166600
  1. ;;9002226.02101,"1011,54569198900 ",.01)
  1. ;;54569198900
  1. ;;9002226.02101,"1011,54569198900 ",.02)
  1. ;;54569198900
  1. ;;9002226.02101,"1011,54569248300 ",.01)
  1. ;;54569248300
  1. ;;9002226.02101,"1011,54569248300 ",.02)
  1. ;;54569248300
  1. ;;9002226.02101,"1011,54569248301 ",.01)
  1. ;;54569248301
  1. ;;9002226.02101,"1011,54569248301 ",.02)
  1. ;;54569248301
  1. ;;9002226.02101,"1011,54569248302 ",.01)
  1. ;;54569248302
  1. ;;9002226.02101,"1011,54569248302 ",.02)
  1. ;;54569248302
  1. ;;9002226.02101,"1011,54569248303 ",.01)
  1. ;;54569248303
  1. ;;9002226.02101,"1011,54569248303 ",.02)
  1. ;;54569248303
  1. ;;9002226.02101,"1011,54569389900 ",.01)
  1. ;;54569389900
  1. ;;9002226.02101,"1011,54569389900 ",.02)
  1. ;;54569389900
  1. ;;9002226.02101,"1011,54569390000 ",.01)
  1. ;;54569390000
  1. ;;9002226.02101,"1011,54569390000 ",.02)
  1. ;;54569390000
  1. ;;9002226.02101,"1011,54569454900 ",.01)
  1. ;;54569454900
  1. ;;9002226.02101,"1011,54569454900 ",.02)
  1. ;;54569454900
  1. ;;9002226.02101,"1011,54569460000 ",.01)
  1. ;;54569460000
  1. ;;9002226.02101,"1011,54569460000 ",.02)
  1. ;;54569460000
  1. ;;9002226.02101,"1011,54569460401 ",.01)
  1. ;;54569460401
  1. ;;9002226.02101,"1011,54569460401 ",.02)
  1. ;;54569460401
  1. ;;9002226.02101,"1011,54569460500 ",.01)
  1. ;;54569460500
  1. ;;9002226.02101,"1011,54569460500 ",.02)
  1. ;;54569460500
  1. ;;9002226.02101,"1011,54569460501 ",.01)
  1. ;;54569460501
  1. ;;9002226.02101,"1011,54569460501 ",.02)
  1. ;;54569460501
  1. ;;9002226.02101,"1011,54569462100 ",.01)
  1. ;;54569462100
  1. ;;9002226.02101,"1011,54569462100 ",.02)
  1. ;;54569462100
  1. ;;9002226.02101,"1011,54569473600 ",.01)
  1. ;;54569473600
  1. ;;9002226.02101,"1011,54569473600 ",.02)
  1. ;;54569473600
  1. ;;9002226.02101,"1011,54569473602 ",.01)
  1. ;;54569473602
  1. ;;9002226.02101,"1011,54569473602 ",.02)
  1. ;;54569473602
  1. ;;9002226.02101,"1011,54569474800 ",.01)
  1. ;;54569474800
  1. ;;9002226.02101,"1011,54569474800 ",.02)
  1. ;;54569474800
  1. ;;9002226.02101,"1011,54569477200 ",.01)
  1. ;;54569477200
  1. ;;9002226.02101,"1011,54569477200 ",.02)
  1. ;;54569477200
  1. ;;9002226.02101,"1011,54569516200 ",.01)
  1. ;;54569516200
  1. ;;9002226.02101,"1011,54569516200 ",.02)
  1. ;;54569516200
  1. ;;9002226.02101,"1011,54569516300 ",.01)
  1. ;;54569516300
  1. ;;9002226.02101,"1011,54569516300 ",.02)
  1. ;;54569516300
  1. ;;9002226.02101,"1011,54569516700 ",.01)
  1. ;;54569516700
  1. ;;9002226.02101,"1011,54569516700 ",.02)
  1. ;;54569516700
  1. ;;9002226.02101,"1011,54569516702 ",.01)
  1. ;;54569516702
  1. ;;9002226.02101,"1011,54569516702 ",.02)
  1. ;;54569516702
  1. ;;9002226.02101,"1011,54569524100 ",.01)
  1. ;;54569524100
  1. ;;9002226.02101,"1011,54569524100 ",.02)
  1. ;;54569524100
  1. ;;9002226.02101,"1011,54569524200 ",.01)
  1. ;;54569524200
  1. ;;9002226.02101,"1011,54569524200 ",.02)
  1. ;;54569524200
  1. ;;9002226.02101,"1011,54569524300 ",.01)
  1. ;;54569524300
  1. ;;9002226.02101,"1011,54569524300 ",.02)
  1. ;;54569524300
  1. ;;9002226.02101,"1011,54569544500 ",.01)
  1. ;;54569544500
  1. ;;9002226.02101,"1011,54569544500 ",.02)
  1. ;;54569544500
  1. ;;9002226.02101,"1011,54569566300 ",.01)
  1. ;;54569566300
  1. ;;9002226.02101,"1011,54569566300 ",.02)
  1. ;;54569566300
  1. ;;9002226.02101,"1011,54569567100 ",.01)
  1. ;;54569567100
  1. ;;9002226.02101,"1011,54569567100 ",.02)
  1. ;;54569567100
  1. ;;9002226.02101,"1011,54569570200 ",.01)
  1. ;;54569570200
  1. ;;9002226.02101,"1011,54569570200 ",.02)
  1. ;;54569570200
  1. ;;9002226.02101,"1011,54569585300 ",.01)
  1. ;;54569585300
  1. ;;9002226.02101,"1011,54569585300 ",.02)
  1. ;;54569585300
  1. ;;9002226.02101,"1011,54868002900 ",.01)
  1. ;;54868002900
  1. ;;9002226.02101,"1011,54868002900 ",.02)
  1. ;;54868002900
  1. ;;9002226.02101,"1011,54868002902 ",.01)
  1. ;;54868002902
  1. ;;9002226.02101,"1011,54868002902 ",.02)
  1. ;;54868002902
  1. ;;9002226.02101,"1011,54868002903 ",.01)
  1. ;;54868002903
  1. ;;9002226.02101,"1011,54868002903 ",.02)
  1. ;;54868002903
  1. ;;9002226.02101,"1011,54868002904 ",.01)
  1. ;;54868002904
  1. ;;9002226.02101,"1011,54868002904 ",.02)
  1. ;;54868002904
  1. ;;9002226.02101,"1011,54868002905 ",.01)
  1. ;;54868002905
  1. ;;9002226.02101,"1011,54868002905 ",.02)
  1. ;;54868002905
  1. ;;9002226.02101,"1011,54868002906 ",.01)
  1. ;;54868002906
  1. ;;9002226.02101,"1011,54868002906 ",.02)
  1. ;;54868002906
  1. ;;9002226.02101,"1011,54868002907 ",.01)
  1. ;;54868002907
  1. ;;9002226.02101,"1011,54868002907 ",.02)
  1. ;;54868002907
  1. ;;9002226.02101,"1011,54868104101 ",.01)
  1. ;;54868104101
  1. ;;9002226.02101,"1011,54868104101 ",.02)
  1. ;;54868104101
  1. ;;9002226.02101,"1011,54868143800 ",.01)
  1. ;;54868143800
  1. ;;9002226.02101,"1011,54868143800 ",.02)
  1. ;;54868143800
  1. ;;9002226.02101,"1011,54868143801 ",.01)
  1. ;;54868143801
  1. ;;9002226.02101,"1011,54868143801 ",.02)
  1. ;;54868143801
  1. ;;9002226.02101,"1011,54868188301 ",.01)
  1. ;;54868188301
  1. ;;9002226.02101,"1011,54868188301 ",.02)
  1. ;;54868188301
  1. ;;9002226.02101,"1011,54868189402 ",.01)
  1. ;;54868189402
  1. ;;9002226.02101,"1011,54868189402 ",.02)
  1. ;;54868189402
  1. ;;9002226.02101,"1011,54868247200 ",.01)
  1. ;;54868247200
  1. ;;9002226.02101,"1011,54868247200 ",.02)
  1. ;;54868247200
  1. ;;9002226.02101,"1011,54868247201 ",.01)
  1. ;;54868247201
  1. ;;9002226.02101,"1011,54868247201 ",.02)
  1. ;;54868247201
  1. ;;9002226.02101,"1011,54868271000 ",.01)
  1. ;;54868271000
  1. ;;9002226.02101,"1011,54868271000 ",.02)
  1. ;;54868271000
  1. ;;9002226.02101,"1011,54868271001 ",.01)
  1. ;;54868271001
  1. ;;9002226.02101,"1011,54868271001 ",.02)
  1. ;;54868271001
  1. ;;9002226.02101,"1011,54868282200 ",.01)
  1. ;;54868282200
  1. ;;9002226.02101,"1011,54868282200 ",.02)
  1. ;;54868282200
  1. ;;9002226.02101,"1011,54868291100 ",.01)
  1. ;;54868291100
  1. ;;9002226.02101,"1011,54868291100 ",.02)
  1. ;;54868291100
  1. ;;9002226.02101,"1011,54868328300 ",.01)
  1. ;;54868328300
  1. ;;9002226.02101,"1011,54868328300 ",.02)
  1. ;;54868328300
  1. ;;9002226.02101,"1011,54868328301 ",.01)
  1. ;;54868328301
  1. ;;9002226.02101,"1011,54868328301 ",.02)
  1. ;;54868328301
  1. ;;9002226.02101,"1011,54868328302 ",.01)
  1. ;;54868328302
  1. ;;9002226.02101,"1011,54868328302 ",.02)
  1. ;;54868328302
  1. ;;9002226.02101,"1011,54868340700 ",.01)
  1. ;;54868340700
  1. ;;9002226.02101,"1011,54868340700 ",.02)
  1. ;;54868340700
  1. ;;9002226.02101,"1011,54868347900 ",.01)
  1. ;;54868347900
  1. ;;9002226.02101,"1011,54868347900 ",.02)
  1. ;;54868347900
  1. ;;9002226.02101,"1011,54868355500 ",.01)
  1. ;;54868355500
  1. ;;9002226.02101,"1011,54868355500 ",.02)
  1. ;;54868355500
  1. ;;9002226.02101,"1011,54868355501 ",.01)
  1. ;;54868355501
  1. ;;9002226.02101,"1011,54868355501 ",.02)
  1. ;;54868355501
  1. ;;9002226.02101,"1011,54868417200 ",.01)
  1. ;;54868417200
  1. ;;9002226.02101,"1011,54868417200 ",.02)
  1. ;;54868417200
  1. ;;9002226.02101,"1011,54868417201 ",.01)
  1. ;;54868417201
  1. ;;9002226.02101,"1011,54868417201 ",.02)
  1. ;;54868417201
  1. ;;9002226.02101,"1011,54868417202 ",.01)
  1. ;;54868417202
  1. ;;9002226.02101,"1011,54868417202 ",.02)
  1. ;;54868417202
  1. ;;9002226.02101,"1011,54868422500 ",.01)
  1. ;;54868422500
  1. ;;9002226.02101,"1011,54868422500 ",.02)
  1. ;;54868422500
  1. ;;9002226.02101,"1011,54868440900 ",.01)
  1. ;;54868440900
  1. ;;9002226.02101,"1011,54868440900 ",.02)
  1. ;;54868440900
  1. ;;9002226.02101,"1011,54868448100 ",.01)
  1. ;;54868448100
  1. ;;9002226.02101,"1011,54868448100 ",.02)
  1. ;;54868448100
  1. ;;9002226.02101,"1011,54868451600 ",.01)
  1. ;;54868451600
  1. ;;9002226.02101,"1011,54868451600 ",.02)
  1. ;;54868451600
  1. ;;9002226.02101,"1011,54868451700 ",.01)
  1. ;;54868451700
  1. ;;9002226.02101,"1011,54868451700 ",.02)
  1. ;;54868451700
  1. ;;9002226.02101,"1011,54868451800 ",.01)
  1. ;;54868451800
  1. ;;9002226.02101,"1011,54868451800 ",.02)
  1. ;;54868451800
  1. ;;9002226.02101,"1011,54868463000 ",.01)
  1. ;;54868463000
  1. ;;9002226.02101,"1011,54868463000 ",.02)
  1. ;;54868463000
  1. ;;9002226.02101,"1011,54868484700 ",.01)
  1. ;;54868484700
  1. ;;9002226.02101,"1011,54868484700 ",.02)
  1. ;;54868484700
  1. ;;9002226.02101,"1011,54868497200 ",.01)
  1. ;;54868497200
  1. ;;9002226.02101,"1011,54868497200 ",.02)
  1. ;;54868497200
  1. ;;9002226.02101,"1011,54868497201 ",.01)
  1. ;;54868497201
  1. ;;9002226.02101,"1011,54868497201 ",.02)
  1. ;;54868497201
  1. ;;9002226.02101,"1011,54868529400 ",.01)
  1. ;;54868529400
  1. ;;9002226.02101,"1011,54868529400 ",.02)
  1. ;;54868529400
  1. ;;9002226.02101,"1011,54868536200 ",.01)
  1. ;;54868536200
  1. ;;9002226.02101,"1011,54868536200 ",.02)
  1. ;;54868536200
  1. ;;9002226.02101,"1011,54868545900 ",.01)
  1. ;;54868545900
  1. ;;9002226.02101,"1011,54868545900 ",.02)
  1. ;;54868545900
  1. ;;9002226.02101,"1011,54868553100 ",.01)
  1. ;;54868553100
  1. ;;9002226.02101,"1011,54868553100 ",.02)
  1. ;;54868553100
  1. ;;9002226.02101,"1011,54868553101 ",.01)
  1. ;;54868553101
  1. ;;9002226.02101,"1011,54868553101 ",.02)
  1. ;;54868553101
  1. ;;9002226.02101,"1011,54868554700 ",.01)
  1. ;;54868554700
  1. ;;9002226.02101,"1011,54868554700 ",.02)
  1. ;;54868554700
  1. ;;9002226.02101,"1011,54868554701 ",.01)
  1. ;;54868554701
  1. ;;9002226.02101,"1011,54868554701 ",.02)
  1. ;;54868554701
  1. ;;9002226.02101,"1011,54868554702 ",.01)
  1. ;;54868554702
  1. ;;9002226.02101,"1011,54868554702 ",.02)
  1. ;;54868554702
  1. ;;9002226.02101,"1011,54868562100 ",.01)
  1. ;;54868562100
  1. ;;9002226.02101,"1011,54868562100 ",.02)
  1. ;;54868562100
  1. ;;9002226.02101,"1011,54868563700 ",.01)
  1. ;;54868563700
  1. ;;9002226.02101,"1011,54868563700 ",.02)
  1. ;;54868563700
  1. ;;9002226.02101,"1011,54868564600 ",.01)
  1. ;;54868564600
  1. ;;9002226.02101,"1011,54868564600 ",.02)
  1. ;;54868564600
  1. ;;9002226.02101,"1011,54868564601 ",.01)
  1. ;;54868564601
  1. ;;9002226.02101,"1011,54868564601 ",.02)
  1. ;;54868564601
  1. ;;9002226.02101,"1011,54868564602 ",.01)
  1. ;;54868564602
  1. ;;9002226.02101,"1011,54868564602 ",.02)
  1. ;;54868564602
  1. ;;9002226.02101,"1011,54868568900 ",.01)
  1. ;;54868568900
  1. ;;9002226.02101,"1011,54868568900 ",.02)
  1. ;;54868568900
  1. ;;9002226.02101,"1011,54868570900 ",.01)
  1. ;;54868570900
  1. ;;9002226.02101,"1011,54868570900 ",.02)
  1. ;;54868570900
  1. ;;9002226.02101,"1011,54868577400 ",.01)
  1. ;;54868577400
  1. ;;9002226.02101,"1011,54868577400 ",.02)
  1. ;;54868577400
  1. ;;9002226.02101,"1011,54868599500 ",.01)
  1. ;;54868599500
  1. ;;9002226.02101,"1011,54868599500 ",.02)
  1. ;;54868599500
  1. ;;9002226.02101,"1011,54868602100 ",.01)
  1. ;;54868602100
  1. ;;9002226.02101,"1011,54868602100 ",.02)
  1. ;;54868602100
  1. ;;9002226.02101,"1011,54868605000 ",.01)
  1. ;;54868605000
  1. ;;9002226.02101,"1011,54868605000 ",.02)
  1. ;;54868605000
  1. ;;9002226.02101,"1011,54868605100 ",.01)
  1. ;;54868605100
  1. ;;9002226.02101,"1011,54868605100 ",.02)
  1. ;;54868605100
  1. ;;9002226.02101,"1011,54921040102 ",.01)
  1. ;;54921040102
  1. ;;9002226.02101,"1011,54921040102 ",.02)
  1. ;;54921040102
  1. ;;9002226.02101,"1011,54921040139 ",.01)
  1. ;;54921040139
  1. ;;9002226.02101,"1011,54921040139 ",.02)
  1. ;;54921040139
  1. ;;9002226.02101,"1011,54921040160 ",.01)
  1. ;;54921040160
  1. ;;9002226.02101,"1011,54921040160 ",.02)
  1. ;;54921040160
  1. ;;9002226.02101,"1011,54921040195 ",.01)
  1. ;;54921040195
  1. ;;9002226.02101,"1011,54921040195 ",.02)
  1. ;;54921040195
  1. ;;9002226.02101,"1011,54921040202 ",.01)
  1. ;;54921040202
  1. ;;9002226.02101,"1011,54921040202 ",.02)
  1. ;;54921040202
  1. ;;9002226.02101,"1011,54921040239 ",.01)
  1. ;;54921040239
  1. ;;9002226.02101,"1011,54921040239 ",.02)
  1. ;;54921040239
  1. ;;9002226.02101,"1011,54921040260 ",.01)
  1. ;;54921040260
  1. ;;9002226.02101,"1011,54921040260 ",.02)
  1. ;;54921040260
  1. ;;9002226.02101,"1011,54921040295 ",.01)
  1. ;;54921040295
  1. ;;9002226.02101,"1011,54921040295 ",.02)
  1. ;;54921040295
  1. ;;9002226.02101,"1011,55045131202 ",.01)
  1. ;;55045131202