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

BGPM5AC.m

Go to the documentation of this file.
  1. BGPM5AC ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"830,58016077218 ",.02)
  1. ;;58016077218
  1. ;;9002226.02101,"830,58016077220 ",.01)
  1. ;;58016077220
  1. ;;9002226.02101,"830,58016077220 ",.02)
  1. ;;58016077220
  1. ;;9002226.02101,"830,58016077221 ",.01)
  1. ;;58016077221
  1. ;;9002226.02101,"830,58016077221 ",.02)
  1. ;;58016077221
  1. ;;9002226.02101,"830,58016077224 ",.01)
  1. ;;58016077224
  1. ;;9002226.02101,"830,58016077224 ",.02)
  1. ;;58016077224
  1. ;;9002226.02101,"830,58016077225 ",.01)
  1. ;;58016077225
  1. ;;9002226.02101,"830,58016077225 ",.02)
  1. ;;58016077225
  1. ;;9002226.02101,"830,58016077226 ",.01)
  1. ;;58016077226
  1. ;;9002226.02101,"830,58016077226 ",.02)
  1. ;;58016077226
  1. ;;9002226.02101,"830,58016077227 ",.01)
  1. ;;58016077227
  1. ;;9002226.02101,"830,58016077227 ",.02)
  1. ;;58016077227
  1. ;;9002226.02101,"830,58016077228 ",.01)
  1. ;;58016077228
  1. ;;9002226.02101,"830,58016077228 ",.02)
  1. ;;58016077228
  1. ;;9002226.02101,"830,58016077230 ",.01)
  1. ;;58016077230
  1. ;;9002226.02101,"830,58016077230 ",.02)
  1. ;;58016077230
  1. ;;9002226.02101,"830,58016077232 ",.01)
  1. ;;58016077232
  1. ;;9002226.02101,"830,58016077232 ",.02)
  1. ;;58016077232
  1. ;;9002226.02101,"830,58016077235 ",.01)
  1. ;;58016077235
  1. ;;9002226.02101,"830,58016077235 ",.02)
  1. ;;58016077235
  1. ;;9002226.02101,"830,58016077236 ",.01)
  1. ;;58016077236
  1. ;;9002226.02101,"830,58016077236 ",.02)
  1. ;;58016077236
  1. ;;9002226.02101,"830,58016077240 ",.01)
  1. ;;58016077240
  1. ;;9002226.02101,"830,58016077240 ",.02)
  1. ;;58016077240
  1. ;;9002226.02101,"830,58016077242 ",.01)
  1. ;;58016077242
  1. ;;9002226.02101,"830,58016077242 ",.02)
  1. ;;58016077242
  1. ;;9002226.02101,"830,58016077244 ",.01)
  1. ;;58016077244
  1. ;;9002226.02101,"830,58016077244 ",.02)
  1. ;;58016077244
  1. ;;9002226.02101,"830,58016077245 ",.01)
  1. ;;58016077245
  1. ;;9002226.02101,"830,58016077245 ",.02)
  1. ;;58016077245
  1. ;;9002226.02101,"830,58016077248 ",.01)
  1. ;;58016077248
  1. ;;9002226.02101,"830,58016077248 ",.02)
  1. ;;58016077248
  1. ;;9002226.02101,"830,58016077250 ",.01)
  1. ;;58016077250
  1. ;;9002226.02101,"830,58016077250 ",.02)
  1. ;;58016077250
  1. ;;9002226.02101,"830,58016077256 ",.01)
  1. ;;58016077256
  1. ;;9002226.02101,"830,58016077256 ",.02)
  1. ;;58016077256
  1. ;;9002226.02101,"830,58016077260 ",.01)
  1. ;;58016077260
  1. ;;9002226.02101,"830,58016077260 ",.02)
  1. ;;58016077260
  1. ;;9002226.02101,"830,58016077267 ",.01)
  1. ;;58016077267
  1. ;;9002226.02101,"830,58016077267 ",.02)
  1. ;;58016077267
  1. ;;9002226.02101,"830,58016077269 ",.01)
  1. ;;58016077269
  1. ;;9002226.02101,"830,58016077269 ",.02)
  1. ;;58016077269
  1. ;;9002226.02101,"830,58016077270 ",.01)
  1. ;;58016077270
  1. ;;9002226.02101,"830,58016077270 ",.02)
  1. ;;58016077270
  1. ;;9002226.02101,"830,58016077271 ",.01)
  1. ;;58016077271
  1. ;;9002226.02101,"830,58016077271 ",.02)
  1. ;;58016077271
  1. ;;9002226.02101,"830,58016077272 ",.01)
  1. ;;58016077272
  1. ;;9002226.02101,"830,58016077272 ",.02)
  1. ;;58016077272
  1. ;;9002226.02101,"830,58016077273 ",.01)
  1. ;;58016077273
  1. ;;9002226.02101,"830,58016077273 ",.02)
  1. ;;58016077273
  1. ;;9002226.02101,"830,58016077275 ",.01)
  1. ;;58016077275
  1. ;;9002226.02101,"830,58016077275 ",.02)
  1. ;;58016077275
  1. ;;9002226.02101,"830,58016077276 ",.01)
  1. ;;58016077276
  1. ;;9002226.02101,"830,58016077276 ",.02)
  1. ;;58016077276
  1. ;;9002226.02101,"830,58016077277 ",.01)
  1. ;;58016077277
  1. ;;9002226.02101,"830,58016077277 ",.02)
  1. ;;58016077277
  1. ;;9002226.02101,"830,58016077279 ",.01)
  1. ;;58016077279
  1. ;;9002226.02101,"830,58016077279 ",.02)
  1. ;;58016077279
  1. ;;9002226.02101,"830,58016077280 ",.01)
  1. ;;58016077280
  1. ;;9002226.02101,"830,58016077280 ",.02)
  1. ;;58016077280
  1. ;;9002226.02101,"830,58016077281 ",.01)
  1. ;;58016077281
  1. ;;9002226.02101,"830,58016077281 ",.02)
  1. ;;58016077281
  1. ;;9002226.02101,"830,58016077282 ",.01)
  1. ;;58016077282
  1. ;;9002226.02101,"830,58016077282 ",.02)
  1. ;;58016077282
  1. ;;9002226.02101,"830,58016077283 ",.01)
  1. ;;58016077283
  1. ;;9002226.02101,"830,58016077283 ",.02)
  1. ;;58016077283
  1. ;;9002226.02101,"830,58016077284 ",.01)
  1. ;;58016077284
  1. ;;9002226.02101,"830,58016077284 ",.02)
  1. ;;58016077284
  1. ;;9002226.02101,"830,58016077287 ",.01)
  1. ;;58016077287
  1. ;;9002226.02101,"830,58016077287 ",.02)
  1. ;;58016077287
  1. ;;9002226.02101,"830,58016077289 ",.01)
  1. ;;58016077289
  1. ;;9002226.02101,"830,58016077289 ",.02)
  1. ;;58016077289
  1. ;;9002226.02101,"830,58016077290 ",.01)
  1. ;;58016077290
  1. ;;9002226.02101,"830,58016077290 ",.02)
  1. ;;58016077290
  1. ;;9002226.02101,"830,58016077291 ",.01)
  1. ;;58016077291
  1. ;;9002226.02101,"830,58016077291 ",.02)
  1. ;;58016077291
  1. ;;9002226.02101,"830,58016077292 ",.01)
  1. ;;58016077292
  1. ;;9002226.02101,"830,58016077292 ",.02)
  1. ;;58016077292
  1. ;;9002226.02101,"830,58016077293 ",.01)
  1. ;;58016077293
  1. ;;9002226.02101,"830,58016077293 ",.02)
  1. ;;58016077293
  1. ;;9002226.02101,"830,58016077296 ",.01)
  1. ;;58016077296
  1. ;;9002226.02101,"830,58016077296 ",.02)
  1. ;;58016077296
  1. ;;9002226.02101,"830,58016077297 ",.01)
  1. ;;58016077297
  1. ;;9002226.02101,"830,58016077297 ",.02)
  1. ;;58016077297
  1. ;;9002226.02101,"830,58016077298 ",.01)
  1. ;;58016077298
  1. ;;9002226.02101,"830,58016077298 ",.02)
  1. ;;58016077298
  1. ;;9002226.02101,"830,58016077299 ",.01)
  1. ;;58016077299
  1. ;;9002226.02101,"830,58016077299 ",.02)
  1. ;;58016077299
  1. ;;9002226.02101,"830,58016088300 ",.01)
  1. ;;58016088300
  1. ;;9002226.02101,"830,58016088300 ",.02)
  1. ;;58016088300
  1. ;;9002226.02101,"830,58016088330 ",.01)
  1. ;;58016088330
  1. ;;9002226.02101,"830,58016088330 ",.02)
  1. ;;58016088330
  1. ;;9002226.02101,"830,58016088360 ",.01)
  1. ;;58016088360
  1. ;;9002226.02101,"830,58016088360 ",.02)
  1. ;;58016088360
  1. ;;9002226.02101,"830,58016088390 ",.01)
  1. ;;58016088390
  1. ;;9002226.02101,"830,58016088390 ",.02)
  1. ;;58016088390
  1. ;;9002226.02101,"830,58864001528 ",.01)
  1. ;;58864001528
  1. ;;9002226.02101,"830,58864001528 ",.02)
  1. ;;58864001528
  1. ;;9002226.02101,"830,58864001530 ",.01)
  1. ;;58864001530
  1. ;;9002226.02101,"830,58864001530 ",.02)
  1. ;;58864001530
  1. ;;9002226.02101,"830,58864001560 ",.01)
  1. ;;58864001560
  1. ;;9002226.02101,"830,58864001560 ",.02)
  1. ;;58864001560
  1. ;;9002226.02101,"830,58864001590 ",.01)
  1. ;;58864001590
  1. ;;9002226.02101,"830,58864001590 ",.02)
  1. ;;58864001590
  1. ;;9002226.02101,"830,58864069330 ",.01)
  1. ;;58864069330
  1. ;;9002226.02101,"830,58864069330 ",.02)
  1. ;;58864069330
  1. ;;9002226.02101,"830,58864069360 ",.01)
  1. ;;58864069360
  1. ;;9002226.02101,"830,58864069360 ",.02)
  1. ;;58864069360
  1. ;;9002226.02101,"830,58864078930 ",.01)
  1. ;;58864078930
  1. ;;9002226.02101,"830,58864078930 ",.02)
  1. ;;58864078930
  1. ;;9002226.02101,"830,58864078960 ",.01)
  1. ;;58864078960
  1. ;;9002226.02101,"830,58864078960 ",.02)
  1. ;;58864078960
  1. ;;9002226.02101,"830,58864085130 ",.01)
  1. ;;58864085130
  1. ;;9002226.02101,"830,58864085130 ",.02)
  1. ;;58864085130
  1. ;;9002226.02101,"830,58864095230 ",.01)
  1. ;;58864095230
  1. ;;9002226.02101,"830,58864095230 ",.02)
  1. ;;58864095230
  1. ;;9002226.02101,"830,58864095330 ",.01)
  1. ;;58864095330
  1. ;;9002226.02101,"830,58864095330 ",.02)
  1. ;;58864095330
  1. ;;9002226.02101,"830,59762233003 ",.01)
  1. ;;59762233003
  1. ;;9002226.02101,"830,59762233003 ",.02)
  1. ;;59762233003
  1. ;;9002226.02101,"830,59762233005 ",.01)
  1. ;;59762233005
  1. ;;9002226.02101,"830,59762233005 ",.02)
  1. ;;59762233005
  1. ;;9002226.02101,"830,59762233007 ",.01)
  1. ;;59762233007
  1. ;;9002226.02101,"830,59762233007 ",.02)
  1. ;;59762233007
  1. ;;9002226.02101,"830,59762233103 ",.01)
  1. ;;59762233103
  1. ;;9002226.02101,"830,59762233103 ",.02)
  1. ;;59762233103
  1. ;;9002226.02101,"830,59762233106 ",.01)
  1. ;;59762233106
  1. ;;9002226.02101,"830,59762233106 ",.02)
  1. ;;59762233106
  1. ;;9002226.02101,"830,59762233108 ",.01)
  1. ;;59762233108
  1. ;;9002226.02101,"830,59762233108 ",.02)
  1. ;;59762233108
  1. ;;9002226.02101,"830,59762233203 ",.01)
  1. ;;59762233203
  1. ;;9002226.02101,"830,59762233203 ",.02)
  1. ;;59762233203
  1. ;;9002226.02101,"830,59762233206 ",.01)
  1. ;;59762233206
  1. ;;9002226.02101,"830,59762233206 ",.02)
  1. ;;59762233206
  1. ;;9002226.02101,"830,59762233208 ",.01)
  1. ;;59762233208
  1. ;;9002226.02101,"830,59762233208 ",.02)
  1. ;;59762233208
  1. ;;9002226.02101,"830,59762432000 ",.01)
  1. ;;59762432000
  1. ;;9002226.02101,"830,59762432000 ",.02)
  1. ;;59762432000
  1. ;;9002226.02101,"830,59762432002 ",.01)
  1. ;;59762432002
  1. ;;9002226.02101,"830,59762432002 ",.02)
  1. ;;59762432002
  1. ;;9002226.02101,"830,59762432006 ",.01)
  1. ;;59762432006
  1. ;;9002226.02101,"830,59762432006 ",.02)
  1. ;;59762432006
  1. ;;9002226.02101,"830,59762432100 ",.01)
  1. ;;59762432100
  1. ;;9002226.02101,"830,59762432100 ",.02)
  1. ;;59762432100
  1. ;;9002226.02101,"830,59762432102 ",.01)
  1. ;;59762432102
  1. ;;9002226.02101,"830,59762432102 ",.02)
  1. ;;59762432102
  1. ;;9002226.02101,"830,59762432106 ",.01)
  1. ;;59762432106
  1. ;;9002226.02101,"830,59762432106 ",.02)
  1. ;;59762432106
  1. ;;9002226.02101,"830,59762432200 ",.01)
  1. ;;59762432200
  1. ;;9002226.02101,"830,59762432200 ",.02)
  1. ;;59762432200
  1. ;;9002226.02101,"830,59762432202 ",.01)
  1. ;;59762432202
  1. ;;9002226.02101,"830,59762432202 ",.02)
  1. ;;59762432202
  1. ;;9002226.02101,"830,59762432206 ",.01)
  1. ;;59762432206
  1. ;;9002226.02101,"830,59762432206 ",.02)
  1. ;;59762432206
  1. ;;9002226.02101,"830,60429072218 ",.01)
  1. ;;60429072218
  1. ;;9002226.02101,"830,60429072218 ",.02)
  1. ;;60429072218
  1. ;;9002226.02101,"830,60429072260 ",.01)
  1. ;;60429072260
  1. ;;9002226.02101,"830,60429072260 ",.02)
  1. ;;60429072260
  1. ;;9002226.02101,"830,60429072301 ",.01)
  1. ;;60429072301
  1. ;;9002226.02101,"830,60429072301 ",.02)
  1. ;;60429072301
  1. ;;9002226.02101,"830,60429072305 ",.01)
  1. ;;60429072305
  1. ;;9002226.02101,"830,60429072305 ",.02)
  1. ;;60429072305
  1. ;;9002226.02101,"830,60429072312 ",.01)
  1. ;;60429072312
  1. ;;9002226.02101,"830,60429072312 ",.02)
  1. ;;60429072312
  1. ;;9002226.02101,"830,60429072318 ",.01)
  1. ;;60429072318
  1. ;;9002226.02101,"830,60429072318 ",.02)
  1. ;;60429072318
  1. ;;9002226.02101,"830,60429072360 ",.01)
  1. ;;60429072360
  1. ;;9002226.02101,"830,60429072360 ",.02)
  1. ;;60429072360
  1. ;;9002226.02101,"830,60429072390 ",.01)
  1. ;;60429072390
  1. ;;9002226.02101,"830,60429072390 ",.02)
  1. ;;60429072390
  1. ;;9002226.02101,"830,60429072418 ",.01)
  1. ;;60429072418
  1. ;;9002226.02101,"830,60429072418 ",.02)
  1. ;;60429072418
  1. ;;9002226.02101,"830,60429072460 ",.01)
  1. ;;60429072460
  1. ;;9002226.02101,"830,60429072460 ",.02)
  1. ;;60429072460
  1. ;;9002226.02101,"830,60429072505 ",.01)
  1. ;;60429072505
  1. ;;9002226.02101,"830,60429072505 ",.02)
  1. ;;60429072505
  1. ;;9002226.02101,"830,60429072518 ",.01)
  1. ;;60429072518
  1. ;;9002226.02101,"830,60429072518 ",.02)
  1. ;;60429072518
  1. ;;9002226.02101,"830,60429072560 ",.01)
  1. ;;60429072560
  1. ;;9002226.02101,"830,60429072560 ",.02)
  1. ;;60429072560
  1. ;;9002226.02101,"830,60429072590 ",.01)
  1. ;;60429072590
  1. ;;9002226.02101,"830,60429072590 ",.02)
  1. ;;60429072590
  1. ;;9002226.02101,"830,60505019000 ",.01)
  1. ;;60505019000
  1. ;;9002226.02101,"830,60505019000 ",.02)
  1. ;;60505019000
  1. ;;9002226.02101,"830,60505019001 ",.01)
  1. ;;60505019001
  1. ;;9002226.02101,"830,60505019001 ",.02)
  1. ;;60505019001
  1. ;;9002226.02101,"830,60505019004 ",.01)
  1. ;;60505019004
  1. ;;9002226.02101,"830,60505019004 ",.02)
  1. ;;60505019004
  1. ;;9002226.02101,"830,60505019008 ",.01)
  1. ;;60505019008
  1. ;;9002226.02101,"830,60505019008 ",.02)
  1. ;;60505019008
  1. ;;9002226.02101,"830,60505019100 ",.01)
  1. ;;60505019100
  1. ;;9002226.02101,"830,60505019100 ",.02)
  1. ;;60505019100
  1. ;;9002226.02101,"830,60505019101 ",.01)
  1. ;;60505019101
  1. ;;9002226.02101,"830,60505019101 ",.02)
  1. ;;60505019101
  1. ;;9002226.02101,"830,60505019104 ",.01)
  1. ;;60505019104
  1. ;;9002226.02101,"830,60505019104 ",.02)
  1. ;;60505019104
  1. ;;9002226.02101,"830,60505019108 ",.01)
  1. ;;60505019108
  1. ;;9002226.02101,"830,60505019108 ",.02)
  1. ;;60505019108
  1. ;;9002226.02101,"830,60505019200 ",.01)
  1. ;;60505019200
  1. ;;9002226.02101,"830,60505019200 ",.02)
  1. ;;60505019200
  1. ;;9002226.02101,"830,60505019201 ",.01)
  1. ;;60505019201
  1. ;;9002226.02101,"830,60505019201 ",.02)
  1. ;;60505019201
  1. ;;9002226.02101,"830,60505019204 ",.01)
  1. ;;60505019204