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

BGP2TF3.m

Go to the documentation of this file.
BGP2TF3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"57664-0397-53 ")
 ;;293
 ;;21,"57664-0397-58 ")
 ;;294
 ;;21,"57664-0397-88 ")
 ;;295
 ;;21,"57664-0397-99 ")
 ;;296
 ;;21,"57664-0435-13 ")
 ;;613
 ;;21,"57664-0435-18 ")
 ;;614
 ;;21,"57664-0435-51 ")
 ;;615
 ;;21,"57664-0435-53 ")
 ;;616
 ;;21,"57664-0435-58 ")
 ;;617
 ;;21,"57664-0435-88 ")
 ;;618
 ;;21,"57664-0435-99 ")
 ;;619
 ;;21,"57664-0474-13 ")
 ;;45
 ;;21,"57664-0474-18 ")
 ;;46
 ;;21,"57664-0474-51 ")
 ;;47
 ;;21,"57664-0474-53 ")
 ;;48
 ;;21,"57664-0474-58 ")
 ;;49
 ;;21,"57664-0474-88 ")
 ;;50
 ;;21,"57664-0474-99 ")
 ;;51
 ;;21,"57664-0724-88 ")
 ;;995
 ;;21,"57664-0725-88 ")
 ;;978
 ;;21,"57664-0727-88 ")
 ;;965
 ;;21,"57866-0248-01 ")
 ;;310
 ;;21,"57866-7991-01 ")
 ;;1104
 ;;21,"57866-9054-01 ")
 ;;52
 ;;21,"57866-9054-02 ")
 ;;53
 ;;21,"57866-9054-03 ")
 ;;54
 ;;21,"57866-9054-04 ")
 ;;55
 ;;21,"57866-9054-05 ")
 ;;56
 ;;21,"57866-9055-01 ")
 ;;608
 ;;21,"57866-9055-02 ")
 ;;609
 ;;21,"57866-9055-03 ")
 ;;610
 ;;21,"57866-9055-04 ")
 ;;611
 ;;21,"57866-9055-05 ")
 ;;612
 ;;21,"57866-9056-01 ")
 ;;311
 ;;21,"57866-9056-02 ")
 ;;312
 ;;21,"57866-9056-03 ")
 ;;313
 ;;21,"57866-9056-04 ")
 ;;314
 ;;21,"57866-9056-05 ")
 ;;315
 ;;21,"57866-9056-06 ")
 ;;316
 ;;21,"57866-9059-01 ")
 ;;251
 ;;21,"58016-0058-00 ")
 ;;1032
 ;;21,"58016-0058-30 ")
 ;;1033
 ;;21,"58016-0058-60 ")
 ;;1034
 ;;21,"58016-0058-90 ")
 ;;1035
 ;;21,"58016-0213-00 ")
 ;;252
 ;;21,"58016-0213-10 ")
 ;;253
 ;;21,"58016-0213-30 ")
 ;;254
 ;;21,"58016-0213-60 ")
 ;;255
 ;;21,"58016-0411-00 ")
 ;;1160
 ;;21,"58016-0411-02 ")
 ;;1161
 ;;21,"58016-0411-30 ")
 ;;1162
 ;;21,"58016-0411-60 ")
 ;;1163
 ;;21,"58016-0411-90 ")
 ;;1164
 ;;21,"58016-0457-00 ")
 ;;576
 ;;21,"58016-0457-10 ")
 ;;577
 ;;21,"58016-0457-30 ")
 ;;578
 ;;21,"58016-0457-60 ")
 ;;579
 ;;21,"58016-0466-00 ")
 ;;14
 ;;21,"58016-0466-30 ")
 ;;15
 ;;21,"58016-0466-60 ")
 ;;16
 ;;21,"58016-0466-90 ")
 ;;17
 ;;21,"58016-0536-00 ")
 ;;580
 ;;21,"58016-0536-30 ")
 ;;581
 ;;21,"58016-0536-60 ")
 ;;582
 ;;21,"58016-0536-90 ")
 ;;583
 ;;21,"58016-0553-00 ")
 ;;10
 ;;21,"58016-0553-10 ")
 ;;11
 ;;21,"58016-0553-30 ")
 ;;12
 ;;21,"58016-0553-60 ")
 ;;13
 ;;21,"58016-0772-00 ")
 ;;275
 ;;21,"58016-0772-30 ")
 ;;276
 ;;21,"58016-0772-60 ")
 ;;277
 ;;21,"58016-0772-90 ")
 ;;278
 ;;21,"58016-0883-00 ")
 ;;864
 ;;21,"58016-0883-30 ")
 ;;865
 ;;21,"58016-0883-60 ")
 ;;866
 ;;21,"58016-0883-90 ")
 ;;867
 ;;21,"58864-0015-28 ")
 ;;279
 ;;21,"58864-0015-30 ")
 ;;280
 ;;21,"58864-0015-60 ")
 ;;281
 ;;21,"58864-0015-90 ")
 ;;282
 ;;21,"58864-0507-30 ")
 ;;768
 ;;21,"58864-0693-30 ")
 ;;21
 ;;21,"58864-0693-60 ")
 ;;22
 ;;21,"58864-0711-30 ")
 ;;1037
 ;;21,"58864-0789-30 ")
 ;;587
 ;;21,"58864-0851-30 ")
 ;;863
 ;;21,"58864-0952-30 ")
 ;;1069
 ;;21,"58864-0953-30 ")
 ;;1159
 ;;21,"59630-0574-60 ")
 ;;932
 ;;21,"59630-0575-60 ")
 ;;927
 ;;21,"59762-2330-07 ")
 ;;1003
 ;;21,"59762-2331-06 ")
 ;;1057
 ;;21,"59762-2331-08 ")
 ;;1058
 ;;21,"59762-2332-06 ")
 ;;1110
 ;;21,"59762-2332-08 ")
 ;;1111
 ;;21,"59762-4320-00 ")
 ;;283
 ;;21,"59762-4320-02 ")
 ;;284
 ;;21,"59762-4320-06 ")
 ;;285
 ;;21,"59762-4321-00 ")
 ;;584
 ;;21,"59762-4321-02 ")
 ;;585
 ;;21,"59762-4321-06 ")
 ;;586
 ;;21,"59762-4322-00 ")
 ;;18
 ;;21,"59762-4322-02 ")
 ;;19
 ;;21,"59762-4322-06 ")
 ;;20
 ;;21,"60429-0722-18 ")
 ;;35
 ;;21,"60429-0722-60 ")
 ;;36
 ;;21,"60429-0723-12 ")
 ;;268
 ;;21,"60429-0723-18 ")
 ;;269
 ;;21,"60429-0723-60 ")
 ;;270
 ;;21,"60429-0724-18 ")
 ;;592
 ;;21,"60429-0724-60 ")
 ;;593
 ;;21,"60429-0725-05 ")
 ;;876
 ;;21,"60429-0725-18 ")
 ;;877
 ;;21,"60429-0725-60 ")
 ;;878
 ;;21,"60429-0725-90 ")
 ;;879
 ;;21,"60505-0190-00 ")
 ;;271
 ;;21,"60505-0190-01 ")
 ;;272
 ;;21,"60505-0190-04 ")
 ;;273
 ;;21,"60505-0190-08 ")
 ;;274
 ;;21,"60505-0191-00 ")
 ;;588
 ;;21,"60505-0191-01 ")
 ;;589
 ;;21,"60505-0191-04 ")
 ;;590
 ;;21,"60505-0191-08 ")
 ;;591
 ;;21,"60505-0192-00 ")
 ;;37
 ;;21,"60505-0192-01 ")
 ;;38
 ;;21,"60505-0192-04 ")
 ;;39
 ;;21,"60505-0192-08 ")
 ;;40
 ;;21,"60505-0260-01 ")
 ;;870
 ;;21,"60505-0260-02 ")
 ;;871
 ;;21,"60505-0260-07 ")
 ;;872
 ;;21,"60505-1329-01 ")
 ;;919
 ;;21,"60760-0042-60 ")
 ;;873
 ;;21,"62022-0574-60 ")
 ;;931
 ;;21,"62022-0575-60 ")
 ;;928
 ;;21,"62037-0571-01 ")
 ;;874
 ;;21,"62037-0571-10 ")
 ;;875
 ;;21,"62037-0577-01 ")
 ;;917
 ;;21,"62037-0577-10 ")
 ;;918
 ;;21,"62037-0674-01 ")
 ;;257
 ;;21,"62037-0674-10 ")
 ;;258
 ;;21,"62037-0675-01 ")
 ;;599
 ;;21,"62037-0675-10 ")
 ;;600
 ;;21,"62037-0676-01 ")
 ;;23
 ;;21,"62037-0676-10 ")
 ;;24
 ;;21,"62584-0182-08 ")
 ;;259
 ;;21,"62584-0259-01 ")
 ;;260
 ;;21,"62584-0259-11 ")
 ;;261
 ;;21,"62584-0259-80 ")
 ;;262
 ;;21,"62584-0259-85 ")
 ;;263
 ;;21,"62584-0332-01 ")
 ;;597
 ;;21,"62584-0332-11 ")
 ;;598
 ;;21,"62584-0452-01 ")
 ;;25
 ;;21,"62584-0452-11 ")
 ;;26
 ;;21,"62584-0452-80 ")
 ;;27
 ;;21,"62584-0452-85 ")
 ;;28
 ;;21,"62682-5005-06 ")
 ;;256
 ;;21,"62756-0142-01 ")
 ;;868
 ;;21,"62756-0142-02 ")
 ;;869
 ;;21,"62756-0143-01 ")
 ;;920
 ;;21,"63304-0206-01 ")
 ;;3
 ;;21,"63304-0206-02 ")
 ;;4
 ;;21,"63304-0767-01 ")
 ;;921
 ;;21,"63304-0860-01 ")
 ;;840
 ;;21,"63304-0860-05 ")
 ;;841
 ;;21,"63304-0860-30 ")
 ;;842
 ;;21,"63629-1392-01 ")
 ;;1059
 ;;21,"63629-1392-02 ")
 ;;1060
 ;;21,"63629-1392-03 ")
 ;;1061
 ;;21,"63629-1395-01 ")
 ;;264
 ;;21,"63629-1395-02 ")
 ;;265
 ;;21,"63629-1395-03 ")
 ;;266
 ;;21,"63629-1396-01 ")
 ;;595
 ;;21,"63629-1396-02 ")
 ;;596
 ;;21,"63629-1397-01 ")
 ;;29
 ;;21,"63629-1397-02 ")
 ;;30
 ;;21,"63629-1397-03 ")
 ;;31
 ;;21,"63629-1397-04 ")
 ;;32
 ;;21,"63629-1397-05 ")
 ;;33
 ;;21,"63629-2793-01 ")
 ;;1116
 ;;21,"63629-2793-03 ")
 ;;1117
 ;;21,"63629-2793-04 ")
 ;;1118
 ;;21,"63629-2793-05 ")
 ;;1119
 ;;21,"63629-2883-01 ")
 ;;843
 ;;21,"63629-2883-02 ")
 ;;844
 ;;21,"63629-2883-03 ")
 ;;845
 ;;21,"63629-3998-01 ")
 ;;1006
 ;;21,"63739-0299-10 ")
 ;;267
 ;;21,"63739-0300-10 ")
 ;;594
 ;;21,"63739-0301-10 ")
 ;;34
 ;;21,"63874-0501-01 ")
 ;;319
 ;;21,"63874-0501-04 ")
 ;;320
 ;;21,"63874-0501-10 ")
 ;;321
 ;;21,"63874-0501-14 ")
 ;;322
 ;;21,"63874-0501-20 ")
 ;;323
 ;;21,"63874-0501-24 ")
 ;;324
 ;;21,"63874-0501-28 ")
 ;;325
 ;;21,"63874-0501-30 ")
 ;;326
 ;;21,"63874-0501-60 ")
 ;;327
 ;;21,"63874-0501-90 ")
 ;;328
 ;;21,"63874-0635-01 ")
 ;;666
 ;;21,"63874-0635-10 ")
 ;;667
 ;;21,"63874-0635-20 ")
 ;;668
 ;;21,"63874-0635-28 ")
 ;;669
 ;;21,"63874-0635-30 ")
 ;;670
 ;;21,"63874-0635-60 ")
 ;;671
 ;;21,"63874-0635-90 ")
 ;;672
 ;;21,"63874-0974-01 ")
 ;;69
 ;;21,"63874-0974-30 ")
 ;;70
 ;;21,"63874-0974-60 ")
 ;;71
 ;;21,"64679-0528-04 ")
 ;;317
 ;;21,"64679-0528-05 ")
 ;;318
 ;;21,"64679-0529-04 ")
 ;;661
 ;;21,"64679-0529-05 ")
 ;;662
 ;;21,"64679-0530-04 ")
 ;;72
 ;;21,"64679-0530-05 ")
 ;;73
 ;;21,"64764-0155-18 ")
 ;;1176
 ;;21,"64764-0155-60 ")
 ;;1177
 ;;21,"64764-0158-18 ")
 ;;1178
 ;;21,"64764-0158-60 ")
 ;;1179
 ;;21,"64764-0310-30 ")
 ;;1185
 ;;21,"64764-0510-30 ")
 ;;1184
 ;;21,"65162-0174-10 ")
 ;;663
 ;;21,"65162-0174-11 ")
 ;;664
 ;;21,"65162-0174-50 ")
 ;;665
 ;;21,"65162-0175-10 ")
 ;;336
 ;;21,"65162-0175-11 ")
 ;;337
 ;;21,"65162-0175-50 ")
 ;;338
 ;;21,"65162-0177-10 ")
 ;;839
 ;;21,"65162-0177-11 ")
 ;;84
 ;;21,"65162-0177-50 ")
 ;;838
 ;;21,"65162-0179-10 ")
 ;;923
 ;;21,"65243-0239-09 ")
 ;;654
 ;;21,"65243-0239-18 ")
 ;;655
 ;;21,"65243-0239-27 ")
 ;;656
 ;;21,"65243-0288-06 ")
 ;;339
 ;;21,"65243-0288-09 ")
 ;;340
 ;;21,"65243-0288-12 ")
 ;;341
 ;;21,"65243-0288-18 ")
 ;;342
 ;;21,"65243-0289-06 ")
 ;;80
 ;;21,"65243-0289-09 ")
 ;;81
 ;;21,"65243-0289-12 ")
 ;;82
 ;;21,"65243-0289-18 ")
 ;;83
 ;;21,"65243-0371-06 ")
 ;;78
 ;;21,"65243-0371-09 ")
 ;;79
 ;;21,"65243-0372-06 ")
 ;;333
 ;;21,"65243-0372-09 ")
 ;;334
 ;;21,"65243-0372-18 ")
 ;;335
 ;;21,"65243-0373-09 ")
 ;;657
 ;;21,"65862-0008-01 ")
 ;;329
 ;;21,"65862-0008-05 ")
 ;;330
 ;;21,"65862-0008-90 ")
 ;;331
 ;;21,"65862-0008-99 ")
 ;;332
 ;;21,"65862-0009-01 ")
 ;;658
 ;;21,"65862-0009-05 ")
 ;;659
 ;;21,"65862-0009-90 ")
 ;;660
 ;;21,"65862-0010-01 ")
 ;;74
 ;;21,"65862-0010-05 ")
 ;;75
 ;;21,"65862-0010-90 ")
 ;;76
 ;;21,"65862-0010-99 ")
 ;;77
 ;;21,"65862-0080-01 ")
 ;;1004
 ;;21,"65862-0080-05 ")
 ;;1005
 ;;21,"65862-0081-01 ")
 ;;1055
 ;;21,"65862-0081-05 ")
 ;;1056
 ;;21,"65862-0082-01 ")
 ;;1114
 ;;21,"65862-0082-05 ")
 ;;1115
 ;;21,"66116-0233-30 ")
 ;;1040
 ;;21,"66116-0282-60 ")
 ;;350
 ;;21,"66116-0293-30 ")
 ;;89
 ;;21,"66116-0454-30 ")
 ;;351
 ;;21,"66116-0695-60 ")
 ;;352
 ;;21,"66267-0493-14 ")
 ;;343
 ;;21,"66267-0493-30 ")
 ;;344
 ;;21,"66267-0493-60 ")
 ;;345
 ;;21,"66267-0493-90 ")
 ;;346
 ;;21,"66267-0493-91 ")
 ;;347
 ;;21,"66267-0493-92 ")
 ;;348
 ;;21,"66267-0493-93 ")
 ;;349
 ;;21,"66336-0270-30 ")
 ;;835
 ;;21,"66336-0270-60 ")
 ;;836
 ;;21,"66336-0270-90 ")
 ;;837
 ;;21,"66336-0292-60 ")
 ;;769
 ;;21,"66336-0319-30 ")
 ;;1103
 ;;21,"66336-0358-30 ")
 ;;85
 ;;21,"66336-0358-60 ")
 ;;86
 ;;21,"66336-0358-62 ")
 ;;87
 ;;21,"66336-0358-90 ")
 ;;88
 ;;21,"66336-0784-30 ")
 ;;1158
 ;;21,"66336-0784-60 ")
 ;;1112
 ;;21,"66336-0784-90 ")
 ;;1113
 ;;21,"66336-0850-30 ")
 ;;1052
 ;;21,"66336-0850-60 ")
 ;;1053
 ;;21,"66336-0850-90 ")
 ;;1054
 ;;21,"66336-0883-30 ")
 ;;652
 ;;21,"66336-0883-60 ")
 ;;653
 ;;21,"66336-0884-14 ")
 ;;377
 ;;21,"66336-0884-28 ")
 ;;378
 ;;21,"66336-0884-30 ")
 ;;379
 ;;21,"66336-0884-60 ")
 ;;380
 ;;21,"66336-0884-62 ")
 ;;381
 ;;21,"66336-0884-90 ")
 ;;382
 ;;21,"66689-0011-60 ")
 ;;376
 ;;21,"67544-0047-30 ")
 ;;366
 ;;21,"67544-0047-53 ")
 ;;367
 ;;21,"67544-0047-60 ")
 ;;368
 ;;21,"67544-0047-70 ")
 ;;369
 ;;21,"67544-0047-75 ")
 ;;370
 ;;21,"67544-0047-80 ")
 ;;371
 ;;21,"67544-0047-90 ")
 ;;372
 ;;21,"67544-0047-92 ")
 ;;373
 ;;21,"67544-0047-94 ")
 ;;374
 ;;21,"67544-0047-96 ")
 ;;375
 ;;21,"67544-0107-53 ")
 ;;637
 ;;21,"67544-0107-60 ")
 ;;638
 ;;21,"67544-0107-80 ")
 ;;639
 ;;21,"67544-0107-92 ")
 ;;640
 ;;21,"67544-0163-30 ")
 ;;101
 ;;21,"67544-0163-45 ")
 ;;102
 ;;21,"67544-0163-53 ")
 ;;103
 ;;21,"67544-0163-60 ")
 ;;104
 ;;21,"67544-0163-80 ")
 ;;105
 ;;21,"67544-0296-70 ")
 ;;1102
 ;;21,"67544-0364-70 ")
 ;;1154
 ;;21,"67544-0417-70 ")
 ;;1155
 ;;21,"67544-0421-60 ")
 ;;634
 ;;21,"67544-0421-80 ")
 ;;635
 ;;21,"67544-0421-92 ")
 ;;636
 ;;21,"67544-0422-30 ")
 ;;849
 ;;21,"67544-0422-53 ")
 ;;850
 ;;21,"67544-0422-60 ")
 ;;851
 ;;21,"67544-0422-70 ")
 ;;852
 ;;21,"67544-0422-75 ")
 ;;853
 ;;21,"67544-0422-80 ")
 ;;854
 ;;21,"67544-0422-90 ")
 ;;855
 ;;21,"67544-0422-92 ")
 ;;856
 ;;21,"67544-0422-94 ")
 ;;857
 ;;21,"67544-0422-96 ")
 ;;858
 ;;21,"67544-0424-30 ")
 ;;387
 ;;21,"67544-0424-53 ")
 ;;388
 ;;21,"67544-0424-60 ")
 ;;389
 ;;21,"67544-0424-70 ")
 ;;390
 ;;21,"67544-0424-75 ")
 ;;391
 ;;21,"67544-0424-80 ")
 ;;392
 ;;21,"67544-0424-90 ")
 ;;393
 ;;21,"67544-0424-92 ")
 ;;394
 ;;21,"67544-0424-94 ")
 ;;395
 ;;21,"67544-0424-96 ")
 ;;396
 ;;21,"67544-0428-45 ")
 ;;110
 ;;21,"67544-0428-53 ")
 ;;111
 ;;21,"67544-0428-60 ")
 ;;112
 ;;21,"67544-0428-73 ")
 ;;113
 ;;21,"67544-0428-80 ")
 ;;114
 ;;21,"67544-0486-53 ")
 ;;397
 ;;21,"67544-0511-70 ")
 ;;1152
 ;;21,"67544-0596-53 ")
 ;;383
 ;;21,"67544-0596-60 ")
 ;;384
 ;;21,"67544-0596-80 ")
 ;;385
 ;;21,"67544-0596-96 ")
 ;;386
 ;;21,"67544-1081-80 ")
 ;;847
 ;;21,"67544-1081-94 ")
 ;;848
 ;;21,"67544-1129-70 ")
 ;;1153
 ;;21,"67544-1198-53 ")
 ;;107
 ;;21,"67544-1198-60 ")
 ;;108
 ;;21,"67544-1198-80 ")
 ;;109
 ;;21,"67544-1216-53 ")
 ;;630
 ;;21,"67544-1216-60 ")
 ;;631
 ;;21,"67544-1216-80 ")
 ;;632
 ;;21,"67544-1216-92 ")
 ;;633
 ;;21,"67544-1379-80 ")
 ;;398
 ;;21,"67544-1383-60 ")
 ;;628
 ;;21,"67544-1383-80 ")
 ;;629
 ;;21,"67767-0115-01 ")
 ;;846
 ;;21,"67877-0217-01 ")
 ;;399
 ;;21,"67877-0217-05 ")
 ;;400
 ;;21,"67877-0218-01 ")
 ;;627
 ;;21,"67877-0221-01 ")
 ;;106
 ;;21,"68071-0028-30 ")
 ;;1120
 ;;21,"68071-0028-60 ")
 ;;1121
 ;;21,"68084-0072-01 ")
 ;;860
 ;;21,"68084-0072-11 ")
 ;;861
 ;;21,"68084-0136-01 ")
 ;;1026
 ;;21,"68084-0136-11 ")
 ;;1027
 ;;21,"68084-0137-01 ")
 ;;1070
 ;;21,"68084-0137-11 ")
 ;;1071
 ;;21,"68084-0138-01 ")
 ;;1156
 ;;21,"68084-0138-11 ")
 ;;1157
 ;;21,"68115-0158-30 ")
 ;;1038
 ;;21,"68115-0158-60 ")
 ;;1039
 ;;21,"68115-0159-30 ")
 ;;1100
 ;;21,"68115-0159-60 ")
 ;;1101
 ;;21,"68115-0230-30 ")
 ;;96
 ;;21,"68115-0230-60 ")
 ;;97
 ;;21,"68115-0231-00 ")
 ;;359
 ;;21,"68115-0231-30 ")
 ;;360
 ;;21,"68115-0231-60 ")
 ;;361
 ;;21,"68115-0231-90 ")
 ;;362