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