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

BGP13X4.m

Go to the documentation of this file.
BGP13X4 ; 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,"12280-0061-00 ")
 ;;2949
 ;;21,"12280-0063-30 ")
 ;;3544
 ;;21,"12280-0063-90 ")
 ;;3545
 ;;21,"12280-0066-30 ")
 ;;3598
 ;;21,"12280-0067-15 ")
 ;;3412
 ;;21,"12280-0067-30 ")
 ;;3413
 ;;21,"12280-0067-90 ")
 ;;3414
 ;;21,"12280-0120-30 ")
 ;;197
 ;;21,"12280-0121-30 ")
 ;;174
 ;;21,"12280-0123-30 ")
 ;;154
 ;;21,"12280-0124-30 ")
 ;;494
 ;;21,"12280-0126-30 ")
 ;;410
 ;;21,"12280-0126-60 ")
 ;;411
 ;;21,"12280-0127-30 ")
 ;;334
 ;;21,"12280-0129-60 ")
 ;;2377
 ;;21,"12280-0144-00 ")
 ;;2196
 ;;21,"12280-0168-30 ")
 ;;3784
 ;;21,"12280-0168-90 ")
 ;;3785
 ;;21,"12280-0183-30 ")
 ;;335
 ;;21,"12280-0220-00 ")
 ;;198
 ;;21,"12280-0228-90 ")
 ;;2847
 ;;21,"12280-0340-30 ")
 ;;3513
 ;;21,"12280-0369-30 ")
 ;;3571
 ;;21,"12280-0369-90 ")
 ;;3572
 ;;21,"12280-0370-30 ")
 ;;3221
 ;;21,"12280-0370-90 ")
 ;;3222
 ;;21,"12280-0371-30 ")
 ;;3232
 ;;21,"12280-0371-90 ")
 ;;3233
 ;;21,"12280-0375-30 ")
 ;;3763
 ;;21,"12280-0375-90 ")
 ;;3764
 ;;21,"12280-0378-90 ")
 ;;3858
 ;;21,"12280-0379-90 ")
 ;;3461
 ;;21,"12280-0380-30 ")
 ;;3323
 ;;21,"12280-0380-90 ")
 ;;3324
 ;;21,"12280-0382-30 ")
 ;;3391
 ;;21,"12280-0383-30 ")
 ;;3396
 ;;21,"13411-0106-01 ")
 ;;3546
 ;;21,"13411-0106-03 ")
 ;;3547
 ;;21,"13411-0106-06 ")
 ;;3548
 ;;21,"13411-0106-09 ")
 ;;3549
 ;;21,"13411-0106-15 ")
 ;;3550
 ;;21,"13411-0107-01 ")
 ;;3573
 ;;21,"13411-0107-03 ")
 ;;3574
 ;;21,"13411-0107-06 ")
 ;;3575
 ;;21,"13411-0107-09 ")
 ;;3576
 ;;21,"13411-0107-15 ")
 ;;3577
 ;;21,"13411-0142-01 ")
 ;;3880
 ;;21,"13411-0142-02 ")
 ;;3881
 ;;21,"13411-0142-03 ")
 ;;3882
 ;;21,"13411-0142-06 ")
 ;;3883
 ;;21,"13411-0142-09 ")
 ;;3884
 ;;21,"13411-0143-01 ")
 ;;3830
 ;;21,"13411-0143-02 ")
 ;;3831
 ;;21,"13411-0143-03 ")
 ;;3832
 ;;21,"13411-0143-06 ")
 ;;3833
 ;;21,"13411-0143-09 ")
 ;;3834
 ;;21,"13411-0144-01 ")
 ;;3476
 ;;21,"13411-0144-02 ")
 ;;3477
 ;;21,"13411-0144-03 ")
 ;;3478
 ;;21,"13411-0144-06 ")
 ;;3479
 ;;21,"13411-0144-09 ")
 ;;3480
 ;;21,"13411-0145-01 ")
 ;;3415
 ;;21,"13411-0145-02 ")
 ;;3416
 ;;21,"13411-0145-03 ")
 ;;3417
 ;;21,"13411-0145-06 ")
 ;;3418
 ;;21,"13411-0145-09 ")
 ;;3419
 ;;21,"13411-0156-01 ")
 ;;3443
 ;;21,"13411-0156-02 ")
 ;;3444
 ;;21,"13411-0156-03 ")
 ;;3445
 ;;21,"13411-0156-06 ")
 ;;3446
 ;;21,"13411-0156-09 ")
 ;;3447
 ;;21,"13411-0184-02 ")
 ;;1085
 ;;21,"13411-0184-03 ")
 ;;1086
 ;;21,"13411-0184-06 ")
 ;;1087
 ;;21,"13411-0184-09 ")
 ;;1088
 ;;21,"13411-0184-10 ")
 ;;1089
 ;;21,"13668-0113-10 ")
 ;;3674
 ;;21,"13668-0113-90 ")
 ;;3675
 ;;21,"13668-0114-10 ")
 ;;3731
 ;;21,"13668-0114-30 ")
 ;;3732
 ;;21,"13668-0114-90 ")
 ;;3733
 ;;21,"13668-0115-10 ")
 ;;3617
 ;;21,"13668-0115-30 ")
 ;;3618
 ;;21,"13668-0115-90 ")
 ;;3619
 ;;21,"13668-0116-10 ")
 ;;3340
 ;;21,"13668-0116-30 ")
 ;;3341
 ;;21,"13668-0116-90 ")
 ;;3342
 ;;21,"13668-0117-10 ")
 ;;3257
 ;;21,"13668-0117-30 ")
 ;;3258
 ;;21,"13668-0117-90 ")
 ;;3259
 ;;21,"13668-0118-10 ")
 ;;3295
 ;;21,"13668-0118-30 ")
 ;;3296
 ;;21,"13668-0118-90 ")
 ;;3297
 ;;21,"15338-0200-30 ")
 ;;1337
 ;;21,"15338-0211-30 ")
 ;;1555
 ;;21,"15338-0220-30 ")
 ;;1194
 ;;21,"15338-0222-30 ")
 ;;1195
 ;;21,"15338-0233-30 ")
 ;;1419
 ;;21,"16252-0541-30 ")
 ;;3102
 ;;21,"16252-0542-90 ")
 ;;3120
 ;;21,"16252-0543-90 ")
 ;;3138
 ;;21,"16252-0570-30 ")
 ;;2924
 ;;21,"16252-0571-01 ")
 ;;3000
 ;;21,"16252-0571-50 ")
 ;;3001
 ;;21,"16252-0572-01 ")
 ;;3044
 ;;21,"16252-0572-50 ")
 ;;3045
 ;;21,"16252-0573-01 ")
 ;;2950
 ;;21,"16252-0573-50 ")
 ;;2951
 ;;21,"16252-0610-01 ")
 ;;2785
 ;;21,"16252-0611-01 ")
 ;;2769
 ;;21,"16252-0612-01 ")
 ;;566
 ;;21,"16252-0613-01 ")
 ;;547
 ;;21,"16252-0614-01 ")
 ;;554
 ;;21,"16590-0063-30 ")
 ;;3655
 ;;21,"16590-0259-30 ")
 ;;683
 ;;21,"16590-0277-30 ")
 ;;1196
 ;;21,"16590-0277-60 ")
 ;;1197
 ;;21,"16590-0277-90 ")
 ;;1198
 ;;21,"16590-0280-30 ")
 ;;610
 ;;21,"16590-0307-30 ")
 ;;2347
 ;;21,"16590-0307-60 ")
 ;;2348
 ;;21,"16590-0307-90 ")
 ;;2349
 ;;21,"16590-0309-30 ")
 ;;495
 ;;21,"16590-0309-60 ")
 ;;496
 ;;21,"16590-0309-72 ")
 ;;497
 ;;21,"16590-0309-90 ")
 ;;498
 ;;21,"16590-0312-30 ")
 ;;3481
 ;;21,"16590-0332-30 ")
 ;;3457
 ;;21,"16590-0356-30 ")
 ;;2453
 ;;21,"16590-0360-30 ")
 ;;2454
 ;;21,"16590-0360-60 ")
 ;;2455
 ;;21,"16590-0360-90 ")
 ;;2456
 ;;21,"16590-0392-30 ")
 ;;1420
 ;;21,"16590-0392-60 ")
 ;;1421
 ;;21,"16590-0392-90 ")
 ;;1422
 ;;21,"16714-0224-01 ")
 ;;3260
 ;;21,"16714-0224-02 ")
 ;;3261
 ;;21,"16714-0225-01 ")
 ;;3298
 ;;21,"16714-0225-02 ")
 ;;3299
 ;;21,"16714-0225-04 ")
 ;;3300
 ;;21,"16714-0226-01 ")
 ;;3343
 ;;21,"16714-0226-02 ")
 ;;3344
 ;;21,"16714-0226-04 ")
 ;;3345
 ;;21,"16714-0581-02 ")
 ;;3676
 ;;21,"16714-0581-03 ")
 ;;3677
 ;;21,"16714-0582-01 ")
 ;;3734
 ;;21,"16714-0582-02 ")
 ;;3735
 ;;21,"16714-0582-03 ")
 ;;3736
 ;;21,"16714-0583-01 ")
 ;;3620
 ;;21,"16714-0583-02 ")
 ;;3621
 ;;21,"16714-0583-03 ")
 ;;3622
 ;;21,"17236-0997-04 ")
 ;;1556
 ;;21,"17236-0997-30 ")
 ;;1557
 ;;21,"18837-0277-30 ")
 ;;2622
 ;;21,"21695-0326-30 ")
 ;;611
 ;;21,"21695-0326-60 ")
 ;;612
 ;;21,"21695-0326-90 ")
 ;;660
 ;;21,"21695-0327-30 ")
 ;;684
 ;;21,"21695-0327-60 ")
 ;;685
 ;;21,"21695-0327-90 ")
 ;;686
 ;;21,"21695-0328-30 ")
 ;;2623
 ;;21,"21695-0328-90 ")
 ;;2624
 ;;21,"21695-0329-30 ")
 ;;1895
 ;;21,"21695-0329-78 ")
 ;;2054
 ;;21,"21695-0329-90 ")
 ;;1896
 ;;21,"21695-0330-20 ")
 ;;2197
 ;;21,"21695-0330-30 ")
 ;;2198
 ;;21,"21695-0330-90 ")
 ;;2199
 ;;21,"21695-0331-30 ")
 ;;2457
 ;;21,"21695-0331-90 ")
 ;;2458
 ;;21,"21695-0345-90 ")
 ;;2137
 ;;21,"21695-0393-30 ")
 ;;2906
 ;;21,"21695-0394-30 ")
 ;;2816
 ;;21,"21695-0477-30 ")
 ;;970
 ;;21,"21695-0477-78 ")
 ;;1055
 ;;21,"21695-0478-30 ")
 ;;1090
 ;;21,"21695-0487-30 ")
 ;;1558
 ;;21,"21695-0488-30 ")
 ;;1199
 ;;21,"21695-0488-60 ")
 ;;1200
 ;;21,"21695-0489-30 ")
 ;;1504
 ;;21,"21695-0489-90 ")
 ;;1423
 ;;21,"21695-0612-90 ")
 ;;840
 ;;21,"21695-0714-30 ")
 ;;3737
 ;;21,"21695-0714-90 ")
 ;;3738
 ;;21,"21695-0717-30 ")
 ;;3623
 ;;21,"21695-0717-90 ")
 ;;3624
 ;;21,"21695-0733-30 ")
 ;;336
 ;;21,"21695-0734-30 ")
 ;;412
 ;;21,"21695-0734-60 ")
 ;;462
 ;;21,"21695-0735-30 ")
 ;;528
 ;;21,"21695-0735-60 ")
 ;;529
 ;;21,"21695-0780-30 ")
 ;;260
 ;;21,"21695-0821-30 ")
 ;;3002
 ;;21,"21695-0822-30 ")
 ;;3046
 ;;21,"21695-0822-90 ")
 ;;3083
 ;;21,"21695-0823-30 ")
 ;;2986
 ;;21,"21695-0823-60 ")
 ;;2987
 ;;21,"21695-0877-30 ")
 ;;759
 ;;21,"21695-0877-90 ")
 ;;760
 ;;21,"23490-5118-01 ")
 ;;613
 ;;21,"23490-5119-01 ")
 ;;687
 ;;21,"23490-5120-03 ")
 ;;761
 ;;21,"23490-5120-09 ")
 ;;762
 ;;21,"23490-5121-01 ")
 ;;820
 ;;21,"23490-5191-01 ")
 ;;854
 ;;21,"23490-5192-01 ")
 ;;899
 ;;21,"23490-5193-01 ")
 ;;971
 ;;21,"23490-5193-02 ")
 ;;972
 ;;21,"23490-5193-03 ")
 ;;973
 ;;21,"23490-5194-00 ")
 ;;1091
 ;;21,"23490-5194-01 ")
 ;;1092
 ;;21,"23490-5194-02 ")
 ;;1093
 ;;21,"23490-5491-01 ")
 ;;1201
 ;;21,"23490-5491-02 ")
 ;;1202
 ;;21,"23490-5491-08 ")
 ;;1203
 ;;21,"23490-5491-09 ")
 ;;1204
 ;;21,"23490-5492-01 ")
 ;;1424
 ;;21,"23490-5492-02 ")
 ;;1425
 ;;21,"23490-5494-01 ")
 ;;1559
 ;;21,"23490-5494-02 ")
 ;;1560
 ;;21,"23490-5815-00 ")
 ;;1897
 ;;21,"23490-5815-01 ")
 ;;1898
 ;;21,"23490-5816-01 ")
 ;;2200
 ;;21,"23490-5816-02 ")
 ;;2201
 ;;21,"23490-5816-06 ")
 ;;2202
 ;;21,"23490-5817-02 ")
 ;;2088
 ;;21,"23490-5818-02 ")
 ;;2459
 ;;21,"23490-5819-02 ")
 ;;2625
 ;;21,"23490-5820-01 ")
 ;;337
 ;;21,"23490-5821-01 ")
 ;;413
 ;;21,"23490-5822-01 ")
 ;;499
 ;;21,"23490-9364-03 ")
 ;;2877
 ;;21,"23490-9409-03 ")
 ;;3765
 ;;21,"23490-9409-09 ")
 ;;3766
 ;;21,"23490-9410-03 ")
 ;;3786
 ;;21,"23490-9410-09 ")
 ;;3787
 ;;21,"23490-9411-03 ")
 ;;3871
 ;;21,"23490-9411-09 ")
 ;;3872
 ;;21,"23490-9412-03 ")
 ;;3885
 ;;21,"23490-9412-09 ")
 ;;3886
 ;;21,"23629-0007-10 ")
 ;;821
 ;;21,"23629-0021-10 ")
 ;;1670
 ;;21,"24658-0100-10 ")
 ;;1671
 ;;21,"24658-0100-90 ")
 ;;1672
 ;;21,"24658-0101-10 ")
 ;;1723
 ;;21,"24658-0101-90 ")
 ;;1724
 ;;21,"24658-0102-10 ")
 ;;1797
 ;;21,"24658-0102-90 ")
 ;;1798
 ;;21,"24658-0200-01 ")
 ;;2925
 ;;21,"24658-0200-05 ")
 ;;2926
 ;;21,"24658-0201-01 ")
 ;;3003
 ;;21,"24658-0201-05 ")
 ;;3004
 ;;21,"24658-0202-01 ")
 ;;3047
 ;;21,"24658-0202-05 ")
 ;;3048
 ;;21,"24658-0203-01 ")
 ;;2952
 ;;21,"24658-0203-05 ")
 ;;2953
 ;;21,"24658-0240-10 ")
 ;;2089
 ;;21,"24658-0240-90 ")
 ;;2090
 ;;21,"24658-0241-10 ")
 ;;2626
 ;;21,"24658-0241-30 ")
 ;;2627
 ;;21,"24658-0241-45 ")
 ;;2628
 ;;21,"24658-0241-90 ")
 ;;2629
 ;;21,"24658-0242-10 ")
 ;;1899
 ;;21,"24658-0242-15 ")
 ;;1900
 ;;21,"24658-0242-18 ")
 ;;1901
 ;;21,"24658-0242-30 ")
 ;;1902
 ;;21,"24658-0242-45 ")
 ;;1903
 ;;21,"24658-0242-90 ")
 ;;1904
 ;;21,"24658-0243-10 ")
 ;;2203
 ;;21,"24658-0243-15 ")
 ;;2204
 ;;21,"24658-0243-18 ")
 ;;2205
 ;;21,"24658-0243-30 ")
 ;;2206
 ;;21,"24658-0243-45 ")
 ;;2207
 ;;21,"24658-0243-90 ")
 ;;2208
 ;;21,"24658-0244-01 ")
 ;;2378
 ;;21,"24658-0244-10 ")
 ;;2379
 ;;21,"24658-0245-10 ")
 ;;2460
 ;;21,"24658-0245-15 ")
 ;;2461
 ;;21,"24658-0245-18 ")
 ;;2462
 ;;21,"24658-0245-30 ")
 ;;2463
 ;;21,"24658-0245-45 ")
 ;;2464
 ;;21,"24658-0245-60 ")
 ;;2465
 ;;21,"24658-0245-90 ")
 ;;2466
 ;;21,"31722-0200-10 ")
 ;;1710
 ;;21,"31722-0200-90 ")
 ;;1711
 ;;21,"31722-0201-10 ")
 ;;1786
 ;;21,"31722-0201-90 ")
 ;;1787
 ;;21,"31722-0202-10 ")
 ;;1839
 ;;21,"31722-0202-90 ")
 ;;1840
 ;;21,"31722-0271-01 ")
 ;;2927
 ;;21,"31722-0272-01 ")
 ;;3005
 ;;21,"31722-0272-10 ")
 ;;3006
 ;;21,"31722-0273-01 ")
 ;;3049
 ;;21,"31722-0273-10 ")
 ;;3050
 ;;21,"31722-0274-01 ")
 ;;2954
 ;;21,"31722-0274-10 ")
 ;;2955
 ;;21,"33358-0047-30 ")
 ;;155
 ;;21,"33358-0048-30 ")
 ;;614
 ;;21,"33358-0049-30 ")
 ;;688
 ;;21,"33358-0050-30 ")
 ;;199
 ;;21,"33358-0126-30 ")
 ;;1561
 ;;21,"33358-0127-30 ")
 ;;1205
 ;;21,"33358-0127-60 ")
 ;;1206
 ;;21,"33358-0128-30 ")
 ;;1426
 ;;21,"33358-0128-60 ")
 ;;1427
 ;;21,"33358-0211-30 ")
 ;;2630
 ;;21,"33358-0212-30 ")
 ;;1905
 ;;21,"33358-0213-30 ")
 ;;2209
 ;;21,"33358-0214-30 ")
 ;;338
 ;;21,"33358-0214-60 ")
 ;;339
 ;;21,"33358-0222-00 ")
 ;;87
 ;;21,"35356-0060-30 ")
 ;;3448
 ;;21,"35356-0101-90 ")
 ;;3859
 ;;21,"35356-0131-30 ")
 ;;3578
 ;;21,"35356-0216-30 ")
 ;;3788
 ;;21,"35356-0216-90 ")
 ;;3789
 ;;21,"35356-0256-30 ")
 ;;3363
 ;;21,"35356-0256-90 ")
 ;;3364
 ;;21,"35356-0257-30 ")
 ;;3370
 ;;21,"35356-0257-90 ")
 ;;3371
 ;;21,"35356-0258-30 ")
 ;;3379
 ;;21,"35356-0258-90 ")
 ;;3380
 ;;21,"35356-0268-30 ")
 ;;127
 ;;21,"35356-0287-20 ")
 ;;3800
 ;;21,"35356-0287-30 ")
 ;;3801
 ;;21,"35356-0288-40 ")
 ;;3372
 ;;21,"35356-0289-40 ")
 ;;3381
 ;;21,"35356-0293-90 ")
 ;;3462
 ;;21,"35356-0294-90 ")
 ;;3469
 ;;21,"35356-0295-30 ")
 ;;3805
 ;;21,"35356-0296-30 ")
 ;;3808
 ;;21,"35356-0297-30 ")
 ;;3392
 ;;21,"35356-0298-30 ")
 ;;3818
 ;;21,"35356-0299-30 ")
 ;;3397
 ;;21,"35356-0300-30 ")
 ;;3405
 ;;21,"35356-0373-90 ")
 ;;3656
 ;;21,"35356-0374-15 ")
 ;;3223
 ;;21,"35356-0374-30 ")
 ;;3224
 ;;21,"35356-0406-30 ")
 ;;3234
 ;;21,"35356-0407-30 ")
 ;;3239
 ;;21,"35356-0416-10 ")
 ;;3346
 ;;21,"35356-0416-20 ")
 ;;3347
 ;;21,"35356-0416-30 ")
 ;;3325
 ;;21,"35356-0427-30 ")
 ;;3520
 ;;21,"35356-0428-30 ")
 ;;3551
 ;;21,"35356-0432-30 ")
 ;;763
 ;;21,"35356-0541-30 ")
 ;;1379
 ;;21,"35356-0587-30 ")
 ;;841
 ;;21,"35356-0587-60 ")
 ;;842
 ;;21,"35356-0587-90 ")
 ;;843
 ;;21,"43063-0007-01 ")
 ;;2210
 ;;21,"43063-0032-01 ")
 ;;2467
 ;;21,"43063-0065-30 ")
 ;;414
 ;;21,"43063-0065-90 ")
 ;;415
 ;;21,"43063-0118-30 ")
 ;;340
 ;;21,"43063-0118-90 ")
 ;;341
 ;;21,"43063-0130-90 ")
 ;;500
 ;;21,"43063-0131-30 ")
 ;;689
 ;;21,"43063-0132-30 ")
 ;;764
 ;;21,"43063-0138-90 ")
 ;;1906
 ;;21,"43063-0146-30 ")
 ;;900