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

BGPM5ARV.m

Go to the documentation of this file.
BGPM5ARV ;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,58016099226 ",.01)
 ;;58016099226
 ;;9002226.02101,"1005,58016099226 ",.02)
 ;;58016099226
 ;;9002226.02101,"1005,58016099227 ",.01)
 ;;58016099227
 ;;9002226.02101,"1005,58016099227 ",.02)
 ;;58016099227
 ;;9002226.02101,"1005,58016099228 ",.01)
 ;;58016099228
 ;;9002226.02101,"1005,58016099228 ",.02)
 ;;58016099228
 ;;9002226.02101,"1005,58016099230 ",.01)
 ;;58016099230
 ;;9002226.02101,"1005,58016099230 ",.02)
 ;;58016099230
 ;;9002226.02101,"1005,58016099232 ",.01)
 ;;58016099232
 ;;9002226.02101,"1005,58016099232 ",.02)
 ;;58016099232
 ;;9002226.02101,"1005,58016099235 ",.01)
 ;;58016099235
 ;;9002226.02101,"1005,58016099235 ",.02)
 ;;58016099235
 ;;9002226.02101,"1005,58016099236 ",.01)
 ;;58016099236
 ;;9002226.02101,"1005,58016099236 ",.02)
 ;;58016099236
 ;;9002226.02101,"1005,58016099242 ",.01)
 ;;58016099242
 ;;9002226.02101,"1005,58016099242 ",.02)
 ;;58016099242
 ;;9002226.02101,"1005,58016099244 ",.01)
 ;;58016099244
 ;;9002226.02101,"1005,58016099244 ",.02)
 ;;58016099244
 ;;9002226.02101,"1005,58016099245 ",.01)
 ;;58016099245
 ;;9002226.02101,"1005,58016099245 ",.02)
 ;;58016099245
 ;;9002226.02101,"1005,58016099248 ",.01)
 ;;58016099248
 ;;9002226.02101,"1005,58016099248 ",.02)
 ;;58016099248
 ;;9002226.02101,"1005,58016099250 ",.01)
 ;;58016099250
 ;;9002226.02101,"1005,58016099250 ",.02)
 ;;58016099250
 ;;9002226.02101,"1005,58016099256 ",.01)
 ;;58016099256
 ;;9002226.02101,"1005,58016099256 ",.02)
 ;;58016099256
 ;;9002226.02101,"1005,58016099260 ",.01)
 ;;58016099260
 ;;9002226.02101,"1005,58016099260 ",.02)
 ;;58016099260
 ;;9002226.02101,"1005,58016099267 ",.01)
 ;;58016099267
 ;;9002226.02101,"1005,58016099267 ",.02)
 ;;58016099267
 ;;9002226.02101,"1005,58016099269 ",.01)
 ;;58016099269
 ;;9002226.02101,"1005,58016099269 ",.02)
 ;;58016099269
 ;;9002226.02101,"1005,58016099270 ",.01)
 ;;58016099270
 ;;9002226.02101,"1005,58016099270 ",.02)
 ;;58016099270
 ;;9002226.02101,"1005,58016099271 ",.01)
 ;;58016099271
 ;;9002226.02101,"1005,58016099271 ",.02)
 ;;58016099271
 ;;9002226.02101,"1005,58016099272 ",.01)
 ;;58016099272
 ;;9002226.02101,"1005,58016099272 ",.02)
 ;;58016099272
 ;;9002226.02101,"1005,58016099273 ",.01)
 ;;58016099273
 ;;9002226.02101,"1005,58016099273 ",.02)
 ;;58016099273
 ;;9002226.02101,"1005,58016099275 ",.01)
 ;;58016099275
 ;;9002226.02101,"1005,58016099275 ",.02)
 ;;58016099275
 ;;9002226.02101,"1005,58016099276 ",.01)
 ;;58016099276
 ;;9002226.02101,"1005,58016099276 ",.02)
 ;;58016099276
 ;;9002226.02101,"1005,58016099277 ",.01)
 ;;58016099277
 ;;9002226.02101,"1005,58016099277 ",.02)
 ;;58016099277
 ;;9002226.02101,"1005,58016099279 ",.01)
 ;;58016099279
 ;;9002226.02101,"1005,58016099279 ",.02)
 ;;58016099279
 ;;9002226.02101,"1005,58016099280 ",.01)
 ;;58016099280
 ;;9002226.02101,"1005,58016099280 ",.02)
 ;;58016099280
 ;;9002226.02101,"1005,58016099281 ",.01)
 ;;58016099281
 ;;9002226.02101,"1005,58016099281 ",.02)
 ;;58016099281
 ;;9002226.02101,"1005,58016099282 ",.01)
 ;;58016099282
 ;;9002226.02101,"1005,58016099282 ",.02)
 ;;58016099282
 ;;9002226.02101,"1005,58016099283 ",.01)
 ;;58016099283
 ;;9002226.02101,"1005,58016099283 ",.02)
 ;;58016099283
 ;;9002226.02101,"1005,58016099284 ",.01)
 ;;58016099284
 ;;9002226.02101,"1005,58016099284 ",.02)
 ;;58016099284
 ;;9002226.02101,"1005,58016099287 ",.01)
 ;;58016099287
 ;;9002226.02101,"1005,58016099287 ",.02)
 ;;58016099287
 ;;9002226.02101,"1005,58016099289 ",.01)
 ;;58016099289
 ;;9002226.02101,"1005,58016099289 ",.02)
 ;;58016099289
 ;;9002226.02101,"1005,58016099290 ",.01)
 ;;58016099290
 ;;9002226.02101,"1005,58016099290 ",.02)
 ;;58016099290
 ;;9002226.02101,"1005,58016099291 ",.01)
 ;;58016099291
 ;;9002226.02101,"1005,58016099291 ",.02)
 ;;58016099291
 ;;9002226.02101,"1005,58016099292 ",.01)
 ;;58016099292
 ;;9002226.02101,"1005,58016099292 ",.02)
 ;;58016099292
 ;;9002226.02101,"1005,58016099293 ",.01)
 ;;58016099293
 ;;9002226.02101,"1005,58016099293 ",.02)
 ;;58016099293
 ;;9002226.02101,"1005,58016099296 ",.01)
 ;;58016099296
 ;;9002226.02101,"1005,58016099296 ",.02)
 ;;58016099296
 ;;9002226.02101,"1005,58016099297 ",.01)
 ;;58016099297
 ;;9002226.02101,"1005,58016099297 ",.02)
 ;;58016099297
 ;;9002226.02101,"1005,58016099298 ",.01)
 ;;58016099298
 ;;9002226.02101,"1005,58016099298 ",.02)
 ;;58016099298
 ;;9002226.02101,"1005,58016099299 ",.01)
 ;;58016099299
 ;;9002226.02101,"1005,58016099299 ",.02)
 ;;58016099299
 ;;9002226.02101,"1005,58016099800 ",.01)
 ;;58016099800
 ;;9002226.02101,"1005,58016099800 ",.02)
 ;;58016099800
 ;;9002226.02101,"1005,58016099801 ",.01)
 ;;58016099801
 ;;9002226.02101,"1005,58016099801 ",.02)
 ;;58016099801
 ;;9002226.02101,"1005,58016099802 ",.01)
 ;;58016099802
 ;;9002226.02101,"1005,58016099802 ",.02)
 ;;58016099802
 ;;9002226.02101,"1005,58016099803 ",.01)
 ;;58016099803
 ;;9002226.02101,"1005,58016099803 ",.02)
 ;;58016099803
 ;;9002226.02101,"1005,58016099804 ",.01)
 ;;58016099804
 ;;9002226.02101,"1005,58016099804 ",.02)
 ;;58016099804
 ;;9002226.02101,"1005,58016099805 ",.01)
 ;;58016099805
 ;;9002226.02101,"1005,58016099805 ",.02)
 ;;58016099805
 ;;9002226.02101,"1005,58016099806 ",.01)
 ;;58016099806
 ;;9002226.02101,"1005,58016099806 ",.02)
 ;;58016099806
 ;;9002226.02101,"1005,58016099807 ",.01)
 ;;58016099807
 ;;9002226.02101,"1005,58016099807 ",.02)
 ;;58016099807
 ;;9002226.02101,"1005,58016099808 ",.01)
 ;;58016099808
 ;;9002226.02101,"1005,58016099808 ",.02)
 ;;58016099808
 ;;9002226.02101,"1005,58016099809 ",.01)
 ;;58016099809
 ;;9002226.02101,"1005,58016099809 ",.02)
 ;;58016099809
 ;;9002226.02101,"1005,58016099810 ",.01)
 ;;58016099810
 ;;9002226.02101,"1005,58016099810 ",.02)
 ;;58016099810
 ;;9002226.02101,"1005,58016099812 ",.01)
 ;;58016099812
 ;;9002226.02101,"1005,58016099812 ",.02)
 ;;58016099812
 ;;9002226.02101,"1005,58016099814 ",.01)
 ;;58016099814
 ;;9002226.02101,"1005,58016099814 ",.02)
 ;;58016099814
 ;;9002226.02101,"1005,58016099815 ",.01)
 ;;58016099815
 ;;9002226.02101,"1005,58016099815 ",.02)
 ;;58016099815
 ;;9002226.02101,"1005,58016099816 ",.01)
 ;;58016099816
 ;;9002226.02101,"1005,58016099816 ",.02)
 ;;58016099816
 ;;9002226.02101,"1005,58016099818 ",.01)
 ;;58016099818
 ;;9002226.02101,"1005,58016099818 ",.02)
 ;;58016099818
 ;;9002226.02101,"1005,58016099820 ",.01)
 ;;58016099820
 ;;9002226.02101,"1005,58016099820 ",.02)
 ;;58016099820
 ;;9002226.02101,"1005,58016099821 ",.01)
 ;;58016099821
 ;;9002226.02101,"1005,58016099821 ",.02)
 ;;58016099821
 ;;9002226.02101,"1005,58016099824 ",.01)
 ;;58016099824
 ;;9002226.02101,"1005,58016099824 ",.02)
 ;;58016099824
 ;;9002226.02101,"1005,58016099825 ",.01)
 ;;58016099825
 ;;9002226.02101,"1005,58016099825 ",.02)
 ;;58016099825
 ;;9002226.02101,"1005,58016099826 ",.01)
 ;;58016099826
 ;;9002226.02101,"1005,58016099826 ",.02)
 ;;58016099826
 ;;9002226.02101,"1005,58016099827 ",.01)
 ;;58016099827
 ;;9002226.02101,"1005,58016099827 ",.02)
 ;;58016099827
 ;;9002226.02101,"1005,58016099828 ",.01)
 ;;58016099828
 ;;9002226.02101,"1005,58016099828 ",.02)
 ;;58016099828
 ;;9002226.02101,"1005,58016099830 ",.01)
 ;;58016099830
 ;;9002226.02101,"1005,58016099830 ",.02)
 ;;58016099830
 ;;9002226.02101,"1005,58016099832 ",.01)
 ;;58016099832
 ;;9002226.02101,"1005,58016099832 ",.02)
 ;;58016099832
 ;;9002226.02101,"1005,58016099835 ",.01)
 ;;58016099835
 ;;9002226.02101,"1005,58016099835 ",.02)
 ;;58016099835
 ;;9002226.02101,"1005,58016099836 ",.01)
 ;;58016099836
 ;;9002226.02101,"1005,58016099836 ",.02)
 ;;58016099836
 ;;9002226.02101,"1005,58016099840 ",.01)
 ;;58016099840
 ;;9002226.02101,"1005,58016099840 ",.02)
 ;;58016099840
 ;;9002226.02101,"1005,58016099842 ",.01)
 ;;58016099842
 ;;9002226.02101,"1005,58016099842 ",.02)
 ;;58016099842
 ;;9002226.02101,"1005,58016099844 ",.01)
 ;;58016099844
 ;;9002226.02101,"1005,58016099844 ",.02)
 ;;58016099844
 ;;9002226.02101,"1005,58016099845 ",.01)
 ;;58016099845
 ;;9002226.02101,"1005,58016099845 ",.02)
 ;;58016099845
 ;;9002226.02101,"1005,58016099848 ",.01)
 ;;58016099848
 ;;9002226.02101,"1005,58016099848 ",.02)
 ;;58016099848
 ;;9002226.02101,"1005,58016099850 ",.01)
 ;;58016099850
 ;;9002226.02101,"1005,58016099850 ",.02)
 ;;58016099850
 ;;9002226.02101,"1005,58016099856 ",.01)
 ;;58016099856
 ;;9002226.02101,"1005,58016099856 ",.02)
 ;;58016099856
 ;;9002226.02101,"1005,58016099860 ",.01)
 ;;58016099860
 ;;9002226.02101,"1005,58016099860 ",.02)
 ;;58016099860
 ;;9002226.02101,"1005,58016099867 ",.01)
 ;;58016099867
 ;;9002226.02101,"1005,58016099867 ",.02)
 ;;58016099867
 ;;9002226.02101,"1005,58016099869 ",.01)
 ;;58016099869
 ;;9002226.02101,"1005,58016099869 ",.02)
 ;;58016099869
 ;;9002226.02101,"1005,58016099870 ",.01)
 ;;58016099870
 ;;9002226.02101,"1005,58016099870 ",.02)
 ;;58016099870
 ;;9002226.02101,"1005,58016099871 ",.01)
 ;;58016099871
 ;;9002226.02101,"1005,58016099871 ",.02)
 ;;58016099871
 ;;9002226.02101,"1005,58016099872 ",.01)
 ;;58016099872
 ;;9002226.02101,"1005,58016099872 ",.02)
 ;;58016099872
 ;;9002226.02101,"1005,58016099873 ",.01)
 ;;58016099873
 ;;9002226.02101,"1005,58016099873 ",.02)
 ;;58016099873
 ;;9002226.02101,"1005,58016099875 ",.01)
 ;;58016099875
 ;;9002226.02101,"1005,58016099875 ",.02)
 ;;58016099875
 ;;9002226.02101,"1005,58016099876 ",.01)
 ;;58016099876
 ;;9002226.02101,"1005,58016099876 ",.02)
 ;;58016099876
 ;;9002226.02101,"1005,58016099877 ",.01)
 ;;58016099877
 ;;9002226.02101,"1005,58016099877 ",.02)
 ;;58016099877
 ;;9002226.02101,"1005,58016099879 ",.01)
 ;;58016099879
 ;;9002226.02101,"1005,58016099879 ",.02)
 ;;58016099879
 ;;9002226.02101,"1005,58016099880 ",.01)
 ;;58016099880
 ;;9002226.02101,"1005,58016099880 ",.02)
 ;;58016099880
 ;;9002226.02101,"1005,58016099881 ",.01)
 ;;58016099881
 ;;9002226.02101,"1005,58016099881 ",.02)
 ;;58016099881
 ;;9002226.02101,"1005,58016099882 ",.01)
 ;;58016099882
 ;;9002226.02101,"1005,58016099882 ",.02)
 ;;58016099882
 ;;9002226.02101,"1005,58016099883 ",.01)
 ;;58016099883
 ;;9002226.02101,"1005,58016099883 ",.02)
 ;;58016099883
 ;;9002226.02101,"1005,58016099884 ",.01)
 ;;58016099884
 ;;9002226.02101,"1005,58016099884 ",.02)
 ;;58016099884
 ;;9002226.02101,"1005,58016099887 ",.01)
 ;;58016099887
 ;;9002226.02101,"1005,58016099887 ",.02)
 ;;58016099887
 ;;9002226.02101,"1005,58016099889 ",.01)
 ;;58016099889
 ;;9002226.02101,"1005,58016099889 ",.02)
 ;;58016099889
 ;;9002226.02101,"1005,58016099890 ",.01)
 ;;58016099890
 ;;9002226.02101,"1005,58016099890 ",.02)
 ;;58016099890
 ;;9002226.02101,"1005,58016099891 ",.01)
 ;;58016099891
 ;;9002226.02101,"1005,58016099891 ",.02)
 ;;58016099891
 ;;9002226.02101,"1005,58016099892 ",.01)
 ;;58016099892
 ;;9002226.02101,"1005,58016099892 ",.02)
 ;;58016099892
 ;;9002226.02101,"1005,58016099893 ",.01)
 ;;58016099893
 ;;9002226.02101,"1005,58016099893 ",.02)
 ;;58016099893
 ;;9002226.02101,"1005,58016099896 ",.01)
 ;;58016099896
 ;;9002226.02101,"1005,58016099896 ",.02)
 ;;58016099896
 ;;9002226.02101,"1005,58016099897 ",.01)
 ;;58016099897
 ;;9002226.02101,"1005,58016099897 ",.02)
 ;;58016099897
 ;;9002226.02101,"1005,58016099898 ",.01)
 ;;58016099898
 ;;9002226.02101,"1005,58016099898 ",.02)
 ;;58016099898
 ;;9002226.02101,"1005,58016099899 ",.01)
 ;;58016099899
 ;;9002226.02101,"1005,58016099899 ",.02)
 ;;58016099899
 ;;9002226.02101,"1005,58016463101 ",.01)
 ;;58016463101
 ;;9002226.02101,"1005,58016463101 ",.02)
 ;;58016463101
 ;;9002226.02101,"1005,58087007630 ",.01)
 ;;58087007630