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

BGP33I11.m

Go to the documentation of this file.
BGP33I11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"60505-3666-03 ")
 ;;3654
 ;;21,"60505-3668-03 ")
 ;;3326
 ;;21,"60505-3669-03 ")
 ;;3511
 ;;21,"60505-3670-03 ")
 ;;3591
 ;;21,"60505-3673-03 ")
 ;;3327
 ;;21,"60505-3674-03 ")
 ;;3512
 ;;21,"60505-3675-03 ")
 ;;3592
 ;;21,"60505-3778-03 ")
 ;;4708
 ;;21,"60505-3778-09 ")
 ;;4709
 ;;21,"60505-3779-03 ")
 ;;4885
 ;;21,"60505-3779-09 ")
 ;;4886
 ;;21,"60505-3780-03 ")
 ;;4597
 ;;21,"60505-3780-09 ")
 ;;4598
 ;;21,"60760-0212-15 ")
 ;;87
 ;;21,"60760-0212-30 ")
 ;;88
 ;;21,"60760-0221-30 ")
 ;;485
 ;;21,"60760-0367-30 ")
 ;;315
 ;;21,"60760-0434-30 ")
 ;;4240
 ;;21,"60760-0434-60 ")
 ;;4241
 ;;21,"60760-0440-30 ")
 ;;4480
 ;;21,"60760-0440-60 ")
 ;;4481
 ;;21,"60760-0647-30 ")
 ;;2266
 ;;21,"60760-0811-60 ")
 ;;3110
 ;;21,"61392-0025-45 ")
 ;;2515
 ;;21,"61392-0025-54 ")
 ;;2516
 ;;21,"61392-0025-56 ")
 ;;2517
 ;;21,"61392-0025-91 ")
 ;;2518
 ;;21,"61392-0026-45 ")
 ;;2556
 ;;21,"61392-0026-54 ")
 ;;2557
 ;;21,"61392-0026-56 ")
 ;;2558
 ;;21,"61392-0026-91 ")
 ;;2559
 ;;21,"61392-0027-45 ")
 ;;2597
 ;;21,"61392-0027-54 ")
 ;;2598
 ;;21,"61392-0027-56 ")
 ;;2599
 ;;21,"61392-0027-91 ")
 ;;2600
 ;;21,"61392-0140-34 ")
 ;;316
 ;;21,"61392-0140-45 ")
 ;;317
 ;;21,"61392-0140-56 ")
 ;;318
 ;;21,"61392-0140-91 ")
 ;;319
 ;;21,"61392-0141-45 ")
 ;;427
 ;;21,"61392-0141-56 ")
 ;;428
 ;;21,"61392-0141-91 ")
 ;;429
 ;;21,"61392-0143-34 ")
 ;;89
 ;;21,"61392-0143-45 ")
 ;;90
 ;;21,"61392-0143-56 ")
 ;;91
 ;;21,"61392-0143-91 ")
 ;;92
 ;;21,"61392-0153-31 ")
 ;;164
 ;;21,"61392-0153-32 ")
 ;;165
 ;;21,"61392-0153-39 ")
 ;;166
 ;;21,"61392-0153-45 ")
 ;;167
 ;;21,"61392-0153-54 ")
 ;;168
 ;;21,"61392-0153-56 ")
 ;;169
 ;;21,"61392-0153-91 ")
 ;;170
 ;;21,"61392-0234-30 ")
 ;;2035
 ;;21,"61392-0234-51 ")
 ;;2036
 ;;21,"61392-0234-54 ")
 ;;2037
 ;;21,"61392-0234-56 ")
 ;;2038
 ;;21,"61392-0234-60 ")
 ;;2039
 ;;21,"61392-0234-90 ")
 ;;2040
 ;;21,"61392-0234-91 ")
 ;;2041
 ;;21,"61392-0235-15 ")
 ;;2267
 ;;21,"61392-0235-30 ")
 ;;2268
 ;;21,"61392-0235-45 ")
 ;;2269
 ;;21,"61392-0235-51 ")
 ;;2270
 ;;21,"61392-0235-54 ")
 ;;2271
 ;;21,"61392-0235-56 ")
 ;;2272
 ;;21,"61392-0235-60 ")
 ;;2273
 ;;21,"61392-0235-90 ")
 ;;2274
 ;;21,"61392-0235-91 ")
 ;;2275
 ;;21,"61392-0361-45 ")
 ;;3019
 ;;21,"61392-0361-56 ")
 ;;3020
 ;;21,"61392-0361-91 ")
 ;;3021
 ;;21,"61392-0364-45 ")
 ;;3111
 ;;21,"61392-0364-56 ")
 ;;3112
 ;;21,"61392-0364-91 ")
 ;;3113
 ;;21,"61392-0367-45 ")
 ;;3170
 ;;21,"61392-0367-56 ")
 ;;3171
 ;;21,"61392-0367-91 ")
 ;;3172
 ;;21,"61392-0370-45 ")
 ;;3203
 ;;21,"61392-0370-54 ")
 ;;3204
 ;;21,"61392-0370-56 ")
 ;;3205
 ;;21,"61392-0370-91 ")
 ;;3206
 ;;21,"61392-0487-45 ")
 ;;4482
 ;;21,"61392-0487-56 ")
 ;;4483
 ;;21,"61392-0487-91 ")
 ;;4484
 ;;21,"61392-0490-15 ")
 ;;4242
 ;;21,"61392-0490-45 ")
 ;;4243
 ;;21,"61392-0490-56 ")
 ;;4244
 ;;21,"61392-0490-91 ")
 ;;4245
 ;;21,"61392-0491-30 ")
 ;;4327
 ;;21,"61392-0491-31 ")
 ;;4328
 ;;21,"61392-0491-32 ")
 ;;4329
 ;;21,"61392-0491-39 ")
 ;;4330
 ;;21,"61392-0491-45 ")
 ;;4331
 ;;21,"61392-0491-51 ")
 ;;4332
 ;;21,"61392-0491-54 ")
 ;;4333
 ;;21,"61392-0491-60 ")
 ;;4334
 ;;21,"61392-0491-90 ")
 ;;4335
 ;;21,"61392-0491-91 ")
 ;;4336
 ;;21,"61392-0726-32 ")
 ;;1543
 ;;21,"61392-0726-45 ")
 ;;1544
 ;;21,"61392-0726-51 ")
 ;;1545
 ;;21,"61392-0726-54 ")
 ;;1546
 ;;21,"61392-0726-91 ")
 ;;1547
 ;;21,"61392-0727-31 ")
 ;;1629
 ;;21,"61392-0727-32 ")
 ;;1630
 ;;21,"61392-0727-45 ")
 ;;1631
 ;;21,"61392-0727-51 ")
 ;;1632
 ;;21,"61392-0727-54 ")
 ;;1633
 ;;21,"61392-0727-90 ")
 ;;1634
 ;;21,"61392-0727-91 ")
 ;;1635
 ;;21,"61392-0728-45 ")
 ;;1701
 ;;21,"61392-0728-51 ")
 ;;1702
 ;;21,"61392-0728-54 ")
 ;;1703
 ;;21,"61392-0728-91 ")
 ;;1704
 ;;21,"61392-0729-30 ")
 ;;1740
 ;;21,"61392-0729-32 ")
 ;;1741
 ;;21,"61392-0729-45 ")
 ;;1742
 ;;21,"61392-0729-51 ")
 ;;1743
 ;;21,"61392-0729-54 ")
 ;;1744
 ;;21,"61392-0729-60 ")
 ;;1745
 ;;21,"61392-0729-91 ")
 ;;1746
 ;;21,"61392-0730-30 ")
 ;;1571
 ;;21,"61392-0730-31 ")
 ;;1572
 ;;21,"61392-0730-32 ")
 ;;1573
 ;;21,"61392-0730-39 ")
 ;;1574
 ;;21,"61392-0730-45 ")
 ;;1575
 ;;21,"61392-0730-51 ")
 ;;1576
 ;;21,"61392-0730-60 ")
 ;;1577
 ;;21,"61392-0730-90 ")
 ;;1578
 ;;21,"61392-0730-91 ")
 ;;1579
 ;;21,"62037-0539-05 ")
 ;;2276
 ;;21,"62037-0539-10 ")
 ;;2277
 ;;21,"62037-0753-10 ")
 ;;2702
 ;;21,"62037-0753-30 ")
 ;;2703
 ;;21,"62037-0754-10 ")
 ;;2791
 ;;21,"62037-0754-30 ")
 ;;2792
 ;;21,"62037-0755-10 ")
 ;;2867
 ;;21,"62037-0755-30 ")
 ;;2868
 ;;21,"62037-0845-30 ")
 ;;3279
 ;;21,"62037-0846-01 ")
 ;;3456
 ;;21,"62037-0846-10 ")
 ;;3457
 ;;21,"62037-0846-30 ")
 ;;3458
 ;;21,"62559-0158-01 ")
 ;;2477
 ;;21,"62559-0159-01 ")
 ;;2494
 ;;21,"62559-0160-01 ")
 ;;2464
 ;;21,"62584-0556-01 ")
 ;;2704
 ;;21,"62584-0556-11 ")
 ;;2705
 ;;21,"62584-0556-85 ")
 ;;2706
 ;;21,"62584-0557-01 ")
 ;;2793
 ;;21,"62584-0557-11 ")
 ;;2794
 ;;21,"62584-0686-01 ")
 ;;1548
 ;;21,"62584-0686-11 ")
 ;;1549
 ;;21,"62584-0687-01 ")
 ;;1636
 ;;21,"62584-0687-11 ")
 ;;1637
 ;;21,"62584-0688-01 ")
 ;;1705
 ;;21,"62584-0688-11 ")
 ;;1706
 ;;21,"62584-0750-01 ")
 ;;2560
 ;;21,"62584-0750-11 ")
 ;;2561
 ;;21,"62584-0751-01 ")
 ;;2601
 ;;21,"62584-0751-11 ")
 ;;2602
 ;;21,"63304-0164-30 ")
 ;;3966
 ;;21,"63304-0165-01 ")
 ;;4110
 ;;21,"63304-0165-05 ")
 ;;4111
 ;;21,"63304-0165-30 ")
 ;;4112
 ;;21,"63304-0166-01 ")
 ;;3850
 ;;21,"63304-0166-05 ")
 ;;3851
 ;;21,"63304-0166-30 ")
 ;;3852
 ;;21,"63304-0202-01 ")
 ;;3043
 ;;21,"63304-0632-01 ")
 ;;2409
 ;;21,"63304-0632-30 ")
 ;;2410
 ;;21,"63304-0632-90 ")
 ;;2411
 ;;21,"63304-0686-30 ")
 ;;2042
 ;;21,"63304-0686-90 ")
 ;;2043
 ;;21,"63304-0687-30 ")
 ;;2278
 ;;21,"63304-0687-90 ")
 ;;2279
 ;;21,"63304-0840-05 ")
 ;;3888
 ;;21,"63629-1318-01 ")
 ;;1191
 ;;21,"63629-1368-01 ")
 ;;430
 ;;21,"63629-1369-01 ")
 ;;320
 ;;21,"63629-1510-01 ")
 ;;2603
 ;;21,"63629-1513-01 ")
 ;;4485
 ;;21,"63629-1513-02 ")
 ;;4486
 ;;21,"63629-1513-03 ")
 ;;4487
 ;;21,"63629-1609-01 ")
 ;;2044
 ;;21,"63629-1609-02 ")
 ;;2045
 ;;21,"63629-1610-01 ")
 ;;2280
 ;;21,"63629-1610-02 ")
 ;;2281
 ;;21,"63629-1610-03 ")
 ;;2282
 ;;21,"63629-1610-04 ")
 ;;2283
 ;;21,"63629-1840-01 ")
 ;;3459
 ;;21,"63629-2642-01 ")
 ;;592
 ;;21,"63629-2833-02 ")
 ;;3114
 ;;21,"63629-2833-04 ")
 ;;3115
 ;;21,"63629-2867-01 ")
 ;;4337
 ;;21,"63629-2867-02 ")
 ;;4338
 ;;21,"63629-2867-03 ")
 ;;4339
 ;;21,"63629-2981-01 ")
 ;;1923
 ;;21,"63629-3204-01 ")
 ;;3022
 ;;21,"63629-3205-01 ")
 ;;3280
 ;;21,"63629-3210-01 ")
 ;;4246
 ;;21,"63629-3210-02 ")
 ;;4247
 ;;21,"63629-3221-01 ")
 ;;1550
 ;;21,"63629-3289-01 ")
 ;;3853
 ;;21,"63629-3309-01 ")
 ;;4113
 ;;21,"63629-3313-01 ")
 ;;3967
 ;;21,"63629-3340-01 ")
 ;;1830
 ;;21,"63672-1100-02 ")
 ;;2465
 ;;21,"63672-2010-01 ")
 ;;3676
 ;;21,"63672-2020-01 ")
 ;;3678
 ;;21,"63672-2030-01 ")
 ;;3680
 ;;21,"63672-2040-01 ")
 ;;3682
 ;;21,"63739-0189-10 ")
 ;;3023
 ;;21,"63739-0189-15 ")
 ;;3024
 ;;21,"63739-0190-10 ")
 ;;3116
 ;;21,"63739-0190-15 ")
 ;;3117
 ;;21,"63739-0245-01 ")
 ;;4488
 ;;21,"63739-0245-03 ")
 ;;4489
 ;;21,"63739-0245-10 ")
 ;;4490
 ;;21,"63739-0245-15 ")
 ;;4491
 ;;21,"63739-0246-01 ")
 ;;4248
 ;;21,"63739-0246-03 ")
 ;;4249
 ;;21,"63739-0246-10 ")
 ;;4250
 ;;21,"63739-0246-15 ")
 ;;4251
 ;;21,"63739-0295-10 ")
 ;;2046
 ;;21,"63739-0295-15 ")
 ;;2047
 ;;21,"63739-0296-10 ")
 ;;2284
 ;;21,"63739-0296-15 ")
 ;;2285
 ;;21,"63739-0317-10 ")
 ;;948
 ;;21,"63739-0317-15 ")
 ;;949
 ;;21,"63739-0318-10 ")
 ;;593
 ;;21,"63739-0318-15 ")
 ;;594
 ;;21,"63739-0355-04 ")
 ;;2707
 ;;21,"63739-0355-10 ")
 ;;2708
 ;;21,"63739-0355-15 ")
 ;;2709
 ;;21,"63739-0356-10 ")
 ;;2795
 ;;21,"63739-0356-15 ")
 ;;2796
 ;;21,"63739-0407-10 ")
 ;;3281
 ;;21,"63739-0408-10 ")
 ;;3655
 ;;21,"63739-0449-10 ")
 ;;817
 ;;21,"63739-0450-10 ")
 ;;889
 ;;21,"63739-0511-10 ")
 ;;4887
 ;;21,"63739-0512-10 ")
 ;;4599
 ;;21,"63739-0521-10 ")
 ;;4710
 ;;21,"63874-0296-01 ")
 ;;486
 ;;21,"63874-0296-04 ")
 ;;487
 ;;21,"63874-0296-15 ")
 ;;488
 ;;21,"63874-0296-20 ")
 ;;489
 ;;21,"63874-0296-30 ")
 ;;490
 ;;21,"63874-0296-40 ")
 ;;491
 ;;21,"63874-0296-60 ")
 ;;492
 ;;21,"63874-0296-90 ")
 ;;493
 ;;21,"63874-0311-01 ")
 ;;93
 ;;21,"63874-0311-02 ")
 ;;94
 ;;21,"63874-0311-04 ")
 ;;95
 ;;21,"63874-0311-10 ")
 ;;96
 ;;21,"63874-0311-12 ")
 ;;97
 ;;21,"63874-0311-15 ")
 ;;98
 ;;21,"63874-0311-20 ")
 ;;99
 ;;21,"63874-0311-24 ")
 ;;100
 ;;21,"63874-0311-30 ")
 ;;101
 ;;21,"63874-0311-40 ")
 ;;102
 ;;21,"63874-0311-50 ")
 ;;103
 ;;21,"63874-0311-60 ")
 ;;104
 ;;21,"63874-0311-72 ")
 ;;105
 ;;21,"63874-0311-74 ")
 ;;106
 ;;21,"63874-0311-77 ")
 ;;107
 ;;21,"63874-0311-82 ")
 ;;108
 ;;21,"63874-0311-90 ")
 ;;109
 ;;21,"63874-0359-01 ")
 ;;431
 ;;21,"63874-0359-02 ")
 ;;432
 ;;21,"63874-0359-14 ")
 ;;433
 ;;21,"63874-0359-15 ")
 ;;434
 ;;21,"63874-0359-20 ")
 ;;435
 ;;21,"63874-0359-28 ")
 ;;436
 ;;21,"63874-0359-30 ")
 ;;437
 ;;21,"63874-0359-40 ")
 ;;438
 ;;21,"63874-0359-50 ")
 ;;439
 ;;21,"63874-0359-60 ")
 ;;440
 ;;21,"63874-0359-90 ")
 ;;441
 ;;21,"63874-0430-01 ")
 ;;321
 ;;21,"63874-0430-02 ")
 ;;322
 ;;21,"63874-0430-04 ")
 ;;323
 ;;21,"63874-0430-14 ")
 ;;324
 ;;21,"63874-0430-15 ")
 ;;325
 ;;21,"63874-0430-20 ")
 ;;326
 ;;21,"63874-0430-25 ")
 ;;327
 ;;21,"63874-0430-28 ")
 ;;328
 ;;21,"63874-0430-30 ")
 ;;329
 ;;21,"63874-0430-40 ")
 ;;330
 ;;21,"63874-0430-50 ")
 ;;331
 ;;21,"63874-0430-60 ")
 ;;332
 ;;21,"63874-0430-90 ")
 ;;333
 ;;21,"63874-0537-01 ")
 ;;4252
 ;;21,"63874-0537-04 ")
 ;;4253
 ;;21,"63874-0537-10 ")
 ;;4254
 ;;21,"63874-0537-12 ")
 ;;4255
 ;;21,"63874-0537-14 ")
 ;;4256
 ;;21,"63874-0537-15 ")
 ;;4257
 ;;21,"63874-0537-20 ")
 ;;4258
 ;;21,"63874-0537-30 ")
 ;;4259
 ;;21,"63874-0537-40 ")
 ;;4260
 ;;21,"63874-0537-60 ")
 ;;4261
 ;;21,"63874-0537-90 ")
 ;;4262
 ;;21,"63874-0538-01 ")
 ;;3460
 ;;21,"63874-0538-10 ")
 ;;3461
 ;;21,"63874-0538-14 ")
 ;;3462
 ;;21,"63874-0538-15 ")
 ;;3463
 ;;21,"63874-0538-20 ")
 ;;3464
 ;;21,"63874-0538-30 ")
 ;;3465
 ;;21,"63874-0538-60 ")
 ;;3466
 ;;21,"63874-0540-20 ")
 ;;2925
 ;;21,"63874-0540-30 ")
 ;;2926
 ;;21,"63874-0540-60 ")
 ;;2927
 ;;21,"63874-0542-14 ")
 ;;2910
 ;;21,"63874-0542-20 ")
 ;;2911
 ;;21,"63874-0542-30 ")
 ;;2912
 ;;21,"63874-0542-60 ")
 ;;2913
 ;;21,"63874-0555-01 ")
 ;;4114
 ;;21,"63874-0555-10 ")
 ;;4115
 ;;21,"63874-0555-14 ")
 ;;4116
 ;;21,"63874-0555-15 ")
 ;;4117
 ;;21,"63874-0555-20 ")
 ;;4118
 ;;21,"63874-0555-30 ")
 ;;4119
 ;;21,"63874-0555-60 ")
 ;;4120
 ;;21,"63874-0560-01 ")
 ;;4492
 ;;21,"63874-0560-04 ")
 ;;4493
 ;;21,"63874-0560-10 ")
 ;;4494
 ;;21,"63874-0560-12 ")
 ;;4495
 ;;21,"63874-0560-14 ")
 ;;4496
 ;;21,"63874-0560-15 ")
 ;;4497
 ;;21,"63874-0560-20 ")
 ;;4498
 ;;21,"63874-0560-28 ")
 ;;4499
 ;;21,"63874-0560-30 ")
 ;;4500
 ;;21,"63874-0560-40 ")
 ;;4501
 ;;21,"63874-0560-60 ")
 ;;4502
 ;;21,"63874-0560-90 ")
 ;;4503
 ;;21,"63874-0567-30 ")
 ;;950
 ;;21,"63874-0567-60 ")
 ;;951
 ;;21,"63874-0573-01 ")
 ;;2286
 ;;21,"63874-0573-04 ")
 ;;2287
 ;;21,"63874-0573-10 ")
 ;;2288
 ;;21,"63874-0573-14 ")
 ;;2289
 ;;21,"63874-0573-15 ")
 ;;2290
 ;;21,"63874-0573-20 ")
 ;;2291
 ;;21,"63874-0573-21 ")
 ;;2292
 ;;21,"63874-0573-28 ")
 ;;2293
 ;;21,"63874-0573-30 ")
 ;;2294
 ;;21,"63874-0573-60 ")
 ;;2295
 ;;21,"63874-0573-72 ")
 ;;2296
 ;;21,"63874-0573-74 ")
 ;;2297
 ;;21,"63874-0573-77 ")
 ;;2298
 ;;21,"63874-0573-90 ")
 ;;2299
 ;;21,"63874-0574-01 ")
 ;;2048
 ;;21,"63874-0574-04 ")
 ;;2049
 ;;21,"63874-0574-10 ")
 ;;2050
 ;;21,"63874-0574-14 ")
 ;;2051
 ;;21,"63874-0574-20 ")
 ;;2052
 ;;21,"63874-0574-21 ")
 ;;2053
 ;;21,"63874-0574-28 ")
 ;;2054
 ;;21,"63874-0574-30 ")
 ;;2055
 ;;21,"63874-0574-60 ")
 ;;2056
 ;;21,"63874-0574-72 ")
 ;;2057
 ;;21,"63874-0574-74 ")
 ;;2058
 ;;21,"63874-0574-77 ")
 ;;2059
 ;;21,"63874-0574-90 ")
 ;;2060
 ;;21,"63874-0579-01 ")
 ;;1638
 ;;21,"63874-0579-04 ")
 ;;1639
 ;;21,"63874-0579-10 ")
 ;;1640
 ;;21,"63874-0579-12 ")
 ;;1641
 ;;21,"63874-0579-14 ")
 ;;1642
 ;;21,"63874-0579-15 ")
 ;;1643
 ;;21,"63874-0579-20 ")
 ;;1644
 ;;21,"63874-0579-28 ")
 ;;1645
 ;;21,"63874-0579-30 ")
 ;;1646
 ;;21,"63874-0579-32 ")
 ;;1647
 ;;21,"63874-0579-40 ")
 ;;1648
 ;;21,"63874-0579-50 ")
 ;;1649
 ;;21,"63874-0579-60 ")
 ;;1650
 ;;21,"63874-0579-90 ")
 ;;1651
 ;;21,"63874-0580-01 ")
 ;;3118
 ;;21,"63874-0580-14 ")
 ;;3119
 ;;21,"63874-0580-15 ")
 ;;3120
 ;;21,"63874-0580-20 ")
 ;;3121
 ;;21,"63874-0580-30 ")
 ;;3122
 ;;21,"63874-0580-60 ")
 ;;3123
 ;;21,"63874-0580-90 ")
 ;;3124
 ;;21,"63874-0596-01 ")
 ;;3854