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

BGP82S2.m

Go to the documentation of this file.
  1. BGP82S2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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. ;;21,"55289-0259-60 ")
  1. ;;340
  1. ;;21,"55289-0260-01 ")
  1. ;;341
  1. ;;21,"55289-0260-20 ")
  1. ;;342
  1. ;;21,"55289-0260-30 ")
  1. ;;343
  1. ;;21,"55289-0260-60 ")
  1. ;;344
  1. ;;21,"55289-0961-15 ")
  1. ;;345
  1. ;;21,"55289-0961-30 ")
  1. ;;346
  1. ;;21,"55289-0989-21 ")
  1. ;;347
  1. ;;21,"55289-0989-30 ")
  1. ;;348
  1. ;;21,"55289-0990-21 ")
  1. ;;349
  1. ;;21,"55289-0990-30 ")
  1. ;;350
  1. ;;21,"57237-0212-30 ")
  1. ;;351
  1. ;;21,"57237-0212-90 ")
  1. ;;352
  1. ;;21,"57237-0213-30 ")
  1. ;;353
  1. ;;21,"57237-0213-90 ")
  1. ;;354
  1. ;;21,"57237-0255-30 ")
  1. ;;355
  1. ;;21,"57237-0255-90 ")
  1. ;;356
  1. ;;21,"58118-5560-03 ")
  1. ;;357
  1. ;;21,"58118-5560-09 ")
  1. ;;358
  1. ;;21,"58864-0658-30 ")
  1. ;;359
  1. ;;21,"58864-0694-30 ")
  1. ;;360
  1. ;;21,"59310-0202-12 ")
  1. ;;361
  1. ;;21,"59310-0202-40 ")
  1. ;;362
  1. ;;21,"59310-0204-12 ")
  1. ;;363
  1. ;;21,"59310-0204-80 ")
  1. ;;364
  1. ;;21,"59310-0805-06 ")
  1. ;;365
  1. ;;21,"59310-0812-06 ")
  1. ;;366
  1. ;;21,"59310-0822-06 ")
  1. ;;367
  1. ;;21,"59746-0358-30 ")
  1. ;;368
  1. ;;21,"59746-0358-90 ")
  1. ;;369
  1. ;;21,"59746-0359-30 ")
  1. ;;370
  1. ;;21,"59746-0359-90 ")
  1. ;;371
  1. ;;21,"60505-3562-03 ")
  1. ;;372
  1. ;;21,"60505-3562-08 ")
  1. ;;373
  1. ;;21,"60505-3562-09 ")
  1. ;;374
  1. ;;21,"60505-3573-03 ")
  1. ;;375
  1. ;;21,"60505-3573-08 ")
  1. ;;376
  1. ;;21,"60505-3573-09 ")
  1. ;;377
  1. ;;21,"60505-3574-03 ")
  1. ;;378
  1. ;;21,"60505-3574-08 ")
  1. ;;379
  1. ;;21,"60505-3574-09 ")
  1. ;;380
  1. ;;21,"61919-0009-30 ")
  1. ;;381
  1. ;;21,"61919-0009-90 ")
  1. ;;382
  1. ;;21,"62175-0204-32 ")
  1. ;;383
  1. ;;21,"62175-0204-43 ")
  1. ;;384
  1. ;;21,"62175-0204-46 ")
  1. ;;385
  1. ;;21,"62175-0205-32 ")
  1. ;;386
  1. ;;21,"62175-0205-43 ")
  1. ;;387
  1. ;;21,"62175-0205-46 ")
  1. ;;388
  1. ;;21,"62175-0210-32 ")
  1. ;;389
  1. ;;21,"62175-0210-43 ")
  1. ;;390
  1. ;;21,"62175-0210-46 ")
  1. ;;391
  1. ;;21,"62332-0025-31 ")
  1. ;;392
  1. ;;21,"62332-0026-31 ")
  1. ;;393
  1. ;;21,"63187-0751-30 ")
  1. ;;394
  1. ;;21,"63402-0711-01 ")
  1. ;;395
  1. ;;21,"63402-0712-01 ")
  1. ;;396
  1. ;;21,"63629-1639-01 ")
  1. ;;397
  1. ;;21,"63629-1639-02 ")
  1. ;;398
  1. ;;21,"63629-1639-03 ")
  1. ;;399
  1. ;;21,"63629-2792-01 ")
  1. ;;400
  1. ;;21,"63629-2792-02 ")
  1. ;;401
  1. ;;21,"63629-3551-01 ")
  1. ;;402
  1. ;;21,"63629-5198-01 ")
  1. ;;403
  1. ;;21,"63629-5198-02 ")
  1. ;;404
  1. ;;21,"64980-0206-12 ")
  1. ;;405
  1. ;;21,"65243-0279-18 ")
  1. ;;406
  1. ;;21,"65862-0567-05 ")
  1. ;;407
  1. ;;21,"65862-0567-30 ")
  1. ;;408
  1. ;;21,"65862-0567-90 ")
  1. ;;409
  1. ;;21,"65862-0568-05 ")
  1. ;;410
  1. ;;21,"65862-0568-30 ")
  1. ;;411
  1. ;;21,"65862-0568-90 ")
  1. ;;412
  1. ;;21,"65862-0574-19 ")
  1. ;;413
  1. ;;21,"65862-0574-30 ")
  1. ;;414
  1. ;;21,"65862-0574-90 ")
  1. ;;415
  1. ;;21,"66105-0164-02 ")
  1. ;;416
  1. ;;21,"66105-0164-03 ")
  1. ;;417
  1. ;;21,"66105-0164-06 ")
  1. ;;418
  1. ;;21,"66105-0164-09 ")
  1. ;;419
  1. ;;21,"66105-0164-10 ")
  1. ;;420
  1. ;;21,"66993-0416-30 ")
  1. ;;421
  1. ;;21,"66993-0416-81 ")
  1. ;;422
  1. ;;21,"66993-0485-32 ")
  1. ;;423
  1. ;;21,"68001-0248-03 ")
  1. ;;424
  1. ;;21,"68001-0248-04 ")
  1. ;;425
  1. ;;21,"68001-0248-05 ")
  1. ;;426
  1. ;;21,"68071-1561-03 ")
  1. ;;427
  1. ;;21,"68084-0059-11 ")
  1. ;;428
  1. ;;21,"68084-0059-21 ")
  1. ;;429
  1. ;;21,"68084-0620-01 ")
  1. ;;430
  1. ;;21,"68084-0620-11 ")
  1. ;;431
  1. ;;21,"68084-0638-11 ")
  1. ;;432
  1. ;;21,"68084-0638-21 ")
  1. ;;433
  1. ;;21,"68084-0864-01 ")
  1. ;;434
  1. ;;21,"68084-0864-11 ")
  1. ;;435
  1. ;;21,"68084-0875-01 ")
  1. ;;436
  1. ;;21,"68084-0875-11 ")
  1. ;;437
  1. ;;21,"68258-3031-01 ")
  1. ;;438
  1. ;;21,"68258-3032-03 ")
  1. ;;439
  1. ;;21,"68258-3033-03 ")
  1. ;;440
  1. ;;21,"68258-8961-06 ")
  1. ;;441
  1. ;;21,"68462-0356-01 ")
  1. ;;442
  1. ;;21,"68462-0380-01 ")
  1. ;;443
  1. ;;21,"68462-0392-05 ")
  1. ;;444
  1. ;;21,"68462-0392-30 ")
  1. ;;445
  1. ;;21,"68462-0392-90 ")
  1. ;;446
  1. ;;21,"68645-0466-54 ")
  1. ;;447
  1. ;;21,"68645-0484-70 ")
  1. ;;448
  1. ;;21,"68645-0528-01 ")
  1. ;;449
  1. ;;21,"68645-0560-54 ")
  1. ;;450
  1. ;;21,"68788-6410-01 ")
  1. ;;451
  1. ;;21,"68788-6410-02 ")
  1. ;;452
  1. ;;21,"68788-6410-03 ")
  1. ;;453
  1. ;;21,"68788-6410-04 ")
  1. ;;454
  1. ;;21,"68788-6410-06 ")
  1. ;;455
  1. ;;21,"68788-6410-09 ")
  1. ;;456
  1. ;;21,"68788-6946-01 ")
  1. ;;457
  1. ;;21,"68788-6946-02 ")
  1. ;;458
  1. ;;21,"68788-6946-03 ")
  1. ;;459
  1. ;;21,"68788-6946-04 ")
  1. ;;460
  1. ;;21,"68788-6946-06 ")
  1. ;;461
  1. ;;21,"68788-6946-09 ")
  1. ;;462
  1. ;;21,"68788-7387-01 ")
  1. ;;463
  1. ;;21,"68788-7387-02 ")
  1. ;;464
  1. ;;21,"68788-7387-03 ")
  1. ;;465
  1. ;;21,"68788-7387-04 ")
  1. ;;466
  1. ;;21,"68788-7387-06 ")
  1. ;;467
  1. ;;21,"68788-7387-09 ")
  1. ;;468
  1. ;;21,"68788-8988-01 ")
  1. ;;469
  1. ;;21,"68788-8988-02 ")
  1. ;;470
  1. ;;21,"68788-8988-03 ")
  1. ;;471
  1. ;;21,"68788-8988-04 ")
  1. ;;472
  1. ;;21,"68788-8988-06 ")
  1. ;;473
  1. ;;21,"68788-8988-09 ")
  1. ;;474
  1. ;;21,"68788-9438-01 ")
  1. ;;475
  1. ;;21,"68788-9438-02 ")
  1. ;;476
  1. ;;21,"68788-9438-03 ")
  1. ;;477
  1. ;;21,"68788-9438-04 ")
  1. ;;478
  1. ;;21,"68788-9438-06 ")
  1. ;;479
  1. ;;21,"68788-9438-09 ")
  1. ;;480
  1. ;;21,"69452-0105-13 ")
  1. ;;481
  1. ;;21,"69452-0105-19 ")
  1. ;;482
  1. ;;21,"69452-0105-32 ")
  1. ;;483
  1. ;;21,"69452-0106-13 ")
  1. ;;484
  1. ;;21,"69452-0106-19 ")
  1. ;;485
  1. ;;21,"69452-0107-13 ")
  1. ;;486
  1. ;;21,"69452-0107-19 ")
  1. ;;487
  1. ;;21,"75989-0550-06 ")
  1. ;;488
  1. ;;21,"75989-0550-12 ")
  1. ;;489
  1. ;;9002226,1227,.01)
  1. ;;BGP PQA CONTROLLER NDC
  1. ;;9002226,1227,.02)
  1. ;;BGP PQA
  1. ;;9002226,1227,.04)
  1. ;;n
  1. ;;9002226,1227,.06)
  1. ;;@
  1. ;;9002226,1227,.08)
  1. ;;@
  1. ;;9002226,1227,.09)
  1. ;;3170809
  1. ;;9002226,1227,.11)
  1. ;;@
  1. ;;9002226,1227,.12)
  1. ;;@
  1. ;;9002226,1227,.13)
  1. ;;1
  1. ;;9002226,1227,.14)
  1. ;;@
  1. ;;9002226,1227,.15)
  1. ;;50.67
  1. ;;9002226,1227,.16)
  1. ;;@
  1. ;;9002226,1227,.17)
  1. ;;@
  1. ;;9002226,1227,.22)
  1. ;;1
  1. ;;9002226,1227,3101)
  1. ;;@
  1. ;;9002226.02101,"1227,00006-1711-31 ",.01)
  1. ;;00006-1711-31
  1. ;;9002226.02101,"1227,00006-1711-31 ",.02)
  1. ;;00006-1711-31
  1. ;;9002226.02101,"1227,00006-3841-30 ",.01)
  1. ;;00006-3841-30
  1. ;;9002226.02101,"1227,00006-3841-30 ",.02)
  1. ;;00006-3841-30
  1. ;;9002226.02101,"1227,00006-9117-31 ",.01)
  1. ;;00006-9117-31
  1. ;;9002226.02101,"1227,00006-9117-31 ",.02)
  1. ;;00006-9117-31
  1. ;;9002226.02101,"1227,00006-9117-54 ",.01)
  1. ;;00006-9117-54
  1. ;;9002226.02101,"1227,00006-9117-54 ",.02)
  1. ;;00006-9117-54
  1. ;;9002226.02101,"1227,00006-9275-31 ",.01)
  1. ;;00006-9275-31
  1. ;;9002226.02101,"1227,00006-9275-31 ",.02)
  1. ;;00006-9275-31
  1. ;;9002226.02101,"1227,00037-7590-12 ",.01)
  1. ;;00037-7590-12
  1. ;;9002226.02101,"1227,00037-7590-12 ",.02)
  1. ;;00037-7590-12
  1. ;;9002226.02101,"1227,00037-7590-63 ",.01)
  1. ;;00037-7590-63
  1. ;;9002226.02101,"1227,00037-7590-63 ",.02)
  1. ;;00037-7590-63
  1. ;;9002226.02101,"1227,00054-0259-13 ",.01)
  1. ;;00054-0259-13
  1. ;;9002226.02101,"1227,00054-0259-13 ",.02)
  1. ;;00054-0259-13
  1. ;;9002226.02101,"1227,00054-0259-22 ",.01)
  1. ;;00054-0259-22
  1. ;;9002226.02101,"1227,00054-0259-22 ",.02)
  1. ;;00054-0259-22
  1. ;;9002226.02101,"1227,00054-0288-13 ",.01)
  1. ;;00054-0288-13
  1. ;;9002226.02101,"1227,00054-0288-13 ",.02)
  1. ;;00054-0288-13
  1. ;;9002226.02101,"1227,00054-0288-22 ",.01)
  1. ;;00054-0288-22
  1. ;;9002226.02101,"1227,00054-0288-22 ",.02)
  1. ;;00054-0288-22
  1. ;;9002226.02101,"1227,00054-0289-13 ",.01)
  1. ;;00054-0289-13
  1. ;;9002226.02101,"1227,00054-0289-13 ",.02)
  1. ;;00054-0289-13
  1. ;;9002226.02101,"1227,00054-0289-22 ",.01)
  1. ;;00054-0289-22
  1. ;;9002226.02101,"1227,00054-0289-22 ",.02)
  1. ;;00054-0289-22
  1. ;;9002226.02101,"1227,00085-1341-01 ",.01)
  1. ;;00085-1341-01
  1. ;;9002226.02101,"1227,00085-1341-01 ",.02)
  1. ;;00085-1341-01
  1. ;;9002226.02101,"1227,00085-1341-02 ",.01)
  1. ;;00085-1341-02
  1. ;;9002226.02101,"1227,00085-1341-02 ",.02)
  1. ;;00085-1341-02
  1. ;;9002226.02101,"1227,00085-1341-04 ",.01)
  1. ;;00085-1341-04
  1. ;;9002226.02101,"1227,00085-1341-04 ",.02)
  1. ;;00085-1341-04
  1. ;;9002226.02101,"1227,00085-1341-06 ",.01)
  1. ;;00085-1341-06
  1. ;;9002226.02101,"1227,00085-1341-06 ",.02)
  1. ;;00085-1341-06
  1. ;;9002226.02101,"1227,00085-1341-07 ",.01)
  1. ;;00085-1341-07
  1. ;;9002226.02101,"1227,00085-1341-07 ",.02)
  1. ;;00085-1341-07
  1. ;;9002226.02101,"1227,00085-1401-01 ",.01)
  1. ;;00085-1401-01
  1. ;;9002226.02101,"1227,00085-1401-01 ",.02)
  1. ;;00085-1401-01
  1. ;;9002226.02101,"1227,00085-1402-01 ",.01)
  1. ;;00085-1402-01
  1. ;;9002226.02101,"1227,00085-1402-01 ",.02)
  1. ;;00085-1402-01
  1. ;;9002226.02101,"1227,00085-1402-02 ",.01)
  1. ;;00085-1402-02
  1. ;;9002226.02101,"1227,00085-1402-02 ",.02)
  1. ;;00085-1402-02
  1. ;;9002226.02101,"1227,00085-1461-02 ",.01)
  1. ;;00085-1461-02
  1. ;;9002226.02101,"1227,00085-1461-02 ",.02)
  1. ;;00085-1461-02
  1. ;;9002226.02101,"1227,00085-1461-07 ",.01)
  1. ;;00085-1461-07
  1. ;;9002226.02101,"1227,00085-1461-07 ",.02)
  1. ;;00085-1461-07
  1. ;;9002226.02101,"1227,00085-4333-01 ",.01)
  1. ;;00085-4333-01
  1. ;;9002226.02101,"1227,00085-4333-01 ",.02)
  1. ;;00085-4333-01
  1. ;;9002226.02101,"1227,00085-4334-01 ",.01)
  1. ;;00085-4334-01
  1. ;;9002226.02101,"1227,00085-4334-01 ",.02)
  1. ;;00085-4334-01
  1. ;;9002226.02101,"1227,00085-4610-01 ",.01)
  1. ;;00085-4610-01
  1. ;;9002226.02101,"1227,00085-4610-01 ",.02)
  1. ;;00085-4610-01
  1. ;;9002226.02101,"1227,00085-4610-05 ",.01)
  1. ;;00085-4610-05
  1. ;;9002226.02101,"1227,00085-4610-05 ",.02)
  1. ;;00085-4610-05
  1. ;;9002226.02101,"1227,00085-7206-01 ",.01)
  1. ;;00085-7206-01
  1. ;;9002226.02101,"1227,00085-7206-01 ",.02)
  1. ;;00085-7206-01
  1. ;;9002226.02101,"1227,00085-7206-07 ",.01)
  1. ;;00085-7206-07
  1. ;;9002226.02101,"1227,00085-7206-07 ",.02)
  1. ;;00085-7206-07
  1. ;;9002226.02101,"1227,00093-3607-82 ",.01)
  1. ;;00093-3607-82
  1. ;;9002226.02101,"1227,00093-3607-82 ",.02)
  1. ;;00093-3607-82
  1. ;;9002226.02101,"1227,00093-3608-82 ",.01)
  1. ;;00093-3608-82
  1. ;;9002226.02101,"1227,00093-3608-82 ",.02)
  1. ;;00093-3608-82
  1. ;;9002226.02101,"1227,00093-3609-82 ",.01)
  1. ;;00093-3609-82
  1. ;;9002226.02101,"1227,00093-3609-82 ",.02)
  1. ;;00093-3609-82
  1. ;;9002226.02101,"1227,00093-7424-56 ",.01)
  1. ;;00093-7424-56
  1. ;;9002226.02101,"1227,00093-7424-56 ",.02)
  1. ;;00093-7424-56
  1. ;;9002226.02101,"1227,00093-7424-98 ",.01)
  1. ;;00093-7424-98
  1. ;;9002226.02101,"1227,00093-7424-98 ",.02)
  1. ;;00093-7424-98
  1. ;;9002226.02101,"1227,00093-7425-56 ",.01)
  1. ;;00093-7425-56
  1. ;;9002226.02101,"1227,00093-7425-56 ",.02)
  1. ;;00093-7425-56
  1. ;;9002226.02101,"1227,00093-7425-98 ",.01)
  1. ;;00093-7425-98
  1. ;;9002226.02101,"1227,00093-7425-98 ",.02)
  1. ;;00093-7425-98
  1. ;;9002226.02101,"1227,00093-7426-10 ",.01)
  1. ;;00093-7426-10
  1. ;;9002226.02101,"1227,00093-7426-10 ",.02)
  1. ;;00093-7426-10
  1. ;;9002226.02101,"1227,00093-7426-56 ",.01)
  1. ;;00093-7426-56
  1. ;;9002226.02101,"1227,00093-7426-56 ",.02)
  1. ;;00093-7426-56
  1. ;;9002226.02101,"1227,00093-7426-98 ",.01)
  1. ;;00093-7426-98
  1. ;;9002226.02101,"1227,00093-7426-98 ",.02)
  1. ;;00093-7426-98
  1. ;;9002226.02101,"1227,00143-9649-09 ",.01)
  1. ;;00143-9649-09
  1. ;;9002226.02101,"1227,00143-9649-09 ",.02)
  1. ;;00143-9649-09
  1. ;;9002226.02101,"1227,00143-9649-10 ",.01)
  1. ;;00143-9649-10
  1. ;;9002226.02101,"1227,00143-9649-10 ",.02)
  1. ;;00143-9649-10
  1. ;;9002226.02101,"1227,00143-9649-30 ",.01)
  1. ;;00143-9649-30
  1. ;;9002226.02101,"1227,00143-9649-30 ",.02)
  1. ;;00143-9649-30
  1. ;;9002226.02101,"1227,00143-9650-09 ",.01)
  1. ;;00143-9650-09
  1. ;;9002226.02101,"1227,00143-9650-09 ",.02)
  1. ;;00143-9650-09
  1. ;;9002226.02101,"1227,00143-9650-10 ",.01)
  1. ;;00143-9650-10
  1. ;;9002226.02101,"1227,00143-9650-10 ",.02)
  1. ;;00143-9650-10
  1. ;;9002226.02101,"1227,00143-9650-30 ",.01)
  1. ;;00143-9650-30
  1. ;;9002226.02101,"1227,00143-9650-30 ",.02)
  1. ;;00143-9650-30
  1. ;;9002226.02101,"1227,00143-9651-09 ",.01)
  1. ;;00143-9651-09
  1. ;;9002226.02101,"1227,00143-9651-09 ",.02)
  1. ;;00143-9651-09
  1. ;;9002226.02101,"1227,00143-9651-10 ",.01)
  1. ;;00143-9651-10
  1. ;;9002226.02101,"1227,00143-9651-10 ",.02)
  1. ;;00143-9651-10
  1. ;;9002226.02101,"1227,00143-9651-30 ",.01)
  1. ;;00143-9651-30
  1. ;;9002226.02101,"1227,00143-9651-30 ",.02)
  1. ;;00143-9651-30
  1. ;;9002226.02101,"1227,00173-0520-00 ",.01)
  1. ;;00173-0520-00
  1. ;;9002226.02101,"1227,00173-0520-00 ",.02)
  1. ;;00173-0520-00
  1. ;;9002226.02101,"1227,00173-0521-00 ",.01)
  1. ;;00173-0521-00