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

BGP45B2.m

Go to the documentation of this file.
BGP45B2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"51769-8 ")
 ;;483
 ;;21,"53049-3 ")
 ;;484
 ;;21,"53093-1 ")
 ;;485
 ;;21,"53094-9 ")
 ;;486
 ;;21,"53474-3 ")
 ;;487
 ;;21,"53475-0 ")
 ;;488
 ;;21,"53476-8 ")
 ;;489
 ;;21,"53480-0 ")
 ;;490
 ;;21,"53481-8 ")
 ;;491
 ;;21,"53482-6 ")
 ;;492
 ;;21,"53483-4 ")
 ;;493
 ;;21,"53484-2 ")
 ;;494
 ;;21,"53485-9 ")
 ;;495
 ;;21,"53486-7 ")
 ;;496
 ;;21,"53487-5 ")
 ;;497
 ;;21,"53928-8 ")
 ;;552
 ;;21,"53929-6 ")
 ;;553
 ;;21,"54248-0 ")
 ;;498
 ;;21,"54249-8 ")
 ;;499
 ;;21,"54250-6 ")
 ;;500
 ;;21,"54251-4 ")
 ;;501
 ;;21,"54252-2 ")
 ;;502
 ;;21,"54253-0 ")
 ;;503
 ;;21,"54254-8 ")
 ;;504
 ;;21,"54255-5 ")
 ;;505
 ;;21,"54256-3 ")
 ;;506
 ;;21,"54257-1 ")
 ;;507
 ;;21,"54258-9 ")
 ;;508
 ;;21,"54259-7 ")
 ;;509
 ;;21,"54260-5 ")
 ;;510
 ;;21,"54261-3 ")
 ;;511
 ;;21,"54262-1 ")
 ;;512
 ;;21,"54263-9 ")
 ;;513
 ;;21,"54264-7 ")
 ;;514
 ;;21,"54265-4 ")
 ;;515
 ;;21,"54266-2 ")
 ;;516
 ;;21,"54267-0 ")
 ;;517
 ;;21,"54268-8 ")
 ;;518
 ;;21,"54269-6 ")
 ;;519
 ;;21,"54270-4 ")
 ;;520
 ;;21,"54271-2 ")
 ;;521
 ;;21,"54272-0 ")
 ;;522
 ;;21,"54273-8 ")
 ;;523
 ;;21,"54274-6 ")
 ;;524
 ;;21,"54275-3 ")
 ;;525
 ;;21,"54276-1 ")
 ;;526
 ;;21,"54277-9 ")
 ;;527
 ;;21,"54392-6 ")
 ;;528
 ;;21,"54393-4 ")
 ;;529
 ;;21,"54394-2 ")
 ;;530
 ;;21,"54395-9 ")
 ;;531
 ;;21,"54396-7 ")
 ;;532
 ;;21,"54397-5 ")
 ;;533
 ;;21,"54398-3 ")
 ;;534
 ;;21,"54399-1 ")
 ;;535
 ;;21,"54400-7 ")
 ;;536
 ;;21,"54401-5 ")
 ;;537
 ;;21,"54495-7 ")
 ;;538
 ;;21,"54496-5 ")
 ;;539
 ;;21,"54497-3 ")
 ;;540
 ;;21,"54498-1 ")
 ;;541
 ;;21,"54499-9 ")
 ;;542
 ;;21,"55351-1 ")
 ;;543
 ;;21,"55352-9 ")
 ;;544
 ;;21,"55381-8 ")
 ;;545
 ;;21,"56751-1 ")
 ;;554
 ;;21,"57350-1 ")
 ;;555
 ;;21,"57971-4 ")
 ;;556
 ;;21,"57972-2 ")
 ;;557
 ;;21,"5914-7 ")
 ;;446
 ;;21,"59157-8 ")
 ;;558
 ;;21,"59791-4 ")
 ;;559
 ;;21,"59792-2 ")
 ;;560
 ;;21,"59793-0 ")
 ;;561
 ;;21,"59794-8 ")
 ;;562
 ;;21,"59795-5 ")
 ;;563
 ;;21,"59796-3 ")
 ;;564
 ;;21,"59797-1 ")
 ;;565
 ;;21,"59812-8 ")
 ;;566
 ;;21,"59813-6 ")
 ;;567
 ;;21,"59814-4 ")
 ;;568
 ;;21,"59815-1 ")
 ;;569
 ;;21,"6689-4 ")
 ;;447
 ;;21,"6749-6 ")
 ;;448
 ;;21,"6752-0 ")
 ;;449
 ;;21,"6753-8 ")
 ;;450
 ;;21,"6754-6 ")
 ;;451
 ;;21,"6755-3 ")
 ;;452
 ;;21,"6756-1 ")
 ;;453
 ;;21,"6759-5 ")
 ;;454
 ;;21,"6760-3 ")
 ;;455
 ;;21,"6762-9 ")
 ;;456
 ;;21,"6764-5 ")
 ;;457
 ;;21,"6777-7 ")
 ;;458
 ;;21,"69941-3 ")
 ;;571
 ;;21,"69942-1 ")
 ;;572
 ;;21,"69943-9 ")
 ;;573
 ;;21,"69944-7 ")
 ;;574
 ;;21,"70208-4 ")
 ;;575
 ;;21,"72171-2 ")
 ;;576
 ;;21,"72516-8 ")
 ;;577
 ;;21,"72895-6 ")
 ;;578
 ;;21,"72896-4 ")
 ;;579
 ;;21,"9375-7 ")
 ;;459
 ;;21,"9376-5 ")
 ;;460
 ;;21,"9377-3 ")
 ;;461
 ;;21,"9378-1 ")
 ;;462
 ;;9002226,710,.01)
 ;;BGP GLUCOSE LOINC
 ;;9002226,710,.02)
 ;;@
 ;;9002226,710,.04)
 ;;n
 ;;9002226,710,.06)
 ;;@
 ;;9002226,710,.08)
 ;;@
 ;;9002226,710,.09)
 ;;@
 ;;9002226,710,.11)
 ;;@
 ;;9002226,710,.12)
 ;;@
 ;;9002226,710,.13)
 ;;1
 ;;9002226,710,.14)
 ;;FIHS
 ;;9002226,710,.15)
 ;;95.3
 ;;9002226,710,.16)
 ;;@
 ;;9002226,710,.17)
 ;;@
 ;;9002226,710,3101)
 ;;@
 ;;9002226.02101,"710,10449-7 ",.01)
 ;;10449-7
 ;;9002226.02101,"710,10449-7 ",.02)
 ;;10449-7
 ;;9002226.02101,"710,10450-5 ",.01)
 ;;10450-5
 ;;9002226.02101,"710,10450-5 ",.02)
 ;;10450-5
 ;;9002226.02101,"710,10832-4 ",.01)
 ;;10832-4
 ;;9002226.02101,"710,10832-4 ",.02)
 ;;10832-4
 ;;9002226.02101,"710,10968-6 ",.01)
 ;;10968-6
 ;;9002226.02101,"710,10968-6 ",.02)
 ;;10968-6
 ;;9002226.02101,"710,11032-0 ",.01)
 ;;11032-0
 ;;9002226.02101,"710,11032-0 ",.02)
 ;;11032-0
 ;;9002226.02101,"710,11142-7 ",.01)
 ;;11142-7
 ;;9002226.02101,"710,11142-7 ",.02)
 ;;11142-7
 ;;9002226.02101,"710,11143-5 ",.01)
 ;;11143-5
 ;;9002226.02101,"710,11143-5 ",.02)
 ;;11143-5
 ;;9002226.02101,"710,12219-2 ",.01)
 ;;12219-2
 ;;9002226.02101,"710,12219-2 ",.02)
 ;;12219-2
 ;;9002226.02101,"710,12220-0 ",.01)
 ;;12220-0
 ;;9002226.02101,"710,12220-0 ",.02)
 ;;12220-0
 ;;9002226.02101,"710,12607-8 ",.01)
 ;;12607-8
 ;;9002226.02101,"710,12607-8 ",.02)
 ;;12607-8
 ;;9002226.02101,"710,12610-2 ",.01)
 ;;12610-2
 ;;9002226.02101,"710,12610-2 ",.02)
 ;;12610-2
 ;;9002226.02101,"710,12611-0 ",.01)
 ;;12611-0
 ;;9002226.02101,"710,12611-0 ",.02)
 ;;12611-0
 ;;9002226.02101,"710,12613-6 ",.01)
 ;;12613-6
 ;;9002226.02101,"710,12613-6 ",.02)
 ;;12613-6
 ;;9002226.02101,"710,12614-4 ",.01)
 ;;12614-4
 ;;9002226.02101,"710,12614-4 ",.02)
 ;;12614-4
 ;;9002226.02101,"710,12615-1 ",.01)
 ;;12615-1
 ;;9002226.02101,"710,12615-1 ",.02)
 ;;12615-1
 ;;9002226.02101,"710,12616-9 ",.01)
 ;;12616-9
 ;;9002226.02101,"710,12616-9 ",.02)
 ;;12616-9
 ;;9002226.02101,"710,12617-7 ",.01)
 ;;12617-7
 ;;9002226.02101,"710,12617-7 ",.02)
 ;;12617-7
 ;;9002226.02101,"710,12618-5 ",.01)
 ;;12618-5
 ;;9002226.02101,"710,12618-5 ",.02)
 ;;12618-5
 ;;9002226.02101,"710,12619-3 ",.01)
 ;;12619-3
 ;;9002226.02101,"710,12619-3 ",.02)
 ;;12619-3
 ;;9002226.02101,"710,12620-1 ",.01)
 ;;12620-1
 ;;9002226.02101,"710,12620-1 ",.02)
 ;;12620-1
 ;;9002226.02101,"710,12621-9 ",.01)
 ;;12621-9
 ;;9002226.02101,"710,12621-9 ",.02)
 ;;12621-9
 ;;9002226.02101,"710,12622-7 ",.01)
 ;;12622-7
 ;;9002226.02101,"710,12622-7 ",.02)
 ;;12622-7
 ;;9002226.02101,"710,12623-5 ",.01)
 ;;12623-5
 ;;9002226.02101,"710,12623-5 ",.02)
 ;;12623-5
 ;;9002226.02101,"710,12624-3 ",.01)
 ;;12624-3
 ;;9002226.02101,"710,12624-3 ",.02)
 ;;12624-3
 ;;9002226.02101,"710,12625-0 ",.01)
 ;;12625-0
 ;;9002226.02101,"710,12625-0 ",.02)
 ;;12625-0
 ;;9002226.02101,"710,12626-8 ",.01)
 ;;12626-8
 ;;9002226.02101,"710,12626-8 ",.02)
 ;;12626-8
 ;;9002226.02101,"710,12627-6 ",.01)
 ;;12627-6
 ;;9002226.02101,"710,12627-6 ",.02)
 ;;12627-6
 ;;9002226.02101,"710,12631-8 ",.01)
 ;;12631-8
 ;;9002226.02101,"710,12631-8 ",.02)
 ;;12631-8
 ;;9002226.02101,"710,12632-6 ",.01)
 ;;12632-6
 ;;9002226.02101,"710,12632-6 ",.02)
 ;;12632-6
 ;;9002226.02101,"710,12635-9 ",.01)
 ;;12635-9
 ;;9002226.02101,"710,12635-9 ",.02)
 ;;12635-9
 ;;9002226.02101,"710,12636-7 ",.01)
 ;;12636-7
 ;;9002226.02101,"710,12636-7 ",.02)
 ;;12636-7
 ;;9002226.02101,"710,12637-5 ",.01)
 ;;12637-5
 ;;9002226.02101,"710,12637-5 ",.02)
 ;;12637-5
 ;;9002226.02101,"710,12638-3 ",.01)
 ;;12638-3
 ;;9002226.02101,"710,12638-3 ",.02)
 ;;12638-3
 ;;9002226.02101,"710,12639-1 ",.01)
 ;;12639-1
 ;;9002226.02101,"710,12639-1 ",.02)
 ;;12639-1
 ;;9002226.02101,"710,12640-9 ",.01)
 ;;12640-9
 ;;9002226.02101,"710,12640-9 ",.02)
 ;;12640-9
 ;;9002226.02101,"710,12641-7 ",.01)
 ;;12641-7
 ;;9002226.02101,"710,12641-7 ",.02)
 ;;12641-7
 ;;9002226.02101,"710,12642-5 ",.01)
 ;;12642-5
 ;;9002226.02101,"710,12642-5 ",.02)
 ;;12642-5
 ;;9002226.02101,"710,12643-3 ",.01)
 ;;12643-3
 ;;9002226.02101,"710,12643-3 ",.02)
 ;;12643-3
 ;;9002226.02101,"710,12644-1 ",.01)
 ;;12644-1
 ;;9002226.02101,"710,12644-1 ",.02)
 ;;12644-1
 ;;9002226.02101,"710,12645-8 ",.01)
 ;;12645-8
 ;;9002226.02101,"710,12645-8 ",.02)
 ;;12645-8
 ;;9002226.02101,"710,12646-6 ",.01)
 ;;12646-6
 ;;9002226.02101,"710,12646-6 ",.02)
 ;;12646-6
 ;;9002226.02101,"710,12647-4 ",.01)
 ;;12647-4
 ;;9002226.02101,"710,12647-4 ",.02)
 ;;12647-4
 ;;9002226.02101,"710,12648-2 ",.01)
 ;;12648-2
 ;;9002226.02101,"710,12648-2 ",.02)
 ;;12648-2
 ;;9002226.02101,"710,12649-0 ",.01)
 ;;12649-0
 ;;9002226.02101,"710,12649-0 ",.02)
 ;;12649-0
 ;;9002226.02101,"710,12650-8 ",.01)
 ;;12650-8
 ;;9002226.02101,"710,12650-8 ",.02)
 ;;12650-8
 ;;9002226.02101,"710,12651-6 ",.01)
 ;;12651-6
 ;;9002226.02101,"710,12651-6 ",.02)
 ;;12651-6
 ;;9002226.02101,"710,12652-4 ",.01)
 ;;12652-4
 ;;9002226.02101,"710,12652-4 ",.02)
 ;;12652-4
 ;;9002226.02101,"710,12653-2 ",.01)
 ;;12653-2
 ;;9002226.02101,"710,12653-2 ",.02)
 ;;12653-2
 ;;9002226.02101,"710,12654-0 ",.01)
 ;;12654-0
 ;;9002226.02101,"710,12654-0 ",.02)
 ;;12654-0
 ;;9002226.02101,"710,12655-7 ",.01)
 ;;12655-7
 ;;9002226.02101,"710,12655-7 ",.02)
 ;;12655-7
 ;;9002226.02101,"710,12656-5 ",.01)
 ;;12656-5
 ;;9002226.02101,"710,12656-5 ",.02)
 ;;12656-5
 ;;9002226.02101,"710,12657-3 ",.01)
 ;;12657-3
 ;;9002226.02101,"710,12657-3 ",.02)
 ;;12657-3
 ;;9002226.02101,"710,12658-1 ",.01)
 ;;12658-1
 ;;9002226.02101,"710,12658-1 ",.02)
 ;;12658-1
 ;;9002226.02101,"710,12659-9 ",.01)
 ;;12659-9
 ;;9002226.02101,"710,12659-9 ",.02)
 ;;12659-9
 ;;9002226.02101,"710,13453-6 ",.01)
 ;;13453-6
 ;;9002226.02101,"710,13453-6 ",.02)
 ;;13453-6
 ;;9002226.02101,"710,13606-9 ",.01)
 ;;13606-9
 ;;9002226.02101,"710,13606-9 ",.02)
 ;;13606-9
 ;;9002226.02101,"710,13607-7 ",.01)
 ;;13607-7
 ;;9002226.02101,"710,13607-7 ",.02)
 ;;13607-7
 ;;9002226.02101,"710,13865-1 ",.01)
 ;;13865-1
 ;;9002226.02101,"710,13865-1 ",.02)
 ;;13865-1
 ;;9002226.02101,"710,13866-9 ",.01)
 ;;13866-9
 ;;9002226.02101,"710,13866-9 ",.02)
 ;;13866-9
 ;;9002226.02101,"710,14137-4 ",.01)
 ;;14137-4
 ;;9002226.02101,"710,14137-4 ",.02)
 ;;14137-4
 ;;9002226.02101,"710,14743-9 ",.01)
 ;;14743-9
 ;;9002226.02101,"710,14743-9 ",.02)
 ;;14743-9
 ;;9002226.02101,"710,14749-6 ",.01)
 ;;14749-6
 ;;9002226.02101,"710,14749-6 ",.02)
 ;;14749-6
 ;;9002226.02101,"710,14751-2 ",.01)
 ;;14751-2
 ;;9002226.02101,"710,14751-2 ",.02)
 ;;14751-2
 ;;9002226.02101,"710,14752-0 ",.01)
 ;;14752-0
 ;;9002226.02101,"710,14752-0 ",.02)
 ;;14752-0
 ;;9002226.02101,"710,14753-8 ",.01)
 ;;14753-8
 ;;9002226.02101,"710,14753-8 ",.02)
 ;;14753-8
 ;;9002226.02101,"710,14754-6 ",.01)
 ;;14754-6
 ;;9002226.02101,"710,14754-6 ",.02)
 ;;14754-6
 ;;9002226.02101,"710,14755-3 ",.01)
 ;;14755-3
 ;;9002226.02101,"710,14755-3 ",.02)
 ;;14755-3
 ;;9002226.02101,"710,14756-1 ",.01)
 ;;14756-1
 ;;9002226.02101,"710,14756-1 ",.02)
 ;;14756-1
 ;;9002226.02101,"710,14757-9 ",.01)
 ;;14757-9
 ;;9002226.02101,"710,14757-9 ",.02)
 ;;14757-9
 ;;9002226.02101,"710,14758-7 ",.01)
 ;;14758-7
 ;;9002226.02101,"710,14758-7 ",.02)
 ;;14758-7
 ;;9002226.02101,"710,14759-5 ",.01)
 ;;14759-5
 ;;9002226.02101,"710,14759-5 ",.02)
 ;;14759-5
 ;;9002226.02101,"710,14760-3 ",.01)
 ;;14760-3
 ;;9002226.02101,"710,14760-3 ",.02)
 ;;14760-3
 ;;9002226.02101,"710,14761-1 ",.01)
 ;;14761-1
 ;;9002226.02101,"710,14761-1 ",.02)
 ;;14761-1
 ;;9002226.02101,"710,14762-9 ",.01)
 ;;14762-9
 ;;9002226.02101,"710,14762-9 ",.02)
 ;;14762-9
 ;;9002226.02101,"710,14763-7 ",.01)
 ;;14763-7
 ;;9002226.02101,"710,14763-7 ",.02)
 ;;14763-7
 ;;9002226.02101,"710,14764-5 ",.01)
 ;;14764-5
 ;;9002226.02101,"710,14764-5 ",.02)
 ;;14764-5
 ;;9002226.02101,"710,14765-2 ",.01)
 ;;14765-2
 ;;9002226.02101,"710,14765-2 ",.02)
 ;;14765-2
 ;;9002226.02101,"710,14766-0 ",.01)
 ;;14766-0
 ;;9002226.02101,"710,14766-0 ",.02)
 ;;14766-0
 ;;9002226.02101,"710,14767-8 ",.01)
 ;;14767-8
 ;;9002226.02101,"710,14767-8 ",.02)
 ;;14767-8
 ;;9002226.02101,"710,14768-6 ",.01)
 ;;14768-6
 ;;9002226.02101,"710,14768-6 ",.02)
 ;;14768-6
 ;;9002226.02101,"710,14769-4 ",.01)
 ;;14769-4
 ;;9002226.02101,"710,14769-4 ",.02)
 ;;14769-4
 ;;9002226.02101,"710,14770-2 ",.01)
 ;;14770-2
 ;;9002226.02101,"710,14770-2 ",.02)
 ;;14770-2
 ;;9002226.02101,"710,14771-0 ",.01)
 ;;14771-0
 ;;9002226.02101,"710,14771-0 ",.02)
 ;;14771-0
 ;;9002226.02101,"710,1491-0 ",.01)
 ;;1491-0
 ;;9002226.02101,"710,1491-0 ",.02)
 ;;1491-0
 ;;9002226.02101,"710,1492-8 ",.01)
 ;;1492-8
 ;;9002226.02101,"710,1492-8 ",.02)
 ;;1492-8
 ;;9002226.02101,"710,1493-6 ",.01)
 ;;1493-6
 ;;9002226.02101,"710,1493-6 ",.02)
 ;;1493-6
 ;;9002226.02101,"710,1494-4 ",.01)
 ;;1494-4
 ;;9002226.02101,"710,1494-4 ",.02)
 ;;1494-4
 ;;9002226.02101,"710,1496-9 ",.01)
 ;;1496-9
 ;;9002226.02101,"710,1496-9 ",.02)
 ;;1496-9
 ;;9002226.02101,"710,1497-7 ",.01)
 ;;1497-7
 ;;9002226.02101,"710,1497-7 ",.02)
 ;;1497-7
 ;;9002226.02101,"710,1498-5 ",.01)
 ;;1498-5
 ;;9002226.02101,"710,1498-5 ",.02)
 ;;1498-5
 ;;9002226.02101,"710,1499-3 ",.01)
 ;;1499-3
 ;;9002226.02101,"710,1499-3 ",.02)
 ;;1499-3
 ;;9002226.02101,"710,14995-5 ",.01)
 ;;14995-5
 ;;9002226.02101,"710,14995-5 ",.02)
 ;;14995-5
 ;;9002226.02101,"710,14996-3 ",.01)
 ;;14996-3
 ;;9002226.02101,"710,14996-3 ",.02)
 ;;14996-3
 ;;9002226.02101,"710,1500-8 ",.01)
 ;;1500-8
 ;;9002226.02101,"710,1500-8 ",.02)
 ;;1500-8
 ;;9002226.02101,"710,1501-6 ",.01)
 ;;1501-6
 ;;9002226.02101,"710,1501-6 ",.02)
 ;;1501-6
 ;;9002226.02101,"710,1502-4 ",.01)
 ;;1502-4
 ;;9002226.02101,"710,1502-4 ",.02)
 ;;1502-4
 ;;9002226.02101,"710,1504-0 ",.01)
 ;;1504-0
 ;;9002226.02101,"710,1504-0 ",.02)
 ;;1504-0
 ;;9002226.02101,"710,1506-5 ",.01)
 ;;1506-5
 ;;9002226.02101,"710,1506-5 ",.02)
 ;;1506-5
 ;;9002226.02101,"710,1507-3 ",.01)
 ;;1507-3
 ;;9002226.02101,"710,1507-3 ",.02)
 ;;1507-3
 ;;9002226.02101,"710,15074-8 ",.01)
 ;;15074-8
 ;;9002226.02101,"710,15074-8 ",.02)
 ;;15074-8
 ;;9002226.02101,"710,1508-1 ",.01)
 ;;1508-1
 ;;9002226.02101,"710,1508-1 ",.02)
 ;;1508-1
 ;;9002226.02101,"710,1510-7 ",.01)
 ;;1510-7