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