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

BGPM5AWN.m

Go to the documentation of this file.
  1. BGPM5AWN ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,63874010918 ",.01)
  1. ;;63874010918
  1. ;;9002226.02101,"1033,63874010918 ",.02)
  1. ;;63874010918
  1. ;;9002226.02101,"1033,63874010920 ",.01)
  1. ;;63874010920
  1. ;;9002226.02101,"1033,63874010920 ",.02)
  1. ;;63874010920
  1. ;;9002226.02101,"1033,63874010921 ",.01)
  1. ;;63874010921
  1. ;;9002226.02101,"1033,63874010921 ",.02)
  1. ;;63874010921
  1. ;;9002226.02101,"1033,63874010924 ",.01)
  1. ;;63874010924
  1. ;;9002226.02101,"1033,63874010924 ",.02)
  1. ;;63874010924
  1. ;;9002226.02101,"1033,63874010928 ",.01)
  1. ;;63874010928
  1. ;;9002226.02101,"1033,63874010928 ",.02)
  1. ;;63874010928
  1. ;;9002226.02101,"1033,63874010930 ",.01)
  1. ;;63874010930
  1. ;;9002226.02101,"1033,63874010930 ",.02)
  1. ;;63874010930
  1. ;;9002226.02101,"1033,63874010940 ",.01)
  1. ;;63874010940
  1. ;;9002226.02101,"1033,63874010940 ",.02)
  1. ;;63874010940
  1. ;;9002226.02101,"1033,63874010950 ",.01)
  1. ;;63874010950
  1. ;;9002226.02101,"1033,63874010950 ",.02)
  1. ;;63874010950
  1. ;;9002226.02101,"1033,63874010960 ",.01)
  1. ;;63874010960
  1. ;;9002226.02101,"1033,63874010960 ",.02)
  1. ;;63874010960
  1. ;;9002226.02101,"1033,63874011001 ",.01)
  1. ;;63874011001
  1. ;;9002226.02101,"1033,63874011001 ",.02)
  1. ;;63874011001
  1. ;;9002226.02101,"1033,63874011020 ",.01)
  1. ;;63874011020
  1. ;;9002226.02101,"1033,63874011020 ",.02)
  1. ;;63874011020
  1. ;;9002226.02101,"1033,63874011028 ",.01)
  1. ;;63874011028
  1. ;;9002226.02101,"1033,63874011028 ",.02)
  1. ;;63874011028
  1. ;;9002226.02101,"1033,63874011030 ",.01)
  1. ;;63874011030
  1. ;;9002226.02101,"1033,63874011030 ",.02)
  1. ;;63874011030
  1. ;;9002226.02101,"1033,63874011040 ",.01)
  1. ;;63874011040
  1. ;;9002226.02101,"1033,63874011040 ",.02)
  1. ;;63874011040
  1. ;;9002226.02101,"1033,63874011050 ",.01)
  1. ;;63874011050
  1. ;;9002226.02101,"1033,63874011050 ",.02)
  1. ;;63874011050
  1. ;;9002226.02101,"1033,63874011101 ",.01)
  1. ;;63874011101
  1. ;;9002226.02101,"1033,63874011101 ",.02)
  1. ;;63874011101
  1. ;;9002226.02101,"1033,63874011103 ",.01)
  1. ;;63874011103
  1. ;;9002226.02101,"1033,63874011103 ",.02)
  1. ;;63874011103
  1. ;;9002226.02101,"1033,63874011104 ",.01)
  1. ;;63874011104
  1. ;;9002226.02101,"1033,63874011104 ",.02)
  1. ;;63874011104
  1. ;;9002226.02101,"1033,63874011112 ",.01)
  1. ;;63874011112
  1. ;;9002226.02101,"1033,63874011112 ",.02)
  1. ;;63874011112
  1. ;;9002226.02101,"1033,63874011114 ",.01)
  1. ;;63874011114
  1. ;;9002226.02101,"1033,63874011114 ",.02)
  1. ;;63874011114
  1. ;;9002226.02101,"1033,63874011115 ",.01)
  1. ;;63874011115
  1. ;;9002226.02101,"1033,63874011115 ",.02)
  1. ;;63874011115
  1. ;;9002226.02101,"1033,63874011116 ",.01)
  1. ;;63874011116
  1. ;;9002226.02101,"1033,63874011116 ",.02)
  1. ;;63874011116
  1. ;;9002226.02101,"1033,63874011120 ",.01)
  1. ;;63874011120
  1. ;;9002226.02101,"1033,63874011120 ",.02)
  1. ;;63874011120
  1. ;;9002226.02101,"1033,63874011121 ",.01)
  1. ;;63874011121
  1. ;;9002226.02101,"1033,63874011121 ",.02)
  1. ;;63874011121
  1. ;;9002226.02101,"1033,63874011124 ",.01)
  1. ;;63874011124
  1. ;;9002226.02101,"1033,63874011124 ",.02)
  1. ;;63874011124
  1. ;;9002226.02101,"1033,63874011128 ",.01)
  1. ;;63874011128
  1. ;;9002226.02101,"1033,63874011128 ",.02)
  1. ;;63874011128
  1. ;;9002226.02101,"1033,63874011130 ",.01)
  1. ;;63874011130
  1. ;;9002226.02101,"1033,63874011130 ",.02)
  1. ;;63874011130
  1. ;;9002226.02101,"1033,63874011140 ",.01)
  1. ;;63874011140
  1. ;;9002226.02101,"1033,63874011140 ",.02)
  1. ;;63874011140
  1. ;;9002226.02101,"1033,63874011150 ",.01)
  1. ;;63874011150
  1. ;;9002226.02101,"1033,63874011150 ",.02)
  1. ;;63874011150
  1. ;;9002226.02101,"1033,63874011156 ",.01)
  1. ;;63874011156
  1. ;;9002226.02101,"1033,63874011156 ",.02)
  1. ;;63874011156
  1. ;;9002226.02101,"1033,63874011160 ",.01)
  1. ;;63874011160
  1. ;;9002226.02101,"1033,63874011160 ",.02)
  1. ;;63874011160
  1. ;;9002226.02101,"1033,63874011172 ",.01)
  1. ;;63874011172
  1. ;;9002226.02101,"1033,63874011172 ",.02)
  1. ;;63874011172
  1. ;;9002226.02101,"1033,63874011174 ",.01)
  1. ;;63874011174
  1. ;;9002226.02101,"1033,63874011174 ",.02)
  1. ;;63874011174
  1. ;;9002226.02101,"1033,63874011177 ",.01)
  1. ;;63874011177
  1. ;;9002226.02101,"1033,63874011177 ",.02)
  1. ;;63874011177
  1. ;;9002226.02101,"1033,63874011180 ",.01)
  1. ;;63874011180
  1. ;;9002226.02101,"1033,63874011180 ",.02)
  1. ;;63874011180
  1. ;;9002226.02101,"1033,63874011201 ",.01)
  1. ;;63874011201
  1. ;;9002226.02101,"1033,63874011201 ",.02)
  1. ;;63874011201
  1. ;;9002226.02101,"1033,63874011203 ",.01)
  1. ;;63874011203
  1. ;;9002226.02101,"1033,63874011203 ",.02)
  1. ;;63874011203
  1. ;;9002226.02101,"1033,63874011204 ",.01)
  1. ;;63874011204
  1. ;;9002226.02101,"1033,63874011204 ",.02)
  1. ;;63874011204
  1. ;;9002226.02101,"1033,63874011205 ",.01)
  1. ;;63874011205
  1. ;;9002226.02101,"1033,63874011205 ",.02)
  1. ;;63874011205
  1. ;;9002226.02101,"1033,63874011206 ",.01)
  1. ;;63874011206
  1. ;;9002226.02101,"1033,63874011206 ",.02)
  1. ;;63874011206
  1. ;;9002226.02101,"1033,63874011208 ",.01)
  1. ;;63874011208
  1. ;;9002226.02101,"1033,63874011208 ",.02)
  1. ;;63874011208
  1. ;;9002226.02101,"1033,63874011210 ",.01)
  1. ;;63874011210
  1. ;;9002226.02101,"1033,63874011210 ",.02)
  1. ;;63874011210
  1. ;;9002226.02101,"1033,63874011212 ",.01)
  1. ;;63874011212
  1. ;;9002226.02101,"1033,63874011212 ",.02)
  1. ;;63874011212
  1. ;;9002226.02101,"1033,63874011214 ",.01)
  1. ;;63874011214
  1. ;;9002226.02101,"1033,63874011214 ",.02)
  1. ;;63874011214
  1. ;;9002226.02101,"1033,63874011215 ",.01)
  1. ;;63874011215
  1. ;;9002226.02101,"1033,63874011215 ",.02)
  1. ;;63874011215
  1. ;;9002226.02101,"1033,63874011216 ",.01)
  1. ;;63874011216
  1. ;;9002226.02101,"1033,63874011216 ",.02)
  1. ;;63874011216
  1. ;;9002226.02101,"1033,63874011218 ",.01)
  1. ;;63874011218
  1. ;;9002226.02101,"1033,63874011218 ",.02)
  1. ;;63874011218
  1. ;;9002226.02101,"1033,63874011220 ",.01)
  1. ;;63874011220
  1. ;;9002226.02101,"1033,63874011220 ",.02)
  1. ;;63874011220
  1. ;;9002226.02101,"1033,63874011221 ",.01)
  1. ;;63874011221
  1. ;;9002226.02101,"1033,63874011221 ",.02)
  1. ;;63874011221
  1. ;;9002226.02101,"1033,63874011224 ",.01)
  1. ;;63874011224
  1. ;;9002226.02101,"1033,63874011224 ",.02)
  1. ;;63874011224
  1. ;;9002226.02101,"1033,63874011225 ",.01)
  1. ;;63874011225
  1. ;;9002226.02101,"1033,63874011225 ",.02)
  1. ;;63874011225
  1. ;;9002226.02101,"1033,63874011228 ",.01)
  1. ;;63874011228
  1. ;;9002226.02101,"1033,63874011228 ",.02)
  1. ;;63874011228
  1. ;;9002226.02101,"1033,63874011230 ",.01)
  1. ;;63874011230
  1. ;;9002226.02101,"1033,63874011230 ",.02)
  1. ;;63874011230
  1. ;;9002226.02101,"1033,63874011240 ",.01)
  1. ;;63874011240
  1. ;;9002226.02101,"1033,63874011240 ",.02)
  1. ;;63874011240
  1. ;;9002226.02101,"1033,63874011250 ",.01)
  1. ;;63874011250
  1. ;;9002226.02101,"1033,63874011250 ",.02)
  1. ;;63874011250
  1. ;;9002226.02101,"1033,63874011256 ",.01)
  1. ;;63874011256
  1. ;;9002226.02101,"1033,63874011256 ",.02)
  1. ;;63874011256
  1. ;;9002226.02101,"1033,63874011260 ",.01)
  1. ;;63874011260
  1. ;;9002226.02101,"1033,63874011260 ",.02)
  1. ;;63874011260
  1. ;;9002226.02101,"1033,63874011272 ",.01)
  1. ;;63874011272
  1. ;;9002226.02101,"1033,63874011272 ",.02)
  1. ;;63874011272
  1. ;;9002226.02101,"1033,63874011274 ",.01)
  1. ;;63874011274
  1. ;;9002226.02101,"1033,63874011274 ",.02)
  1. ;;63874011274
  1. ;;9002226.02101,"1033,63874011277 ",.01)
  1. ;;63874011277
  1. ;;9002226.02101,"1033,63874011277 ",.02)
  1. ;;63874011277
  1. ;;9002226.02101,"1033,63874011301 ",.01)
  1. ;;63874011301
  1. ;;9002226.02101,"1033,63874011301 ",.02)
  1. ;;63874011301
  1. ;;9002226.02101,"1033,63874011303 ",.01)
  1. ;;63874011303
  1. ;;9002226.02101,"1033,63874011303 ",.02)
  1. ;;63874011303
  1. ;;9002226.02101,"1033,63874011308 ",.01)
  1. ;;63874011308
  1. ;;9002226.02101,"1033,63874011308 ",.02)
  1. ;;63874011308
  1. ;;9002226.02101,"1033,63874011309 ",.01)
  1. ;;63874011309
  1. ;;9002226.02101,"1033,63874011309 ",.02)
  1. ;;63874011309
  1. ;;9002226.02101,"1033,63874011310 ",.01)
  1. ;;63874011310
  1. ;;9002226.02101,"1033,63874011310 ",.02)
  1. ;;63874011310
  1. ;;9002226.02101,"1033,63874011312 ",.01)
  1. ;;63874011312
  1. ;;9002226.02101,"1033,63874011312 ",.02)
  1. ;;63874011312
  1. ;;9002226.02101,"1033,63874011314 ",.01)
  1. ;;63874011314
  1. ;;9002226.02101,"1033,63874011314 ",.02)
  1. ;;63874011314
  1. ;;9002226.02101,"1033,63874011315 ",.01)
  1. ;;63874011315
  1. ;;9002226.02101,"1033,63874011315 ",.02)
  1. ;;63874011315
  1. ;;9002226.02101,"1033,63874011320 ",.01)
  1. ;;63874011320
  1. ;;9002226.02101,"1033,63874011320 ",.02)
  1. ;;63874011320
  1. ;;9002226.02101,"1033,63874011321 ",.01)
  1. ;;63874011321
  1. ;;9002226.02101,"1033,63874011321 ",.02)
  1. ;;63874011321
  1. ;;9002226.02101,"1033,63874011324 ",.01)
  1. ;;63874011324
  1. ;;9002226.02101,"1033,63874011324 ",.02)
  1. ;;63874011324
  1. ;;9002226.02101,"1033,63874011328 ",.01)
  1. ;;63874011328
  1. ;;9002226.02101,"1033,63874011328 ",.02)
  1. ;;63874011328
  1. ;;9002226.02101,"1033,63874011330 ",.01)
  1. ;;63874011330
  1. ;;9002226.02101,"1033,63874011330 ",.02)
  1. ;;63874011330
  1. ;;9002226.02101,"1033,63874011340 ",.01)
  1. ;;63874011340
  1. ;;9002226.02101,"1033,63874011340 ",.02)
  1. ;;63874011340
  1. ;;9002226.02101,"1033,63874011350 ",.01)
  1. ;;63874011350
  1. ;;9002226.02101,"1033,63874011350 ",.02)
  1. ;;63874011350
  1. ;;9002226.02101,"1033,63874011401 ",.01)
  1. ;;63874011401
  1. ;;9002226.02101,"1033,63874011401 ",.02)
  1. ;;63874011401
  1. ;;9002226.02101,"1033,63874011403 ",.01)
  1. ;;63874011403
  1. ;;9002226.02101,"1033,63874011403 ",.02)
  1. ;;63874011403
  1. ;;9002226.02101,"1033,63874011407 ",.01)
  1. ;;63874011407
  1. ;;9002226.02101,"1033,63874011407 ",.02)
  1. ;;63874011407
  1. ;;9002226.02101,"1033,63874011410 ",.01)
  1. ;;63874011410
  1. ;;9002226.02101,"1033,63874011410 ",.02)
  1. ;;63874011410
  1. ;;9002226.02101,"1033,63874011420 ",.01)
  1. ;;63874011420
  1. ;;9002226.02101,"1033,63874011420 ",.02)
  1. ;;63874011420
  1. ;;9002226.02101,"1033,63874011421 ",.01)
  1. ;;63874011421
  1. ;;9002226.02101,"1033,63874011421 ",.02)
  1. ;;63874011421
  1. ;;9002226.02101,"1033,63874011424 ",.01)
  1. ;;63874011424
  1. ;;9002226.02101,"1033,63874011424 ",.02)
  1. ;;63874011424
  1. ;;9002226.02101,"1033,63874011425 ",.01)
  1. ;;63874011425
  1. ;;9002226.02101,"1033,63874011425 ",.02)
  1. ;;63874011425
  1. ;;9002226.02101,"1033,63874011428 ",.01)
  1. ;;63874011428
  1. ;;9002226.02101,"1033,63874011428 ",.02)
  1. ;;63874011428
  1. ;;9002226.02101,"1033,63874011430 ",.01)
  1. ;;63874011430
  1. ;;9002226.02101,"1033,63874011430 ",.02)
  1. ;;63874011430
  1. ;;9002226.02101,"1033,63874011440 ",.01)
  1. ;;63874011440
  1. ;;9002226.02101,"1033,63874011440 ",.02)
  1. ;;63874011440
  1. ;;9002226.02101,"1033,63874011450 ",.01)
  1. ;;63874011450
  1. ;;9002226.02101,"1033,63874011450 ",.02)
  1. ;;63874011450
  1. ;;9002226.02101,"1033,63874011801 ",.01)
  1. ;;63874011801
  1. ;;9002226.02101,"1033,63874011801 ",.02)
  1. ;;63874011801
  1. ;;9002226.02101,"1033,63874011803 ",.01)
  1. ;;63874011803
  1. ;;9002226.02101,"1033,63874011803 ",.02)
  1. ;;63874011803
  1. ;;9002226.02101,"1033,63874011806 ",.01)
  1. ;;63874011806
  1. ;;9002226.02101,"1033,63874011806 ",.02)
  1. ;;63874011806
  1. ;;9002226.02101,"1033,63874011807 ",.01)
  1. ;;63874011807
  1. ;;9002226.02101,"1033,63874011807 ",.02)
  1. ;;63874011807
  1. ;;9002226.02101,"1033,63874011810 ",.01)
  1. ;;63874011810
  1. ;;9002226.02101,"1033,63874011810 ",.02)
  1. ;;63874011810
  1. ;;9002226.02101,"1033,63874011812 ",.01)
  1. ;;63874011812
  1. ;;9002226.02101,"1033,63874011812 ",.02)
  1. ;;63874011812
  1. ;;9002226.02101,"1033,63874011814 ",.01)
  1. ;;63874011814
  1. ;;9002226.02101,"1033,63874011814 ",.02)
  1. ;;63874011814
  1. ;;9002226.02101,"1033,63874011815 ",.01)
  1. ;;63874011815
  1. ;;9002226.02101,"1033,63874011815 ",.02)
  1. ;;63874011815
  1. ;;9002226.02101,"1033,63874011818 ",.01)
  1. ;;63874011818
  1. ;;9002226.02101,"1033,63874011818 ",.02)
  1. ;;63874011818
  1. ;;9002226.02101,"1033,63874011820 ",.01)
  1. ;;63874011820
  1. ;;9002226.02101,"1033,63874011820 ",.02)
  1. ;;63874011820
  1. ;;9002226.02101,"1033,63874011821 ",.01)
  1. ;;63874011821
  1. ;;9002226.02101,"1033,63874011821 ",.02)
  1. ;;63874011821
  1. ;;9002226.02101,"1033,63874011824 ",.01)
  1. ;;63874011824
  1. ;;9002226.02101,"1033,63874011824 ",.02)
  1. ;;63874011824
  1. ;;9002226.02101,"1033,63874011828 ",.01)
  1. ;;63874011828
  1. ;;9002226.02101,"1033,63874011828 ",.02)
  1. ;;63874011828
  1. ;;9002226.02101,"1033,63874011830 ",.01)
  1. ;;63874011830