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