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

BGP6T1I2.m

Go to the documentation of this file.
  1. BGP6T1I2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  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,"54569-4955-00 ")
  1. ;;340
  1. ;;21,"54569-5188-00 ")
  1. ;;341
  1. ;;21,"54569-5189-00 ")
  1. ;;342
  1. ;;21,"54569-5772-01 ")
  1. ;;343
  1. ;;21,"54569-6369-00 ")
  1. ;;344
  1. ;;21,"54569-6369-01 ")
  1. ;;345
  1. ;;21,"54569-6494-00 ")
  1. ;;346
  1. ;;21,"54569-8330-00 ")
  1. ;;347
  1. ;;21,"54569-8344-00 ")
  1. ;;348
  1. ;;21,"54868-0074-02 ")
  1. ;;349
  1. ;;21,"54868-0074-03 ")
  1. ;;350
  1. ;;21,"54868-0074-04 ")
  1. ;;351
  1. ;;21,"54868-0074-05 ")
  1. ;;352
  1. ;;21,"54868-0074-07 ")
  1. ;;353
  1. ;;21,"54868-0074-08 ")
  1. ;;354
  1. ;;21,"54868-0074-09 ")
  1. ;;355
  1. ;;21,"54868-0875-00 ")
  1. ;;356
  1. ;;21,"54868-0875-01 ")
  1. ;;357
  1. ;;21,"54868-0875-02 ")
  1. ;;358
  1. ;;21,"54868-0875-04 ")
  1. ;;359
  1. ;;21,"54868-0875-05 ")
  1. ;;360
  1. ;;21,"54868-0875-06 ")
  1. ;;361
  1. ;;21,"54868-0875-07 ")
  1. ;;362
  1. ;;21,"54868-0922-00 ")
  1. ;;363
  1. ;;21,"54868-0922-01 ")
  1. ;;364
  1. ;;21,"54868-0922-02 ")
  1. ;;365
  1. ;;21,"54868-0922-03 ")
  1. ;;366
  1. ;;21,"54868-0922-06 ")
  1. ;;367
  1. ;;21,"54868-0922-07 ")
  1. ;;368
  1. ;;21,"54868-1071-00 ")
  1. ;;369
  1. ;;21,"54868-1071-01 ")
  1. ;;370
  1. ;;21,"54868-1071-02 ")
  1. ;;371
  1. ;;21,"54868-1071-03 ")
  1. ;;372
  1. ;;21,"54868-1233-01 ")
  1. ;;373
  1. ;;21,"54868-1233-02 ")
  1. ;;374
  1. ;;21,"54868-1233-04 ")
  1. ;;375
  1. ;;21,"54868-1233-05 ")
  1. ;;376
  1. ;;21,"54868-1233-06 ")
  1. ;;377
  1. ;;21,"54868-2530-00 ")
  1. ;;378
  1. ;;21,"54868-3230-01 ")
  1. ;;379
  1. ;;21,"54868-3559-01 ")
  1. ;;380
  1. ;;21,"54868-4171-00 ")
  1. ;;381
  1. ;;21,"54868-4171-01 ")
  1. ;;382
  1. ;;21,"54868-4171-02 ")
  1. ;;383
  1. ;;21,"54868-4419-01 ")
  1. ;;384
  1. ;;21,"54868-4751-00 ")
  1. ;;385
  1. ;;21,"54868-4751-01 ")
  1. ;;386
  1. ;;21,"54868-4788-00 ")
  1. ;;387
  1. ;;21,"54868-4788-01 ")
  1. ;;388
  1. ;;21,"54868-5808-00 ")
  1. ;;389
  1. ;;21,"54868-6040-00 ")
  1. ;;390
  1. ;;21,"54868-6040-01 ")
  1. ;;391
  1. ;;21,"55045-1163-01 ")
  1. ;;392
  1. ;;21,"55045-1163-02 ")
  1. ;;393
  1. ;;21,"55045-1163-04 ")
  1. ;;394
  1. ;;21,"55045-1163-06 ")
  1. ;;395
  1. ;;21,"55045-1163-08 ")
  1. ;;396
  1. ;;21,"55045-1163-09 ")
  1. ;;397
  1. ;;21,"55045-1385-02 ")
  1. ;;398
  1. ;;21,"55045-1385-07 ")
  1. ;;399
  1. ;;21,"55045-1385-08 ")
  1. ;;400
  1. ;;21,"55045-1437-08 ")
  1. ;;401
  1. ;;21,"55045-2530-03 ")
  1. ;;402
  1. ;;21,"55045-2530-04 ")
  1. ;;403
  1. ;;21,"55045-2530-05 ")
  1. ;;404
  1. ;;21,"55045-3037-08 ")
  1. ;;405
  1. ;;21,"55045-3099-00 ")
  1. ;;406
  1. ;;21,"55045-3099-01 ")
  1. ;;407
  1. ;;21,"55045-3099-04 ")
  1. ;;408
  1. ;;21,"55045-3099-05 ")
  1. ;;409
  1. ;;21,"55045-3099-07 ")
  1. ;;410
  1. ;;21,"55045-3099-08 ")
  1. ;;411
  1. ;;21,"55045-3099-09 ")
  1. ;;412
  1. ;;21,"55045-3213-01 ")
  1. ;;413
  1. ;;21,"55045-3213-02 ")
  1. ;;414
  1. ;;21,"55045-3555-01 ")
  1. ;;415
  1. ;;21,"55048-0380-20 ")
  1. ;;416
  1. ;;21,"55048-0380-30 ")
  1. ;;417
  1. ;;21,"55048-0380-60 ")
  1. ;;418
  1. ;;21,"55048-0406-20 ")
  1. ;;419
  1. ;;21,"55048-0406-30 ")
  1. ;;420
  1. ;;21,"55048-0407-20 ")
  1. ;;421
  1. ;;21,"55048-0407-30 ")
  1. ;;422
  1. ;;21,"55289-0147-15 ")
  1. ;;423
  1. ;;21,"55289-0147-20 ")
  1. ;;424
  1. ;;21,"55289-0147-21 ")
  1. ;;425
  1. ;;21,"55289-0147-30 ")
  1. ;;426
  1. ;;21,"55289-0147-90 ")
  1. ;;427
  1. ;;21,"55289-0328-10 ")
  1. ;;428
  1. ;;21,"55289-0328-12 ")
  1. ;;429
  1. ;;21,"55289-0328-15 ")
  1. ;;430
  1. ;;21,"55289-0328-20 ")
  1. ;;431
  1. ;;21,"55289-0328-30 ")
  1. ;;432
  1. ;;21,"55289-0469-10 ")
  1. ;;433
  1. ;;21,"55289-0469-14 ")
  1. ;;434
  1. ;;21,"55289-0469-15 ")
  1. ;;435
  1. ;;21,"55289-0469-20 ")
  1. ;;436
  1. ;;21,"55289-0469-30 ")
  1. ;;437
  1. ;;21,"55289-0663-01 ")
  1. ;;438
  1. ;;21,"55289-0663-20 ")
  1. ;;439
  1. ;;21,"55289-0663-30 ")
  1. ;;440
  1. ;;21,"55390-0299-01 ")
  1. ;;441
  1. ;;21,"55390-0480-01 ")
  1. ;;442
  1. ;;21,"55390-0481-01 ")
  1. ;;443
  1. ;;21,"55390-0481-02 ")
  1. ;;444
  1. ;;21,"55390-0481-10 ")
  1. ;;445
  1. ;;21,"57664-0467-08 ")
  1. ;;446
  1. ;;21,"57664-0471-08 ")
  1. ;;447
  1. ;;21,"58118-0314-05 ")
  1. ;;448
  1. ;;21,"58864-0296-42 ")
  1. ;;449
  1. ;;21,"58864-0296-90 ")
  1. ;;450
  1. ;;21,"60429-0534-01 ")
  1. ;;451
  1. ;;21,"60429-0535-01 ")
  1. ;;452
  1. ;;21,"60429-0569-01 ")
  1. ;;453
  1. ;;21,"60429-0570-01 ")
  1. ;;454
  1. ;;21,"60760-0314-20 ")
  1. ;;455
  1. ;;21,"60760-0402-30 ")
  1. ;;456
  1. ;;21,"60760-0607-14 ")
  1. ;;457
  1. ;;21,"61553-0170-41 ")
  1. ;;458
  1. ;;21,"61553-0172-48 ")
  1. ;;459
  1. ;;21,"61553-0173-48 ")
  1. ;;460
  1. ;;21,"61553-0611-75 ")
  1. ;;461
  1. ;;21,"61553-0623-75 ")
  1. ;;462
  1. ;;21,"61553-0674-67 ")
  1. ;;463
  1. ;;21,"61553-0675-76 ")
  1. ;;464
  1. ;;21,"61553-0676-67 ")
  1. ;;465
  1. ;;21,"61553-0677-76 ")
  1. ;;466
  1. ;;21,"61553-0841-48 ")
  1. ;;467
  1. ;;21,"61919-0129-30 ")
  1. ;;468
  1. ;;21,"61919-0138-10 ")
  1. ;;469
  1. ;;21,"61919-0138-20 ")
  1. ;;470
  1. ;;21,"61919-0138-30 ")
  1. ;;471
  1. ;;21,"61919-0556-30 ")
  1. ;;472
  1. ;;21,"63323-0161-01 ")
  1. ;;473
  1. ;;21,"63323-0161-12 ")
  1. ;;474
  1. ;;21,"63323-0162-01 ")
  1. ;;475
  1. ;;21,"63323-0162-02 ")
  1. ;;476
  1. ;;21,"63323-0162-12 ")
  1. ;;477
  1. ;;21,"63323-0162-14 ")
  1. ;;478
  1. ;;21,"63323-0659-03 ")
  1. ;;479
  1. ;;21,"63323-0659-09 ")
  1. ;;480
  1. ;;21,"63323-0659-94 ")
  1. ;;481
  1. ;;21,"63629-1418-01 ")
  1. ;;482
  1. ;;21,"63629-1418-02 ")
  1. ;;483
  1. ;;21,"63629-1418-03 ")
  1. ;;484
  1. ;;21,"63629-1418-04 ")
  1. ;;485
  1. ;;21,"63629-1418-05 ")
  1. ;;486
  1. ;;21,"63629-1418-06 ")
  1. ;;487
  1. ;;21,"63629-1780-01 ")
  1. ;;488
  1. ;;21,"63629-1780-02 ")
  1. ;;489
  1. ;;21,"63629-1780-03 ")
  1. ;;490
  1. ;;21,"63629-2974-01 ")
  1. ;;491
  1. ;;21,"63629-2974-02 ")
  1. ;;492
  1. ;;21,"63629-2974-03 ")
  1. ;;493
  1. ;;21,"63629-2974-04 ")
  1. ;;494
  1. ;;21,"63629-2974-05 ")
  1. ;;495
  1. ;;21,"63629-2974-06 ")
  1. ;;496
  1. ;;21,"63629-2974-07 ")
  1. ;;497
  1. ;;21,"63629-3201-01 ")
  1. ;;498
  1. ;;21,"63629-3201-02 ")
  1. ;;499
  1. ;;21,"63629-3201-03 ")
  1. ;;500
  1. ;;21,"63629-3206-01 ")
  1. ;;501
  1. ;;21,"63629-3206-02 ")
  1. ;;502
  1. ;;21,"63629-3206-03 ")
  1. ;;503
  1. ;;21,"63629-4549-01 ")
  1. ;;504
  1. ;;21,"63739-0472-05 ")
  1. ;;505
  1. ;;21,"63739-0472-21 ")
  1. ;;506
  1. ;;21,"63874-0220-01 ")
  1. ;;507
  1. ;;21,"63874-0220-03 ")
  1. ;;508
  1. ;;21,"63874-0220-04 ")
  1. ;;509
  1. ;;21,"63874-0220-10 ")
  1. ;;510
  1. ;;21,"63874-0220-12 ")
  1. ;;511
  1. ;;21,"63874-0220-15 ")
  1. ;;512
  1. ;;21,"63874-0220-20 ")
  1. ;;513
  1. ;;21,"63874-0220-30 ")
  1. ;;514
  1. ;;21,"63874-0220-35 ")
  1. ;;515
  1. ;;21,"63874-0220-40 ")
  1. ;;516
  1. ;;21,"63874-0220-60 ")
  1. ;;517
  1. ;;21,"63874-0220-90 ")
  1. ;;518
  1. ;;21,"63874-0318-01 ")
  1. ;;519
  1. ;;21,"63874-0318-02 ")
  1. ;;520
  1. ;;21,"63874-0318-08 ")
  1. ;;521
  1. ;;21,"63874-0318-20 ")
  1. ;;522
  1. ;;21,"63874-0318-21 ")
  1. ;;523
  1. ;;21,"63874-0318-22 ")
  1. ;;524
  1. ;;21,"63874-0318-25 ")
  1. ;;525
  1. ;;21,"63874-0318-28 ")
  1. ;;526
  1. ;;21,"63874-0318-30 ")
  1. ;;527
  1. ;;21,"63874-0318-40 ")
  1. ;;528
  1. ;;21,"63874-0318-50 ")
  1. ;;529
  1. ;;21,"63874-0318-60 ")
  1. ;;530
  1. ;;21,"63874-0318-75 ")
  1. ;;531
  1. ;;21,"63874-0318-90 ")
  1. ;;532
  1. ;;21,"63874-0394-01 ")
  1. ;;533
  1. ;;21,"63874-0394-02 ")
  1. ;;534
  1. ;;21,"63874-0394-03 ")
  1. ;;535
  1. ;;21,"63874-0394-14 ")
  1. ;;536
  1. ;;21,"63874-0394-15 ")
  1. ;;537
  1. ;;21,"63874-0394-20 ")
  1. ;;538
  1. ;;21,"63874-0394-21 ")
  1. ;;539
  1. ;;21,"63874-0394-30 ")
  1. ;;540
  1. ;;21,"63874-0394-40 ")
  1. ;;541
  1. ;;21,"63874-0394-50 ")
  1. ;;542
  1. ;;21,"63874-0394-60 ")
  1. ;;543
  1. ;;21,"63874-0395-01 ")
  1. ;;544
  1. ;;21,"63874-0395-07 ")
  1. ;;545
  1. ;;21,"63874-0395-10 ")
  1. ;;546
  1. ;;21,"63874-0395-12 ")
  1. ;;547
  1. ;;21,"63874-0395-14 ")
  1. ;;548
  1. ;;21,"63874-0395-15 ")
  1. ;;549
  1. ;;21,"63874-0395-20 ")
  1. ;;550
  1. ;;21,"63874-0395-21 ")
  1. ;;551
  1. ;;21,"63874-0395-24 ")
  1. ;;552
  1. ;;21,"63874-0395-25 ")
  1. ;;553
  1. ;;21,"63874-0395-30 ")
  1. ;;554
  1. ;;21,"63874-0395-40 ")
  1. ;;555
  1. ;;21,"63874-0395-60 ")
  1. ;;556
  1. ;;21,"63874-0395-90 ")
  1. ;;557
  1. ;;21,"63874-0472-01 ")
  1. ;;558
  1. ;;21,"63874-0472-03 ")
  1. ;;559
  1. ;;21,"63874-0472-08 ")
  1. ;;560
  1. ;;21,"63874-0472-10 ")
  1. ;;561
  1. ;;21,"63874-0472-12 ")
  1. ;;562
  1. ;;21,"63874-0472-15 ")
  1. ;;563
  1. ;;21,"63874-0472-16 ")
  1. ;;564
  1. ;;21,"63874-0472-20 ")
  1. ;;565
  1. ;;21,"63874-0472-21 ")
  1. ;;566
  1. ;;21,"63874-0472-30 ")
  1. ;;567
  1. ;;21,"63874-0472-50 ")
  1. ;;568
  1. ;;21,"64205-0113-10 ")
  1. ;;569
  1. ;;21,"64679-0757-01 ")
  1. ;;570
  1. ;;21,"64679-0757-02 ")
  1. ;;571
  1. ;;21,"64679-0758-01 ")
  1. ;;572
  1. ;;21,"64679-0758-02 ")
  1. ;;573
  1. ;;21,"64679-0758-04 ")
  1. ;;574
  1. ;;21,"64679-0758-06 ")
  1. ;;575
  1. ;;21,"65162-0506-03 ")
  1. ;;576
  1. ;;21,"65162-0506-06 ")
  1. ;;577
  1. ;;21,"65162-0506-09 ")
  1. ;;578
  1. ;;21,"65162-0506-50 ")
  1. ;;579
  1. ;;21,"66116-0222-30 ")
  1. ;;580
  1. ;;21,"66116-0615-30 ")
  1. ;;581
  1. ;;21,"66116-0661-20 ")
  1. ;;582
  1. ;;21,"66267-0119-30 ")
  1. ;;583
  1. ;;21,"66267-0120-20 ")
  1. ;;584
  1. ;;21,"66267-0120-30 ")
  1. ;;585
  1. ;;21,"66267-0121-14 ")
  1. ;;586
  1. ;;21,"66267-0121-15 ")
  1. ;;587
  1. ;;21,"66267-0121-20 ")
  1. ;;588
  1. ;;21,"66267-0418-20 ")
  1. ;;589
  1. ;;21,"66267-0418-60 ")
  1. ;;590
  1. ;;21,"66267-0487-30 ")
  1. ;;591
  1. ;;21,"66267-0487-40 ")
  1. ;;592
  1. ;;21,"66267-0926-00 ")
  1. ;;593
  1. ;;21,"66336-0302-30 ")
  1. ;;594
  1. ;;21,"66336-0446-08 ")
  1. ;;595
  1. ;;21,"66336-0446-10 ")
  1. ;;596
  1. ;;21,"66336-0446-15 ")
  1. ;;597
  1. ;;21,"66336-0446-20 ")
  1. ;;598
  1. ;;21,"66336-0446-30 ")
  1. ;;599
  1. ;;21,"66336-0660-30 ")
  1. ;;600
  1. ;;21,"66336-0684-21 ")
  1. ;;601
  1. ;;21,"66336-0684-30 ")
  1. ;;602
  1. ;;21,"66336-0687-14 ")
  1. ;;603
  1. ;;21,"66336-0687-15 ")
  1. ;;604
  1. ;;21,"66336-0687-30 ")
  1. ;;605
  1. ;;21,"66336-0687-60 ")
  1. ;;606
  1. ;;21,"66336-0733-20 ")
  1. ;;607
  1. ;;21,"66336-0733-21 ")
  1. ;;608
  1. ;;21,"66336-0733-30 ")
  1. ;;609
  1. ;;21,"66860-0084-03 ")
  1. ;;610
  1. ;;21,"66860-0085-03 ")
  1. ;;611
  1. ;;21,"66860-0086-03 ")
  1. ;;612
  1. ;;21,"67386-0511-51 ")
  1. ;;613
  1. ;;21,"67544-0525-20 ")
  1. ;;614
  1. ;;21,"68071-0760-30 ")
  1. ;;615
  1. ;;21,"68084-0411-11 ")
  1. ;;616
  1. ;;21,"68084-0411-21 ")
  1. ;;617
  1. ;;21,"68258-8990-01 ")
  1. ;;618
  1. ;;21,"68258-8990-02 ")
  1. ;;619
  1. ;;21,"68387-0344-30 ")
  1. ;;620
  1. ;;21,"68387-0345-30 ")
  1. ;;621
  1. ;;21,"68387-0440-20 ")
  1. ;;622
  1. ;;21,"68387-0440-30 ")
  1. ;;623
  1. ;;21,"68387-0531-12 ")
  1. ;;624
  1. ;;21,"68387-0531-30 ")
  1. ;;625
  1. ;;21,"68387-0531-60 ")
  1. ;;626
  1. ;;21,"68462-0302-01 ")
  1. ;;627
  1. ;;21,"68462-0302-05 ")
  1. ;;628
  1. ;;21,"68462-0406-01 ")
  1. ;;629
  1. ;;21,"68462-0406-10 ")
  1. ;;630
  1. ;;21,"68788-9107-02 ")
  1. ;;631
  1. ;;21,"68788-9108-03 ")
  1. ;;632
  1. ;;21,"76420-0771-01 ")
  1. ;;633
  1. ;;21,"76420-0772-01 ")
  1. ;;634
  1. ;;9002226,1803,.01)
  1. ;;BGP HEDIS PAIN NDC
  1. ;;9002226,1803,.02)
  1. ;;@
  1. ;;9002226,1803,.04)
  1. ;;n
  1. ;;9002226,1803,.06)
  1. ;;@
  1. ;;9002226,1803,.08)
  1. ;;@
  1. ;;9002226,1803,.09)
  1. ;;3150818
  1. ;;9002226,1803,.11)
  1. ;;@
  1. ;;9002226,1803,.12)
  1. ;;@
  1. ;;9002226,1803,.13)
  1. ;;1
  1. ;;9002226,1803,.14)
  1. ;;@
  1. ;;9002226,1803,.15)
  1. ;;50.67
  1. ;;9002226,1803,.16)
  1. ;;@
  1. ;;9002226,1803,.17)
  1. ;;@
  1. ;;9002226,1803,3101)
  1. ;;@
  1. ;;9002226.02101,"1803,00024-0335-04 ",.01)
  1. ;;00024-0335-04
  1. ;;9002226.02101,"1803,00024-0335-04 ",.02)
  1. ;;00024-0335-04
  1. ;;9002226.02101,"1803,00024-0335-05 ",.01)
  1. ;;00024-0335-05
  1. ;;9002226.02101,"1803,00024-0335-05 ",.02)
  1. ;;00024-0335-05
  1. ;;9002226.02101,"1803,00024-0337-04 ",.01)
  1. ;;00024-0337-04
  1. ;;9002226.02101,"1803,00024-0337-04 ",.02)
  1. ;;00024-0337-04
  1. ;;9002226.02101,"1803,00024-0337-05 ",.01)
  1. ;;00024-0337-05
  1. ;;9002226.02101,"1803,00024-0337-05 ",.02)
  1. ;;00024-0337-05
  1. ;;9002226.02101,"1803,00054-3545-63 ",.01)
  1. ;;00054-3545-63
  1. ;;9002226.02101,"1803,00054-3545-63 ",.02)
  1. ;;00054-3545-63
  1. ;;9002226.02101,"1803,00054-4595-25 ",.01)
  1. ;;00054-4595-25
  1. ;;9002226.02101,"1803,00054-4595-25 ",.02)
  1. ;;00054-4595-25
  1. ;;9002226.02101,"1803,00054-4596-25 ",.01)
  1. ;;00054-4596-25
  1. ;;9002226.02101,"1803,00054-4596-25 ",.02)
  1. ;;00054-4596-25
  1. ;;9002226.02101,"1803,00054-8595-11 ",.01)
  1. ;;00054-8595-11
  1. ;;9002226.02101,"1803,00054-8595-11 ",.02)
  1. ;;00054-8595-11
  1. ;;9002226.02101,"1803,00093-0314-01 ",.01)
  1. ;;00093-0314-01
  1. ;;9002226.02101,"1803,00093-0314-01 ",.02)
  1. ;;00093-0314-01
  1. ;;9002226.02101,"1803,00093-4029-01 ",.01)
  1. ;;00093-4029-01