BGP53W2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2015;
;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
;
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,"41653-7 ")
;;408
;;21,"42604-9 ")
;;409
;;21,"42609-8 ")
;;410
;;21,"42615-5 ")
;;411
;;21,"42629-6 ")
;;412
;;21,"42631-2 ")
;;413
;;21,"43740-0 ")
;;414
;;21,"44919-9 ")
;;415
;;21,"45052-8 ")
;;416
;;21,"45053-6 ")
;;417
;;21,"45054-4 ")
;;418
;;21,"45055-1 ")
;;419
;;21,"45056-9 ")
;;420
;;21,"45204-5 ")
;;421
;;21,"45205-2 ")
;;422
;;21,"45206-0 ")
;;423
;;21,"45298-7 ")
;;424
;;21,"45299-5 ")
;;425
;;21,"46222-6 ")
;;426
;;21,"46223-4 ")
;;427
;;21,"47622-6 ")
;;428
;;21,"47859-4 ")
;;429
;;21,"47995-6 ")
;;430
;;21,"48109-3 ")
;;431
;;21,"48605-0 ")
;;432
;;21,"48606-8 ")
;;433
;;21,"48607-6 ")
;;434
;;21,"48810-6 ")
;;435
;;21,"48983-1 ")
;;436
;;21,"48984-9 ")
;;437
;;21,"48985-6 ")
;;438
;;21,"48986-4 ")
;;439
;;21,"48988-0 ")
;;440
;;21,"48989-8 ")
;;441
;;21,"48990-6 ")
;;442
;;21,"48991-4 ")
;;443
;;21,"48992-2 ")
;;444
;;21,"48993-0 ")
;;445
;;21,"48994-8 ")
;;446
;;21,"49134-0 ")
;;447
;;21,"49688-5 ")
;;448
;;21,"49689-3 ")
;;449
;;21,"50206-2 ")
;;450
;;21,"50207-0 ")
;;451
;;21,"50208-8 ")
;;452
;;21,"50212-0 ")
;;453
;;21,"50213-8 ")
;;454
;;21,"50214-6 ")
;;455
;;21,"50215-3 ")
;;456
;;21,"50216-1 ")
;;457
;;21,"50217-9 ")
;;458
;;21,"50218-7 ")
;;459
;;21,"50586-7 ")
;;460
;;21,"50587-5 ")
;;461
;;21,"50588-3 ")
;;462
;;21,"50589-1 ")
;;463
;;21,"50608-9 ")
;;464
;;21,"50667-5 ")
;;465
;;21,"50751-7 ")
;;466
;;21,"51426-5 ")
;;467
;;21,"51596-5 ")
;;468
;;21,"51597-3 ")
;;469
;;21,"51766-4 ")
;;470
;;21,"51767-2 ")
;;471
;;21,"51768-0 ")
;;472
;;21,"51769-8 ")
;;473
;;21,"53049-3 ")
;;474
;;21,"53093-1 ")
;;475
;;21,"53094-9 ")
;;476
;;21,"53474-3 ")
;;477
;;21,"53475-0 ")
;;478
;;21,"53476-8 ")
;;479
;;21,"53480-0 ")
;;480
;;21,"53481-8 ")
;;481
;;21,"53482-6 ")
;;482
;;21,"53483-4 ")
;;483
;;21,"53484-2 ")
;;484
;;21,"53485-9 ")
;;485
;;21,"53486-7 ")
;;486
;;21,"53487-5 ")
;;487
;;21,"53928-8 ")
;;488
;;21,"53929-6 ")
;;489
;;21,"54248-0 ")
;;490
;;21,"54249-8 ")
;;491
;;21,"54250-6 ")
;;492
;;21,"54251-4 ")
;;493
;;21,"54252-2 ")
;;494
;;21,"54253-0 ")
;;495
;;21,"54254-8 ")
;;496
;;21,"54255-5 ")
;;497
;;21,"54256-3 ")
;;498
;;21,"54257-1 ")
;;499
;;21,"54258-9 ")
;;500
;;21,"54259-7 ")
;;501
;;21,"54260-5 ")
;;502
;;21,"54261-3 ")
;;503
;;21,"54262-1 ")
;;504
;;21,"54263-9 ")
;;505
;;21,"54264-7 ")
;;506
;;21,"54265-4 ")
;;507
;;21,"54266-2 ")
;;508
;;21,"54267-0 ")
;;509
;;21,"54268-8 ")
;;510
;;21,"54269-6 ")
;;511
;;21,"54270-4 ")
;;512
;;21,"54271-2 ")
;;513
;;21,"54272-0 ")
;;514
;;21,"54273-8 ")
;;515
;;21,"54274-6 ")
;;516
;;21,"54275-3 ")
;;517
;;21,"54276-1 ")
;;518
;;21,"54277-9 ")
;;519
;;21,"54392-6 ")
;;520
;;21,"54393-4 ")
;;521
;;21,"54394-2 ")
;;522
;;21,"54395-9 ")
;;523
;;21,"54396-7 ")
;;524
;;21,"54397-5 ")
;;525
;;21,"54398-3 ")
;;526
;;21,"54399-1 ")
;;527
;;21,"54400-7 ")
;;528
;;21,"54401-5 ")
;;529
;;21,"54495-7 ")
;;530
;;21,"54496-5 ")
;;531
;;21,"54497-3 ")
;;532
;;21,"54498-1 ")
;;533
;;21,"54499-9 ")
;;534
;;21,"55351-1 ")
;;535
;;21,"55352-9 ")
;;536
;;21,"55381-8 ")
;;537
;;21,"56751-1 ")
;;538
;;21,"57350-1 ")
;;539
;;21,"57971-4 ")
;;540
;;21,"57972-2 ")
;;541
;;21,"5914-7 ")
;;542
;;21,"59157-8 ")
;;543
;;21,"59791-4 ")
;;544
;;21,"59792-2 ")
;;545
;;21,"59793-0 ")
;;546
;;21,"59794-8 ")
;;547
;;21,"59795-5 ")
;;548
;;21,"59796-3 ")
;;549
;;21,"59797-1 ")
;;550
;;21,"59812-8 ")
;;551
;;21,"59813-6 ")
;;552
;;21,"59814-4 ")
;;553
;;21,"59815-1 ")
;;554
;;21,"6689-4 ")
;;555
;;21,"6749-6 ")
;;556
;;21,"6752-0 ")
;;557
;;21,"6753-8 ")
;;558
;;21,"6754-6 ")
;;559
;;21,"6755-3 ")
;;560
;;21,"6756-1 ")
;;561
;;21,"6759-5 ")
;;562
;;21,"6760-3 ")
;;563
;;21,"6762-9 ")
;;564
;;21,"6764-5 ")
;;565
;;21,"6777-7 ")
;;566
;;21,"69941-3 ")
;;567
;;21,"69942-1 ")
;;568
;;21,"69943-9 ")
;;569
;;21,"69944-7 ")
;;570
;;21,"70208-4 ")
;;571
;;21,"72171-2 ")
;;572
;;21,"72516-8 ")
;;573
;;21,"72895-6 ")
;;574
;;21,"72896-4 ")
;;575
;;21,"74084-5 ")
;;576
;;21,"74774-1 ")
;;581
;;21,"9375-7 ")
;;577
;;21,"9376-5 ")
;;578
;;21,"9377-3 ")
;;579
;;21,"9378-1 ")
;;580
;;9002226,614,.01)
;;BGP GLUCOSE LOINC
;;9002226,614,.02)
;;@
;;9002226,614,.04)
;;n
;;9002226,614,.06)
;;@
;;9002226,614,.08)
;;@
;;9002226,614,.09)
;;@
;;9002226,614,.11)
;;@
;;9002226,614,.12)
;;@
;;9002226,614,.13)
;;1
;;9002226,614,.14)
;;FIHS
;;9002226,614,.15)
;;95.3
;;9002226,614,.16)
;;@
;;9002226,614,.17)
;;@
;;9002226,614,3101)
;;@
;;9002226.02101,"614,10449-7 ",.01)
;;10449-7
;;9002226.02101,"614,10449-7 ",.02)
;;10449-7
;;9002226.02101,"614,10450-5 ",.01)
;;10450-5
;;9002226.02101,"614,10450-5 ",.02)
;;10450-5
;;9002226.02101,"614,10832-4 ",.01)
;;10832-4
;;9002226.02101,"614,10832-4 ",.02)
;;10832-4
;;9002226.02101,"614,10968-6 ",.01)
;;10968-6
;;9002226.02101,"614,10968-6 ",.02)
;;10968-6
;;9002226.02101,"614,11032-0 ",.01)
;;11032-0
;;9002226.02101,"614,11032-0 ",.02)
;;11032-0
;;9002226.02101,"614,11142-7 ",.01)
;;11142-7
;;9002226.02101,"614,11142-7 ",.02)
;;11142-7
;;9002226.02101,"614,11143-5 ",.01)
;;11143-5
;;9002226.02101,"614,11143-5 ",.02)
;;11143-5
;;9002226.02101,"614,12219-2 ",.01)
;;12219-2
;;9002226.02101,"614,12219-2 ",.02)
;;12219-2
;;9002226.02101,"614,12220-0 ",.01)
;;12220-0
;;9002226.02101,"614,12220-0 ",.02)
;;12220-0
;;9002226.02101,"614,12607-8 ",.01)
;;12607-8
;;9002226.02101,"614,12607-8 ",.02)
;;12607-8
;;9002226.02101,"614,12610-2 ",.01)
;;12610-2
;;9002226.02101,"614,12610-2 ",.02)
;;12610-2
;;9002226.02101,"614,12611-0 ",.01)
;;12611-0
;;9002226.02101,"614,12611-0 ",.02)
;;12611-0
;;9002226.02101,"614,12613-6 ",.01)
;;12613-6
;;9002226.02101,"614,12613-6 ",.02)
;;12613-6
;;9002226.02101,"614,12614-4 ",.01)
;;12614-4
;;9002226.02101,"614,12614-4 ",.02)
;;12614-4
;;9002226.02101,"614,12615-1 ",.01)
;;12615-1
;;9002226.02101,"614,12615-1 ",.02)
;;12615-1
;;9002226.02101,"614,12616-9 ",.01)
;;12616-9
;;9002226.02101,"614,12616-9 ",.02)
;;12616-9
;;9002226.02101,"614,12617-7 ",.01)
;;12617-7
;;9002226.02101,"614,12617-7 ",.02)
;;12617-7
;;9002226.02101,"614,12618-5 ",.01)
;;12618-5
;;9002226.02101,"614,12618-5 ",.02)
;;12618-5
;;9002226.02101,"614,12619-3 ",.01)
;;12619-3
;;9002226.02101,"614,12619-3 ",.02)
;;12619-3
;;9002226.02101,"614,12620-1 ",.01)
;;12620-1
;;9002226.02101,"614,12620-1 ",.02)
;;12620-1
;;9002226.02101,"614,12621-9 ",.01)
;;12621-9
;;9002226.02101,"614,12621-9 ",.02)
;;12621-9
;;9002226.02101,"614,12622-7 ",.01)
;;12622-7
;;9002226.02101,"614,12622-7 ",.02)
;;12622-7
;;9002226.02101,"614,12623-5 ",.01)
;;12623-5
;;9002226.02101,"614,12623-5 ",.02)
;;12623-5
;;9002226.02101,"614,12624-3 ",.01)
;;12624-3
;;9002226.02101,"614,12624-3 ",.02)
;;12624-3
;;9002226.02101,"614,12625-0 ",.01)
;;12625-0
;;9002226.02101,"614,12625-0 ",.02)
;;12625-0
;;9002226.02101,"614,12626-8 ",.01)
;;12626-8
;;9002226.02101,"614,12626-8 ",.02)
;;12626-8
;;9002226.02101,"614,12627-6 ",.01)
;;12627-6
;;9002226.02101,"614,12627-6 ",.02)
;;12627-6
;;9002226.02101,"614,12631-8 ",.01)
;;12631-8
;;9002226.02101,"614,12631-8 ",.02)
;;12631-8
;;9002226.02101,"614,12632-6 ",.01)
;;12632-6
;;9002226.02101,"614,12632-6 ",.02)
;;12632-6
;;9002226.02101,"614,12635-9 ",.01)
;;12635-9
;;9002226.02101,"614,12635-9 ",.02)
;;12635-9
;;9002226.02101,"614,12636-7 ",.01)
;;12636-7
;;9002226.02101,"614,12636-7 ",.02)
;;12636-7
;;9002226.02101,"614,12637-5 ",.01)
;;12637-5
;;9002226.02101,"614,12637-5 ",.02)
;;12637-5
;;9002226.02101,"614,12638-3 ",.01)
;;12638-3
;;9002226.02101,"614,12638-3 ",.02)
;;12638-3
;;9002226.02101,"614,12639-1 ",.01)
;;12639-1
;;9002226.02101,"614,12639-1 ",.02)
;;12639-1
;;9002226.02101,"614,12640-9 ",.01)
;;12640-9
;;9002226.02101,"614,12640-9 ",.02)
;;12640-9
;;9002226.02101,"614,12641-7 ",.01)
;;12641-7
;;9002226.02101,"614,12641-7 ",.02)
;;12641-7
;;9002226.02101,"614,12642-5 ",.01)
;;12642-5
;;9002226.02101,"614,12642-5 ",.02)
;;12642-5
;;9002226.02101,"614,12643-3 ",.01)
;;12643-3
;;9002226.02101,"614,12643-3 ",.02)
;;12643-3
;;9002226.02101,"614,12644-1 ",.01)
;;12644-1
;;9002226.02101,"614,12644-1 ",.02)
;;12644-1
;;9002226.02101,"614,12645-8 ",.01)
;;12645-8
;;9002226.02101,"614,12645-8 ",.02)
;;12645-8
;;9002226.02101,"614,12646-6 ",.01)
;;12646-6
;;9002226.02101,"614,12646-6 ",.02)
;;12646-6
;;9002226.02101,"614,12647-4 ",.01)
;;12647-4
;;9002226.02101,"614,12647-4 ",.02)
;;12647-4
;;9002226.02101,"614,12648-2 ",.01)
;;12648-2
;;9002226.02101,"614,12648-2 ",.02)
;;12648-2
;;9002226.02101,"614,12649-0 ",.01)
;;12649-0
;;9002226.02101,"614,12649-0 ",.02)
;;12649-0
;;9002226.02101,"614,12650-8 ",.01)
;;12650-8
;;9002226.02101,"614,12650-8 ",.02)
;;12650-8
;;9002226.02101,"614,12651-6 ",.01)
;;12651-6
;;9002226.02101,"614,12651-6 ",.02)
;;12651-6
;;9002226.02101,"614,12652-4 ",.01)
;;12652-4
;;9002226.02101,"614,12652-4 ",.02)
;;12652-4
;;9002226.02101,"614,12653-2 ",.01)
;;12653-2
;;9002226.02101,"614,12653-2 ",.02)
;;12653-2
;;9002226.02101,"614,12654-0 ",.01)
;;12654-0
;;9002226.02101,"614,12654-0 ",.02)
;;12654-0
;;9002226.02101,"614,12655-7 ",.01)
;;12655-7
;;9002226.02101,"614,12655-7 ",.02)
;;12655-7
;;9002226.02101,"614,12656-5 ",.01)
;;12656-5
;;9002226.02101,"614,12656-5 ",.02)
;;12656-5
;;9002226.02101,"614,12657-3 ",.01)
;;12657-3
;;9002226.02101,"614,12657-3 ",.02)
;;12657-3
;;9002226.02101,"614,12658-1 ",.01)
;;12658-1
;;9002226.02101,"614,12658-1 ",.02)
;;12658-1
;;9002226.02101,"614,12659-9 ",.01)
;;12659-9
;;9002226.02101,"614,12659-9 ",.02)
;;12659-9
;;9002226.02101,"614,13453-6 ",.01)
;;13453-6
;;9002226.02101,"614,13453-6 ",.02)
;;13453-6
;;9002226.02101,"614,13606-9 ",.01)
;;13606-9
;;9002226.02101,"614,13606-9 ",.02)
;;13606-9
;;9002226.02101,"614,13607-7 ",.01)
;;13607-7
;;9002226.02101,"614,13607-7 ",.02)
;;13607-7
;;9002226.02101,"614,13865-1 ",.01)
;;13865-1
;;9002226.02101,"614,13865-1 ",.02)
;;13865-1
;;9002226.02101,"614,13866-9 ",.01)
;;13866-9
;;9002226.02101,"614,13866-9 ",.02)
;;13866-9
;;9002226.02101,"614,14137-4 ",.01)
;;14137-4
;;9002226.02101,"614,14137-4 ",.02)
;;14137-4
;;9002226.02101,"614,14743-9 ",.01)
;;14743-9
;;9002226.02101,"614,14743-9 ",.02)
;;14743-9
;;9002226.02101,"614,14749-6 ",.01)
;;14749-6
;;9002226.02101,"614,14749-6 ",.02)
;;14749-6
;;9002226.02101,"614,14751-2 ",.01)
;;14751-2
;;9002226.02101,"614,14751-2 ",.02)
;;14751-2
;;9002226.02101,"614,14752-0 ",.01)
;;14752-0
BGP53W2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2015;
+1 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"41653-7 ")
+2 ;;408
+3 ;;21,"42604-9 ")
+4 ;;409
+5 ;;21,"42609-8 ")
+6 ;;410
+7 ;;21,"42615-5 ")
+8 ;;411
+9 ;;21,"42629-6 ")
+10 ;;412
+11 ;;21,"42631-2 ")
+12 ;;413
+13 ;;21,"43740-0 ")
+14 ;;414
+15 ;;21,"44919-9 ")
+16 ;;415
+17 ;;21,"45052-8 ")
+18 ;;416
+19 ;;21,"45053-6 ")
+20 ;;417
+21 ;;21,"45054-4 ")
+22 ;;418
+23 ;;21,"45055-1 ")
+24 ;;419
+25 ;;21,"45056-9 ")
+26 ;;420
+27 ;;21,"45204-5 ")
+28 ;;421
+29 ;;21,"45205-2 ")
+30 ;;422
+31 ;;21,"45206-0 ")
+32 ;;423
+33 ;;21,"45298-7 ")
+34 ;;424
+35 ;;21,"45299-5 ")
+36 ;;425
+37 ;;21,"46222-6 ")
+38 ;;426
+39 ;;21,"46223-4 ")
+40 ;;427
+41 ;;21,"47622-6 ")
+42 ;;428
+43 ;;21,"47859-4 ")
+44 ;;429
+45 ;;21,"47995-6 ")
+46 ;;430
+47 ;;21,"48109-3 ")
+48 ;;431
+49 ;;21,"48605-0 ")
+50 ;;432
+51 ;;21,"48606-8 ")
+52 ;;433
+53 ;;21,"48607-6 ")
+54 ;;434
+55 ;;21,"48810-6 ")
+56 ;;435
+57 ;;21,"48983-1 ")
+58 ;;436
+59 ;;21,"48984-9 ")
+60 ;;437
+61 ;;21,"48985-6 ")
+62 ;;438
+63 ;;21,"48986-4 ")
+64 ;;439
+65 ;;21,"48988-0 ")
+66 ;;440
+67 ;;21,"48989-8 ")
+68 ;;441
+69 ;;21,"48990-6 ")
+70 ;;442
+71 ;;21,"48991-4 ")
+72 ;;443
+73 ;;21,"48992-2 ")
+74 ;;444
+75 ;;21,"48993-0 ")
+76 ;;445
+77 ;;21,"48994-8 ")
+78 ;;446
+79 ;;21,"49134-0 ")
+80 ;;447
+81 ;;21,"49688-5 ")
+82 ;;448
+83 ;;21,"49689-3 ")
+84 ;;449
+85 ;;21,"50206-2 ")
+86 ;;450
+87 ;;21,"50207-0 ")
+88 ;;451
+89 ;;21,"50208-8 ")
+90 ;;452
+91 ;;21,"50212-0 ")
+92 ;;453
+93 ;;21,"50213-8 ")
+94 ;;454
+95 ;;21,"50214-6 ")
+96 ;;455
+97 ;;21,"50215-3 ")
+98 ;;456
+99 ;;21,"50216-1 ")
+100 ;;457
+101 ;;21,"50217-9 ")
+102 ;;458
+103 ;;21,"50218-7 ")
+104 ;;459
+105 ;;21,"50586-7 ")
+106 ;;460
+107 ;;21,"50587-5 ")
+108 ;;461
+109 ;;21,"50588-3 ")
+110 ;;462
+111 ;;21,"50589-1 ")
+112 ;;463
+113 ;;21,"50608-9 ")
+114 ;;464
+115 ;;21,"50667-5 ")
+116 ;;465
+117 ;;21,"50751-7 ")
+118 ;;466
+119 ;;21,"51426-5 ")
+120 ;;467
+121 ;;21,"51596-5 ")
+122 ;;468
+123 ;;21,"51597-3 ")
+124 ;;469
+125 ;;21,"51766-4 ")
+126 ;;470
+127 ;;21,"51767-2 ")
+128 ;;471
+129 ;;21,"51768-0 ")
+130 ;;472
+131 ;;21,"51769-8 ")
+132 ;;473
+133 ;;21,"53049-3 ")
+134 ;;474
+135 ;;21,"53093-1 ")
+136 ;;475
+137 ;;21,"53094-9 ")
+138 ;;476
+139 ;;21,"53474-3 ")
+140 ;;477
+141 ;;21,"53475-0 ")
+142 ;;478
+143 ;;21,"53476-8 ")
+144 ;;479
+145 ;;21,"53480-0 ")
+146 ;;480
+147 ;;21,"53481-8 ")
+148 ;;481
+149 ;;21,"53482-6 ")
+150 ;;482
+151 ;;21,"53483-4 ")
+152 ;;483
+153 ;;21,"53484-2 ")
+154 ;;484
+155 ;;21,"53485-9 ")
+156 ;;485
+157 ;;21,"53486-7 ")
+158 ;;486
+159 ;;21,"53487-5 ")
+160 ;;487
+161 ;;21,"53928-8 ")
+162 ;;488
+163 ;;21,"53929-6 ")
+164 ;;489
+165 ;;21,"54248-0 ")
+166 ;;490
+167 ;;21,"54249-8 ")
+168 ;;491
+169 ;;21,"54250-6 ")
+170 ;;492
+171 ;;21,"54251-4 ")
+172 ;;493
+173 ;;21,"54252-2 ")
+174 ;;494
+175 ;;21,"54253-0 ")
+176 ;;495
+177 ;;21,"54254-8 ")
+178 ;;496
+179 ;;21,"54255-5 ")
+180 ;;497
+181 ;;21,"54256-3 ")
+182 ;;498
+183 ;;21,"54257-1 ")
+184 ;;499
+185 ;;21,"54258-9 ")
+186 ;;500
+187 ;;21,"54259-7 ")
+188 ;;501
+189 ;;21,"54260-5 ")
+190 ;;502
+191 ;;21,"54261-3 ")
+192 ;;503
+193 ;;21,"54262-1 ")
+194 ;;504
+195 ;;21,"54263-9 ")
+196 ;;505
+197 ;;21,"54264-7 ")
+198 ;;506
+199 ;;21,"54265-4 ")
+200 ;;507
+201 ;;21,"54266-2 ")
+202 ;;508
+203 ;;21,"54267-0 ")
+204 ;;509
+205 ;;21,"54268-8 ")
+206 ;;510
+207 ;;21,"54269-6 ")
+208 ;;511
+209 ;;21,"54270-4 ")
+210 ;;512
+211 ;;21,"54271-2 ")
+212 ;;513
+213 ;;21,"54272-0 ")
+214 ;;514
+215 ;;21,"54273-8 ")
+216 ;;515
+217 ;;21,"54274-6 ")
+218 ;;516
+219 ;;21,"54275-3 ")
+220 ;;517
+221 ;;21,"54276-1 ")
+222 ;;518
+223 ;;21,"54277-9 ")
+224 ;;519
+225 ;;21,"54392-6 ")
+226 ;;520
+227 ;;21,"54393-4 ")
+228 ;;521
+229 ;;21,"54394-2 ")
+230 ;;522
+231 ;;21,"54395-9 ")
+232 ;;523
+233 ;;21,"54396-7 ")
+234 ;;524
+235 ;;21,"54397-5 ")
+236 ;;525
+237 ;;21,"54398-3 ")
+238 ;;526
+239 ;;21,"54399-1 ")
+240 ;;527
+241 ;;21,"54400-7 ")
+242 ;;528
+243 ;;21,"54401-5 ")
+244 ;;529
+245 ;;21,"54495-7 ")
+246 ;;530
+247 ;;21,"54496-5 ")
+248 ;;531
+249 ;;21,"54497-3 ")
+250 ;;532
+251 ;;21,"54498-1 ")
+252 ;;533
+253 ;;21,"54499-9 ")
+254 ;;534
+255 ;;21,"55351-1 ")
+256 ;;535
+257 ;;21,"55352-9 ")
+258 ;;536
+259 ;;21,"55381-8 ")
+260 ;;537
+261 ;;21,"56751-1 ")
+262 ;;538
+263 ;;21,"57350-1 ")
+264 ;;539
+265 ;;21,"57971-4 ")
+266 ;;540
+267 ;;21,"57972-2 ")
+268 ;;541
+269 ;;21,"5914-7 ")
+270 ;;542
+271 ;;21,"59157-8 ")
+272 ;;543
+273 ;;21,"59791-4 ")
+274 ;;544
+275 ;;21,"59792-2 ")
+276 ;;545
+277 ;;21,"59793-0 ")
+278 ;;546
+279 ;;21,"59794-8 ")
+280 ;;547
+281 ;;21,"59795-5 ")
+282 ;;548
+283 ;;21,"59796-3 ")
+284 ;;549
+285 ;;21,"59797-1 ")
+286 ;;550
+287 ;;21,"59812-8 ")
+288 ;;551
+289 ;;21,"59813-6 ")
+290 ;;552
+291 ;;21,"59814-4 ")
+292 ;;553
+293 ;;21,"59815-1 ")
+294 ;;554
+295 ;;21,"6689-4 ")
+296 ;;555
+297 ;;21,"6749-6 ")
+298 ;;556
+299 ;;21,"6752-0 ")
+300 ;;557
+301 ;;21,"6753-8 ")
+302 ;;558
+303 ;;21,"6754-6 ")
+304 ;;559
+305 ;;21,"6755-3 ")
+306 ;;560
+307 ;;21,"6756-1 ")
+308 ;;561
+309 ;;21,"6759-5 ")
+310 ;;562
+311 ;;21,"6760-3 ")
+312 ;;563
+313 ;;21,"6762-9 ")
+314 ;;564
+315 ;;21,"6764-5 ")
+316 ;;565
+317 ;;21,"6777-7 ")
+318 ;;566
+319 ;;21,"69941-3 ")
+320 ;;567
+321 ;;21,"69942-1 ")
+322 ;;568
+323 ;;21,"69943-9 ")
+324 ;;569
+325 ;;21,"69944-7 ")
+326 ;;570
+327 ;;21,"70208-4 ")
+328 ;;571
+329 ;;21,"72171-2 ")
+330 ;;572
+331 ;;21,"72516-8 ")
+332 ;;573
+333 ;;21,"72895-6 ")
+334 ;;574
+335 ;;21,"72896-4 ")
+336 ;;575
+337 ;;21,"74084-5 ")
+338 ;;576
+339 ;;21,"74774-1 ")
+340 ;;581
+341 ;;21,"9375-7 ")
+342 ;;577
+343 ;;21,"9376-5 ")
+344 ;;578
+345 ;;21,"9377-3 ")
+346 ;;579
+347 ;;21,"9378-1 ")
+348 ;;580
+349 ;;9002226,614,.01)
+350 ;;BGP GLUCOSE LOINC
+351 ;;9002226,614,.02)
+352 ;;@
+353 ;;9002226,614,.04)
+354 ;;n
+355 ;;9002226,614,.06)
+356 ;;@
+357 ;;9002226,614,.08)
+358 ;;@
+359 ;;9002226,614,.09)
+360 ;;@
+361 ;;9002226,614,.11)
+362 ;;@
+363 ;;9002226,614,.12)
+364 ;;@
+365 ;;9002226,614,.13)
+366 ;;1
+367 ;;9002226,614,.14)
+368 ;;FIHS
+369 ;;9002226,614,.15)
+370 ;;95.3
+371 ;;9002226,614,.16)
+372 ;;@
+373 ;;9002226,614,.17)
+374 ;;@
+375 ;;9002226,614,3101)
+376 ;;@
+377 ;;9002226.02101,"614,10449-7 ",.01)
+378 ;;10449-7
+379 ;;9002226.02101,"614,10449-7 ",.02)
+380 ;;10449-7
+381 ;;9002226.02101,"614,10450-5 ",.01)
+382 ;;10450-5
+383 ;;9002226.02101,"614,10450-5 ",.02)
+384 ;;10450-5
+385 ;;9002226.02101,"614,10832-4 ",.01)
+386 ;;10832-4
+387 ;;9002226.02101,"614,10832-4 ",.02)
+388 ;;10832-4
+389 ;;9002226.02101,"614,10968-6 ",.01)
+390 ;;10968-6
+391 ;;9002226.02101,"614,10968-6 ",.02)
+392 ;;10968-6
+393 ;;9002226.02101,"614,11032-0 ",.01)
+394 ;;11032-0
+395 ;;9002226.02101,"614,11032-0 ",.02)
+396 ;;11032-0
+397 ;;9002226.02101,"614,11142-7 ",.01)
+398 ;;11142-7
+399 ;;9002226.02101,"614,11142-7 ",.02)
+400 ;;11142-7
+401 ;;9002226.02101,"614,11143-5 ",.01)
+402 ;;11143-5
+403 ;;9002226.02101,"614,11143-5 ",.02)
+404 ;;11143-5
+405 ;;9002226.02101,"614,12219-2 ",.01)
+406 ;;12219-2
+407 ;;9002226.02101,"614,12219-2 ",.02)
+408 ;;12219-2
+409 ;;9002226.02101,"614,12220-0 ",.01)
+410 ;;12220-0
+411 ;;9002226.02101,"614,12220-0 ",.02)
+412 ;;12220-0
+413 ;;9002226.02101,"614,12607-8 ",.01)
+414 ;;12607-8
+415 ;;9002226.02101,"614,12607-8 ",.02)
+416 ;;12607-8
+417 ;;9002226.02101,"614,12610-2 ",.01)
+418 ;;12610-2
+419 ;;9002226.02101,"614,12610-2 ",.02)
+420 ;;12610-2
+421 ;;9002226.02101,"614,12611-0 ",.01)
+422 ;;12611-0
+423 ;;9002226.02101,"614,12611-0 ",.02)
+424 ;;12611-0
+425 ;;9002226.02101,"614,12613-6 ",.01)
+426 ;;12613-6
+427 ;;9002226.02101,"614,12613-6 ",.02)
+428 ;;12613-6
+429 ;;9002226.02101,"614,12614-4 ",.01)
+430 ;;12614-4
+431 ;;9002226.02101,"614,12614-4 ",.02)
+432 ;;12614-4
+433 ;;9002226.02101,"614,12615-1 ",.01)
+434 ;;12615-1
+435 ;;9002226.02101,"614,12615-1 ",.02)
+436 ;;12615-1
+437 ;;9002226.02101,"614,12616-9 ",.01)
+438 ;;12616-9
+439 ;;9002226.02101,"614,12616-9 ",.02)
+440 ;;12616-9
+441 ;;9002226.02101,"614,12617-7 ",.01)
+442 ;;12617-7
+443 ;;9002226.02101,"614,12617-7 ",.02)
+444 ;;12617-7
+445 ;;9002226.02101,"614,12618-5 ",.01)
+446 ;;12618-5
+447 ;;9002226.02101,"614,12618-5 ",.02)
+448 ;;12618-5
+449 ;;9002226.02101,"614,12619-3 ",.01)
+450 ;;12619-3
+451 ;;9002226.02101,"614,12619-3 ",.02)
+452 ;;12619-3
+453 ;;9002226.02101,"614,12620-1 ",.01)
+454 ;;12620-1
+455 ;;9002226.02101,"614,12620-1 ",.02)
+456 ;;12620-1
+457 ;;9002226.02101,"614,12621-9 ",.01)
+458 ;;12621-9
+459 ;;9002226.02101,"614,12621-9 ",.02)
+460 ;;12621-9
+461 ;;9002226.02101,"614,12622-7 ",.01)
+462 ;;12622-7
+463 ;;9002226.02101,"614,12622-7 ",.02)
+464 ;;12622-7
+465 ;;9002226.02101,"614,12623-5 ",.01)
+466 ;;12623-5
+467 ;;9002226.02101,"614,12623-5 ",.02)
+468 ;;12623-5
+469 ;;9002226.02101,"614,12624-3 ",.01)
+470 ;;12624-3
+471 ;;9002226.02101,"614,12624-3 ",.02)
+472 ;;12624-3
+473 ;;9002226.02101,"614,12625-0 ",.01)
+474 ;;12625-0
+475 ;;9002226.02101,"614,12625-0 ",.02)
+476 ;;12625-0
+477 ;;9002226.02101,"614,12626-8 ",.01)
+478 ;;12626-8
+479 ;;9002226.02101,"614,12626-8 ",.02)
+480 ;;12626-8
+481 ;;9002226.02101,"614,12627-6 ",.01)
+482 ;;12627-6
+483 ;;9002226.02101,"614,12627-6 ",.02)
+484 ;;12627-6
+485 ;;9002226.02101,"614,12631-8 ",.01)
+486 ;;12631-8
+487 ;;9002226.02101,"614,12631-8 ",.02)
+488 ;;12631-8
+489 ;;9002226.02101,"614,12632-6 ",.01)
+490 ;;12632-6
+491 ;;9002226.02101,"614,12632-6 ",.02)
+492 ;;12632-6
+493 ;;9002226.02101,"614,12635-9 ",.01)
+494 ;;12635-9
+495 ;;9002226.02101,"614,12635-9 ",.02)
+496 ;;12635-9
+497 ;;9002226.02101,"614,12636-7 ",.01)
+498 ;;12636-7
+499 ;;9002226.02101,"614,12636-7 ",.02)
+500 ;;12636-7
+501 ;;9002226.02101,"614,12637-5 ",.01)
+502 ;;12637-5
+503 ;;9002226.02101,"614,12637-5 ",.02)
+504 ;;12637-5
+505 ;;9002226.02101,"614,12638-3 ",.01)
+506 ;;12638-3
+507 ;;9002226.02101,"614,12638-3 ",.02)
+508 ;;12638-3
+509 ;;9002226.02101,"614,12639-1 ",.01)
+510 ;;12639-1
+511 ;;9002226.02101,"614,12639-1 ",.02)
+512 ;;12639-1
+513 ;;9002226.02101,"614,12640-9 ",.01)
+514 ;;12640-9
+515 ;;9002226.02101,"614,12640-9 ",.02)
+516 ;;12640-9
+517 ;;9002226.02101,"614,12641-7 ",.01)
+518 ;;12641-7
+519 ;;9002226.02101,"614,12641-7 ",.02)
+520 ;;12641-7
+521 ;;9002226.02101,"614,12642-5 ",.01)
+522 ;;12642-5
+523 ;;9002226.02101,"614,12642-5 ",.02)
+524 ;;12642-5
+525 ;;9002226.02101,"614,12643-3 ",.01)
+526 ;;12643-3
+527 ;;9002226.02101,"614,12643-3 ",.02)
+528 ;;12643-3
+529 ;;9002226.02101,"614,12644-1 ",.01)
+530 ;;12644-1
+531 ;;9002226.02101,"614,12644-1 ",.02)
+532 ;;12644-1
+533 ;;9002226.02101,"614,12645-8 ",.01)
+534 ;;12645-8
+535 ;;9002226.02101,"614,12645-8 ",.02)
+536 ;;12645-8
+537 ;;9002226.02101,"614,12646-6 ",.01)
+538 ;;12646-6
+539 ;;9002226.02101,"614,12646-6 ",.02)
+540 ;;12646-6
+541 ;;9002226.02101,"614,12647-4 ",.01)
+542 ;;12647-4
+543 ;;9002226.02101,"614,12647-4 ",.02)
+544 ;;12647-4
+545 ;;9002226.02101,"614,12648-2 ",.01)
+546 ;;12648-2
+547 ;;9002226.02101,"614,12648-2 ",.02)
+548 ;;12648-2
+549 ;;9002226.02101,"614,12649-0 ",.01)
+550 ;;12649-0
+551 ;;9002226.02101,"614,12649-0 ",.02)
+552 ;;12649-0
+553 ;;9002226.02101,"614,12650-8 ",.01)
+554 ;;12650-8
+555 ;;9002226.02101,"614,12650-8 ",.02)
+556 ;;12650-8
+557 ;;9002226.02101,"614,12651-6 ",.01)
+558 ;;12651-6
+559 ;;9002226.02101,"614,12651-6 ",.02)
+560 ;;12651-6
+561 ;;9002226.02101,"614,12652-4 ",.01)
+562 ;;12652-4
+563 ;;9002226.02101,"614,12652-4 ",.02)
+564 ;;12652-4
+565 ;;9002226.02101,"614,12653-2 ",.01)
+566 ;;12653-2
+567 ;;9002226.02101,"614,12653-2 ",.02)
+568 ;;12653-2
+569 ;;9002226.02101,"614,12654-0 ",.01)
+570 ;;12654-0
+571 ;;9002226.02101,"614,12654-0 ",.02)
+572 ;;12654-0
+573 ;;9002226.02101,"614,12655-7 ",.01)
+574 ;;12655-7
+575 ;;9002226.02101,"614,12655-7 ",.02)
+576 ;;12655-7
+577 ;;9002226.02101,"614,12656-5 ",.01)
+578 ;;12656-5
+579 ;;9002226.02101,"614,12656-5 ",.02)
+580 ;;12656-5
+581 ;;9002226.02101,"614,12657-3 ",.01)
+582 ;;12657-3
+583 ;;9002226.02101,"614,12657-3 ",.02)
+584 ;;12657-3
+585 ;;9002226.02101,"614,12658-1 ",.01)
+586 ;;12658-1
+587 ;;9002226.02101,"614,12658-1 ",.02)
+588 ;;12658-1
+589 ;;9002226.02101,"614,12659-9 ",.01)
+590 ;;12659-9
+591 ;;9002226.02101,"614,12659-9 ",.02)
+592 ;;12659-9
+593 ;;9002226.02101,"614,13453-6 ",.01)
+594 ;;13453-6
+595 ;;9002226.02101,"614,13453-6 ",.02)
+596 ;;13453-6
+597 ;;9002226.02101,"614,13606-9 ",.01)
+598 ;;13606-9
+599 ;;9002226.02101,"614,13606-9 ",.02)
+600 ;;13606-9
+601 ;;9002226.02101,"614,13607-7 ",.01)
+602 ;;13607-7
+603 ;;9002226.02101,"614,13607-7 ",.02)
+604 ;;13607-7
+605 ;;9002226.02101,"614,13865-1 ",.01)
+606 ;;13865-1
+607 ;;9002226.02101,"614,13865-1 ",.02)
+608 ;;13865-1
+609 ;;9002226.02101,"614,13866-9 ",.01)
+610 ;;13866-9
+611 ;;9002226.02101,"614,13866-9 ",.02)
+612 ;;13866-9
+613 ;;9002226.02101,"614,14137-4 ",.01)
+614 ;;14137-4
+615 ;;9002226.02101,"614,14137-4 ",.02)
+616 ;;14137-4
+617 ;;9002226.02101,"614,14743-9 ",.01)
+618 ;;14743-9
+619 ;;9002226.02101,"614,14743-9 ",.02)
+620 ;;14743-9
+621 ;;9002226.02101,"614,14749-6 ",.01)
+622 ;;14749-6
+623 ;;9002226.02101,"614,14749-6 ",.02)
+624 ;;14749-6
+625 ;;9002226.02101,"614,14751-2 ",.01)
+626 ;;14751-2
+627 ;;9002226.02101,"614,14751-2 ",.02)
+628 ;;14751-2
+629 ;;9002226.02101,"614,14752-0 ",.01)
+630 ;;14752-0
