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

BGP62Y12.m

Go to the documentation of this file.
  1. BGP62Y12 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"54569-4713-02 ")
  1. ;;6445
  1. ;;21,"54569-4737-00 ")
  1. ;;5448
  1. ;;21,"54569-4820-00 ")
  1. ;;4498
  1. ;;21,"54569-4915-00 ")
  1. ;;4809
  1. ;;21,"54569-4915-01 ")
  1. ;;4810
  1. ;;21,"54569-4915-02 ")
  1. ;;4811
  1. ;;21,"54569-4922-00 ")
  1. ;;5027
  1. ;;21,"54569-4922-01 ")
  1. ;;5028
  1. ;;21,"54569-4922-02 ")
  1. ;;5029
  1. ;;21,"54569-4953-00 ")
  1. ;;3045
  1. ;;21,"54569-4972-00 ")
  1. ;;1670
  1. ;;21,"54569-5149-00 ")
  1. ;;5030
  1. ;;21,"54569-5154-00 ")
  1. ;;2149
  1. ;;21,"54569-5182-00 ")
  1. ;;711
  1. ;;21,"54569-5193-00 ")
  1. ;;742
  1. ;;21,"54569-5214-00 ")
  1. ;;7014
  1. ;;21,"54569-5214-01 ")
  1. ;;7015
  1. ;;21,"54569-5386-00 ")
  1. ;;5383
  1. ;;21,"54569-5386-01 ")
  1. ;;5384
  1. ;;21,"54569-5386-02 ")
  1. ;;5385
  1. ;;21,"54569-5386-03 ")
  1. ;;5386
  1. ;;21,"54569-5418-00 ")
  1. ;;5469
  1. ;;21,"54569-5448-00 ")
  1. ;;2809
  1. ;;21,"54569-5470-00 ")
  1. ;;1119
  1. ;;21,"54569-5470-01 ")
  1. ;;1120
  1. ;;21,"54569-5470-02 ")
  1. ;;1121
  1. ;;21,"54569-5470-03 ")
  1. ;;1122
  1. ;;21,"54569-5471-00 ")
  1. ;;1259
  1. ;;21,"54569-5471-01 ")
  1. ;;1260
  1. ;;21,"54569-5471-02 ")
  1. ;;1261
  1. ;;21,"54569-5471-03 ")
  1. ;;1262
  1. ;;21,"54569-5471-04 ")
  1. ;;1263
  1. ;;21,"54569-5487-00 ")
  1. ;;1037
  1. ;;21,"54569-5488-00 ")
  1. ;;955
  1. ;;21,"54569-5510-00 ")
  1. ;;4669
  1. ;;21,"54569-5553-00 ")
  1. ;;445
  1. ;;21,"54569-5574-00 ")
  1. ;;4499
  1. ;;21,"54569-5574-01 ")
  1. ;;4500
  1. ;;21,"54569-5574-02 ")
  1. ;;4501
  1. ;;21,"54569-5574-03 ")
  1. ;;4502
  1. ;;21,"54569-5574-04 ")
  1. ;;4503
  1. ;;21,"54569-5574-05 ")
  1. ;;4504
  1. ;;21,"54569-5574-06 ")
  1. ;;4505
  1. ;;21,"54569-5584-00 ")
  1. ;;4234
  1. ;;21,"54569-5584-01 ")
  1. ;;4235
  1. ;;21,"54569-5584-02 ")
  1. ;;4236
  1. ;;21,"54569-5638-00 ")
  1. ;;1009
  1. ;;21,"54569-5638-01 ")
  1. ;;1010
  1. ;;21,"54569-5649-00 ")
  1. ;;6982
  1. ;;21,"54569-5650-00 ")
  1. ;;6983
  1. ;;21,"54569-5688-00 ")
  1. ;;2901
  1. ;;21,"54569-5689-00 ")
  1. ;;1038
  1. ;;21,"54569-5690-00 ")
  1. ;;1039
  1. ;;21,"54569-5698-00 ")
  1. ;;2980
  1. ;;21,"54569-5698-01 ")
  1. ;;2981
  1. ;;21,"54569-5698-02 ")
  1. ;;2982
  1. ;;21,"54569-5720-00 ")
  1. ;;6880
  1. ;;21,"54569-5721-00 ")
  1. ;;6921
  1. ;;21,"54569-5722-00 ")
  1. ;;6801
  1. ;;21,"54569-5723-00 ")
  1. ;;6881
  1. ;;21,"54569-5724-00 ")
  1. ;;6922
  1. ;;21,"54569-5725-00 ")
  1. ;;6802
  1. ;;21,"54569-5727-00 ")
  1. ;;608
  1. ;;21,"54569-5754-00 ")
  1. ;;2687
  1. ;;21,"54569-5755-00 ")
  1. ;;2688
  1. ;;21,"54569-5756-00 ")
  1. ;;2810
  1. ;;21,"54569-5774-00 ")
  1. ;;2453
  1. ;;21,"54569-5774-01 ")
  1. ;;2454
  1. ;;21,"54569-5774-02 ")
  1. ;;2455
  1. ;;21,"54569-5774-03 ")
  1. ;;2456
  1. ;;21,"54569-5784-00 ")
  1. ;;5275
  1. ;;21,"54569-5785-00 ")
  1. ;;5307
  1. ;;21,"54569-5804-00 ")
  1. ;;2859
  1. ;;21,"54569-5806-00 ")
  1. ;;2549
  1. ;;21,"54569-5807-00 ")
  1. ;;2563
  1. ;;21,"54569-5808-00 ")
  1. ;;2602
  1. ;;21,"54569-5809-00 ")
  1. ;;2603
  1. ;;21,"54569-5810-00 ")
  1. ;;2604
  1. ;;21,"54569-5813-00 ")
  1. ;;5753
  1. ;;21,"54569-5824-00 ")
  1. ;;4319
  1. ;;21,"54569-5829-00 ")
  1. ;;2927
  1. ;;21,"54569-5831-00 ")
  1. ;;1199
  1. ;;21,"54569-5899-00 ")
  1. ;;4670
  1. ;;21,"54569-5917-00 ")
  1. ;;6984
  1. ;;21,"54569-5918-00 ")
  1. ;;6985
  1. ;;21,"54569-5919-00 ")
  1. ;;6955
  1. ;;21,"54569-5920-00 ")
  1. ;;6956
  1. ;;21,"54569-5921-00 ")
  1. ;;7016
  1. ;;21,"54569-5921-01 ")
  1. ;;7017
  1. ;;21,"54569-5921-02 ")
  1. ;;7018
  1. ;;21,"54569-5921-03 ")
  1. ;;7019
  1. ;;21,"54569-6037-00 ")
  1. ;;446
  1. ;;21,"54569-6043-00 ")
  1. ;;1200
  1. ;;21,"54569-6083-00 ")
  1. ;;3562
  1. ;;21,"54569-6084-00 ")
  1. ;;3563
  1. ;;21,"54569-6195-00 ")
  1. ;;5334
  1. ;;21,"54569-6204-00 ")
  1. ;;2811
  1. ;;21,"54569-6237-00 ")
  1. ;;4912
  1. ;;21,"54569-6237-01 ")
  1. ;;4913
  1. ;;21,"54569-6237-02 ")
  1. ;;4914
  1. ;;21,"54569-6237-03 ")
  1. ;;4915
  1. ;;21,"54569-6238-00 ")
  1. ;;4980
  1. ;;21,"54569-6238-01 ")
  1. ;;4981
  1. ;;21,"54569-6241-00 ")
  1. ;;4812
  1. ;;21,"54569-6241-01 ")
  1. ;;4813
  1. ;;21,"54569-6448-00 ")
  1. ;;2812
  1. ;;21,"54569-8004-00 ")
  1. ;;3733
  1. ;;21,"54569-8021-00 ")
  1. ;;3564
  1. ;;21,"54799-0533-60 ")
  1. ;;5917
  1. ;;21,"54799-0534-66 ")
  1. ;;5908
  1. ;;21,"54799-0535-60 ")
  1. ;;6764
  1. ;;21,"54807-0251-20 ")
  1. ;;408
  1. ;;21,"54868-0018-05 ")
  1. ;;3443
  1. ;;21,"54868-0021-00 ")
  1. ;;5754
  1. ;;21,"54868-0021-01 ")
  1. ;;5755
  1. ;;21,"54868-0021-02 ")
  1. ;;5756
  1. ;;21,"54868-0021-04 ")
  1. ;;5757
  1. ;;21,"54868-0021-05 ")
  1. ;;5758
  1. ;;21,"54868-0021-06 ")
  1. ;;5759
  1. ;;21,"54868-0021-07 ")
  1. ;;5760
  1. ;;21,"54868-0021-09 ")
  1. ;;5761
  1. ;;21,"54868-0023-01 ")
  1. ;;6022
  1. ;;21,"54868-0023-02 ")
  1. ;;6023
  1. ;;21,"54868-0023-03 ")
  1. ;;6024
  1. ;;21,"54868-0023-05 ")
  1. ;;6025
  1. ;;21,"54868-0023-06 ")
  1. ;;6026
  1. ;;21,"54868-0023-08 ")
  1. ;;6027
  1. ;;21,"54868-0023-09 ")
  1. ;;6028
  1. ;;21,"54868-0023-14 ")
  1. ;;6029
  1. ;;21,"54868-0153-00 ")
  1. ;;1671
  1. ;;21,"54868-0153-01 ")
  1. ;;1672
  1. ;;21,"54868-0153-03 ")
  1. ;;1673
  1. ;;21,"54868-0153-05 ")
  1. ;;1674
  1. ;;21,"54868-0153-08 ")
  1. ;;1675
  1. ;;21,"54868-0153-09 ")
  1. ;;1676
  1. ;;21,"54868-0154-00 ")
  1. ;;1976
  1. ;;21,"54868-0154-01 ")
  1. ;;1977
  1. ;;21,"54868-0154-02 ")
  1. ;;1978
  1. ;;21,"54868-0154-03 ")
  1. ;;1979
  1. ;;21,"54868-0154-04 ")
  1. ;;1980
  1. ;;21,"54868-0154-06 ")
  1. ;;1981
  1. ;;21,"54868-0154-07 ")
  1. ;;1982
  1. ;;21,"54868-0154-08 ")
  1. ;;1983
  1. ;;21,"54868-0154-09 ")
  1. ;;1984
  1. ;;21,"54868-0191-01 ")
  1. ;;6193
  1. ;;21,"54868-0191-02 ")
  1. ;;6194
  1. ;;21,"54868-0191-03 ")
  1. ;;6195
  1. ;;21,"54868-0191-04 ")
  1. ;;6196
  1. ;;21,"54868-0191-05 ")
  1. ;;6197
  1. ;;21,"54868-0191-06 ")
  1. ;;6198
  1. ;;21,"54868-0199-00 ")
  1. ;;924
  1. ;;21,"54868-0199-03 ")
  1. ;;925
  1. ;;21,"54868-0200-00 ")
  1. ;;997
  1. ;;21,"54868-0200-01 ")
  1. ;;998
  1. ;;21,"54868-0224-01 ")
  1. ;;3068
  1. ;;21,"54868-0224-03 ")
  1. ;;3069
  1. ;;21,"54868-0224-04 ")
  1. ;;3070
  1. ;;21,"54868-0224-06 ")
  1. ;;3071
  1. ;;21,"54868-0286-00 ")
  1. ;;1011
  1. ;;21,"54868-0333-01 ")
  1. ;;3444
  1. ;;21,"54868-0333-02 ")
  1. ;;3445
  1. ;;21,"54868-0333-04 ")
  1. ;;3446
  1. ;;21,"54868-0333-06 ")
  1. ;;3447
  1. ;;21,"54868-0333-07 ")
  1. ;;3448
  1. ;;21,"54868-0337-00 ")
  1. ;;5762
  1. ;;21,"54868-0337-01 ")
  1. ;;5763
  1. ;;21,"54868-0337-03 ")
  1. ;;5764
  1. ;;21,"54868-0388-01 ")
  1. ;;1123
  1. ;;21,"54868-0388-02 ")
  1. ;;1124
  1. ;;21,"54868-0388-04 ")
  1. ;;1125
  1. ;;21,"54868-0388-05 ")
  1. ;;1126
  1. ;;21,"54868-0425-00 ")
  1. ;;1985
  1. ;;21,"54868-0538-01 ")
  1. ;;1566
  1. ;;21,"54868-0538-02 ")
  1. ;;1567
  1. ;;21,"54868-0559-00 ")
  1. ;;1318
  1. ;;21,"54868-0654-00 ")
  1. ;;2928
  1. ;;21,"54868-0737-01 ")
  1. ;;6986
  1. ;;21,"54868-0840-00 ")
  1. ;;3204
  1. ;;21,"54868-0840-01 ")
  1. ;;3205
  1. ;;21,"54868-0840-02 ")
  1. ;;3206
  1. ;;21,"54868-0840-03 ")
  1. ;;3207
  1. ;;21,"54868-0840-04 ")
  1. ;;3208
  1. ;;21,"54868-0937-00 ")
  1. ;;3931
  1. ;;21,"54868-0937-01 ")
  1. ;;3932
  1. ;;21,"54868-0937-02 ")
  1. ;;3933
  1. ;;21,"54868-0939-05 ")
  1. ;;4506
  1. ;;21,"54868-0971-00 ")
  1. ;;3398
  1. ;;21,"54868-0971-01 ")
  1. ;;3399
  1. ;;21,"54868-1080-00 ")
  1. ;;5387
  1. ;;21,"54868-1080-01 ")
  1. ;;5388
  1. ;;21,"54868-1080-03 ")
  1. ;;5389
  1. ;;21,"54868-1171-00 ")
  1. ;;3651
  1. ;;21,"54868-1171-01 ")
  1. ;;3652
  1. ;;21,"54868-1171-02 ")
  1. ;;3653
  1. ;;21,"54868-1171-03 ")
  1. ;;3654
  1. ;;21,"54868-1173-00 ")
  1. ;;3817
  1. ;;21,"54868-1173-01 ")
  1. ;;3818
  1. ;;21,"54868-1173-02 ")
  1. ;;3819
  1. ;;21,"54868-1173-04 ")
  1. ;;3820
  1. ;;21,"54868-1173-05 ")
  1. ;;3821
  1. ;;21,"54868-1173-06 ")
  1. ;;3822
  1. ;;21,"54868-1380-00 ")
  1. ;;4003
  1. ;;21,"54868-1380-01 ")
  1. ;;4004
  1. ;;21,"54868-1380-02 ")
  1. ;;4005
  1. ;;21,"54868-1380-03 ")
  1. ;;4006
  1. ;;21,"54868-1385-01 ")
  1. ;;1792
  1. ;;21,"54868-1385-02 ")
  1. ;;1793
  1. ;;21,"54868-1386-01 ")
  1. ;;3139
  1. ;;21,"54868-1386-02 ")
  1. ;;3140
  1. ;;21,"54868-1386-03 ")
  1. ;;3141
  1. ;;21,"54868-1386-04 ")
  1. ;;3142
  1. ;;21,"54868-1386-05 ")
  1. ;;3143
  1. ;;21,"54868-1387-00 ")
  1. ;;3325
  1. ;;21,"54868-1387-01 ")
  1. ;;3326
  1. ;;21,"54868-1387-02 ")
  1. ;;3327
  1. ;;21,"54868-1387-04 ")
  1. ;;3328
  1. ;;21,"54868-1392-00 ")
  1. ;;1407
  1. ;;21,"54868-1616-02 ")
  1. ;;2144
  1. ;;21,"54868-1710-00 ")
  1. ;;5470
  1. ;;21,"54868-1774-00 ")
  1. ;;3363
  1. ;;21,"54868-1774-02 ")
  1. ;;3364
  1. ;;21,"54868-1780-01 ")
  1. ;;3734
  1. ;;21,"54868-1780-02 ")
  1. ;;3735
  1. ;;21,"54868-1857-00 ")
  1. ;;2302
  1. ;;21,"54868-1857-01 ")
  1. ;;2303
  1. ;;21,"54868-1857-02 ")
  1. ;;2304
  1. ;;21,"54868-1857-05 ")
  1. ;;2305
  1. ;;21,"54868-1857-06 ")
  1. ;;2306
  1. ;;21,"54868-1857-07 ")
  1. ;;2307
  1. ;;21,"54868-2390-00 ")
  1. ;;6522
  1. ;;21,"54868-2390-01 ")
  1. ;;6523
  1. ;;21,"54868-2391-00 ")
  1. ;;6446
  1. ;;21,"54868-2391-01 ")
  1. ;;6447
  1. ;;21,"54868-2391-02 ")
  1. ;;6448
  1. ;;21,"54868-2391-03 ")
  1. ;;6449
  1. ;;21,"54868-2391-04 ")
  1. ;;6450
  1. ;;21,"54868-2391-05 ")
  1. ;;6451
  1. ;;21,"54868-2488-01 ")
  1. ;;6803
  1. ;;21,"54868-2840-00 ")
  1. ;;3290
  1. ;;21,"54868-2840-01 ")
  1. ;;3291
  1. ;;21,"54868-2910-00 ")
  1. ;;1542
  1. ;;21,"54868-3105-00 ")
  1. ;;340
  1. ;;21,"54868-3105-01 ")
  1. ;;341
  1. ;;21,"54868-3105-02 ")
  1. ;;342
  1. ;;21,"54868-3105-03 ")
  1. ;;343
  1. ;;21,"54868-3107-01 ")
  1. ;;232
  1. ;;21,"54868-3107-02 ")
  1. ;;233
  1. ;;21,"54868-3107-03 ")
  1. ;;234
  1. ;;21,"54868-3107-06 ")
  1. ;;235
  1. ;;21,"54868-3107-07 ")
  1. ;;236
  1. ;;21,"54868-3107-09 ")
  1. ;;237
  1. ;;21,"54868-3109-00 ")
  1. ;;609
  1. ;;21,"54868-3109-01 ")
  1. ;;610
  1. ;;21,"54868-3109-02 ")
  1. ;;611
  1. ;;21,"54868-3109-03 ")
  1. ;;612
  1. ;;21,"54868-3109-05 ")
  1. ;;613
  1. ;;21,"54868-3109-06 ")
  1. ;;614
  1. ;;21,"54868-3109-07 ")
  1. ;;615
  1. ;;21,"54868-3109-08 ")
  1. ;;616
  1. ;;21,"54868-3109-09 ")
  1. ;;617
  1. ;;21,"54868-3113-00 ")
  1. ;;854
  1. ;;21,"54868-3113-03 ")
  1. ;;855
  1. ;;21,"54868-3113-05 ")
  1. ;;856
  1. ;;21,"54868-3113-07 ")
  1. ;;857
  1. ;;21,"54868-3113-08 ")
  1. ;;858
  1. ;;21,"54868-3113-09 ")
  1. ;;859
  1. ;;21,"54868-3169-00 ")
  1. ;;6317
  1. ;;21,"54868-3169-01 ")
  1. ;;6318
  1. ;;21,"54868-3169-02 ")
  1. ;;6319
  1. ;;21,"54868-3169-04 ")
  1. ;;6320
  1. ;;21,"54868-3169-05 ")
  1. ;;6321
  1. ;;21,"54868-3169-06 ")
  1. ;;6322
  1. ;;21,"54868-3244-00 ")
  1. ;;2813
  1. ;;21,"54868-3384-00 ")
  1. ;;2929
  1. ;;21,"54868-3480-00 ")
  1. ;;3591
  1. ;;21,"54868-3511-04 ")
  1. ;;5218
  1. ;;21,"54868-3648-01 ")
  1. ;;2814
  1. ;;21,"54868-3695-00 ")
  1. ;;2175
  1. ;;21,"54868-3742-01 ")
  1. ;;1468
  1. ;;21,"54868-3742-02 ")
  1. ;;1469
  1. ;;21,"54868-3742-03 ")
  1. ;;1470
  1. ;;21,"54868-3923-00 ")
  1. ;;4916
  1. ;;21,"54868-3923-01 ")
  1. ;;4917
  1. ;;21,"54868-3923-02 ")
  1. ;;4918
  1. ;;21,"54868-3923-03 ")
  1. ;;4919
  1. ;;21,"54868-3923-04 ")
  1. ;;4920
  1. ;;21,"54868-3923-05 ")
  1. ;;4921
  1. ;;21,"54868-4047-00 ")
  1. ;;77
  1. ;;21,"54868-4078-00 ")
  1. ;;2605
  1. ;;21,"54868-4078-01 ")
  1. ;;2606
  1. ;;21,"54868-4078-02 ")
  1. ;;2607
  1. ;;21,"54868-4125-01 ")
  1. ;;3609
  1. ;;21,"54868-4125-02 ")
  1. ;;3610
  1. ;;21,"54868-4150-00 ")
  1. ;;119
  1. ;;21,"54868-4150-01 ")
  1. ;;120
  1. ;;21,"54868-4150-02 ")
  1. ;;121
  1. ;;21,"54868-4154-00 ")
  1. ;;2176
  1. ;;21,"54868-4155-00 ")
  1. ;;409
  1. ;;21,"54868-4155-01 ")
  1. ;;410
  1. ;;21,"54868-4155-02 ")
  1. ;;411
  1. ;;21,"54868-4155-03 ")
  1. ;;412
  1. ;;21,"54868-4175-00 ")
  1. ;;4814
  1. ;;21,"54868-4175-01 ")
  1. ;;4815
  1. ;;21,"54868-4175-02 ")
  1. ;;4816
  1. ;;21,"54868-4175-03 ")
  1. ;;4817
  1. ;;21,"54868-4175-04 ")
  1. ;;4818
  1. ;;21,"54868-4175-05 ")
  1. ;;4819
  1. ;;21,"54868-4191-00 ")
  1. ;;3046
  1. ;;21,"54868-4191-01 ")
  1. ;;3047
  1. ;;21,"54868-4366-00 ")
  1. ;;7020
  1. ;;21,"54868-4366-01 ")
  1. ;;7021
  1. ;;21,"54868-4367-00 ")
  1. ;;5031
  1. ;;21,"54868-4367-01 ")
  1. ;;5032
  1. ;;21,"54868-4367-02 ")
  1. ;;5033
  1. ;;21,"54868-4367-03 ")
  1. ;;5034
  1. ;;21,"54868-4468-00 ")
  1. ;;154
  1. ;;21,"54868-4488-00 ")
  1. ;;3581
  1. ;;21,"54868-4527-00 ")
  1. ;;2533
  1. ;;21,"54868-4543-00 ")
  1. ;;743
  1. ;;21,"54868-4543-01 ")
  1. ;;744
  1. ;;21,"54868-4543-02 ")
  1. ;;745
  1. ;;21,"54868-4547-00 ")
  1. ;;4068
  1. ;;21,"54868-4644-00 ")
  1. ;;2689
  1. ;;21,"54868-4644-01 ")
  1. ;;2690
  1. ;;21,"54868-4644-02 ")
  1. ;;2691
  1. ;;21,"54868-4651-00 ")
  1. ;;1377
  1. ;;21,"54868-4682-00 ")
  1. ;;6957
  1. ;;21,"54868-4682-01 ")
  1. ;;6958
  1. ;;21,"54868-4734-00 ")
  1. ;;4671
  1. ;;21,"54868-4734-01 ")
  1. ;;4672
  1. ;;21,"54868-4734-02 ")
  1. ;;4673
  1. ;;21,"54868-4734-03 ")
  1. ;;4674
  1. ;;21,"54868-4734-04 ")
  1. ;;4675
  1. ;;21,"54868-4735-01 ")
  1. ;;910