|
|
|
|
@ -198,11 +198,11 @@ the split action field to detect capitalized fees on stock activity")
|
|
|
|
|
(list N100 N100 N011 N000 N011 N000 N111 #f #t "Sell")
|
|
|
|
|
(list N000 N000 N001 N000 N011 N100 N000 #f #f "Dividend")
|
|
|
|
|
(list N001 N001 N001 N011 N000 N100 N000 #t #f "Dividend reinvestment (w/ remainder)")
|
|
|
|
|
(list N001 N001 N000 N011 N000 N100 N000 #t #f "Dividend reinvestment (w/o remainder)")
|
|
|
|
|
(list N001 N001 N110 N011 N000 N100 N000 #t #f "Dividend reinvestment (w/o remainder)")
|
|
|
|
|
(list N000 N100 N001 N011 N000 N000 N000 #t #f "Return of Capital")
|
|
|
|
|
(list N000 N001 N000 N000 N011 N100 N000 #t #f "Notional distribution")
|
|
|
|
|
(list N001 N000 N000 N011 N000 N000 N000 #f #f "Stock split")
|
|
|
|
|
(list N100 N000 N000 N011 N000 N000 N000 #f #f "Reverse split")
|
|
|
|
|
(list N001 N000 N110 N011 N000 N000 N000 #f #f "Stock split")
|
|
|
|
|
(list N100 N000 N110 N011 N000 N000 N000 #f #f "Reverse split")
|
|
|
|
|
(list N100 N100 N001 N000 N011 N000 N111 #f #t "Reverse split w/ cash in lieu for fractionals")))
|
|
|
|
|
|
|
|
|
|
(define short-types
|
|
|
|
|
@ -210,12 +210,10 @@ the split action field to detect capitalized fees on stock activity")
|
|
|
|
|
(list N100 N100 N001 N011 N000 N000 N000 #t #f "Short Sell")
|
|
|
|
|
(list N001 N001 N110 N000 N011 N000 N111 #f #t "Cover Buy")
|
|
|
|
|
(list N000 N000 N100 N000 N011 N001 N000 #f #f "Compensatory dividend")
|
|
|
|
|
(list N000 N000 N000 N011 N000 N000 N000 #t #f "Dividend reinvestment (w remainder)")
|
|
|
|
|
(list N000 N000 N000 N011 N000 N000 N000 #t #f "Dividend reinvestment (w/o remainder)")
|
|
|
|
|
(list N000 N001 N100 N011 N000 N000 N000 #t #f "Compensatory return of capital")
|
|
|
|
|
(list N000 N100 N000 N000 N011 N001 N000 #t #f "Compensatory notional distribution")
|
|
|
|
|
(list N100 N000 N000 N011 N000 N000 N000 #f #f "Stock split")
|
|
|
|
|
(list N001 N000 N000 N011 N000 N000 N000 #f #f "Reverse split")
|
|
|
|
|
(list N100 N000 N110 N011 N000 N000 N000 #f #f "Stock split")
|
|
|
|
|
(list N001 N000 N110 N011 N000 N000 N000 #f #f "Reverse split")
|
|
|
|
|
(list N001 N001 N100 N000 N011 N000 N111 #f #t "Reverse split w/ cash in lieu for fractionals")))
|
|
|
|
|
|
|
|
|
|
(define (cmp amt neg zero pos)
|
|
|
|
|
|