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

BGPM5BBL.m

Go to the documentation of this file.
  1. BGPM5BBL ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,00247067314 ",.01)
  1. ;;00247067314
  1. ;;9002226.02101,"1044,00247067314 ",.02)
  1. ;;00247067314
  1. ;;9002226.02101,"1044,00247067330 ",.01)
  1. ;;00247067330
  1. ;;9002226.02101,"1044,00247067330 ",.02)
  1. ;;00247067330
  1. ;;9002226.02101,"1044,00247067360 ",.01)
  1. ;;00247067360
  1. ;;9002226.02101,"1044,00247067360 ",.02)
  1. ;;00247067360
  1. ;;9002226.02101,"1044,00247067390 ",.01)
  1. ;;00247067390
  1. ;;9002226.02101,"1044,00247067390 ",.02)
  1. ;;00247067390
  1. ;;9002226.02101,"1044,00247078907 ",.01)
  1. ;;00247078907
  1. ;;9002226.02101,"1044,00247078907 ",.02)
  1. ;;00247078907
  1. ;;9002226.02101,"1044,00247078914 ",.01)
  1. ;;00247078914
  1. ;;9002226.02101,"1044,00247078914 ",.02)
  1. ;;00247078914
  1. ;;9002226.02101,"1044,00247078930 ",.01)
  1. ;;00247078930
  1. ;;9002226.02101,"1044,00247078930 ",.02)
  1. ;;00247078930
  1. ;;9002226.02101,"1044,00247104103 ",.01)
  1. ;;00247104103
  1. ;;9002226.02101,"1044,00247104103 ",.02)
  1. ;;00247104103
  1. ;;9002226.02101,"1044,00247104107 ",.01)
  1. ;;00247104107
  1. ;;9002226.02101,"1044,00247104107 ",.02)
  1. ;;00247104107
  1. ;;9002226.02101,"1044,00247104130 ",.01)
  1. ;;00247104130
  1. ;;9002226.02101,"1044,00247104130 ",.02)
  1. ;;00247104130
  1. ;;9002226.02101,"1044,00247104230 ",.01)
  1. ;;00247104230
  1. ;;9002226.02101,"1044,00247104230 ",.02)
  1. ;;00247104230
  1. ;;9002226.02101,"1044,00247107510 ",.01)
  1. ;;00247107510
  1. ;;9002226.02101,"1044,00247107510 ",.02)
  1. ;;00247107510
  1. ;;9002226.02101,"1044,00247107530 ",.01)
  1. ;;00247107530
  1. ;;9002226.02101,"1044,00247107530 ",.02)
  1. ;;00247107530
  1. ;;9002226.02101,"1044,00247107560 ",.01)
  1. ;;00247107560
  1. ;;9002226.02101,"1044,00247107560 ",.02)
  1. ;;00247107560
  1. ;;9002226.02101,"1044,00247167910 ",.01)
  1. ;;00247167910
  1. ;;9002226.02101,"1044,00247167910 ",.02)
  1. ;;00247167910
  1. ;;9002226.02101,"1044,00247167960 ",.01)
  1. ;;00247167960
  1. ;;9002226.02101,"1044,00247167960 ",.02)
  1. ;;00247167960
  1. ;;9002226.02101,"1044,00247168010 ",.01)
  1. ;;00247168010
  1. ;;9002226.02101,"1044,00247168010 ",.02)
  1. ;;00247168010
  1. ;;9002226.02101,"1044,00247181304 ",.01)
  1. ;;00247181304
  1. ;;9002226.02101,"1044,00247181304 ",.02)
  1. ;;00247181304
  1. ;;9002226.02101,"1044,00247181308 ",.01)
  1. ;;00247181308
  1. ;;9002226.02101,"1044,00247181308 ",.02)
  1. ;;00247181308
  1. ;;9002226.02101,"1044,00247181330 ",.01)
  1. ;;00247181330
  1. ;;9002226.02101,"1044,00247181330 ",.02)
  1. ;;00247181330
  1. ;;9002226.02101,"1044,00247191503 ",.01)
  1. ;;00247191503
  1. ;;9002226.02101,"1044,00247191503 ",.02)
  1. ;;00247191503
  1. ;;9002226.02101,"1044,00247191507 ",.01)
  1. ;;00247191507
  1. ;;9002226.02101,"1044,00247191507 ",.02)
  1. ;;00247191507
  1. ;;9002226.02101,"1044,00247191530 ",.01)
  1. ;;00247191530
  1. ;;9002226.02101,"1044,00247191530 ",.02)
  1. ;;00247191530
  1. ;;9002226.02101,"1044,00247191590 ",.01)
  1. ;;00247191590
  1. ;;9002226.02101,"1044,00247191590 ",.02)
  1. ;;00247191590
  1. ;;9002226.02101,"1044,00247196430 ",.01)
  1. ;;00247196430
  1. ;;9002226.02101,"1044,00247196430 ",.02)
  1. ;;00247196430
  1. ;;9002226.02101,"1044,00247196490 ",.01)
  1. ;;00247196490
  1. ;;9002226.02101,"1044,00247196490 ",.02)
  1. ;;00247196490
  1. ;;9002226.02101,"1044,00247196500 ",.01)
  1. ;;00247196500
  1. ;;9002226.02101,"1044,00247196500 ",.02)
  1. ;;00247196500
  1. ;;9002226.02101,"1044,00247196503 ",.01)
  1. ;;00247196503
  1. ;;9002226.02101,"1044,00247196503 ",.02)
  1. ;;00247196503
  1. ;;9002226.02101,"1044,00247196514 ",.01)
  1. ;;00247196514
  1. ;;9002226.02101,"1044,00247196514 ",.02)
  1. ;;00247196514
  1. ;;9002226.02101,"1044,00247196530 ",.01)
  1. ;;00247196530
  1. ;;9002226.02101,"1044,00247196530 ",.02)
  1. ;;00247196530
  1. ;;9002226.02101,"1044,00247196560 ",.01)
  1. ;;00247196560
  1. ;;9002226.02101,"1044,00247196560 ",.02)
  1. ;;00247196560
  1. ;;9002226.02101,"1044,00247196590 ",.01)
  1. ;;00247196590
  1. ;;9002226.02101,"1044,00247196590 ",.02)
  1. ;;00247196590
  1. ;;9002226.02101,"1044,00247196599 ",.01)
  1. ;;00247196599
  1. ;;9002226.02101,"1044,00247196599 ",.02)
  1. ;;00247196599
  1. ;;9002226.02101,"1044,00247205200 ",.01)
  1. ;;00247205200
  1. ;;9002226.02101,"1044,00247205200 ",.02)
  1. ;;00247205200
  1. ;;9002226.02101,"1044,00247205207 ",.01)
  1. ;;00247205207
  1. ;;9002226.02101,"1044,00247205207 ",.02)
  1. ;;00247205207
  1. ;;9002226.02101,"1044,00247205230 ",.01)
  1. ;;00247205230
  1. ;;9002226.02101,"1044,00247205230 ",.02)
  1. ;;00247205230
  1. ;;9002226.02101,"1044,00247205290 ",.01)
  1. ;;00247205290
  1. ;;9002226.02101,"1044,00247205290 ",.02)
  1. ;;00247205290
  1. ;;9002226.02101,"1044,00247208330 ",.01)
  1. ;;00247208330
  1. ;;9002226.02101,"1044,00247208330 ",.02)
  1. ;;00247208330
  1. ;;9002226.02101,"1044,00247208360 ",.01)
  1. ;;00247208360
  1. ;;9002226.02101,"1044,00247208360 ",.02)
  1. ;;00247208360
  1. ;;9002226.02101,"1044,00247208390 ",.01)
  1. ;;00247208390
  1. ;;9002226.02101,"1044,00247208390 ",.02)
  1. ;;00247208390
  1. ;;9002226.02101,"1044,00247208430 ",.01)
  1. ;;00247208430
  1. ;;9002226.02101,"1044,00247208430 ",.02)
  1. ;;00247208430
  1. ;;9002226.02101,"1044,00247208460 ",.01)
  1. ;;00247208460
  1. ;;9002226.02101,"1044,00247208460 ",.02)
  1. ;;00247208460
  1. ;;9002226.02101,"1044,00247208530 ",.01)
  1. ;;00247208530
  1. ;;9002226.02101,"1044,00247208530 ",.02)
  1. ;;00247208530
  1. ;;9002226.02101,"1044,00247209430 ",.01)
  1. ;;00247209430
  1. ;;9002226.02101,"1044,00247209430 ",.02)
  1. ;;00247209430
  1. ;;9002226.02101,"1044,00247209490 ",.01)
  1. ;;00247209490
  1. ;;9002226.02101,"1044,00247209490 ",.02)
  1. ;;00247209490
  1. ;;9002226.02101,"1044,00247213200 ",.01)
  1. ;;00247213200
  1. ;;9002226.02101,"1044,00247213200 ",.02)
  1. ;;00247213200
  1. ;;9002226.02101,"1044,00247213207 ",.01)
  1. ;;00247213207
  1. ;;9002226.02101,"1044,00247213207 ",.02)
  1. ;;00247213207
  1. ;;9002226.02101,"1044,00247213230 ",.01)
  1. ;;00247213230
  1. ;;9002226.02101,"1044,00247213230 ",.02)
  1. ;;00247213230
  1. ;;9002226.02101,"1044,00247213260 ",.01)
  1. ;;00247213260
  1. ;;9002226.02101,"1044,00247213260 ",.02)
  1. ;;00247213260
  1. ;;9002226.02101,"1044,00247213290 ",.01)
  1. ;;00247213290
  1. ;;9002226.02101,"1044,00247213290 ",.02)
  1. ;;00247213290
  1. ;;9002226.02101,"1044,00247213300 ",.01)
  1. ;;00247213300
  1. ;;9002226.02101,"1044,00247213300 ",.02)
  1. ;;00247213300
  1. ;;9002226.02101,"1044,00247213307 ",.01)
  1. ;;00247213307
  1. ;;9002226.02101,"1044,00247213307 ",.02)
  1. ;;00247213307
  1. ;;9002226.02101,"1044,00247213330 ",.01)
  1. ;;00247213330
  1. ;;9002226.02101,"1044,00247213330 ",.02)
  1. ;;00247213330
  1. ;;9002226.02101,"1044,00247213360 ",.01)
  1. ;;00247213360
  1. ;;9002226.02101,"1044,00247213360 ",.02)
  1. ;;00247213360
  1. ;;9002226.02101,"1044,00247213390 ",.01)
  1. ;;00247213390
  1. ;;9002226.02101,"1044,00247213390 ",.02)
  1. ;;00247213390
  1. ;;9002226.02101,"1044,00247213400 ",.01)
  1. ;;00247213400
  1. ;;9002226.02101,"1044,00247213400 ",.02)
  1. ;;00247213400
  1. ;;9002226.02101,"1044,00247213407 ",.01)
  1. ;;00247213407
  1. ;;9002226.02101,"1044,00247213407 ",.02)
  1. ;;00247213407
  1. ;;9002226.02101,"1044,00247213430 ",.01)
  1. ;;00247213430
  1. ;;9002226.02101,"1044,00247213430 ",.02)
  1. ;;00247213430
  1. ;;9002226.02101,"1044,00247213460 ",.01)
  1. ;;00247213460
  1. ;;9002226.02101,"1044,00247213460 ",.02)
  1. ;;00247213460
  1. ;;9002226.02101,"1044,00247213490 ",.01)
  1. ;;00247213490
  1. ;;9002226.02101,"1044,00247213490 ",.02)
  1. ;;00247213490
  1. ;;9002226.02101,"1044,00247226530 ",.01)
  1. ;;00247226530
  1. ;;9002226.02101,"1044,00247226530 ",.02)
  1. ;;00247226530
  1. ;;9002226.02101,"1044,00247226560 ",.01)
  1. ;;00247226560
  1. ;;9002226.02101,"1044,00247226560 ",.02)
  1. ;;00247226560
  1. ;;9002226.02101,"1044,00247226590 ",.01)
  1. ;;00247226590
  1. ;;9002226.02101,"1044,00247226590 ",.02)
  1. ;;00247226590
  1. ;;9002226.02101,"1044,00247227130 ",.01)
  1. ;;00247227130
  1. ;;9002226.02101,"1044,00247227130 ",.02)
  1. ;;00247227130
  1. ;;9002226.02101,"1044,00247227200 ",.01)
  1. ;;00247227200
  1. ;;9002226.02101,"1044,00247227200 ",.02)
  1. ;;00247227200
  1. ;;9002226.02101,"1044,00247227230 ",.01)
  1. ;;00247227230
  1. ;;9002226.02101,"1044,00247227230 ",.02)
  1. ;;00247227230
  1. ;;9002226.02101,"1044,00247227260 ",.01)
  1. ;;00247227260
  1. ;;9002226.02101,"1044,00247227260 ",.02)
  1. ;;00247227260
  1. ;;9002226.02101,"1044,00247227290 ",.01)
  1. ;;00247227290
  1. ;;9002226.02101,"1044,00247227290 ",.02)
  1. ;;00247227290
  1. ;;9002226.02101,"1044,00247229900 ",.01)
  1. ;;00247229900
  1. ;;9002226.02101,"1044,00247229900 ",.02)
  1. ;;00247229900
  1. ;;9002226.02101,"1044,00247229990 ",.01)
  1. ;;00247229990
  1. ;;9002226.02101,"1044,00247229990 ",.02)
  1. ;;00247229990
  1. ;;9002226.02101,"1044,00254210119 ",.01)
  1. ;;00254210119
  1. ;;9002226.02101,"1044,00254210119 ",.02)
  1. ;;00254210119
  1. ;;9002226.02101,"1044,00254210121 ",.01)
  1. ;;00254210121
  1. ;;9002226.02101,"1044,00254210121 ",.02)
  1. ;;00254210121
  1. ;;9002226.02101,"1044,00254210125 ",.01)
  1. ;;00254210125
  1. ;;9002226.02101,"1044,00254210125 ",.02)
  1. ;;00254210125
  1. ;;9002226.02101,"1044,00254210126 ",.01)
  1. ;;00254210126
  1. ;;9002226.02101,"1044,00254210126 ",.02)
  1. ;;00254210126
  1. ;;9002226.02101,"1044,00254210128 ",.01)
  1. ;;00254210128
  1. ;;9002226.02101,"1044,00254210128 ",.02)
  1. ;;00254210128
  1. ;;9002226.02101,"1044,00254210132 ",.01)
  1. ;;00254210132
  1. ;;9002226.02101,"1044,00254210132 ",.02)
  1. ;;00254210132
  1. ;;9002226.02101,"1044,00254210135 ",.01)
  1. ;;00254210135
  1. ;;9002226.02101,"1044,00254210135 ",.02)
  1. ;;00254210135
  1. ;;9002226.02101,"1044,00254210138 ",.01)
  1. ;;00254210138
  1. ;;9002226.02101,"1044,00254210138 ",.02)
  1. ;;00254210138
  1. ;;9002226.02101,"1044,00254210219 ",.01)
  1. ;;00254210219
  1. ;;9002226.02101,"1044,00254210219 ",.02)
  1. ;;00254210219
  1. ;;9002226.02101,"1044,00254210225 ",.01)
  1. ;;00254210225
  1. ;;9002226.02101,"1044,00254210225 ",.02)
  1. ;;00254210225
  1. ;;9002226.02101,"1044,00254210226 ",.01)
  1. ;;00254210226
  1. ;;9002226.02101,"1044,00254210226 ",.02)
  1. ;;00254210226
  1. ;;9002226.02101,"1044,00254210228 ",.01)
  1. ;;00254210228
  1. ;;9002226.02101,"1044,00254210228 ",.02)
  1. ;;00254210228
  1. ;;9002226.02101,"1044,00254210232 ",.01)
  1. ;;00254210232
  1. ;;9002226.02101,"1044,00254210232 ",.02)
  1. ;;00254210232
  1. ;;9002226.02101,"1044,00254210235 ",.01)
  1. ;;00254210235
  1. ;;9002226.02101,"1044,00254210235 ",.02)
  1. ;;00254210235
  1. ;;9002226.02101,"1044,00254210238 ",.01)
  1. ;;00254210238
  1. ;;9002226.02101,"1044,00254210238 ",.02)
  1. ;;00254210238
  1. ;;9002226.02101,"1044,00254210302 ",.01)
  1. ;;00254210302
  1. ;;9002226.02101,"1044,00254210302 ",.02)
  1. ;;00254210302
  1. ;;9002226.02101,"1044,00254210316 ",.01)
  1. ;;00254210316
  1. ;;9002226.02101,"1044,00254210316 ",.02)
  1. ;;00254210316
  1. ;;9002226.02101,"1044,00254210320 ",.01)
  1. ;;00254210320
  1. ;;9002226.02101,"1044,00254210320 ",.02)
  1. ;;00254210320
  1. ;;9002226.02101,"1044,00254210321 ",.01)
  1. ;;00254210321
  1. ;;9002226.02101,"1044,00254210321 ",.02)
  1. ;;00254210321
  1. ;;9002226.02101,"1044,00254210328 ",.01)
  1. ;;00254210328
  1. ;;9002226.02101,"1044,00254210328 ",.02)
  1. ;;00254210328
  1. ;;9002226.02101,"1044,00254210332 ",.01)
  1. ;;00254210332
  1. ;;9002226.02101,"1044,00254210332 ",.02)
  1. ;;00254210332
  1. ;;9002226.02101,"1044,00254210335 ",.01)
  1. ;;00254210335
  1. ;;9002226.02101,"1044,00254210335 ",.02)
  1. ;;00254210335
  1. ;;9002226.02101,"1044,00254210338 ",.01)
  1. ;;00254210338
  1. ;;9002226.02101,"1044,00254210338 ",.02)
  1. ;;00254210338
  1. ;;9002226.02101,"1044,00254210419 ",.01)
  1. ;;00254210419
  1. ;;9002226.02101,"1044,00254210419 ",.02)
  1. ;;00254210419
  1. ;;9002226.02101,"1044,00254210421 ",.01)
  1. ;;00254210421
  1. ;;9002226.02101,"1044,00254210421 ",.02)
  1. ;;00254210421
  1. ;;9002226.02101,"1044,00254210425 ",.01)
  1. ;;00254210425
  1. ;;9002226.02101,"1044,00254210425 ",.02)
  1. ;;00254210425
  1. ;;9002226.02101,"1044,00254210426 ",.01)
  1. ;;00254210426
  1. ;;9002226.02101,"1044,00254210426 ",.02)
  1. ;;00254210426
  1. ;;9002226.02101,"1044,00254210428 ",.01)
  1. ;;00254210428
  1. ;;9002226.02101,"1044,00254210428 ",.02)
  1. ;;00254210428
  1. ;;9002226.02101,"1044,00254210435 ",.01)
  1. ;;00254210435
  1. ;;9002226.02101,"1044,00254210435 ",.02)
  1. ;;00254210435
  1. ;;9002226.02101,"1044,00254210438 ",.01)
  1. ;;00254210438
  1. ;;9002226.02101,"1044,00254210438 ",.02)
  1. ;;00254210438
  1. ;;9002226.02101,"1044,00254210519 ",.01)
  1. ;;00254210519