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

BGP61L8.m

Go to the documentation of this file.
BGP61L8 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"68084-0819-33 ")
 ;;2538
 ;;21,"68180-0336-07 ")
 ;;2539
 ;;21,"68180-0337-07 ")
 ;;2540
 ;;21,"68258-3034-03 ")
 ;;2541
 ;;21,"68258-5230-03 ")
 ;;2542
 ;;21,"68258-5990-03 ")
 ;;2543
 ;;21,"68258-5990-09 ")
 ;;2544
 ;;21,"68258-5991-03 ")
 ;;2545
 ;;21,"68258-6007-03 ")
 ;;2546
 ;;21,"68258-8947-01 ")
 ;;2547
 ;;21,"68258-8948-02 ")
 ;;2548
 ;;21,"68382-0027-05 ")
 ;;2549
 ;;21,"68382-0028-01 ")
 ;;2550
 ;;21,"68382-0028-05 ")
 ;;2551
 ;;21,"68382-0028-10 ")
 ;;2552
 ;;21,"68382-0029-01 ")
 ;;2553
 ;;21,"68382-0029-05 ")
 ;;2554
 ;;21,"68382-0029-10 ")
 ;;2555
 ;;21,"68382-0030-01 ")
 ;;2556
 ;;21,"68382-0030-05 ")
 ;;2557
 ;;21,"68382-0030-10 ")
 ;;2558
 ;;21,"68382-0039-05 ")
 ;;2559
 ;;21,"68382-0758-10 ")
 ;;2560
 ;;21,"68382-0759-05 ")
 ;;2561
 ;;21,"68382-0759-10 ")
 ;;2562
 ;;21,"68382-0760-05 ")
 ;;2563
 ;;21,"68382-0760-10 ")
 ;;2564
 ;;21,"68462-0159-01 ")
 ;;2565
 ;;21,"68462-0159-05 ")
 ;;2566
 ;;21,"68462-0159-10 ")
 ;;2567
 ;;21,"68462-0159-18 ")
 ;;2568
 ;;21,"68462-0159-90 ")
 ;;2569
 ;;21,"68462-0160-01 ")
 ;;2570
 ;;21,"68462-0160-05 ")
 ;;2571
 ;;21,"68462-0160-10 ")
 ;;2572
 ;;21,"68462-0160-18 ")
 ;;2573
 ;;21,"68462-0160-90 ")
 ;;2574
 ;;21,"68462-0161-01 ")
 ;;2575
 ;;21,"68462-0161-05 ")
 ;;2576
 ;;21,"68462-0161-10 ")
 ;;2577
 ;;21,"68462-0161-18 ")
 ;;2578
 ;;21,"68462-0161-90 ")
 ;;2579
 ;;21,"68645-0150-54 ")
 ;;2580
 ;;21,"68645-0151-59 ")
 ;;2581
 ;;21,"68645-0210-54 ")
 ;;2582
 ;;21,"68645-0211-54 ")
 ;;2583
 ;;21,"68645-0290-59 ")
 ;;2584
 ;;21,"68645-0300-59 ")
 ;;2585
 ;;21,"68788-0141-03 ")
 ;;2586
 ;;21,"68788-0397-03 ")
 ;;2587
 ;;21,"68788-0397-06 ")
 ;;2588
 ;;21,"68788-0474-03 ")
 ;;2589
 ;;21,"68788-0474-06 ")
 ;;2590
 ;;21,"68788-9121-03 ")
 ;;2591
 ;;21,"68788-9121-06 ")
 ;;2592
 ;;21,"68788-9122-03 ")
 ;;2593
 ;;21,"68788-9122-06 ")
 ;;2594
 ;;21,"68788-9128-03 ")
 ;;2595
 ;;21,"68788-9128-06 ")
 ;;2596
 ;;21,"68788-9128-09 ")
 ;;2597
 ;;21,"68788-9716-03 ")
 ;;2598
 ;;21,"68788-9716-06 ")
 ;;2599
 ;;21,"68788-9716-09 ")
 ;;2600
 ;;21,"68788-9728-03 ")
 ;;2601
 ;;21,"68788-9918-03 ")
 ;;2602
 ;;21,"76439-0123-10 ")
 ;;2603
 ;;21,"76439-0124-10 ")
 ;;2604
 ;;21,"76439-0125-10 ")
 ;;2605
 ;;9002226,1876,.01)
 ;;BGP PQA DIABETES ALL CLASS NDC
 ;;9002226,1876,.02)
 ;;@
 ;;9002226,1876,.04)
 ;;n
 ;;9002226,1876,.06)
 ;;@
 ;;9002226,1876,.08)
 ;;@
 ;;9002226,1876,.09)
 ;;3150818
 ;;9002226,1876,.11)
 ;;@
 ;;9002226,1876,.12)
 ;;@
 ;;9002226,1876,.13)
 ;;1
 ;;9002226,1876,.14)
 ;;@
 ;;9002226,1876,.15)
 ;;50.67
 ;;9002226,1876,.16)
 ;;@
 ;;9002226,1876,.17)
 ;;@
 ;;9002226,1876,3101)
 ;;@
 ;;9002226.02101,"1876,00002-1433-01 ",.01)
 ;;00002-1433-01
 ;;9002226.02101,"1876,00002-1433-01 ",.02)
 ;;00002-1433-01
 ;;9002226.02101,"1876,00002-1433-80 ",.01)
 ;;00002-1433-80
 ;;9002226.02101,"1876,00002-1433-80 ",.02)
 ;;00002-1433-80
 ;;9002226.02101,"1876,00002-1434-01 ",.01)
 ;;00002-1434-01
 ;;9002226.02101,"1876,00002-1434-01 ",.02)
 ;;00002-1434-01
 ;;9002226.02101,"1876,00002-1434-80 ",.01)
 ;;00002-1434-80
 ;;9002226.02101,"1876,00002-1434-80 ",.02)
 ;;00002-1434-80
 ;;9002226.02101,"1876,00003-1427-11 ",.01)
 ;;00003-1427-11
 ;;9002226.02101,"1876,00003-1427-11 ",.02)
 ;;00003-1427-11
 ;;9002226.02101,"1876,00003-1428-11 ",.01)
 ;;00003-1428-11
 ;;9002226.02101,"1876,00003-1428-11 ",.02)
 ;;00003-1428-11
 ;;9002226.02101,"1876,00003-4214-11 ",.01)
 ;;00003-4214-11
 ;;9002226.02101,"1876,00003-4214-11 ",.02)
 ;;00003-4214-11
 ;;9002226.02101,"1876,00003-4214-21 ",.01)
 ;;00003-4214-21
 ;;9002226.02101,"1876,00003-4214-21 ",.02)
 ;;00003-4214-21
 ;;9002226.02101,"1876,00003-4215-11 ",.01)
 ;;00003-4215-11
 ;;9002226.02101,"1876,00003-4215-11 ",.02)
 ;;00003-4215-11
 ;;9002226.02101,"1876,00003-4215-21 ",.01)
 ;;00003-4215-21
 ;;9002226.02101,"1876,00003-4215-21 ",.02)
 ;;00003-4215-21
 ;;9002226.02101,"1876,00003-4215-31 ",.01)
 ;;00003-4215-31
 ;;9002226.02101,"1876,00003-4215-31 ",.02)
 ;;00003-4215-31
 ;;9002226.02101,"1876,00003-4215-41 ",.01)
 ;;00003-4215-41
 ;;9002226.02101,"1876,00003-4215-41 ",.02)
 ;;00003-4215-41
 ;;9002226.02101,"1876,00003-4221-11 ",.01)
 ;;00003-4221-11
 ;;9002226.02101,"1876,00003-4221-11 ",.02)
 ;;00003-4221-11
 ;;9002226.02101,"1876,00003-4222-16 ",.01)
 ;;00003-4222-16
 ;;9002226.02101,"1876,00003-4222-16 ",.02)
 ;;00003-4222-16
 ;;9002226.02101,"1876,00003-4223-11 ",.01)
 ;;00003-4223-11
 ;;9002226.02101,"1876,00003-4223-11 ",.02)
 ;;00003-4223-11
 ;;9002226.02101,"1876,00006-0078-61 ",.01)
 ;;00006-0078-61
 ;;9002226.02101,"1876,00006-0078-61 ",.02)
 ;;00006-0078-61
 ;;9002226.02101,"1876,00006-0078-62 ",.01)
 ;;00006-0078-62
 ;;9002226.02101,"1876,00006-0078-62 ",.02)
 ;;00006-0078-62
 ;;9002226.02101,"1876,00006-0078-82 ",.01)
 ;;00006-0078-82
 ;;9002226.02101,"1876,00006-0078-82 ",.02)
 ;;00006-0078-82
 ;;9002226.02101,"1876,00006-0080-61 ",.01)
 ;;00006-0080-61
 ;;9002226.02101,"1876,00006-0080-61 ",.02)
 ;;00006-0080-61
 ;;9002226.02101,"1876,00006-0080-62 ",.01)
 ;;00006-0080-62
 ;;9002226.02101,"1876,00006-0080-62 ",.02)
 ;;00006-0080-62
 ;;9002226.02101,"1876,00006-0080-82 ",.01)
 ;;00006-0080-82
 ;;9002226.02101,"1876,00006-0080-82 ",.02)
 ;;00006-0080-82
 ;;9002226.02101,"1876,00006-0081-31 ",.01)
 ;;00006-0081-31
 ;;9002226.02101,"1876,00006-0081-31 ",.02)
 ;;00006-0081-31
 ;;9002226.02101,"1876,00006-0081-54 ",.01)
 ;;00006-0081-54
 ;;9002226.02101,"1876,00006-0081-54 ",.02)
 ;;00006-0081-54
 ;;9002226.02101,"1876,00006-0081-82 ",.01)
 ;;00006-0081-82
 ;;9002226.02101,"1876,00006-0081-82 ",.02)
 ;;00006-0081-82
 ;;9002226.02101,"1876,00006-0112-28 ",.01)
 ;;00006-0112-28
 ;;9002226.02101,"1876,00006-0112-28 ",.02)
 ;;00006-0112-28
 ;;9002226.02101,"1876,00006-0112-31 ",.01)
 ;;00006-0112-31
 ;;9002226.02101,"1876,00006-0112-31 ",.02)
 ;;00006-0112-31
 ;;9002226.02101,"1876,00006-0112-54 ",.01)
 ;;00006-0112-54
 ;;9002226.02101,"1876,00006-0112-54 ",.02)
 ;;00006-0112-54
 ;;9002226.02101,"1876,00006-0221-01 ",.01)
 ;;00006-0221-01
 ;;9002226.02101,"1876,00006-0221-01 ",.02)
 ;;00006-0221-01
 ;;9002226.02101,"1876,00006-0221-28 ",.01)
 ;;00006-0221-28
 ;;9002226.02101,"1876,00006-0221-28 ",.02)
 ;;00006-0221-28
 ;;9002226.02101,"1876,00006-0221-31 ",.01)
 ;;00006-0221-31
 ;;9002226.02101,"1876,00006-0221-31 ",.02)
 ;;00006-0221-31
 ;;9002226.02101,"1876,00006-0221-54 ",.01)
 ;;00006-0221-54
 ;;9002226.02101,"1876,00006-0221-54 ",.02)
 ;;00006-0221-54
 ;;9002226.02101,"1876,00006-0277-01 ",.01)
 ;;00006-0277-01
 ;;9002226.02101,"1876,00006-0277-01 ",.02)
 ;;00006-0277-01
 ;;9002226.02101,"1876,00006-0277-02 ",.01)
 ;;00006-0277-02
 ;;9002226.02101,"1876,00006-0277-02 ",.02)
 ;;00006-0277-02
 ;;9002226.02101,"1876,00006-0277-28 ",.01)
 ;;00006-0277-28
 ;;9002226.02101,"1876,00006-0277-28 ",.02)
 ;;00006-0277-28
 ;;9002226.02101,"1876,00006-0277-31 ",.01)
 ;;00006-0277-31
 ;;9002226.02101,"1876,00006-0277-31 ",.02)
 ;;00006-0277-31
 ;;9002226.02101,"1876,00006-0277-33 ",.01)
 ;;00006-0277-33
 ;;9002226.02101,"1876,00006-0277-33 ",.02)
 ;;00006-0277-33
 ;;9002226.02101,"1876,00006-0277-54 ",.01)
 ;;00006-0277-54
 ;;9002226.02101,"1876,00006-0277-54 ",.02)
 ;;00006-0277-54
 ;;9002226.02101,"1876,00006-0277-82 ",.01)
 ;;00006-0277-82
 ;;9002226.02101,"1876,00006-0277-82 ",.02)
 ;;00006-0277-82
 ;;9002226.02101,"1876,00006-0533-31 ",.01)
 ;;00006-0533-31
 ;;9002226.02101,"1876,00006-0533-31 ",.02)
 ;;00006-0533-31
 ;;9002226.02101,"1876,00006-0533-54 ",.01)
 ;;00006-0533-54
 ;;9002226.02101,"1876,00006-0533-54 ",.02)
 ;;00006-0533-54
 ;;9002226.02101,"1876,00006-0535-31 ",.01)
 ;;00006-0535-31
 ;;9002226.02101,"1876,00006-0535-31 ",.02)
 ;;00006-0535-31
 ;;9002226.02101,"1876,00006-0535-54 ",.01)
 ;;00006-0535-54
 ;;9002226.02101,"1876,00006-0535-54 ",.02)
 ;;00006-0535-54
 ;;9002226.02101,"1876,00006-0537-31 ",.01)
 ;;00006-0537-31
 ;;9002226.02101,"1876,00006-0537-31 ",.02)
 ;;00006-0537-31
 ;;9002226.02101,"1876,00006-0537-54 ",.01)
 ;;00006-0537-54
 ;;9002226.02101,"1876,00006-0537-54 ",.02)
 ;;00006-0537-54
 ;;9002226.02101,"1876,00006-0575-52 ",.01)
 ;;00006-0575-52
 ;;9002226.02101,"1876,00006-0575-52 ",.02)
 ;;00006-0575-52
 ;;9002226.02101,"1876,00006-0575-61 ",.01)
 ;;00006-0575-61
 ;;9002226.02101,"1876,00006-0575-61 ",.02)
 ;;00006-0575-61
 ;;9002226.02101,"1876,00006-0575-62 ",.01)
 ;;00006-0575-62
 ;;9002226.02101,"1876,00006-0575-62 ",.02)
 ;;00006-0575-62
 ;;9002226.02101,"1876,00006-0575-82 ",.01)
 ;;00006-0575-82
 ;;9002226.02101,"1876,00006-0575-82 ",.02)
 ;;00006-0575-82
 ;;9002226.02101,"1876,00006-0577-52 ",.01)
 ;;00006-0577-52
 ;;9002226.02101,"1876,00006-0577-52 ",.02)
 ;;00006-0577-52
 ;;9002226.02101,"1876,00006-0577-61 ",.01)
 ;;00006-0577-61
 ;;9002226.02101,"1876,00006-0577-61 ",.02)
 ;;00006-0577-61
 ;;9002226.02101,"1876,00006-0577-62 ",.01)
 ;;00006-0577-62
 ;;9002226.02101,"1876,00006-0577-62 ",.02)
 ;;00006-0577-62
 ;;9002226.02101,"1876,00006-0577-82 ",.01)
 ;;00006-0577-82
 ;;9002226.02101,"1876,00006-0577-82 ",.02)
 ;;00006-0577-82
 ;;9002226.02101,"1876,00006-0753-31 ",.01)
 ;;00006-0753-31
 ;;9002226.02101,"1876,00006-0753-31 ",.02)
 ;;00006-0753-31
 ;;9002226.02101,"1876,00006-0753-54 ",.01)
 ;;00006-0753-54
 ;;9002226.02101,"1876,00006-0753-54 ",.02)
 ;;00006-0753-54
 ;;9002226.02101,"1876,00006-0753-82 ",.01)
 ;;00006-0753-82
 ;;9002226.02101,"1876,00006-0753-82 ",.02)
 ;;00006-0753-82
 ;;9002226.02101,"1876,00006-0757-31 ",.01)
 ;;00006-0757-31
 ;;9002226.02101,"1876,00006-0757-31 ",.02)
 ;;00006-0757-31
 ;;9002226.02101,"1876,00006-0757-54 ",.01)
 ;;00006-0757-54
 ;;9002226.02101,"1876,00006-0757-54 ",.02)
 ;;00006-0757-54
 ;;9002226.02101,"1876,00006-0757-82 ",.01)
 ;;00006-0757-82
 ;;9002226.02101,"1876,00006-0757-82 ",.02)
 ;;00006-0757-82
 ;;9002226.02101,"1876,00006-0773-31 ",.01)
 ;;00006-0773-31
 ;;9002226.02101,"1876,00006-0773-31 ",.02)
 ;;00006-0773-31
 ;;9002226.02101,"1876,00006-0773-54 ",.01)
 ;;00006-0773-54
 ;;9002226.02101,"1876,00006-0773-54 ",.02)
 ;;00006-0773-54
 ;;9002226.02101,"1876,00006-0773-82 ",.01)
 ;;00006-0773-82
 ;;9002226.02101,"1876,00006-0773-82 ",.02)
 ;;00006-0773-82
 ;;9002226.02101,"1876,00009-0341-01 ",.01)
 ;;00009-0341-01
 ;;9002226.02101,"1876,00009-0341-01 ",.02)
 ;;00009-0341-01
 ;;9002226.02101,"1876,00009-0352-01 ",.01)
 ;;00009-0352-01
 ;;9002226.02101,"1876,00009-0352-01 ",.02)
 ;;00009-0352-01
 ;;9002226.02101,"1876,00009-0352-04 ",.01)
 ;;00009-0352-04
 ;;9002226.02101,"1876,00009-0352-04 ",.02)
 ;;00009-0352-04
 ;;9002226.02101,"1876,00009-3449-01 ",.01)
 ;;00009-3449-01
 ;;9002226.02101,"1876,00009-3449-01 ",.02)
 ;;00009-3449-01
 ;;9002226.02101,"1876,00009-3449-03 ",.01)
 ;;00009-3449-03
 ;;9002226.02101,"1876,00009-3449-03 ",.02)
 ;;00009-3449-03
 ;;9002226.02101,"1876,00039-0051-10 ",.01)
 ;;00039-0051-10
 ;;9002226.02101,"1876,00039-0051-10 ",.02)
 ;;00039-0051-10
 ;;9002226.02101,"1876,00039-0052-10 ",.01)
 ;;00039-0052-10
 ;;9002226.02101,"1876,00039-0052-10 ",.02)
 ;;00039-0052-10
 ;;9002226.02101,"1876,00039-0052-70 ",.01)
 ;;00039-0052-70
 ;;9002226.02101,"1876,00039-0052-70 ",.02)
 ;;00039-0052-70
 ;;9002226.02101,"1876,00039-0053-05 ",.01)
 ;;00039-0053-05
 ;;9002226.02101,"1876,00039-0053-05 ",.02)
 ;;00039-0053-05
 ;;9002226.02101,"1876,00039-0221-10 ",.01)
 ;;00039-0221-10
 ;;9002226.02101,"1876,00039-0221-10 ",.02)
 ;;00039-0221-10
 ;;9002226.02101,"1876,00039-0222-10 ",.01)
 ;;00039-0222-10
 ;;9002226.02101,"1876,00039-0222-10 ",.02)
 ;;00039-0222-10
 ;;9002226.02101,"1876,00039-0223-10 ",.01)
 ;;00039-0223-10
 ;;9002226.02101,"1876,00039-0223-10 ",.02)
 ;;00039-0223-10
 ;;9002226.02101,"1876,00049-0170-01 ",.01)
 ;;00049-0170-01
 ;;9002226.02101,"1876,00049-0170-01 ",.02)
 ;;00049-0170-01
 ;;9002226.02101,"1876,00049-0174-02 ",.01)
 ;;00049-0174-02
 ;;9002226.02101,"1876,00049-0174-02 ",.02)
 ;;00049-0174-02
 ;;9002226.02101,"1876,00049-0178-07 ",.01)
 ;;00049-0178-07
 ;;9002226.02101,"1876,00049-0178-07 ",.02)
 ;;00049-0178-07
 ;;9002226.02101,"1876,00049-0178-08 ",.01)
 ;;00049-0178-08
 ;;9002226.02101,"1876,00049-0178-08 ",.02)
 ;;00049-0178-08
 ;;9002226.02101,"1876,00049-1550-66 ",.01)
 ;;00049-1550-66
 ;;9002226.02101,"1876,00049-1550-66 ",.02)
 ;;00049-1550-66
 ;;9002226.02101,"1876,00049-1550-73 ",.01)
 ;;00049-1550-73
 ;;9002226.02101,"1876,00049-1550-73 ",.02)
 ;;00049-1550-73