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

BGP2TL2.m

Go to the documentation of this file.
BGP2TL2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 27, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"54569-5665-00 ")
 ;;310
 ;;21,"54569-5666-00 ")
 ;;637
 ;;21,"54569-5667-00 ")
 ;;157
 ;;21,"54569-5801-00 ")
 ;;12
 ;;21,"54569-5867-00 ")
 ;;393
 ;;21,"54569-5903-00 ")
 ;;65
 ;;21,"54569-5998-00 ")
 ;;57
 ;;21,"54569-5999-00 ")
 ;;274
 ;;21,"54868-0009-00 ")
 ;;323
 ;;21,"54868-0009-01 ")
 ;;324
 ;;21,"54868-2335-00 ")
 ;;429
 ;;21,"54868-2335-01 ")
 ;;430
 ;;21,"54868-3726-00 ")
 ;;527
 ;;21,"54868-3726-01 ")
 ;;528
 ;;21,"54868-3866-00 ")
 ;;286
 ;;21,"54868-3866-01 ")
 ;;287
 ;;21,"54868-4199-00 ")
 ;;356
 ;;21,"54868-4199-01 ")
 ;;357
 ;;21,"54868-4199-02 ")
 ;;358
 ;;21,"54868-4341-00 ")
 ;;296
 ;;21,"54868-4341-01 ")
 ;;297
 ;;21,"54868-4414-00 ")
 ;;382
 ;;21,"54868-4425-00 ")
 ;;133
 ;;21,"54868-4425-01 ")
 ;;134
 ;;21,"54868-4425-02 ")
 ;;135
 ;;21,"54868-4428-00 ")
 ;;104
 ;;21,"54868-4428-01 ")
 ;;105
 ;;21,"54868-4428-02 ")
 ;;106
 ;;21,"54868-4494-00 ")
 ;;23
 ;;21,"54868-4526-00 ")
 ;;30
 ;;21,"54868-4526-01 ")
 ;;31
 ;;21,"54868-4539-01 ")
 ;;600
 ;;21,"54868-4540-01 ")
 ;;311
 ;;21,"54868-4605-01 ")
 ;;609
 ;;21,"54868-4645-00 ")
 ;;626
 ;;21,"54868-4645-01 ")
 ;;627
 ;;21,"54868-4645-02 ")
 ;;628
 ;;21,"54868-4652-00 ")
 ;;664
 ;;21,"54868-4652-01 ")
 ;;665
 ;;21,"54868-4652-02 ")
 ;;666
 ;;21,"54868-4652-03 ")
 ;;667
 ;;21,"54868-4720-00 ")
 ;;167
 ;;21,"54868-4720-01 ")
 ;;168
 ;;21,"54868-4720-02 ")
 ;;169
 ;;21,"54868-4720-03 ")
 ;;170
 ;;21,"54868-4729-00 ")
 ;;8
 ;;21,"54868-4869-00 ")
 ;;13
 ;;21,"54868-4885-00 ")
 ;;579
 ;;21,"54868-4885-01 ")
 ;;580
 ;;21,"54868-4986-00 ")
 ;;562
 ;;21,"54868-4986-01 ")
 ;;563
 ;;21,"54868-4986-02 ")
 ;;564
 ;;21,"54868-5075-00 ")
 ;;58
 ;;21,"54868-5075-01 ")
 ;;59
 ;;21,"54868-5077-00 ")
 ;;476
 ;;21,"54868-5078-00 ")
 ;;66
 ;;21,"54868-5078-01 ")
 ;;67
 ;;21,"54868-5082-00 ")
 ;;638
 ;;21,"54868-5082-01 ")
 ;;639
 ;;21,"54868-5082-02 ")
 ;;640
 ;;21,"54868-5082-03 ")
 ;;641
 ;;21,"54868-5170-00 ")
 ;;51
 ;;21,"54868-5170-01 ")
 ;;52
 ;;21,"54868-5281-00 ")
 ;;318
 ;;21,"54868-5281-01 ")
 ;;319
 ;;21,"54868-5297-00 ")
 ;;316
 ;;21,"54868-5323-00 ")
 ;;158
 ;;21,"54868-5418-00 ")
 ;;305
 ;;21,"54868-5465-00 ")
 ;;34
 ;;21,"54868-5466-00 ")
 ;;174
 ;;21,"54868-5466-01 ")
 ;;175
 ;;21,"54868-5489-00 ")
 ;;95
 ;;21,"54868-5591-00 ")
 ;;91
 ;;21,"54868-5607-00 ")
 ;;165
 ;;21,"54868-5705-00 ")
 ;;275
 ;;21,"54868-5780-00 ")
 ;;120
 ;;21,"54868-5804-00 ")
 ;;179
 ;;21,"54868-5977-00 ")
 ;;647
 ;;21,"54868-5983-00 ")
 ;;181
 ;;21,"54868-5983-01 ")
 ;;182
 ;;21,"54868-5996-00 ")
 ;;186
 ;;21,"54868-5997-00 ")
 ;;184
 ;;21,"54868-6036-00 ")
 ;;41
 ;;21,"55045-3401-08 ")
 ;;529
 ;;21,"55045-3409-09 ")
 ;;668
 ;;21,"55289-0238-30 ")
 ;;431
 ;;21,"55289-0436-30 ")
 ;;581
 ;;21,"55289-0443-30 ")
 ;;68
 ;;21,"55289-0522-30 ")
 ;;298
 ;;21,"55289-0815-30 ")
 ;;136
 ;;21,"55289-0817-30 ")
 ;;629
 ;;21,"55289-0820-30 ")
 ;;159
 ;;21,"55289-0825-30 ")
 ;;669
 ;;21,"55289-0838-30 ")
 ;;107
 ;;21,"55289-0876-30 ")
 ;;642
 ;;21,"55887-0102-30 ")
 ;;383
 ;;21,"55887-0103-30 ")
 ;;394
 ;;21,"55887-0105-30 ")
 ;;359
 ;;21,"55887-0307-30 ")
 ;;670
 ;;21,"55887-0432-30 ")
 ;;477
 ;;21,"55887-0432-60 ")
 ;;478
 ;;21,"55887-0432-90 ")
 ;;479
 ;;21,"58016-0053-00 ")
 ;;582
 ;;21,"58016-0053-30 ")
 ;;583
 ;;21,"58016-0053-60 ")
 ;;584
 ;;21,"58016-0053-90 ")
 ;;585
 ;;21,"58016-0066-00 ")
 ;;565
 ;;21,"58016-0066-30 ")
 ;;566
 ;;21,"58016-0066-60 ")
 ;;567
 ;;21,"58016-0066-90 ")
 ;;568
 ;;21,"58016-4631-01 ")
 ;;312
 ;;21,"58864-0605-30 ")
 ;;630
 ;;21,"58864-0659-30 ")
 ;;299
 ;;21,"58864-0662-30 ")
 ;;530
 ;;21,"58864-0681-30 ")
 ;;671
 ;;21,"58864-0726-15 ")
 ;;360
 ;;21,"58864-0726-30 ")
 ;;361
 ;;21,"58864-0771-15 ")
 ;;384
 ;;21,"58864-0807-30 ")
 ;;480
 ;;21,"59762-0011-01 ")
 ;;234
 ;;21,"59762-0011-02 ")
 ;;235
 ;;21,"59762-0012-01 ")
 ;;209
 ;;21,"59762-0012-02 ")
 ;;210
 ;;21,"59762-0015-01 ")
 ;;259
 ;;21,"59762-0015-02 ")
 ;;260
 ;;21,"59762-0070-01 ")
 ;;481
 ;;21,"59762-0071-01 ")
 ;;531
 ;;21,"59762-0071-02 ")
 ;;532
 ;;21,"59762-0072-01 ")
 ;;432
 ;;21,"59762-0072-02 ")
 ;;433
 ;;21,"60505-2915-03 ")
 ;;236
 ;;21,"60505-2916-03 ")
 ;;211
 ;;21,"60505-2917-03 ")
 ;;261
 ;;21,"60505-3160-09 ")
 ;;482
 ;;21,"60505-3161-03 ")
 ;;533
 ;;21,"60505-3161-09 ")
 ;;534
 ;;21,"60505-3162-03 ")
 ;;434
 ;;21,"60505-3162-09 ")
 ;;435
 ;;21,"60598-0080-01 ")
 ;;320
 ;;21,"60598-0081-01 ")
 ;;325
 ;;21,"60598-0100-01 ")
 ;;171
 ;;21,"60598-0101-01 ")
 ;;176
 ;;21,"63629-1337-01 ")
 ;;535
 ;;21,"63629-2912-01 ")
 ;;436
 ;;21,"63629-3183-01 ")
 ;;288
 ;;21,"63739-0515-10 ")
 ;;437
 ;;21,"63739-0527-10 ")
 ;;237
 ;;21,"63739-0528-10 ")
 ;;212
 ;;21,"63739-0529-10 ")
 ;;262
 ;;21,"63874-0637-01 ")
 ;;536
 ;;21,"63874-0637-10 ")
 ;;537
 ;;21,"63874-0637-20 ")
 ;;538
 ;;21,"63874-0637-30 ")
 ;;539
 ;;21,"63874-0637-90 ")
 ;;540
 ;;21,"63874-0647-10 ")
 ;;362
 ;;21,"63874-0647-14 ")
 ;;363
 ;;21,"63874-0647-30 ")
 ;;364
 ;;21,"64455-0130-01 ")
 ;;172
 ;;21,"64455-0131-01 ")
 ;;177
 ;;21,"64455-0132-01 ")
 ;;321
 ;;21,"64455-0133-01 ")
 ;;326
 ;;21,"64764-0844-30 ")
 ;;48
 ;;21,"64764-0884-30 ")
 ;;49
 ;;21,"65597-0101-30 ")
 ;;593
 ;;21,"65597-0103-10 ")
 ;;569
 ;;21,"65597-0103-30 ")
 ;;570
 ;;21,"65597-0103-90 ")
 ;;571
 ;;21,"65597-0104-10 ")
 ;;586
 ;;21,"65597-0104-30 ")
 ;;587
 ;;21,"65597-0104-90 ")
 ;;588
 ;;21,"65597-0105-10 ")
 ;;53
 ;;21,"65597-0105-30 ")
 ;;54
 ;;21,"65597-0105-90 ")
 ;;55
 ;;21,"65597-0106-10 ")
 ;;60
 ;;21,"65597-0106-30 ")
 ;;61
 ;;21,"65597-0106-90 ")
 ;;62
 ;;21,"65597-0107-10 ")
 ;;69
 ;;21,"65597-0107-30 ")
 ;;70
 ;;21,"65597-0107-90 ")
 ;;71
 ;;21,"65597-0110-10 ")
 ;;42
 ;;21,"65597-0110-30 ")
 ;;43
 ;;21,"65597-0110-90 ")
 ;;44
 ;;21,"65597-0111-10 ")
 ;;35
 ;;21,"65597-0111-30 ")
 ;;36
 ;;21,"65597-0111-90 ")
 ;;37
 ;;21,"65597-0112-10 ")
 ;;45
 ;;21,"65597-0112-30 ")
 ;;46
 ;;21,"65597-0112-90 ")
 ;;47
 ;;21,"65597-0113-10 ")
 ;;38
 ;;21,"65597-0113-30 ")
 ;;39
 ;;21,"65597-0113-90 ")
 ;;40
 ;;21,"65597-0114-30 ")
 ;;331
 ;;21,"65597-0114-90 ")
 ;;332
 ;;21,"65597-0115-30 ")
 ;;333
 ;;21,"65597-0115-90 ")
 ;;334
 ;;21,"65597-0116-30 ")
 ;;335
 ;;21,"65597-0116-90 ")
 ;;336
 ;;21,"65597-0117-30 ")
 ;;327
 ;;21,"65597-0117-90 ")
 ;;328
 ;;21,"65597-0118-30 ")
 ;;329
 ;;21,"65597-0118-90 ")
 ;;330
 ;;21,"66105-0503-01 ")
 ;;365
 ;;21,"66105-0503-03 ")
 ;;366
 ;;21,"66105-0503-06 ")
 ;;367
 ;;21,"66105-0503-09 ")
 ;;368
 ;;21,"66105-0503-15 ")
 ;;369
 ;;21,"66105-0504-01 ")
 ;;385
 ;;21,"66105-0504-03 ")
 ;;386
 ;;21,"66105-0504-06 ")
 ;;387
 ;;21,"66105-0504-09 ")
 ;;388
 ;;21,"66105-0504-15 ")
 ;;389
 ;;21,"66105-0544-09 ")
 ;;137
 ;;21,"66105-0545-01 ")
 ;;108
 ;;21,"66105-0545-03 ")
 ;;109
 ;;21,"66105-0545-06 ")
 ;;110
 ;;21,"66105-0545-09 ")
 ;;111
 ;;21,"66105-0545-10 ")
 ;;112
 ;;21,"66105-0552-10 ")
 ;;483
 ;;21,"66105-0553-03 ")
 ;;541
 ;;21,"66105-0553-10 ")
 ;;542
 ;;21,"66105-0663-03 ")
 ;;300
 ;;21,"66105-0669-03 ")
 ;;289
 ;;21,"66105-0842-03 ")
 ;;601
 ;;21,"66105-0842-06 ")
 ;;602
 ;;21,"66105-0842-09 ")
 ;;603
 ;;21,"66105-0842-10 ")
 ;;604
 ;;21,"66105-0842-28 ")
 ;;605
 ;;21,"66336-0169-30 ")
 ;;672
 ;;21,"66336-0387-30 ")
 ;;631
 ;;21,"67544-0382-30 ")
 ;;484
 ;;21,"67544-0400-45 ")
 ;;390
 ;;21,"68071-0785-30 ")
 ;;113
 ;;21,"68071-0785-60 ")
 ;;114
 ;;21,"68071-0786-30 ")
 ;;138
 ;;21,"68071-0786-60 ")
 ;;139
 ;;21,"68084-0346-01 ")
 ;;485
 ;;21,"68084-0346-11 ")
 ;;486
 ;;21,"68084-0347-01 ")
 ;;543
 ;;21,"68084-0347-11 ")
 ;;544
 ;;21,"68084-0348-01 ")
 ;;438
 ;;21,"68084-0348-11 ")
 ;;439
 ;;21,"68115-0669-00 ")
 ;;140
 ;;21,"68115-0669-90 ")
 ;;141
 ;;21,"68115-0703-30 ")
 ;;14
 ;;21,"68115-0703-90 ")
 ;;15
 ;;21,"68115-0733-00 ")
 ;;545
 ;;21,"68115-0733-30 ")
 ;;546
 ;;21,"68115-0733-90 ")
 ;;547
 ;;21,"68115-0854-00 ")
 ;;673
 ;;21,"68115-0854-90 ")
 ;;674
 ;;21,"68115-0865-30 ")
 ;;301
 ;;21,"68180-0210-03 ")
 ;;487
 ;;21,"68180-0210-09 ")
 ;;488
 ;;21,"68180-0211-03 ")
 ;;548
 ;;21,"68180-0211-09 ")
 ;;549
 ;;21,"68180-0212-03 ")
 ;;440
 ;;21,"68180-0212-09 ")
 ;;441
 ;;21,"68180-0215-03 ")
 ;;238
 ;;21,"68180-0215-09 ")
 ;;239
 ;;21,"68180-0216-03 ")
 ;;213
 ;;21,"68180-0216-06 ")
 ;;214
 ;;21,"68180-0216-09 ")
 ;;215
 ;;21,"68180-0217-03 ")
 ;;263
 ;;21,"68180-0217-09 ")
 ;;264
 ;;21,"68382-0135-01 ")
 ;;489
 ;;21,"68382-0135-06 ")
 ;;490
 ;;21,"68382-0135-10 ")
 ;;491
 ;;21,"68382-0135-16 ")
 ;;492
 ;;21,"68382-0136-01 ")
 ;;550
 ;;21,"68382-0136-06 ")
 ;;551
 ;;21,"68382-0136-10 ")
 ;;552
 ;;21,"68382-0136-16 ")
 ;;553
 ;;21,"68382-0137-01 ")
 ;;442
 ;;21,"68382-0137-06 ")
 ;;443
 ;;21,"68382-0137-10 ")
 ;;444
 ;;21,"68382-0137-16 ")
 ;;445
 ;;21,"68382-0142-06 ")
 ;;240
 ;;21,"68382-0142-10 ")
 ;;241
 ;;21,"68382-0142-16 ")
 ;;242
 ;;21,"68382-0143-06 ")
 ;;265
 ;;21,"68382-0143-10 ")
 ;;266
 ;;21,"68382-0143-16 ")
 ;;267
 ;;9002226,802,.01)
 ;;BGP HEDIS ARB NDC
 ;;9002226,802,.02)
 ;;@
 ;;9002226,802,.04)
 ;;n
 ;;9002226,802,.06)
 ;;@
 ;;9002226,802,.08)
 ;;@
 ;;9002226,802,.09)
 ;;3120327
 ;;9002226,802,.11)
 ;;@
 ;;9002226,802,.12)
 ;;@
 ;;9002226,802,.13)
 ;;1
 ;;9002226,802,.14)
 ;;@
 ;;9002226,802,.15)
 ;;@
 ;;9002226,802,.16)
 ;;@
 ;;9002226,802,.17)
 ;;@
 ;;9002226,802,3101)
 ;;@
 ;;9002226.02101,"802,00006-0717-01 ",.01)
 ;;00006-0717-01
 ;;9002226.02101,"802,00006-0717-01 ",.02)
 ;;00006-0717-01
 ;;9002226.02101,"802,00006-0717-28 ",.01)
 ;;00006-0717-28
 ;;9002226.02101,"802,00006-0717-28 ",.02)
 ;;00006-0717-28
 ;;9002226.02101,"802,00006-0717-31 ",.01)
 ;;00006-0717-31
 ;;9002226.02101,"802,00006-0717-31 ",.02)
 ;;00006-0717-31
 ;;9002226.02101,"802,00006-0717-54 ",.01)
 ;;00006-0717-54
 ;;9002226.02101,"802,00006-0717-54 ",.02)
 ;;00006-0717-54
 ;;9002226.02101,"802,00006-0717-82 ",.01)
 ;;00006-0717-82
 ;;9002226.02101,"802,00006-0717-82 ",.02)
 ;;00006-0717-82
 ;;9002226.02101,"802,00006-0717-86 ",.01)
 ;;00006-0717-86
 ;;9002226.02101,"802,00006-0717-86 ",.02)
 ;;00006-0717-86
 ;;9002226.02101,"802,00006-0745-01 ",.01)
 ;;00006-0745-01
 ;;9002226.02101,"802,00006-0745-01 ",.02)
 ;;00006-0745-01
 ;;9002226.02101,"802,00006-0745-28 ",.01)
 ;;00006-0745-28
 ;;9002226.02101,"802,00006-0745-28 ",.02)
 ;;00006-0745-28
 ;;9002226.02101,"802,00006-0745-31 ",.01)
 ;;00006-0745-31
 ;;9002226.02101,"802,00006-0745-31 ",.02)
 ;;00006-0745-31
 ;;9002226.02101,"802,00006-0745-54 ",.01)
 ;;00006-0745-54
 ;;9002226.02101,"802,00006-0745-54 ",.02)
 ;;00006-0745-54
 ;;9002226.02101,"802,00006-0745-82 ",.01)
 ;;00006-0745-82
 ;;9002226.02101,"802,00006-0745-82 ",.02)
 ;;00006-0745-82
 ;;9002226.02101,"802,00006-0745-86 ",.01)
 ;;00006-0745-86
 ;;9002226.02101,"802,00006-0745-86 ",.02)
 ;;00006-0745-86
 ;;9002226.02101,"802,00006-0747-01 ",.01)
 ;;00006-0747-01
 ;;9002226.02101,"802,00006-0747-01 ",.02)
 ;;00006-0747-01
 ;;9002226.02101,"802,00006-0747-28 ",.01)
 ;;00006-0747-28
 ;;9002226.02101,"802,00006-0747-28 ",.02)
 ;;00006-0747-28
 ;;9002226.02101,"802,00006-0747-31 ",.01)
 ;;00006-0747-31
 ;;9002226.02101,"802,00006-0747-31 ",.02)
 ;;00006-0747-31
 ;;9002226.02101,"802,00006-0747-54 ",.01)
 ;;00006-0747-54
 ;;9002226.02101,"802,00006-0747-54 ",.02)
 ;;00006-0747-54
 ;;9002226.02101,"802,00006-0747-81 ",.01)
 ;;00006-0747-81
 ;;9002226.02101,"802,00006-0747-81 ",.02)
 ;;00006-0747-81
 ;;9002226.02101,"802,00006-0747-82 ",.01)
 ;;00006-0747-82
 ;;9002226.02101,"802,00006-0747-82 ",.02)
 ;;00006-0747-82
 ;;9002226.02101,"802,00006-0951-01 ",.01)
 ;;00006-0951-01
 ;;9002226.02101,"802,00006-0951-01 ",.02)
 ;;00006-0951-01
 ;;9002226.02101,"802,00006-0951-28 ",.01)
 ;;00006-0951-28
 ;;9002226.02101,"802,00006-0951-28 ",.02)
 ;;00006-0951-28
 ;;9002226.02101,"802,00006-0951-54 ",.01)
 ;;00006-0951-54
 ;;9002226.02101,"802,00006-0951-54 ",.02)
 ;;00006-0951-54
 ;;9002226.02101,"802,00006-0951-82 ",.01)
 ;;00006-0951-82
 ;;9002226.02101,"802,00006-0951-82 ",.02)
 ;;00006-0951-82
 ;;9002226.02101,"802,00006-0951-87 ",.01)
 ;;00006-0951-87
 ;;9002226.02101,"802,00006-0951-87 ",.02)
 ;;00006-0951-87
 ;;9002226.02101,"802,00006-0952-01 ",.01)
 ;;00006-0952-01
 ;;9002226.02101,"802,00006-0952-01 ",.02)
 ;;00006-0952-01
 ;;9002226.02101,"802,00006-0952-28 ",.01)
 ;;00006-0952-28
 ;;9002226.02101,"802,00006-0952-28 ",.02)
 ;;00006-0952-28
 ;;9002226.02101,"802,00006-0952-31 ",.01)
 ;;00006-0952-31
 ;;9002226.02101,"802,00006-0952-31 ",.02)
 ;;00006-0952-31
 ;;9002226.02101,"802,00006-0952-54 ",.01)
 ;;00006-0952-54
 ;;9002226.02101,"802,00006-0952-54 ",.02)
 ;;00006-0952-54
 ;;9002226.02101,"802,00006-0952-82 ",.01)
 ;;00006-0952-82
 ;;9002226.02101,"802,00006-0952-82 ",.02)
 ;;00006-0952-82
 ;;9002226.02101,"802,00006-0952-87 ",.01)
 ;;00006-0952-87
 ;;9002226.02101,"802,00006-0952-87 ",.02)
 ;;00006-0952-87