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

BGP13T12.m

Go to the documentation of this file.
BGP13T12 ; 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,"59762-1415-09 ")
 ;;3091
 ;;21,"59762-1416-03 ")
 ;;3092
 ;;21,"59762-1416-05 ")
 ;;3093
 ;;21,"59762-1416-06 ")
 ;;3094
 ;;21,"59762-1416-09 ")
 ;;3095
 ;;21,"59762-1417-03 ")
 ;;3096
 ;;21,"59762-1417-05 ")
 ;;3097
 ;;21,"59762-1417-06 ")
 ;;3098
 ;;21,"59762-1417-09 ")
 ;;3099
 ;;21,"59762-1418-03 ")
 ;;3100
 ;;21,"59762-1418-05 ")
 ;;3101
 ;;21,"59762-1418-06 ")
 ;;3102
 ;;21,"59762-1418-09 ")
 ;;3103
 ;;21,"59762-1808-01 ")
 ;;3826
 ;;21,"59762-1808-02 ")
 ;;3827
 ;;21,"59762-1808-03 ")
 ;;3828
 ;;21,"59762-1810-01 ")
 ;;3829
 ;;21,"59762-1810-02 ")
 ;;3830
 ;;21,"59762-1810-03 ")
 ;;3831
 ;;21,"59762-1810-04 ")
 ;;3832
 ;;21,"59762-1812-01 ")
 ;;3833
 ;;21,"59762-1812-02 ")
 ;;3834
 ;;21,"59762-1812-03 ")
 ;;3835
 ;;21,"59762-1815-01 ")
 ;;3836
 ;;21,"59762-1815-02 ")
 ;;3837
 ;;21,"59762-1815-03 ")
 ;;3838
 ;;21,"59762-4800-01 ")
 ;;1223
 ;;21,"59762-4800-03 ")
 ;;1224
 ;;21,"59762-4800-05 ")
 ;;1225
 ;;21,"59762-4800-06 ")
 ;;1226
 ;;21,"59762-4801-01 ")
 ;;1227
 ;;21,"59762-4801-03 ")
 ;;1228
 ;;21,"59762-4801-05 ")
 ;;1229
 ;;21,"59762-4801-06 ")
 ;;1230
 ;;21,"59762-4802-01 ")
 ;;1231
 ;;21,"59762-4802-03 ")
 ;;1232
 ;;21,"59762-4802-05 ")
 ;;1233
 ;;21,"59762-4802-06 ")
 ;;1234
 ;;21,"59762-4900-01 ")
 ;;4518
 ;;21,"59762-4900-02 ")
 ;;4519
 ;;21,"59762-4900-03 ")
 ;;4520
 ;;21,"59762-4900-04 ")
 ;;4521
 ;;21,"59762-4900-05 ")
 ;;4522
 ;;21,"59762-4910-01 ")
 ;;4523
 ;;21,"59762-4910-02 ")
 ;;4524
 ;;21,"59762-4910-03 ")
 ;;4525
 ;;21,"59762-4910-04 ")
 ;;4526
 ;;21,"59762-4910-05 ")
 ;;4527
 ;;21,"59762-4940-01 ")
 ;;4528
 ;;21,"59762-4960-01 ")
 ;;4529
 ;;21,"59772-3171-01 ")
 ;;4877
 ;;21,"59772-3171-02 ")
 ;;4878
 ;;21,"60258-0830-08 ")
 ;;1235
 ;;21,"60429-0016-12 ")
 ;;396
 ;;21,"60429-0016-18 ")
 ;;397
 ;;21,"60429-0016-30 ")
 ;;398
 ;;21,"60429-0016-60 ")
 ;;399
 ;;21,"60429-0016-90 ")
 ;;400
 ;;21,"60429-0017-30 ")
 ;;401
 ;;21,"60429-0187-01 ")
 ;;4879
 ;;21,"60429-0187-05 ")
 ;;4880
 ;;21,"60429-0188-01 ")
 ;;4881
 ;;21,"60429-0188-05 ")
 ;;4882
 ;;21,"60429-0188-90 ")
 ;;4883
 ;;21,"60429-0230-01 ")
 ;;4884
 ;;21,"60429-0230-05 ")
 ;;4885
 ;;21,"60429-0230-30 ")
 ;;4886
 ;;21,"60429-0230-90 ")
 ;;4887
 ;;21,"60429-0718-18 ")
 ;;2500
 ;;21,"60429-0718-30 ")
 ;;2501
 ;;21,"60429-0718-60 ")
 ;;2502
 ;;21,"60429-0718-90 ")
 ;;2503
 ;;21,"60429-0719-18 ")
 ;;2504
 ;;21,"60429-0719-30 ")
 ;;2505
 ;;21,"60429-0719-60 ")
 ;;2506
 ;;21,"60429-0719-90 ")
 ;;2507
 ;;21,"60429-0734-05 ")
 ;;3839
 ;;21,"60429-0734-30 ")
 ;;3840
 ;;21,"60429-0734-90 ")
 ;;3841
 ;;21,"60429-0735-01 ")
 ;;3842
 ;;21,"60429-0735-05 ")
 ;;3843
 ;;21,"60429-0735-30 ")
 ;;3844
 ;;21,"60429-0735-90 ")
 ;;3845
 ;;21,"60429-0736-05 ")
 ;;3846
 ;;21,"60429-0736-30 ")
 ;;3847
 ;;21,"60429-0736-90 ")
 ;;3848
 ;;21,"60429-0737-05 ")
 ;;3849
 ;;21,"60429-0737-15 ")
 ;;3850
 ;;21,"60429-0737-30 ")
 ;;3851
 ;;21,"60429-0737-45 ")
 ;;3852
 ;;21,"60429-0737-90 ")
 ;;3853
 ;;21,"60429-0746-01 ")
 ;;712
 ;;21,"60429-0747-01 ")
 ;;713
 ;;21,"60429-0758-01 ")
 ;;2663
 ;;21,"60429-0759-01 ")
 ;;2664
 ;;21,"60429-0759-30 ")
 ;;2665
 ;;21,"60429-0759-90 ")
 ;;2666
 ;;21,"60429-0760-01 ")
 ;;2667
 ;;21,"60429-0760-30 ")
 ;;2668
 ;;21,"60429-0760-90 ")
 ;;2669
 ;;21,"60429-0930-01 ")
 ;;4888
 ;;21,"60429-0930-05 ")
 ;;4889
 ;;21,"60429-0930-30 ")
 ;;4890
 ;;21,"60429-0930-90 ")
 ;;4891
 ;;21,"60429-0946-01 ")
 ;;714
 ;;21,"60429-0946-05 ")
 ;;715
 ;;21,"60429-0947-01 ")
 ;;716
 ;;21,"60429-0947-05 ")
 ;;717
 ;;21,"60429-0987-01 ")
 ;;4892
 ;;21,"60429-0987-05 ")
 ;;4893
 ;;21,"60429-0987-30 ")
 ;;4894
 ;;21,"60429-0987-60 ")
 ;;4895
 ;;21,"60429-0987-90 ")
 ;;4896
 ;;21,"60429-0988-01 ")
 ;;4897
 ;;21,"60429-0988-05 ")
 ;;4898
 ;;21,"60429-0988-30 ")
 ;;4899
 ;;21,"60432-0162-04 ")
 ;;2508
 ;;21,"60432-0651-04 ")
 ;;1792
 ;;21,"60505-0083-01 ")
 ;;3854
 ;;21,"60505-0083-02 ")
 ;;3855
 ;;21,"60505-0083-04 ")
 ;;3856
 ;;21,"60505-0084-01 ")
 ;;3857
 ;;21,"60505-0084-02 ")
 ;;3858
 ;;21,"60505-0084-04 ")
 ;;3859
 ;;21,"60505-0097-01 ")
 ;;3860
 ;;21,"60505-0097-02 ")
 ;;3861
 ;;21,"60505-0097-04 ")
 ;;3862
 ;;21,"60505-0101-01 ")
 ;;3863
 ;;21,"60505-0101-02 ")
 ;;3864
 ;;21,"60505-0101-04 ")
 ;;3865
 ;;21,"60505-0157-01 ")
 ;;718
 ;;21,"60505-0157-05 ")
 ;;719
 ;;21,"60505-0157-09 ")
 ;;720
 ;;21,"60505-0158-01 ")
 ;;721
 ;;21,"60505-0158-05 ")
 ;;722
 ;;21,"60505-0158-09 ")
 ;;723
 ;;21,"60505-0164-01 ")
 ;;2670
 ;;21,"60505-0165-01 ")
 ;;2671
 ;;21,"60505-0166-01 ")
 ;;2672
 ;;21,"60505-0180-03 ")
 ;;4530
 ;;21,"60505-0180-08 ")
 ;;4531
 ;;21,"60505-0181-03 ")
 ;;4532
 ;;21,"60505-0181-08 ")
 ;;4533
 ;;21,"60505-0182-03 ")
 ;;4534
 ;;21,"60505-0182-08 ")
 ;;4535
 ;;21,"60505-0247-01 ")
 ;;3104
 ;;21,"60505-0247-08 ")
 ;;3105
 ;;21,"60505-0248-01 ")
 ;;3106
 ;;21,"60505-0248-08 ")
 ;;3107
 ;;21,"60505-0249-01 ")
 ;;3108
 ;;21,"60505-0249-08 ")
 ;;3109
 ;;21,"60505-0352-01 ")
 ;;2509
 ;;21,"60505-0374-01 ")
 ;;3866
 ;;21,"60505-2518-01 ")
 ;;1236
 ;;21,"60505-2518-03 ")
 ;;1237
 ;;21,"60505-2518-04 ")
 ;;1238
 ;;21,"60505-2518-08 ")
 ;;1239
 ;;21,"60505-2519-01 ")
 ;;1240
 ;;21,"60505-2519-03 ")
 ;;1241
 ;;21,"60505-2519-04 ")
 ;;1242
 ;;21,"60505-2519-08 ")
 ;;1243
 ;;21,"60505-2520-01 ")
 ;;1244
 ;;21,"60505-2520-03 ")
 ;;1245
 ;;21,"60505-2520-04 ")
 ;;1246
 ;;21,"60505-2520-08 ")
 ;;1247
 ;;21,"60505-2653-01 ")
 ;;4900
 ;;21,"60505-2653-05 ")
 ;;4901
 ;;21,"60505-2654-00 ")
 ;;4902
 ;;21,"60505-2654-01 ")
 ;;4903
 ;;21,"60505-2654-05 ")
 ;;4904
 ;;21,"60505-2655-01 ")
 ;;4905
 ;;21,"60505-2655-05 ")
 ;;4906
 ;;21,"60505-2659-01 ")
 ;;4907
 ;;21,"60760-0212-15 ")
 ;;402
 ;;21,"60760-0212-30 ")
 ;;403
 ;;21,"60760-0221-30 ")
 ;;404
 ;;21,"60760-0367-30 ")
 ;;405
 ;;21,"60760-0367-60 ")
 ;;406
 ;;21,"60760-0434-30 ")
 ;;4908
 ;;21,"60760-0434-60 ")
 ;;4909
 ;;21,"60760-0440-30 ")
 ;;4910
 ;;21,"60760-0440-60 ")
 ;;4911
 ;;21,"60760-0508-30 ")
 ;;3501
 ;;21,"60760-0508-60 ")
 ;;3502
 ;;21,"60760-0647-30 ")
 ;;2510
 ;;21,"60760-0811-30 ")
 ;;3503
 ;;21,"60760-0811-60 ")
 ;;3504
 ;;21,"61392-0025-30 ")
 ;;2773
 ;;21,"61392-0025-31 ")
 ;;2774
 ;;21,"61392-0025-32 ")
 ;;2775
 ;;21,"61392-0025-39 ")
 ;;2776
 ;;21,"61392-0025-45 ")
 ;;2777
 ;;21,"61392-0025-51 ")
 ;;2778
 ;;21,"61392-0025-54 ")
 ;;2779
 ;;21,"61392-0025-56 ")
 ;;2780
 ;;21,"61392-0025-60 ")
 ;;2781
 ;;21,"61392-0025-90 ")
 ;;2782
 ;;21,"61392-0025-91 ")
 ;;2783
 ;;21,"61392-0026-30 ")
 ;;2784
 ;;21,"61392-0026-31 ")
 ;;2785
 ;;21,"61392-0026-32 ")
 ;;2786
 ;;21,"61392-0026-39 ")
 ;;2787
 ;;21,"61392-0026-45 ")
 ;;2788
 ;;21,"61392-0026-51 ")
 ;;2789
 ;;21,"61392-0026-54 ")
 ;;2790
 ;;21,"61392-0026-56 ")
 ;;2791
 ;;21,"61392-0026-60 ")
 ;;2792
 ;;21,"61392-0026-90 ")
 ;;2793
 ;;21,"61392-0026-91 ")
 ;;2794
 ;;21,"61392-0027-30 ")
 ;;2795
 ;;21,"61392-0027-31 ")
 ;;2796
 ;;21,"61392-0027-32 ")
 ;;2797
 ;;21,"61392-0027-39 ")
 ;;2798
 ;;21,"61392-0027-45 ")
 ;;2799
 ;;21,"61392-0027-51 ")
 ;;2800
 ;;21,"61392-0027-54 ")
 ;;2801
 ;;21,"61392-0027-56 ")
 ;;2802
 ;;21,"61392-0027-60 ")
 ;;2803
 ;;21,"61392-0027-90 ")
 ;;2804
 ;;21,"61392-0027-91 ")
 ;;2805
 ;;21,"61392-0071-30 ")
 ;;4115
 ;;21,"61392-0071-31 ")
 ;;4116
 ;;21,"61392-0071-32 ")
 ;;4117
 ;;21,"61392-0071-39 ")
 ;;4118
 ;;21,"61392-0071-45 ")
 ;;4119
 ;;21,"61392-0071-51 ")
 ;;4120
 ;;21,"61392-0071-54 ")
 ;;4121
 ;;21,"61392-0071-60 ")
 ;;4122
 ;;21,"61392-0071-90 ")
 ;;4123
 ;;21,"61392-0071-91 ")
 ;;4124
 ;;21,"61392-0072-30 ")
 ;;4125
 ;;21,"61392-0072-31 ")
 ;;4126
 ;;21,"61392-0072-32 ")
 ;;4127
 ;;21,"61392-0072-39 ")
 ;;4128
 ;;21,"61392-0072-45 ")
 ;;4129
 ;;21,"61392-0072-51 ")
 ;;4130
 ;;21,"61392-0072-54 ")
 ;;4131
 ;;21,"61392-0072-60 ")
 ;;4132
 ;;21,"61392-0072-90 ")
 ;;4133
 ;;21,"61392-0072-91 ")
 ;;4134
 ;;21,"61392-0140-30 ")
 ;;407
 ;;21,"61392-0140-31 ")
 ;;408
 ;;21,"61392-0140-32 ")
 ;;409
 ;;21,"61392-0140-34 ")
 ;;410
 ;;21,"61392-0140-39 ")
 ;;411
 ;;21,"61392-0140-45 ")
 ;;412
 ;;21,"61392-0140-51 ")
 ;;413
 ;;21,"61392-0140-54 ")
 ;;414
 ;;21,"61392-0140-56 ")
 ;;415
 ;;21,"61392-0140-60 ")
 ;;416
 ;;21,"61392-0140-65 ")
 ;;417
 ;;21,"61392-0140-90 ")
 ;;418
 ;;21,"61392-0140-91 ")
 ;;419
 ;;21,"61392-0140-95 ")
 ;;420
 ;;21,"61392-0141-30 ")
 ;;421
 ;;21,"61392-0141-31 ")
 ;;422
 ;;21,"61392-0141-32 ")
 ;;423
 ;;21,"61392-0141-39 ")
 ;;424
 ;;21,"61392-0141-45 ")
 ;;425
 ;;21,"61392-0141-51 ")
 ;;426
 ;;21,"61392-0141-54 ")
 ;;427
 ;;21,"61392-0141-56 ")
 ;;428
 ;;21,"61392-0141-60 ")
 ;;429
 ;;21,"61392-0141-65 ")
 ;;430
 ;;21,"61392-0141-90 ")
 ;;431
 ;;21,"61392-0141-91 ")
 ;;432
 ;;21,"61392-0141-95 ")
 ;;433
 ;;21,"61392-0143-30 ")
 ;;434
 ;;21,"61392-0143-31 ")
 ;;435
 ;;21,"61392-0143-32 ")
 ;;436
 ;;21,"61392-0143-34 ")
 ;;437
 ;;21,"61392-0143-39 ")
 ;;438
 ;;21,"61392-0143-45 ")
 ;;439
 ;;21,"61392-0143-51 ")
 ;;440
 ;;21,"61392-0143-54 ")
 ;;441
 ;;21,"61392-0143-56 ")
 ;;442
 ;;21,"61392-0143-60 ")
 ;;443
 ;;21,"61392-0143-65 ")
 ;;444
 ;;21,"61392-0143-90 ")
 ;;445
 ;;21,"61392-0143-91 ")
 ;;446
 ;;21,"61392-0143-95 ")
 ;;447
 ;;21,"61392-0153-30 ")
 ;;448
 ;;21,"61392-0153-31 ")
 ;;449
 ;;21,"61392-0153-32 ")
 ;;450
 ;;21,"61392-0153-39 ")
 ;;451
 ;;21,"61392-0153-45 ")
 ;;452
 ;;21,"61392-0153-51 ")
 ;;453
 ;;21,"61392-0153-54 ")
 ;;454
 ;;21,"61392-0153-56 ")
 ;;455
 ;;21,"61392-0153-60 ")
 ;;456
 ;;21,"61392-0153-90 ")
 ;;457
 ;;21,"61392-0153-91 ")
 ;;458
 ;;21,"61392-0234-30 ")
 ;;4241
 ;;21,"61392-0234-51 ")
 ;;4242
 ;;21,"61392-0234-54 ")
 ;;4243
 ;;21,"61392-0234-56 ")
 ;;4244
 ;;21,"61392-0234-60 ")
 ;;4245
 ;;21,"61392-0234-90 ")
 ;;4246
 ;;21,"61392-0234-91 ")
 ;;4247
 ;;21,"61392-0235-15 ")
 ;;4221
 ;;21,"61392-0235-30 ")
 ;;4222
 ;;21,"61392-0235-45 ")
 ;;4223
 ;;21,"61392-0235-51 ")
 ;;4224
 ;;21,"61392-0235-54 ")
 ;;4225
 ;;21,"61392-0235-56 ")
 ;;4226
 ;;21,"61392-0235-60 ")
 ;;4227
 ;;21,"61392-0235-90 ")
 ;;4228
 ;;21,"61392-0235-91 ")
 ;;4229
 ;;21,"61392-0361-30 ")
 ;;3505
 ;;21,"61392-0361-31 ")
 ;;3506
 ;;21,"61392-0361-32 ")
 ;;3507
 ;;21,"61392-0361-39 ")
 ;;3508
 ;;21,"61392-0361-45 ")
 ;;3509
 ;;21,"61392-0361-51 ")
 ;;3510
 ;;21,"61392-0361-54 ")
 ;;3511
 ;;21,"61392-0361-56 ")
 ;;3512
 ;;21,"61392-0361-60 ")
 ;;3513
 ;;21,"61392-0361-90 ")
 ;;3514
 ;;21,"61392-0361-91 ")
 ;;3515
 ;;21,"61392-0364-30 ")
 ;;3516
 ;;21,"61392-0364-31 ")
 ;;3517
 ;;21,"61392-0364-32 ")
 ;;3518
 ;;21,"61392-0364-39 ")
 ;;3519
 ;;21,"61392-0364-45 ")
 ;;3520
 ;;21,"61392-0364-51 ")
 ;;3521
 ;;21,"61392-0364-54 ")
 ;;3522
 ;;21,"61392-0364-56 ")
 ;;3523
 ;;21,"61392-0364-60 ")
 ;;3524
 ;;21,"61392-0364-90 ")
 ;;3525
 ;;21,"61392-0364-91 ")
 ;;3526
 ;;21,"61392-0367-30 ")
 ;;3527
 ;;21,"61392-0367-31 ")
 ;;3528
 ;;21,"61392-0367-32 ")
 ;;3529
 ;;21,"61392-0367-39 ")
 ;;3530
 ;;21,"61392-0367-45 ")
 ;;3531
 ;;21,"61392-0367-51 ")
 ;;3532
 ;;21,"61392-0367-54 ")
 ;;3533
 ;;21,"61392-0367-56 ")
 ;;3534
 ;;21,"61392-0367-60 ")
 ;;3535
 ;;21,"61392-0367-90 ")
 ;;3536
 ;;21,"61392-0367-91 ")
 ;;3537
 ;;21,"61392-0370-30 ")
 ;;3538
 ;;21,"61392-0370-31 ")
 ;;3539
 ;;21,"61392-0370-32 ")
 ;;3540
 ;;21,"61392-0370-39 ")
 ;;3541
 ;;21,"61392-0370-45 ")
 ;;3542
 ;;21,"61392-0370-51 ")
 ;;3543
 ;;21,"61392-0370-54 ")
 ;;3544
 ;;21,"61392-0370-56 ")
 ;;3545
 ;;21,"61392-0370-60 ")
 ;;3546
 ;;21,"61392-0370-90 ")
 ;;3547
 ;;21,"61392-0370-91 ")
 ;;3548
 ;;21,"61392-0487-30 ")
 ;;4912
 ;;21,"61392-0487-31 ")
 ;;4913
 ;;21,"61392-0487-32 ")
 ;;4914
 ;;21,"61392-0487-39 ")
 ;;4915
 ;;21,"61392-0487-45 ")
 ;;4916
 ;;21,"61392-0487-51 ")
 ;;4917
 ;;21,"61392-0487-54 ")
 ;;4918
 ;;21,"61392-0487-56 ")
 ;;4919
 ;;21,"61392-0487-60 ")
 ;;4920