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

BGP62Y17.m

Go to the documentation of this file.
  1. BGP62Y17 ;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,"58864-0073-30 ")
  1. ;;2044
  1. ;;21,"58864-0073-40 ")
  1. ;;2045
  1. ;;21,"58864-0073-56 ")
  1. ;;2046
  1. ;;21,"58864-0149-40 ")
  1. ;;3959
  1. ;;21,"58864-0150-30 ")
  1. ;;4032
  1. ;;21,"58864-0189-10 ")
  1. ;;6255
  1. ;;21,"58864-0189-20 ")
  1. ;;6256
  1. ;;21,"58864-0189-28 ")
  1. ;;6257
  1. ;;21,"58864-0190-12 ")
  1. ;;6062
  1. ;;21,"58864-0190-20 ")
  1. ;;6063
  1. ;;21,"58864-0190-28 ")
  1. ;;6064
  1. ;;21,"58864-0190-30 ")
  1. ;;6065
  1. ;;21,"58864-0195-40 ")
  1. ;;3339
  1. ;;21,"58864-0379-40 ")
  1. ;;3689
  1. ;;21,"58864-0478-06 ")
  1. ;;5818
  1. ;;21,"58864-0478-10 ")
  1. ;;5819
  1. ;;21,"58864-0478-14 ")
  1. ;;5820
  1. ;;21,"58864-0478-20 ")
  1. ;;5821
  1. ;;21,"58864-0478-30 ")
  1. ;;5822
  1. ;;21,"58864-0607-40 ")
  1. ;;2345
  1. ;;21,"58864-0607-60 ")
  1. ;;2346
  1. ;;21,"58864-0612-28 ")
  1. ;;3867
  1. ;;21,"58864-0615-30 ")
  1. ;;3231
  1. ;;21,"58864-0621-05 ")
  1. ;;5041
  1. ;;21,"58864-0621-10 ")
  1. ;;5042
  1. ;;21,"58864-0621-30 ")
  1. ;;5043
  1. ;;21,"58864-0632-40 ")
  1. ;;3118
  1. ;;21,"58864-0637-14 ")
  1. ;;4582
  1. ;;21,"58864-0637-20 ")
  1. ;;4583
  1. ;;21,"58864-0637-30 ")
  1. ;;4584
  1. ;;21,"58864-0655-04 ")
  1. ;;2728
  1. ;;21,"58864-0655-06 ")
  1. ;;2729
  1. ;;21,"58864-0655-14 ")
  1. ;;2730
  1. ;;21,"58864-0655-30 ")
  1. ;;2731
  1. ;;21,"58864-0675-30 ")
  1. ;;362
  1. ;;21,"58864-0675-40 ")
  1. ;;363
  1. ;;21,"58864-0690-20 ")
  1. ;;5415
  1. ;;21,"58864-0767-20 ")
  1. ;;1281
  1. ;;21,"58864-0767-21 ")
  1. ;;1282
  1. ;;21,"58864-0767-30 ")
  1. ;;1283
  1. ;;21,"58864-0775-20 ")
  1. ;;4278
  1. ;;21,"58864-0791-06 ")
  1. ;;2732
  1. ;;21,"58864-0806-06 ")
  1. ;;4279
  1. ;;21,"58864-0806-14 ")
  1. ;;4280
  1. ;;21,"58864-0806-20 ")
  1. ;;4281
  1. ;;21,"58864-0833-10 ")
  1. ;;4585
  1. ;;21,"58864-0833-20 ")
  1. ;;4586
  1. ;;21,"58864-0837-20 ")
  1. ;;3011
  1. ;;21,"58864-0845-30 ")
  1. ;;3299
  1. ;;21,"58864-0845-40 ")
  1. ;;3300
  1. ;;21,"58864-0848-30 ")
  1. ;;6462
  1. ;;21,"59366-7338-01 ")
  1. ;;6537
  1. ;;21,"59366-7339-01 ")
  1. ;;6559
  1. ;;21,"59366-7340-05 ")
  1. ;;6480
  1. ;;21,"59630-0112-10 ")
  1. ;;1716
  1. ;;21,"59630-0113-05 ")
  1. ;;2047
  1. ;;21,"59630-0113-10 ")
  1. ;;2048
  1. ;;21,"59630-0115-05 ")
  1. ;;2130
  1. ;;21,"59630-0142-03 ")
  1. ;;719
  1. ;;21,"59630-0821-12 ")
  1. ;;7115
  1. ;;21,"59630-0821-60 ")
  1. ;;7116
  1. ;;21,"59630-0821-90 ")
  1. ;;7117
  1. ;;21,"59762-0016-01 ")
  1. ;;2514
  1. ;;21,"59762-0278-02 ")
  1. ;;4828
  1. ;;21,"59762-0279-02 ")
  1. ;;4944
  1. ;;21,"59762-0280-03 ")
  1. ;;4991
  1. ;;21,"59762-1020-01 ")
  1. ;;269
  1. ;;21,"59762-1020-03 ")
  1. ;;270
  1. ;;21,"59762-1021-01 ")
  1. ;;649
  1. ;;21,"59762-1021-07 ")
  1. ;;650
  1. ;;21,"59762-1022-02 ")
  1. ;;158
  1. ;;21,"59762-1022-04 ")
  1. ;;159
  1. ;;21,"59762-1022-07 ")
  1. ;;160
  1. ;;21,"59762-1023-04 ")
  1. ;;454
  1. ;;21,"59762-1023-05 ")
  1. ;;455
  1. ;;21,"59762-1023-06 ")
  1. ;;456
  1. ;;21,"59762-1050-02 ")
  1. ;;769
  1. ;;21,"59762-1050-05 ")
  1. ;;770
  1. ;;21,"59762-1081-01 ")
  1. ;;5416
  1. ;;21,"59762-1081-02 ")
  1. ;;5417
  1. ;;21,"59762-1083-01 ")
  1. ;;5488
  1. ;;21,"59762-1083-02 ")
  1. ;;5489
  1. ;;21,"59762-1534-01 ")
  1. ;;3690
  1. ;;21,"59762-1534-02 ")
  1. ;;3691
  1. ;;21,"59762-1537-01 ")
  1. ;;3868
  1. ;;21,"59762-1537-02 ")
  1. ;;3869
  1. ;;21,"59762-1537-03 ")
  1. ;;3870
  1. ;;21,"59762-2000-01 ")
  1. ;;1500
  1. ;;21,"59762-2000-04 ")
  1. ;;1501
  1. ;;21,"59762-2180-01 ")
  1. ;;7025
  1. ;;21,"59762-2220-02 ")
  1. ;;5277
  1. ;;21,"59762-2221-01 ")
  1. ;;5338
  1. ;;21,"59762-2221-02 ")
  1. ;;5339
  1. ;;21,"59762-3020-01 ")
  1. ;;5255
  1. ;;21,"59762-3020-02 ")
  1. ;;5256
  1. ;;21,"59762-3021-01 ")
  1. ;;5312
  1. ;;21,"59762-3021-02 ")
  1. ;;5313
  1. ;;21,"59762-3051-01 ")
  1. ;;2550
  1. ;;21,"59762-3051-02 ")
  1. ;;2551
  1. ;;21,"59762-3060-01 ")
  1. ;;2733
  1. ;;21,"59762-3060-02 ")
  1. ;;2734
  1. ;;21,"59762-3060-03 ")
  1. ;;2735
  1. ;;21,"59762-3070-01 ")
  1. ;;2831
  1. ;;21,"59762-3070-02 ")
  1. ;;2832
  1. ;;21,"59762-3080-01 ")
  1. ;;2862
  1. ;;21,"59762-3110-01 ")
  1. ;;2567
  1. ;;21,"59762-3120-01 ")
  1. ;;2620
  1. ;;21,"59762-3130-01 ")
  1. ;;2621
  1. ;;21,"59762-3140-01 ")
  1. ;;2622
  1. ;;21,"59762-3328-01 ")
  1. ;;2347
  1. ;;21,"59762-3690-01 ")
  1. ;;6066
  1. ;;21,"59762-3690-02 ")
  1. ;;6067
  1. ;;21,"59762-4080-01 ")
  1. ;;5601
  1. ;;21,"59762-4080-02 ")
  1. ;;5602
  1. ;;21,"59762-4081-01 ")
  1. ;;5823
  1. ;;21,"59762-4081-02 ")
  1. ;;5824
  1. ;;21,"59762-5010-01 ")
  1. ;;2484
  1. ;;21,"59762-5010-02 ")
  1. ;;2485
  1. ;;21,"59772-0174-20 ")
  1. ;;5825
  1. ;;21,"59772-0802-02 ")
  1. ;;6258
  1. ;;21,"60346-0364-03 ")
  1. ;;1147
  1. ;;21,"60346-0364-09 ")
  1. ;;1148
  1. ;;21,"60346-0364-15 ")
  1. ;;1149
  1. ;;21,"60346-0364-21 ")
  1. ;;1150
  1. ;;21,"60346-0364-44 ")
  1. ;;1151
  1. ;;21,"60346-0433-06 ")
  1. ;;4282
  1. ;;21,"60346-0433-10 ")
  1. ;;4283
  1. ;;21,"60346-0433-14 ")
  1. ;;4284
  1. ;;21,"60346-0433-15 ")
  1. ;;4285
  1. ;;21,"60346-0433-20 ")
  1. ;;4286
  1. ;;21,"60346-0433-44 ")
  1. ;;4287
  1. ;;21,"60346-0433-99 ")
  1. ;;4288
  1. ;;21,"60346-0649-08 ")
  1. ;;1717
  1. ;;21,"60346-0655-06 ")
  1. ;;271
  1. ;;21,"60346-0655-10 ")
  1. ;;272
  1. ;;21,"60346-0655-15 ")
  1. ;;273
  1. ;;21,"60429-0021-01 ")
  1. ;;274
  1. ;;21,"60429-0021-05 ")
  1. ;;275
  1. ;;21,"60429-0022-01 ")
  1. ;;651
  1. ;;21,"60429-0022-05 ")
  1. ;;652
  1. ;;21,"60429-0023-01 ")
  1. ;;809
  1. ;;21,"60429-0023-05 ")
  1. ;;810
  1. ;;21,"60429-0024-01 ")
  1. ;;875
  1. ;;21,"60429-0024-05 ")
  1. ;;876
  1. ;;21,"60429-0036-05 ")
  1. ;;1718
  1. ;;21,"60429-0036-40 ")
  1. ;;1719
  1. ;;21,"60429-0037-40 ")
  1. ;;2049
  1. ;;21,"60429-0069-92 ")
  1. ;;6259
  1. ;;21,"60429-0070-40 ")
  1. ;;3152
  1. ;;21,"60429-0147-01 ")
  1. ;;3692
  1. ;;21,"60429-0147-10 ")
  1. ;;3693
  1. ;;21,"60429-0148-01 ")
  1. ;;3871
  1. ;;21,"60429-0148-05 ")
  1. ;;3872
  1. ;;21,"60429-0742-01 ")
  1. ;;4289
  1. ;;21,"60429-0743-01 ")
  1. ;;4587
  1. ;;21,"60429-0743-05 ")
  1. ;;4588
  1. ;;21,"60429-0743-20 ")
  1. ;;4589
  1. ;;21,"60429-0744-01 ")
  1. ;;4752
  1. ;;21,"60432-0065-00 ")
  1. ;;1000
  1. ;;21,"60432-0065-47 ")
  1. ;;1001
  1. ;;21,"60432-0065-75 ")
  1. ;;1002
  1. ;;21,"60432-0070-46 ")
  1. ;;1202
  1. ;;21,"60432-0070-48 ")
  1. ;;1203
  1. ;;21,"60432-0070-75 ")
  1. ;;1204
  1. ;;21,"60505-0679-05 ")
  1. ;;6830
  1. ;;21,"60505-0680-02 ")
  1. ;;1320
  1. ;;21,"60505-0748-04 ")
  1. ;;1378
  1. ;;21,"60505-0748-05 ")
  1. ;;1379
  1. ;;21,"60505-0749-04 ")
  1. ;;1321
  1. ;;21,"60505-0749-05 ")
  1. ;;1322
  1. ;;21,"60505-0750-00 ")
  1. ;;6886
  1. ;;21,"60505-0750-04 ")
  1. ;;6887
  1. ;;21,"60505-0751-00 ")
  1. ;;6927
  1. ;;21,"60505-0751-04 ")
  1. ;;6928
  1. ;;21,"60505-0752-00 ")
  1. ;;6809
  1. ;;21,"60505-0752-04 ")
  1. ;;6810
  1. ;;21,"60505-0753-00 ")
  1. ;;6852
  1. ;;21,"60505-0753-04 ")
  1. ;;6853
  1. ;;21,"60505-0769-00 ")
  1. ;;1348
  1. ;;21,"60505-1308-01 ")
  1. ;;4290
  1. ;;21,"60505-1309-01 ")
  1. ;;4590
  1. ;;21,"60505-1310-01 ")
  1. ;;4753
  1. ;;21,"60505-1310-04 ")
  1. ;;4754
  1. ;;21,"60505-2532-01 ")
  1. ;;5278
  1. ;;21,"60505-2533-01 ")
  1. ;;5340
  1. ;;21,"60505-2533-05 ")
  1. ;;5341
  1. ;;21,"60505-2539-03 ")
  1. ;;974
  1. ;;21,"60505-2540-02 ")
  1. ;;1152
  1. ;;21,"60505-2540-03 ")
  1. ;;1153
  1. ;;21,"60505-2540-05 ")
  1. ;;1154
  1. ;;21,"60505-2541-02 ")
  1. ;;1284
  1. ;;21,"60505-2541-03 ")
  1. ;;1285
  1. ;;21,"60505-2541-05 ")
  1. ;;1286
  1. ;;21,"60505-2573-02 ")
  1. ;;5257
  1. ;;21,"60505-2573-05 ")
  1. ;;5258
  1. ;;21,"60505-2573-07 ")
  1. ;;5259
  1. ;;21,"60505-2574-02 ")
  1. ;;5314
  1. ;;21,"60505-2574-05 ")
  1. ;;5315
  1. ;;21,"60505-2574-07 ")
  1. ;;5316
  1. ;;21,"60505-2581-00 ")
  1. ;;2736
  1. ;;21,"60505-2581-02 ")
  1. ;;2737
  1. ;;21,"60505-2581-03 ")
  1. ;;2738
  1. ;;21,"60505-2581-05 ")
  1. ;;2739
  1. ;;21,"60505-2582-00 ")
  1. ;;2833
  1. ;;21,"60505-2582-03 ")
  1. ;;2834
  1. ;;21,"60505-2582-05 ")
  1. ;;2835
  1. ;;21,"60505-2583-03 ")
  1. ;;2863
  1. ;;21,"60505-2615-06 ")
  1. ;;3012
  1. ;;21,"60505-2616-06 ")
  1. ;;2906
  1. ;;21,"60505-6076-04 ")
  1. ;;2535
  1. ;;21,"60505-6093-05 ")
  1. ;;1323
  1. ;;21,"60505-6094-00 ")
  1. ;;1349
  1. ;;21,"60505-6102-04 ")
  1. ;;6854
  1. ;;21,"60505-6103-06 ")
  1. ;;6831
  1. ;;21,"60505-6104-04 ")
  1. ;;6888
  1. ;;21,"60687-0118-11 ")
  1. ;;6068
  1. ;;21,"60687-0118-21 ")
  1. ;;6069
  1. ;;21,"60760-0069-20 ")
  1. ;;5826
  1. ;;21,"60760-0261-20 ")
  1. ;;3013
  1. ;;21,"60760-0337-08 ")
  1. ;;2348
  1. ;;21,"60760-0337-28 ")
  1. ;;2349
  1. ;;21,"60760-0337-60 ")
  1. ;;2350
  1. ;;21,"60760-0513-10 ")
  1. ;;4591
  1. ;;21,"60760-0562-20 ")
  1. ;;6070
  1. ;;21,"60760-0693-05 ")
  1. ;;2486
  1. ;;21,"60760-0815-10 ")
  1. ;;4592
  1. ;;21,"61392-0714-32 ")
  1. ;;2351
  1. ;;21,"61392-0714-45 ")
  1. ;;2352
  1. ;;21,"61392-0714-54 ")
  1. ;;2353
  1. ;;21,"61392-0714-91 ")
  1. ;;2354
  1. ;;21,"61392-0731-30 ")
  1. ;;6329
  1. ;;21,"61392-0731-31 ")
  1. ;;6330
  1. ;;21,"61392-0731-32 ")
  1. ;;6331
  1. ;;21,"61392-0731-39 ")
  1. ;;6332
  1. ;;21,"61392-0731-45 ")
  1. ;;6333
  1. ;;21,"61392-0731-51 ")
  1. ;;6334
  1. ;;21,"61392-0731-54 ")
  1. ;;6335
  1. ;;21,"61392-0731-60 ")
  1. ;;6336
  1. ;;21,"61392-0731-90 ")
  1. ;;6337
  1. ;;21,"61392-0731-91 ")
  1. ;;6338
  1. ;;21,"61392-0732-30 ")
  1. ;;6071
  1. ;;21,"61392-0732-31 ")
  1. ;;6072
  1. ;;21,"61392-0732-32 ")
  1. ;;6073
  1. ;;21,"61392-0732-39 ")
  1. ;;6074
  1. ;;21,"61392-0732-45 ")
  1. ;;6075
  1. ;;21,"61392-0732-51 ")
  1. ;;6076
  1. ;;21,"61392-0732-54 ")
  1. ;;6077
  1. ;;21,"61392-0732-60 ")
  1. ;;6078
  1. ;;21,"61392-0732-90 ")
  1. ;;6079
  1. ;;21,"61392-0732-91 ")
  1. ;;6080
  1. ;;21,"61392-0782-30 ")
  1. ;;5603
  1. ;;21,"61392-0782-31 ")
  1. ;;5604
  1. ;;21,"61392-0782-32 ")
  1. ;;5605
  1. ;;21,"61392-0782-39 ")
  1. ;;5606
  1. ;;21,"61392-0782-45 ")
  1. ;;5607
  1. ;;21,"61392-0782-51 ")
  1. ;;5608
  1. ;;21,"61392-0782-54 ")
  1. ;;5609
  1. ;;21,"61392-0782-60 ")
  1. ;;5610
  1. ;;21,"61392-0782-90 ")
  1. ;;5611
  1. ;;21,"61392-0782-91 ")
  1. ;;5612
  1. ;;21,"61392-0783-30 ")
  1. ;;5827
  1. ;;21,"61392-0783-31 ")
  1. ;;5828
  1. ;;21,"61392-0783-32 ")
  1. ;;5829
  1. ;;21,"61392-0783-39 ")
  1. ;;5830
  1. ;;21,"61392-0783-45 ")
  1. ;;5831
  1. ;;21,"61392-0783-51 ")
  1. ;;5832
  1. ;;21,"61392-0783-54 ")
  1. ;;5833
  1. ;;21,"61392-0783-60 ")
  1. ;;5834
  1. ;;21,"61392-0783-90 ")
  1. ;;5835
  1. ;;21,"61392-0783-91 ")
  1. ;;5836
  1. ;;21,"61442-0161-01 ")
  1. ;;1720
  1. ;;21,"61442-0161-05 ")
  1. ;;1721
  1. ;;21,"61442-0162-01 ")
  1. ;;2050
  1. ;;21,"61442-0162-05 ")
  1. ;;2051
  1. ;;21,"61442-0171-30 ")
  1. ;;5153
  1. ;;21,"61442-0172-30 ")
  1. ;;5223
  1. ;;21,"61442-0201-01 ")
  1. ;;1572
  1. ;;21,"61442-0201-02 ")
  1. ;;1573
  1. ;;21,"61442-0202-01 ")
  1. ;;1798
  1. ;;21,"61442-0202-02 ")
  1. ;;1799
  1. ;;21,"61442-0222-01 ")
  1. ;;4291
  1. ;;21,"61442-0223-01 ")
  1. ;;4593
  1. ;;21,"61442-0223-05 ")
  1. ;;4594
  1. ;;21,"61553-0012-72 ")
  1. ;;1331
  1. ;;21,"61553-0014-73 ")
  1. ;;1359
  1. ;;21,"61553-0045-41 ")
  1. ;;1391
  1. ;;21,"61553-0048-72 ")
  1. ;;1382
  1. ;;21,"61553-0211-48 ")
  1. ;;1356
  1. ;;21,"61553-0216-48 ")
  1. ;;1388
  1. ;;21,"61570-0050-11 ")
  1. ;;5565
  1. ;;21,"61570-0052-01 ")
  1. ;;5613
  1. ;;21,"61570-0053-01 ")
  1. ;;5837
  1. ;;21,"61570-0053-05 ")
  1. ;;5838
  1. ;;21,"61570-0053-20 ")
  1. ;;5839
  1. ;;21,"61570-0054-10 ")
  1. ;;5510
  1. ;;21,"61570-0055-10 ")
  1. ;;5511
  1. ;;21,"61570-0056-10 ")
  1. ;;5512
  1. ;;21,"61748-0111-14 ")
  1. ;;6081
  1. ;;21,"61971-0115-01 ")
  1. ;;5614
  1. ;;21,"61971-0115-05 ")
  1. ;;5615
  1. ;;21,"61971-0120-01 ")
  1. ;;5840
  1. ;;21,"61971-0120-05 ")
  1. ;;5841
  1. ;;21,"62037-0777-60 ")
  1. ;;3049
  1. ;;21,"62436-0728-01 ")
  1. ;;6407
  1. ;;21,"62436-0729-03 ")
  1. ;;6380
  1. ;;21,"62436-0729-04 ")
  1. ;;6381
  1. ;;21,"62436-0730-01 ")
  1. ;;6421
  1. ;;21,"62436-0730-05 ")
  1. ;;6422
  1. ;;21,"62584-0235-01 ")
  1. ;;1722
  1. ;;21,"62584-0235-11 ")
  1. ;;1723
  1. ;;21,"62584-0236-01 ")
  1. ;;2052
  1. ;;21,"62584-0236-11 ")
  1. ;;2053
  1. ;;21,"62584-0237-01 ")
  1. ;;276
  1. ;;21,"62584-0237-11 ")
  1. ;;277
  1. ;;21,"62584-0238-01 ")
  1. ;;653
  1. ;;21,"62584-0238-11 ")
  1. ;;654
  1. ;;21,"62584-0338-01 ")
  1. ;;2355
  1. ;;21,"62584-0338-11 ")
  1. ;;2356
  1. ;;21,"62584-0693-01 ")
  1. ;;6260
  1. ;;21,"62584-0693-11 ")
  1. ;;6261
  1. ;;21,"62584-0693-21 ")
  1. ;;6262
  1. ;;21,"62584-0857-01 ")
  1. ;;5842
  1. ;;21,"62584-0857-11 ")
  1. ;;5843
  1. ;;21,"62756-0293-13 ")
  1. ;;1724
  1. ;;21,"62756-0293-88 ")
  1. ;;1725
  1. ;;21,"62756-0294-13 ")
  1. ;;2054
  1. ;;21,"62756-0294-88 ")
  1. ;;2055
  1. ;;21,"62756-0512-44 ")
  1. ;;2536
  1. ;;21,"63304-0131-01 ")
  1. ;;6423
  1. ;;21,"63304-0132-04 ")
  1. ;;6382
  1. ;;21,"63304-0132-50 ")
  1. ;;6383
  1. ;;21,"63304-0148-01 ")
  1. ;;5279
  1. ;;21,"63304-0149-01 ")
  1. ;;5342
  1. ;;21,"63304-0149-50 ")
  1. ;;5343