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

BGP13T7.m

Go to the documentation of this file.
BGP13T7 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"51079-0391-20 ")
 ;;809
 ;;21,"51079-0392-01 ")
 ;;810
 ;;21,"51079-0392-20 ")
 ;;811
 ;;21,"51079-0427-01 ")
 ;;4750
 ;;21,"51079-0427-19 ")
 ;;4751
 ;;21,"51079-0427-20 ")
 ;;4752
 ;;21,"51079-0428-01 ")
 ;;4753
 ;;21,"51079-0428-19 ")
 ;;4754
 ;;21,"51079-0428-20 ")
 ;;4755
 ;;21,"51079-0436-01 ")
 ;;1685
 ;;21,"51079-0436-20 ")
 ;;1686
 ;;21,"51079-0437-01 ")
 ;;1687
 ;;21,"51079-0437-20 ")
 ;;1688
 ;;21,"51079-0438-01 ")
 ;;1689
 ;;21,"51079-0438-20 ")
 ;;1690
 ;;21,"51079-0480-01 ")
 ;;5078
 ;;21,"51079-0480-20 ")
 ;;5079
 ;;21,"51079-0482-01 ")
 ;;5080
 ;;21,"51079-0482-20 ")
 ;;5081
 ;;21,"51079-0482-30 ")
 ;;5082
 ;;21,"51079-0482-56 ")
 ;;5083
 ;;21,"51079-0563-01 ")
 ;;168
 ;;21,"51079-0563-20 ")
 ;;169
 ;;21,"51079-0564-01 ")
 ;;170
 ;;21,"51079-0564-20 ")
 ;;171
 ;;21,"51079-0645-01 ")
 ;;1691
 ;;21,"51079-0645-20 ")
 ;;1692
 ;;21,"51079-0651-01 ")
 ;;1693
 ;;21,"51079-0651-20 ")
 ;;1694
 ;;21,"51079-0762-01 ")
 ;;4460
 ;;21,"51079-0762-20 ")
 ;;4461
 ;;21,"51079-0763-01 ")
 ;;4462
 ;;21,"51079-0763-20 ")
 ;;4463
 ;;21,"51079-0764-01 ")
 ;;4464
 ;;21,"51079-0764-20 ")
 ;;4465
 ;;21,"51079-0774-01 ")
 ;;3755
 ;;21,"51079-0774-20 ")
 ;;3756
 ;;21,"51079-0775-01 ")
 ;;3757
 ;;21,"51079-0775-20 ")
 ;;3758
 ;;21,"51079-0803-01 ")
 ;;3377
 ;;21,"51079-0803-20 ")
 ;;3378
 ;;21,"51079-0804-01 ")
 ;;3379
 ;;21,"51079-0804-19 ")
 ;;3380
 ;;21,"51079-0804-20 ")
 ;;3381
 ;;21,"51079-0805-01 ")
 ;;3382
 ;;21,"51079-0805-20 ")
 ;;3383
 ;;21,"51079-0824-63 ")
 ;;3966
 ;;21,"51079-0825-63 ")
 ;;3967
 ;;21,"51079-0943-01 ")
 ;;648
 ;;21,"51079-0943-20 ")
 ;;649
 ;;21,"51079-0943-30 ")
 ;;650
 ;;21,"51079-0943-56 ")
 ;;651
 ;;21,"51079-0944-01 ")
 ;;652
 ;;21,"51079-0944-20 ")
 ;;653
 ;;21,"51079-0971-01 ")
 ;;2383
 ;;21,"51079-0971-19 ")
 ;;2384
 ;;21,"51079-0971-20 ")
 ;;2385
 ;;21,"51079-0992-01 ")
 ;;2653
 ;;21,"51079-0992-20 ")
 ;;2654
 ;;21,"51079-0993-01 ")
 ;;2655
 ;;21,"51079-0993-20 ")
 ;;2656
 ;;21,"51079-0997-01 ")
 ;;2386
 ;;21,"51079-0997-20 ")
 ;;2387
 ;;21,"51285-0538-02 ")
 ;;4589
 ;;21,"51285-0539-02 ")
 ;;4590
 ;;21,"51285-0554-02 ")
 ;;4591
 ;;21,"51285-0594-02 ")
 ;;5117
 ;;21,"51285-0595-02 ")
 ;;5118
 ;;21,"51285-0910-04 ")
 ;;1695
 ;;21,"51285-0911-04 ")
 ;;1696
 ;;21,"51285-0912-04 ")
 ;;1697
 ;;21,"51655-0062-24 ")
 ;;172
 ;;21,"51655-0082-24 ")
 ;;173
 ;;21,"51655-0121-24 ")
 ;;174
 ;;21,"51655-0121-25 ")
 ;;175
 ;;21,"51655-0148-51 ")
 ;;2707
 ;;21,"51655-0148-77 ")
 ;;2708
 ;;21,"51655-0223-51 ")
 ;;2709
 ;;21,"51655-0243-24 ")
 ;;2388
 ;;21,"51655-0277-24 ")
 ;;1587
 ;;21,"51655-0633-24 ")
 ;;176
 ;;21,"51655-0634-24 ")
 ;;4756
 ;;21,"51655-0662-24 ")
 ;;5281
 ;;21,"51655-0666-24 ")
 ;;4757
 ;;21,"51672-4001-05 ")
 ;;3384
 ;;21,"51672-4001-06 ")
 ;;3385
 ;;21,"51672-4002-05 ")
 ;;3386
 ;;21,"51672-4002-06 ")
 ;;3387
 ;;21,"51672-4003-05 ")
 ;;3388
 ;;21,"51672-4003-06 ")
 ;;3389
 ;;21,"51672-4004-05 ")
 ;;3390
 ;;21,"51672-4004-06 ")
 ;;3391
 ;;21,"51672-4011-01 ")
 ;;1309
 ;;21,"51672-4011-05 ")
 ;;1310
 ;;21,"51672-4011-06 ")
 ;;1311
 ;;21,"51672-4012-01 ")
 ;;1312
 ;;21,"51672-4012-05 ")
 ;;1313
 ;;21,"51672-4012-06 ")
 ;;1314
 ;;21,"51672-4013-01 ")
 ;;1315
 ;;21,"51672-4013-05 ")
 ;;1316
 ;;21,"51672-4013-06 ")
 ;;1317
 ;;21,"52152-0226-04 ")
 ;;3035
 ;;21,"52152-0226-30 ")
 ;;3036
 ;;21,"52152-0227-04 ")
 ;;3037
 ;;21,"52152-0227-30 ")
 ;;3038
 ;;21,"52152-0228-04 ")
 ;;3039
 ;;21,"52152-0228-30 ")
 ;;3040
 ;;21,"52152-0254-18 ")
 ;;3041
 ;;21,"52152-0255-18 ")
 ;;3042
 ;;21,"52152-0256-18 ")
 ;;3043
 ;;21,"52152-0293-08 ")
 ;;5018
 ;;21,"52152-0293-30 ")
 ;;5019
 ;;21,"52152-0294-08 ")
 ;;5020
 ;;21,"52152-0294-30 ")
 ;;5021
 ;;21,"52152-0341-02 ")
 ;;1493
 ;;21,"52152-0342-02 ")
 ;;1494
 ;;21,"52152-0342-04 ")
 ;;1495
 ;;21,"52152-0342-05 ")
 ;;1496
 ;;21,"52152-0343-02 ")
 ;;1497
 ;;21,"52152-0343-04 ")
 ;;1498
 ;;21,"52152-0343-05 ")
 ;;1499
 ;;21,"52152-0344-02 ")
 ;;1500
 ;;21,"52152-0344-04 ")
 ;;1501
 ;;21,"52152-0345-02 ")
 ;;1502
 ;;21,"52152-0345-04 ")
 ;;1503
 ;;21,"52152-0346-50 ")
 ;;1504
 ;;21,"52544-0594-01 ")
 ;;1318
 ;;21,"52544-0595-01 ")
 ;;1319
 ;;21,"52544-0596-01 ")
 ;;1320
 ;;21,"52959-0008-02 ")
 ;;177
 ;;21,"52959-0008-15 ")
 ;;178
 ;;21,"52959-0008-20 ")
 ;;179
 ;;21,"52959-0008-30 ")
 ;;180
 ;;21,"52959-0008-40 ")
 ;;181
 ;;21,"52959-0008-60 ")
 ;;182
 ;;21,"52959-0008-90 ")
 ;;183
 ;;21,"52959-0010-00 ")
 ;;920
 ;;21,"52959-0010-30 ")
 ;;921
 ;;21,"52959-0010-60 ")
 ;;922
 ;;21,"52959-0128-30 ")
 ;;1505
 ;;21,"52959-0128-60 ")
 ;;1506
 ;;21,"52959-0140-30 ")
 ;;4758
 ;;21,"52959-0140-60 ")
 ;;4759
 ;;21,"52959-0140-90 ")
 ;;4760
 ;;21,"52959-0163-30 ")
 ;;3624
 ;;21,"52959-0173-30 ")
 ;;1375
 ;;21,"52959-0233-00 ")
 ;;4190
 ;;21,"52959-0233-10 ")
 ;;4191
 ;;21,"52959-0233-14 ")
 ;;4192
 ;;21,"52959-0233-20 ")
 ;;4193
 ;;21,"52959-0233-30 ")
 ;;4194
 ;;21,"52959-0233-40 ")
 ;;4195
 ;;21,"52959-0233-50 ")
 ;;4196
 ;;21,"52959-0284-00 ")
 ;;184
 ;;21,"52959-0285-30 ")
 ;;5136
 ;;21,"52959-0285-60 ")
 ;;5137
 ;;21,"52959-0348-00 ")
 ;;185
 ;;21,"52959-0348-05 ")
 ;;186
 ;;21,"52959-0348-10 ")
 ;;187
 ;;21,"52959-0348-12 ")
 ;;188
 ;;21,"52959-0348-14 ")
 ;;189
 ;;21,"52959-0348-15 ")
 ;;190
 ;;21,"52959-0348-20 ")
 ;;191
 ;;21,"52959-0348-30 ")
 ;;192
 ;;21,"52959-0348-50 ")
 ;;193
 ;;21,"52959-0348-60 ")
 ;;194
 ;;21,"52959-0348-90 ")
 ;;195
 ;;21,"52959-0350-00 ")
 ;;1580
 ;;21,"52959-0350-20 ")
 ;;1581
 ;;21,"52959-0350-30 ")
 ;;1582
 ;;21,"52959-0358-02 ")
 ;;3392
 ;;21,"52959-0358-20 ")
 ;;3393
 ;;21,"52959-0358-30 ")
 ;;3394
 ;;21,"52959-0358-60 ")
 ;;3395
 ;;21,"52959-0358-90 ")
 ;;3396
 ;;21,"52959-0359-02 ")
 ;;3397
 ;;21,"52959-0359-20 ")
 ;;3398
 ;;21,"52959-0359-30 ")
 ;;3399
 ;;21,"52959-0359-50 ")
 ;;3400
 ;;21,"52959-0359-60 ")
 ;;3401
 ;;21,"52959-0359-90 ")
 ;;3402
 ;;21,"52959-0360-12 ")
 ;;3991
 ;;21,"52959-0360-15 ")
 ;;3992
 ;;21,"52959-0360-20 ")
 ;;3993
 ;;21,"52959-0360-30 ")
 ;;3994
 ;;21,"52959-0360-60 ")
 ;;3995
 ;;21,"52959-0361-00 ")
 ;;5282
 ;;21,"52959-0361-14 ")
 ;;5283
 ;;21,"52959-0361-30 ")
 ;;5284
 ;;21,"52959-0361-60 ")
 ;;5285
 ;;21,"52959-0378-15 ")
 ;;4761
 ;;21,"52959-0378-20 ")
 ;;4762
 ;;21,"52959-0378-30 ")
 ;;4763
 ;;21,"52959-0378-60 ")
 ;;4764
 ;;21,"52959-0378-90 ")
 ;;4765
 ;;21,"52959-0388-30 ")
 ;;2090
 ;;21,"52959-0388-60 ")
 ;;2091
 ;;21,"52959-0458-14 ")
 ;;1507
 ;;21,"52959-0458-20 ")
 ;;1508
 ;;21,"52959-0458-30 ")
 ;;1509
 ;;21,"52959-0464-00 ")
 ;;1510
 ;;21,"52959-0464-12 ")
 ;;1511
 ;;21,"52959-0464-14 ")
 ;;1512
 ;;21,"52959-0464-20 ")
 ;;1513
 ;;21,"52959-0514-00 ")
 ;;196
 ;;21,"52959-0514-01 ")
 ;;197
 ;;21,"52959-0514-10 ")
 ;;198
 ;;21,"52959-0514-20 ")
 ;;199
 ;;21,"52959-0514-21 ")
 ;;200
 ;;21,"52959-0514-30 ")
 ;;201
 ;;21,"52959-0514-60 ")
 ;;202
 ;;21,"52959-0514-90 ")
 ;;203
 ;;21,"52959-0519-15 ")
 ;;3403
 ;;21,"52959-0519-30 ")
 ;;3404
 ;;21,"52959-0519-60 ")
 ;;3405
 ;;21,"52959-0537-30 ")
 ;;1698
 ;;21,"52959-0537-90 ")
 ;;1699
 ;;21,"52959-0541-10 ")
 ;;1700
 ;;21,"52959-0541-20 ")
 ;;1701
 ;;21,"52959-0541-30 ")
 ;;1702
 ;;21,"52959-0541-60 ")
 ;;1703
 ;;21,"52959-0542-14 ")
 ;;204
 ;;21,"52959-0542-15 ")
 ;;205
 ;;21,"52959-0542-21 ")
 ;;206
 ;;21,"52959-0542-28 ")
 ;;207
 ;;21,"52959-0542-30 ")
 ;;208
 ;;21,"52959-0542-40 ")
 ;;209
 ;;21,"52959-0542-42 ")
 ;;210
 ;;21,"52959-0550-30 ")
 ;;2092
 ;;21,"52959-0550-60 ")
 ;;2093
 ;;21,"52959-0638-04 ")
 ;;4249
 ;;21,"52959-0639-30 ")
 ;;3996
 ;;21,"52959-0655-00 ")
 ;;654
 ;;21,"52959-0655-02 ")
 ;;655
 ;;21,"52959-0655-30 ")
 ;;656
 ;;21,"52959-0655-40 ")
 ;;657
 ;;21,"52959-0655-60 ")
 ;;658
 ;;21,"52959-0655-90 ")
 ;;659
 ;;21,"52959-0662-30 ")
 ;;1704
 ;;21,"52959-0665-30 ")
 ;;4234
 ;;21,"52959-0669-30 ")
 ;;2389
 ;;21,"52959-0669-59 ")
 ;;2390
 ;;21,"52959-0669-60 ")
 ;;2391
 ;;21,"52959-0703-00 ")
 ;;2859
 ;;21,"52959-0703-30 ")
 ;;2860
 ;;21,"52959-0703-60 ")
 ;;2861
 ;;21,"52959-0704-00 ")
 ;;2862
 ;;21,"52959-0704-30 ")
 ;;2863
 ;;21,"52959-0704-60 ")
 ;;2864
 ;;21,"52959-0717-30 ")
 ;;2392
 ;;21,"52959-0732-00 ")
 ;;2393
 ;;21,"52959-0732-10 ")
 ;;2394
 ;;21,"52959-0732-14 ")
 ;;2395
 ;;21,"52959-0732-15 ")
 ;;2396
 ;;21,"52959-0732-20 ")
 ;;2397
 ;;21,"52959-0732-30 ")
 ;;2398
 ;;21,"52959-0732-40 ")
 ;;2399
 ;;21,"52959-0732-50 ")
 ;;2400
 ;;21,"52959-0732-60 ")
 ;;2401
 ;;21,"52959-0771-60 ")
 ;;2094
 ;;21,"52959-0773-30 ")
 ;;1127
 ;;21,"52959-0773-52 ")
 ;;1128
 ;;21,"52959-0773-60 ")
 ;;1129
 ;;21,"52959-0774-30 ")
 ;;3044
 ;;21,"52959-0774-60 ")
 ;;3045
 ;;21,"52959-0775-30 ")
 ;;3759
 ;;21,"52959-0775-50 ")
 ;;3760
 ;;21,"52959-0775-60 ")
 ;;3761
 ;;21,"52959-0776-30 ")
 ;;3762
 ;;21,"52959-0776-60 ")
 ;;3763
 ;;21,"52959-0781-30 ")
 ;;5286
 ;;21,"52959-0781-60 ")
 ;;5287
 ;;21,"52959-0787-30 ")
 ;;5288
 ;;21,"52959-0791-30 ")
 ;;2710
 ;;21,"52959-0792-30 ")
 ;;4071
 ;;21,"52959-0805-60 ")
 ;;812
 ;;21,"52959-0806-30 ")
 ;;813
 ;;21,"52959-0806-60 ")
 ;;814
 ;;21,"52959-0818-30 ")
 ;;1934
 ;;21,"52959-0818-60 ")
 ;;1935
 ;;21,"52959-0820-60 ")
 ;;5196
 ;;21,"52959-0840-60 ")
 ;;3406
 ;;21,"52959-0869-30 ")
 ;;886
 ;;21,"52959-0872-30 ")
 ;;4466
 ;;21,"52959-0872-60 ")
 ;;4467
 ;;21,"52959-0875-30 ")
 ;;4468
 ;;21,"52959-0875-60 ")
 ;;4469
 ;;21,"52959-0875-90 ")
 ;;4470
 ;;21,"52959-0876-30 ")
 ;;4471
 ;;21,"52959-0876-60 ")
 ;;4472
 ;;21,"52959-0890-30 ")
 ;;5084
 ;;21,"52959-0890-90 ")
 ;;5085
 ;;21,"52959-0892-30 ")
 ;;1376
 ;;21,"52959-0892-60 ")
 ;;1377
 ;;21,"52959-0894-30 ")
 ;;4766
 ;;21,"52959-0894-60 ")
 ;;4767
 ;;21,"52959-0898-60 ")
 ;;660
 ;;21,"52959-0900-30 ")
 ;;2821
 ;;21,"52959-0901-30 ")
 ;;3046
 ;;21,"52959-0986-30 ")
 ;;1130
 ;;21,"52959-0991-30 ")
 ;;2402
 ;;21,"53489-0104-01 ")
 ;;211
 ;;21,"53489-0105-01 ")
 ;;212
 ;;21,"53489-0106-01 ")
 ;;213
 ;;21,"53489-0107-01 ")
 ;;214
 ;;21,"53489-0108-01 ")
 ;;215
 ;;21,"53489-0109-01 ")
 ;;216
 ;;21,"53489-0330-01 ")
 ;;2711
 ;;21,"53489-0330-10 ")
 ;;2712
 ;;21,"53489-0331-01 ")
 ;;2713
 ;;21,"53489-0332-01 ")
 ;;2714
 ;;21,"53489-0373-06 ")
 ;;2403
 ;;21,"53489-0373-07 ")
 ;;2404
 ;;21,"53489-0374-06 ")
 ;;2405
 ;;21,"53489-0374-07 ")
 ;;2406
 ;;21,"53489-0510-01 ")
 ;;4768
 ;;21,"53489-0511-01 ")
 ;;4769
 ;;21,"53489-0517-01 ")
 ;;4770
 ;;21,"54348-0511-30 ")
 ;;217
 ;;21,"54458-0944-10 ")
 ;;4473
 ;;21,"54458-0945-10 ")
 ;;4474
 ;;21,"54458-0947-10 ")
 ;;4475
 ;;21,"54458-0960-10 ")
 ;;4771
 ;;21,"54458-0961-10 ")
 ;;4772
 ;;21,"54458-0980-10 ")
 ;;1131
 ;;21,"54458-0981-10 ")
 ;;1132
 ;;21,"54458-0988-10 ")
 ;;3764
 ;;21,"54458-0989-10 ")
 ;;3765
 ;;21,"54458-0990-10 ")
 ;;3766
 ;;21,"54569-0172-00 ")
 ;;218
 ;;21,"54569-0172-01 ")
 ;;219
 ;;21,"54569-0172-02 ")
 ;;220
 ;;21,"54569-0172-04 ")
 ;;221
 ;;21,"54569-0173-00 ")
 ;;2915
 ;;21,"54569-0175-00 ")
 ;;222
 ;;21,"54569-0175-01 ")
 ;;223
 ;;21,"54569-0175-02 ")
 ;;224
 ;;21,"54569-0175-03 ")
 ;;225
 ;;21,"54569-0175-04 ")
 ;;226
 ;;21,"54569-0175-05 ")
 ;;227
 ;;21,"54569-0175-06 ")
 ;;228
 ;;21,"54569-0175-08 ")
 ;;229
 ;;21,"54569-0194-00 ")
 ;;2715
 ;;21,"54569-0194-02 ")
 ;;2716
 ;;21,"54569-0196-03 ")
 ;;2717
 ;;21,"54569-0196-04 ")
 ;;2718
 ;;21,"54569-0225-00 ")
 ;;3625
 ;;21,"54569-0404-00 ")
 ;;1514
 ;;21,"54569-0404-01 ")
 ;;1515
 ;;21,"54569-1470-00 ")
 ;;4773
 ;;21,"54569-1470-01 ")
 ;;4774
 ;;21,"54569-1470-06 ")
 ;;4775
 ;;21,"54569-1470-08 ")
 ;;4776
 ;;21,"54569-1470-09 ")
 ;;4777
 ;;21,"54569-1519-00 ")
 ;;230
 ;;21,"54569-1519-01 ")
 ;;231
 ;;21,"54569-1519-02 ")
 ;;232
 ;;21,"54569-1519-03 ")
 ;;233
 ;;21,"54569-1696-00 ")
 ;;1705
 ;;21,"54569-1696-01 ")
 ;;1706
 ;;21,"54569-1701-02 ")
 ;;1516
 ;;21,"54569-1732-00 ")
 ;;4197