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

BGP71U14.m

Go to the documentation of this file.
BGP71U14 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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)
 ;;21,"68682-0712-90 ")
 ;;4354
 ;;21,"68682-0713-01 ")
 ;;4355
 ;;21,"68682-0713-10 ")
 ;;4356
 ;;21,"68682-0713-30 ")
 ;;4357
 ;;21,"68682-0713-90 ")
 ;;4358
 ;;21,"68788-0048-03 ")
 ;;4359
 ;;21,"68788-6361-01 ")
 ;;4360
 ;;21,"68788-6361-03 ")
 ;;4361
 ;;21,"68788-6361-06 ")
 ;;4362
 ;;21,"68788-6361-08 ")
 ;;4363
 ;;21,"68788-6361-09 ")
 ;;4364
 ;;21,"68788-6364-01 ")
 ;;4365
 ;;21,"68788-6364-03 ")
 ;;4366
 ;;21,"68788-6364-06 ")
 ;;4367
 ;;21,"68788-6364-09 ")
 ;;4368
 ;;21,"68788-7365-03 ")
 ;;4369
 ;;21,"68788-8912-01 ")
 ;;4370
 ;;21,"68788-8912-03 ")
 ;;4371
 ;;21,"68788-8912-06 ")
 ;;4372
 ;;21,"68788-8912-09 ")
 ;;4373
 ;;21,"68788-8914-01 ")
 ;;4374
 ;;21,"68788-8914-03 ")
 ;;4375
 ;;21,"68788-8914-06 ")
 ;;4376
 ;;21,"68788-8914-09 ")
 ;;4377
 ;;21,"68788-8943-01 ")
 ;;4378
 ;;21,"68788-8943-03 ")
 ;;4379
 ;;21,"68788-8943-06 ")
 ;;4380
 ;;21,"68788-8943-09 ")
 ;;4381
 ;;21,"68788-8944-01 ")
 ;;4382
 ;;21,"68788-8944-03 ")
 ;;4383
 ;;21,"68788-8944-06 ")
 ;;4384
 ;;21,"68788-8944-09 ")
 ;;4385
 ;;21,"68788-8968-01 ")
 ;;4386
 ;;21,"68788-8968-03 ")
 ;;4387
 ;;21,"68788-8968-06 ")
 ;;4388
 ;;21,"68788-8968-08 ")
 ;;4389
 ;;21,"68788-8968-09 ")
 ;;4390
 ;;21,"68788-9050-03 ")
 ;;4391
 ;;21,"68788-9051-09 ")
 ;;4392
 ;;21,"68788-9053-03 ")
 ;;4393
 ;;21,"68788-9411-03 ")
 ;;4394
 ;;21,"68788-9527-03 ")
 ;;4395
 ;;21,"68788-9536-03 ")
 ;;4396
 ;;21,"68788-9661-03 ")
 ;;4397
 ;;21,"68788-9712-03 ")
 ;;4398
 ;;21,"68788-9750-03 ")
 ;;4399
 ;;21,"68788-9765-01 ")
 ;;4400
 ;;21,"68788-9765-03 ")
 ;;4401
 ;;21,"68788-9765-06 ")
 ;;4402
 ;;21,"68788-9765-09 ")
 ;;4403
 ;;21,"68788-9807-03 ")
 ;;4404
 ;;21,"68788-9808-03 ")
 ;;4405
 ;;21,"68788-9809-03 ")
 ;;4406
 ;;21,"68788-9821-03 ")
 ;;4407
 ;;21,"68788-9822-03 ")
 ;;4408
 ;;21,"68788-9823-03 ")
 ;;4409
 ;;21,"68788-9910-03 ")
 ;;4410
 ;;21,"68788-9911-03 ")
 ;;4411
 ;;21,"68788-9912-03 ")
 ;;4412
 ;;21,"68788-9933-03 ")
 ;;4413
 ;;21,"68788-9945-03 ")
 ;;4414
 ;;21,"68788-9947-09 ")
 ;;4415
 ;;21,"69097-0828-05 ")
 ;;4416
 ;;21,"69097-0829-05 ")
 ;;4417
 ;;21,"69097-0831-05 ")
 ;;4418
 ;;21,"69097-0839-05 ")
 ;;4419
 ;;21,"69097-0841-05 ")
 ;;4420
 ;;21,"69097-0842-05 ")
 ;;4421
 ;;21,"69097-0843-05 ")
 ;;4422
 ;;21,"69097-0856-05 ")
 ;;4423
 ;;21,"69097-0857-05 ")
 ;;4424
 ;;21,"69097-0858-05 ")
 ;;4425
 ;;21,"69367-0119-01 ")
 ;;4426
 ;;21,"69367-0119-03 ")
 ;;4427
 ;;21,"69367-0120-01 ")
 ;;4428
 ;;21,"69367-0120-03 ")
 ;;4429
 ;;21,"69367-0121-01 ")
 ;;4430
 ;;21,"69367-0121-03 ")
 ;;4431
 ;;21,"69543-0140-11 ")
 ;;4432
 ;;21,"69543-0140-90 ")
 ;;4433
 ;;21,"69543-0141-11 ")
 ;;4434
 ;;21,"69543-0141-30 ")
 ;;4435
 ;;21,"69543-0141-90 ")
 ;;4436
 ;;21,"69543-0142-11 ")
 ;;4437
 ;;21,"69543-0142-30 ")
 ;;4438
 ;;21,"69543-0142-90 ")
 ;;4439
 ;;21,"76234-0001-01 ")
 ;;4440
 ;;21,"76234-0002-01 ")
 ;;4441
 ;;21,"76282-0200-10 ")
 ;;4442
 ;;21,"76282-0200-90 ")
 ;;4443
 ;;21,"76282-0201-10 ")
 ;;4444
 ;;21,"76282-0201-90 ")
 ;;4445
 ;;21,"76282-0202-10 ")
 ;;4446
 ;;21,"76282-0202-90 ")
 ;;4447
 ;;21,"76282-0271-01 ")
 ;;4448
 ;;21,"76282-0272-01 ")
 ;;4449
 ;;21,"76282-0272-05 ")
 ;;4450
 ;;21,"76282-0273-01 ")
 ;;4451
 ;;21,"76282-0273-05 ")
 ;;4452
 ;;21,"76282-0274-01 ")
 ;;4453
 ;;21,"76282-0274-05 ")
 ;;4454
 ;;21,"76282-0417-05 ")
 ;;4455
 ;;21,"76282-0418-10 ")
 ;;4456
 ;;21,"76282-0418-45 ")
 ;;4457
 ;;21,"76282-0418-90 ")
 ;;4458
 ;;21,"76282-0419-10 ")
 ;;4459
 ;;21,"76282-0419-45 ")
 ;;4460
 ;;21,"76282-0419-90 ")
 ;;4461
 ;;21,"76282-0420-10 ")
 ;;4462
 ;;21,"76282-0420-18 ")
 ;;4463
 ;;21,"76282-0420-45 ")
 ;;4464
 ;;21,"76282-0420-90 ")
 ;;4465
 ;;21,"76282-0421-01 ")
 ;;4466
 ;;21,"76282-0422-05 ")
 ;;4467
 ;;21,"76282-0422-10 ")
 ;;4468
 ;;21,"76282-0422-18 ")
 ;;4469
 ;;21,"76282-0422-45 ")
 ;;4470
 ;;21,"76282-0422-90 ")
 ;;4471
 ;;21,"76439-0140-11 ")
 ;;4472
 ;;21,"76439-0140-90 ")
 ;;4473
 ;;21,"76439-0141-11 ")
 ;;4474
 ;;21,"76439-0141-30 ")
 ;;4475
 ;;21,"76439-0141-90 ")
 ;;4476
 ;;21,"76439-0142-11 ")
 ;;4477
 ;;21,"76439-0142-30 ")
 ;;4478
 ;;21,"76439-0142-90 ")
 ;;4479
 ;;9002226,1733,.01)
 ;;BGP PQA RASA NDC
 ;;9002226,1733,.02)
 ;;RASA NDC
 ;;9002226,1733,.04)
 ;;n
 ;;9002226,1733,.06)
 ;;@
 ;;9002226,1733,.08)
 ;;@
 ;;9002226,1733,.09)
 ;;3160811
 ;;9002226,1733,.11)
 ;;@
 ;;9002226,1733,.12)
 ;;@
 ;;9002226,1733,.13)
 ;;1
 ;;9002226,1733,.14)
 ;;@
 ;;9002226,1733,.15)
 ;;50.67
 ;;9002226,1733,.16)
 ;;@
 ;;9002226,1733,.17)
 ;;@
 ;;9002226,1733,.22)
 ;;1
 ;;9002226,1733,3101)
 ;;@
 ;;9002226.02101,"1733,00006-0019-54 ",.01)
 ;;00006-0019-54
 ;;9002226.02101,"1733,00006-0019-54 ",.02)
 ;;00006-0019-54
 ;;9002226.02101,"1733,00006-0106-54 ",.01)
 ;;00006-0106-54
 ;;9002226.02101,"1733,00006-0106-54 ",.02)
 ;;00006-0106-54
 ;;9002226.02101,"1733,00006-0207-54 ",.01)
 ;;00006-0207-54
 ;;9002226.02101,"1733,00006-0207-54 ",.02)
 ;;00006-0207-54
 ;;9002226.02101,"1733,00006-0717-31 ",.01)
 ;;00006-0717-31
 ;;9002226.02101,"1733,00006-0717-31 ",.02)
 ;;00006-0717-31
 ;;9002226.02101,"1733,00006-0717-54 ",.01)
 ;;00006-0717-54
 ;;9002226.02101,"1733,00006-0717-54 ",.02)
 ;;00006-0717-54
 ;;9002226.02101,"1733,00006-0717-82 ",.01)
 ;;00006-0717-82
 ;;9002226.02101,"1733,00006-0717-82 ",.02)
 ;;00006-0717-82
 ;;9002226.02101,"1733,00006-0745-31 ",.01)
 ;;00006-0745-31
 ;;9002226.02101,"1733,00006-0745-31 ",.02)
 ;;00006-0745-31
 ;;9002226.02101,"1733,00006-0745-54 ",.01)
 ;;00006-0745-54
 ;;9002226.02101,"1733,00006-0745-54 ",.02)
 ;;00006-0745-54
 ;;9002226.02101,"1733,00006-0745-82 ",.01)
 ;;00006-0745-82
 ;;9002226.02101,"1733,00006-0745-82 ",.02)
 ;;00006-0745-82
 ;;9002226.02101,"1733,00006-0747-31 ",.01)
 ;;00006-0747-31
 ;;9002226.02101,"1733,00006-0747-31 ",.02)
 ;;00006-0747-31
 ;;9002226.02101,"1733,00006-0747-54 ",.01)
 ;;00006-0747-54
 ;;9002226.02101,"1733,00006-0747-54 ",.02)
 ;;00006-0747-54
 ;;9002226.02101,"1733,00006-0747-82 ",.01)
 ;;00006-0747-82
 ;;9002226.02101,"1733,00006-0747-82 ",.02)
 ;;00006-0747-82
 ;;9002226.02101,"1733,00006-0951-54 ",.01)
 ;;00006-0951-54
 ;;9002226.02101,"1733,00006-0951-54 ",.02)
 ;;00006-0951-54
 ;;9002226.02101,"1733,00006-0951-82 ",.01)
 ;;00006-0951-82
 ;;9002226.02101,"1733,00006-0951-82 ",.02)
 ;;00006-0951-82
 ;;9002226.02101,"1733,00006-0951-87 ",.01)
 ;;00006-0951-87
 ;;9002226.02101,"1733,00006-0951-87 ",.02)
 ;;00006-0951-87
 ;;9002226.02101,"1733,00006-0952-31 ",.01)
 ;;00006-0952-31
 ;;9002226.02101,"1733,00006-0952-31 ",.02)
 ;;00006-0952-31
 ;;9002226.02101,"1733,00006-0952-54 ",.01)
 ;;00006-0952-54
 ;;9002226.02101,"1733,00006-0952-54 ",.02)
 ;;00006-0952-54
 ;;9002226.02101,"1733,00006-0952-82 ",.01)
 ;;00006-0952-82
 ;;9002226.02101,"1733,00006-0952-82 ",.02)
 ;;00006-0952-82
 ;;9002226.02101,"1733,00006-0960-31 ",.01)
 ;;00006-0960-31
 ;;9002226.02101,"1733,00006-0960-31 ",.02)
 ;;00006-0960-31
 ;;9002226.02101,"1733,00006-0960-54 ",.01)
 ;;00006-0960-54
 ;;9002226.02101,"1733,00006-0960-54 ",.02)
 ;;00006-0960-54
 ;;9002226.02101,"1733,00006-0960-82 ",.01)
 ;;00006-0960-82
 ;;9002226.02101,"1733,00006-0960-82 ",.02)
 ;;00006-0960-82
 ;;9002226.02101,"1733,00024-5850-30 ",.01)
 ;;00024-5850-30
 ;;9002226.02101,"1733,00024-5850-30 ",.02)
 ;;00024-5850-30
 ;;9002226.02101,"1733,00024-5850-90 ",.01)
 ;;00024-5850-90
 ;;9002226.02101,"1733,00024-5850-90 ",.02)
 ;;00024-5850-90
 ;;9002226.02101,"1733,00024-5851-30 ",.01)
 ;;00024-5851-30
 ;;9002226.02101,"1733,00024-5851-30 ",.02)
 ;;00024-5851-30
 ;;9002226.02101,"1733,00024-5851-90 ",.01)
 ;;00024-5851-90
 ;;9002226.02101,"1733,00024-5851-90 ",.02)
 ;;00024-5851-90
 ;;9002226.02101,"1733,00024-5852-30 ",.01)
 ;;00024-5852-30
 ;;9002226.02101,"1733,00024-5852-30 ",.02)
 ;;00024-5852-30
 ;;9002226.02101,"1733,00024-5852-90 ",.01)
 ;;00024-5852-90
 ;;9002226.02101,"1733,00024-5852-90 ",.02)
 ;;00024-5852-90
 ;;9002226.02101,"1733,00024-5855-30 ",.01)
 ;;00024-5855-30
 ;;9002226.02101,"1733,00024-5855-30 ",.02)
 ;;00024-5855-30
 ;;9002226.02101,"1733,00024-5855-90 ",.01)
 ;;00024-5855-90
 ;;9002226.02101,"1733,00024-5855-90 ",.02)
 ;;00024-5855-90
 ;;9002226.02101,"1733,00024-5856-30 ",.01)
 ;;00024-5856-30
 ;;9002226.02101,"1733,00024-5856-30 ",.02)
 ;;00024-5856-30
 ;;9002226.02101,"1733,00024-5856-90 ",.01)
 ;;00024-5856-90
 ;;9002226.02101,"1733,00024-5856-90 ",.02)
 ;;00024-5856-90
 ;;9002226.02101,"1733,00054-0106-25 ",.01)
 ;;00054-0106-25
 ;;9002226.02101,"1733,00054-0106-25 ",.02)
 ;;00054-0106-25
 ;;9002226.02101,"1733,00054-0107-20 ",.01)
 ;;00054-0107-20
 ;;9002226.02101,"1733,00054-0107-20 ",.02)
 ;;00054-0107-20
 ;;9002226.02101,"1733,00054-0107-25 ",.01)
 ;;00054-0107-25
 ;;9002226.02101,"1733,00054-0107-25 ",.02)
 ;;00054-0107-25
 ;;9002226.02101,"1733,00054-0107-29 ",.01)
 ;;00054-0107-29
 ;;9002226.02101,"1733,00054-0107-29 ",.02)
 ;;00054-0107-29
 ;;9002226.02101,"1733,00054-0108-20 ",.01)
 ;;00054-0108-20
 ;;9002226.02101,"1733,00054-0108-20 ",.02)
 ;;00054-0108-20
 ;;9002226.02101,"1733,00054-0108-25 ",.01)
 ;;00054-0108-25
 ;;9002226.02101,"1733,00054-0108-25 ",.02)
 ;;00054-0108-25
 ;;9002226.02101,"1733,00054-0108-29 ",.01)
 ;;00054-0108-29
 ;;9002226.02101,"1733,00054-0108-29 ",.02)
 ;;00054-0108-29
 ;;9002226.02101,"1733,00054-0109-25 ",.01)
 ;;00054-0109-25
 ;;9002226.02101,"1733,00054-0109-25 ",.02)
 ;;00054-0109-25
 ;;9002226.02101,"1733,00054-0109-29 ",.01)
 ;;00054-0109-29
 ;;9002226.02101,"1733,00054-0109-29 ",.02)
 ;;00054-0109-29
 ;;9002226.02101,"1733,00054-0110-25 ",.01)
 ;;00054-0110-25
 ;;9002226.02101,"1733,00054-0110-25 ",.02)
 ;;00054-0110-25
 ;;9002226.02101,"1733,00054-0111-25 ",.01)
 ;;00054-0111-25
 ;;9002226.02101,"1733,00054-0111-25 ",.02)
 ;;00054-0111-25
 ;;9002226.02101,"1733,00054-0112-25 ",.01)
 ;;00054-0112-25
 ;;9002226.02101,"1733,00054-0112-25 ",.02)
 ;;00054-0112-25
 ;;9002226.02101,"1733,00054-0123-22 ",.01)
 ;;00054-0123-22
 ;;9002226.02101,"1733,00054-0123-22 ",.02)
 ;;00054-0123-22
 ;;9002226.02101,"1733,00054-0124-22 ",.01)
 ;;00054-0124-22
 ;;9002226.02101,"1733,00054-0124-22 ",.02)
 ;;00054-0124-22
 ;;9002226.02101,"1733,00054-0125-22 ",.01)
 ;;00054-0125-22
 ;;9002226.02101,"1733,00054-0125-22 ",.02)
 ;;00054-0125-22
 ;;9002226.02101,"1733,00054-0126-22 ",.01)
 ;;00054-0126-22
 ;;9002226.02101,"1733,00054-0126-22 ",.02)
 ;;00054-0126-22
 ;;9002226.02101,"1733,00054-0127-22 ",.01)
 ;;00054-0127-22
 ;;9002226.02101,"1733,00054-0127-22 ",.02)
 ;;00054-0127-22
 ;;9002226.02101,"1733,00054-0250-13 ",.01)
 ;;00054-0250-13
 ;;9002226.02101,"1733,00054-0250-13 ",.02)
 ;;00054-0250-13
 ;;9002226.02101,"1733,00054-0250-22 ",.01)
 ;;00054-0250-22
 ;;9002226.02101,"1733,00054-0250-22 ",.02)
 ;;00054-0250-22
 ;;9002226.02101,"1733,00054-0251-13 ",.01)
 ;;00054-0251-13
 ;;9002226.02101,"1733,00054-0251-13 ",.02)
 ;;00054-0251-13
 ;;9002226.02101,"1733,00054-0251-22 ",.01)
 ;;00054-0251-22
 ;;9002226.02101,"1733,00054-0251-22 ",.02)
 ;;00054-0251-22
 ;;9002226.02101,"1733,00054-0252-13 ",.01)
 ;;00054-0252-13
 ;;9002226.02101,"1733,00054-0252-13 ",.02)
 ;;00054-0252-13
 ;;9002226.02101,"1733,00054-0252-22 ",.01)
 ;;00054-0252-22
 ;;9002226.02101,"1733,00054-0252-22 ",.02)
 ;;00054-0252-22
 ;;9002226.02101,"1733,00054-0254-13 ",.01)
 ;;00054-0254-13
 ;;9002226.02101,"1733,00054-0254-13 ",.02)
 ;;00054-0254-13